* %GOTO IHARQE ; /* BILINGUAL MAPPING /* /* 03000001 MACRO 06000001 IHARQE 09000001 RQESECT DSECT REQUEST QUEUE ELEMENT LEVEL=1 12000001 RQELNK DS AL2 PTR TO NEXT RQE 15000001 RQEUCB DS AL2 ADDR UCB ASSOC WITH QUEUED I/O REQUEST 18000001 RQEIDT DS 0C RQE IDENTITY FIELD 21000001 RQEIOB DS A ADDR IOB ASSOC WITH REQUEST 24000001 RQETJID1 DS 0C 1ST HALF TS JOB IDENTIFICATION 27000001 RQEPRI DS CL1 DISPATCHING PRIORITY OF REQUESTOR'S TASK 30000001 RQEDEB EQU RQEPRI 33000001 DS AL3 ADDR DEB FOR THIS REQUEST 36000001 RQETJID2 DS 0C 2ND HALF TS JOB IDENTIFICATION 39000001 RQETCB DS A ADDR TCB ASSOCIATED WITH THIS RQE 42000001 MEND , */ 45000001 * %IHARQE: ; 48000001 */* REQUEST QUEUE ELEMENT - R.Q.E. LEVEL=1 */ 48050001 * DECLARE 51000001 * 1 RQESECT BASED(RQESEPTR), 54000001 * 2 RQELNK PTR(15) BDY(BYTE), /* PTR TO NEXT RQE */ 57000001 * 2 RQEUCB PTR(15) BDY(BYTE), /* ADDR UCB ASSOC WITH QUEUED 60000001 * I/O REQUEST */ 63000001 * 2 RQEIOB PTR(31), /* ADDR IOB ASSOC WITH REQUEST */ 66000001 * 3 RQEIDT CHAR(1), /* RQE IDENTIFY FIELD */ 69000001 * 2 RQEDEB PTR(31), /* ADDR DEB FOR THIS REQUEST */ 72000001 * 3 RQETJID1 CHAR(1), /* 1ST HALF TS JOB 75000001 * IDENTIFICATION */ 78000001 * 4 RQEPRI CHAR(1), /* DISPATCHING PRIORITY OF 81000001 * REQUESTOR'S TASK */ 84000001 * 2 RQETCB PTR(31), /* ADDR TCB ASSOCIATED WITH 87000001 * THIS RQE */ 90000001 * 3 RQETJID2 CHAR(1); /* 2ND HALF TS JOB 93000001 * IDENTIFICATION */ 96000001