%FBITS : BBITS : MACRO; 00050003 /* */ 00100003 /* FUNCTION : THIS MACRO CONVERTS THE SYMBOLIC CODES WHICH */ 00150003 /* DESCRIBE THE FLAGS IN THE FIELD ATTRIBUTE TABLE AND THE BIT */ 00200003 /* STRING TABLE INTO A BIT STRING CONSTANT WHICH IS USED TO */ 00250003 /* INITIALIZE THE TABLES. */ 00300003 /* */ 00350003 /* INPUT : A CHARACTER STRING WHICH CONTAINS ANY OF THE */ 00400003 /* SYMBOLIC CODES DESCRIBED IN ONE OF THE TABLES BELOW. THE CODES*/ 00450003 /* MAY BE IN ANY ORDER. */ 00500003 /* */ 00550003 /* OUTPUT : A BIT STRING CONSTANT. THE CONSTANT RETURNED BY */ 00600003 /* FBITS IS 24 BITS LONG. THE CONSTANT RETURNED BY BBITS IS 8 */ 00650003 /* BITS LONG. */ 00700003 /* */ 00750003 /* */ 00800003 /* FIELD ATTRIBUTE TABLE FLAGS */ 00850003 /* */ 00900003 /* BIT POSITION CODE DESCRIPTION */ 00950003 /* 0 GOK VALID FOR GENCB */ 01000003 /* 1 MOK VALID FOR MODCB */ 01050003 /* 2 SOK VALID FOR SHOWCB */ 01100003 /* 3 TOK VALID FOR TESTCB */ 01150003 /* 4 NOR NORMAL ENTRY */ 01200003 /* 5 BIT BIT STRING ENTRY */ 01250003 /* 6 SUB SUBROUTINE ENTRY */ 01300003 /* 7 CBL CONTROL BLOCK LENGTH ENTRY */ 01350003 /* 8 OPN ACB MUST BE OPEN */ 01400003 /* 9 ACB VALID FOR ACB */ 01450003 /* 10 EXL VALID FOR EXLST */ 01500003 /* 11 RPL VALID FOR RPL */ 01550003 /* 12 CHR CHARACTER STRING ENTRY */ 01600003 /* 13 AMB FIELD IS IN AMB */ 01650003 /* 14 AMD FIELD IS IN AMDSB */ 01700003 /* 15 BUF FIELD IS IN BUFC */ 01750003 /* 16 ARD FIELD IS IN ARDB */ 01800003 /* 17 NIB VALID FOR NIB */ 01850003 /* 18 VTM VALID FOR VTAM ONLY */ 01900003 /* 19 BSP FIELD IS IN BSPH */ 01910003 /* 20 PLH FIELD IS IN PLHDR */ 01920003 /* */ 01950003 /* */ 02000003 /* BIT STRING TABLE FLAGS */ 02050003 /* */ 02100003 /* BIT POSITION CODE DESCRIPTION */ 02150003 /* 0 EOB END OF BIT STRING MARKER */ 02200003 /* 1 BON BIT SETTING - 1 IF BIT IS TO BE SET ON */ 02250003 /* 2 LEG LAST ENTRY IN A GROUP */ 02300003 /* 3 MEX MEMBER OF A MUTUALLY EXCLUSIVE GROUP */ 02350003 /* 4 DEF DEFAULT */ 02400003 /* 5 RSV RESERVED */ 02450003 /* 6 VTM VALID FOR VTAM ONLY */ 02500003 /* */ 02550003 DCL BITS CHAR; /* BIT STRING TO BE BUILT*/ 02600003 DCL CODES CHAR; /* BIT CODE VECTOR */ 02650003 DCL PAD CHAR; /* PAD STRING - ZEROES */ 02700003 DCL CODE CHAR; /* SEARCH ARGUMENT */ 02750003 DCL ARGS CHAR; /* MACLIST CHAR STRING */ 02800003 DCL I FIXED; /* VECTOR INDEX */ 02850003 DCL ACOL FIXED; /* COMMENT ALIGNMENT COL */ 02900003 BITS = ''; /* SET STRING TO NULL */ 02950003 ARGS = MACLIST; /* COPY MACLIST */ 03000003 IF MACNAME = 'BBITS' 03050003 THEN GO TO L1; 03100003 CODES = 'GOKMOKSOKTOKNORBITSUB' || /* FBITS INITIALIZATION */ 03150003 'CBLOPNCHRACBEXLRPLAMB' || 03200003 'AMDBUFARDNIBVTMBSPPLH'; 03250003 PAD = '000'; 03300003 ACOL = 47; 03350003 GO TO L2; 03400003 L1 : CODES = 'EOBBONLEGMEXDEFRSVVTM'; /* BBITS INITIALIZATION */ 03450003 PAD = '0'; 03500003 ACOL = 31; 03550003 L2 : BITS = ''; 03600003 I = -2; 03650003 L3 : I = I + 3; /* SCAN MACLIST */ 03700003 IF I > LENGTH(CODES) /* FOR EACH CODE */ 03750003 THEN GO TO L4; 03800003 CODE = CODES(I:I+2); 03850003 IF INDEX(ARGS,CODE) > 0 /* BUILD BIT STRING */ 03900003 THEN BITS = BITS || '1'; 03950003 ELSE BITS = BITS || '0'; 04000003 GO TO L3; 04050003 L4 : BITS = BITS || PAD; /* PAD WITH ZEROES */ 04100003 ANS(QUOTE(BITS) || 'B'); /* RETURN BINARY CONSTANT*/ 04150003 ANS(' ') COL(ACOL); /* ALIGN COMMENTS */ 04200003 %END; 04250003 %BIT : MACRO; 04300003 /* */ 04350003 /* FUNCTION : THIS MACRO CONVERTS A DECIMAL SELF-DEFINING TERM */ 04400003 /* REPRESENTING A BIT POSITION WITHIN A BYTE INTO THE EQUIVALENT */ 04450003 /* HEXADECIMAL MASK. */ 04500003 /* */ 04550003 /* INPUT : A DECIMAL SELF-DEFINING TERM IN THE RANGE 0 TO 7. */ 04600003 /* */ 04650003 /* OUTPUT : A HEXADECIMAL CONSTANT OF LENGTH 2. */ 04700003 /* */ 04750003 DCL CODES CHAR; /* HEX CODE VECTOR */ 04800003 DCL XCHAR CHAR; /* 2 HEX DIGITS */ 04850003 DCL I FIXED; /* VECTOR INDEX */ 04900003 CODES = '8040201008040201'; /* INITIALIZE HEX VECTOR */ 04950003 I = FIXED(MACLIST(1)); /* CONVERT ARGUMENT */ 05000003 IF I < 0 THEN GO TO ERR; /* TEST FOR ARG TOO LOW */ 05050003 IF I > 7 THEN GO TO ERR; /* TEST FOR ARG TOO HIGH */ 05100003 I = 2 * (I+1); /* CALCULATE VECTOR INDEX*/ 05150003 XCHAR = CODES(I-1:I); /* GET HEX DIGITS */ 05200003 ANS(QUOTE(XCHAR) || 'X'); /* RETURN HEX CONSTANT */ 05250003 ANS(' ') COL(19); /* ALIGN COMMENTS */ 05300003 RETURN; /* MEXIT */ 05350003 ERR : ANS MSG('INVALID BIT POSITION'); /* WRITE ERROR MESSAGE */ 05400003 %END; 05450003 /********************************************************************/ 05500003 /* */ 05550003 /* BIT STRING TABLE */ 05600003 /* */ 05650003 /********************************************************************/ 05700003 DCL 1 BST (87) FIXED(31) STATIC, 05750003 2 BSTFLGS CHAR(1) INIT( /* FLAGS */ 05800003 ?BBITS(BON,MEX) ;, /* ATRB(KSDS) */ 05850003 ?BBITS(MEX,LEG) ;, /* ATRB(ESDS) */ 05900003 ?BBITS(BON,LEG) ;, /* ATRB(WCK) */ 05950003 ?BBITS(BON,LEG) ;, /* ATRB(SSWD) */ 06000003 ?BBITS(BON,LEG) ;, /* ATRB(REPL) */ 06050003 ?BBITS(BON,LEG) ;, /* ATRB(RRDS) */ 06100003 ?BBITS(BON,LEG) ;, /* ATRB(SPAN) */ 06150003 ?BBITS(BON,LEG,EOB) ;, /* ATRB(UNQ) */ 06200003 ?BBITS(BON,DEF) ;, /* MACRF(KEY) */ 06250003 ?BBITS(BON) ;, /* MACRF(ADR) */ 06300003 ?BBITS(BON,LEG) ;, /* MACRF(CNV) */ 06350003 ?BBITS(BON,DEF) ;, /* MACRF(SEQ) */ 06400003 ?BBITS(BON) ;, /* MACRF(SKP) */ 06450003 ?BBITS(BON,LEG) ;, /* MACRF(DIR) */ 06500003 ?BBITS(BON,DEF) ;, /* MACRF(IN) */ 06550003 ?BBITS(BON,LEG) ;, /* MACRF(OUT) */ 06600003 ?BBITS(MEX) ;, /* MACRF(NUB) */ 06650003 ?BBITS(BON,MEX,LEG) ;, /* MACRF(UBF) */ 06700003 ?BBITS(MEX,VTM) ;, /* MACRF(LOGON) */ 06750003 ?BBITS(BON,MEX,LEG,VTM) ;, /* MACRF(NLOGON) */ 06800003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 06850003 ?BBITS(MEX,DEF) ;, /* MACRF(DDN) */ 06900003 ?BBITS(MEX,BON,LEG) ;, /* MACRF(DSN) */ 06950003 ?BBITS(MEX,DEF) ;, /* MACRF(NRM) */ 07000003 ?BBITS(MEX,LEG,BON) ;, /* MACRF(AIX) */ 07050003 ?BBITS(MEX,DEF) ;, /* MACRF(NSR) */ 07100003 ?BBITS(MEX,BON) ;, /* MACRF(LSR) */ 07150003 ?BBITS(MEX,BON,LEG) ;, /* MACRF(GSR) */ 07200003 ?BBITS(MEX,DEF) ;, /* MACRF(NCI) */ 07250003 ?BBITS(MEX,BON,LEG) ;, /* MACRF(ICI) */ 07300003 ?BBITS(MEX,DEF) ;, /* MACRF(NDF) */ 07350003 ?BBITS(MEX,BON,LEG) ;, /* MACRF(DFR) */ 07400003 ?BBITS(MEX,DEF) ;, /* MACRF(NIS) */ 07450003 ?BBITS(BON,LEG,MEX) ;, /* MACRF(SIS) */ 07500003 ?BBITS(MEX,DEF) ;, /* MACRF(NFX) */ 07550003 ?BBITS(BON,MEX,LEG) ;, /* MACRF(CFX) */ 07600003 ?BBITS(BON,MEX) ;, /* MACRF(RST) */ 07610003 ?BBITS(MEX,DEF,LEG,EOB) ;, /* MACRF(NRS) */ 07620003 ?BBITS(BON,MEX,VTM) ;, /* BRANCH(YES) */ 07650003 ?BBITS(MEX,LEG,EOB,VTM) ;, /* BRANCH(NO) */ 07700003 ?BBITS(BON,MEX) ;, /* CATALOG(YES) */ 07750003 ?BBITS(EOB,MEX,LEG) ;, /* CATALOG(NO) */ 07800003 ?BBITS(BON,MEX) ;, /* CRA(SCRA) */ 07850003 ?BBITS(BON,MEX,LEG,EOB) ;, /* CRA(UCRA) */ 07900003 ?BBITS(EOB,BON,LEG) ;, /* OFLAGS(OPEN) */ 07950003 ?BBITS(BON,LEG) ;, /* OPENOBJ(AIX) */ 08000003 ?BBITS(BON,LEG) ;, /* OPENOBJ(PATH) */ 08050003 ?BBITS(BON,LEG,EOB) ;, /* OPENOBJ(BASE) */ 08100003 ?BBITS(BON,VTM) ;, /* DATAFLG(UNSOL) */ 08150003 ?BBITS(BON,VTM) ;, /* DATAFLG(EOB) */ 08200003 ?BBITS(BON,VTM) ;, /* DATAFLG(EOM) */ 08250003 ?BBITS(BON,VTM) ;, /* DATAFLG(EOT) */ 08300003 ?BBITS(BON,VTM) ;, /* DATAFLG(LOGOFF) */ 08350003 ?BBITS(BON,VTM) ;, /* DATAFLG(LG) */ 08400003 ?BBITS(BON,LEG,EOB,VTM) ;, /* DATAFLG(SOH) */ 08450003 ?BBITS(BON,MEX) ;, /* OPTCD(KEY) */ 08500003 ?BBITS(BON,MEX) ;, /* OPTCD(ADR) */ 08550003 ?BBITS(BON,MEX,LEG) ;, /* OPTCD(CNV) */ 08600003 ?BBITS(BON,MEX) ;, /* OPTCD(SEQ) */ 08650003 ?BBITS(BON,MEX) ;, /* OPTCD(DIR) */ 08700003 ?BBITS(BON,MEX,LEG) ;, /* OPTCD(SKP) */ 08750003 ?BBITS(MEX) ;, /* OPTCD(SYN) */ 08800003 ?BBITS(BON,MEX,LEG) ;, /* OPTCD(ASY) */ 08850003 ?BBITS(MEX) ;, /* OPTCD(NUP) */ 08900003 ?BBITS(BON,MEX) ;, /* OPTCD(UPD) */ 08950003 ?BBITS(BON,MEX,LEG) ;, /* OPTCD(NSP) */ 09000003 ?BBITS(MEX) ;, /* OPTCD(KEQ) */ 09050003 ?BBITS(BON,MEX,LEG) ;, /* OPTCD(KGE) */ 09100003 ?BBITS(MEX) ;, /* OPTCD(FKS) */ 09150003 ?BBITS(BON,MEX,LEG) ;, /* OPTCD(GEN) */ 09200003 ?BBITS(MEX) ;, /* OPTCD(MVE) */ 09250003 ?BBITS(BON,MEX,LEG) ;, /* OPTCD(LOC) */ 09300003 ?BBITS(MEX,DEF) ;, /* OPTCD(FWD) */ 09350003 ?BBITS(MEX,LEG,BON) ;, /* OPTCD(BWD) */ 09400003 ?BBITS(MEX,DEF) ;, /* OPTCD(ARD) */ 09450003 ?BBITS(MEX,LEG,BON) ;, /* OPTCD(LRD) */ 09500003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 09550003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 09600003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 09650003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 09700003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 09750003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 09800003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 09850003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 09900003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 09950003 ?BBITS(RSV) ;, /* RESERVED FOR VSAM */ 10000003 ?BBITS(RSV) ;), /* RESERVED FOR VSAM */ 10050003 2 BSTMASK CHAR(1) INIT( /* BIT MASK */ 10100003 ?BIT(0);, /* ATRB(KSDS) */ 10150003 ?BIT(0);, /* ATRB(ESDS) */ 10200003 ?BIT(1);, /* ATRB(WCK) */ 10250003 ?BIT(2);, /* ATRB(SSWD) */ 10300003 ?BIT(3);, /* ATRB(REPL) */ 10350003 ?BIT(6);, /* ATRB(RRDS) */ 10400003 ?BIT(7);, /* ATRB(SPAN) */ 10450003 ?BIT(0);, /* ATRB(UNQ) */ 10500003 ?BIT(0);, /* MACRF(KEY) */ 10550003 ?BIT(1);, /* MACRF(ADR) */ 10600003 ?BIT(2);, /* MACRF(CNV) */ 10650003 ?BIT(3);, /* MACRF(SEQ) */ 10700003 ?BIT(3);, /* MACRF(SKP) */ 10750003 ?BIT(4);, /* MACRF(DIR) */ 10800003 ?BIT(5);, /* MACRF(IN) */ 10850003 ?BIT(6);, /* MACRF(OUT) */ 10900003 ?BIT(7);, /* MACRF(NUB) */ 10950003 ?BIT(7);, /* MACRF(UBF) */ 11000003 ?BIT(4);, /* MACRF(LOGON) */ 11050003 ?BIT(4);, /* MACRF(NLOGON) */ 11100003 0 , /* RESERVED FOR VSAM */ 11150003 ?BIT(6);, /* MACRF(DDN) */ 11200003 ?BIT(6);, /* MACRF(DSN) */ 11250003 ?BIT(7);, /* MACRF(NRM) */ 11300003 ?BIT(7);, /* MACRF(AIX) */ 11350003 ?BIT(1);, /* MACRF(NSR) */ 11400003 ?BIT(1);, /* MACRF(LSR) */ 11450003 ?BIT(2);, /* MACRF(GSR) */ 11500003 ?BIT(3);, /* MACRF(NCI) */ 11550003 ?BIT(3);, /* MACRF(ICI) */ 11600003 ?BIT(4);, /* MACRF(NDF) */ 11650003 ?BIT(4);, /* MACRF(DFR) */ 11700003 ?BIT(5);, /* MACRF(NIS) */ 11750003 ?BIT(5);, /* MACRF(SIS) */ 11800003 ?BIT(6);, /* MACRF(NFX) */ 11850003 ?BIT(6);, /* MACRF(CFX) */ 11900003 ?BIT(5);, /* MACRF(RST) */ 11910003 ?BIT(5);, /* MACRF(NRS) */ 11920003 ?BIT(6);, /* BRANCH(YES) */ 11950003 ?BIT(6);, /* BRANCH(NO) */ 12000003 ?BIT(3);, /* CATALOG(YES) */ 12050003 ?BIT(3);, /* CATALOG(NO) */ 12100003 ?BIT(4);, /* CRA(SCRA) */ 12150003 ?BIT(5);, /* CRA(UCRA) */ 12200003 ?BIT(3);, /* OFLAGS(OPEN) */ 12250003 ?BIT(2);, /* OPENOBJ(AIX) */ 12300003 ?BIT(0);, /* OPENOBJ(PATH) */ 12350003 ?BIT(3);, /* OPENOBJ(BASE) */ 12400003 ?BIT(0);, /* DATAFLG(UNSOL) */ 12450003 ?BIT(2);, /* DATAFLG(EOB) */ 12500003 ?BIT(3);, /* DATAFLG(EOM) */ 12550003 ?BIT(4);, /* DATAFLG(EOT) */ 12600003 ?BIT(5);, /* DATAFLG(LOGOFF) */ 12650003 ?BIT(6);, /* DATAFLG(LG) */ 12700003 ?BIT(7);, /* DATAFLG(SOH) */ 12750003 ?BIT(0);, /* OPTCD(KEY) */ 12800003 ?BIT(1);, /* OPTCD(ADR) */ 12850003 ?BIT(2);, /* OPTCD(CNV) */ 12900003 ?BIT(2);, /* OPTCD(SEQ) */ 12950003 ?BIT(1);, /* OPTCD(DIR) */ 13000003 ?BIT(3);, /* OPTCD(SKP) */ 13050003 ?BIT(4);, /* OPTCD(SYN) */ 13100003 ?BIT(4);, /* OPTCD(ASY) */ 13150003 ?BIT(6);, /* OPTCD(NUP) */ 13200003 ?BIT(6);, /* OPTCD(UPD) */ 13250003 ?BIT(7);, /* OPTCD(NSP) */ 13300003 ?BIT(5);, /* OPTCD(KEQ) */ 13350003 ?BIT(5);, /* OPTCD(KGE) */ 13400003 ?BIT(6);, /* OPTCD(FKS) */ 13450003 ?BIT(6);, /* OPTCD(GEN) */ 13500003 ?BIT(0);, /* OPTCD(MVE) */ 13550003 ?BIT(0);, /* OPTCD(LOC) */ 13600003 ?BIT(3);, /* OPTCD(FWD) */ 13650003 ?BIT(3);, /* OPTCD(AWD) */ 13700003 ?BIT(4);, /* OPTCD(ARD) */ 13750003 ?BIT(4);, /* OPTCD(LRD) */ 13800003 0 , /* RESERVED FOR VSAM */ 13850003 0 , /* RESERVED FOR VSAM */ 13900003 0 , /* RESERVED FOR VSAM */ 13950003 0 , /* RESERVED FOR VSAM */ 14000003 0 , /* RESERVED FOR VSAM */ 14050003 0 , /* RESERVED FOR VSAM */ 14100003 0 , /* RESERVED FOR VSAM */ 14150003 0 , /* RESERVED FOR VSAM */ 14200003 0 , /* RESERVED FOR VSAM */ 14250003 0 , /* RESERVED FOR VSAM */ 14300003 0 ), /* RESERVED FOR VSAM */ 14350003 2 BSTOFF FIXED(15) INIT( /* BYTE OFFSET */ 14400003 ADDR(AMDATTR )-ADDR(IDAAMDSB), /* ATRB(KSDS) */ 14450003 ADDR(AMDATTR )-ADDR(IDAAMDSB), /* ATRB(CSDS) */ 14500003 ADDR(AMDATTR )-ADDR(IDAAMDSB), /* ATRB(WCK) */ 14550003 ADDR(AMDATTR )-ADDR(IDAAMDSB), /* ATRB(SSWD) */ 14600003 ADDR(AMDATTR )-ADDR(IDAAMDSB), /* ATRB(REPL) */ 14650003 ADDR(AMDATTR )-ADDR(IDAAMDSB), /* ATRB(RRDS) */ 14700003 ADDR(AMDATTR )-ADDR(IDAAMDSB), /* ATRB(SPAN) */ 14750003 ADDR(AMDATTR3)-ADDR(IDAAMDSB), /* ATRB(UNQ) */ 14800003 ADDR(ACBMACR1)-ADDR(IFGACB ), /* MACRF(KEY) */ 14850003 ADDR(ACBMACR1)-ADDR(IFGACB ), /* MACRF(ADR) */ 14900003 ADDR(ACBMACR1)-ADDR(IFGACB ), /* MACRF(CNV) */ 14950003 ADDR(ACBMACR1)-ADDR(IFGACB ), /* MACRF(SEQ) */ 15000003 ADDR(ACBMACR2)-ADDR(IFGACB ), /* MACRF(SKP) */ 15050003 ADDR(ACBMACR1)-ADDR(IFGACB ), /* MACRF(DIR) */ 15100003 ADDR(ACBMACR1)-ADDR(IFGACB ), /* MACRF(IN) */ 15150003 ADDR(ACBMACR1)-ADDR(IFGACB ), /* MACRF(OUT) */ 15200003 ADDR(ACBMACR1)-ADDR(IFGACB ), /* MACRF(NUB) */ 15250003 ADDR(ACBMACR1)-ADDR(IFGACB ), /* MACRF(UBF) */ 15300003 ADDR(ACBMACR2)-ADDR(IFGACB ), /* MACRF(LOGON) */ 15350003 ADDR(ACBMACR2)-ADDR(IFGACB ), /* MACRF(NLOGON) */ 15400003 0 , /* RESERVED FOR VSAM */ 15450003 ADDR(ACBMACR2)-ADDR(IFGACB ), /* MACRF(DDN) */ 15500003 ADDR(ACBMACR2)-ADDR(IFGACB ), /* MACRF(DSN) */ 15550003 ADDR(ACBMACR2)-ADDR(IFGACB ), /* MACRF(NRM) */ 15600003 ADDR(ACBMACR2)-ADDR(IFGACB ), /* MACRF(AIX) */ 15650003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(NSR) */ 15700003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(LSR) */ 15750003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(GSR) */ 15800003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(NCI) */ 15850003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(ICI) */ 15900003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(NDF) */ 15950003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(DFR) */ 16000003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(NIS) */ 16050003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(SIS) */ 16100003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(NFX) */ 16150003 ADDR(ACBMACR3)-ADDR(IFGACB ), /* MACRF(CFX) */ 16200003 ADDR(ACBMACR2)-ADDR(IFGACB ), /* MACRF(RST) */ 16210003 ADDR(ACBMACR2)-ADDR(IFGACB ), /* MACRF(NRS) */ 16220003 ADDR(RPLEXTD1)-ADDR(IFGRPL ), /* BRANCH(YES) */ 16250003 ADDR(RPLEXTD1)-ADDR(IFGRPL ), /* BRANCH(NO) */ 16300003 ADDR(ACBINFLG)-ADDR(IFGACB ), /* CATALOG(YES) */ 16350003 ADDR(ACBINFLG)-ADDR(IFGACB ), /* CATALOG(NO) */ 16400003 ADDR(ACBINFLG)-ADDR(IFGACB ), /* CRA(SCRA) */ 16450003 ADDR(ACBINFLG)-ADDR(IFGACB ), /* CRA(UCRA) */ 16500003 ADDR(ACBOFLGS)-ADDR(IFGACB ), /* OFLAGS(OPEN) */ 16550003 ADDR(AMBLTYPE)-ADDR(IDAAMBL ), /* OPENOBJ(AIX) */ 16600003 ADDR(AMBLTYPE)-ADDR(IDAAMBL ), /* OPENOBJ(PATH) */ 16650003 ADDR(AMBLTYPE)-ADDR(IDAAMBL ), /* OPENOBJ(BASE) */ 16700003 ADDR(RPLFDB3 )-ADDR(IFGRPL ), /* DATAFLG(UNSOL) */ 16750003 ADDR(RPLFDB3 )-ADDR(IFGRPL ), /* DATAFLG(EOB) */ 16800003 ADDR(RPLFDB3 )-ADDR(IFGRPL ), /* DATAFLG(EOM) */ 16850003 ADDR(RPLFDB3 )-ADDR(IFGRPL ), /* DATAFLG(EOT) */ 16900003 ADDR(RPLFDB3 )-ADDR(IFGRPL ), /* DATAFLG(LOGOFF) */ 16950003 ADDR(RPLFDB3 )-ADDR(IFGRPL ), /* DATAFLG(LG) */ 17000003 ADDR(RPLFDB3 )-ADDR(IFGRPL ), /* DATAFLG(SOH) */ 17050003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(KEY) */ 17100003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(ADR) */ 17150003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(CNV) */ 17200003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(SEQ) */ 17250003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(DIR) */ 17300003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(SKP) */ 17350003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(SYN) */ 17400003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(ASY) */ 17450003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(NUP) */ 17500003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(UPD) */ 17550003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(NSP) */ 17600003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(KEQ) */ 17650003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(KGE) */ 17700003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(FKS) */ 17750003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(GEN) */ 17800003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(MVE) */ 17850003 ADDR(RPLOPT1 )-ADDR(IFGRPL ), /* OPTCD(LOC) */ 17900003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(FWD) */ 17950003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(BWD) */ 18000003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(ARD) */ 18050003 ADDR(RPLOPT2 )-ADDR(IFGRPL ), /* OPTCD(LRD) */ 18100003 0 , /* RESERVED FOR VSAM */ 18150003 0 , /* RESERVED FOR VSAM */ 18200003 0 , /* RESERVED FOR VSAM */ 18250003 0 , /* RESERVED FOR VSAM */ 18300003 0 , /* RESERVED FOR VSAM */ 18350003 0 , /* RESERVED FOR VSAM */ 18400003 0 , /* RESERVED FOR VSAM */ 18450003 0 , /* RESERVED FOR VSAM */ 18500003 0 , /* RESERVED FOR VSAM */ 18550003 0 , /* RESERVED FOR VSAM */ 18600003 0 ); /* RESERVED FOR VSAM */ 18650003 /********************************************************************/ 18700003 /* */ 18750003 /* BIT STRING TABLE (PART 2) */ 18800003 /* */ 18850003 /********************************************************************/ 18900003 DCL 1 BST2 (61) FIXED(31) STATIC, 18950003 2 BSTFLGS2 CHAR(1) INIT( /* FLAGS */ 19000003 ?BBITS(MEX,VTM) ;, /* OPTCD(CA) */ 19050003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(CS) */ 19100003 ?BBITS(MEX,VTM) ;, /* OPTCD(ED) */ 19150003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(CD) */ 19200003 ?BBITS(MEX,VTM) ;, /* OPTCD(RELEASE) */ 19250003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(PASS) */ 19300003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(NERASE) */ 19350003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(EAU) */ 19400003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(ERASE) */ 19450003 ?BBITS(MEX,VTM) ;, /* OPTCD(SPEC) */ 19500003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(ANY) */ 19550003 ?BBITS(MEX,VTM) ;, /* OPTCD(NCONV) */ 19600003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(CONV) */ 19650003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(LBT) */ 19700003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(LBM) */ 19750003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(BLK) */ 19800003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(COND) */ 19850003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(UNCOND) */ 19900003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(LOCK) */ 19950003 ?BBITS(RSV) ;, /* RESERVED FOR VTAM */ 20000003 ?BBITS(RSV) ;, /* RESERVED FOR VTAM */ 20050003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(LOGONMSG) */ 20100003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(DEVCHAR) */ 20150003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(TERMS) */ 20200003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(APPSTAT) */ 20250003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(COUNTS) */ 20300003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(RNNAME) */ 20350003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(CIDXLATE) */ 20400003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(TOPLOGON) */ 20450003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(BSCID) */ 20500003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(DISPLAY) */ 20550003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(RELRQ) */ 20600003 ?BBITS(MEX,LEG,VTM) ;, /* OPTCD(NRELRQ) */ 20650003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(Q) */ 20700003 ?BBITS(MEX,LEG,VTM) ;, /* OPTCD(NQ) */ 20750003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(PEND) */ 20800003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(SESSION) */ 20850003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(ACTIVE) */ 20900003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(UNCONDL) */ 20950003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(QUIESCE) */ 21000003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(START) */ 21050003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(STOP) */ 21100003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(ACCEPT) */ 21150003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(ACQUIRE) */ 21200003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(PREEMPT) */ 21250003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(CONALL) */ 21300003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(CONANY) */ 21350003 ?BBITS(MEX,DEF,VTM) ;, /* OPTCD(RECEIVE) */ 21400003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(SEND) */ 21450003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(KEEP) */ 21500003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(TRUNC) */ 21550003 ?BBITS(BON,DEF,MEX,LEG,VTM);, /* OPTCD(NIBTK) */ 21600003 ?BBITS(BON,DEF,MEX,VTM) ;, /* OPTCD(SRCACS) */ 21650003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(CACS) */ 21700003 ?BBITS(BON,MEX,LEG,VTM) ;, /* OPTCD(SR) */ 21750003 ?BBITS(BON,MEX,VTM) ;, /* OPTCD(FMHDR) */ 21800003 ?BBITS(MEX,VTM,LEG,EOB) ;, /* OPTCD(NFMHDR) */ 21850003 ?BBITS(MEX) ;, /* LISTEND(YES) */ 21900003 ?BBITS(BON,MEX,LEG,EOB) ;, /* LISTEND(NO) */ 21950003 ?BBITS(BON,MEX) ;, /* CON(YES) */ 22000003 ?BBITS(MEX,LEG,EOB) ;), /* CON(NO) */ 22050003 2 BSTMASK2 CHAR(1) INIT( /* BIT MASK */ 22100003 ?BIT(0);, /* OPTCD(CA) */ 22150003 ?BIT(0);, /* OPTCD(CS) */ 22200003 ?BIT(1);, /* OPTCD(ED) */ 22250003 ?BIT(1);, /* OPTCD(CD) */ 22300003 ?BIT(2);, /* OPTCD(RELEASE) */ 22350003 ?BIT(2);, /* OPTCD(PASS) */ 22400003 ?BIT(3);, /* OPTCD(NERASE) */ 22450003 ?BIT(4);, /* OPTCD(EAU) */ 22500003 ?BIT(5);, /* OPTCD(ERASE) */ 22550003 ?BIT(6);, /* OPTCD(SPEC) */ 22600003 ?BIT(6);, /* OPTCD(ANY) */ 22650003 ?BIT(7);, /* OPTCD(NCONV) */ 22700003 ?BIT(7);, /* OPTCD(CONV) */ 22750003 ?BIT(2);, /* OPTCD(LBT) */ 22800003 ?BIT(1);, /* OPTCD(LBM) */ 22850003 ?BIT(0);, /* OPTCD(BLK) */ 22900003 ?BIT(3);, /* OPTCD(COND) */ 22950003 ?BIT(4);, /* OPTCD(UNCOND) */ 23000003 ?BIT(5);, /* OPTCD(LOCK) */ 23050003 0 , /* RESERVED FOR VTAM */ 23100003 0 , /* RESERVED FOR VTAM */ 23150003 ?BIT(0);, /* OPTCD(LOGONMSG) */ 23200003 ?BIT(1);, /* OPTCD(DEVCHAR) */ 23250003 ?BIT(2);, /* OPTCD(TERMS) */ 23300003 ?BIT(4);, /* OPTCD(APPSTAT) */ 23350003 ?BIT(3);, /* OPTCD(COUNTS) */ 23400003 ?BIT(5);, /* OPTCD(RNNAME) */ 23450003 ?BIT(6);, /* OPTCD(CIDXLATE) */ 23500003 ?BIT(7);, /* OPTCD(TOPLOGON) */ 23550003 ?BIT(0);, /* OPTCD(BSCID) */ 23600003 ?BIT(1);, /* OPTCD(DISPLAY) */ 23650003 ?BIT(5);, /* OPTCD(RELRQ) */ 23700003 ?BIT(5);, /* OPTCD(NRELRQ) */ 23750003 ?BIT(3);, /* OPTCD(Q) */ 23800003 ?BIT(3);, /* OPTCD(NQ) */ 23850003 ?BIT(3);, /* OPTCD(PEND) */ 23900003 ?BIT(4);, /* OPTCD(SESSION) */ 23950003 ?BIT(5);, /* OPTCD(ACTIVE) */ 24000003 ?BIT(6);, /* OPTCD(UNCONDL) */ 24050003 ?BIT(0);, /* OPTCD(QUIESCE) */ 24100003 ?BIT(1);, /* OPTCD(START) */ 24150003 ?BIT(2);, /* OPTCD(STOP) */ 24200003 ?BIT(1);, /* OPTCD(ACCEPT) */ 24250003 ?BIT(0);, /* OPTCD(ACQUIRE) */ 24300003 ?BIT(2);, /* OPTCD(PREEMPT) */ 24350003 ?BIT(0);, /* OPTCD(CONALL) */ 24400003 ?BIT(1);, /* OPTCD(CONANY) */ 24450003 ?BIT(0);, /* OPTCD(RECEIVE) */ 24500003 ?BIT(0);, /* OPTCD(SEND) */ 24550003 ?BIT(1);, /* OPTCD(KEEP) */ 24600003 ?BIT(2);, /* OPTCD(TRUNC) */ 24650003 ?BIT(3);, /* OPTCD(NIBTK) */ 24700003 ?BIT(4);, /* OPTCD(SRCACS) */ 24750003 ?BIT(5);, /* OPTCD(CACS) */ 24800003 ?BIT(6);, /* OPTCD(SR) */ 24850003 ?BIT(7);, /* OPTCD(FMHDR) */ 24900003 ?BIT(7);, /* OPTCD(NFMHDR) */ 24950003 ?BIT(0);, /* LISTEND(YES) */ 25000003 ?BIT(0);, /* LISTEND(NO) */ 25050003 ?BIT(1);, /* CON(YES) */ 25100003 ?BIT(1);), /* CON(NO) */ 25150003 2 BSTOFF2 FIXED(15) INIT( /* BYTE OFFSET */ 25200003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(CA) */ 25250003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(CS) */ 25300003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(ED) */ 25350003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(CD) */ 25400003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(RELEASE) */ 25450003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(PASS) */ 25500003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(NERASE) */ 25550003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(EAU) */ 25600003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(ERASE) */ 25650003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(SPEC) */ 25700003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(ANY) */ 25750003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(NCONV) */ 25800003 ADDR(RPLOPT5 )-ADDR(IFGRPL ), /* OPTCD(CONV) */ 25850003 ADDR(RPLOPT6 )-ADDR(IFGRPL ), /* OPTCD(LBT) */ 25900003 ADDR(RPLOPT6 )-ADDR(IFGRPL ), /* OPTCD(LBM) */ 25950003 ADDR(RPLOPT6 )-ADDR(IFGRPL ), /* OPTCD(BLK) */ 26000003 ADDR(RPLOPT6 )-ADDR(IFGRPL ), /* OPTCD(COND) */ 26050003 ADDR(RPLOPT6 )-ADDR(IFGRPL ), /* OPTCD(UNCOND) */ 26100003 ADDR(RPLOPT6 )-ADDR(IFGRPL ), /* OPTCD(LOCK) */ 26150003 0 , /* RESERVED FOR VTAM */ 26200003 0 , /* RESERVED FOR VTAM */ 26250003 ADDR(RPLOPT9 )-ADDR(RPLVTEXT)+ /* OPTCD(LOGONMSG) */ 26300003 LENGTH(RPLCOMN), 26350003 ADDR(RPLOPT9 )-ADDR(RPLVTEXT)+ /* OPTCD(DEVCHAR) */ 26400003 LENGTH(RPLCOMN), 26450003 ADDR(RPLOPT9 )-ADDR(RPLVTEXT)+ /* OPTCD(TERMS) */ 26500003 LENGTH(RPLCOMN), 26550003 ADDR(RPLOPT9 )-ADDR(RPLVTEXT)+ /* OPTCD(APPSTAT) */ 26600003 LENGTH(RPLCOMN), 26650003 ADDR(RPLOPT9 )-ADDR(RPLVTEXT)+ /* OPTCD(COUNTS) */ 26700003 LENGTH(RPLCOMN), 26750003 ADDR(RPLOPT9 )-ADDR(RPLVTEXT)+ /* OPTCD(RNNAME) */ 26800003 LENGTH(RPLCOMN), 26850003 ADDR(RPLOPT9 )-ADDR(RPLVTEXT)+ /* OPTCD(CIDXLATE) */ 26900003 LENGTH(RPLCOMN), 26950003 ADDR(RPLOPT9 )-ADDR(RPLVTEXT)+ /* OPTCD(TOPLOGON) */ 27000003 LENGTH(RPLCOMN), 27050003 ADDR(RPLOPT10)-ADDR(RPLVTEXT)+ /* OPTCD(BSCID) */ 27100003 LENGTH(RPLCOMN), 27150003 ADDR(RPLOPT10)-ADDR(RPLVTEXT)+ /* OPTCD(DISPLAY) */ 27200003 LENGTH(RPLCOMN), 27250003 ADDR(RPLOPT7 )-ADDR(IFGRPL ), /* OPTCD(RELRQ) */ 27300003 ADDR(RPLOPT7 )-ADDR(IFGRPL ), /* OPTCD(NRELRQ) */ 27350003 ADDR(RPLOPT7 )-ADDR(IFGRPL ), /* OPTCD(Q) */ 27400003 ADDR(RPLOPT7 )-ADDR(IFGRPL ), /* OPTCD(NQ) */ 27450003 ADDR(RPLOPT8 )-ADDR(IFGRPL ), /* OPTCD(PEND) */ 27500003 ADDR(RPLOPT8 )-ADDR(IFGRPL ), /* OPTCD(SESSION) */ 27550003 ADDR(RPLOPT8 )-ADDR(IFGRPL ), /* OPTCD(ACTIVE) */ 27600003 ADDR(RPLOPT8 )-ADDR(IFGRPL ), /* OPTCD(UNCONDL) */ 27650003 ADDR(RPLOPT11)-ADDR(RPLVTEXT)+ /* OPTCD(QUIESCE) */ 27700003 LENGTH(RPLCOMN), 27750003 ADDR(RPLOPT11)-ADDR(RPLVTEXT)+ /* OPTCD(START) */ 27800003 LENGTH(RPLCOMN), 27850003 ADDR(RPLOPT11)-ADDR(RPLVTEXT)+ /* OPTCD(STOP) */ 27900003 LENGTH(RPLCOMN), 27950003 ADDR(RPLOPT8 )-ADDR(IFGRPL ), /* OPTCD(ACCEPT) */ 28000003 ADDR(RPLOPT8 )-ADDR(IFGRPL ), /* OPTCD(ACQUIRE) */ 28050003 ADDR(RPLOPT8 )-ADDR(IFGRPL ), /* OPTCD(PREEMPT) */ 28100003 ADDR(RPLOPT7 )-ADDR(IFGRPL ), /* OPTCD(CONALL) */ 28150003 ADDR(RPLOPT7 )-ADDR(IFGRPL ), /* OPTCD(CONANY) */ 28200003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(RECEIVE) */ 28250003 LENGTH(RPLCOMN), 28300003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(SEND) */ 28350003 LENGTH(RPLCOMN), 28400003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(KEEP) */ 28450003 LENGTH(RPLCOMN), 28500003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(TRUNC) */ 28550003 LENGTH(RPLCOMN), 28600003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(NIBTK) */ 28650003 LENGTH(RPLCOMN), 28700003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(SRCACS) */ 28750003 LENGTH(RPLCOMN), 28800003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(CACS) */ 28850003 LENGTH(RPLCOMN), 28900003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(SR) */ 28950003 LENGTH(RPLCOMN), 29000003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(FMHDR) */ 29050003 LENGTH(RPLCOMN), 29100003 ADDR(RPLOPT12)-ADDR(RPLVTEXT)+ /* OPTCD(NFMHDR) */ 29150003 LENGTH(RPLCOMN), 29200003 ADDR(NIBFLG1 )-ADDR(ISTNIB ), /* LISTEND(YES) */ 29250003 ADDR(NIBFLG1 )-ADDR(ISTNIB ), /* LISTEND(NO) */ 29300003 ADDR(NIBFLG1 )-ADDR(ISTNIB ), /* CON(YES) */ 29350003 ADDR(NIBFLG1 )-ADDR(ISTNIB )); /* CON(NO) */ 29400003 /********************************************************************/ 29450003 /* */ 29500003 /* BIT STRING TABLE (PART 3) */ 29550003 /* */ 29600003 /********************************************************************/ 29650003 DCL 1 BST3 (60) FIXED(31) STATIC, 29700003 2 BSTFLGS3 CHAR(1) INIT( /* FLAGS */ 29750003 ?BBITS(BON,MEX) ;, /* PROC(MSG) */ 29800003 ?BBITS(BON,MEX) ;, /* PROC(TRANS) */ 29850003 ?BBITS(BON,MEX) ;, /* PROC(CONT) */ 29900003 ?BBITS(BON,MEX,LEG) ;, /* PROC(BLOCK) */ 29950003 ?BBITS(BON,MEX) ;, /* PROC(NLGIN) */ 30000003 ?BBITS(MEX,LEG) ;, /* PROC(LGIN) */ 30050003 ?BBITS(MEX) ;, /* PROC(LGOUT) */ 30100003 ?BBITS(BON,MEX,LEG) ;, /* PROC(NLGOUT) */ 30150003 ?BBITS(MEX) ;, /* PROC(NCONFTXT) */ 30200003 ?BBITS(BON,MEX,LEG) ;, /* PROC(CONFTXT) */ 30250003 ?BBITS(MEX) ;, /* PROC(TMFLL) */ 30300003 ?BBITS(BON,MEX,LEG) ;, /* PROC(NTMFLL) */ 30350003 ?BBITS(MEX) ;, /* PROC(ERPIN) */ 30400003 ?BBITS(BON,MEX,LEG) ;, /* PROC(NERPIN) */ 30450003 ?BBITS(MEX) ;, /* PROC(ERPOUT) */ 30500003 ?BBITS(BON,MEX,LEG) ;, /* PROC(NERPOUT) */ 30550003 ?BBITS(MEX) ;, /* PROC(NMONITOR) */ 30600003 ?BBITS(BON,MEX,LEG) ;, /* PROC(MONITOR) */ 30650003 ?BBITS(MEX) ;, /* PROC(NELC) */ 30700003 ?BBITS(BON,MEX,LEG) ;, /* PROC(ELC) */ 30750003 ?BBITS(MEX) ;, /* PROC(NEIB) */ 30800003 ?BBITS(BON,MEX,LEG) ;, /* PROC(EIB) */ 30850003 ?BBITS(MEX) ;, /* PROC(TIMEOUT) */ 30900003 ?BBITS(BON,MEX,LEG) ;, /* PROC(NTIMEOUT) */ 30950003 ?BBITS(MEX) ;, /* PROC(NASYIPX) */ 31000003 ?BBITS(BON,MEX,LEG) ;, /* PROC(ASYIPX) */ 31050003 ?BBITS(MEX) ;, /* PROC(KEEP) */ 31100003 ?BBITS(BON,MEX,LEG) ;, /* PROC(TRUNC) */ 31150003 ?BBITS(MEX) ;, /* PROC(NBINARY) */ 31200003 ?BBITS(BON,MEX,LEG) ;, /* PROC(BINARY) */ 31250003 ?BBITS(MEX,DEF) ;, /* PROC(NDFASYX) */ 31300003 ?BBITS(BON,MEX,LEG) ;, /* PROC(DFASYX) */ 31350003 ?BBITS(MEX,DEF) ;, /* PROC(NRESPX) */ 31400003 ?BBITS(BON,MEX,LEG,EOB) ;, /* PROC(RESPX) */ 31450003 ?BBITS(MEX,DEF) ;, /* SDT(SYSTEM) */ 31500003 ?BBITS(BON,MEX,LEG,EOB) ;, /* SDT(APPL) */ 31550003 ?BBITS(MEX,VTM,BON) ;, /* BRACKET(BB) */ 31600003 ?BBITS(MEX,LEG,DEF,VTM) ;, /* BRACKET(NBB) */ 31650003 ?BBITS(MEX,VTM,BON) ;, /* BRACKET(EB) */ 31700003 ?BBITS(MEX,LEG,DEF,VTM,EOB);, /* BRACKET(NEB) */ 31750003 ?BBITS(MEX,DEF,VTM) ;, /* CHNGDIR(NCMD) */ 31800003 ?BBITS(BON,MEX,LEG,VTM) ;, /* CHNGDIR(CMD) */ 31850003 ?BBITS(MEX,DEF,VTM) ;, /* CHNGDIR(NREQ) */ 31900003 ?BBITS(BON,MEX,LEG,VTM,EOB);, /* CHNGDIR(REQ) */ 31950003 ?BBITS(MEX,DEF,VTM) ;, /* STYPE(REQ) */ 32000003 ?BBITS(BON,MEX,LEG,VTM,EOB);, /* STYPE(RESP) */ 32050003 ?BBITS(MEX,DEF,VTM) ;, /* RTYPE(NRESP) */ 32100003 ?BBITS(BON,MEX,LEG,VTM) ;, /* RTYPE(RESP) */ 32150003 ?BBITS(MEX,DEF,VTM) ;, /* RTYPE(DFSYN) */ 32200003 ?BBITS(BON,MEX,LEG,VTM) ;, /* RTYPE(NDFSYN) */ 32250003 ?BBITS(MEX,DEF,VTM) ;, /* RTYPE(NDFASY) */ 32300003 ?BBITS(BON,MEX,LEG,VTM) ;, /* RTYPE(DFASY) */ 32350003 ?BBITS(MEX,DEF,VTM) ;, /* RTYPE(NREAD) */ 32400003 ?BBITS(BON,MEX,LEG,VTM,EOB);, /* RTYPE(READ) */ 32450003 ?BBITS(BON,MEX,VTM) ;, /* CHAIN(FIRST) */ 32500003 ?BBITS(BON,MEX,VTM) ;, /* CHAIN(MIDDLE) */ 32550003 ?BBITS(BON,MEX,VTM) ;, /* CHAIN(LAST) */ 32600003 ?BBITS(BON,MEX,DEF,VTM,EOB,LEG);, /* CHAIN(ONLY) */ 32650003 ?BBITS(MEX,DEF,VTM) ;, /* POST(RESP) */ 32700003 ?BBITS(BON,MEX,LEG,VTM,EOB);), /* POST(SCHED) */ 32750003 2 BSTMASK3 CHAR(1) INIT( /* BIT MASK */ 32800003 ?BIT(5);, /* PROC(MSG) */ 32850003 ?BIT(6);, /* PROC(TRANS) */ 32900003 ?BIT(7);, /* PROC(CONT) */ 32950003 ?BIT(4);, /* PROC(BLOCK) */ 33000003 ?BIT(2);, /* PROC(NLGIN) */ 33050003 ?BIT(2);, /* PROC(LGIN) */ 33100003 ?BIT(2);, /* PROC(LGOUT) */ 33150003 ?BIT(2);, /* PROC(NLGOUT) */ 33200003 ?BIT(7);, /* PROC(NCONFTXT) */ 33250003 ?BIT(7);, /* PROC(CONFTXT) */ 33300003 ?BIT(5);, /* PROC(TMFLL) */ 33350003 ?BIT(5);, /* PROC(NTMFLL) */ 33400003 ?BIT(1);, /* PROC(ERPIN) */ 33450003 ?BIT(1);, /* PROC(NERPIN) */ 33500003 ?BIT(1);, /* PROC(ERPOUT) */ 33550003 ?BIT(1);, /* PROC(NERPOUT) */ 33600003 ?BIT(5);, /* PROC(NMONITOR) */ 33650003 ?BIT(5);, /* PROC(MONITOR) */ 33700003 ?BIT(6);, /* PROC(NELC) */ 33750003 ?BIT(6);, /* PROC(ELC) */ 33800003 ?BIT(0);, /* PROC(NEIB) */ 33850003 ?BIT(0);, /* PROC(EIB) */ 33900003 ?BIT(3);, /* PROC(TIMEOUT) */ 33950003 ?BIT(3);, /* PROC(NTIMEOUT) */ 34000003 ?BIT(0);, /* PROC(NASYIPX) */ 34050003 ?BIT(0);, /* PROC(ASYIPX) */ 34100003 ?BIT(1);, /* PROC(KEEP) */ 34150003 ?BIT(1);, /* PROC(TRUNC) */ 34200003 ?BIT(2);, /* PROC(NBINARY) */ 34250003 ?BIT(2);, /* PROC(BINARY) */ 34300003 ?BIT(3);, /* PROC(NDFASYX) */ 34350003 ?BIT(3);, /* PROC(DFASYX) */ 34400003 ?BIT(4);, /* PROC(NRESPX) */ 34450003 ?BIT(4);, /* PROC(RESPX) */ 34500003 ?BIT(2);, /* SDT(SYSTEM) */ 34550003 ?BIT(2);, /* SDT(APPL) */ 34600003 ?BIT(0);, /* BRACKET(BB) */ 34650003 ?BIT(0);, /* BRACKET(NBB) */ 34700003 ?BIT(1);, /* BRACKET(EB) */ 34750003 ?BIT(1);, /* BRACKET(NEB) */ 34800003 ?BIT(2);, /* CHNGDIR(NCMD) */ 34850003 ?BIT(2);, /* CHNGDIR(CMD) */ 34900003 ?BIT(3);, /* CHNGDIR(NREQ) */ 34950003 ?BIT(3);, /* CHNGDIR(REQ) */ 35000003 ?BIT(0);, /* STYPE(REQ) */ 35050003 ?BIT(0);, /* STYPE(RESP) */ 35100003 ?BIT(4);, /* RTYPE(NRESP) */ 35150003 ?BIT(4);, /* RTYPE(RESP) */ 35200003 ?BIT(5);, /* RTYPE(DFSYN) */ 35250003 ?BIT(5);, /* RTYPE(NDFSYN) */ 35300003 ?BIT(6);, /* RTYPE(NDFASY) */ 35350003 ?BIT(6);, /* RTYPE(DFASY) */ 35400003 ?BIT(7);, /* RTYPE(NREAD) */ 35450003 ?BIT(7);, /* RTYPE(READ) */ 35500003 ?BIT(0);, /* CHAIN(FIRST) */ 35550003 ?BIT(1);, /* CHAIN(MIDDLE) */ 35600003 ?BIT(2);, /* CHAIN(LAST) */ 35650003 ?BIT(3);, /* CHAIN(ONLY) */ 35700003 ?BIT(0);, /* POST(RESP) */ 35750003 ?BIT(0);), /* POST(SCHED) */ 35800003 2 BSTOFF3 FIXED(15) INIT( /* BYTE OFFSET */ 35850003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 35900003 ADDR(PROPROC4)-ADDR(ISTPROCD), /* PROC(MSG) */ 35950003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36000003 ADDR(PROPROC4)-ADDR(ISTPROCD), /* PROC(TRANS) */ 36050003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36100003 ADDR(PROPROC4)-ADDR(ISTPROCD), /* PROC(CONT) */ 36150003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36200003 ADDR(PROPROC4)-ADDR(ISTPROCD), /* PROC(BLOCK) */ 36250003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36300003 ADDR(PROPROC3)-ADDR(ISTPROCD), /* PROC(NLGIN) */ 36350003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36400003 ADDR(PROPROC3)-ADDR(ISTPROCD), /* PROC(LGIN) */ 36450003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36500003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(LGOUT) */ 36550003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36600003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(NLGOUT) */ 36650003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36700003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(NCONFTXT) */ 36750003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36800003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(CONFTXT) */ 36850003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 36900003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(TMFLL) */ 36950003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37000003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(NTMFLL) */ 37050003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37100003 ADDR(PROPROC3)-ADDR(ISTPROCD), /* PROC(ERPIN) */ 37150003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37200003 ADDR(PROPROC3)-ADDR(ISTPROCD), /* PROC(NERPIN) */ 37250003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37300003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(ERPOUT) */ 37350003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37400003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(NERPOUT) */ 37450003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37500003 ADDR(PROPROC3)-ADDR(ISTPROCD), /* PROC(NMONITOR) */ 37550003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37600003 ADDR(PROPROC3)-ADDR(ISTPROCD), /* PROC(MONITOR) */ 37650003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37700003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(NELC) */ 37750003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37800003 ADDR(PROPROC2)-ADDR(ISTPROCD), /* PROC(ELC) */ 37850003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 37900003 ADDR(PROPROC4)-ADDR(ISTPROCD), /* PROC(NEIB) */ 37950003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38000003 ADDR(PROPROC4)-ADDR(ISTPROCD), /* PROC(EIB) */ 38050003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38100003 ADDR(PROPROC3)-ADDR(ISTPROCD), /* PROC(TIMEOUT) */ 38150003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38200003 ADDR(PROPROC3)-ADDR(ISTPROCD), /* PROC(NTIMEOUT) */ 38250003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38300003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(NASYIPX) */ 38350003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38400003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(ASYIPX) */ 38450003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38500003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(KEEP) */ 38550003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38600003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(TRUNC) */ 38650003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38700003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(NBINARY) */ 38750003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38800003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(BINARY) */ 38850003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 38900003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(NDFASYX) */ 38950003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 39000003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(DFASYX) */ 39050003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 39100003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(NRESPX) */ 39150003 ADDR(NIBPROCD)-ADDR(ISTNIB )+ 39200003 ADDR(PROPROC1)-ADDR(ISTPROCD), /* PROC(RESPX) */ 39250003 ADDR(NIBFLG1 )-ADDR(ISTNIB ), /* SDT(SYSTEM) */ 39300003 ADDR(NIBFLG1 )-ADDR(ISTNIB ), /* SDT(APPL) */ 39350003 ADDR(RPLRH3 )-ADDR(RPLOF16 )+ 39400003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* BRACKET(BB) */ 39450003 ADDR(RPLRH3 )-ADDR(RPLOF16 )+ 39500003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* BRACKET(NBB) */ 39550003 ADDR(RPLRH3 )-ADDR(RPLOF16 )+ 39600003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* BRACKET(EB) */ 39650003 ADDR(RPLRH3 )-ADDR(RPLOF16 )+ 39700003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* BRACKET(NEB) */ 39750003 ADDR(RPLRH3 )-ADDR(RPLOF16 )+ 39800003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CHNGDIR(NCMD) */ 39850003 ADDR(RPLRH3 )-ADDR(RPLOF16 )+ 39900003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CHNGDIR(CMD) */ 39950003 ADDR(RPLRH3 )-ADDR(RPLOF16 )+ 40000003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CHNGDIR(NREQ) */ 40050003 ADDR(RPLRH3 )-ADDR(RPLOF16 )+ 40100003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CHNGDIR(REQ) */ 40150003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 40200003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* STYPE(REQ) */ 40250003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 40300003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* STYPE(RESP) */ 40350003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 40400003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RTYPE(NRESP) */ 40450003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 40500003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RTYPE(RESP) */ 40550003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 40600003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RTYPE(DFSYN) */ 40650003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 40700003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RTYPE(NDFSYN) */ 40750003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 40800003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RTYPE(NDFASY) */ 40850003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 40900003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RTYPE(DFASY) */ 40950003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 41000003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RTYPE(NREAD) */ 41050003 ADDR(RPLSRTYP)-ADDR(RPLOF16 )+ 41100003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RTYPE(READ) */ 41150003 ADDR(RPLCHN )-ADDR(RPLOF16 )+ 41200003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CHAIN(FIRST) */ 41250003 ADDR(RPLCHN )-ADDR(RPLOF16 )+ 41300003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CHAIN(MIDDLE) */ 41350003 ADDR(RPLCHN )-ADDR(RPLOF16 )+ 41400003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CHAIN(LAST) */ 41450003 ADDR(RPLCHN )-ADDR(RPLOF16 )+ 41500003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CHAIN(ONLY) */ 41550003 ADDR(RPLVTFL2)-ADDR(RPLOF16 )+ 41600003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* POST(RESP) */ 41650003 ADDR(RPLVTFL2)-ADDR(RPLOF16 )+ 41700003 ADDR(RPLKEYLE)-ADDR(IFGRPL )); /* POST(SCHED) */ 41750003 /********************************************************************/ 41800003 /* */ 41850003 /* BIT STRING TABLE (PART 4) */ 41900003 /* */ 41950003 /********************************************************************/ 42000003 DCL 1 BST4 (48) FIXED (31) STATIC, 42050003 2 BSTFLGS4 CHAR(1) INIT( /* FLAGS */ 42100003 ?BBITS(MEX,DEF,VTM) ;, /* RESPOND(NEX) */ 42150003 ?BBITS(BON,MEX,VTM,LEG) ;, /* RESPOND(EX) */ 42200003 ?BBITS(MEX,DEF,VTM) ;, /* RESPOND(FME) */ 42250003 ?BBITS(BON,MEX,VTM,LEG) ;, /* RESPOND(NFME) */ 42300003 ?BBITS(MEX,DEF,VTM) ;, /* RESPOND(NRRN) */ 42350003 ?BBITS(BON,MEX,LEG,VTM,EOB);, /* RESPOND(RRN) */ 42400003 ?BBITS(BON,MEX,DEF,VTM) ;, /* CONTROL(DATA) */ 42450003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(CANCEL) */ 42500003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(QC) */ 42550003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(QEC) */ 42600003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(CHASE) */ 42650003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(RELQ) */ 42700003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(BID) */ 42750003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(RTR) */ 42800003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(LUS) */ 42850003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(SIGNAL) */ 42900003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(SDT) */ 42950003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(CLEAR) */ 43000003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(STSN) */ 43050003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(SHUTD) */ 43100003 ?BBITS(BON,MEX,VTM) ;, /* CONTROL(RQR) */ 43150003 ?BBITS(BON,MEX,LEG,VTM,EOB);, /* CONTROL(RSHUTD) */ 43200003 ?BBITS(BON,MEX,DEF,VTM) ;, /* OBSQAC(SET) */ 43250003 ?BBITS(BON,MEX,VTM) ;, /* OBSQAC(TESTSET) */ 43300003 ?BBITS(BON,MEX,VTM) ;, /* OBSQAC(RESET) */ 43350003 ?BBITS(BON,MEX,VTM) ;, /* OBSQAC(IGNORE) */ 43400003 ?BBITS(BON,MEX,VTM) ;, /* OBSQAC(TESTPOS) */ 43450003 ?BBITS(BON,MEX,VTM) ;, /* OBSQAC(TESTNEG) */ 43500003 ?BBITS(BON,MEX,LEG,VTM,EOB);, /* OBSQAC(INVALID) */ 43550003 ?BBITS(BON,MEX,DEF,VTM) ;, /* IBSQAC(SET) */ 43600003 ?BBITS(BON,MEX,VTM) ;, /* IBSQAC(TESTSET) */ 43650003 ?BBITS(BON,MEX,VTM) ;, /* IBSQAC(RESET) */ 43700003 ?BBITS(BON,MEX,VTM) ;, /* IBSQAC(IGNORE) */ 43750003 ?BBITS(BON,MEX,VTM) ;, /* IBSQAC(TESTPOS) */ 43800003 ?BBITS(BON,MEX,VTM) ;, /* IBSQAC(TESTNEG) */ 43850003 ?BBITS(BON,MEX,LEG,VTM,EOB);, /* IBSQAC(INVALID) */ 43900003 ?BBITS(BON,MEX,VTM) ;, /* SSENSEO(CPM) */ 43950003 ?BBITS(BON,MEX,VTM) ;, /* SSENSEO(STATE) */ 44000003 ?BBITS(BON,MEX,VTM) ;, /* SSENSEO(FI) */ 44050003 ?BBITS(BON,MEX,VTM,LEG,EOB);, /* SSENSEO(RR) */ 44100003 ?BBITS(BON,MEX,VTM) ;, /* SSENSEI(PATH) */ 44150003 ?BBITS(BON,MEX,VTM) ;, /* SSENSEI(CPM) */ 44200003 ?BBITS(BON,MEX,VTM) ;, /* SSENSEI(STATE) */ 44250003 ?BBITS(BON,MEX,VTM) ;, /* SSENSEI(FI) */ 44300003 ?BBITS(BON,MEX,VTM,LEG,EOB);, /* SSENSEI(RR) */ 44350003 ?BBITS(MEX,DEF,VTM) ;, /* SWITCHC(NO) */ 44400003 ?BBITS(BON,MEX,LEG,VTM,EOB);, /* SWITCHC(YES) */ 44450003 ?BBITS(BON,LEG,EOB) ;), /* AIXFLAG(AIXPKP) */ 44500003 2 BSTMASK4 CHAR(1) INIT( /* BIT MASK */ 44600003 ?BIT(5);, /* RESPOND(NEX) */ 44650003 ?BIT(5);, /* RESPOND(EX) */ 44700003 ?BIT(6);, /* RESPOND(FME) */ 44750003 ?BIT(6);, /* RESPOND(NFME) */ 44800003 ?BIT(7);, /* RESPOND(NRRN) */ 44850003 ?BIT(7);, /* RESPOND(RRN) */ 44900003 ?BIT(0);, /* CONTROL(DATA) */ 44950003 ?BIT(1);, /* CONTROL(CANCEL) */ 45000003 ?BIT(2);, /* CONTROL(QC) */ 45050003 ?BIT(3);, /* CONTROL(QEC) */ 45100003 ?BIT(4);, /* CONTROL(CHASE) */ 45150003 ?BIT(5);, /* CONTROL(RELQ) */ 45200003 ?BIT(0);, /* CONTROL(BID) */ 45250003 ?BIT(1);, /* CONTROL(RTR) */ 45300003 ?BIT(2);, /* CONTROL(LUS) */ 45350003 ?BIT(3);, /* CONTROL(SIGNAL) */ 45400003 ?BIT(0);, /* CONTROL(SDT) */ 45450003 ?BIT(1);, /* CONTROL(CLEAR) */ 45500003 ?BIT(2);, /* CONTROL(STSN) */ 45550003 ?BIT(3);, /* CONTROL(SHUTD) */ 45600003 ?BIT(5);, /* CONTROL(RQR) */ 45650003 ?BIT(6);, /* CONTROL(RSHUTD) */ 45700003 ?BIT(0);, /* OBSQAC(SET) */ 45750003 ?BIT(1);, /* OBSQAC(TESTSET) */45800003 ?BIT(2);, /* OBSQAC(RESET) */ 45850003 ?BIT(3);, /* OBSQAC(IGNORE) */ 45900003 ?BIT(4);, /* OBSQAC(TESTPOS) */ 45950003 ?BIT(5);, /* OBSQAC(TESTNEG) */ 46000003 ?BIT(6);, /* OBSQAC(INVALID) */ 46050003 ?BIT(0);, /* IBSQAC(SET) */ 46100003 ?BIT(1);, /* IBSQAC(TESTSET) */46150003 ?BIT(2);, /* IBSQAC(RESET) */ 46200003 ?BIT(3);, /* IBSQAC(IGNORE) */ 46250003 ?BIT(4);, /* IBSQAC(TESTPOS) */ 46300003 ?BIT(5);, /* IBSQAC(TESTNEG) */ 46350003 ?BIT(6);, /* IBSQAC(INVALID) */ 46400003 ?BIT(1);, /* SSENSEO(CPM) */ 46450003 ?BIT(2);, /* SSENSEO(STATE) */ 46500003 ?BIT(3);, /* SSENSEO(FI) */ 46550003 ?BIT(4);, /* SSENSEO(RR) */ 46600003 ?BIT(0);, /* SSENSEI(PATH) */ 46650003 ?BIT(1);, /* SSENSEI(CPM) */ 46700003 ?BIT(2);, /* SSENSEI(STATE) */ 46750003 ?BIT(3);, /* SSENSEI(FI) */ 46800003 ?BIT(4);, /* SSENSEI(RR) */ 46850003 ?BIT(0);, /* SWITCHC(NO) */ 46900003 ?BIT(0);, /* SWITCHC(YES) */ 46950003 ?BIT(0);), /* AIXFLAG(AIXPKP) */ 47000003 2 BSTOFF4 FIXED(15) INIT( /* BYTE OFFSET */ 47100003 ADDR(RPLVTFL2)-ADDR(RPLOF16 )+ 47150003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RESPOND(NEX) */ 47200003 ADDR(RPLVTFL2)-ADDR(RPLOF16 )+ 47250003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RESPOND(EX) */ 47300003 ADDR(RPLVTFL2)-ADDR(RPLOF16 )+ 47350003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RESPOND(FME) */ 47400003 ADDR(RPLVTFL2)-ADDR(RPLOF16 )+ 47450003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RESPOND(NFME) */ 47500003 ADDR(RPLVTFL2)-ADDR(RPLOF16 )+ 47550003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RESPOND(NRRN) */ 47600003 ADDR(RPLVTFL2)-ADDR(RPLOF16 )+ 47650003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* RESPOND(RRN) */ 47700003 ADDR(RPLCNTDF)-ADDR(RPLOF16 )+ 47750003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(DATA) */ 47800003 ADDR(RPLCNTDF)-ADDR(RPLOF16 )+ 47850003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(CANCEL) */ 47900003 ADDR(RPLCNTDF)-ADDR(RPLOF16 )+ 47950003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(QC) */ 48000003 ADDR(RPLCNTDF)-ADDR(RPLOF16 )+ 48050003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(QEC) */ 48100003 ADDR(RPLCNTDF)-ADDR(RPLOF16 )+ 48150003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(CHASE) */ 48200003 ADDR(RPLCNTDF)-ADDR(RPLOF16 )+ 48250003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(RELQ) */ 48300003 ADDR(RPLCNTDC)-ADDR(RPLOF16 )+ 48350003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(BID) */ 48400003 ADDR(RPLCNTDC)-ADDR(RPLOF16 )+ 48450003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(RTR) */ 48500003 ADDR(RPLCNTDC)-ADDR(RPLOF16 )+ 48550003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(LUS) */ 48600003 ADDR(RPLCNTDC)-ADDR(RPLOF16 )+ 48650003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(SIGNAL) */ 48700003 ADDR(RPLCNTSC)-ADDR(RPLOF16 )+ 48750003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(SDT) */ 48800003 ADDR(RPLCNTSC)-ADDR(RPLOF16 )+ 48850003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(CLEAR) */ 48900003 ADDR(RPLCNTSC)-ADDR(RPLOF16 )+ 48950003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(STSN) */ 49000003 ADDR(RPLCNTSC)-ADDR(RPLOF16 )+ 49050003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(SHUTD) */ 49100003 ADDR(RPLCNTSC)-ADDR(RPLOF16 )+ 49150003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(RQR) */ 49200003 ADDR(RPLCNTSC)-ADDR(RPLOF16 )+ 49250003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* CONTROL(RSHUTD) */ 49300003 ADDR(RPLOBSQ )-ADDR(RPLOF60 )+ 49350003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* OBSQAC(SET) */ 49400003 ADDR(RPLOBSQ )-ADDR(RPLOF60 )+ 49450003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* OBSQAC(TESTSET) */ 49500003 ADDR(RPLOBSQ )-ADDR(RPLOF60 )+ 49550003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* OBSQAC(RESET) */ 49600003 ADDR(RPLOBSQ )-ADDR(RPLOF60 )+ 49650003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* OBSQAC(IGNORE) */ 49700003 ADDR(RPLOBSQ )-ADDR(RPLOF60 )+ 49750003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* OBSQAC(TESTPOS) */ 49800003 ADDR(RPLOBSQ )-ADDR(RPLOF60 )+ 49850003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* OBSQAC(TESTNEG) */ 49900003 ADDR(RPLOBSQ )-ADDR(RPLOF60 )+ 49950003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* OBSQAC(INVALID) */ 50000003 ADDR(RPLIBSQ )-ADDR(RPLOF60 )+ 50050003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* IBSQAC(SET) */ 50100003 ADDR(RPLIBSQ )-ADDR(RPLOF60 )+ 50150003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* IBSQAC(TESTSET) */ 50200003 ADDR(RPLIBSQ )-ADDR(RPLOF60 )+ 50250003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* IBSQAC(RESET) */ 50300003 ADDR(RPLIBSQ )-ADDR(RPLOF60 )+ 50350003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* IBSQAC(IGNORE) */ 50400003 ADDR(RPLIBSQ )-ADDR(RPLOF60 )+ 50450003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* IBSQAC(TESTPOS) */ 50500003 ADDR(RPLIBSQ )-ADDR(RPLOF60 )+ 50550003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* IBSQAC(TESTNEG) */ 50600003 ADDR(RPLIBSQ )-ADDR(RPLOF60 )+ 50650003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* IBSQAC(INVALID) */ 50700003 ADDR(RPLSSNSO)-ADDR(RPLVTEXT)+ 50750003 LENGTH(RPLCOMN), /* SSENSEO(CPM) */ 50800003 ADDR(RPLSSNSO)-ADDR(RPLVTEXT)+ 50850003 LENGTH(RPLCOMN), /* SSENSEO(STATE) */ 50900003 ADDR(RPLSSNSO)-ADDR(RPLVTEXT)+ 50950003 LENGTH(RPLCOMN), /* SSENSEO(FI) */ 51000003 ADDR(RPLSSNSO)-ADDR(RPLVTEXT)+ 51050003 LENGTH(RPLCOMN), /* SSENSEO(RR) */ 51100003 ADDR(RPLSSNSI)-ADDR(RPLVTEXT)+ 51150003 LENGTH(RPLCOMN), /* SSENSEI(PATH) */ 51200003 ADDR(RPLSSNSI)-ADDR(RPLVTEXT)+ 51250003 LENGTH(RPLCOMN), /* SSENSEI(CPM) */ 51300003 ADDR(RPLSSNSI)-ADDR(RPLVTEXT)+ 51350003 LENGTH(RPLCOMN), /* SSENSEI(STATE) */ 51400003 ADDR(RPLSSNSI)-ADDR(RPLVTEXT)+ 51450003 LENGTH(RPLCOMN), /* SSENSEI(FI) */ 51500003 ADDR(RPLSSNSI)-ADDR(RPLVTEXT)+ 51550003 LENGTH(RPLCOMN), /* SSENSEI(RR) */ 51600003 ADDR(RPLVTFL1)-ADDR(RPLOF16 )+ 51650003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* SWITCHC(NO) */ 51700003 ADDR(RPLVTFL1)-ADDR(RPLOF16 )+ 51750003 ADDR(RPLKEYLE)-ADDR(IFGRPL ), /* SWITCHC(YES) */ 51800003 ADDR(RPLAIXID)-ADDR(IFGRPL )); /* AIXFLAG(AIXPKP) */ 51850003 /********************************************************************/ 51950003 /* */ 52000003 /* FIELD ATTRIBUTE TABLE */ 52050003 /* */ 52100003 /********************************************************************/ 52150003 DCL 1 FAT (100) CHAR(6) STATIC BDY(HWORD), 52200003 2 FATLENG PTR(8) INIT( /* CTL BLOCK FIELD LENGTH*/ 52250003 0, /* 01 - ATRB - BIT STR */ 52300003 LENGTH(AMDASPA ), /* 02 - AVSPAC */ 52350003 LENGTH(ACBLENG ), /* 03 - ACBLEN - VSAM */ 52400003 LENGTH(ACBBUFND), /* 04 - BUFND */ 52450003 LENGTH(ACBBUFNI), /* 05 - BUFNI */ 52500003 LENGTH(BUFDRNO ), /* 06 - BUFNO */ 52550003 LENGTH(ACBBUFSP), /* 07 - BUFSP */ 52600003 LENGTH(AMDCINV ), /* 08 - CINV */ 52650003 LENGTH(ACBDDNM ), /* 09 - DDNAME */ 52700003 LENGTH(HIGHRBA ), /* 10 - ENDRBA */ 52750003 1, /* 11 - ERROR */ 52800003 LENGTH(ACBUEL ), /* 12 - EXLST */ 52850003 LENGTH(AMDFSCA ), /* 13 - FS */ 52900003 LENGTH(ACBMSGAR), /* 14 - MAREA */ 52950003 LENGTH(ACBMSGLN), /* 15 - MLEN */ 53000003 LENGTH(AMDKEYLN), /* 16 - KEYLEN */ 53050003 LENGTH(AMDLRECL), /* 17 - LRECL */ 53100003 0, /* 18 - MACRF - BIT STR */ 53150003 LENGTH(AMDNCIS ), /* 19 - NCIS */ 53200003 LENGTH(AMDDELR ), /* 20 - NDELR */ 53250003 LENGTH(AMDEXCP ), /* 21 - NEXCP */ 53300003 LENGTH(AMDNEXT ), /* 22 - NEXT */ 53350003 LENGTH(AMDIREC ), /* 23 - NINSR */ 53400003 LENGTH(AMDNIL ), /* 24 - NIXL */ 53450003 LENGTH(AMDNLR ), /* 25 - NLOGR */ 53500003 LENGTH(AMDRETR ), /* 26 - NRETR */ 53550003 LENGTH(AMDNCAS ), /* 27 - NSSS */ 53600003 LENGTH(AMDUPR ), /* 28 - NUPDR */ 53650003 0, /* 29 - OFLAGS - BIT STR */ 53700003 LENGTH(ACBPASSW), /* 30 - PASSWD */ 53750003 LENGTH(AMDRKP ), /* 31 - RKP */ 53800003 LENGTH(ACBSTRNO), /* 32 - STRNO */ 53850003 LENGTH(AMBLTYPE), /* 33 - OPENOBJ */ 53900003 0, /* 34 - CATALOG - BIT STR*/ 53950003 LENGTH(AMDSTSP ), /* 35 - STMST */ 54000003 LENGTH(ACBBSTNO), /* 36 - BSTRNO */ 54050003 LENGTH(EXLEODP ), /* 37 - EODAD */ 54100003 0, /* 38 - RESERVED */ 54150003 LENGTH(EXLJRNP ), /* 39 - JRNAD */ 54200003 LENGTH(EXLLERP ), /* 40 - LERAD */ 54250003 LENGTH(EXLSYNP ), /* 41 - SYNAD */ 54300003 LENGTH(EXLLEN ), /* 42 - EXLLEN - VSAM */ 54350003 LENGTH(RPLDACB ), /* 43 - ACB */ 54400003 LENGTH(RPLAREA ), /* 44 - AREA */ 54450003 LENGTH(RPLBUFL ), /* 45 - AREALEN */ 54500003 LENGTH(RPLARG ), /* 46 - ARG */ 54550003 LENGTH(RPLECB ), /* 47 - ECB */ 54600003 LENGTH(RPLKEYL ), /* 48 - KEYLEN */ 54650003 LENGTH(RPLERMSA), /* 49 - MSGAREA - RPL */ 54700003 LENGTH(RPLEMLEN), /* 50 - MSGLEN - RPL */ 54750003 LENGTH(RPLCHAIN), /* 51 - NXTRPL */ 54800003 0, /* 52 - OPTCD - BIT STR */ 54850003 LENGTH(RPLRLEN ), /* 53 - RECLEN */ 54900003 0, /* 54 - IO - BIT STR */ 54950003 LENGTH(RPLLEN ), /* 55 - RPLLEN - VSAM */ 55000003 LENGTH(RPLERRCD), /* 56 - FDBK */ 55050003 LENGTH(RPLDDDD ), /* 57 - RBA */ 55100003 LENGTH(RPLAIXPC), /* 58 - AIXPC */ 55150003 0, /* 59 - AIXFLAG - BIT STR*/ 55200003 LENGTH(AMDAXRKP), /* 60 - AIXRKP */ 55250003 LENGTH(ACBLENG), /* 61 - ACBLEN - VTAM */ 55300003 LENGTH(RPLLEN), /* 62 - RPLLEN - VTAM */ 55350003 LENGTH(EXLLEN), /* 63 - EXLLEN - VTAM */ 55400003 0, /* 64 - AM */ 55450003 LENGTH(ACBAPID ), /* 65 - APPLID */ 55500003 LENGTH(EXLTPNDP), /* 66 - TPEND */ 55550003 LENGTH(EXLLGNP ), /* 67 - LOGON */ 55600003 LENGTH(EXLNLGNP), /* 68 - LOSTERM */ 55650003 LENGTH(EXLATTNP), /* 69 - ATTN */ 55700003 LENGTH(EXLRLRQP), /* 70 - RELREQ */ 55750003 LENGTH(EXLUNSPP), /* 71 - UNSIP */ 55800003 LENGTH(EXLASYPP), /* 72 - ASYIP */ 55850003 LENGTH(RPLAARLN), /* 73 - AAREALN */ 55900003 LENGTH(RPLARCLN), /* 74 - ARECLEN */ 55950003 LENGTH(RPLECB ), /* 75 - EXIT */ 56000003 0, /* 76 - RESERVED */ 56050003 0, /* 77 - RESERVED */ 56100003 4, /* 78 - USER (RPLUSFLD) */ 56150003 LENGTH(RPLARG ), /* 79 - NIB */ 56200003 0, /* 80 - PROC - BIT STR */ 56250003 LENGTH(NIBUSER ), /* 81 - USERFLD */ 56300003 0, /* 82 - LISTEND - BIT STR*/ 56350003 LENGTH(NIBLEN ), /* 83 - NIBLEN */ 56400003 LENGTH(NIBMODE ), /* 84 - MODE */ 56450003 LENGTH(NIBCONDN), /* 85 - CONDN */ 56500003 LENGTH(NIBDEVCH), /* 86 - DEVCHAR */ 56550003 LENGTH(RPLAAREA), /* 87 - AAREA */ 56600003 0, /* 88 - BRANCH - BIT STR */ 56650003 0, /* 89 - CRA - BIT STR */ 56700003 LENGTH(NIBCID ), /* 90 - CID */ 56750003 LENGTH(NIBSYM ), /* 91 - NAME */ 56800003 0, /* 92 - CON - BIT STR */ 56850003 0, /* 93 - DATAFLG - BIT STR*/ 56900003 LENGTH(RPLRTNCD), /* 94 - RTNCD */ 56950003 LENGTH(RPLSTRID), /* 95 - TRANSID */ 57000003 LENGTH(RPLFDB2 ), /* 96 - FDBK2 */ 57050003 2, /* 97 - SENSE (RPLDSB) */ 57100003 LENGTH(RPLREQ ), /* 98 - REQ */ 57150003 LENGTH(RPLFDB2 ), /* 99 - FTNCD */ 57200003 0), /* 100 RESERVED */ 57250003 2 FATFLAGS CHAR(3) INIT( /* FIELD ATTRIBUTE FLAGS */ 57300003 ?FBITS(TOK,BIT,OPN,ACB,AMD) ;, /* 01 - ATRB */ 57350003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 02 - AVSPAC */ 57400003 ?FBITS(SOK,TOK,NOR,CBL,ACB) ;, /* 03 - ACBLEN-VSAM */ 57450003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB) ;, /* 04 - BUFND */ 57500003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB) ;, /* 05 - BUFNI */ 57550003 ?FBITS(SOK,TOK,NOR,OPN,ACB,BUF) ;, /* 06 - BUFNO */ 57600003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB) ;, /* 07 - BUFSP */ 57650003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 08 - CINV */ 57700003 ?FBITS(GOK,MOK,SOK,TOK,NOR,CHR,ACB);, /* 09 - DDNAME */ 57750003 ?FBITS(SOK,TOK,NOR,OPN,ACB,ARD) ;, /* 10 - ENDRBA */ 57800003 ?FBITS(SOK,TOK,NOR,ACB) ;, /* 11 - ERROR */ 57850003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB) ;, /* 12 - EXLST */ 57900003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 13 - FS */ 57950003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB) ;, /* 14 - MAREA */ 58000003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB) ;, /* 15 - MLEN */ 58050003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 16 - KEYLEN */ 58100003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 17 - LRECL */ 58150003 ?FBITS(GOK,MOK,TOK,BIT,ACB) ;, /* 18 - MACRF */ 58200003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 19 - NCIS */ 58250003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 20 - NDELR */ 58300003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 21 - NEXCP */ 58350003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 22 - NEXT */ 58400003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 23 - NINSR */ 58450003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 24 - NIXL */ 58500003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 25 - NLOGR */ 58550003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 26 - NRETR */ 58600003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 27 - NSSS */ 58650003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 28 - NUPDR */ 58700003 ?FBITS(TOK,BIT,ACB) ;, /* 29 - OFLAGS */ 58750003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB) ;, /* 30 - PASSWD */ 58800003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 31 - RKP */ 58850003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB) ;, /* 32 - STRNO */ 58900003 ?FBITS(TOK,BIT,OPN,ACB) ;, /* 33 - OPENOBJ */ 58950003 ?FBITS(GOK,MOK,TOK,BIT,ACB) ;, /* 34 - CATALOG */ 59000003 ?FBITS(SOK,TOK,NOR,OPN,ACB,AMD) ;, /* 35 - STMST */ 59050003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB) ;, /* 36 - BSTRNO */ 59100003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL) ;, /* 37 - EODAD */ 59150003 ?FBITS() ;, /* 38 - RESERVED */ 59200003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL) ;, /* 39 - JRNAD */ 59250003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL) ;, /* 40 - LERAD */ 59300003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL) ;, /* 41 - SYNAD */ 59350003 ?FBITS(GOK,MOK,SOK,TOK,NOR,CBL,EXL);, /* 42 - EXLLEN-VSAM */ 59400003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 43 - ACB */ 59450003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 44 - AREA */ 59500003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 45 - AREALEN */ 59550003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 46 - ARG */ 59600003 ?FBITS(GOK,MOK,SOK,TOK,SUB,RPL) ;, /* 47 - ECB */ 59650003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 48 - KEYLEN */ 59700003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 49 - MSGAREA-RPL */ 59750003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 50 - MSGLEN-RPL */ 59800003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 51 - NXTRPL */ 59850003 ?FBITS(GOK,MOK,TOK,BIT,RPL) ;, /* 52 - OPTCD */ 59900003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 53 - RECLEN */ 59950003 ?FBITS(TOK,SUB,RPL) ;, /* 54 - IO */ 60000003 ?FBITS(SOK,TOK,NOR,CBL,RPL) ;, /* 55 - RPLLEN-VSAM */ 60050003 ?FBITS(SOK,TOK,NOR,RPL) ;, /* 56 - FDBK */ 60100003 ?FBITS(SOK,TOK,NOR,RPL) ;, /* 57 - RBA */ 60150003 ?FBITS(SOK,TOK,NOR,RPL) ;, /* 58 - AIXPC */ 60200003 ?FBITS(TOK,RPL,BIT) ;, /* 59 - AIXFLAG */ 60250003 ?FBITS(SOK,TOK,NOR,ACB,AMD,OPN) ;, /* 60 - AIXRKP */ 60300003 ?FBITS(SOK,TOK,NOR,CBL,ACB,VTM) ;, /* 61 - ACBLEN-VTAM */ 60350003 ?FBITS(SOK,TOK,NOR,CBL,RPL,VTM) ;, /* 62 - RPLLEN-VTAM */ 60400003 ?FBITS(GOK,MOK,SOK,TOK,NOR,CBL,EXL,VTM);, /*63-EXLLEN-VTAM*/ 60450003 ?FBITS(GOK,SUB,ACB,RPL,EXL);, /* 64 - AM */ 60500003 ?FBITS(GOK,MOK,SOK,TOK,NOR,ACB,VTM);, /* 65 - APPLID */ 60550003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 66 - TPEND */ 60600003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 67 - LOGON */ 60650003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 68 - LOSTERM */ 60700003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 69 - ATTN */ 60750003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 70 - RELREQ */ 60800003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 71 - UNSIP */ 60850003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 72 - ASYIP */ 60900003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL,VTM);, /* 73 - AAREALN */ 60950003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL,VTM);, /* 74 - ARECLEN */ 61000003 ?FBITS(GOK,MOK,SOK,TOK,SUB,RPL,VTM);, /* 75 - EXIT */ 61050003 ?FBITS() ;, /* 76 - RESERVED */ 61100003 ?FBITS() ;, /* 77 - RESERVED */ 61150003 ?FBITS(SOK,TOK,NOR,RPL,VTM) ;, /* 78 - USER */ 61200003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL,VTM);, /* 79 - NIB */ 61250003 ?FBITS(GOK,MOK,TOK,BIT,NIB) ;, /* 80 - PROC */ 61300003 ?FBITS(GOK,MOK,SOK,TOK,NOR,NIB) ;, /* 81 - USERFLD */ 61350003 ?FBITS(GOK,MOK,TOK,BIT,NIB) ;, /* 82 - LISTEND */ 61400003 ?FBITS(SOK,TOK,NOR,CBL,NIB) ;, /* 83 - NIBLEN */ 61450003 ?FBITS(GOK,MOK,SOK,TOK,NOR,CHR,NIB);, /* 84 - MODE */ 61500003 ?FBITS(GOK,MOK,SOK,TOK,NOR,NIB) ;, /* 85 - CONDN */ 61550003 ?FBITS(SOK,TOK,NOR,CHR,NIB) ;, /* 86 - DEVCHAR */ 61600003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL,VTM);, /* 87 - AAREA */ 61650003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 88 - BRANCH */ 61700003 ?FBITS(GOK,MOK,TOK,BIT,ACB) ;, /* 89 - CRA */ 61750003 ?FBITS(SOK,TOK,NOR,NIB) ;, /* 90 - CID */ 61800003 ?FBITS(GOK,MOK,SOK,TOK,NOR,CHR,NIB);, /* 91 - NAME */ 61850003 ?FBITS(TOK,BIT,NIB) ;, /* 92 - CON */ 61900003 ?FBITS(TOK,BIT,RPL,VTM) ;, /* 93 - DATAFLG */ 61950003 ?FBITS(SOK,TOK,NOR,RPL) ;, /* 94 - RTNCD */ 62000003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL) ;, /* 95 - TRANSID */ 62050003 ?FBITS(SOK,TOK,NOR,RPL) ;, /* 96 - FDBK2 */ 62100003 ?FBITS(SOK,TOK,NOR,RPL,VTM) ;, /* 97 - SENSE */ 62150003 ?FBITS(SOK,TOK,NOR,RPL) ;, /* 98 - REQ */ 62200003 ?FBITS(SOK,TOK,NOR,RPL) ;, /* 99 - FTNCD */ 62250003 ?FBITS() ;),/* 100 RESERVED */ 62300003 2 FATOFFS FIXED(15) INIT( /* CTL BLK FIELD OFFSETS */ 62350003 0, /* 01 - ATRB - BST OFFSET*/ 62400003 ADDR(AMDASPA )-ADDR(IDAAMDSB), /* 02 - AVSPAC */ 62450003 LENGTH(ACBCOMN), /* 03 - ACBLEN - VSAM */ 62500003 ADDR(ACBBUFND)-ADDR(IFGACB ), /* 04 - BUFND */ 62550003 ADDR(ACBBUFNI)-ADDR(IFGACB ), /* 05 - BUFNI */ 62600003 ADDR(BUFDRNO )-ADDR(IDABUFDR), /* 06 - BUFNO */ 62650003 ADDR(ACBBUFSP)-ADDR(IFGACB ), /* 07 - BUFSP */ 62700003 ADDR(AMDCINV )-ADDR(IDAAMDSB), /* 08 - CINV */ 62750003 ADDR(ACBDDNM )-ADDR(IFGACB ), /* 09 - DDNAME */ 62800003 0, /* 10 - ENDRBA - UNUSED */ 62850003 ADDR(ACBERFLG)-ADDR(IFGACB ), /* 11 - ERROR */ 62900003 ADDR(ACBUEL )-ADDR(IFGACB ), /* 12 - EXLST */ 62950003 ADDR(AMDFSCA )-ADDR(IDAAMDSB), /* 13 - FS */ 63000003 ADDR(ACBMSGAR)-ADDR(IFGACB ), /* 14 - MAREA */ 63050003 ADDR(ACBMSGLN)-ADDR(IFGACB ), /* 15 - MLEN */ 63100003 ADDR(AMDKEYLN)-ADDR(IDAAMDSB), /* 16 - KEYLEN */ 63150003 ADDR(AMDLRECL)-ADDR(IDAAMDSB), /* 17 - LRECL */ 63200003 32, /* 18 - MACRF - BST OFFS */ 63250003 ADDR(AMDNCIS )-ADDR(IDAAMDSB), /* 19 - NCIS */ 63300003 ADDR(AMDDELR )-ADDR(IDAAMDSB), /* 20 - NDELR */ 63350003 ADDR(AMDEXCP )-ADDR(IDAAMDSB), /* 21 - NEXCP */ 63400003 ADDR(AMDNEXT )-ADDR(IDAAMDSB), /* 22 - NEXT */ 63450003 ADDR(AMDIREC )-ADDR(IDAAMDSB), /* 23 - NINSR */ 63500003 ADDR(AMDNIL )-ADDR(IDAAMDSB), /* 24 - NIXL */ 63550003 ADDR(AMDNLR )-ADDR(IDAAMDSB), /* 25 - NLOGR */ 63600003 ADDR(AMDRETR )-ADDR(IDAAMDSB), /* 26 - NRETR */ 63650003 ADDR(AMDNCAS )-ADDR(IDAAMDSB), /* 27 - NSSS */ 63700003 ADDR(AMDUPR )-ADDR(IDAAMDSB), /* 28 - NUPDR */ 63750003 176, /* 29 - OFLAGS - BST OFFS*/ 63800003 ADDR(ACBPASSW)-ADDR(IFGACB ), /* 30 - PASSWD */ 63850003 ADDR(AMDRKP )-ADDR(IDAAMDSB), /* 31 - RKP */ 63900003 ADDR(ACBSTRNO)-ADDR(IFGACB ), /* 32 - STRNO */ 63950003 180, /* 33 - OPENOBJ- BST OFFS*/ 64000003 160, /* 34 - CATALG - BST OFFS*/ 64050003 ADDR(AMDSTSP )-ADDR(IDAAMDSB), /* 35 - STMST */ 64100003 ADDR(ACBBSTNO)-ADDR(IFGACB ), /* 36 - BSTRNO */ 64150003 ADDR(EXLEODF )-ADDR(IFGEXLST), /* 37 - EODAD */ 64200003 0, /* 38 - RESERVED */ 64250003 ADDR(EXLJRNF )-ADDR(IFGEXLST), /* 39 - JRNAD */ 64300003 ADDR(EXLLERF )-ADDR(IFGEXLST), /* 40 - LERAD */ 64350003 ADDR(EXLSYNF )-ADDR(IFGEXLST), /* 41 - SYNAD */ 64400003 LENGTH(EXLCOMN), /* 42 - EXLLEN - VSAM */ 64450003 ADDR(RPLDACB )-ADDR(IFGRPL ), /* 43 - ACB */ 64500003 ADDR(RPLAREA )-ADDR(IFGRPL ), /* 44 - AREA */ 64550003 ADDR(RPLBUFL )-ADDR(IFGRPL ), /* 45 - AREALEN */ 64600003 ADDR(RPLARG )-ADDR(IFGRPL ), /* 46 - ARG */ 64650003 ECBSUBID, /* 47 - ECB - SUBRTN ID */ 64700003 ADDR(RPLKEYL )-ADDR(IFGRPL ), /* 48 - KEYLEN */ 64750003 ADDR(RPLERMSA)-ADDR(IFGRPL ), /* 49 - MSGAREA */ 64800003 ADDR(RPLEMLEN)-ADDR(IFGRPL ), /* 50 - MSGLEN */ 64850003 ADDR(RPLCHAIN)-ADDR(IFGRPL ), /* 51 - NXTRPL */ 64900003 220, /* 52 - OPTCD - BST OFFS */ 64950003 ADDR(RPLRLEN )-ADDR(IFGRPL ), /* 53 - RECLEN */ 65000003 IOSUBID, /* 54 - IO - SUBRTN ID */ 65050003 LENGTH(RPLCOMN), /* 55 - RPLLEN - VSAM */ 65100003 ADDR(RPLERRCD)-ADDR(IFGRPL ), /* 56 - FDBK */ 65150003 ADDR(RPLDDDD )-ADDR(IFGRPL ), /* 57 - RBA */ 65200003 ADDR(RPLAIXPC)-ADDR(IFGRPL ), /* 58 - AIXPC */ 65250003 ADDR(BST4)-ADDR(BST)+188, /* 59 - AIXFLAG- BST OFFS*/ 65300003 ADDR(AMDAXRKP)-ADDR(IDAAMDSB), /* 60 - AIXRKP */ 65350003 LENGTH(ACBCOMN)+LENGTH(ACBVTEXT), /* 61 - ACBLEN - VTAM */ 65400003 LENGTH(RPLCOMN)+LENGTH(RPLVTEXT), /* 62 - RPLLEN - VTAM */ 65450003 LENGTH(EXLCOMN)+LENGTH(EXLVTEXT), /* 63 - EXLLEN - VTAM */ 65500003 AMSUBID, /* 64 - AM - ACB,RPL,EXL */ 65550003 ADDR(ACBAPID )-ADDR(IFGACB ), /* 65 - APPLID */ 65600003 ADDR(EXLTPNDF)-ADDR(EXLVTEXT)+ /* 66 - TPEND */ 65650003 LENGTH(EXLCOMN), 65700003 ADDR(EXLLGNF )-ADDR(IFGEXLST), /* 67 - LOGON */ 65750003 ADDR(EXLNLGNF)-ADDR(EXLVTEXT)+ /* 68 - LOSTERM */ 65800003 LENGTH(EXLCOMN), 65850003 ADDR(EXLATTNF)-ADDR(EXLVTEXT)+ /* 69 - ATTN */ 65900003 LENGTH(EXLCOMN), 65950003 ADDR(EXLRLRQF)-ADDR(EXLVTEXT)+ /* 70 - RELREQ */ 66000003 LENGTH(EXLCOMN), 66050003 ADDR(EXLUNSPF)-ADDR(EXLVTEXT)+ /* 71 - UNSIP */ 66100003 LENGTH(EXLCOMN), 66150003 ADDR(EXLASYPF)-ADDR(EXLVTEXT)+ /* 72 - ASYIP */ 66200003 LENGTH(EXLCOMN), 66250003 ADDR(RPLAARLN)-ADDR(RPLVTEXT)+ /* 73 - AAREALN */ 66300003 LENGTH(RPLCOMN), 66350003 ADDR(RPLARCLN)-ADDR(RPLVTEXT)+ /* 74 - ARECLEN */ 66400003 LENGTH(RPLCOMN), 66450003 ECBSUBID, /* 75 - EXIT */ 66500003 0, /* 76 - RESERVED */ 66550003 0, /* 77 - RESERVED */ 66600003 ADDR(RPLUSFLD)-ADDR(RPLVTEXT)+ /* 78 - USER */ 66650003 LENGTH(RPLCOMN), 66700003 ADDR(RPLARG )-ADDR(IFGRPL ), /* 79 - NIB */ 66750003 ADDR(BST3)-ADDR(BST), /* 80 - PROC - BST OFFS */ 66800003 ADDR(NIBUSER )-ADDR(ISTNIB ), /* 81 - USERFLD */ 66850003 ADDR(BST2)-ADDR(BST)+228, /* 82 - LISTEND - BST OFF*/ 66900003 LENGTH(ISTNIB), /* 83 - NIBLEN */ 66950003 ADDR(NIBMODE )-ADDR(ISTNIB ), /* 84 - MODE */ 67000003 ADDR(NIBCONDN)-ADDR(ISTNIB ), /* 85 - CONDN */ 67050003 ADDR(NIBDEVCH)-ADDR(ISTNIB ), /* 86 - DEVCHAR */ 67100003 ADDR(RPLAAREA)-ADDR(RPLVTEXT)+ /* 87 - AAREA */ 67150003 LENGTH(RPLCOMN), 67200003 152, /* 88 - BRANCH - BST OFFS*/ 67250003 168, /* 89 - CRA - BST OFFS*/ 67300003 ADDR(NIBCID )-ADDR(ISTNIB ), /* 90 - CID */ 67350003 ADDR(NIBSYM )-ADDR(ISTNIB ), /* 91 - NAME */ 67400003 ADDR(BST2)-ADDR(BST)+236, /* 92 - CON - BST OFFS */ 67450003 192, /* 93 - DATAFLG - BST OFF*/ 67500003 ADDR(RPLRTNCD)-ADDR(IFGRPL ), /* 94 - RTNCD */ 67550003 ADDR(RPLSTRID)-ADDR(IFGRPL ), /* 95 - TRANSID */ 67600003 ADDR(RPLFDB2 )-ADDR(IFGRPL ), /* 96 - FDBK2 */ 67650003 ADDR(RPLDSB )-ADDR(RPLVTEXT)+ /* 97 - SENSE */ 67700003 LENGTH(RPLCOMN), 67750003 ADDR(RPLREQ )-ADDR(IFGRPL ), /* 98 - REQ */ 67800003 ADDR(RPLFDB2 )-ADDR(IFGRPL ), /* 99 - FTNCD */ 67850003 0); /* 100 RESERVED */ 67900003 /********************************************************************/ 67950003 /* */ 68000003 /* FIELD ATTRIBUTE TABLE (PART 2) */ 68050003 /* */ 68100003 /********************************************************************/ 68150003 DCL 1 FAT2 (41) CHAR(6) STATIC BDY(HWORD), 68200003 2 FATLENG2 PTR(8) INIT( /* CTL BLOCK FIELD LENGTH*/ 68250003 0, /* 101 -CHNGDIR- BIT STR */ 68300003 0, /* 102 - STYPE - BIT STR */ 68350003 0, /* 103 - RTYPE - BIT STR */ 68400003 0, /* 104 - CHAIN - BIT STR */ 68450003 0, /* 105 - POST - BIT STR */ 68500003 0, /* 106 -RESPOND- BIT STR */ 68550003 0, /* 107 -CONTROL- BIT STR */ 68600003 0, /* 108 -OBSQAC - BIT STR */ 68650003 0, /* 109 -IBSQAC - BIT STR */ 68700003 LENGTH(RPLOBSQV), /* 110 - OBSQVAL */ 68750003 LENGTH(RPLIBSQV), /* 111 - IBSQVAL */ 68800003 LENGTH(RPLSEQNO), /* 112 - SEQNO */ 68850003 0, /* 113 -SSENSEO- BIT STR */ 68900003 0, /* 114 -SSENSEI- BIT STR */ 68950003 LENGTH(RPLUSNSO), /* 115 - USENSEO */ 69000003 LENGTH(RPLUSNSI), /* 116 - USENSEI */ 69050003 LENGTH(RPLVTFL1), /* 117 - SWITCHC */ 69100003 0, /* 118 - RESERVED */ 69150003 0, /* 119 - RESERVED */ 69200003 LENGTH(EXLSCIPP), /* 120 - SCIP */ 69250003 LENGTH(EXLDFASP), /* 121 - DFASY */ 69300003 LENGTH(EXLRESPP), /* 122 - RESP */ 69350003 LENGTH(EXLDFSYP), /* 123 - DFASY */ 69400003 LENGTH(BSPHFND), /* 124 - BFRFND */ 69450003 LENGTH(BSPHRDS), /* 125 - BUFRDS */ 69500003 LENGTH(BSPHNUIW), /* 126 - NUIW */ 69550003 LENGTH(BSPHUIW), /* 127 - UIW */ 69600003 LENGTH(PLHDRMAX), /* 128 - STRMAX */ 69650003 0, /* 129 - RESERVED */ 69700003 LENGTH(NIBEXLST), /* 130 - EXLST */ 69750003 LENGTH(NIBLIMIT), /* 131 - RESPLIM */ 69800003 0, /* 132 - SDT - BIT STR */ 69850003 0, /* 133 - BRACKET - BIT */ 69900003 LENGTH(RPLSSMO), /* 134 - SSENSMO */ 69950003 LENGTH(RPLSSMI), /* 135 - SSENSMI */ 70000003 LENGTH(RPLSIGDA), /* 136 - SIGDATA */ 70010003 0, /* 137 - RESERVED */ 70020003 0, /* 138 - RESERVED */ 70030003 0, /* 139 - RESERVED */ 70040003 LENGTH(ACBUAPTR), /* 140 - USERPTR */ 70050003 LENGTH(ACBUJFCB)), /* 141 - JFCB */ 70060003 2 FATFLAG2 CHAR(3) INIT( /* FIELD ATTRIBUTE FLAGS */ 70100003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 101 - CHNGDIR */ 70150003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 102 - STYPE */ 70200003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 103 - RTYPE */ 70250003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 104 - CHAIN */ 70300003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 105 - POST */ 70350003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 106 - RESPOND */ 70400003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 107 - CONTROL */ 70450003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 108 - OBSQAC */ 70500003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 109 - IBSQAC */ 70550003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL,VTM);, /* 110 - OBSQVAL */ 70600003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL,VTM);, /* 111 - IBSQVAL */ 70650003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL,VTM);, /* 112 - SEQNO */ 70700003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 113 - SSENSEO */ 70750003 ?FBITS(TOK,BIT,RPL,VTM) ;, /* 114 - SSENSEI */ 70800003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL,VTM);, /* 115 - USENSEO */ 70850003 ?FBITS(SOK,TOK,NOR,RPL,VTM) ;, /* 116 - USENSEI */ 70900003 ?FBITS(TOK,BIT,RPL,VTM) ;, /* 117 - SWITCHC */ 70950003 ?FBITS() ;, /* 118 - RESERVED */ 71000003 ?FBITS() ;, /* 119 - RESERVED */ 71050003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 120 - SCIP */ 71100003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 121 - DFASY */ 71150003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 122 - RESP */ 71200003 ?FBITS(GOK,MOK,SOK,TOK,NOR,EXL,VTM);, /* 123 - DFSYN */ 71250003 ?FBITS(SOK,NOR,OPN,ACB,BSP) ;, /* 124 - BFRFND */ 71300003 ?FBITS(SOK,NOR,OPN,ACB,BSP) ;, /* 125 - BUFRDS */ 71350003 ?FBITS(SOK,NOR,OPN,ACB,BSP) ;, /* 126 - NUIW */ 71400003 ?FBITS(SOK,NOR,OPN,ACB,BSP) ;, /* 127 - UIW */ 71450003 ?FBITS(SOK,NOR,OPN,ACB,PLH) ;, /* 128 - STRMAX */ 71500003 ?FBITS() ;, /* 129 - RESERVED */ 71550003 ?FBITS(GOK,MOK,SOK,TOK,NOR,NIB) ;, /* 130 - EXLST */ 71600003 ?FBITS(GOK,MOK,SOK,TOK,NOR,NIB) ;, /* 131 - RESPLIM */ 71650003 ?FBITS(GOK,MOK,TOK,BIT,NIB) ;, /* 132 - SDT */ 71700003 ?FBITS(GOK,MOK,TOK,BIT,RPL,VTM) ;, /* 133 - BRACKET */ 71750003 ?FBITS(GOK,MOK,SOK,TOK,NOR,RPL,VTM);, /* 134 - SSENSMO */ 71800003 ?FBITS(SOK,TOK,NOR,RPL,VTM) ;, /* 135 - SSENSMI */ 71850003 ?FBITS(SOK,TOK,RPL,NOR,VTM) ;, /* 136 - SIGDATA */ 71860003 ?FBITS() ;, /* 137 - RESERVED */ 71870003 ?FBITS() ;, /* 138 - RESERVED */ 71880003 ?FBITS() ;, /* 139 - RESERVED */ 71890003 ?FBITS(GOK,MOK,SOK,TOK,ACB,NOR) ;, /* 140 - USERPTR */ 71900003 ?FBITS(GOK,MOK,SOK,TOK,ACB,NOR) ;), /* 141 - JFCB */ 71910003 2 FATOFF2 FIXED(15) INIT( /* CTL BLK FIELD OFFSETS */ 71950003 ADDR(BST3)-ADDR(BST)+160, /* 101 - CHNGDIR */ 72000003 ADDR(BST3)-ADDR(BST)+176, /* 102 - STYPE */ 72050003 ADDR(BST3)-ADDR(BST)+184, /* 103 - RTYPE */ 72100003 ADDR(BST3)-ADDR(BST)+216, /* 104 - CHAIN */ 72150003 ADDR(BST3)-ADDR(BST)+232, /* 105 - POST */ 72200003 ADDR(BST4)-ADDR(BST), /* 106 - RESPOND */ 72250003 ADDR(BST4)-ADDR(BST)+24, /* 107 - CONTROL */ 72300003 ADDR(BST4)-ADDR(BST)+88, /* 108 - OBSQAC */ 72350003 ADDR(BST4)-ADDR(BST)+116, /* 109 - IBSQAC */ 72400003 ADDR(RPLOBSQV)-ADDR(RPLOF60 )+ 72450003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* 110 - OBSQVAL */ 72500003 ADDR(RPLIBSQV)-ADDR(RPLOF60 )+ 72550003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* 111 - IBSQVAL */ 72600003 ADDR(RPLSEQNO)-ADDR(RPLOF60 )+ 72650003 ADDR(RPLRBAR )-ADDR(IFGRPL ), /* 112 - SEQNO */ 72700003 ADDR(BST4)-ADDR(BST)+144, /* 113 - SSENSEO */ 72750003 ADDR(BST4)-ADDR(BST)+160, /* 114 - SSENSEI */ 72800003 ADDR(RPLUSNSO)-ADDR(RPLVTEXT)+ 72850003 LENGTH(RPLCOMN), /* 115 - USENSEO */ 72900003 ADDR(RPLUSNSI)-ADDR(RPLVTEXT)+ 72950003 LENGTH(RPLCOMN), /* 116 - USENSEI */ 73000003 ADDR(BST4)-ADDR(BST)+180, /* 117 - SWITCHC */ 73050003 0, /* 118 - RESERVED */ 73100003 0, /* 119 - RESERVED */ 73150003 ADDR(EXLSCIPF)-ADDR(IFGEXLST), /* 120 - SCIP */ 73200003 ADDR(EXLDFASF)-ADDR(EXLDFAS )+ 73250003 ADDR(EXLJRNF )-ADDR(IFGEXLST), /* 121 - DFASY */ 73300003 ADDR(EXLRESPF)-ADDR(EXLRESP )+ 73350003 ADDR(EXLOPNF )-ADDR(IFGEXLST), /* 122 - RESP */ 73400003 ADDR(EXLDFSYF)-ADDR(EXLDFSY )+ 73450003 ADDR(EXLASYPF)-ADDR(EXLVTEXT)+ 73500003 LENGTH(EXLCOMN), /* 123 - DFSYN */ 73550003 ADDR(BSPHFND)-ADDR(IDABSPH), /* 124 - BFRFND */ 73600003 ADDR(BSPHRDS)-ADDR(IDABSPH), /* 125 - BUFRDS */ 73650003 ADDR(BSPHNUIW)-ADDR(IDABSPH), /* 126 - NUIW */ 73700003 ADDR(BSPHUIW)-ADDR(IDABSPH), /* 127 - UIW */ 73750003 ADDR(PLHDRMAX)-ADDR(IDAPLHDR), /* 128 - STRMAX */ 73800003 0, /* 129 - RESERVED */ 73850003 ADDR(NIBEXLST)-ADDR(ISTNIB ), /* 130 - EXLST */ 73900003 ADDR(NIBLIMIT)-ADDR(ISTNIB ), /* 131 - RESPLIM */ 73950003 ADDR(BST3)-ADDR(BST)+136, /* 132 - SDT - BST */ 74000003 ADDR(BST3)-ADDR(BST)+144, /* 133 - BRACKET */ 74050003 ADDR(RPLSSMO )-ADDR(RPLVTEXT)+ 74100003 LENGTH(RPLCOMN), /* 134 - SSENSMO */ 74150003 ADDR(RPLSSMI )-ADDR(RPLVTEXT)+ 74200003 LENGTH(RPLCOMN), /* 135 - SSENSEI */ 74250003 ADDR(RPLSIGDA)-ADDR(RPLVTEXT)+ 74300003 LENGTH(RPLCOMN), /* 136 - SIGDATA */ 74350003 0, /* 137 - RESERVED */ 74400003 0, /* 138 - RESERVED */ 74450003 0, /* 139 - RESERVED */ 74500003 ADDR(ACBUAPTR)-ADDR(IFGACB ), /* 140 - USERPTR */ 74550003 ADDR(ACBUJFCB)-ADDR(IFGACB )); /* 141 - JFCB */ 74600003