home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sockpli.zip / ACSSVCP.COP < prev    next >
Text File  |  1995-06-27  |  34KB  |  703 lines
  1.  dcl ACSSVC entry
  2.            options(linkage(pascal16) asm) external;
  3.  dcl ACSSVC_C entry
  4.            options(linkage(pascal16) asm) external;
  5.  
  6.  /************************************************************/
  7.  /*              Verb Parameter Values                       */
  8.  /************************************************************/
  9.  
  10.  %dcl (SV_ADD,
  11.        SV_CHANGE,
  12.        SV_IGNORE,
  13.        SV_NO_ADD,
  14.        SV_NO_SEND,
  15.        SV_SEND)              char;
  16.  
  17.      %SV_ADD                 = '0';
  18.      %SV_CHANGE              = '1';
  19.      %SV_IGNORE              = '0';
  20.      %SV_NO_ADD              = '1';
  21.      %SV_NO_SEND             = '1';
  22.      %SV_SEND                = '0';
  23.  
  24.  %dcl (SV_NO,
  25.        SV_YES,
  26.        SV_A,
  27.        SV_AE,
  28.        SV_ALERT_SUBVECTORS,
  29.        SV_ASCII_TO_EBCDIC,
  30.        SV_INTRV,
  31.        SV_NO_INTRV,
  32.        SV_EBCDIC_TO_ASCII,
  33.        SV_G,
  34.        SV_NMVT,
  35.        SV_OFF,
  36.        SV_ON,
  37.        SV_AUTO_OFF,
  38.        SV_AUTO_ON,
  39.        SV_PDSTATS_SUBVECTORS,
  40.        SV_SUBSTITUTE,
  41.        SV_ROUND_TRIP,
  42.        SV_USER_DEFINED,
  43.        SV_LOGS,
  44.        SV_SYSTEM_MESSAGES,
  45.        SV_USER_MESSAGES,
  46.        SV_NONE,
  47.        SV_ALL,
  48.        SV_FORWARD,
  49.        SV_SOME,
  50.        SV_LOG,
  51.        SV_NO_LOG,
  52.        SV_NEW,
  53.        SV_OVERWRITE,
  54.        SV_APPEND,
  55.        SV_ACTIVATE,
  56.        SV_FORMATTED,
  57.        SV_UNFORMATTED)       char;
  58.  
  59.      %SV_NO                  = '''00''x';
  60.      %SV_YES                 = '''01''x';
  61.      %SV_A                   = '''01''x';
  62.      %SV_AE                  = '''00''x';
  63.      %SV_ALERT_SUBVECTORS    = '''02''x';
  64.      %SV_ASCII_TO_EBCDIC     = '''00''x';
  65.      %SV_INTRV               = '''00''x';
  66.      %SV_NO_INTRV            = '''01''x';
  67.      %SV_EBCDIC_TO_ASCII     = '''01''x';
  68.      %SV_G                   = '''02''x';
  69.      %SV_NMVT                = '''01''x';
  70.      %SV_OFF                 = '''00''x';
  71.      %SV_ON                  = '''01''x';
  72.      %SV_AUTO_OFF            = '''02''x';
  73.      %SV_AUTO_ON             = '''03''x';
  74.      %SV_PDSTATS_SUBVECTORS  = '''03''x';
  75.      %SV_SUBSTITUTE          = '''00''x';
  76.      %SV_ROUND_TRIP          = '''01''x';
  77.      %SV_USER_DEFINED        = '''00''x';
  78.      %SV_LOGS                = '''00''x';
  79.      %SV_SYSTEM_MESSAGES     = '''01''x';
  80.      %SV_USER_MESSAGES       = '''02''x';
  81.      %SV_NONE                = '''00''x';
  82.      %SV_ALL                 = '''01''x';
  83.      %SV_FORWARD             = '''02''x';
  84.      %SV_SOME                = '''00''x';
  85.      %SV_LOG                 = '''00''x';
  86.      %SV_NO_LOG              = '''01''x';
  87.      %SV_NEW                 = '''00''x';
  88.      %SV_OVERWRITE           = '''01''x';
  89.      %SV_APPEND              = '''02''x';
  90.      %SV_ACTIVATE            = '''01''x';
  91.      %SV_FORMATTED           = '''00''x';
  92.      %SV_UNFORMATTED         = '''01''x';
  93.  
  94.  /*************************************************************/
  95.  /*            Byte Masks for turning bits on/off             */
  96.  /*************************************************************/
  97.  
  98.  %dcl (SV_BIT0,
  99.        SV_BIT1,
  100.        SV_BIT2,
  101.        SV_BIT3,
  102.        SV_BIT4,
  103.        SV_BIT5,
  104.        SV_BIT6,
  105.        SV_BIT7)    char;
  106.  
  107.      %SV_BIT0      = '''80''x';
  108.      %SV_BIT1      = '''40''x';
  109.      %SV_BIT2      = '''20''x';
  110.      %SV_BIT3      = '''10''x';
  111.      %SV_BIT4      = '''08''x';
  112.      %SV_BIT5      = '''04''x';
  113.      %SV_BIT6      = '''02''x';
  114.      %SV_BIT7      = '''01''x';
  115.  
  116.  /************************************************************/
  117.  /*            Verb Parameter Boundary Values                */
  118.  /************************************************************/
  119.  
  120.  %dcl (SV_TRACE_TRUNC_MAX,
  121.        SV_TRACE_STORAGE_MAX) char;
  122.  
  123.      %SV_TRACE_TRUNC_MAX     = '12000';
  124.      %SV_TRACE_STORAGE_MAX   = '16';
  125.  
  126.  /************************************************************/
  127.  /*                  Return Codes                            */
  128.  /************************************************************/
  129.  
  130.  %dcl (SV_INVALID_VERB_SEGMENT,
  131.        SV_INVALID_VERB,
  132.        SV_KEYLOCK_SECURED,
  133.        SV_INVALID_KEY,
  134.        SV_OK,
  135.        SV_PARAMETER_CHECK,
  136.        SV_COMM_SUBSYSTEM_NOT_LOADED,
  137.        SV_STATE_CHECK,
  138.        SV_UNEXPECTED_DOS_ERROR,
  139.        SV_CONFIG_FILE_ERROR,
  140.        SV_FILE_ALREADY_EXISTS,
  141.        SV_OUTPUT_DEVICE_FULL)          char;
  142.  
  143.      %SV_INVALID_VERB_SEGMENT          = '''08F0''xn';
  144.      %SV_INVALID_VERB                  = '''FFFF''xn';
  145.      %SV_KEYLOCK_SECURED               = '''13F0''xn';
  146.      %SV_INVALID_KEY                   = '''20F0''xn';
  147.      %SV_OK                            = '''0000''xn';
  148.      %SV_PARAMETER_CHECK               = '''0100''xn';
  149.      %SV_COMM_SUBSYSTEM_NOT_LOADED     = '''12F0''xn';
  150.      %SV_STATE_CHECK                   = '''0200''xn';
  151.      %SV_UNEXPECTED_DOS_ERROR          = '''11F0''xn';
  152.      %SV_CONFIG_FILE_ERROR             = '''3200''xn';
  153.      %SV_FILE_ALREADY_EXISTS           = '''3000''xn';
  154.      %SV_OUTPUT_DEVICE_FULL            = '''3100''xn';
  155.  
  156.  %dcl (SV_CONVERSION_ERROR,
  157.        SV_DATA_EXCEEDS_RU_SIZE,
  158.        SV_INVALID_CHARACTER_SET,
  159.        SV_INVALID_DATA_SEGMENT,
  160.        SV_INVALID_DATA_TYPE,
  161.        SV_INVALID_DIRECTION,
  162.        SV_INVALID_FIRST_CHARACTER,
  163.        SV_INVALID_MESSAGE_ACTION,
  164.        SV_INVALID_SET,
  165.        SV_INVALID_STORAGE_SIZE,
  166.        SV_SSCP_PU_SESSION_NOT_ACTIVE,
  167.        SV_INVALID_NMVT_ERROR,
  168.        SV_TABLE_ERROR,
  169.        SV_INVALID_CHAR_NOT_FOUND,
  170.        SV_INVALID_SOURCE_CODE_PAGE,
  171.        SV_INVALID_TARGET_CODE_PAGE,
  172.        SV_INVALID_FORWARD,
  173.        SV_INVALID_SUPPRESS,
  174.        SV_INVALID_SELECTION,
  175.        SV_TOO_HIGH_A_NUMBER,
  176.        SV_INVALID_QUEUE,
  177.        SV_QUEUE_ALREADY_IN_EFFECT,
  178.        SV_PD_MENUS_IN_PROGRESS,
  179.        SV_INVALID_RESET_TRACE,
  180.        SV_COPY_TRACE_IN_PROGRESS,
  181.        SV_TRACE_NOT_STOPPED,
  182.        SV_INVALID_FILE_OPTION,
  183.        SV_TRACE_BUFFER_EMPTY,
  184.        SV_DUMP_IN_PROGRESS,
  185.        SV_INVALID_OUTPUT_FORMAT)       char;
  186.  
  187.      %SV_CONVERSION_ERROR              = '''06040000''xn';
  188.      %SV_DATA_EXCEEDS_RU_SIZE          = '''02030000''xn';
  189.      %SV_INVALID_CHARACTER_SET         = '''02040000''xn';
  190.      %SV_INVALID_DATA_SEGMENT          = '''06000000''xn';
  191.      %SV_INVALID_DATA_TYPE             = '''03030000''xn';
  192.      %SV_INVALID_DIRECTION             = '''01040000''xn';
  193.      %SV_INVALID_FIRST_CHARACTER       = '''04040000''xn';
  194.      %SV_INVALID_MESSAGE_ACTION        = '''21060000''xn';
  195.      %SV_INVALID_SET                   = '''24060000''xn';
  196.      %SV_INVALID_STORAGE_SIZE          = '''27060000''xn';
  197.      %SV_SSCP_PU_SESSION_NOT_ACTIVE    = '''01030000''xn';
  198.      %SV_INVALID_NMVT_ERROR            = '''04030000''xn';
  199.      %SV_TABLE_ERROR                   = '''05040000''xn';
  200.      %SV_INVALID_CHAR_NOT_FOUND        = '''30060000''xn';
  201.      %SV_INVALID_SOURCE_CODE_PAGE      = '''31060000''xn';
  202.      %SV_INVALID_TARGET_CODE_PAGE      = '''32060000''xn';
  203.      %SV_INVALID_FORWARD               = '''00070000''xn';
  204.      %SV_INVALID_SUPPRESS              = '''01070000''xn';
  205.      %SV_INVALID_SELECTION             = '''02070000''xn';
  206.      %SV_TOO_HIGH_A_NUMBER             = '''03070000''xn';
  207.      %SV_INVALID_QUEUE                 = '''04070000''xn';
  208.      %SV_QUEUE_ALREADY_IN_EFFECT       = '''05070000''xn';
  209.      %SV_PD_MENUS_IN_PROGRESS          = '''2E060000''xn';
  210.      %SV_INVALID_RESET_TRACE           = '''2F060000''xn';
  211.      %SV_COPY_TRACE_IN_PROGRESS        = '''29060000''xn';
  212.      %SV_TRACE_NOT_STOPPED             = '''2A060000''xn';
  213.      %SV_INVALID_FILE_OPTION           = '''2B060000''xn';
  214.      %SV_TRACE_BUFFER_EMPTY            = '''2C060000''xn';
  215.      %SV_DUMP_IN_PROGRESS              = '''2D060000''xn';
  216.      %SV_INVALID_OUTPUT_FORMAT         = '''33060000''xn';
  217.  
  218.  /************************************************************/
  219.  /*                   Operation Codes                        */
  220.  /************************************************************/
  221.  
  222.  %dcl (SV_CONVERT,
  223.        SV_DEFINE_TRACE,
  224.        SV_GET_CP_CONVERT_TABLE,
  225.        SV_LOG_MESSAGE,
  226.        SV_TRANSFER_MS_DATA,
  227.        SV_SET_USER_LOG_QUEUE,
  228.        SV_COPY_TRACE_TO_FILE,
  229.        SV_DEFINE_DUMP)                 char;
  230.  
  231.      %SV_CONVERT                       = '''001A''xn';
  232.      %SV_DEFINE_TRACE                  = '''001D''xn';
  233.      %SV_GET_CP_CONVERT_TABLE          = '''0019''xn';
  234.      %SV_LOG_MESSAGE                   = '''001F''xn';
  235.      %SV_TRANSFER_MS_DATA              = '''001C''xn';
  236.      %SV_SET_USER_LOG_QUEUE            = '''004B''xn';
  237.      %SV_COPY_TRACE_TO_FILE            = '''004C''xn';
  238.      %SV_DEFINE_DUMP                   = '''004D''xn';
  239.  
  240.  /************************************************************/
  241.  /*                Client Server specific RCs                */
  242.  /************************************************************/
  243.  
  244.  %dcl (SV_SERVER_RESOURCE_NOT_FOUND,
  245.        SV_SERVER_RESOURCES_LOST)       char;
  246.  
  247.      %SV_SERVER_RESOURCE_NOT_FOUND     = '''24F0''xn';
  248.      %SV_SERVER_RESOURCES_LOST         = '''26F0''xn';
  249.  
  250.  %dcl (SV_SERVER_CONN_FAILURE,
  251.        SV_UNAUTHORIZED_ACCESS)         char;
  252.  
  253.      %SV_SERVER_CONN_FAILURE           = '''AB000003''xn';
  254.      %SV_UNAUTHORIZED_ACCESS           = '''AA000003''xn';
  255.  
  256.  /************************************************************/
  257.  /*                Service Structures                        */
  258.  /************************************************************/
  259.  
  260.  define structure
  261.    1 svc_hdr,
  262.      2 opcode                     /* Verb operation code     */
  263.                                   unsigned fixed bin(16),
  264.  /*                               -----------------------    */
  265.      2 opext                      /* Verb extension code     */
  266.                                   char,
  267.  /*                               -----                      */
  268.      2 reserv2                    /* Reserved                */
  269.                                   char,
  270.  /*                               -----                      */
  271.      2 primary_rc                 /* Primary RETURN_CODE     */
  272.                                   unsigned fixed bin(16),
  273.  /*                               -----------------------    */
  274.      2 secondary_rc               /* Secondary RETURN_CODE   */
  275.                                   unsigned fixed bin(31);
  276.  /*                               -----------------------    */
  277.  
  278.  define alias @svc_hdr handle svc_hdr;
  279.  
  280.  define structure
  281.    1 convert,
  282.      2 opcode                     /* Verb operation code     */
  283.                                   unsigned fixed bin(16),
  284.  /*                               -----------------------    */
  285.      2 opext                      /* Verb extension code     */
  286.                                   char,
  287.  /*                               -----                      */
  288.      2 reserv2                    /* Reserved                */
  289.                                   char,
  290.  /*                               -----                      */
  291.      2 primary_rc                 /* Primary RETURN_CODE     */
  292.                                   unsigned fixed bin(16),
  293.  /*                               -----------------------    */
  294.      2 secondary_rc               /* Secondary RETURN_CODE   */
  295.                                   unsigned fixed bin(31) unal,
  296.  /*                               ---------------------------*/
  297.      2 direction                  /* DIRECTION               */
  298.                                   char,
  299.  /*                               -----                      */
  300.      2 char_set                   /* CHARACTER_SET           */
  301.                                   char,
  302.  /*                               -----                      */
  303.      2 len                        /* LENGTH                  */
  304.                                   unsigned fixed bin(16),
  305.  /*                               -----------------------    */
  306.      2 Source                     /* SOURCE_ADDR             */
  307.                                   pointer segmented unal,
  308.  /*                               -----------------------    */
  309.      2 Target                     /* TARGET_ADDR             */
  310.                                   pointer segmented unal;
  311.  /*                               -----------------------    */
  312.  
  313.  define alias @convert handle convert;
  314.  
  315.  define structure
  316.    1 get_cp_convert_table,
  317.      2 opcode                     /* Verb operation code     */
  318.                                   unsigned fixed bin(16),
  319.  /*                               -----------------------    */
  320.      2 opext                      /* Verb extension code     */
  321.                                   char,
  322.  /*                               -----                      */
  323.      2 reserv2                    /* Reserved                */
  324.                                   char,
  325.  /*                               -----                      */
  326.      2 primary_rc                 /* Primary RETURN_CODE     */
  327.                                   unsigned fixed bin(16),
  328.  /*                               -----------------------    */
  329.      2 secondary_rc               /* Secondary RETURN_CODE   */
  330.                                   unsigned fixed bin(31),
  331.  /*                               -----------------------    */
  332.      2 source_cp                  /* SOURCE_CODE_PAGE        */
  333.                                   unsigned fixed bin(16),
  334.  /*                               -----------------------    */
  335.      2 target_cp                  /* TARGET_CODE_PAGE        */
  336.                                   unsigned fixed bin(16),
  337.  /*                               -----------------------    */
  338.      2 conv_tbl_addr              /* CONVERT_TABLE_ADDR      */
  339.                                   pointer segmented,
  340.  /*                               ------------------         */
  341.      2 char_not_fnd               /* CHARACTER_NOT_FOUND     */
  342.                                   char,
  343.  /*                               -----                      */
  344.      2 substitute_char            /* Substitute Character    */
  345.                                   char;
  346.  /*                               -----                      */
  347.  
  348.  define alias @get_cp_convert_table handle get_cp_convert_table;
  349.  
  350.  define structure
  351.    1 log_message,
  352.      2 opcode                     /* Verb operation code     */
  353.                                   unsigned fixed bin(16),
  354.  /*                               -----------------------    */
  355.      2 opext                      /* Verb extension code     */
  356.                                   char,
  357.  /*                               -----                      */
  358.      2 reserv2                    /* Reserved                */
  359.                                   char,
  360.  /*                               -----                      */
  361.      2 primary_rc                 /* Primary RETURN_CODE     */
  362.                                   unsigned fixed bin(16),
  363.  /*                               -----------------------    */
  364.      2 secondary_rc               /* Secondary RETURN_CODE   */
  365.                                   unsigned fixed bin(31),
  366.  /*                               -----------------------    */
  367.      2 msg_num                    /* MESSAGE_NUMBER          */
  368.                                   unsigned fixed bin(16),
  369.  /*                               -----------------------    */
  370.      2 origntr_id                 /* ORIGINATOR_ID           */
  371.                                   char(8),
  372.  /*                               --------                   */
  373.      2 msg_file_name              /* MSG_FILE_NAME           */
  374.                                   char(3),
  375.  /*                               --------                   */
  376.      2 msg_act                    /* MESSAGE_ACTION          */
  377.                                   char,
  378.  /*                               -----                      */
  379.      2 msg_ins_len                /* MESSAGE_INS_LENGTH      */
  380.                                   unsigned fixed bin(16),
  381.  /*                               -----------------------    */
  382.      2 msg_ins_ptr                /* MESSAGE_INS_ADDR        */
  383.                                   pointer segmented;
  384.  /*                               ------------------         */
  385.  
  386.  define alias @log_message handle log_message;
  387.  
  388.  define structure
  389.    1 transfer_ms_data,
  390.      2 opcode                     /* Verb operation code     */
  391.                                   unsigned fixed bin(16),
  392.  /*                               -----------------------    */
  393.      2 ms_data_type               /* DATA_TYPE               */
  394.                                   char,
  395.  /*                               -----                      */
  396.      2 reserv2                    /* Reserved                */
  397.                                   char,
  398.  /*                               -----                      */
  399.      2 primary_rc                 /* Primary RETURN_CODE     */
  400.                                   unsigned fixed bin(16),
  401.  /*                               -----------------------    */
  402.      2 secondary_rc               /* Secondary RETURN_CODE   */
  403.                                   unsigned fixed bin(31),
  404.  /*                               -----------------------    */
  405.      2 options                    /* Verb options            */
  406.                                   char,
  407.  /*                               -----                      */
  408.      2 reserv3                    /* RESERVED                */
  409.                                   char,
  410.  /*                               -----                      */
  411.      2 origntr_id                 /* ORIGINATOR_ID           */
  412.                                   char(8),
  413.  /*                               --------                   */
  414.      2 dlen                       /* DATA_LENGTH             */
  415.                                   unsigned fixed bin(16),
  416.  /*                               -----------------------    */
  417.      2 dptr                       /* DATA_ADDR               */
  418.                                   pointer segmented;
  419.  /*                               ------------------         */
  420.  
  421.  define alias @transfer_ms_data handle transfer_ms_data;
  422.  
  423.  define structure
  424.    1 set_user_log_queue,
  425.      2 opcode                     /* Verb operation code     */
  426.                                   unsigned fixed bin(16),
  427.  /*                               -----------------------    */
  428.      2 opext                      /* Verb extension code     */
  429.                                   char,
  430.  /*                               -----                      */
  431.      2 reserv2                    /* Reserved                */
  432.                                   char,
  433.  /*                               -----                      */
  434.      2 primary_rc                 /* Primary RETURN_CODE     */
  435.                                   unsigned fixed bin(16),
  436.  /*                               -----------------------    */
  437.      2 secondary_rc               /* Secondary RETURN_CODE   */
  438.                                   unsigned fixed bin(31),
  439.  /*                               -----------------------    */
  440.      2 key                        /* KEY                     */
  441.                                   char(8),
  442.  /*                               --------                   */
  443.      2 queue_name                 /* QUEUE_NAME              */
  444.                                   char(64),
  445.  /*                               ---------                  */
  446.      2 forward                    /* FORWARD                 */
  447.                                   char,
  448.  /*                               -----                      */
  449.      2 suppress                   /* SUPPRESS                */
  450.                                   char,
  451.  /*                               -----                      */
  452.      2 selection                  /* SELECTION               */
  453.                                   char,
  454.  /*                               -----                      */
  455.      2 padding                    /* to align boundaries     */
  456.                                   char,
  457.  /*                               -----                      */
  458.      2 numbers (10)               /* NUMBERS                 */
  459.                                   unsigned fixed bin(31);
  460.  /*                               -----------------------    */
  461.  
  462.  define alias @set_user_log_queue handle set_user_log_queue;
  463.  
  464.  
  465.  define structure
  466.    1 copy_trace_to_file,
  467.      2 opcode                     /* Verb operation code     */
  468.                                   unsigned fixed bin(16),
  469.  /*                               -----------------------    */
  470.      2 opext                      /* Verb extension code     */
  471.                                   char,
  472.  /*                               -----                      */
  473.      2 reserv2                    /* Reserved                */
  474.                                   char,
  475.  /*                               -----                      */
  476.      2 primary_rc                 /* Primary RETURN_CODE     */
  477.                                   unsigned fixed bin(16),
  478.  /*                               -----------------------    */
  479.      2 secondary_rc               /* Secondary RETURN_CODE   */
  480.                                   unsigned fixed bin(31),
  481.  /*                               -----------------------    */
  482.      2 key                        /* KEY                     */
  483.                                   char(8),
  484.  /*                               --------                   */
  485.      2 file_name                  /* FILE NAME               */
  486.                                   char(64),
  487.  /*                               ---------                  */
  488.      2 file_option                /* FILE OPTION             */
  489.                                   char,
  490.  /*                               -----                      */
  491.      2 output_format              /* OUTPUT FORMAT           */
  492.                                   char,
  493.  /*                               -----                      */
  494.      2 reserv8                    /* Reserved                */
  495.                                   char(11);
  496.  /*                               ---------                  */
  497.  
  498.  define alias @copy_trace_to_file handle copy_trace_to_file;
  499.  
  500.  
  501.  define structure
  502.    1 define_dump,
  503.      2 opcode                     /* Verb operation code     */
  504.                                   unsigned fixed bin(16),
  505.  /*                               -----------------------    */
  506.      2 opext                      /* Verb extension code     */
  507.                                   char,
  508.  /*                               -----                      */
  509.      2 reserv2                    /* Reserved                */
  510.                                   char,
  511.  /*                               -----                      */
  512.      2 primary_rc                 /* Primary RETURN_CODE     */
  513.                                   unsigned fixed bin(16),
  514.  /*                               -----------------------    */
  515.      2 secondary_rc               /* Secondary RETURN_CODE   */
  516.                                   unsigned fixed bin(31),
  517.  /*                               -----------------------    */
  518.      2 key                        /* KEY                     */
  519.                                   char(8),
  520.  /*                               --------                   */
  521.      2 component_01               /* COMPONENT_01            */
  522.                                   char,
  523.  /*                               -----                      */
  524.      2 component_02               /* COMPONENT_02            */
  525.                                   char,
  526.  /*                               -----                      */
  527.      2 component_03               /* COMPONENT_03            */
  528.                                   char,
  529.  /*                               -----                      */
  530.      2 component_04               /* COMPONENT_04            */
  531.                                   char,
  532.  /*                               -----                      */
  533.      2 component_05               /* COMPONENT_05            */
  534.                                   char,
  535.  /*                               -----                      */
  536.      2 component_06               /* COMPONENT_06            */
  537.                                   char,
  538.  /*                               -----                      */
  539.      2 component_07               /* COMPONENT_07            */
  540.                                   char,
  541.  /*                               -----                      */
  542.      2 component_08               /* COMPONENT_08            */
  543.                                   char,
  544.  /*                               -----                      */
  545.      2 component_09               /* COMPONENT_09            */
  546.                                   char,
  547.  /*                               -----                      */
  548.      2 component_10               /* COMPONENT_10            */
  549.                                   char,
  550.  /*                               -----                      */
  551.      2 component_11               /* COMPONENT_11            */
  552.                                   char,
  553.  /*                               -----                      */
  554.      2 component_12               /* COMPONENT_12            */
  555.                                   char,
  556.  /*                               -----                      */
  557.      2 component_13               /* COMPONENT_13            */
  558.                                   char,
  559.  /*                               -----                      */
  560.      2 component_14               /* COMPONENT_14            */
  561.                                   char,
  562.  /*                               -----                      */
  563.      2 component_15               /* COMPONENT_15            */
  564.                                   char,
  565.  /*                               -----                      */
  566.      2 component_16               /* COMPONENT_16            */
  567.                                   char,
  568.  /*                               -----                      */
  569.      2 component_17               /* COMPONENT_17            */
  570.                                   char,
  571.  /*                               -----                      */
  572.      2 component_18               /* COMPONENT_18            */
  573.                                   char,
  574.  /*                               -----                      */
  575.      2 component_19               /* COMPONENT_19            */
  576.                                   char,
  577.  /*                               -----                      */
  578.      2 reserv9                    /* Reserved                */
  579.                                   char(12),
  580.  /*                               ---------                  */
  581.      2 x25_ctrl_blks              /* X25_Control_Blocks      */
  582.                                   char,
  583.  /*                               -----                      */
  584.      2 x25_user_bufs              /* X25_User_Buffers        */
  585.                                   char,
  586.  /*                               -----                      */
  587.      2 x25_adapter                /* X25_Adapter_Name        */
  588.                                   char(8),
  589.  /*                               --------                   */
  590.      2 file_name                  /* FILE NAME               */
  591.                                   char(64),
  592.  /*                               ---------                  */
  593.      2 file_option                /* OPTION                  */
  594.                                   char;
  595.  /*                               -----                      */
  596.  
  597.  define alias @define_dump handle define_dump;
  598.  
  599.  define structure
  600.    1 define_trace,
  601.      2 opcode                     /* Verb operation code     */
  602.                                   unsigned fixed bin(16),
  603.  /*                               -----------------------    */
  604.      2 opext                      /* Verb extension code     */
  605.                                   char,
  606.  /*                               -----                      */
  607.      2 reserv2                    /* Reserved                */
  608.                                   char,
  609.  /*                               -----                      */
  610.      2 primary_rc                 /* Primary RETURN_CODE     */
  611.                                   unsigned fixed bin(16),
  612.  /*                               -----------------------    */
  613.      2 secondary_rc               /* Secondary RETURN_CODE   */
  614.                                   unsigned fixed bin(31),
  615.  /*                               -----------------------    */
  616.      2 key                        /* KEY                     */
  617.                                   char(8),
  618.  /*                               --------                   */
  619.      2 dt_set                     /* SET                     */
  620.                                   char,
  621.  /*                               -----                      */
  622.      2 appc                       /* APPC                    */
  623.                                   char,
  624.  /*                               -----                      */
  625.      2 d3270                      /* 3270                    */
  626.                                   char,
  627.  /*                               -----                      */
  628.      2 srpi                       /* SRPI                    */
  629.                                   char,
  630.  /*                               -----                      */
  631.      2 sdlc                       /* SDLC                    */
  632.                                   char,
  633.  /*                               -----                      */
  634.      2 tkn_rng_dlc                /* TOKEN_RING_DLC          */
  635.                                   char,
  636.  /*                               -----                      */
  637.      2 pcnet_dlc                  /* PCNET_DLC               */
  638.                                   char,
  639.  /*                               -----                      */
  640.      2 dft                        /* DFT                     */
  641.                                   char,
  642.  /*                               -----                      */
  643.      2 acdi                       /* ACDI                    */
  644.                                   char,
  645.  /*                               -----                      */
  646.      2 comm_serv                  /* COMM_SERV               */
  647.                                   char,
  648.  /*                               -----                      */
  649.      2 ehllapi                    /* EHLLAPI                 */
  650.                                   char,
  651.  /*                               -----                      */
  652.      2 x25_api                    /* X.25_API                */
  653.                                   char,
  654.  /*                               -----                      */
  655.      2 x25_dlc                    /* X.25_DLC                */
  656.                                   char,
  657.  /*                               -----                      */
  658.      2 twinax                     /* TWINAX                  */
  659.                                   char,
  660.  /*                               -----                      */
  661.      2 d5250                      /* 5250                    */
  662.                                   char,
  663.  /*                               -----                      */
  664.      2 lua_api                    /* LUA_API                 */
  665.                                   char,
  666.  /*                               -----                      */
  667.      2 etherand                   /* ETHERAND                */
  668.                                   char,
  669.  /*                               -----                      */
  670.      2 subsysm                    /* SUBSYSM                 */
  671.                                   char,
  672.  /*                               -----                      */
  673.      2 mptn                       /* MPTN Tracing            */
  674.                                   char,
  675.  /*                               -----                      */
  676.      2 remote_ops                 /* ROPS Tracing            */
  677.                                   char,
  678.  /*                               -----                      */
  679.      2 reserv7                    /* Reserved                */
  680.                                   char(6),
  681.  /*                               --------                   */
  682.      2 reset_trc                  /* RESET_TRACE             */
  683.                                   char,
  684.  /*                               -----                      */
  685.      2 trunc                      /* TRUNCATION              */
  686.                                   unsigned fixed bin(16) unal,
  687.  /*                               ---------------------------*/
  688.      2 strg_size                  /* STORAGE_SIZE            */
  689.                                   unsigned fixed bin(16) unal,
  690.  /*                               ---------------------------*/
  691.      2 reserv6                    /* Reserved                */
  692.                                   char,
  693.  /*                               -----                      */
  694.      2 phys_link                  /* X25_PHYSICAL_LINK_NAME  */
  695.                                   char(7),
  696.  /*                               --------                   */
  697.      2 reserv8                    /* Reserved                */
  698.                                   char(56);
  699.  /*                               ---------                  */
  700.  
  701.  define alias @define_trace handle define_trace;
  702.  
  703.