! *** 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 PRX$K_ADD = 1
      DECLARE LONG CONSTANT PRX$K_DELETE = 2
      DECLARE LONG CONSTANT PRX$K_SHOW = 3
      DECLARE LONG CONSTANT PRX$K_VERIFY = 4
      DECLARE LONG CONSTANT PRX$K_PERFORMANCE = 5
      DECLARE LONG CONSTANT PRX$K_ZERO_PERFORMANCE = 6
      DECLARE LONG CONSTANT PRX$K_CREATE = 7
      DECLARE LONG CONSTANT PRX$K_STOP = 8
      DECLARE LONG CONSTANT PRX$K_START = 9
      DECLARE LONG CONSTANT PRX$K_MAX_PROXY_CODE = 10
      DECLARE LONG CONSTANT PRX$K_PERFORMANCE_LENGTH = 48
      DECLARE LONG CONSTANT PRX$S_PRX$PERFORMANCE = 48
      record PRX$PERFORMANCE
         LONG PRX$L_TOTAL_MESSAGES
         LONG PRX$L_TOTAL_EXCEPTIONS
         LONG PRX$L_SHOWS
         LONG PRX$L_ADDS
         LONG PRX$L_DELETES
         LONG PRX$L_VERIFYS
         LONG PRX$L_PERFORMANCE
         LONG PRX$L_CREATES
         LONG PRX$L_STOPS
         LONG PRX$L_STARTS
         LONG PRX$L_AUDITS
         LONG PRX$L_INVALID_MESSAGES
      end record PRX$PERFORMANCE
    
      DECLARE LONG CONSTANT PRX$M_IGNORE_RETURN = x'00000001'
      DECLARE LONG CONSTANT PRX$M_BYPASS_EXPAND = x'00000002'
      DECLARE LONG CONSTANT PRX$M_RESERVE_1 = x'000000FC'
      DECLARE LONG CONSTANT PRX$M_DEFAULT = x'00000100'
      DECLARE LONG CONSTANT PRX$M_EXACT = x'00000200'
      DECLARE LONG CONSTANT PRX$M_DELETE_ALLOWED = x'00000400'
      DECLARE LONG CONSTANT PRX$M_FILL_1 = x'FFFFF800'
      DECLARE LONG CONSTANT PRX$K_HEADER_LENGTH = 8
      DECLARE LONG CONSTANT PRX$S_PRX$HEADER = 8
      record PRX$HEADER
         LONG PRX$L_CONTEXT
         group PRX$R_FILL_77_
            variant
               case
                  LONG PRX$L_FLAGS
               case
                  group PRX$R_FILL_78_
                     LONG IGNORE_RETURN_bits   ! COMMENT ADDED BY SDL - IGNORE_RETURN_bits contains bits IGNORE_RETURN through  &
 ! FILL_1
                  end group PRX$R_FILL_78_
            end variant
         end group PRX$R_FILL_77_
      end record PRX$HEADER
    
      DECLARE LONG CONSTANT PRX$S_PRX$GENERIC_DESC1 = 5
      record PRX$GENERIC_DESC1
         WORD PRX$W_DESC_LENGTH
         WORD PRX$W_FILL1
         STRING PRX$T_DESC_DATA = 1
      end record PRX$GENERIC_DESC1
    
      DECLARE LONG CONSTANT PRX$K_USER_NAME_LENGTH = 32
      DECLARE LONG CONSTANT PRX$K_REMOTE_NODE_NAME_LENGTH = 1024
      DECLARE LONG CONSTANT PRX$K_MAX_LOCAL_USERS = 16
      DECLARE LONG CONSTANT PRX$K_LOCAL_USER_ENTRY = 36
      DECLARE LONG CONSTANT PRX$S_DATA = 1100
      record DATA_D
         WORD PRX$W_LOCAL_USER_LENGTH
         WORD PRX$W_UNUSED_3
         STRING PRX$T_LOCAL_USER_NAME = 32
         WORD PRX$W_REMOTE_USER_LENGTH
         WORD PRX$W_UNUSED_4
         STRING PRX$T_REMOTE_USER_NAME = 32
         WORD PRX$W_REMOTE_NODE_LENGTH
         WORD PRX$W_UNUSED_5
         STRING PRX$T_REMOTE_NODE_NAME = 1024
      end record DATA_D
    
      DECLARE LONG CONSTANT PRX$K_DATA_LENGTH = 1100
      DECLARE LONG CONSTANT PRX$S_BUFSIZ_SUMMARY = 8
      record BUFSIZ_SUMMARY
         WORD PRX$W_BUFSIZ_USER             !  proxy user length
         WORD PRX$W_BUFSIZ_NODE             !  proxy node length
         WORD PRX$W_BUFSIZ_LOCAL_COUNT      !  number of local users
         WORD PRX$W_BUFSIZ_DEF_USER         !  length of default user
      end record BUFSIZ_SUMMARY
    
      DECLARE LONG CONSTANT PRX$K_MAX_REPLY = 1692
      DECLARE LONG CONSTANT PRX$S_REPLY_UNION = 88
      record REPLY_UNION
         variant
            case
               group PRX$R_GENERIC_REPLY
                  LONG PRX$L_REPLY_STATUS   !  status of request
               end group PRX$R_GENERIC_REPLY
            case
               group PRX$R_VERIFY_REPLY
                  LONG PRX$L_UNUSED_6       !  space for STATUS
                  WORD PRX$W_VALID_USER     !  length of proxy user_name
                  WORD PRX$W_UNUSED_7
                  STRING PRX$T_VALID_USER ( 1 to 32 ) = 1  !  proxy usernname
               end group PRX$R_VERIFY_REPLY
            case
               group PRX$R_SHOW_REPLY
                  LONG PRX$L_UNUSED_8       !  space for STATUS
                  LONG PRX$L_SHOW_CONTEXT   !  returned context
                  WORD PRX$W_SHOW_DEF_USER  !  length of default user_name
                  WORD PRX$W_UNUSED_8
                  STRING PRX$T_SHOW_DEF_USER ( 1 to 32 ) = 1  !  default user_name
                  WORD PRX$W_SHOW_REM_USER  !  length of remote user_name
                  WORD PRX$W_UNUSED_9
                  STRING PRX$T_SHOW_REM_USER ( 1 to 32 ) = 1  !  remote user_name
                  WORD PRX$W_SHOW_LOCAL_COUNT  !  count of local user_names
                  WORD PRX$W_SHOW_LOCAL_SIZE  !  size of local user_name (bytes)
                  group PRX$R_SHOW_LOCAL_DATA  !  start of local user_names
                     LONG PRX$L_UNUSED_10
                  end group PRX$R_SHOW_LOCAL_DATA
               end group PRX$R_SHOW_REPLY
         end variant
      end record REPLY_UNION
    
      DECLARE LONG CONSTANT PRX$K_MAX_LENGTH = 1108