*%GOTO EXLEXTPL; /* SKIP THE COMMENTS */ 00050000 * /* */ 00100000 * /* CHANGE LEVEL = 0 @ZA34940*/ 00150000 * /* DATE OF LAST CHANGE = 13 NOV 78 ( 78*317 ) @ZA34940*/ 00200000 * /* */ 00250000 * /******************************************************************/ 00300000 * /* */ 00350000 * /* EXTL VTAM EXTENSION */ 00400000 * /* */ 00450000 * /* THE EXTENSION DESCRIBES CONTROL DATA THAT ONLY VTAM USES. */ 00500000 * /* THE EXTENSION IS CALLED BY THE VSAM EXTENSION @ZA34940*/ 00550000 * /* (IFGEXLVS) UNDER THE FOLLOWING CONDITIONS: @ZA34940*/ 00600000 * /* */ 00650000 * /* PLS: THE MODULE CONTAINING AN INCLUDE FOR IFGEXLST */ 00700000 * /* SETS THE MACRO VARIABLE 'ACBRPLXL' TO 'VTAM' */ 00750000 * /* PRIOR TO ISSUING THE INCLUDE. */ 00800000 * /* BAL: THE AM=VTAM PARAMETER IS CODED ON THE IFGEXLST */ 00850000 * /* MACRO CALL */ 00900000 * /* */ 00950000 * /* CHANGE ACTIVITY */ 01000000 * /* CBMM SPLIT SUPPORT @ZA34940*/ 01050000 * /* */ 01100000 * /******************************************************************/ 01150000 * /* */ 01200000 *%EXLEXTPL: ; 01250000 * 2 EXLVTEXT, /* START OF EXTENSION */ 01300000 * 3 EXLNLGNF BIT(8), /* LOSTERM ENTRY 01350000 * DESCRIPTION X03004*/ 01400000 * 4 EXLNLGNS BIT(1), /* EXIT SPECIFIED X03004*/ 01450000 * 4 EXLNLGNA BIT(1), /* EXIT ACTIVE X03004*/ 01500000 * 4 EXLNLGNK BIT(1), /* RESERVED X03004*/ 01550000 * 4 * BIT(2), /* RESERVED X03004*/ 01600000 * 3 EXLNLGNP PTR(31) BDY(BYTE), /* POINTER TO LOSTERM 01650000 * EXIT X03004*/ 01700000 * 3 EXLRLRQF BIT(8), /* RELREQ ENTRY 01750000 * DESCRIPTION X03004*/ 01800000 * 4 EXLRLRQS BIT(1), /* EXIT SPECIFIED X03004*/ 01850000 * 4 EXLRLRQA BIT(1), /* EXIT ACTIVE X03004*/ 01900000 * 4 EXLRLRQK BIT(1), /* RESERVED X03004*/ 01950000 * 4 * BIT(2), /* RESERVED X03004*/ 02000000 * 3 EXLRLRQP PTR(31) BDY(BYTE), /* POINTER TO RELREQ 02050000 * EXIT X03004*/ 02100000 * 3 * CHAR(5), /* RESERVED @X50BHUC*/ 02150000 * 3 EXLATTNF BIT(8), /* ATTN ENTRY 02200000 * DESCRIPTION X03004*/ 02250000 * 4 EXLATTNS BIT(1), /* EXIT SPECIFIED X03004*/ 02300000 * 4 EXLATTNA BIT(1), /* EXIT ACTIVE X03004*/ 02350000 * 4 EXLATTNK BIT(1), /* RESERVED X03004*/ 02400000 * 4 * BIT(2), /* RESERVED X03004*/ 02450000 * 3 EXLATTNP PTR(31) BDY(BYTE), /* POINTER TO ATTN 02500000 * EXIT X03004*/ 02550000 * 3 EXLTPNDF BIT(8), /* TPEND ENTRY 02600000 * DESCRIPTION X03004*/ 02650000 * 4 EXLTPNDS BIT(1), /* EXIT SPECIFIED X03004*/ 02700000 * 4 EXLTPNDA BIT(1), /* EXIT ACTIVE X03004*/ 02750000 * 4 EXLTPNDK BIT(1), /* RESERVED X03004*/ 02800000 * 4 * BIT(2), /* RESERVED X03004*/ 02850000 * 3 EXLTPNDP PTR(31) BDY(BYTE), /* POINTER TO TPEND 02900000 * EXIT G40AKCM*/ 02950000 * 3 EXLTNSEF BIT(8), /* NSEXIT ENTRY 03000000 * DESCRIPTION G40AKCM*/ 03050000 * 4 EXLTNSES BIT(1), /* EXIT SPECIFIED G40AKCM*/ 03100000 * 4 EXLTNSEA BIT(1), /* EXIT ACTIVE G40AKCM*/ 03150000 * 4 EXLTNSEK BIT(1), /* RESERVED G40AKCM*/ 03200000 * 4 * BIT(2), /* RESERVED G40AKCM*/ 03250000 * 3 EXLTNSEP PTR(31) BDY(BYTE); /* POINTER TO NSEXIT 03300000 * EXIT G40AKCM*/ 03350000 * DCL 1 EXLDFAS BASED(ADDR(EXLJRNF)), /* BASE AT JRNAD X3004BH*/ 03400000 * 2 EXLDFASF BIT(8), /* DFASY ENTRY 03450000 * DESCRIPTION X3004BH*/ 03500000 * 3 EXLDFASS BIT(1), /* EXIT SPECIFIEDX3004BH*/ 03550000 * 3 EXLDFASA BIT(1), /* EXIT ACTIVE X3004BH*/ 03600000 * 3 EXLDFASK BIT(1), /* RESERVED X3004BH*/ 03650000 * 3 * BIT(2), /* RESERVED X3004BH*/ 03700000 * 2 EXLDFASP PTR(31) BDY(BYTE); /* POINTER TO DFASY 03750000 * EXIT X3004BH*/ 03800000 * DCL 1 EXLRESP BASED(ADDR(EXLOPNF)), /* BASE AT OPENADX3004BH*/ 03850000 * 2 EXLRESPF BIT(8), /* RESP ENTRY 03900000 * DESCRIPTION X3004BH*/ 03950000 * 3 EXLRESPS BIT(1), /* EXIT SPECIFIEDX3004BH*/ 04000000 * 3 EXLRESPA BIT(1), /* EXIT ACTIVE X3004BH*/ 04050000 * 3 EXLRESPK BIT(1), /* RESERVED X3004BH*/ 04100000 * 3 * BIT(2), /* RESERVED X3004BH*/ 04150000 * 2 EXLRESPP PTR(31) BDY(BYTE); /* POINTER TO RESP 04200000 * EXIT X3004BH*/ 04250000 *%GOTO EXLEND; /* SKIP TO THE END OF 04300000 * MACRO */ 04350000 * /* 04400000 * ASSEMBLER DSECT FOR EXTL VTAM EXTENSION * 04450000 * * 04500000 MACRO 04550000 ISTEXLEX 04600000 EXLNLGNF DS XL1 LOSTERM ENTRY 04650000 * DESCRIPTION X03004 04700000 EXLNLGNS EQU X'80' LOSTERM EXIT PRESENT X03004 04750000 EXLNLGNA EQU X'40' LOSTERM EXIT ACTIVE X03004 04800000 EXLNLGNK EQU X'20' RESERVED X03004 04850000 EXLNLGNP DS AL4 LOSTERM EXIT ADDRESS X03004 04900000 EXLNLGNL EQU 45 LENGTH OF LIST TO HERE - 04950000 * 45 BYTES (EQUATED VALUE; 05000000 * NO BITS ACTUALLY SET)X03004 05050000 EXLRLRQF DS XL1 RELREQ ENTRY 05100000 * DESCRIPTION X03004 05150000 EXLRLRQS EQU X'80' RELREQ EXIT PRESENT X03004 05200000 EXLRLRQA EQU X'40' RELREQ EXIT ACTIVE X03004 05250000 EXLRLRQK EQU X'20' RESERVED X03004 05300000 EXLRLRQP DS AL4 RELREQ EXIT ADDRESS X03004 05350000 EXLRLRQL EQU 50 LENGTH OF LIST TO HERE - 05400000 * 50 BYTES (EQUATED VALUE; 05450000 * NO BITS ACTUALLY SET)X03004 05500000 DS XL5 RESERVED @X50BHUC 05550000 EXLUNSPL EQU 55 LENGTH OF LIST TO HERE - 05600000 * 55 BYTES (EQUATED VALUE; 05650000 * NO BITS ACTUALLY SET)X03004 05700000 EXLATTNF DS XL1 ATTN ENTRY 05750000 * DESCRIPTION X03004 05800000 EXLATTNS EQU X'80' ATTN EXIT PRESENT X03004 05850000 EXLATTNA EQU X'40' ATTN EXIT ACTIVE X03004 05900000 EXLATTNK EQU X'20' RESERVED X03004 05950000 EXLATTNP DS AL4 ATTN EXIT ADDRESS X03004 06000000 EXLATTNL EQU 60 LENGTH OF LIST TO HERE - 06050000 * 60 BYTES (EQUATED VALUE; 06100000 * NO BITS ACTUALLY SET)X03004 06150000 EXLTPNDF DS XL1 TPEND ENTRY 06200000 * DESCRIPTION X03004 06250000 EXLTPNDS EQU X'80' TPEND EXIT PRESENT X03004 06300000 EXLTPNDA EQU X'40' TPEND EXIT ACTIVE X03004 06350000 EXLTPNDK EQU X'20' RESERVED X03004 06400000 EXLTPNDP DS AL4 TPEND EXIT ADDRESS X03004 06450000 EXLTPNDL EQU 65 LENGTH OF LIST TO HERE - 06500000 * 65 BYTES (EQUATED VALUE; 06550000 * NO BITS ACTUALLY SET)X03004 06600000 EXLTNSEF DS XL1 TPEND ENTRY 06650000 * DESCRIPTION G40AKCM 06700000 EXLTNSES EQU X'80' TPEND EXIT PRESENT G40AKCM 06750000 EXLTNSEA EQU X'40' TPEND EXIT ACTIVE G40AKCM 06800000 EXLTNSEK EQU X'20' RESERVED G40AKCM 06850000 EXLTNSEP DS AL4 NSEXIT EXIT ADDRESS G40AKCM 06900000 EXLTNSEL EQU 70 LENGTH OF LIST TO HERE - 06950000 * 70 BYTES (EQUATED VALUE NO 07000000 * BITS ACTUALLY SET) G40AKCM 07050000 ORG EXLJRNF BASE AT JRNAD X3004BH 07100000 EXLDFASF DS XL1 DFASY ENTRY X3004BH 07150000 * DESCRIPTION X3004BH 07200000 EXLDFASS EQU X'80' DFASY EXIT PRESENT X3004BH 07250000 EXLDFASA EQU X'40' DFASY EXIT ACTIVE X3004BH 07300000 EXLDFASK EQU X'20' RESERVED X3004BH 07350000 EXLDFASP DS AL4 DFASY EXIT ADDRESS X3004BH 07400000 EXLDFASL EQU 35 LENGTH OF LIST TO HERE - 07450000 * 35 BYTES (EQUATED VALUE; NO 07500000 * BITS ACTUALLY SET) X3004BH 07550000 ORG EXLOPNF BASE AT OPENAD X3004BH 07600000 EXLRESPF DS XL1 RESP ENTRY 07650000 * DESCRIPTION X3004BH 07700000 EXLRESPS EQU X'80' RESP EXIT PRESENT X3004BH 07750000 EXLRESPA EQU X'40' RESP EXIT ACTIVE X3004BH 07800000 EXLRESPK EQU X'20' RESERVED X3004BH 07850000 EXLRESPP DS AL4 RESP EXIT ADDRESS X3004BH 07900000 EXLRESPL EQU 40 LENGTH OF LIST TO HERE - 07950000 * 40 BYTES (EQUATED VALUE; NO 08000000 * BITS ACTUALLY SET) X3004BH 08050000 MEND 08100000 * END OF EXTL VTAM EXTENSION */ 08150000 *%EXLEND: ; 08200000