*%GOTO EXLEXTPL; /* SKIP THE COMMENTS */ 00050000 * /* */ 00100000 * /* CHANGE LEVEL = 2 */ 00150003 * /* DATE OF LAST CHANGE = 9 SEPT 77 ( 77*251 ) */ 00200040 * /* */ 00250000 * /******************************************************************/ 00300000 * /* */ 00350000 * /* EXTL VTAM EXTENSION */ 00400000 * /* */ 00450000 * /* THE EXTENSION DESCRIBES CONTROL DATA THAT ONLY VTAM USES. */ 00500000 * /* THE EXTENSION IS CALLED AS AN INNER MACRO BY IFGEXLST */ 00510003 * /* UNDER THE FOLLOWING CONDITIONS: */ 00520003 * /* */ 00530003 * /* PLS: THE MODULE CONTAINING AN INCLUDE FOR IFGEXLST */ 00540003 * /* SETS THE MACRO VARIABLE 'ACBRPLXL' TO 'VTAM' */ 00544003 * /* PRIOR TO ISSUING THE INCLUDE. */ 00546003 * /* BAL: THE AM=VTAM PARAMETER IS CODED ON THE IFGEXLST */ 00548003 * /* MACRO CALL */ 00548403 * /* */ 00550000 * /******************************************************************/ 00600000 * /* */ 00650000 *%EXLEXTPL: ; /* START OF EXTENSION */ 00700000 * 2 EXLVTEXT, /* EXLST VTAM EXTENSION 00750000 * X03004*/ 00760000 * 3 EXLNLGNF BIT(8), /* LOSTERM ENTRY 00800000 * DESCRIPTION X03004*/ 00850000 * 4 EXLNLGNS BIT(1), /* EXIT SPECIFIED X03004*/ 00900000 * 4 EXLNLGNA BIT(1), /* EXIT ACTIVE X03004*/ 00950000 * 4 EXLNLGNK BIT(1), /* RESERVED X03004*/ 01000000 * 4 * BIT(2), /* RESERVED X03004*/ 01050000 * 3 EXLNLGNP PTR(31) BDY(BYTE), /* POINTER TO LOSTERM 01300000 * EXIT X03004*/ 01350000 * 3 EXLRLRQF BIT(8), /* RELREQ ENTRY 01400000 * DESCRIPTION X03004*/ 01450000 * 4 EXLRLRQS BIT(1), /* EXIT SPECIFIED X03004*/ 01500000 * 4 EXLRLRQA BIT(1), /* EXIT ACTIVE X03004*/ 01550000 * 4 EXLRLRQK BIT(1), /* RESERVED X03004*/ 01600000 * 4 * BIT(2), /* RESERVED X03004*/ 01650000 * 3 EXLRLRQP PTR(31) BDY(BYTE), /* POINTER TO RELREQ 01900000 * EXIT X03004*/ 01950000 * 3 * CHAR(5), /* RESERVED @X50BHUC*/ 02000037 * 3 EXLATTNF BIT(8), /* ATTN ENTRY 02600000 * DESCRIPTION X03004*/ 02650000 * 4 EXLATTNS BIT(1), /* EXIT SPECIFIED X03004*/ 02700000 * 4 EXLATTNA BIT(1), /* EXIT ACTIVE X03004*/ 02750000 * 4 EXLATTNK BIT(1), /* RESERVED X03004*/ 02800000 * 4 * BIT(2), /* RESERVED X03004*/ 02850000 * 3 EXLATTNP PTR(31) BDY(BYTE), /* POINTER TO ATTN 03100000 * EXIT X03004*/ 03150000 * 3 EXLTPNDF BIT(8), /* TPEND ENTRY 03200000 * DESCRIPTION X03004*/ 03250000 * 4 EXLTPNDS BIT(1), /* EXIT SPECIFIED X03004*/ 03300000 * 4 EXLTPNDA BIT(1), /* EXIT ACTIVE X03004*/ 03350000 * 4 EXLTPNDK BIT(1), /* RESERVED X03004*/ 03400000 * 4 * BIT(2), /* RESERVED X03004*/ 03450000 * 3 EXLTPNDP PTR(31) BDY(BYTE), /* POINTER TO TPEND 03700040 * EXIT G40AKCM*/ 03760040 * 3 EXLTNSEF BIT(8), /* NSEXIT ENTRY 03810040 * DESCRIPTION G40AKCM*/ 03860040 * 4 EXLTNSES BIT(1), /* EXIT SPECIFIED G40AKCM*/ 03910040 * 4 EXLTNSEA BIT(1), /* EXIT ACTIVE G40AKCM*/ 03960040 * 4 EXLTNSEK BIT(1), /* RESERVED G40AKCM*/ 04010040 * 4 * BIT(2), /* RESERVED G40AKCM*/ 04060040 * 3 EXLTNSEP PTR(31) BDY(BYTE); /* POINTER TO NSEXIT 04110040 * EXIT G40AKCM*/ 04160040 * DCL 1 EXLDFAS BASED(ADDR(EXLJRNF)), /* BASE AT JRNAD X3004BH*/ 04352003 * 2 EXLDFASF BIT(8), /* DFASY ENTRY 04354003 * DESCRIPTION X3004BH*/ 04356003 * 3 EXLDFASS BIT(1), /* EXIT SPECIFIEDX3004BH*/ 04358003 * 3 EXLDFASA BIT(1), /* EXIT ACTIVE X3004BH*/ 04358403 * 3 EXLDFASK BIT(1), /* RESERVED X3004BH*/ 04358803 * 3 * BIT(2), /* RESERVED X3004BH*/ 04359203 * 2 EXLDFASP PTR(31) BDY(BYTE); /* POINTER TO DFASY 04376603 * EXIT X3004BH*/ 04386603 * DCL 1 EXLRESP BASED(ADDR(EXLOPNF)), /* BASE AT OPENADX3004BH*/ 04388603 * 2 EXLRESPF BIT(8), /* RESP ENTRY 04390603 * DESCRIPTION X3004BH*/ 04392603 * 3 EXLRESPS BIT(1), /* EXIT SPECIFIEDX3004BH*/ 04393003 * 3 EXLRESPA BIT(1), /* EXIT ACTIVE X3004BH*/ 04393103 * 3 EXLRESPK BIT(1), /* RESERVED X3004BH*/ 04393203 * 3 * BIT(2), /* RESERVED X3004BH*/ 04398803 * 2 EXLRESPP PTR(31) BDY(BYTE); /* POINTER TO RESP 04404003 * EXIT X3004BH*/ 04404103 *%GOTO EXLEND; /* SKIP TO THE END OF 04441503 * MACRO */ 04446103 * /* 04460000 * ASSEMBLER DSECT FOR EXTL VTAM EXTENSION * 04510000 * * 04520000 MACRO 04530000 IFGEXLVT 04540000 EXLNLGNF DS XL1 LOSTERM ENTRY 04560000 * DESCRIPTION X03004 04610000 EXLNLGNS EQU X'80' LOSTERM EXIT PRESENT X03004 04660000 EXLNLGNA EQU X'40' LOSTERM EXIT ACTIVE X03004 04710000 EXLNLGNK EQU X'20' RESERVED X03004 04760000 EXLNLGNP DS AL4 LOSTERM EXIT ADDRESS X03004 05110000 EXLNLGNL EQU 45 LENGTH OF LIST TO HERE - 05160000 * 45 BYTES (EQUATED VALUE; 05210000 * NO BITS ACTUALLY SET)X03004 05260000 EXLRLRQF DS XL1 RELREQ ENTRY 05310000 * DESCRIPTION X03004 05360000 EXLRLRQS EQU X'80' RELREQ EXIT PRESENT X03004 05410000 EXLRLRQA EQU X'40' RELREQ EXIT ACTIVE X03004 05460000 EXLRLRQK EQU X'20' RESERVED X03004 05510000 EXLRLRQP DS AL4 RELREQ EXIT ADDRESS X03004 05860000 EXLRLRQL EQU 50 LENGTH OF LIST TO HERE - 05910000 * 50 BYTES (EQUATED VALUE; 05960000 * NO BITS ACTUALLY SET)X03004 06010000 DS XL5 RESERVED @X50BHUC 06060037 EXLUNSPL EQU 55 LENGTH OF LIST TO HERE - 06660000 * 55 BYTES (EQUATED VALUE; 06710000 * NO BITS ACTUALLY SET)X03004 06760000 EXLATTNF DS XL1 ATTN ENTRY 06810000 * DESCRIPTION X03004 06860000 EXLATTNS EQU X'80' ATTN EXIT PRESENT X03004 06910000 EXLATTNA EQU X'40' ATTN EXIT ACTIVE X03004 06960000 EXLATTNK EQU X'20' RESERVED X03004 07010000 EXLATTNP DS AL4 ATTN EXIT ADDRESS X03004 07360000 EXLATTNL EQU 60 LENGTH OF LIST TO HERE - 07410000 * 60 BYTES (EQUATED VALUE; 07460000 * NO BITS ACTUALLY SET)X03004 07510000 EXLTPNDF DS XL1 TPEND ENTRY 07560000 * DESCRIPTION X03004 07610000 EXLTPNDS EQU X'80' TPEND EXIT PRESENT X03004 07660000 EXLTPNDA EQU X'40' TPEND EXIT ACTIVE X03004 07710000 EXLTPNDK EQU X'20' RESERVED X03004 07760000 EXLTPNDP DS AL4 TPEND EXIT ADDRESS X03004 08110000 EXLTPNDL EQU 65 LENGTH OF LIST TO HERE - 08160000 * 65 BYTES (EQUATED VALUE; 08210000 * NO BITS ACTUALLY SET)X03004 08260000 EXLTNSEF DS XL1 TPEND ENTRY 08330040 * DESCRIPTION G40AKCM 08400040 EXLTNSES EQU X'80' TPEND EXIT PRESENT G40AKCM 08450040 EXLTNSEA EQU X'40' TPEND EXIT ACTIVE G40AKCM 08500040 EXLTNSEK EQU X'20' RESERVED G40AKCM 08550040 EXLTNSEP DS AL4 NSEXIT EXIT ADDRESS G40AKCM 08600040 EXLTNSEL EQU 70 LENGTH OF LIST TO HERE - 08650040 * 70 BYTES (EQUATED VALUE NO 08700040 * BITS ACTUALLY SET) G40AKCM 08750040 ORG EXLJRNF BASE AT JRNAD X3004BH 09020003 EXLDFASF DS XL1 DFASY ENTRY X3004BH 09030003 * DESCRIPTION X3004BH 09040003 EXLDFASS EQU X'80' DFASY EXIT PRESENT X3004BH 09050003 EXLDFASA EQU X'40' DFASY EXIT ACTIVE X3004BH 09052003 EXLDFASK EQU X'20' RESERVED X3004BH 09054003 EXLDFASP DS AL4 DFASY EXIT ADDRESS X3004BH 09059703 EXLDFASL EQU 35 LENGTH OF LIST TO HERE - 09059803 * 35 BYTES (EQUATED VALUE; NO 09059903 * BITS ACTUALLY SET) X3004BH 09076603 ORG EXLOPNF BASE AT OPENAD X3004BH 09086603 EXLRESPF DS XL1 RESP ENTRY 09088603 * DESCRIPTION X3004BH 09090603 EXLRESPS EQU X'80' RESP EXIT PRESENT X3004BH 09092603 EXLRESPA EQU X'40' RESP EXIT ACTIVE X3004BH 09093003 EXLRESPK EQU X'20' RESERVED X3004BH 09093103 EXLRESPP DS AL4 RESP EXIT ADDRESS X3004BH 09104003 EXLRESPL EQU 40 LENGTH OF LIST TO HERE - 09104103 * 40 BYTES (EQUATED VALUE; NO 09104203 * BITS ACTUALLY SET) X3004BH 09104303 MEND 09141503 * END OF EXTL VTAM EXTENSION */ 09146103 *%EXLEND: ; 09160000