* %GOTO QMIOPBSL; /* 02000000 MACRO 04000000 IEFQMIOP 06000000 * QMNGRIO MACRO PARAMETER LIST DSECT 08000000 QMIOP DSECT 10000000 QMITCBAD DS A POINTER TO REQUESTERS TCB 12000000 QMIRECAD DS A POINTER TO RECORD BUFFER 14000000 QMIWRKAD DS A POINTER TO WORK AREA FOR Q MGR 16000000 QMIDSKAD DS F REL DISK ADDR (TTR0) OF RECORD 18000000 QMIRECL DS H RECORD LENGTH 20000000 QMIFLAGS DS XL1 FUNCTION FLAGS 22000000 QMIOREAD EQU X'80' BIT 0 = READ REQUEST 24000000 QMIOWRTE EQU X'40' BIT 1 = WRITE REQUEST 26000000 * BITS 2 - 7 RESERVED 28000000 DS XL1 RESERVED 30000000 MEND , */ 32000000 *%QMIOPBSL: ; 34000000 */* QMNGRIO MACRO PARAMETER LIST DSECT */ 36000000 *DECLARE 38000000 * 1 QMIOP BASED(QMIOPPTR), 40000000 * 2 QMITCBAD PTR(31), /* POINTER TO REQUESTERS 42000000 * TCB */ 44000000 * 2 QMIRECAD PTR(31), /* POINTER TO RECORD BUFFER */ 46000000 * 2 QMIWRKAD PTR(31), /* POINTER TO WORK AREA FOR 48000000 * Q MGR */ 50000000 * 2 QMIDSKAD FIXED(31), /* REL DISK ADDR (TTR0) OF 52000000 * RECORD */ 54000000 * 2 QMIRECL FIXED(15), /* RECORD LENGTH */ 56000000 * 2 QMIFLAGS CHAR(1), /* FUNCTION FLAGS */ 58000000 * 3 QMIOREAD BIT(1), /* BIT 0 = READ REQUEST */ 60000000 * 3 QMIOWRTE BIT(1), /* BIT 1 = WRITE REQUEST 62000000 * BITS 2 - 7 RESERVED */ 64000000 * 3 * BIT(1), /* RESERVED */ 66000000 * 3 * BIT(1), /* RESERVED */ 68000000 * 3 * BIT(1), /* RESERVED */ 70000000 * 3 * BIT(1), /* RESERVED */ 72000000 * 3 * BIT(1), /* RESERVED */ 74000000 * 3 * BIT(1), /* RESERVED */ 76000000 * 2 * CHAR(1); /* RESERVED */ 78000000