!*** MODULE $JPIFDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 ! 
 !  Get Job Process Information "Fast" Data Identifier Definitions
 ! 
 ! -
	PARAMETER JPIF$M_UASTACT = '00000001'X
	PARAMETER JPIF$C_UASTACT = '00000000'X
	PARAMETER JPIF$M_RMS_DFMBC = '00000002'X
	PARAMETER JPIF$C_RMS_DFMBC = '00000001'X
	PARAMETER JPIF$M_PARSE_STYLE_PERM = '00000004'X
	PARAMETER JPIF$C_PARSE_STYLE_PERM = '00000002'X
	PARAMETER JPIF$M_PARSE_STYLE_IMAGE = '00000008'X
	PARAMETER JPIF$C_PARSE_STYLE_IMAGE = '00000003'X
	PARAMETER JPIF$M_LOGINTIM_L = '00000010'X
	PARAMETER JPIF$C_LOGINTIM_L = '00000004'X
	PARAMETER JPIF$M_LOGINTIM_H = '00000020'X
	PARAMETER JPIF$C_LOGINTIM_H = '00000005'X
	PARAMETER JPIF$M_CPUTIM = '00000040'X
	PARAMETER JPIF$C_CPUTIM = '00000006'X
	STRUCTURE /JPIFDEF/
	    UNION
	        MAP
	        INTEGER*4 %FILL(2)
	        END MAP
	        MAP
	            PARAMETER JPIF$S_UASTACT = 1
	            PARAMETER JPIF$V_UASTACT = 0		 !  User mode AST active 
	            PARAMETER JPIF$S_RMS_DFMBC = 1
	            PARAMETER JPIF$V_RMS_DFMBC = 1		 !  RMS default multi-block count
	            PARAMETER JPIF$S_PARSE_STYLE_PERM = 1
	            PARAMETER JPIF$V_PARSE_STYLE_PERM = 2	 !  Permanent parse style
	            PARAMETER JPIF$S_PARSE_STYLE_IMAGE = 1
	            PARAMETER JPIF$V_PARSE_STYLE_IMAGE = 3	 !  Image parse style	
	            PARAMETER JPIF$S_LOGINTIM_L = 1
	            PARAMETER JPIF$V_LOGINTIM_L = 4		 !  Login time - low LW
	            PARAMETER JPIF$S_LOGINTIM_H = 1
	            PARAMETER JPIF$V_LOGINTIM_H = 5		 !  Login time - high LW
	            PARAMETER JPIF$S_CPUTIM = 1
	            PARAMETER JPIF$V_CPUTIM = 6		 !  Process accumulated CPU time
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	END STRUCTURE	! JPIFDEF
!DEC$ END OPTIONS