home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l360 / 3.ddi / APPC.@EM / APPC.CPY < prev    next >
Encoding:
Text File  |  1991-04-08  |  35.1 KB  |  713 lines
  1.       *******************************************************************
  2.       *                                                                 *
  3.       *                  (C) Micro Focus Ltd. 1990                      *
  4.       *                                                                 *
  5.       *                      APPC copy file                             *
  6.       *                                                                 *
  7.       *******************************************************************
  8.  
  9.       *=================================================================
  10.       *                 verb parameter constants
  11.       *=================================================================
  12.  
  13.        78 ap-no                                value h"00".
  14.        78 ap-yes                               value h"01".
  15.        
  16.        78 ap-abend                             value h"05".
  17.        78 ap-abend-prog                        value h"02".
  18.        78 ap-abend-svc                         value h"03".
  19.        78 ap-abend-timer                       value h"04".
  20.        78 ap-basic-conversation                value h"00".
  21.        78 ap-buffer                            value h"00".
  22.        78 ap-confirm-sync-level                value h"01".
  23.        78 ap-flush                             value h"01".
  24.        78 ap-hard                              value h"01".
  25.        78 ap-immediate                         value h"01".
  26.        78 ap-ll                                value h"01".
  27.        78 ap-long                              value h"01".
  28.        78 ap-mapped-conversation               value h"01".
  29.        78 ap-none                              value h"00".
  30.        78 ap-pgm                               value h"02".
  31.        78 ap-prog                              value h"00".
  32.        78 ap-same                              value h"01".
  33.        78 ap-short                             value h"00".
  34.        78 ap-soft                              value h"00".
  35.        78 ap-svc                               value h"01".
  36.        78 ap-sync-level                        value h"00".
  37.        78 ap-when-session-allocated            value h"00".
  38.        78 ap-when-session-free                 value h"02".
  39.        
  40.        78 ap-confirm-what-received             value h"0200".
  41.        78 ap-confirm-deallocate                value h"0400".
  42.        78 ap-confirm-send                      value h"0300".
  43.        78 ap-data                              value h"0001".
  44.        78 ap-data-complete                     value h"0002".
  45.        78 ap-data-incomplete                   value h"0004".
  46.        78 ap-send                              value h"0100".
  47.        
  48.       *=================================================================
  49.       *                 return codes
  50.       *=================================================================
  51.        78 ap-allocation-error                  value h"0003".
  52.        78 ap-cancelled                         value h"0021".
  53.        78 ap-comm-subsystem-abended            value h"f003".
  54.        78 ap-comm-subsystem-not-loaded         value h"f004".
  55.        78 ap-conv-failure-retry                value h"000f".
  56.        78 ap-conv-failure-no-retry             value h"0010".
  57.        78 ap-conversation-type-mixed           value h"0019".
  58.        78 ap-dealloc-abend                     value h"0005".
  59.        78 ap-dealloc-abend-prog                value h"0006".
  60.        78 ap-dealloc-abend-svc                 value h"0007".
  61.        78 ap-dealloc-abend-timer               value h"0008".
  62.        78 ap-dealloc-normal                    value h"0009".
  63.        78 ap-invalid-verb-segment              value h"f008".
  64.        78 ap-ok                                value h"0000".
  65.        78 ap-parameter-check                   value h"0001".
  66.        78 ap-prog-error-no-trunc               value h"000c".
  67.        78 ap-prog-error-purging                value h"000e".
  68.        78 ap-prog-error-trunc                  value h"000d".
  69.        78 ap-state-check                       value h"0002".
  70.        78 ap-svc-error-no-trunc                value h"0011".
  71.        78 ap-svc-error-purging                 value h"0013".
  72.        78 ap-svc-error-trunc                   value h"0012".
  73.        78 ap-tp-busy                           value h"f002".
  74.        78 ap-unexpected-dos-error              value h"f011".
  75.        78 ap-unsuccessful                      value h"0014".
  76.        78 ap-stack-too-small                   value h"f015".
  77.        
  78.        78 ap-allocate-not-pending              value h"00000509".
  79.        78 ap-alloc-failure-no-retry            value h"00000004".
  80.        78 ap-alloc-failure-retry               value h"00000005".
  81.        78 ap-attach-mgr-inactive               value h"00000508".
  82.        78 ap-bad-conv-id                       value h"00000002".
  83.        78 ap-bad-conv-type                     value h"00000011".
  84.        78 ap-bad-ll                            value h"000000f1".
  85.        78 ap-bad-lu-name                       value h"00000003".
  86.        78 ap-bad-return-control                value h"00000014".
  87.        78 ap-bad-security                      value h"00000013".
  88.        78 ap-bad-sync-level                    value h"00000012".
  89.        78 ap-bad-tp-id                         value h"00000001".
  90.        78 ap-confirm-bad-state                 value h"00000032".
  91.        78 ap-confirm-not-ll-bdy                value h"00000033".
  92.        78 ap-confirm-on-sync-lvl-none          value h"00000031".
  93.        78 ap-confirmed-bad-state               value h"00000041".
  94.        78 ap-conv-type-mismatch                value h"10086034".
  95.        78 ap-dealloc-bad-type                  value h"00000051".
  96.        78 ap-dealloc-conf-bad-state            value h"00000053".
  97.        78 ap-dealloc-flush-bad-state           value h"00000052".
  98.        78 ap-dealloc-log-ll-wrong              value h"00000057".
  99.        78 ap-dealloc-not-ll-bdy                value h"00000055".
  100.        78 ap-flush-not-send-state              value h"00000061".
  101.        78 ap-invalid-data-segment              value h"00000006".
  102.        78 ap-invalid-process                   value h"00000525".
  103.        78 ap-invalid-semaphore-handle          value h"000000d6".
  104.        78 ap-no-use-of-snasvcmg                value h"00000017".
  105.        78 ap-p-to-r-invalid-type               value h"000000a1".
  106.        78 ap-p-to-r-not-ll-bdy                 value h"000000a2".
  107.        78 ap-p-to-r-not-send-state             value h"000000a3".
  108.        78 ap-pip-len-incorrect                 value h"00000016".
  109.        78 ap-pip-not-allowed                   value h"10086031".
  110.        78 ap-pip-not-spec-correct              value h"10086032".
  111.        78 ap-rcv-and-post-not-ll-bdy           value h"000000d2".
  112.        78 ap-r-t-s-bad-state                   value h"000000e1".
  113.        78 ap-rcv-and-post-bad-fill             value h"000000d5".
  114.        78 ap-rcv-and-post-bad-state            value h"000000d1".
  115.        78 ap-rcv-and-wait-bad-fill             value h"000000b5".
  116.        78 ap-rcv-and-wait-bad-state            value h"000000b1".
  117.        78 ap-rcv-and-wait-not-ll-bdy           value h"000000b2".
  118.        78 ap-rcv-immd-bad-fill                 value h"000000c4".
  119.        78 ap-rcv-immd-bad-state                value h"000000c1".
  120.        78 ap-security-not-valid                value h"080f6051".
  121.        78 ap-send-data-bad-map-name            value h"000000f3".
  122.        78 ap-send-data-not-send-state          value h"000000f2".
  123.        78 ap-send-error-bad-type               value h"00000103".
  124.        78 ap-sync-level-not-supported          value h"10086041".
  125.        78 ap-send-error-log-ll-wrong           value h"00000102".
  126.        78 ap-too-many-tps                      value h"00000243".
  127.        78 ap-tp-name-not-recognized            value h"10086021".
  128.        78 ap-t-pgm-not-avail-no-retry          value h"084c0000".
  129.        78 ap--pgm-not-avail-retry              value h"084b6031".
  130.        78 ap-undefined-tp-name                 value h"00000506".
  131.        78 ap-unknown-partner-mode              value h"00000018".
  132.        
  133.       *=================================================================
  134.       *                 operation codes
  135.       *=================================================================
  136.        78 ap-b-allocate                        value h"0100".
  137.        78 ap-b-confirm                         value h"0300".
  138.        78 ap-b-confirmed                       value h"0400".
  139.        78 ap-b-deallocate                      value h"0500".
  140.        78 ap-b-flush                           value h"0600".
  141.        78 ap-b-get-attributes                  value h"0700".
  142.        78 ap-b-prepare-to-receive              value h"0a00".
  143.        78 ap-b-receive-and-post                value h"0d00".
  144.        78 ap-b-receive-and-wait                value h"0b00".
  145.        78 ap-b-receive-immediate               value h"0c00".
  146.        78 ap-b-request-to-send                 value h"0e00".
  147.        78 ap-b-send-data                       value h"0f00".
  148.        78 ap-b-send-error                      value h"1000".
  149.        78 ap-b-test-rts                        value h"1200".
  150.        
  151.        78 ap-m-allocate                        value h"0100".
  152.        78 ap-m-confirm                         value h"0300".
  153.        78 ap-m-confirmed                       value h"0400".
  154.        78 ap-m-deallocate                      value h"0500".
  155.        78 ap-m-flush                           value h"0600".
  156.        78 ap-m-get-attributes                  value h"0700".
  157.        78 ap-m-prepare-to-receive              value h"0a00".
  158.        78 ap-m-receive-and-post                value h"0d00".
  159.        78 ap-m-receive-and-wait                value h"0b00".
  160.        78 ap-m-receive-immediate               value h"0c00".
  161.        78 ap-m-request-to-send                 value h"0e00".
  162.        78 ap-m-send-data                       value h"0f00".
  163.        78 ap-m-send-error                      value h"1000".
  164.        78 ap-m-test-rts                        value h"1200".
  165.        
  166.        78 ap-get-type                          value h"0800".
  167.        78 ap-receive-allocate                  value h"1600".
  168.        78 ap-tp-ended                          value h"1300".
  169.        78 ap-tp-started                        value h"1400".
  170.        
  171.        
  172.       *=================================================================
  173.       *                verb structures
  174.       *=================================================================
  175.  
  176.       *-----------------------------------------------------------------
  177.       *                verb control block
  178.       *
  179.       * this is a buffer which is passed to all of the APPC verbs.
  180.       * the contents of the VCB are different for each verb called
  181.       * Not all the fields of the VCB are used in every verb call,
  182.       * those that are not should be zeroed.
  183.       *
  184.       * The VCB is defined below - and the redefinitions that follow
  185.       * specify the structure of each verb.
  186.       *
  187.       *-----------------------------------------------------------------
  188.        01 vcb.
  189.          03 opcode-vcb          pic 9(4) comp-x.
  190.          03 opext-vcb           pic 9(2) comp-x.
  191.          03 filler              pic x.
  192.          03 prim-rc-vcb         pic 9(4) comp-x.
  193.          03 sec-rc-vcb          pic 9(8) comp-x.
  194.          03 filler              pic x(290).
  195.  
  196.       *-----------------------------------------------------------------
  197.       *                transaction program control interface
  198.       *-----------------------------------------------------------------
  199.  
  200.       *--------------- receive-allocate verb ---------------------------
  201.        01 rcv-alloc-verb redefines vcb.
  202.          03 opcode-ral          pic 9(4) comp-x.
  203.          03 filler              pic x(2).
  204.          03 prim-rc-ral         pic 9(4) comp-x.
  205.          03 sec-rc-ral          pic 9(8) comp-x.
  206.          03 tp-name-ral         pic x(64).
  207.          03 tp-id-ral           pic x(8).
  208.          03 conv-id-ral         pic x(4).
  209.          03 sync-lvl-ral        pic 9(2) comp-x.
  210.          03 conv-type-ral       pic 9(2) comp-x.
  211.          03 user-id-ral         pic x(10).
  212.          03 lu-alias-ral        pic x(8).
  213.          03 plu-alias-ral       pic x(8).
  214.          03 mode-name-ral       pic x(8).
  215.          03 filler              pic x(28).
  216.       *-----------------------------------------------------------------
  217.        
  218.       *--------------- tp-ended ----------------------------------------
  219.        01 tp-ended-verb redefines vcb.
  220.          03 opcode-tpe          pic 9(4) comp-x.
  221.          03 filler              pic x(2).
  222.          03 prim-rc-tpe         pic 9(4) comp-x.
  223.          03 sec-rc-tpe          pic 9(8) comp-x.
  224.          03 tp-id-tpe           pic x(8).
  225.          03 filler              pic x(28).
  226.       *-----------------------------------------------------------------
  227.        
  228.       *--------------- tp-started --------------------------------------
  229.        01 tp-started-verb redefines vcb.
  230.          03 opcode-tps          pic 9(4) comp-x.
  231.          03 filler              pic x(2).
  232.          03 prim-rc-tps         pic 9(4) comp-x.
  233.          03 sec-rc-tps          pic 9(8) comp-x.
  234.          03 lu-alias-tps        pic x(8).
  235.          03 tp-id-tps           pic x(8).
  236.          03 tp-name-tps         pic x(64).
  237.       *-----------------------------------------------------------------
  238.        
  239.       *-----------------------------------------------------------------
  240.       *        Transaction programming interface - basic conversation
  241.       *-----------------------------------------------------------------
  242.        
  243.       *--------------- allocate ----------------------------------------
  244.        01 alloc-verb redefines vcb.
  245.          03 opcode-alc          pic 9(4) comp-x.
  246.          03 opext-alc           pic 9(2) comp-x.
  247.          03 filler              pic x.
  248.          03 prim-rc-alc         pic 9(4) comp-x.
  249.          03 sec-rc-alc          pic 9(8) comp-x.
  250.          03 tp-id-alc           pic x(8).
  251.          03 conv-id-alc         pic x(4).
  252.          03 conv-type-alc       pic 9(2) comp-x.
  253.          03 sync-lvl-alc        pic 9(2) comp-x.
  254.          03 filler              pic x(2).
  255.          03 rtn-ctl-alc         pic 9(2) comp-x.
  256.          03 filler              pic x(9).
  257.          03 plu-alias-alc       pic x(8).
  258.          03 mode-name-alc       pic x(8).
  259.          03 tp-name-alc         pic x(64).
  260.          03 security-alc        pic 9(2) comp-x.
  261.          03 filler              pic x(11).
  262.          03 pwd-alc             pic x(10).
  263.          03 user-id-alc         pic x(10).
  264.          03 pip-dlen-alc        pic 9(4) comp-5.
  265.          03 pip-dptr-alc        usage pointer.
  266.          03 filler              pic x(26).
  267.       *-----------------------------------------------------------------
  268.  
  269.       *--------------- confirm -----------------------------------------
  270.        01 cnfrm-verb redefines vcb.
  271.          03 opcode-cfm          pic 9(4) comp-x.
  272.          03 opext-cfm           pic 9(2) comp-x.
  273.          03 filler              pic x.
  274.          03 prim-rc-cfm         pic 9(4) comp-x.
  275.          03 sec-rc-cfm          pic 9(8) comp-x.
  276.          03 tp-id-cfm           pic x(8).
  277.          03 conv-id-cfm         pic x(4).
  278.          03 rts-rcvd-cfm        pic 9(2) comp-x.
  279.       *-----------------------------------------------------------------
  280.        
  281.       *--------------- confirmed ---------------------------------------
  282.        01 cnfrmd-verb redefines vcb.
  283.          03 opcode-cfd          pic 9(4) comp-x.
  284.          03 opext-cfd           pic 9(2) comp-x.
  285.          03 filler              pic x.
  286.          03 prim-rc-cfd         pic 9(4) comp-x.
  287.          03 sec-rc-cfd          pic 9(8) comp-x.
  288.          03 tp-id-cfd           pic x(8).
  289.          03 conv-id-cfd         pic x(4).
  290.       *-----------------------------------------------------------------
  291.        
  292.       *--------------- deallocate --------------------------------------
  293.        01 dealloc-verb redefines vcb.
  294.          03 opcode-dal          pic 9(4) comp-x.
  295.          03 opext-dal           pic 9(2) comp-x.
  296.          03 filler              pic x.
  297.          03 prim-rc-dal         pic 9(4) comp-x.
  298.          03 sec-rc-dal          pic 9(8) comp-x.
  299.          03 tp-id-dal           pic x(8).
  300.          03 conv-id-dal         pic x(4).
  301.          03 filler              pic x.
  302.          03 dealloc-type-dal    pic 9(2) comp-x.
  303.          03 log-dlen-dal        pic 9(4) comp-5.
  304.          03 log-dptr-dal        usage pointer.
  305.       *-----------------------------------------------------------------
  306.        
  307.       *--------------- flush -------------------------------------------
  308.        01 flush-verb redefines vcb.
  309.          03 opcode-fls          pic 9(4) comp-x.
  310.          03 opext-fls           pic 9(2) comp-x.
  311.          03 filler              pic x.
  312.          03 prim-rc-fls         pic 9(4) comp-x.
  313.          03 sec-rc-fls          pic 9(8) comp-x.
  314.          03 tp-id-fls           pic x(8).
  315.          03 conv-id-fls         pic x(4).
  316.       *-----------------------------------------------------------------
  317.        
  318.       *--------------- get-attributes ----------------------------------
  319.        01 get-atts-verb redefines vcb.
  320.          03 opcode-gat          pic 9(4) comp-x.
  321.          03 opext-gat           pic 9(2) comp-x.
  322.          03 filler              pic x.
  323.          03 prim-rc-gat         pic 9(4) comp-x.
  324.          03 sec-rc-gat          pic 9(8) comp-x.
  325.          03 tp-id-gat           pic x(8).
  326.          03 conv-id-gat         pic x(4).
  327.          03 filler              pic x.
  328.          03 sync-lvl-gat        pic 9(2) comp-x.
  329.          03 mode-name-gat       pic x(8).
  330.          03 net-name-gat        pic x(8).
  331.          03 lu-name-gat         pic x(8).
  332.          03 lu-alias-gat        pic x(8).
  333.          03 plu-alias-gat       pic x(8).
  334.          03 plu-un-name-gat     pic x(8).
  335.          03 filler              pic x(2).
  336.          03 fqplun-gat          pic x(17).
  337.          03 filler              pic x.
  338.          03 user-id-gat         pic x(10).
  339.          03 filler              pic x(26).
  340.       *-----------------------------------------------------------------
  341.        
  342.       *--------------- prepare-to-receive ------------------------------
  343.        01 prp-to-rcv-verb redefines vcb.
  344.          03 opcode-ptr          pic 9(4) comp-x.
  345.          03 opext-ptr           pic 9(2) comp-x.
  346.          03 filler              pic x.
  347.          03 prim-rc-ptr         pic 9(4) comp-x.
  348.          03 sec-rc-ptr          pic 9(8) comp-x.
  349.          03 tp-id-ptr           pic x(8).
  350.          03 conv-id-ptr         pic x(4).
  351.          03 ptr-type-ptr        pic 9(2) comp-x.
  352.          03 locks-ptr           pic 9(2) comp-x.
  353.       *-----------------------------------------------------------------
  354.        
  355.       *--------------- receive-and-post --------------------------------
  356.        01 rcv-and-post-verb redefines vcb.
  357.          03 opcode-rap          pic 9(4) comp-x.
  358.          03 opext-rap           pic 9(2) comp-x.
  359.          03 filler              pic x.
  360.          03 prim-rc-rap         pic 9(4) comp-x.
  361.          03 sec-rc-rap          pic 9(8) comp-x.
  362.          03 tp-id-rap           pic x(8).
  363.          03 conv-id-rap         pic x(4).
  364.          03 what-rcvd-rap       pic 9(4) comp-x.
  365.          03 filler              pic x.
  366.          03 fill-rap            pic 9(2) comp-x.
  367.          03 rts-rcvd-rap        pic 9(2) comp-x.
  368.          03 filler              pic x.
  369.          03 max-len-rap         pic 9(4) comp-5.
  370.          03 dlen-rap            pic 9(4) comp-5.
  371.          03 dptr-rap            usage pointer.
  372.          03 sema-rap            pic 9(8) comp-5.
  373.          03 filler              pic x.
  374.       *-----------------------------------------------------------------
  375.  
  376.       *--------------- receive-and-wait --------------------------------
  377.        01 rcv-and-wait-verb redefines vcb.
  378.          03 opcode-raw          pic 9(4) comp-x.
  379.          03 opext-raw           pic 9(2) comp-x.
  380.          03 filler              pic x.
  381.          03 prim-rc-raw         pic 9(4) comp-x.
  382.          03 sec-rc-raw          pic 9(8) comp-x.
  383.          03 tp-id-raw           pic x(8).
  384.          03 conv-id-raw         pic x(4).
  385.          03 what-rcvd-raw       pic 9(4) comp-x.
  386.          03 filler              pic x.
  387.          03 fill-raw            pic 9(2) comp-x.
  388.          03 rts-rcvd-raw        pic 9(2) comp-x.
  389.          03 filler              pic x.
  390.          03 max-len-raw         pic 9(4) comp-5.
  391.          03 dlen-raw            pic 9(4) comp-5.
  392.          03 dptr-raw            usage pointer.
  393.          03 filler              pic x(5).
  394.       *-----------------------------------------------------------------
  395.  
  396.       *--------------- receive-immediate -------------------------------
  397.        01 rcv-imm-verb redefines vcb.
  398.          03 opcode-rim          pic 9(4) comp-x.
  399.          03 opext-rim           pic 9(2) comp-x.
  400.          03 filler              pic x.
  401.          03 prim-rc-rim         pic 9(4) comp-x.
  402.          03 sec-rc-rim          pic 9(8) comp-x.
  403.          03 tp-id-rim           pic x(8).
  404.          03 conv-id-rim         pic x(4).
  405.          03 what-rcvd-rim       pic 9(4) comp-x.
  406.          03 filler              pic x.
  407.          03 fill-rim            pic 9(2) comp-x.
  408.          03 rts-rcvd-rim        pic 9(2) comp-x.
  409.          03 filler              pic x.
  410.          03 max-len-rim         pic 9(4) comp-5.
  411.          03 dlen-rim            pic 9(4) comp-5.
  412.          03 dptr-rim            usage pointer.
  413.          03 filler              pic x(5).
  414.       *-----------------------------------------------------------------
  415.        
  416.       *--------------- request-to-send ---------------------------------
  417.        01 rq-to-snd-verb redefines vcb.
  418.          03 opcode-rts          pic 9(4) comp-x.
  419.          03 opext-rts           pic 9(2) comp-x.
  420.          03 filler              pic x.
  421.          03 prim-rc-rts         pic 9(4) comp-x.
  422.          03 sec-rc-rts          pic 9(8) comp-x.
  423.          03 tp-id-rts           pic x(8).
  424.          03 conv-id-rts         pic x(4).
  425.       *-----------------------------------------------------------------
  426.        
  427.       *--------------- send-data ---------------------------------------
  428.        01 snd-data-verb redefines vcb.
  429.          03 opcode-sdt          pic 9(4) comp-x.
  430.          03 opext-sdt           pic 9(2) comp-x.
  431.          03 filler              pic x.
  432.          03 prim-rc-sdt         pic 9(4) comp-x.
  433.          03 sec-rc-sdt          pic 9(8) comp-x.
  434.          03 tp-id-sdt           pic x(8).
  435.          03 conv-id-sdt         pic x(4).
  436.          03 rts-rcvd-sdt        pic 9(2) comp-x.
  437.          03 filler              pic x.
  438.          03 dlen-sdt            pic 9(4) comp-5.
  439.          03 dptr-sdt            usage pointer.
  440.          03 filler              pic x(2).
  441.       *-----------------------------------------------------------------
  442.        
  443.       *--------------- send-error --------------------------------------
  444.        01 snd-err-verb redefines vcb.
  445.          03 opcode-ser          pic 9(4) comp-x.
  446.          03 opext-ser           pic 9(2) comp-x.
  447.          03 filler              pic x.
  448.          03 prim-rc-ser         pic 9(4) comp-x.
  449.          03 sec-rc-ser          pic 9(8) comp-x.
  450.          03 tp-id-ser           pic x(8).
  451.          03 conv-id-ser         pic x(4).
  452.          03 rts-rcvd-ser        pic 9(2) comp-x.
  453.          03 err-type-ser        pic 9(2) comp-x.
  454.          03 filler              pic x(2).
  455.          03 log-dlen-ser        pic 9(4) comp-5.
  456.          03 l-dptr-ser          usage pointer.
  457.       *-----------------------------------------------------------------
  458.        
  459.       *--------------- test-rts ----------------------------------------
  460.        01 test-rts-verb redefines vcb.
  461.          03 opcode-tst          pic 9(4) comp-x.
  462.          03 opext-tst           pic 9(2) comp-x.
  463.          03 filler              pic x.
  464.          03 prim-rc-tst         pic 9(4) comp-x.
  465.          03 sec-rc-tst          pic 9(8) comp-x.
  466.          03 tp-id-tst           pic x(8).
  467.          03 conv-id-tst         pic x(4).
  468.          03 filler              pic x.
  469.       *-----------------------------------------------------------------
  470.        
  471.       *-----------------------------------------------------------------
  472.       *        Transaction programming interface - mapped conversation
  473.       *-----------------------------------------------------------------
  474.  
  475.       *--------------- mc-allocate -------------------------------------
  476.        01 mc-alloc-verb redefines vcb.
  477.          03 opcode-mal          pic 9(4) comp-x.
  478.          03 opext-mal           pic 9(2) comp-x.
  479.          03 filler              pic x.
  480.          03 prim-rc-mal         pic 9(4) comp-x.
  481.          03 sec-rc-mal          pic 9(8) comp-x.
  482.          03 tp-id-mal           pic x(8).
  483.          03 conv-id-mal         pic x(4).
  484.          03 conv-type-mal       pic 9(2) comp-x.
  485.          03 sync-lvl-mal        pic 9(2) comp-x.
  486.          03 filler              pic x(2).
  487.          03 rtn-ctl-mal         pic 9(2) comp-x.
  488.          03 filler              pic x(9).
  489.          03 plu-alias-mal       pic x(8).
  490.          03 mode-name-mal       pic x(8).
  491.          03 tp-name-mal         pic x(64).
  492.          03 security-mal        pic 9(2) comp-x.
  493.          03 filler              pic x(11).
  494.          03 pwd-mal             pic x(10).
  495.          03 user-id-mal         pic x(10).
  496.          03 pip-dlen-mal        pic 9(4) comp-5.
  497.          03 pip-dptr-mal        usage pointer.
  498.          03 filler              pic x(26).
  499.       *-----------------------------------------------------------------
  500.  
  501.       *--------------- mc-confirm --------------------------------------
  502.        01 mc-cnfrm-verb redefines vcb.
  503.          03 opcode-mcm          pic 9(4) comp-x.
  504.          03 opext-mcm           pic 9(2) comp-x.
  505.          03 filler              pic x.
  506.          03 prim-rc-mcm         pic 9(4) comp-x.
  507.          03 sec-rc-mcm          pic 9(8) comp-x.
  508.          03 tp-id-mcm           pic x(8).
  509.          03 conv-id-mcm         pic x(4).
  510.          03 rts-rcvd-mcm        pic 9(2) comp-x.
  511.       *-----------------------------------------------------------------
  512.        
  513.       *--------------- mc-confirmed ------------------------------------
  514.        01 mc-cnfrmd-verb redefines vcb.
  515.          03 opcode-mcd         pic 9(4) comp-x.
  516.          03 opext-mcd           pic 9(2) comp-x.
  517.          03 filler              pic x.
  518.          03 prim-rc-mcd         pic 9(4) comp-x.
  519.          03 sec-rc-mcd          pic 9(8) comp-x.
  520.          03 tp-id-mcd           pic x(8).
  521.          03 conv-id-mcd         pic x(4).
  522.       *-----------------------------------------------------------------
  523.        
  524.       *--------------- mc-deallocate -----------------------------------
  525.        01 mc-dealloc-verb redefines vcb.
  526.          03 opcode-mda          pic 9(4) comp-x.
  527.          03 opext-mda           pic 9(2) comp-x.
  528.          03 filler              pic x.
  529.          03 prim-rc-mda         pic 9(4) comp-x.
  530.          03 sec-rc-mda          pic 9(8) comp-x.
  531.          03 tp-id-mda           pic x(8).
  532.          03 conv-id-mda         pic x(4).
  533.          03 filler              pic x.
  534.          03 dealloc-type-mda    pic 9(2) comp-x.
  535.          03 filler              pic x(6).
  536.       *-----------------------------------------------------------------
  537.        
  538.       *--------------- mc-flush ----------------------------------------
  539.        01 mc-flush-verb redefines vcb.
  540.          03 opcode-mfl          pic 9(4) comp-x.
  541.          03 opext-mfl           pic 9(2) comp-x.
  542.          03 filler              pic x.
  543.          03 prim-rc-mfl         pic 9(4) comp-x.
  544.          03 sec-rc-mfl          pic 9(8) comp-x.
  545.          03 tp-id-mfl           pic x(8).
  546.          03 conv-id-mfl         pic x(4).
  547.       *-----------------------------------------------------------------
  548.        
  549.       *--------------- mc-get-attributes -------------------------------
  550.        01 mc-get-atts-verb redefines vcb.
  551.          03 opcode-mga          pic 9(4) comp-x.
  552.          03 opext-mga           pic 9(2) comp-x.
  553.          03 filler              pic x.
  554.          03 prim-rc-mga         pic 9(4) comp-x.
  555.          03 sec-rc-mga          pic 9(8) comp-x.
  556.          03 tp-id-mga           pic x(8).
  557.          03 conv-id-mga         pic x(4).
  558.          03 filler              pic x.
  559.          03 sync-lvl-mga        pic 9(2) comp-x.
  560.          03 mode-name-mga       pic x(8).
  561.          03 net-name-mga        pic x(8).
  562.          03 lu-name-mga         pic x(8).
  563.          03 lu-alias-mga        pic x(8).
  564.          03 plu-alias-mga       pic x(8).
  565.          03 plu-un-name-mga     pic x(8).
  566.          03 filler              pic x(2).
  567.          03 fqplun-mga          pic x(17).
  568.          03 filler              pic x.
  569.          03 user-id-mga         pic x(10).
  570.          03 filler              pic x(26).
  571.       *-----------------------------------------------------------------
  572.        
  573.       *--------------- mc-prepare-to-receive ---------------------------
  574.        01 mc-prp-to-rcv-verb redefines vcb.
  575.          03 opcode-mpr          pic 9(4) comp-x.
  576.          03 opext-mpr           pic 9(2) comp-x.
  577.          03 filler              pic x.
  578.          03 prim-rc-mpr         pic 9(4) comp-x.
  579.          03 sec-rc-mpr          pic 9(8) comp-x.
  580.          03 tp-id-mpr           pic x(8).
  581.          03 conv-id-mpr         pic x(4).
  582.          03 ptr-type-mpr        pic 9(2) comp-x.
  583.          03 locks-mpr           pic 9(2) comp-x.
  584.       *-----------------------------------------------------------------
  585.        
  586.       *--------------- mc-receive-and-post -----------------------------
  587.        01 mc-rcv-and-post-verb redefines vcb.
  588.          03 opcode-mrp          pic 9(4) comp-x.
  589.          03 opext-mrp           pic 9(2) comp-x.
  590.          03 filler              pic x.
  591.          03 prim-rc-mrp         pic 9(4) comp-x.
  592.          03 sec-rc-mrp          pic 9(8) comp-x.
  593.          03 tp-id-mrp           pic x(8).
  594.          03 conv-id-mrp         pic x(4).
  595.          03 what-rcvd-mrp       pic 9(4) comp-x.
  596.          03 filler              pic x(2).
  597.          03 rts-rcvd-mrp        pic 9(2) comp-x.
  598.          03 filler              pic x.
  599.          03 max-len-mrp         pic 9(4) comp-5.
  600.          03 dlen-mrp            pic 9(4) comp-5.
  601.          03 dptr-mrp            usage pointer.
  602.          03 sema-mrp            pic 9(8) comp-5.
  603.          03 filler              pic x.
  604.       *-----------------------------------------------------------------
  605.  
  606.       *--------------- mc-receive-and-wait -----------------------------
  607.        01 mc-rcv-and-wait-verb redefines vcb.
  608.          03 opcode-mrw          pic 9(4) comp-x.
  609.          03 opext-mrw           pic 9(2) comp-x.
  610.          03 filler              pic x.
  611.          03 prim-rc-mrw         pic 9(4) comp-x.
  612.          03 sec-rc-mrw          pic 9(8) comp-x.
  613.          03 tp-id-mrw           pic x(8).
  614.          03 conv-id-mrw         pic x(4).
  615.          03 what-rcvd-mrw       pic 9(4) comp-x.
  616.          03 filler              pic x(2).
  617.          03 rts-rcvd-mrw        pic 9(2) comp-x.
  618.          03 filler              pic x.
  619.          03 max-len-mrw         pic 9(4) comp-5.
  620.          03 dlen-mrw            pic 9(4) comp-5.
  621.          03 dptr-mrw            usage pointer.
  622.          03 filler              pic x(5).
  623.       *-----------------------------------------------------------------
  624.  
  625.       *--------------- mc-receive-immediate ----------------------------
  626.        01 mc-rcv-imm-verb redefines vcb.
  627.          03 opcode-mri          pic 9(4) comp-x.
  628.          03 opext-mri           pic 9(2) comp-x.
  629.          03 filler              pic x.
  630.          03 prim-rc-mri         pic 9(4) comp-x.
  631.          03 sec-rc-mri          pic 9(8) comp-x.
  632.          03 tp-id-mri           pic x(8).
  633.          03 conv-id-mri         pic x(4).
  634.          03 what-rcvd-mri       pic 9(4) comp-x.
  635.          03 filler              pic x(2).
  636.          03 rts-rcvd-mri        pic 9(2) comp-x.
  637.          03 filler              pic x.
  638.          03 max-len-mri         pic 9(4) comp-5.
  639.          03 dlen-mri            pic 9(4) comp-5.
  640.          03 dptr-mri            usage pointer.
  641.          03 filler              pic x(5).
  642.       *-----------------------------------------------------------------
  643.        
  644.       *--------------- mc-request-to-send ------------------------------
  645.        01 mc-rq-to-snd-verb redefines vcb.
  646.          03 opcode-mrs          pic 9(4) comp-x.
  647.          03 opext-mrs           pic 9(2) comp-x.
  648.          03 filler              pic x.
  649.          03 prim-rc-mrs         pic 9(4) comp-x.
  650.          03 sec-rc-mrs          pic 9(8) comp-x.
  651.          03 tp-id-mrs           pic x(8).
  652.          03 conv-id-mrs         pic x(4).
  653.       *-----------------------------------------------------------------
  654.        
  655.       *--------------- mc-send-data ------------------------------------
  656.        01 mc-snd-data-verb redefines vcb.
  657.          03 opcode-msd          pic 9(4) comp-x.
  658.          03 opext-msd           pic 9(2) comp-x.
  659.          03 filler              pic x.
  660.          03 prim-rc-msd         pic 9(4) comp-x.
  661.          03 sec-rc-msd          pic 9(8) comp-x.
  662.          03 tp-id-msd           pic x(8).
  663.          03 conv-id-msd         pic x(4).
  664.          03 rts-rcvd-msd        pic 9(2) comp-x.
  665.          03 filler              pic x.
  666.          03 dlen-msd            pic 9(4) comp-5.
  667.          03 dptr-msd            usage pointer.
  668.          03 filler              pic x(2).
  669.       *-----------------------------------------------------------------
  670.        
  671.       *--------------- mc-send-error -----------------------------------
  672.        01 mc-snd-err-verb redefines vcb.
  673.          03 opcode-mse          pic 9(4) comp-x.
  674.          03 opext-mse           pic 9(2) comp-x.
  675.          03 filler              pic x.
  676.          03 prim-rc-mse         pic 9(4) comp-x.
  677.          03 sec-rc-mse          pic 9(8) comp-x.
  678.          03 tp-id-mse           pic x(8).
  679.          03 conv-id-mse         pic x(4).
  680.          03 rts-rcvd-mse        pic 9(2) comp-x.
  681.          03 err-type-mse        pic 9(2) comp-x.
  682.          03 filler              pic x(8).
  683.       *-----------------------------------------------------------------
  684.        
  685.       *--------------- mc-test-rts -------------------------------------
  686.        01 mc-test-rts-verb redefines vcb.
  687.          03 opcode-mtr          pic 9(4) comp-x.
  688.          03 opext-mtr           pic 9(2) comp-x.
  689.          03 filler              pic x.
  690.          03 prim-rc-mtr         pic 9(4) comp-x.
  691.          03 sec-rc-mtr          pic 9(8) comp-x.
  692.          03 tp-id-mtr           pic x(8).
  693.          03 conv-id-mtr         pic x(4).
  694.          03 filler              pic x.
  695.       *-----------------------------------------------------------------
  696.  
  697.       *-----------------------------------------------------------------
  698.       *        type independent conversation interface
  699.       *-----------------------------------------------------------------
  700.  
  701.       *--------------- get-type ----------------------------------------
  702.        01 get-type-verb redefines vcb.
  703.          03 opcode-gtt          pic 9(4) comp-x.
  704.          03 opext-gtt           pic 9(2) comp-x.
  705.          03 filler              pic x.
  706.          03 prim-rc-gtt         pic 9(4) comp-x.
  707.          03 sec-rc-gtt          pic 9(8) comp-x.
  708.          03 tp-id-gtt           pic x(8).
  709.          03 conv-id-gtt         pic x(4).
  710.          03 conv-type-gtt       pic 9(2) comp-x.
  711.       *-----------------------------------------------------------------
  712.  
  713.