! *** 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
    
    
    !  Definitions for RTL Parallel Processing Facility - PPL
    ! 
    !  Pre-defined event ids.
    ! 
      DECLARE LONG CONSTANT PPL$K_ABNORMAL_EXIT = -2  !  abnormal participant termination
      DECLARE LONG CONSTANT PPL$K_NORMAL_EXIT = -1  !  normal participant termination
    ! 
    !  Shared memory options flags.
    ! 
      DECLARE LONG CONSTANT PPL$M_NOZERO = x'00000001'
      DECLARE LONG CONSTANT PPL$M_NOWRT = x'00000002'
      DECLARE LONG CONSTANT PPL$M_FLUSH = x'00000004'
      DECLARE LONG CONSTANT PPL$M_NOUNI = x'00000008'
      DECLARE LONG CONSTANT PPL$m_mopt_spare = x'FFFFFFF0'
      DECLARE LONG CONSTANT PPL$s_mem_options = 4
      record mem_options
          !  not demand-zero
          !  read-only
          !  write to disk
          !  non-unique name not requested
          !  extra bits
         LONG NOZERO_bits   ! COMMENT ADDED BY SDL - NOZERO_bits contains bits NOZERO through mopt_spare
      end record mem_options
    
    ! 
    !  Processing options flags.
    ! 
      DECLARE LONG CONSTANT PPL$M_INIT_SYNCH = x'00000001'
      DECLARE LONG CONSTANT PPL$M_NODEBUG = x'00000002'
      DECLARE LONG CONSTANT PPL$M_STOP_CHILDREN = x'00000004'
      DECLARE LONG CONSTANT PPL$M_NON_BLOCKING = x'00000008'
      DECLARE LONG CONSTANT PPL$M_NOTIFY_ONE = x'00000010'
      DECLARE LONG CONSTANT PPL$M_SPIN_WAIT = x'00000020'
      DECLARE LONG CONSTANT PPL$M_FORMONLY = x'00000040'
      DECLARE LONG CONSTANT PPL$M_JOINONLY = x'00000080'
      DECLARE LONG CONSTANT PPL$M_PERM = x'00000100'
      DECLARE LONG CONSTANT PPL$M_SYSTEM = x'00000200'
      DECLARE LONG CONSTANT PPL$M_DELETEALL = x'00000400'
      DECLARE LONG CONSTANT PPL$M_TAILFIRST = x'00000800'
      DECLARE LONG CONSTANT PPL$M_ATHEAD = x'00001000'
      DECLARE LONG CONSTANT PPL$M_FROMTAIL = x'00002000'
      DECLARE LONG CONSTANT PPL$M_FORCEDEL = x'00004000'
      DECLARE LONG CONSTANT PPL$M_NOCLISYM = x'00008000'
      DECLARE LONG CONSTANT PPL$M_NOLOGNAM = x'00010000'
      DECLARE LONG CONSTANT PPL$M_NOKEYPAD = x'00020000'
      DECLARE LONG CONSTANT PPL$M_NOTIFY = x'00040000'
      DECLARE LONG CONSTANT PPL$M_NOCONTROL = x'00080000'
      DECLARE LONG CONSTANT PPL$M_CALL_UNIQUE = x'00100000'
      DECLARE LONG CONSTANT PPL$M_PROC_UNIQUE = x'00200000'
      DECLARE LONG CONSTANT PPL$M_SPIN_COUNTED = x'00400000'
      DECLARE LONG CONSTANT PPL$M_NOSAVE_PROC_INFO = x'00800000'
      DECLARE LONG CONSTANT PPL$M_IGNORE_EXITS = x'01000000'
      DECLARE LONG CONSTANT PPL$m_popt_spare = x'FE000000'
      DECLARE LONG CONSTANT PPL$s_proc_options = 4
      record proc_options
          !  parent blocks until children init
          !  disable DEBUG
          !  stop children of terminating process
          !  don't block if semaphore unavailable
          !  notify only one enabler for event
          !  spin rather than $HIBER
          !  Only form (do not join) a new appl.
          !  Only join (do not form) a new appl.
          !  Create a permanent application
          !  Create a system-wide application
          !  Delete all corresponding work items
          !  Delete from tail of queue
          !  Insert at the head of queue
          !  Remove from tail of queue
          !  Force deletion of work queue
          !  Do not inherit parent's CLI symbols
          !  Do not inherit parent's logicals
          !  Inherit parent's keypad state ? defs
          !  Broadcast message on child terminate
          !  No carriage control prefix on prompt
          !  Request call unique name
          !  Request process unique name
          !  Spin for counted period before hiber
          !  extra bits
         LONG INIT_SYNCH_bits   ! COMMENT ADDED BY SDL - INIT_SYNCH_bits contains bits INIT_SYNCH through popt_spare
      end record proc_options