!*** MODULE $IOSBDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Define I/O Status Block
 ! -
	STRUCTURE /IOSB/
	    UNION
	        MAP
	            INTEGER*2 IOSB$W_STATUS			 !  Final I/O status
	            UNION
	                MAP
	                    INTEGER*2 IOSB$W_BCNT			 !  16-bit byte count
	                    UNION
	                        MAP
	                        INTEGER*4 IOSB$L_DEV_DEPEND		 !  32-bit device dependent info
	                        END MAP
	                        MAP
	                        INTEGER*4 IOSB$L_PID			 !  32-bit pid
	                        END MAP
	                    END UNION
	                END MAP
	                MAP
	                    INTEGER*4 IOSB$L_BCNT			 !  32-bit byte count (unaligned)
	                    INTEGER*2 IOSB$W_DEV_DEPEND_HIGH	 !  16-bit device dependent info
	                END MAP
	            END UNION
	        END MAP
	        MAP
	            UNION
	                MAP
	                INTEGER*4 IOSB$L_GETXXI_STATUS		 !  Final GETxxI status
	                END MAP
	                MAP
	                INTEGER*4 IOSB$L_REG_STATUS		 !  Final $Registry status
	                END MAP
	            END UNION
	            INTEGER*4 %FILL				 !  Reserved field
	        END MAP
	    END UNION
	END STRUCTURE	! IOSB
	PARAMETER IOSB$K_LENGTH = '00000008'X	 !  Length of IOSB
	PARAMETER IOSB$C_LENGTH = '00000008'X	 !  Length of IOSB
!DEC$ END OPTIONS