* /* MACMEAN IORB MEANS INPUT OUTPUT REQUEST BLOCK */ 00050040 * /* MACCOMP Y-4SC1CW/PZD81 */ 00100040 * /* MACSTAT Y-474240/415301 */ 00150040 */*A-000000-999999 @Z40APWA*/ 00200040 */********************************************************************/ 00250040 */* */ 00300040 */* NAME: ILRIORB */ 00350040 */* */ 00400040 */* FUNCTION: INPUT/OUTPUT REQUEST BLOCK */ 00450040 */* */ 00500040 */* STATUS: OS/VS2 RELEASE 4.1, LEVEL 0 */ 00550040 */* */ 00600040 */* EXTERNAL REFERENCES: IORBPTR - USER DEFINED POINTER TO IORB */ 00650040 */* */ 00700040 */* REGISTERS USED: N/A */ 00750040 */* */ 00800040 */* REGISTERS CLOBBERED: N/A */ 00850040 */* */ 00900040 */* NOTES: THIS MAPPING MACRO DESCRIBES THE CONTROL BLOCK PASSED */ 00950040 */* TO THE I/O MANAGER BY AUXILIARY STORAGE MANAGER. IT */ 01000040 */* CONTAINS POINTERS TO OTHER CONTROL BLOCKS, A POINTER TO */ 01050040 */* AN EIGHTEEN WORD SAVE AREA, AND FLAGS FOR I/O MANAGERS */ 01100040 */* USE. */ 01150040 */* */ 01200040 */* THE IORB IS USED IN CONJUNCTION WITH AN IOSB AND AN SRB */ 01250040 */* FOR I/O PURPOSES IN PLACE OF THE IOB USED BY OTHER IOS */ 01300040 */* DRIVERS. THE IORB POINTS TO THE IOSB, WHICH POINTS TO */ 01350040 */* THE SRB. */ 01400040 */* */ 01450040 */* METHOD OF ACCESS: */ 01500040 */* BAL - DSECT=NO SHOULD BE SPECIFIED ON THE MACRO CALL */ 01550040 */* TO AVOID CREATING A DSECT. A USING ON IORB WILL */ 01600040 */* ESTABLISH ADDRESSIBILITY FOR ALL SYMBOLS. */ 01650040 */* PL/S - DCL IORBPTR PTR */ 01700040 */* */ 01750040 */********************************************************************/ 01800040 * %GOTO IORBPLS; /* BILINGUAL HEADER 01850040 MACRO 01900040 ILRIORB &DUMMY,&DSECT=YES 01950040 AIF ('&DSECT' EQ 'YES').IORB01 02000040 IORB DS 0D IORB CONTROL BLOCK 02050040 AGO .IORB02 CALL FOR BIT DEFINITION 02100040 .IORB01 ANOP 02150040 IORB DSECT , IORBPTR 02200040 .IORB02 SPACE 2 02250040 IEZBITS , 02300040 IORID DS C IORB IDENTIFIER X'88' 02350040 IORNUM DS X NO. OF IORBS FOR THIS PAGE SPACE 02400040 IORRQSZ DS X NUMBER OF PCCWS IN THIS REQUEST 02450040 IORFLGS DS B INTERNAL FLAGS 02500040 IORFUSE EQU BIT0 X'80' = IORB IN USE 02550040 IORFRPS EQU BIT1 X'40' = RPS DEVICE 02600040 IORSWAP EQU BIT4 SWAP DATA SET FLAG 02760040 * 1 = IORB FOR SWAP DATA SET 02770040 * 0 = IORB FOR PAGE DATA SET 02780040 IORAPND EQU BIT5 APPENDAGE FLAGS 02784040 IORFDI EQU BIT5 X'04' = DIE COMPLETED 02788040 IORFNE EQU BIT6 X'02' = NORMAL END COMPLETED 02792040 IORFAE EQU BIT7 X'01' = ABNORMAL END COMPLETED 02796040 IORIORB DS A POINTER TO NEXT IORB 02800040 IORPCCW DS A POINTER TO FIRST PCCW 02850040 IORSCCW EQU IORPCCW POINTER TO FIRST SCCW 02870040 IORIOSB DS A IOSB ADDRESS 02950040 IORSAVE DS A POINTER TO 18 WORD SAVE AREA 03000040 IORERR DS A ADDRESS OF PCCW IN ERROR 03050040 IORTSMP DS CL8 ILRSRT TOD STAMP 03080040 IORPARTE DS A POINTER TO PARTE 03150040 IORRSV DS F RESERVED 03170040 MEND 03250040 * */ 03300040 *%IORBPLS:; /* PLS COMPILE TIME TARGET */ 03350040 * DCL 1 IORB BASED(IORBPTR) CHAR(40) BDY(DWORD), /* IORB */ 03400040 * 2 IORID CHAR(1), /* IORB IDENTIFIER X'88' */ 03450040 * 2 IORNUM FIXED(8), /* NO. OF IORBS FOR PAGE SPACE */ 03500040 * 2 IORRQSZ FIXED(8), /* NUMBER OF PCCWS THIS REQUEST */ 03550040 * 2 IORFLGS BIT(8), /* INTERNAL FLAGS */ 03600040 * 3 IORFUSE BIT(1), /* X'80' = IORB IN USE */ 03650040 * 3 IORFRPS BIT(1), /* X'40' = RPS DEVICE */ 03700040 3 * BIT(2), /* RESERVED */ 03750040 * 3 IORSWAP BIT(1), /* SWAP DATA SET FLAG 03860040 * 1 = IORB FOR SWAP DATA SET 03870040 * 0 = IORB FOR PAGE DATA SET */ 03880040 * 3 IORAPND BIT(3), /* APPENDAGE FLAGS */ 03884040 * 4 IORFDI BIT(1), /* DIE COMPLETED */ 03888040 * 4 IORFNE BIT(1), /* NORMAL END COMPLETED FLAG */ 03892040 4 IORFAE BIT(1), /* ABNORMAL END COMPLETED FLAG */ 03896040 * 2 IORIORB PTR(31), /* POINTER TO NEXT IORB */ 03950040 * 2 IORPCCW PTR(31), /* POINTER TO FIRST PCCW */ 04000040 * 3 IORSCCW PTR(31), /* POINTER TO FIRST SCCW */ 04020040 * 2 IORIOSB PTR(31), /* IOSB ADDRESS */ 04100040 * 2 IORSAVE PTR(31), /* POINTER TO 18 WORD SAVE AREA */ 04150040 * 2 IORERR PTR(31), /* POINTER TO PCCW IN ERROR */ 04200040 * 2 IORTSMP CHAR(8), /* ILRSRT TOD STAMP */ 04230040 * 2 IORPARTE PTR(31), /* POINTER TO PARTE */ 04300040 * 2 IORRSV CHAR(4), /* RESERVED */ 04400040 * 2 * CHAR(0) BDY(DWORD); 04450040