!*** MODULE $ILEDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Define the 32-bit Item List Entry 3 structure
 ! -
	STRUCTURE /ILE3/
	    INTEGER*2 ILE3$W_LENGTH			 !  Length of buffer in bytes
	    INTEGER*2 ILE3$W_CODE			 !  Item code value
	    INTEGER*4 ILE3$PS_BUFADDR		 !  Buffer address
	    INTEGER*4 ILE3$PS_RETLEN_ADDR		 !  Address of word for returned length
	END STRUCTURE	! ILE3
	PARAMETER ILE3$K_LENGTH = '0000000C'X	 !  Length of ILE3
	PARAMETER ILE3$C_LENGTH = '0000000C'X	 !  Length of ILE3
 ! +
 !  Define the 64-Bit Item List Entry B structure.  This is the 64-bit
 !  counterpart of the 32-bit item list 3 structure.
 ! -
	STRUCTURE /ILEB_64/
	    INTEGER*2 ILEB_64$W_MBO			 !  Must be One field
	    INTEGER*2 ILEB_64$W_CODE		 !  Item code value
	    INTEGER*4 ILEB_64$L_MBMO		 !  Must be Minus One field
	    INTEGER*4 ILEB_64$Q_LENGTH(2)		 !  Length of buffer in bytes
	    INTEGER*8 ILEB_64$PQ_BUFADDR		 !  Buffer address
	    INTEGER*8 ILEB_64$PQ_RETLEN_ADDR	 !  Address of quadword for returned length
	END STRUCTURE	! ILEB_64
	PARAMETER ILEB_64$K_LENGTH = '00000020'X  !  Length of ILEB
	PARAMETER ILEB_64$C_LENGTH = '00000020'X  !  Length of ILEB
 ! +
 !  Define the 32-bit Item List Entry 2 structure
 ! -
	STRUCTURE /ILE2/
	    INTEGER*2 ILE2$W_LENGTH			 !  Length of buffer in bytes
	    INTEGER*2 ILE2$W_CODE			 !  Item code value
	    INTEGER*4 ILE2$PS_BUFADDR		 !  Buffer address
	END STRUCTURE	! ILE2
	PARAMETER ILE2$K_LENGTH = '00000008'X	 !  Length of ILE2
	PARAMETER ILE2$C_LENGTH = '00000008'X	 !  Length of ILE2
 ! +
 !  Define the 64-Bit Item List Entry 2 structure.  This is the 64-bit
 !  counterpart of the 32-bit item list 2 structure.
 ! -
	STRUCTURE /ILEA_64/
	    INTEGER*2 ILEA_64$W_MBO			 !  Must be One field
	    INTEGER*2 ILEA_64$W_CODE		 !  Item code value
	    INTEGER*4 ILEA_64$L_MBMO		 !  Must be Minus One field
	    INTEGER*4 ILEA_64$Q_LENGTH(2)		 !  Length of buffer in bytes
	    INTEGER*8 ILEA_64$PQ_BUFADDR		 !  Buffer address
	END STRUCTURE	! ILEA_64
	PARAMETER ILEA_64$K_LENGTH = '00000018'X  !  Length of ILEA
	PARAMETER ILEA_64$C_LENGTH = '00000018'X  !  Length of ILEA
!DEC$ END OPTIONS