! *** 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
    
    
      DECLARE LONG CONSTANT SECSRV$K_SERVER = 1
      DECLARE LONG CONSTANT SECSRV$K_CIA = 2
      DECLARE LONG CONSTANT SECSRV$K_PROXY = 3
      DECLARE LONG CONSTANT SECSRV$K_MAPPING = 4
      DECLARE LONG CONSTANT SECSRV$K_SHUTDOWN = 1
      DECLARE LONG CONSTANT SECSRV$K_PERFORMANCE = 2
      DECLARE LONG CONSTANT SECSRV$K_ZERO_PERFORMANCE = 3
      DECLARE LONG CONSTANT SECSRV$K_RESTART = 4
      DECLARE LONG CONSTANT SECSRV$K_ADD_PROXY = 0
      DECLARE LONG CONSTANT SECSRV$K_DELETE_PROXY = 1
      DECLARE LONG CONSTANT SECSRV$K_SHOW_PROXY = 2
      DECLARE LONG CONSTANT SECSRV$K_VERIFY_PROXY = 3
      DECLARE LONG CONSTANT SECSRV$K_CREATE_PROXY = 4
      DECLARE LONG CONSTANT SECSRV$K_SCAN_INTRUSION = 5
      DECLARE LONG CONSTANT SECSRV$K_DELETE_INTRUSION = 6
      DECLARE LONG CONSTANT SECSRV$K_SHOW_INTRUSION = 7
      DECLARE LONG CONSTANT SECSRV$K_STOP_SERVER = 8
      DECLARE LONG CONSTANT SECSRV$K_RESTART_SERVER = 9
      DECLARE LONG CONSTANT SECSRV$K_ADD_MAPPING = 10
      DECLARE LONG CONSTANT SECSRV$K_CREATE_MAPPING = 11
      DECLARE LONG CONSTANT SECSRV$K_DEFINE_MAPPING = 12
      DECLARE LONG CONSTANT SECSRV$K_DELETE_MAPPING = 13
      DECLARE LONG CONSTANT SECSRV$K_MODIFY_MAPPING = 14
      DECLARE LONG CONSTANT SECSRV$K_SCAN_MAPPING = 15
      DECLARE LONG CONSTANT SECSRV$K_LOOKUP_MAPPING = 16
      DECLARE LONG CONSTANT SECSRV$K_MAX_SERVICE = 17
      DECLARE LONG CONSTANT SECSRV$K_MAXMSG = 8192
      DECLARE LONG CONSTANT SECSRV$K_MAX_MESSAGE = 8192
      DECLARE LONG CONSTANT SECSRV$K_REPLY_CONTEXT_LENGTH = 4
      DECLARE LONG CONSTANT SECSRV$M_IGNORE_RETURN = x'00000001'
      DECLARE LONG CONSTANT SECSRV$M_FILL_1 = x'FFFFFFFE'
      DECLARE LONG CONSTANT SECSRV$K_HEADER_LENGTH = 92
      DECLARE LONG CONSTANT SECSRV$S_SECSRV$HEADER = 92
      record SECSRV$HEADER
         LONG SECSRV$L_MESSAGE_TYPE
         LONG SECSRV$L_MESSAGE_SUBTYPE
         LONG SECSRV$L_CALLERS_PID
         LONG SECSRV$L_RETURN_MAILBOX
         group SECSRV$R_FILL_25_
            variant
               case
                  LONG SECSRV$L_FLAGS
               case
                  group SECSRV$R_FILL_26_
                     LONG IGNORE_RETURN_bits   ! COMMENT ADDED BY SDL - IGNORE_RETURN_bits contains bits IGNORE_RETURN through  &
 ! FILL_1
                  end group SECSRV$R_FILL_26_
            end variant
         end group SECSRV$R_FILL_25_
         group SECSRV$R_USERNAME
            WORD SECSRV$W_USERNAME_SIZE
            WORD SECSRV$W_FILL_2
            STRING SECSRV$T_USERNAME_STRING = 32
         end group SECSRV$R_USERNAME
         group SECSRV$R_TERMINAL
            BYTE SECSRV$B_TERMINAL_SIZE
            STRING SECSRV$T_TERMINAL_NAME = 15
         end group SECSRV$R_TERMINAL
         group SECSRV$R_PROCESS_NAME
            BYTE SECSRV$B_PRCNAM_SIZE
            STRING SECSRV$T_PRCNAM_NAME = 15
         end group SECSRV$R_PROCESS_NAME
         LONG SECSRV$L_MESSAGE_CONTEXT
      end record SECSRV$HEADER
    
      DECLARE LONG CONSTANT SECSRV$CLIENT = -1762787327
      DECLARE LONG CONSTANT SECSRV$OBJECT = -1762787326
      DECLARE LONG CONSTANT SECSRV$COMMUNICATION = -1762787325