* 00005000 * 00010000 * %GOTO IPARM1; /* 00015000 MACRO 00020000 IKTIPARM 00025000 IPARMS DSECT 00030000 DS 0F */ 00035000 *%IPARM1: ; 00040000 * 00045000 */********************************************************************/ 00050000 */* */ 00060000 */* TSO/VTAM QUEUE MANAGER INPUT SERVICES */ 00070000 */* PARAMETER LIST */ 00080000 */* */ 00090000 */* TSO/VTAM LEVEL 2.0 SU58 */ 00100000 */* */ 00110000 */* THE TSO/VTAM QUEUE MANAGER INPUT SERVICES PARAMETER */ 00120000 */* LIST IS FOR MAPPING THE PARAMETER LIST FOR THE */ 00130000 */* INPUT QUEUE SERVICES. */ 00140000 */* */ 00150000 */* */ 00160000 */* METHOD OF ACCESS */ 00170000 */* BAL - A DSECT IS PRODUCED FOR IPARMS. USING ON */ 00180000 */* IPARMS GIVES ADDRESSABILITY FOR ALL IPARMS */ 00190000 */* SYMBOLS. @G58SKSR*/ 00200000 */* PL/S- SPECIFY %STRCTR='MAJOR' IF A MAJOR */ 00210000 */* STRUCTURE IS DESIRED */ 00220000 */* */ 00230000 */* F. E.'S- */ 00240000 */* MICROFICHE LISTING - IKTIPARM */ 00250000 */* */ 00260000 */* CHANGE ACTIVITY - */ 00270000 */* SEP 77 - TSO/VTAM LEVEL 2.0 SU58 @G58SKSR*/ 00280000 */********************************************************************/ 00290000 * 00300000 *%GOTO IPARM2; /* 00310000 IPBUFADR DS F ADDRESS OF BUFFER FOR MESSAGE 00320000 IPREQ DS C REQUEST CODE 00330000 IPRC DS C RETURN CODE 00340000 IPBFSZ DS H SIZE OF MESSAGE BUFFER 00350000 IPFLAGS DS CL2 FLAG BYTES 00360000 IPALLOC EQU X'80' METHOD OF ALLOCATION 00370000 * BITS 1-7 RESERVED 00380000 IPAVBL EQU X'80' THIS MESSAGE IS AVAILABLE 00390000 IPPRMPT EQU X'40' 00400000 IPPRTL EQU X'20' 00410000 * BITS 3-7 RESERVED 00420000 IPCCC DS C CONTROL CHARACTER COUNT 00430000 IPTRMTYP DS C TERMINAL TYPE 00440000 DS CL2 RESERVED 00450000 IPNXBFSZ DS H SIZE OF THE NEXT MESSAGE 00460000 IPNXFLGS DS CL2 FLAGS OF THE NEXT MESSAGE 00470000 IPNXALC EQU X'80' METHOD OF ALLOCATION 00480000 * BITS 1-7 RESERVED 00490000 IPNXAVBL EQU X'80' THIS MESSAGE IS AVAILABLE 00500000 IPNXPMT EQU X'40' 00510000 IPNXPRTL EQU X'20' 00520000 * BITS 3-7 RESERVED 00530000 IPNXCCC DS C CONTROL CHARACTER COUNT 00540000 IPNXTMTP DS C TERMINAL TYPE 00550000 * 00560000 * ***************************************************** 00570000 * 0 * IPBUFADR * IPREQ * IPRC * IPBFSZ * 00580000 * ***************************************************** 00590000 * 8 * IPFLAGS * IP * IP * RESERVED * IPNXBFSZ * 00600000 * * * CCC * TMTP* * * 00610000 * ***************************************************** 00620000 * 10 * IPNXFLGS * IPNX * IPNX* @ZA19933 * 00630000 * * * CCC * TMTP* * 00640000 * ***************************************************** 00650000 MEND , @G58SKSR */ 00660000 *%IPARM2: ; 00670000 *%IF STRCTR ^= 'MAJOR' %THEN 01300000 * %GOTO CINT1; 01350000 *DECLARE 01400000 * 1 IPARMS BDY(WORD), 01450000 * %GOTO CINT2; 01500000 *%CINT1: ; 01550000 * 2 IPARMS BDY(WORD), 01600000 *%CINT2: ; 01650000 * 4 IPBUFADR PTR(31), /*ADDRESS OF BUFFER FOR MESSAGE */ 01700000 * 4 IPREQ FIXED(8), /*REQUEST CODE */ 01750000 * 4 IPRC FIXED(8), /*RETURN CODE */ 01800000 * 4 IPBFSZ FIXED(15), /*SIZE OF MESSAGE BUFFER */ 01850000 * 4 IPFLAGS, 01900000 * 6 IPALLOC BIT(1), /*METHOD OF ALLOCATION */ 01950000 * 6 * BIT(7), /* RESERVED */ 02000000 * 6 IPAVBL BIT(1), /*THIS MESSAGE IS AVAILABLE */ 02050000 * 6 IPPRMPT BIT(1), 02100000 * 6 IPPRTL BIT(1), 02150000 * 6 * BIT(5), /*RESERVED */ 02200000 * 6 IPCCC FIXED(8), /*CONTROL CHARACTER COUNT */ 02250000 * 6 IPTRMTYP FIXED(8), /* TERMINAL TYPE */ 02300000 * 4 * FIXED(15), /*RESERVED */ 02350000 * 4 IPNXBFSZ FIXED(15), /*SIZE OF NEXT MESSAGE */ 02400000 * 4 IPNXFLGS , /* FLAGS OF NEXT MESSAGE */ 02450000 * 6 IPNXALC BIT(1), /*METHOD OF ALLOCATION */ 02500000 * 6 * BIT(7), /* RESERVED */ 02550000 * 6 IPNXAVBL BIT(1), /*THIS MESSAGE IS AVAILABLE */ 02600000 * 6 IPNXPMT BIT(1), 02650000 * 6 IPNXPRTL BIT(1), 02700000 * 6 * BIT(5), /*RESERVED */ 02750000 * 6 IPNXCCC FIXED(8), /*CONTROL CHARACTER COUNT */ 02800000 *%IF STRCTR ^= 'MAJOR' %THEN 02850000 * %GOTO CINT3; 02900000 * 6 IPNXTMTP FIXED(8); /* TERMINAL TYPE */ 02950000 * %GOTO CINT4; 03000000 *%CINT3: ; 03050000 * 6 IPNXTMTP FIXED(8), /* TERMINAL TYPE */ 03100000 *%CINT4: ; 03150000