(********************************************************************************************************************************)
(* Created: 14-SEP-1999 11:33:05 by OpenVMS SDL EV1-50     *)
(* Source:  17-AUG-1999 16:16:51 PADO_3:[ANSI_V31P_AVMS.KIT]SS7_TCAP_K_COMMON_.S *)
(********************************************************************************************************************************)
 
MODULE SS7_TCAP_K_COMMON_ ;
 
[HIDDEN] TYPE	(**** Pre-declared data types ****)
	$BYTE = [BYTE] -128..127;
	$WORD = [WORD] -32768..32767;
	$QUAD = [QUAD,UNSAFE] RECORD
		L0:UNSIGNED; L1:INTEGER; END;
	$OCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2:UNSIGNED; L3:INTEGER; END;
	$UBYTE = [BYTE] 0..255;
	$UWORD = [WORD] 0..65535;
	$UQUAD = [QUAD,UNSAFE] RECORD
		L0,L1:UNSIGNED; END;
	$UOCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2,L3:UNSIGNED; END;
	$UOCTAQUAD = [OCTA(2),UNSAFE] RECORD
		L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END;
	$PACKED_DEC = [BIT(4),UNSAFE] 0..15;
	$DEFTYP = [UNSAFE] INTEGER;
	$DEFPTR = [UNSAFE] ^$DEFTYP;
	$BOOL = [BIT(1),UNSAFE] BOOLEAN;
	$BIT2 = [BIT(2),UNSAFE] 0..3;
	$BIT3 = [BIT(3),UNSAFE] 0..7;
	$BIT4 = [BIT(4),UNSAFE] 0..15;
	$BIT5 = [BIT(5),UNSAFE] 0..31;
	$BIT6 = [BIT(6),UNSAFE] 0..63;
	$BIT7 = [BIT(7),UNSAFE] 0..127;
	$BIT8 = [BIT(8),UNSAFE] 0..255;
	$BIT9 = [BIT(9),UNSAFE] 0..511;
	$BIT10 = [BIT(10),UNSAFE] 0..1023;
	$BIT11 = [BIT(11),UNSAFE] 0..2047;
	$BIT12 = [BIT(12),UNSAFE] 0..4095;
	$BIT13 = [BIT(13),UNSAFE] 0..8191;
	$BIT14 = [BIT(14),UNSAFE] 0..16383;
	$BIT15 = [BIT(15),UNSAFE] 0..32767;
	$BIT16 = [BIT(16),UNSAFE] 0..65535;
	$BIT17 = [BIT(17),UNSAFE] 0..131071;
	$BIT18 = [BIT(18),UNSAFE] 0..262143;
	$BIT19 = [BIT(19),UNSAFE] 0..524287;
	$BIT20 = [BIT(20),UNSAFE] 0..1048575;
	$BIT21 = [BIT(21),UNSAFE] 0..2097151;
	$BIT22 = [BIT(22),UNSAFE] 0..4194303;
	$BIT23 = [BIT(23),UNSAFE] 0..8388607;
	$BIT24 = [BIT(24),UNSAFE] 0..16777215;
	$BIT25 = [BIT(25),UNSAFE] 0..33554431;
	$BIT26 = [BIT(26),UNSAFE] 0..67108863;
	$BIT27 = [BIT(27),UNSAFE] 0..134217727;
	$BIT28 = [BIT(28),UNSAFE] 0..268435455;
	$BIT29 = [BIT(29),UNSAFE] 0..536870911;
	$BIT30 = [BIT(30),UNSAFE] 0..1073741823;
	$BIT31 = [BIT(31),UNSAFE] 0..2147483647;
	$BIT32 = [BIT(32),UNSAFE] UNSIGNED;
 
(*** MODULE SS7_TCAP_K_COMMON_ ***)
 
(*-------------------------------------------------------------------------- *)
(*------------------------------------------                                *)
(*	 COMMON CCITT/ANSI CONSTANTS                                        *)
(*------------------------------------------                                *)
(*                                                                          *)
(* Symbols used to define the kind of the address to be modified in         *)
(* ss7_tcap_modify_party_address primitive.                                 *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_CALLED_PA = 1;
	SS7_K_TCAP_CALLING_PA = 2;
 
(*                                                                          *)
(* Symbols used to define the component class.                              *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_CLASS_1 = 1;
	SS7_K_TCAP_CLASS_2 = 2;
	SS7_K_TCAP_CLASS_3 = 3;
	SS7_K_TCAP_CLASS_4 = 4;
 
(*                                                                          *)
(* Symbols used to define the type of dialogue termination.                 *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_BASIC_END = 1;
	SS7_K_TCAP_PREARRANGED_END = 2;
 
(*                                                                          *)
(* Symbols used to define the TCAP option selected during indications enabling *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_BASIC_BEHAVIOUR = 0;
	SS7_K_TCAP_ADVANCED_BEHAVIOUR = 1;
	SS7_K_TCAP_BLUE_BOOK = 0;
	SS7_K_TCAP_WHITE_BOOK = 1;
	SS7_K_TCAP_ANSI_88 = 0;
	SS7_K_TCAP_ANSI_96 = 1;
	SS7_K_TCAP_ANSI_88_OR_96 = 2;
 
(*                                                                          *)
(* Symbols used to define the TCAP API's parameters format.                 *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_SET = 0;
	SS7_K_TCAP_SEQUENCE = 1;
	SS7_K_TCAP_NO_SET_SEQ = 2;
 
(*                                                                          *)
(* Symbols used to define a ANSI TC query or conversation message           *)
(* with or without permission. These symbols are meaningless for            *)
(* CCITT.                                                                   *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_WITH_PERM = 0;
	SS7_K_TCAP_WITHOUT_PERM = 1;
 
(*                                                                          *)
(* Symbols used to define the source of a reject.                           *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RJCT_LOCAL = 1;
	SS7_K_TCAP_RJCT_REMOTE = 2;
	SS7_K_TCAP_RJCT_USER = 3;
	SS7_K_TCAP_RJCT_LOCAL_NOT_SENT = 4;
 
(*                                                                          *)
(* Symbols used to define the item code of the indication                   *)
(* routines item list (when enabling the indications).                      *)
(*                                                                          *)
(*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!    *)
(*!!!                                                                !!!    *)
(*!!! NOTE : These constants and those with the same name,           !!!    *)
(*!!!        but postfixed _CCITT or _ANSI MUST have the same values !!!    *)
(*!!!                                                                !!!    *)
(*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!    *)
 
CONST	SS7_K_TCAP_BEGIN = 1;
	SS7_K_TCAP_CONTINUE = 2;
	SS7_K_TCAP_END = 3;
	SS7_K_TCAP_ABORT = 4;
	SS7_K_TCAP_INVOKE = 5;
	SS7_K_TCAP_RESULT = 6;
	SS7_K_TCAP_ERROR = 7;
	SS7_K_TCAP_REJECT = 8;
	SS7_K_TCAP_CANCEL = 9;
	SS7_K_TCAP_UNIDIRECTIONAL = 10;
	SS7_K_TCAP_NOTICE = 11;
	SS7_K_TCAP_USER_DISTRIB_IND = 12;
 
(*------------------------------------------                                *)
(*	      CCITT CONSTANTS                                               *)
(*------------------------------------------                                *)
(*                                                                          *)
(* Symbols used to define the item code of the indication                   *)
(* routines item list (when enabling the indications).                      *)
(*                                                                          *)
(*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!              *)
(*!!!                                                      !!!              *)
(*!!! NOTE : These constants and those with the same name, !!!              *)
(*!!!        but not postfixed MUST have the same values   !!!              *)
(*!!!                                                      !!!              *)
(*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!              *)
 
CONST	SS7_K_TCAP_BEGIN_CCITT = 1;
	SS7_K_TCAP_CONTINUE_CCITT = 2;
	SS7_K_TCAP_END_CCITT = 3;
	SS7_K_TCAP_ABORT_CCITT = 4;
	SS7_K_TCAP_INVOKE_CCITT = 5;
	SS7_K_TCAP_RESULT_CCITT = 6;
	SS7_K_TCAP_ERROR_CCITT = 7;
	SS7_K_TCAP_REJECT_CCITT = 8;
	SS7_K_TCAP_CANCEL_CCITT = 9;
	SS7_K_TCAP_UNIDIRECTIONAL_CCITT = 10;
	SS7_K_TCAP_NOTICE_CCITT = 11;
	SS7_K_TCAP_USER_DISTRIB_IND_CCITT = 12;
 
(*                                                                          *)
(* Symbols used to define the operatin code                                 *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_LOCAL_CCITT = 2;
	SS7_K_TCAP_GLOBAL_CCITT = 6;
 
(*                                                                          *)
(* Symbols used to define the source of an abort.                           *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_ABORT_LOCAL_CCITT = 1;
	SS7_K_TCAP_ABORT_REMOTE_CCITT = 2;
	SS7_K_TCAP_ABORT_USER_CCITT = 3;
 
(*                                                                          *)
(* Symbols used to specify the reason of an abort.                          *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_UNKNOWN_MSGTYPE_CCITT = 0;
	SS7_K_TCAP_UNKNOWN_TRANSID_CCITT = 1;
	SS7_K_TCAP_BADFORMAT_CCITT = 2;
	SS7_K_TCAP_BADTRANS_CCITT = 3;
	SS7_K_TCAP_RESLIMIT_CCITT = 4;
 
(* added for TCAP White Book:                                               *)
 
CONST	SS7_K_TCAP_ABNORMAL_DP_CCITT = 5;
 
(* added for TCAP White Book:                                               *)
(* Symbols used to specify the reason of a TC-U-abort.                      *)
 
CONST	SS7_K_TCAP_USER_DEFINED_CCITT = 0;
	SS7_K_TCAP_CTX_NOT_SUPPORTED_CCITT = 1;
 
(*                                                                          *)
(* Symbols used to define the problem type for a rejected component.        *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_GENERAL_PROBLEM_CCITT = 128;
	SS7_K_TCAP_INVOKE_PROBLEM_CCITT = 129;
	SS7_K_TCAP_RESULT_PROBLEM_CCITT = 130;
	SS7_K_TCAP_ERROR_PROBLEM_CCITT = 131;
 
(*                                                                          *)
(* Symbols used to define the problem code for a reject component of code GENERAL *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RG_UNREC_COMP_CCITT = 0;
	SS7_K_TCAP_RG_MISTYPED_COMP_CCITT = 1;
	SS7_K_TCAP_RG_BAD_STRUC_COMP_CCITT = 2;
 
(*                                                                          *)
(* Symbols used to define the problem code for a reject component of code INVOKE *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RI_DUP_INV_ID_CCITT = 0;
	SS7_K_TCAP_RI_UNREC_OP_CCITT = 1;
	SS7_K_TCAP_RI_MISTYPED_PARAM_CCITT = 2;
	SS7_K_TCAP_RI_RESS_LIMIT_CCITT = 3;
	SS7_K_TCAP_RI_INIT_RELEASE_CCITT = 4;
	SS7_K_TCAP_RI_UNREC_LK_ID_CCITT = 5;
	SS7_K_TCAP_RI_UNEXP_LK_RSP_CCITT = 6;
	SS7_K_TCAP_RI_UNEXP_LK_OP_CCITT = 7;
 
(*                                                                          *)
(* Symbols used to define the problem code for a reject component of code RESULT  *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RR_UNREC_INV_ID_CCITT = 0;
	SS7_K_TCAP_RR_UNEXP_RETRES_CCITT = 1;
	SS7_K_TCAP_RR_MISTYPED_PARAM_CCITT = 2;
 
(*                                                                          *)
(* Symbols used to define the problem code for a reject component of code ERROR *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RE_UNREC_INV_ID_CCITT = 0;
	SS7_K_TCAP_RE_UNEXP_RETERR_CCITT = 1;
	SS7_K_TCAP_RE_UNREC_ERROR_CCITT = 2;
	SS7_K_TCAP_RE_UNEXP_ERROR_CCITT = 3;
	SS7_K_TCAP_RE_MISTYPED_PARAM_CCITT = 4;
 
(*------------------------------------------                                *)
(*	      ANSI CONSTANTS                                                *)
(*------------------------------------------                                *)
(*                                                                          *)
(* Symbols used to define the item code of the indication                   *)
(* routines item list (when enabling the indications).                      *)
(* Note: The constant TCAP_DUMMY_ABORT_ANSI is here just to ensure          *)
(*       the compatibility with previous version                            *)
(*                                                                          *)
(*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!              *)
(*!!!                                                      !!!              *)
(*!!! NOTE : These constants and those with the same name, !!!              *)
(*!!!        but not postfixed MUST have the same values   !!!              *)
(*!!!                                                      !!!              *)
(*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!              *)
 
CONST	SS7_K_TCAP_BEGIN_ANSI = 1;
	SS7_K_TCAP_CONTINUE_ANSI = 2;
	SS7_K_TCAP_END_ANSI = 3;
	SS7_K_TCAP_DUMMY_ABORT_ANSI = 4;
	SS7_K_TCAP_INVOKE_ANSI = 5;
	SS7_K_TCAP_RESULT_ANSI = 6;
	SS7_K_TCAP_ERROR_ANSI = 7;
	SS7_K_TCAP_REJECT_ANSI = 8;
	SS7_K_TCAP_CANCEL_ANSI = 9;
	SS7_K_TCAP_UNIDIRECTIONAL_ANSI = 10;
	SS7_K_TCAP_NOTICE_ANSI = 11;
	SS7_K_TCAP_USER_DISTRIB_IND_ANSI = 12;
 
(*                                                                          *)
(* Symbols used to define a local or remote operation.                      *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_NATIONAL_OPERATION_ANSI = 208;
	SS7_K_TCAP_PRIVATE_OPERATION_ANSI = 209;
 
(*                                                                          *)
(* Symbols used to define a local or remote error.                          *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_NATIONAL_ERROR_ANSI = 211;
	SS7_K_TCAP_PRIVATE_ERROR_ANSI = 212;
 
(*                                                                          *)
(* Symbols used to define the source of an abort.                           *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_ABORT_LOCAL_ANSI = 1;
	SS7_K_TCAP_ABORT_REMOTE_ANSI = 2;
	SS7_K_TCAP_ABORT_USER_ANSI = 3;
 
(*                                                                          *)
(* Symbols used to specify the reason of an abort.                          *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_UNREC_PKGTYPE_ANSI = 1;
	SS7_K_TCAP_INCORRECT_TRANS_ANSI = 2;
	SS7_K_TCAP_BADSTRUCT_TRANS_ANSI = 3;
	SS7_K_TCAP_BAD_RESPTRANSID_ANSI = 4;
	SS7_K_TCAP_PERMTOREL_PB_ANSI = 5;
	SS7_K_TCAP_RES_UNAVAILABLE_ANSI = 6;
	SS7_K_TCAP_UNREC_DIALPORTID_ANSI = 7;
	SS7_K_TCAP_BADSTRUCT_DIALPORT_ANSI = 8;
	SS7_K_TCAP_MISSING_DIALPORT_ANSI = 9;
	SS7_K_TCAP_INCONS_DIALPORT_ANSI = 10;
 
(*                                                                          *)
(* Flags used by the ANSI 96 Dialog portion to                              *)
(* Distinguish if the inserted parameter will be                            *)
(* an integer or an object defined by the user.                             *)
(*                                                                          *)
(*                                                                          *)
(* Flag for the application context name field.                             *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_INT_ACN = 0;
	SS7_K_TCAP_OBJ_ACN = 1;
 
(*                                                                          *)
(* Flag for the security contect field.                                     *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_INT_SECU = 0;
	SS7_K_TCAP_OBJ_SECU = 1;
 
(*                                                                          *)
(* Symbols used to define the problem type for a rejected component.        *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_GENERAL_PROBLEM_ANSI = 1;
	SS7_K_TCAP_INVOKE_PROBLEM_ANSI = 2;
	SS7_K_TCAP_RESULT_PROBLEM_ANSI = 3;
	SS7_K_TCAP_ERROR_PROBLEM_ANSI = 4;
	SS7_K_TCAP_TRANS_PORTION_PB_ANSI = 5;
 
(*                                                                          *)
(* Symbols used to define the problem code for a reject component of code GENERAL *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RG_UNREC_COMP_ANSI = 1;
	SS7_K_TCAP_RG_INCOR_COMP_ANSI = 2;
	SS7_K_TCAP_RG_BAD_STRUCT_COMP_ANSI = 3;
	SS7_K_TCAP_RG_INCOR_COMP_COD_ANSI = 4;
 
(*                                                                          *)
(* Symbols used to define the problem code for a reject component of code INVOKE *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RI_DUP_INV_ID_ANSI = 1;
	SS7_K_TCAP_RI_UNREC_OP_ANSI = 2;
	SS7_K_TCAP_RI_INCOR_PARAM_ANSI = 3;
	SS7_K_TCAP_RI_UNREC_COR_ID_ANSI = 4;
 
(*                                                                          *)
(* Symbols used to define the problem code for a reject component of code RESULT  *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RR_UNREC_COR_ID_ANSI = 1;
	SS7_K_TCAP_RR_UNEXP_RETRES_ANSI = 2;
	SS7_K_TCAP_RR_INCOR_PARAM_ANSI = 3;
 
(*                                                                          *)
(* Symbols used to define the problem code for a reject component of code ERROR *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RE_UNREC_COR_ID_ANSI = 1;
	SS7_K_TCAP_RE_UNEXP_RETERR_ANSI = 2;
	SS7_K_TCAP_RE_UNREC_ERROR_ANSI = 3;
	SS7_K_TCAP_RE_UNEXP_ERROR_ANSI = 4;
	SS7_K_TCAP_RE_INCOR_PARAM_ANSI = 5;
 
(*                                                                          *)
(* Symbols used to specify the reason of a reject with transaction portion problem, *)
(* which in fact simulate an abort.                                         *)
(*                                                                          *)
 
CONST	SS7_K_TCAP_RT_UNREC_PKG_TYPE_ANSI = 1;
	SS7_K_TCAP_RT_INCOR_TP_ANSI = 2;
	SS7_K_TCAP_RT_BAD_STRUCT_TP_ANSI = 3;
	SS7_K_TCAP_RT_UNREC_TRANS_ID_ANSI = 4;
	SS7_K_TCAP_RT_PERM_RELEAS_PB_ANSI = 5;
	SS7_K_TCAP_RT_RESOUR_UNAVAIL_ANSI = 6;
 
(*                                                                          *)
(* Symbols used to specify the capability set in case of INAP               *)
(*                                                                          *)
 
CONST	SS7_K_SRF_CS_CS1 = 1;
	SS7_K_SRF = 2;
 
END.