home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cmpli.inc / CMPLI.INC
Text File  |  1994-05-03  |  38KB  |  733 lines
  1.    /******************************************************************/
  2.    /* COPYRIGHT -                                                    */
  3.    /*          5684-112 (C) COPYRIGHT IBM CORP. 1988, 1991           */
  4.    /*          LICENSED MATERIALS - PROPERTY OF IBM                  */
  5.    /*          REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 */
  6.    /******************************************************************/
  7.    /************* SAA CPI Communications Variable Names **************/
  8.    /*                                                                */
  9.    /* The following variables are defined and available on all       */
  10.    /* operating systems supporting SAA CPI Communications.  All      */
  11.    /* variables for SAA CPI Communications start with the letters    */
  12.    /* 'CM'.                                                          */
  13.    /*                                                                */
  14.    /* The literals are provided for your convenience.  They may, or  */
  15.    /* may not, be defined in other operating system environments.    */
  16.    /*                                                                */
  17.    /******************************************************************/
  18.  %skip(3);
  19.    /******************************************************************/
  20.    /* Conversation State Values                                      */
  21.    /******************************************************************/
  22.    DECLARE
  23.      ( cm_initialize_state              INITIAL(2),
  24.        cm_send_state                    INITIAL(3),
  25.        cm_receive_state                 INITIAL(4),
  26.        cm_send_pending_state            INITIAL(5),
  27.        cm_confirm_state                 INITIAL(6),
  28.        cm_confirm_send_state            INITIAL(7),
  29.        cm_confirm_deallocate_state      INITIAL(8),
  30.        cm_defer_receive_state           INITIAL(9),
  31.        cm_defer_deallocate_state        INITIAL(10),
  32.        cm_sync_point_state              INITIAL(11),
  33.        cm_sync_point_send_state         INITIAL(12),
  34.        cm_sync_point_deallocate_state   INITIAL(13))
  35.                                         FIXED BINARY(31) STATIC;
  36.  %skip;
  37.    /******************************************************************/
  38.    /* Conversation Type Values                                       */
  39.    /******************************************************************/
  40.    DECLARE
  41.      ( cm_basic_conversation            INITIAL(0),
  42.        cm_mapped_conversation           INITIAL(1))
  43.                                         FIXED BINARY(31) STATIC;
  44.  %skip;
  45.    /******************************************************************/
  46.    /* Data Received Values                                           */
  47.    /******************************************************************/
  48.    DECLARE
  49.      ( cm_no_data_received              INITIAL(0),
  50.        cm_data_received                 INITIAL(1),
  51.        cm_complete_data_received        INITIAL(2),
  52.        cm_incomplete_data_received      INITIAL(3))
  53.                                         FIXED BINARY(31) STATIC;
  54.  %skip;
  55.    /******************************************************************/
  56.    /* Deallocate Type Values                                         */
  57.    /******************************************************************/
  58.    DECLARE
  59.      ( cm_deallocate_sync_level         INITIAL(0),
  60.        cm_deallocate_flush              INITIAL(1),
  61.        cm_deallocate_confirm            INITIAL(2),
  62.        cm_deallocate_abend              INITIAL(3))
  63.                                         FIXED BINARY(31) STATIC;
  64.  %skip;
  65.    /******************************************************************/
  66.    /* Error Direction Values                                         */
  67.    /******************************************************************/
  68.    DECLARE
  69.      ( cm_receive_error                 INITIAL(0),
  70.        cm_send_error                    INITIAL(1))
  71.                                         FIXED BINARY(31) STATIC;
  72.  %skip;
  73.    /******************************************************************/
  74.    /* Fill Values                                                    */
  75.    /******************************************************************/
  76.    DECLARE
  77.      ( cm_fill_ll                       INITIAL(0),
  78.        cm_fill_buffer                   INITIAL(1))
  79.                                         FIXED BINARY(31) STATIC;
  80.  %skip;
  81.    /******************************************************************/
  82.    /* Prepare to Receive Type Values                                 */
  83.    /******************************************************************/
  84.    DECLARE
  85.      ( cm_prep_to_receive_sync_level    INITIAL(0),
  86.        cm_prep_to_receive_flush         INITIAL(1),
  87.        cm_prep_to_receive_confirm       INITIAL(2))
  88.                                         FIXED BINARY(31) STATIC;
  89.  %skip;
  90.    /******************************************************************/
  91.    /* Receive Type Values                                            */
  92.    /******************************************************************/
  93.    DECLARE
  94.      ( cm_receive_and_wait              INITIAL(0),
  95.        cm_receive_immediate             INITIAL(1))
  96.                                         FIXED BINARY(31) STATIC;
  97.  %skip;
  98.    /******************************************************************/
  99.    /* Return Code Values                                             */
  100.    /******************************************************************/
  101.    DECLARE
  102.      ( cm_ok                            INITIAL(0),
  103.        cm_allocate_failure_no_retry     INITIAL(1),
  104.        cm_allocate_failure_retry        INITIAL(2),
  105.        cm_conversation_type_mismatch    INITIAL(3),
  106.        cm_pip_not_specified_correctly   INITIAL(5),
  107.        cm_security_not_valid            INITIAL(6),
  108.        cm_sync_lvl_not_supported_lu     INITIAL(7),
  109.        cm_sync_lvl_not_supported_pgm    INITIAL(8),
  110.        cm_tpn_not_recognized            INITIAL(9),
  111.        cm_tp_not_available_no_retry     INITIAL(10),
  112.        cm_tp_not_available_retry        INITIAL(11),
  113.        cm_deallocated_abend             INITIAL(17),
  114.        cm_deallocated_normal            INITIAL(18),
  115.        cm_parameter_error               INITIAL(19),
  116.        cm_product_specific_error        INITIAL(20),
  117.        cm_program_error_no_trunc        INITIAL(21),
  118.        cm_program_error_purging         INITIAL(22),
  119.        cm_program_error_trunc           INITIAL(23),
  120.        cm_program_parameter_check       INITIAL(24),
  121.        cm_program_state_check           INITIAL(25),
  122.        cm_resource_failure_no_retry     INITIAL(26),
  123.        cm_resource_failure_retry        INITIAL(27),
  124.        cm_unsuccessful                  INITIAL(28),
  125.        cm_deallocated_abend_svc         INITIAL(30),
  126.        cm_deallocated_abend_timer       INITIAL(31),
  127.        cm_svc_error_no_trunc            INITIAL(32),
  128.        cm_svc_error_purging             INITIAL(33),
  129.        cm_svc_error_trunc               INITIAL(34),
  130.        cm_take_backout                  INITIAL(100),
  131.        cm_deallocated_abend_bo          INITIAL(130),
  132.        cm_deallocated_abend_svc_bo      INITIAL(131),
  133.        cm_deallocated_abend_timer_bo    INITIAL(132),
  134.        cm_resource_fail_no_retry_bo     INITIAL(133),
  135.        cm_resource_failure_retry_bo     INITIAL(134),
  136.        cm_deallocated_normal_bo         INITIAL(135))
  137.                                         FIXED BINARY(31) STATIC;
  138.  %skip;
  139.    /******************************************************************/
  140.    /* Return Control Values                                          */
  141.    /******************************************************************/
  142.    DECLARE
  143.      ( cm_when_session_allocated        INITIAL(0),
  144.        cm_immediate                     INITIAL(1))
  145.                                         FIXED BINARY(31) STATIC;
  146.  %skip;
  147.    /******************************************************************/
  148.    /* Request To Send Received Values                                */
  149.    /******************************************************************/
  150.    DECLARE
  151.      ( cm_req_to_send_not_received      INITIAL(0),
  152.        cm_req_to_send_received          INITIAL(1))
  153.                                         FIXED BINARY(31) STATIC;
  154.  %skip;
  155.    /******************************************************************/
  156.    /* Send Type Values                                               */
  157.    /******************************************************************/
  158.    DECLARE
  159.      ( cm_buffer_data                   INITIAL(0),
  160.        cm_send_and_flush                INITIAL(1),
  161.        cm_send_and_confirm              INITIAL(2),
  162.        cm_send_and_prep_to_receive      INITIAL(3),
  163.        cm_send_and_deallocate           INITIAL(4))
  164.                                         FIXED BINARY(31) STATIC;
  165.  %skip;
  166.    /******************************************************************/
  167.    /* Status Received Values                                         */
  168.    /******************************************************************/
  169.    DECLARE
  170.      ( cm_no_status_received            INITIAL(0),
  171.        cm_send_received                 INITIAL(1),
  172.        cm_confirm_received              INITIAL(2),
  173.        cm_confirm_send_received         INITIAL(3),
  174.        cm_confirm_dealloc_received      INITIAL(4),
  175.        cm_take_commit                   INITIAL(5),
  176.        cm_take_commit_send              INITIAL(6),
  177.        cm_take_commit_deallocate        INITIAL(7))
  178.                                         FIXED BINARY(31) STATIC;
  179.  %skip;
  180.    /******************************************************************/
  181.    /* Sync Level Values                                              */
  182.    /******************************************************************/
  183.    DECLARE
  184.      ( cm_none                          INITIAL(0),
  185.        cm_confirm                       INITIAL(1),
  186.        cm_sync_point                    INITIAL(2))
  187.                                         FIXED BINARY(31) STATIC;
  188.  %skip;
  189.    /***************** END OF SAA VARIABLE NAMES **********************/
  190.  %skip(3);
  191.    /********* VM-Specific CPI Communications Variable Names **********/
  192.    /*                                                                */
  193.    /* The following variables are defined and available only on VM   */
  194.    /* operating systems.  All VM-specific variables and routines     */
  195.    /* begin with the letters 'XC'.                                   */
  196.    /******************************************************************/
  197.  %skip(3);
  198.    /******************************************************************/
  199.    /* Resource Manager Type Values                                   */
  200.    /******************************************************************/
  201.    DECLARE
  202.      ( xc_private                       INITIAL(0),
  203.        xc_local                         INITIAL(1),
  204.        xc_global                        INITIAL(2))
  205.                                         FIXED BINARY(31) STATIC;
  206.  %skip;
  207.    /******************************************************************/
  208.    /* Service Mode Values                                            */
  209.    /******************************************************************/
  210.    DECLARE
  211.      ( xc_single                        INITIAL(0),
  212.        xc_sequential                    INITIAL(1),
  213.        xc_multiple                      INITIAL(2))
  214.                                         FIXED BINARY(31) STATIC;
  215.  %skip;
  216.    /******************************************************************/
  217.    /* Security Level Flag Values                                     */
  218.    /******************************************************************/
  219.    DECLARE
  220.      ( xc_reject_security_none          INITIAL(0),
  221.        xc_accept_security_none          INITIAL(1))
  222.                                         FIXED BINARY(31) STATIC;
  223.  %skip;
  224.    /******************************************************************/
  225.    /* Conversation Security Type Values                              */
  226.    /******************************************************************/
  227.    DECLARE
  228.      ( xc_security_none                 INITIAL(0),
  229.        xc_security_same                 INITIAL(1),
  230.        xc_security_program              INITIAL(2))
  231.                                         FIXED BINARY(31) STATIC;
  232.  %skip;
  233.    /******************************************************************/
  234.    /* Event Type Values                                              */
  235.    /******************************************************************/
  236.    DECLARE
  237.      ( xc_allocation_request            INITIAL(1),
  238.        xc_information_input             INITIAL(2),
  239.        xc_resource_revoked              INITIAL(3),
  240.        xc_console_input                 INITIAL(4),
  241.        xc_request_id                    INITIAL(5),
  242.        xc_user_event                    INITIAL(6))
  243.                                         FIXED BINARY(31) STATIC;
  244.  %skip;
  245.    /************** END OF VM-SPECIFIC VARIABLE NAMES *****************/
  246.  %skip(3);
  247.    /****************** SAA CPI Communications Calls ******************/
  248.    /*                                                                */
  249.    /* The following calls are defined and available on all           */
  250.    /* operating systems supporting SAA CPI Communications.  All      */
  251.    /* calls for CPI Communications start with the letters 'CM'.      */
  252.    /*                                                                */
  253.    /******************************************************************/
  254.  %skip(3);
  255.    /******************************************************************/
  256.    /* SAA CPI Communications Accept Conversation Call                */
  257.    /******************************************************************/
  258.    DECLARE
  259.      CMACCP ENTRY
  260.        ( CHAR(8),                   /* Out - Conversation ID         */
  261.          FIXED BINARY(31) )         /* Out - Return Code             */
  262.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  263.  %skip;
  264.    /******************************************************************/
  265.    /* SAA CPI Communications Allocate Call                           */
  266.    /******************************************************************/
  267.    DECLARE
  268.      CMALLC ENTRY
  269.        ( CHAR(8),                   /* In  - Conversation ID         */
  270.          FIXED BINARY(31) )         /* Out - Return Code             */
  271.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  272.  %skip;
  273.    /******************************************************************/
  274.    /* SAA CPI Communications Confirm Call                            */
  275.    /******************************************************************/
  276.    DECLARE
  277.      CMCFM ENTRY
  278.        ( CHAR(8),                   /* In  - Conversation ID         */
  279.          FIXED BINARY(31),          /* Out - Req to send Received    */
  280.          FIXED BINARY(31) )         /* Out - Return Code             */
  281.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  282.  %skip;
  283.    /******************************************************************/
  284.    /* SAA CPI Communications Confirmed Call                          */
  285.    /******************************************************************/
  286.    DECLARE
  287.      CMCFMD ENTRY
  288.        ( CHAR(8),                   /* In  - Conversation ID         */
  289.          FIXED BINARY(31) )         /* Out - Return Code             */
  290.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  291.  %skip;
  292.    /******************************************************************/
  293.    /* SAA CPI Communications Deallocate Call                         */
  294.    /******************************************************************/
  295.    DECLARE
  296.      CMDEAL ENTRY
  297.        ( CHAR(8),                   /* In  - Conversation ID         */
  298.          FIXED BINARY(31) )         /* Out - Return Code             */
  299.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  300.  %skip;
  301.    /******************************************************************/
  302.    /* SAA CPI Communications Extract_Conversation_State Call         */
  303.    /******************************************************************/
  304.    DECLARE
  305.      CMECS ENTRY
  306.        ( CHAR(8),                   /* In  - Conversation ID         */
  307.          FIXED BINARY(31),          /* Out - Conversation State      */
  308.          FIXED BINARY(31) )         /* Out - Return Code             */
  309.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  310.  %skip;
  311.    /******************************************************************/
  312.    /* SAA CPI Communications Extract_Conversation_Type Call          */
  313.    /******************************************************************/
  314.    DECLARE
  315.      CMECT ENTRY
  316.        ( CHAR(8),                   /* In  - Conversation ID         */
  317.          FIXED BINARY(31),          /* Out - Conversation Type       */
  318.          FIXED BINARY(31) )         /* Out - Return Code             */
  319.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  320.  %skip;
  321.    /******************************************************************/
  322.    /* SAA CPI Communications Extract_Mode_Name Call                  */
  323.    /******************************************************************/
  324.    DECLARE
  325.      CMEMN ENTRY
  326.        ( CHAR(8),                   /* In  - Conversation ID         */
  327.          CHAR(8),                   /* Out - Mode Name               */
  328.          FIXED BINARY(31),          /* Out - Mode Name Length        */
  329.          FIXED BINARY(31) )         /* Out - Return Code             */
  330.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  331.  %skip;
  332.    /******************************************************************/
  333.    /* SAA CPI Communications Extract_Partner_LU_Name Call            */
  334.    /******************************************************************/
  335.    DECLARE
  336.      CMEPLN ENTRY
  337.        ( CHAR(8),                   /* In  - Conversation ID         */
  338.          CHAR(17),                  /* Out - Partner LU name         */
  339.          FIXED BINARY(31),          /* Out - Partner LU name length  */
  340.          FIXED BINARY(31) )         /* Out - Return Code             */
  341.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  342.  %skip;
  343.    /******************************************************************/
  344.    /* SAA CPI Communications Extract_Sync_Level Call                 */
  345.    /******************************************************************/
  346.    DECLARE
  347.      CMESL ENTRY
  348.        ( CHAR(8),                   /* In  - Conversation ID         */
  349.          FIXED BINARY(31),          /* Out - Sync Level              */
  350.          FIXED BINARY(31) )         /* Out - Return Code             */
  351.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  352.  %skip;
  353.    /******************************************************************/
  354.    /* SAA CPI Communications Flush Call                              */
  355.    /******************************************************************/
  356.    DECLARE
  357.      CMFLUS ENTRY
  358.        ( CHAR(8),                   /* In  - Conversation ID         */
  359.          FIXED BINARY(31) )         /* Out - Return Code             */
  360.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  361.  %skip;
  362.    /******************************************************************/
  363.    /* SAA CPI Communications Initialize Conversation Call            */
  364.    /******************************************************************/
  365.    DECLARE
  366.      CMINIT ENTRY
  367.        ( CHAR(8),                   /* Out - Conversation ID         */
  368.          CHAR(8),                   /* In  - Symbolic Dest Name      */
  369.          FIXED BINARY(31) )         /* Out - Return Code             */
  370.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  371.  %skip;
  372.    /******************************************************************/
  373.    /* SAA CPI Communications Prepare to Receive Call                 */
  374.    /******************************************************************/
  375.    DECLARE
  376.      CMPTR ENTRY
  377.        ( CHAR(8),                   /* In  - Conversation ID         */
  378.          FIXED BINARY(31) )         /* Out - Return Code             */
  379.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  380.  %skip;
  381.    /******************************************************************/
  382.    /* SAA CPI Communications Receive Call                            */
  383.    /******************************************************************/
  384.    DECLARE
  385.      CMRCV ENTRY
  386.        ( CHAR(8),                   /* In  - Conversation ID         */
  387.          CHAR(*),                   /* Out - Buffer                  */
  388.          FIXED BINARY(31),          /* In  - Requested Length        */
  389.          FIXED BINARY(31),          /* Out - Data Received           */
  390.          FIXED BINARY(31),          /* Out - Received Length         */
  391.          FIXED BINARY(31),          /* Out - Status Received         */
  392.          FIXED BINARY(31),          /* Out - Request To Send Received*/
  393.          FIXED BINARY(31) )         /* Out - Return Code             */
  394.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  395.  %skip;
  396.    /******************************************************************/
  397.    /* SAA CPI Communications Request to Send Call                    */
  398.    /******************************************************************/
  399.    DECLARE
  400.      CMRTS ENTRY
  401.        ( CHAR(8),                   /* In  - Conversation ID         */
  402.          FIXED BINARY(31) )         /* Out - Return Code             */
  403.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  404.  %skip;
  405.    /******************************************************************/
  406.    /* SAA CPI Communications Send Data Call                          */
  407.    /******************************************************************/
  408.    DECLARE
  409.      CMSEND ENTRY
  410.        ( CHAR(8),                   /* In  - Conversation ID         */
  411.          CHAR(*),                   /* In  - Buffer                  */
  412.          FIXED BINARY(31),          /* In  - Send Length             */
  413.          FIXED BINARY(31),          /* Out - Request To Send Received*/
  414.          FIXED BINARY(31) )         /* Out - Return Code             */
  415.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  416.  %skip;
  417.    /******************************************************************/
  418.    /* SAA CPI Communications Send Error Call                         */
  419.    /******************************************************************/
  420.    DECLARE
  421.      CMSERR ENTRY
  422.        ( CHAR(8),                   /* In  - Conversation ID         */
  423.          FIXED BINARY(31),          /* Out - Request To Send Received*/
  424.          FIXED BINARY(31) )         /* Out - Return Code             */
  425.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  426.  %skip;
  427.    /******************************************************************/
  428.    /* SAA CPI Communications Set Conversation Type Call              */
  429.    /******************************************************************/
  430.    DECLARE
  431.      CMSCT ENTRY
  432.        ( CHAR(8),                   /* In  - Conversation ID         */
  433.          FIXED BINARY(31),          /* In  - Conversation Type       */
  434.          FIXED BINARY(31) )         /* Out - Return Code             */
  435.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  436.  %skip;
  437.    /******************************************************************/
  438.    /* SAA CPI Communications Set Deallocate Type Call                */
  439.    /******************************************************************/
  440.    DECLARE
  441.      CMSDT ENTRY
  442.        ( CHAR(8),                   /* In  - Conversation ID         */
  443.          FIXED BINARY(31),          /* In  - Deallocate Type         */
  444.          FIXED BINARY(31) )         /* Out - Return Code             */
  445.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  446.  %skip;
  447.    /******************************************************************/
  448.    /* SAA CPI Communications Set Error Direction Call                */
  449.    /******************************************************************/
  450.    DECLARE
  451.      CMSED ENTRY
  452.        ( CHAR(8),                   /* In  - Conversation ID         */
  453.          FIXED BINARY(31),          /* In  - Error Direction         */
  454.          FIXED BINARY(31) )         /* Out - Return Code             */
  455.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  456.  %skip;
  457.    /******************************************************************/
  458.    /* SAA CPI Communications Set Fill Call                           */
  459.    /******************************************************************/
  460.    DECLARE
  461.      CMSF ENTRY
  462.        ( CHAR(8),                   /* In  - Conversation ID         */
  463.          FIXED BINARY(31),          /* In  - Fill                    */
  464.          FIXED BINARY(31) )         /* Out - Return Code             */
  465.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  466.  %skip;
  467.    /******************************************************************/
  468.    /* SAA CPI Communications Set Log Data Call                       */
  469.    /******************************************************************/
  470.    DECLARE
  471.      CMSLD ENTRY
  472.        ( CHAR(8),                   /* In  - Conversation ID         */
  473.          CHAR(*),                   /* In  - Log Data                */
  474.          FIXED BINARY(31),          /* In  - Log Data Length         */
  475.          FIXED BINARY(31) )         /* Out - Return Code             */
  476.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  477.  %skip;
  478.    /******************************************************************/
  479.    /* SAA CPI Communications Set Mode Name Call                      */
  480.    /******************************************************************/
  481.    DECLARE
  482.      CMSMN ENTRY
  483.        ( CHAR(8),                   /* In  - Conversation ID         */
  484.          CHAR(8),                   /* In  - Mode Name               */
  485.          FIXED BINARY(31),          /* In  - Mode Name Length        */
  486.          FIXED BINARY(31) )         /* Out - Return Code             */
  487.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  488.  %skip;
  489.    /******************************************************************/
  490.    /* SAA CPI Communications Set Partner LU Name Call                */
  491.    /******************************************************************/
  492.    DECLARE
  493.      CMSPLN ENTRY
  494.        ( CHAR(8),                   /* In  - Conversation ID         */
  495.          CHAR(17),                  /* In  - Partner LU Name         */
  496.          FIXED BINARY(31),          /* In  - Partner LU Name Length  */
  497.          FIXED BINARY(31) )         /* Out - Return Code             */
  498.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  499.  %skip;
  500.    /******************************************************************/
  501.    /* SAA CPI Communications Set Prepare To Receive Type Call        */
  502.    /******************************************************************/
  503.    DECLARE
  504.      CMSPTR ENTRY
  505.        ( CHAR(8),                   /* In  - Conversation ID         */
  506.          FIXED BINARY(31),          /* In  - Prepare To Receive Type */
  507.          FIXED BINARY(31) )         /* Out - Return Code             */
  508.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  509.  %skip;
  510.    /******************************************************************/
  511.    /* SAA CPI Communications Set Receive Type Call                   */
  512.    /******************************************************************/
  513.    DECLARE
  514.      CMSRT ENTRY
  515.        ( CHAR(8),                   /* In  - Conversation ID         */
  516.          FIXED BINARY(31),          /* In  - Receive Type            */
  517.          FIXED BINARY(31) )         /* Out - Return Code             */
  518.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  519.  %skip;
  520.    /******************************************************************/
  521.    /* SAA CPI Communications Set Return Control Call                 */
  522.    /******************************************************************/
  523.    DECLARE
  524.      CMSRC ENTRY
  525.        ( CHAR(8),                   /* In  - Conversation ID         */
  526.          FIXED BINARY(31),          /* In  - Return Control          */
  527.          FIXED BINARY(31) )         /* Out - Return Code             */
  528.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  529.  %skip;
  530.    /******************************************************************/
  531.    /* SAA CPI Communications Set Send Type Call                      */
  532.    /******************************************************************/
  533.    DECLARE
  534.      CMSST ENTRY
  535.        ( CHAR(8),                   /* In  - Conversation ID         */
  536.          FIXED BINARY(31),          /* In  - Send Type               */
  537.          FIXED BINARY(31) )         /* Out - Return Code             */
  538.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  539.  %skip;
  540.    /******************************************************************/
  541.    /* SAA CPI Communications Set Sync Level Call                     */
  542.    /******************************************************************/
  543.    DECLARE
  544.      CMSSL ENTRY
  545.        ( CHAR(8),                   /* In  - Conversation ID         */
  546.          FIXED BINARY(31),          /* In  - Sync Level              */
  547.          FIXED BINARY(31) )         /* Out - Return Code             */
  548.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  549.  %skip;
  550.    /******************************************************************/
  551.    /* SAA CPI Communications Set TP Name Call                        */
  552.    /******************************************************************/
  553.    DECLARE
  554.      CMSTPN ENTRY
  555.        ( CHAR(8),                   /* In  - Conversation ID         */
  556.          CHAR(64),                  /* In  - TP Name                 */
  557.          FIXED BINARY(31),          /* In  - TP Name Length          */
  558.          FIXED BINARY(31) )         /* Out - Return Code             */
  559.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  560.  %skip;
  561.    /******************************************************************/
  562.    /* SAA CPI Communications Test Request To Send Received Call      */
  563.    /******************************************************************/
  564.    DECLARE
  565.      CMTRTS ENTRY
  566.        ( CHAR(8),                   /* In  - Conversation ID         */
  567.          FIXED BINARY(31),          /* Out - Request To Send Received*/
  568.          FIXED BINARY(31) )         /* Out - Return Code             */
  569.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  570.  %skip;
  571.    /*********************** END OF SAA CALLS *************************/
  572.  /**************************************************************/
  573.  /*                                                            */
  574.  /* PLI pseudo values, side_info_entry_structure,              */
  575.  /* and function prototypes for OS/2 system extensions.        */
  576.  /*                                                            */
  577.  /**************************************************************/
  578.  
  579.  /* TP_name_type values */
  580.  
  581.  dcl XC_APPLICATION_TP        fixed bin (31) init (0),
  582.      XC_SNA_SERVICE_TP        fixed bin (31) init (1);
  583.  
  584.  /* Side info structure used by XCMSSI to define side info */
  585.  
  586.  dcl 1 SIDE_INFO,
  587.        3 sym_dest_name        /* Symbolic destination name */
  588.                               char (8),
  589.        3 partner_LU_name      /* Parter LU Name            */
  590.                               char (8),
  591.        3 reserved             /* Currently not used        */
  592.                               char (3),
  593.        3 TP_Name_Type         /* Transaction program type  */
  594.                               fixed bin (31),
  595.        3 TP_Name              /* Transaction program name  */
  596.                               char (64),
  597.        3 Mode_Name            /* Mode (e.g. #INTER)        */
  598.                               char (8),
  599.        3 Conv_Security_Type   /* Conversation security type*/
  600.                               fixed bin (31),
  601.        3 Security_User_ID     /* User                      */
  602.                               char (8),
  603.        3 Security_Password    /* Password                  */
  604.                               char (8);
  605.  
  606.  /* End_TP */
  607.  
  608.  dcl XCENDT ENTRY
  609.            (CHAR (12),              /* cpic_tp_id               */
  610.             FIXED BIN (31),         /* type-XC_SOFT or XC_HARD  */
  611.             FIXED BIN (31))         /* return_code              */
  612.         EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  613.  
  614.  /* Extract_TP_ID */
  615.  dcl XCETI ENTRY
  616.            (CHAR (8),               /* conversation_id          */
  617.             CHAR (12),              /* cpic_tp_id               */
  618.             FIXED BIN (31))         /* return_code              */
  619.         EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  620.  
  621.  /* Initialize_Conv_For_TP */
  622.  
  623.  dcl XCINCT ENTRY
  624.            (CHAR (8),               /* conversation_ID          */
  625.             CHAR (8),               /* sym_dest_name            */
  626.             CHAR (12),              /* cpic_tp_id               */
  627.             FIXED BIN (31))         /* return_code              */
  628.         EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  629.  
  630.  /* Start_TP */
  631.  
  632.  dcl XCSTP ENTRY
  633.           (CHAR (8),                /* local_lu_alias           */
  634.            FIXED BIN (31),          /* local_lu_alias_length    */
  635.            CHAR (64),               /* tp_name                  */
  636.            FIXED BIN (31),          /* tp_name_length           */
  637.            CHAR (12),               /* cpic_tp_id               */
  638.            FIXED BIN (31))          /* return_code              */
  639.         EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  640.  
  641.  /* Set_CPIC_Side_Information */
  642.  
  643.  dcl XCMSSI ENTRY
  644.            (CHAR (8),               /* key lock                 */
  645.             CHAR (*),               /* side info_entry          */
  646.             FIXED BIN (31),         /* side_info length         */
  647.             FIXED BIN (31))         /* return_code              */
  648.         EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  649.  
  650.  /* Extract_CPIC_Side_Information */
  651.  
  652.  dcl XCMESI ENTRY
  653.            (FIXED BIN (31),       /* entry_number               */
  654.             CHAR (8),             /* symbolic destination name  */
  655.             CHAR (*),             /* side_info_entry            */
  656.             FIXED BIN (31),       /* side_info_length           */
  657.             FIXED BIN (31))       /* return_code                */
  658.         EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  659.  
  660.  /* Delete_CPIC_Side_Information */
  661.  
  662.  dcl XCMDSI ENTRY
  663.            (CHAR (8),             /* key_lock                   */
  664.             CHAR (8),             /* symbolic destination       */
  665.             FIXED BIN (31))       /* return_code                */
  666.         EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  667.  
  668.  /* Extract_Conversation_Security_Type */
  669.  
  670.  dcl XCECST ENTRY
  671.            (CHAR (8),             /* conversation_ID            */
  672.             FIXED BIN (31),       /* conversation_security_type */
  673.             FIXED BIN (31))       /* return_code                */
  674.         EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  675.  
  676.    /******************************************************************/
  677.    /*                OS/2-Specific CPI Communications                */
  678.    /*          Extract_Conversation_Security_User_ID Call            */
  679.    /******************************************************************/
  680.  
  681.  dcl XCECSU ENTRY
  682.         (CHAR(8),                   /* In  - Conversation ID         */
  683.          CHAR(8),                   /* Out - Security User ID        */
  684.          FIXED BINARY(31),          /* Out - Security User ID Length */
  685.          FIXED BINARY(31))          /* Out - Return Code             */
  686.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  687.  
  688.    /******************************************************************/
  689.    /*                OS/2-Specific CPI Communications                */
  690.    /*              Set_Conversation_Security_Password Call           */
  691.    /******************************************************************/
  692.  
  693.  dcl XCSCSP ENTRY
  694.        (CHAR(8),                    /* In  - Conversation ID         */
  695.         CHAR(8),                    /* In  - Security Password       */
  696.         FIXED BINARY(31),           /* In  - Security Password Length*/
  697.         FIXED BINARY(31))           /* Out - Return Code             */
  698.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  699.  
  700.    /******************************************************************/
  701.    /*                  VM-Specific CPI Communications                */
  702.    /*                Set_Conversation_Security_Type Call             */
  703.    /******************************************************************/
  704.  
  705.  dcl XCSCST ENTRY
  706.         (CHAR(8),                   /* In  - Conversation ID         */
  707.          FIXED BINARY(31),          /* In  - Conv.Security Type      */
  708.          FIXED BINARY(31))          /* Out - Return Code             */
  709.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  710.  
  711.    /******************************************************************/
  712.    /*                OS/2-Specific CPI Communications                */
  713.    /*              Set_Conversation_Security_User_ID Call            */
  714.    /******************************************************************/
  715.  
  716.  dcl XCSCSU ENTRY
  717.         (CHAR(8),                   /* In  - Conversation ID         */
  718.          CHAR(8),                   /* In  - Security User ID        */
  719.          FIXED BINARY(31),          /* In  - Security User ID Length */
  720.          FIXED BINARY(31))          /* Out - Return Code             */
  721.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  722.  
  723.    /******************************************************************/
  724.    /*                OS/2-Specific CPI Communications                */
  725.    /*                 Set_Client_Security_User_ID Call               */
  726.    /******************************************************************/
  727.  
  728.  dcl XCSCUI ENTRY
  729.         (CHAR(8),                   /* In  - Conversation ID         */
  730.          CHAR(8),                   /* In  - Client User ID          */
  731.          FIXED BINARY(31))          /* Out - Return Code             */
  732.        EXTERNAL OPTIONS(LINKAGE(PASCAL16) ASM);
  733.