! *** 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
    
    
    ! +
    ! 
    !  Process_Scan item code definitions
    ! 
    ! -
    !  Item code definitions
      DECLARE LONG CONSTANT pscan$_BEGIN = 0
      DECLARE LONG CONSTANT pscan$_ACCOUNT = 1  !  Match on account name
      DECLARE LONG CONSTANT pscan$_AUTHPRI = 2  !  Match on authorized priority
      DECLARE LONG CONSTANT pscan$_CURPRIV = 3  !  Match on current privs
      DECLARE LONG CONSTANT pscan$_GRP = 4  !  Match on GRP field
      DECLARE LONG CONSTANT pscan$_HW_MODEL = 5  !  Match on system's HW_MODEL
      DECLARE LONG CONSTANT pscan$_HW_NAME = 6  !  Match on system's HW_NAME
      DECLARE LONG CONSTANT pscan$_JOBPRCCNT = 7  !  Match on job subprocess count
      DECLARE LONG CONSTANT pscan$_JOBTYPE = 8  !  Match on job origin type field
      DECLARE LONG CONSTANT pscan$_MASTER_PID = 9  !  Match on PID of master process
      DECLARE LONG CONSTANT pscan$_MEM = 10  !  Match on MEM field
      DECLARE LONG CONSTANT pscan$_MODE = 11  !  Match on process mode
      DECLARE LONG CONSTANT pscan$_NODE_CSID = 12  !  Match on system's CSID 
      DECLARE LONG CONSTANT pscan$_NODENAME = 13  !  Match on system's nodename
      DECLARE LONG CONSTANT pscan$_OWNER = 14  !  Match on PID of owner
      DECLARE LONG CONSTANT pscan$_PRCCNT = 15  !  Match on subprocess count
      DECLARE LONG CONSTANT pscan$_PRCNAM = 16  !  Match on process name
      DECLARE LONG CONSTANT pscan$_PRI = 17  !  Match on current priority
      DECLARE LONG CONSTANT pscan$_PRIB = 18  !  Match on base priority
      DECLARE LONG CONSTANT pscan$_STATE = 19  !  Match on process state
      DECLARE LONG CONSTANT pscan$_STS = 20  !  Match on process status
      DECLARE LONG CONSTANT pscan$_TERMINAL = 21  !  Match on terminal name
      DECLARE LONG CONSTANT pscan$_UIC = 22  !  Match on UIC field
      DECLARE LONG CONSTANT pscan$_USERNAME = 23  !  Match on username
      DECLARE LONG CONSTANT pscan$_GETJPI_BUFFER_SIZE = 24  !  Buffer for blocking
      DECLARE LONG CONSTANT pscan$_PSCAN_CONTROL_FLAGS = 25  !  Control Flags
      DECLARE LONG CONSTANT pscan$_KT_COUNT = 26  !  Current count of kernel threads
      DECLARE LONG CONSTANT pscan$_MULTITHREAD = 27  !  Maximum number of kernel threads
      DECLARE LONG CONSTANT pscan$_SCHED_CLASS_NAME = 28  !  Match on name of process' scheduling class
      DECLARE LONG CONSTANT pscan$_END = 29
      DECLARE LONG CONSTANT pscan$k_type = 129
      DECLARE LONG CONSTANT PSCAN$M_THREAD = x'00000001'
      DECLARE LONG CONSTANT PSCAN$S_PSCANCTLDEF = 4
      record PSCANCTLDEF
         group PSCAN$R_FILL_79_
            variant
               case
                  LONG PSCAN$L_PSCANCTLFLGS  !  Control item flags
               case
                  group PSCAN$R_FILL_80_
                      !  Return information about each thread for multithreaded processes
                     BYTE THREAD_bits   ! COMMENT ADDED BY SDL - THREAD_bits contains bits THREAD through FILL_81_
                  end group PSCAN$R_FILL_80_
            end variant
         end group PSCAN$R_FILL_79_
      end record PSCANCTLDEF
    
      DECLARE LONG CONSTANT pscan$M_OR = x'00000001'
      DECLARE LONG CONSTANT pscan$M_BIT_ALL = x'00000002'
      DECLARE LONG CONSTANT pscan$M_BIT_ANY = x'00000004'
      DECLARE LONG CONSTANT pscan$M_GEQ = x'00000008'
      DECLARE LONG CONSTANT pscan$M_GTR = x'00000010'
      DECLARE LONG CONSTANT pscan$M_LEQ = x'00000020'
      DECLARE LONG CONSTANT pscan$M_LSS = x'00000040'
      DECLARE LONG CONSTANT pscan$M_PREFIX_MATCH = x'00000080'
      DECLARE LONG CONSTANT pscan$M_WILDCARD = x'00000100'
      DECLARE LONG CONSTANT pscan$M_CASE_BLIND = x'00000200'
      DECLARE LONG CONSTANT pscan$M_EQL = x'00000400'
      DECLARE LONG CONSTANT pscan$M_NEQ = x'00000800'
      DECLARE LONG CONSTANT pscan$s_item_specific_flags = 2
      record item_specific_flags
          !  Logical OR of items
          !  All bits set in pattern
          !  Any bit set in pattern
          !  Match on leading substring
          !  Wildcard pattern
          !  Ignore case of text strings
         WORD OR_bits   ! COMMENT ADDED BY SDL - OR_bits contains bits OR through fill_82_
      end record item_specific_flags