%IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$QUADWORD
		LONG FILL ( 2 )
	END RECORD
    %LET %BASIC$QUADWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$OCTAWORD
		LONG FILL ( 4 )
	END RECORD
    %LET %BASIC$OCTAWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$F_FLOATING_COMPLEX
    		SINGLE REAL_PART
    		SINGLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$D_FLOATING_COMPLEX
    		DOUBLE REAL_PART
    		DOUBLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$G_FLOATING_COMPLEX
    		GFLOAT REAL_PART
    		GFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$H_FLOATING_COMPLEX
    		HFLOAT REAL_PART
    		HFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1
    %END %IF
    
    
    ! +
    !  $CREPRC STATUS FLAGS AND ITEM CODES
    ! -
      DECLARE LONG CONSTANT PRC$M_SSRWAIT = x'00000001'
      DECLARE LONG CONSTANT PRC$M_SSFEXCU = x'00000002'
      DECLARE LONG CONSTANT PRC$M_PSWAPM = x'00000004'
      DECLARE LONG CONSTANT PRC$M_NOACNT = x'00000008'
      DECLARE LONG CONSTANT PRC$M_BATCH = x'00000010'
      DECLARE LONG CONSTANT PRC$M_HIBER = x'00000020'
      DECLARE LONG CONSTANT PRC$M_NOUAF = x'00000040'
      DECLARE LONG CONSTANT PRC$M_NETWRK = x'00000080'
      DECLARE LONG CONSTANT PRC$M_DISAWS = x'00000100'
      DECLARE LONG CONSTANT PRC$M_DETACH = x'00000200'
      DECLARE LONG CONSTANT PRC$M_INTER = x'00000400'
      DECLARE LONG CONSTANT PRC$M_IMGDMP = x'00000800'
      DECLARE LONG CONSTANT PRC$M_CLISPEC = x'00001000'
      DECLARE LONG CONSTANT PRC$M_NOPASSWORD = x'00002000'
      DECLARE LONG CONSTANT PRC$M_DEBUG = x'00004000'
      DECLARE LONG CONSTANT PRC$M_DBGTRU = x'00008000'
      DECLARE LONG CONSTANT PRC$M_SUBSYSTEM = x'00010000'
      DECLARE LONG CONSTANT PRC$M_TCB = x'00020000'
      DECLARE LONG CONSTANT PRC$M_NO_IMAGE_PRIVS = x'00040000'
      DECLARE LONG CONSTANT PRC$M_PERM_SUBSYSTEM = x'00080000'
      DECLARE LONG CONSTANT PRC$M_PARSE_EXTENDED = x'00100000'
      DECLARE LONG CONSTANT PRC$M_INHERIT_PERSONA = x'00200000'
      DECLARE LONG CONSTANT PRC$M_LOGIN = x'00000040'
      DECLARE LONG CONSTANT PRC$S_PRCDEF = 3
      record PRCDEF
         variant
            case
               group PRC$R_PRCDEF_BITS
                   !  RESOURCE WAIT DISABLE 
                   !  SYSTEM SERVICE FAIL EXCEPTION MODE 
                   !  PROCESS SWAP MODE 
                   !  ACCOUNTING MESSAGE DISABLE 
                   !  BATCH INDICATOR 
                   !  HIBERNATE BEFORE CALLING INITIAL IMAGE 
                   !  BYPASS LOGIN VERIFICATION FOR DETACHED PROC. 
                   !  NETWORK INDICATOR 
                   !  DISABLE WORKING SET ADJUST 
                   !  DETACHED PROCESS
                   !  INTERACTIVE INDICATOR
                   !  IMAGE DUMP REQUESTED
                   !  PASS CLI SPECIFICATIONS
                   !  DON'T PROMPT FOR USERNAME AND PASSWORD
                   !  /DEBUG desired
                   !  debugger present
                   !  inherit protected subsystem identifiers 
                   !  process is part of TCB
                   !  image privileges not to be propagated
                   !  make subsystem rights permanent
                   !  make new process have parse_style extended
                   !  process gets persona of caller
                  LONG SSRWAIT_bits   ! COMMENT ADDED BY SDL - SSRWAIT_bits contains bits SSRWAIT through fill_50
               end group PRC$R_PRCDEF_BITS
            case
               group PRC$R_PRCDEF_OBSOLETE
                   !  BYPASS LOGIN VERIFICATION FOR DETACHED PROC. 
                  BYTE FILL_0_bits   ! COMMENT ADDED BY SDL - FILL_0_bits contains bits FILL_0 through fill_51
               end group PRC$R_PRCDEF_OBSOLETE
         end variant
      end record PRCDEF
    
    ! +
    ! 
    !  Create Process Item List Data Identifier Definitions
    ! 
    !  **** NOTE ****
    ! 
    !         New items must always be added at the END of the list so that
    !         users will not have to relink or reassemble.
    ! 
    ! -
      DECLARE LONG CONSTANT PRC$_LISTEND = 0  !  End of list  ( must be first code )
      DECLARE LONG CONSTANT PRC$_PGFLCHAR = 1  !  Page file characteristics
      DECLARE LONG CONSTANT PRC$_PGFLINDEX = 2  !  Page file index
      DECLARE LONG CONSTANT PRC$_INPUT_ATT = 3  !  SYS$INPUT attributes
      DECLARE LONG CONSTANT PRC$_OUTPUT_ATT = 4  !  SYS$OUTPUT attributes
      DECLARE LONG CONSTANT PRC$_ERROR_ATT = 5  !  SYS$ERROR attributes
      DECLARE LONG CONSTANT PRC$_CLASS = 6  !  Process classification