* 00001000 * 00002000 * %GOTO OPARM1; /* 00003000 MACRO 00004000 IKTOPARM 00005000 OPARMS DSECT 00006000 DS 0F */ 00007000 *%OPARM1: ; 00008000 * 00009000 */********************************************************************/ 00010000 */* */ 00020000 */* TSO/VTAM QUEUE MANAGER OUTPUT SERVICES */ 00066000 */* PARAMETER LIST */ 00116000 */* */ 00166000 */* TSO/VTAM LEVEL 2.0 SU58 */ 00216000 */* */ 00266000 */* THE TSO/VTAM QUEUE MANAGER OUTPUT SERVICES PARAMETER */ 00316000 */* LIST IS FOR MAPPING THE PARAMETER LIST FOR THE */ 00366000 */* OUTPUT QUEUE SERVICES. */ 00416000 */* */ 00466000 */* */ 00516000 */* METHOD OF ACCESS */ 00610000 */* BAL - A DSECT IS PRODUCED FOR OPARMS. USING ON */ 00620000 */* OPARMS GIVES ADDRESSABILITY FOR ALL OPARMS */ 00670000 */* SYMBOLS. @G58SKSR*/ 00720000 */* PL/S- SPECIFY %STRCTR='MAJOR' IF A MAJOR */ 00770000 */* STRUCTURE IS DESIRED */ 00820000 */* */ 00870000 */* F. E.'S- */ 00920000 */* MICROFICHE LISTING - IKTOPARM */ 00970000 */* */ 01020000 */* CHANGE ACTIVITY - */ 01070000 */* SEP 77 - TSO/VTAM LEVEL 2.0 SU58 @G58SKSR*/ 01120000 */********************************************************************/ 01170000 * 01220000 *%GOTO OPARM2; /* 01270000 OPBUFADR DS F ADDRESS OF MESSAGE BUFFER 01320000 OPREQ DS C REQUEST CODE 01370000 OPRC DS C RETURN CODE 01420000 OPBFSZ DS H SIZE OF MESSAGE BUFFER 01470000 OPFLAGS DS C FLAG BYTE 01520000 OPALLOC EQU X'80' ALLOCATION METHOD 01570000 OPADTOP EQU X'40' THIS ELEMENT ADDED TO TOP OF QUEUE 01620000 * BITS 2-7 RESERVED 01670000 OPOPTNS DS C OUTPUT OPTIONS 01720000 OPHOLD EQU X'80' TPUT HOLD INDICATOR 01770000 OPBRK EQU X'40' TPUT BREAKIN INDICATOR 01820000 OPEDIT EQU X'30' EDIT OPTIONS 01870000 OPEDIT1 EQU X'00' OPEDIT WITH BOTH BITS B'00' 01920000 OPASIS EQU X'10' OPEDIT WITH BOTH BITS B'01' 01970000 OPCNTL EQU X'20' OPEDIT WITH BOTH BITS B'10' 02020000 OPFLSCR EQU X'30' OPEDIT WITH BOTH BITS B'11' 02070000 OPASID EQU X'08' ASID TPUT INDICATOR 02120000 * BITS 5-7 RESERVED 02170000 DS CL2 RESERVED 02220000 DS H RESERVED 02270000 OPNXBFSZ DS H 02320000 OPNXFLGS DS CL2 02370000 OPNXALC EQU X'80' ALLOCATION METHOD 02420000 OPNXADTP EQU X'40' THIS ELEMENT ADDED TO TOP OF QUEUE 02470000 * BITS 2-7 RESERVED 02520000 OPNXHOLD EQU X'80' TPUT HOLD INDICATOR 02570000 OPNXBRK EQU X'40' 02620000 OPNXEDIT EQU X'30' EDIT OPTIONS 02670000 OPNEDIT1 EQU X'00' OPNXEDIT WITH BOTH BITS B'00' 02720000 OPNASIS EQU X'10' OPNXEDIT WITH BOTH BITS B'01' 02770000 OPNCNTL EQU X'20' OPNXEDIT WITH BOTH BITS B'10' 02820000 OPNFLSCR EQU X'30' OPNXEDIT WITH BOTH BITS B'11' 02870000 OPNXASID EQU X'08' 02920000 * BITS 5-7 RESERVED 02970000 DS CL2 RESERVED 03020000 * 03070000 * ******************************************************** 03120000 * 0 * OPBUFADR * OPREQ * OPRC * OPBFSZ * 03170000 * ******************************************************** 03220000 * 8 *OPFALGS*OPOPTNS* RESVD * RESERVED * OPNXBFSZ * 03270000 * ******************************************************** 03320000 * 10 * OPNXFLGS * RESVD * @ZA19933 03370000 * ******************************************************** 03420000 MEND , @G58SKSR*/ 03470000 *%OPARM2: ; 03520000 *%IF STRCTR ^= 'MAJOR' %THEN 03570000 * %GOTO CONT1; 03620000 *DECLARE 03670000 * 1 OPARMS BDY(WORD), 03720000 * %GOTO CONT2; 03770000 *%CONT1: ; 03820000 * 2 OPARMS BDY(WORD), 03870000 *%CONT2: ; 03920000 * 4 OPBUFADR PTR(31), /*ADDRESS OF MESSAGE BUFFER */ 03970000 * 4 OPREQ FIXED(8), /*REQUEST CODE */ 04020000 * 4 OPRC FIXED(8), /*RETURN CODE */ 04070000 * 4 OPBFSZ FIXED(15), /*SIZE OF MESSAGE BUFFER */ 04120000 * 4 OPFLAGS, 04170000 * 6 OPALLOC BIT(1), /*ALLOCATION METHOD */ 04220000 * 6 OPADTOP BIT(1), /*THIS ELEMENT ADDED TO TOP OF QUEUE*/ 04270000 * 6 * BIT(6), /*RESERVED */ 04320000 * 6 OPOPTNS, /* OUTPUT OPTIONS */ 04370000 * 8 OPHOLD BIT(1), /* TPUT HOLD INDICATOR */ 04420000 * 8 OPBRK BIT(1), /* TPUT BREAKIN INDICATOR */ 04470000 * 8 OPEDIT BIT(2), /* EDIT OPTIONS */ 04520000 * 8 OPASID BIT(1), /* ASID TPUT INDICATOR */ 04570000 * 8 * BIT(3), 04620000 * 6 * CHAR(1), 04670000 * 6 * CHAR(1), /* RESERVED */ 04720000 * 4 * FIXED(15), 04770000 * 4 OPNXBFSZ FIXED(15), 04820000 * 4 OPNXFLGS , 04870000 * 6 OPNXALC BIT(1), /*ALLOCATION METHOD */ 04920000 * 6 OPNXADTP BIT(1), /*THIS ELEMENT ADDED TO TOP OF QUEUE*/ 04970000 * 6 * BIT(6), /*RESERVED */ 05020000 * 6 OPNXHOLD BIT(1), /* TPUT HOLD INDICATOR */ 05070000 * 6 OPNXBRK BIT(1), 05120000 * 6 OPNXEDIT BIT(2), /* EDIT OPTIONS */ 05170000 * 6 OPNXASID BIT(1), 05220000 * 6 * BIT(3), 05270000 * 6 * CHAR(1), 05320000 *%IF STRCTR ^= 'MAJOR' %THEN 05370000 * %GOTO CONT3; 05420000 * 6 * CHAR(1); /* RESERVED */ 05470000 * %GOTO CONT4; 05520000 *%CONT3: ; 05570000 * 6 * CHAR(1), /* RESERVED */ 05620000 *%CONT4: ; 05670000