!*** MODULE $ARGDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !         ARG$ - The argument descriptors
 ! 
	PARAMETER ARG$C_UNKNOWN = '00000000'X	 !  Unspecified or unknown 
	PARAMETER ARG$C_VALUE = '00000001'X	 !  Passed by value 
	PARAMETER ARG$C_REF = '00000002'X	 !  Passed by reference 
	PARAMETER ARG$C_DESC = '00000003'X	 !  Passed by descriptor 
	PARAMETER ARG$K_SIZE = '00000002'X
	PARAMETER ARG$C_SIZE = '00000002'X
	STRUCTURE /ARGDEF/
	    UNION
	        MAP
	        BYTE      ARG$B_VALCTL			 ! Validation control byte 
	        END MAP
	        MAP
	            PARAMETER ARG$S_PASSMECH = 2
	            PARAMETER ARG$V_PASSMECH = 0		 ! Passing mechanism 
	        BYTE %FILL (1)
	        END MAP
 !  Passing mechanisms 
	    END UNION
	    BYTE      ARG$B_BYTECNT			 ! Remaining byte count 
	END STRUCTURE	! ARGDEF
!DEC$ END OPTIONS