! *** PREDECLARED TYPES
     
      %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$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_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_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 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_HOME_RAD = x'00400000'
      DECLARE LONG CONSTANT PRC$M_CASE_SENSITIVE = x'00800000'
      DECLARE LONG CONSTANT PRC$M_SPAWN_DETACHED = x'01000000'
      DECLARE LONG CONSTANT PRC$M_SSLOG_ENABLE = x'02000000'
      DECLARE LONG CONSTANT PRC$M_KT_LIMIT = x'04000000'
      DECLARE LONG CONSTANT PRC$M_LOGIN = x'00000040'
      DECLARE LONG CONSTANT PRC$S_PRCDEF = 4
      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
                   !  Home RAD specified by creator
                   !  Use CASE_LOOKUP = SENSITIVE
                   !  Spawn a detached process
                   !  Enable system service logging
                   !  Kernel thread limit specified by creator
                  LONG SSRWAIT_bits   ! COMMENT ADDED BY SDL - SSRWAIT_bits contains bits SSRWAIT through FILL_66_
               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_67_
               end group PRC$R_PRCDEF_OBSOLETE
         end variant
      end record PRCDEF
    
      DECLARE LONG CONSTANT PRC$M_IMPERSONATE = 512  !  Impersonate other - synonym for DETACH - 0x200
    ! +
    ! 
    !  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
      DECLARE LONG CONSTANT PRC$_SSLOG_FLAGS = 7  !  System service logging flags
      DECLARE LONG CONSTANT PRC$_SSLOG_BUFSIZE = 8  !  System service logging buffer size
      DECLARE LONG CONSTANT PRC$_SSLOG_BUFCNT = 9  !  System service logging buffer count