* %GOTO QIOPLS; /* 00700000 MACRO 01400000 IHAQIO &DSECT=YES 02100000 AIF ('&DSECT' EQ 'NO').DS0D 02800000 IHAQIO DSECT 03500000 AGO .BODY 04200000 .DS0D ANOP 04900000 IHAQIO DS 0D 05600000 .BODY ANOP 06300000 *********************************************************************** 07000000 * * 07700000 * MAPPING OF WORKAREA SET UP BY QMNGRIO MACRO REQUEST * 08400000 * * 09100000 * RELEASE 1 AOS/1 LAST UPDATE 06/04/71 * 09800000 * * 10500000 * SPACE IS PASSED TO THE QMNGRIO MACRO HANDLER TO BE USED * 11200000 * TO SET UP ALL NECESSARY TABLES AND WORK AREAS FOR AN I/O * 11900000 * REQUEST TO THE QUEUE MANAGER. THIS MAPPING GIVES THE WAY * 12600000 * THAT SPACE IS BROKEN DOWN BY THE MODULE IEFQMMAC. * 13300000 * * 14000000 *********************************************************************** 14700000 QIOQMPA DS CL36 - Q MGR PARAMETER AREA 15400000 QIOECIOB DS 0CL76 ECB/IOB SPACE 16100000 QIOECB DS F - EVENT CONTROL BLOCK 16800000 QIOIOB DS 0D - INPUT/OUTPUT BLOCK 17500000 QIOIFLGS DS CL2 - IOB FLAG BYTES 18200000 QIOISNS DS CL2 - IOB SENSE BYTES 18900000 QIOIECB DS 0F - 19600000 QIOICC DS CL1 - IOB ECB COMPLETION CODE 20300000 QIOIECBA DS AL3 - IOB ECB ADDRESS 21000000 QIOIFLG3 DS CL1 - IOB FLAG BYTE 3 21700000 QIOICSW DS CL7 - SEVEN LOW ORDER BYTES OF LAST CSW 22400000 QIOIST DS 0F - 23100000 QIOISIO DS CL1 - SIO CONDITION CODE 23800000 QIOISTRT DS AL3 - CCW CHAIN POINTER 24500000 QIOIDCB DS 0F - 25200000 QIOIRSVD DS CL1 - 25900000 QIOIDCBA DS AL3 - IOB DCB ADDRESS 26600000 QIOIREST DS CL8 - SPACE TO IOB END 27300000 QIOISEEK DS CL8 - SEEK/SEARCH MBBCCHHR 28000000 QIOISET DS 0D - SET SECTOR CCW 28700000 QIOISETO DS CL1 - SET SECTOR OP CODE 29400000 QIOISETA DS AL3 - SET SECTOR DATA ADDRESS 30100000 QIOISETF DS CL1 - SET SECTOR FLAGS 30800000 QIOISETR DS CL1 - SET SECTOR RESERVED 31500000 QIOISETL DS H - SET SECTOR LENGTH 32200000 QIOISCH DS 0D - SEARCH CCW 32900000 QIOISCHO DS CL1 - SEARCH OP CODE 33600000 QIOISCHA DS AL3 - SEARCH DATA ADDRESS 34300000 QIOISCHF DS CL1 - SEARCH FLAGS 35000000 QIOISCHR DS CL1 - SEARCH RESERVED 35700000 QIOISCHL DS H - SEARCH LENGTH 36400000 QIOITIC DS 0D - TIC CCW 37100000 QIOITICO DS CL1 - TIC OP CODE 37800000 QIOITICA DS AL3 - TIC DATA ADDRESS 38500000 QIOITICF DS CL1 - TIC FLAGS 39200000 QIOITICR DS CL1 - TIC RESERVED 39900000 QIOITICL DS H - TIC LENGTH 40600000 QIOIO DS 0D - I/O CCW 41300000 QIOIOO DS CL1 - I/O OP CODE 42000000 QIOIOA DS AL3 - I/O DATA ADDRESS 42700000 QIOIOF DS CL1 - I/O FLAGS 43400000 QIOIOR DS CL1 - I/O RESERVED 44100000 QIOIOL DS H - I/O LENGTH 44800000 QIOJOB DS 0F - QMPA JOB INFO LIST 45500000 QIOFILL1 DS F - FULL WORK OF ZEROS 46200000 QIONAMEA DS A - POINTER TO JOB NAME 46900000 QIOSWADS DS A - POINTER TO SWADS DCB 47600000 QIOPREXP DS 0F - QMPA EXTERNAL PARM AREA PREFIX 48300000 QIOFILL2 DS H - 49000000 QIORECL DS H - RECORD LENGTH 49700000 QIOXPA DS 0F - QMPA EXTERNAL PARM AREA 50400000 QIOCOREA DS A - IN-CORE ADDRESS OF RECORD 51100000 QIOTTR0 DS CL4 - RELATIVE DISK ADDRESS OF RECORD 51800000 QIOQMWRK DS CL120 WORK SPACE FOR QUEUE MANAGER 52500000 MEND , */ 53200000 *%QIOPLS: ; 53900000 * DECLARE 54600000 * 1 IHAQIO BASED (QIOPTR) BDY (DWORD), /* QMNGRIO WORK AREA */ 55300000 * 4 QIOQMPA CHAR (36) BDY (DWORD), /* Q MGR PARAMETER AREA */ 56000000 * 4 QIOECIOB CHAR (76) BDY (DWORD,5), /* ECB/IOB/CCW CHAIN */ 56700000 * 6 QIOECB FIXED (31), /* EVENT CONTROL BLOCK */ 57400000 * 6 QIOIOB BDY (DWORD), /* INPUT/OUTPUT BLOCK */ 58100000 * 8 QIOIFLGS CHAR (2), /* IOB FLAG BYTES */ 58800000 * 8 QIOISNS CHAR (2), /* IOB SENSE BYTES */ 59500000 * 8 QIOIECB PTR (31), /* */ 60200000 * 10 QIOICC CHAR (1), /* ECB COMPLETION CODE */ 60900000 * 10 QIOIECBA PTR (24), /* ECB ADDRESS */ 61600000 * 8 QIOIFLG3 CHAR (1), /* IOB FLAG BYTE 3 */ 62300000 * 8 QIOICSW CHAR (7), /* CSW LOW ORDER 7 BYTES*/ 63000000 * 8 QIOIST PTR (31), /* */ 63700000 * 10 QIOISIO CHAR (1), /* SIO CONDITION CODE */ 64400000 * 10 QIOSTRT PTR (24), /* CCW CHAIN POINTER */ 65100000 * 8 QIOIDCB PTR (31), /* */ 65800000 * 10 * CHAR (1), /* */ 66500000 * 10 QIOIDCBA PTR (24), /* DCB ADDRESS */ 67200000 * 8 * CHAR (8), /* */ 67900000 * 8 QIOISEEK CHAR (8), /* SEEK/SEARCH MBBCCHHR */ 68600000 * 8 QIOISET, /* SET SECTOR CCW */ 69300000 * 10 QIOISETO CHAR (1), /* SET SECTOR OP CODE */ 70000000 * 10 QIOISETA PTR (24), /* SET SECTOR DATA ADDR */ 70700000 * 10 QIOISETF CHAR (1), /* SET SECTOR FLAGS */ 71400000 * 10 QIOISETR CHAR (1), /* SET SECTOR RESERVED */ 72100000 * 10 QIOISETL FIXED (15), /* STE SECTOR LENGTH */ 72800000 * 8 QIOISCH, /* SERACH CCW */ 73500000 * 10 QIOISCHO CHAR (1), /* SEARCH OP CODE */ 74200000 * 10 QIOISCHA PTR (24), /* SEARCH DATA ADDRESS */ 74900000 * 10 QIOISCHF CHAR (1), /* SEARCH FLAGS */ 75600000 * 10 QIOISCHR CHAR (1), /* SEARCH RESERVED */ 76300000 * 10 QIOISCHL FIXED (15), /* SEARCH LENGTH */ 77000000 * 8 QIOITIC, /* TIC CCW */ 77700000 * 10 QIOITICO CHAR (1), /* TIC OP CODE */ 78400000 * 10 QIOITICA PTR (24), /* TIC DATA ADDRESS */ 79100000 * 10 QIOITICF CHAR (1), /* TIC FLAGS */ 79800000 * 10 QIOITICR CHAR (1), /* TIC RESERVED */ 80500000 * 10 QIOITICL FIXED (15), /* TIC LENGTH */ 81200000 * 8 QIOIO, /* I/O CCW */ 81900000 * 10 QIOIOO CHAR (1), /* I/O OP CODE */ 82600000 * 10 QIOIOA PTR (24), /* I/O DATA ADDRESS */ 83300000 * 10 QIOIOF CHAR (1), /* I/O FLAGS */ 84000000 * 10 QIOIOR CHAR (1), /* I/O RESERVED */ 84700000 * 10 QIOIOL FIXED (15), /* I/O LENGTH */ 85400000 * 4 QIOJOB CHAR (12) BDY (WORD), /* JOB INFORMATION LIST */ 86100000 * 6 * FIXED (31), /* */ 86800000 * 6 QIONAMEA PTR (31), /* POINTER TO JOB NAME */ 87500000 * 6 QIOSWADS PTR (31), /* SWADS DCB PTR OR ZERO*/ 88200000 * 4 QIOPREXP CHAR (4) BDY (WORD), /* EXT PARM AREA PREFIX */ 88900000 * 6 * CHAR (2), /* */ 89600000 * 6 QIORECL FIXED (15), /* REC LENGTH FOR I/O */ 90300000 * 4 QIOXPA CHAR (8) BDY (WORD), /* EXTERNAL PARM AREA */ 91000000 * 6 QIOCOREA PTR (31), /* IN-CORE RECORD ADDR */ 91700000 * 6 QIOTTR0 CHAR (4), /* REL DISK ADDR OF REC */ 92400000 * 4 QIOQMWRK CHAR (120); /* WORK SPACE FOR Q MGR */ 93100000