home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / o22516d1.zip / DSDEMO.@IP / DSDEMO.DOC < prev    next >
Text File  |  1992-07-29  |  5KB  |  122 lines
  1. This application demonstates the usage of CICS/OS2's ECI facility along
  2. with Micro Focus CCI software.
  3.  
  4. Files:  DSCCIECI.DOC - This file
  5.         INSTALL.CMD  - Install command file - probably needs modification
  6.         DSFRONT.CBL  - DS/2 program
  7.         DSCLIENT.CBL - CCI Client program
  8.         COMMAREA.CBL - CopyBook used by programs
  9.         DSSERVER.CBL - CCI Server-ECI program
  10.         CLOSESRV.CBL - CCI Close Server-ECI program
  11.         CUSTIO.CCP   - CICS OS/2 ECI-I/O program used by DSSERVER
  12.                        and BMSFRONT
  13.         BMSFRONT.CCP - CICS OS/2 Cobol program
  14.         CUST.BMS     - CICS OS/2 BMS map for BMSFRONT program
  15.         DSCCIECI.GS  - DS/2 Screenset
  16.         DSCCIECI.CPB - DSCCIECI.GS Data Block
  17.         DS-CNTRL.MF  - DS/2 Control Block
  18.         CCISIGNA.CPY - CCI Signature copybook
  19.         CCITABLE.CPY - CCI Procedure Pointer copybook
  20.         FAAECIW.CBL  - ECI Control copybook
  21.         ANIMCUST.CMD - CMD file to animate the application
  22.         CUSSERVE.CMD - CMD executed from ANIMCUST.CMD to start DSSERVER
  23.         CUSTFILE.BTR - Indexed file used in the demo
  24.  
  25.  
  26. To install these files you can modify INSTALL.CMD in the directory or on the
  27. diskette that you have unzipped DSCCIECI.ZIP, and then execute INSTALL.CMD.
  28.  
  29. This application is the regular CUSTOMER demo of the Dialog System.
  30. The screenset has been modified with the addition of two fields to the
  31. data block to be used in the call to the CCI programs.  Additional
  32. windows have also been added to give the user more information on the
  33. success/failure of the transaction.
  34.  
  35. DSFRONT calls a CCI Client(DSCLIENT) which communicates to a CCI
  36. Server(DSSERVER) which connects to a CICS OS/2 program(CUSTIO) via ECI.
  37.  
  38. BMSFRONT Links to the same I-O program(CUSTIO).
  39.  
  40. Named pipes were used for this example.
  41.  
  42. CICS OS/2 must be running and the server program(DSSERVER) must be
  43. running in a session on the machine where CICS OS/2 is located.
  44.  
  45. To be able to Animate CUSTIO, change your SIT table to allow just 1
  46. free task, and then change your MCO2.CFG file from D-V124 to D-@03@.
  47. This will make sure the Animator will always be in control of the free
  48. task.
  49.  
  50. The following CICS OS/2 defintions are required.
  51.  
  52.         PCT    CUST         BMSFRONT
  53.  
  54.         SNT    SYSAD        With a signon password of SYSAD.
  55.  
  56.         FCT    CUSTFILE     KSDS file with dthe following settings;
  57.                             Keylength=5, start pos=0, rec=284/284.
  58.  
  59. You can move CUSTFILE.BTR to the directory specified in the FCT or you can
  60. create it by using the CECI command SET FILE(CUSTFILE) OPEN RESET
  61. The CUSTFILE.BTR has 1 record with a key of 11111 in it.
  62.  
  63. The following CICS OS/2 defintion is optional.
  64.  
  65.         SIT                Change the number of free tasks to 1 so that
  66.                            you are guaranteed that the CUSTIO will Animate
  67.                            when called thru ECI in task @03@.
  68.  
  69.         PPT    CUSTIO      Mark as Resident for better performance.
  70.  
  71. Remember that you have to bring down CICS OS/2 for these table entries
  72. to be active.
  73.  
  74. It is assumed that you have all the appropriate COBDIR etc... set in your
  75. CONFIG.SYS.  If not, you will have to execute those SET statements prior to
  76. bringing up the regular WB or execute ANIMCUST.CMD.
  77.  
  78. * Check DSFRONT, DSCLIENT, DSSERVER, and CLOSESRV from the regular WB menu.
  79.  
  80. * BMS translate CUST.BMS from the CICS OS/2 WB menu.
  81.  
  82. * CICS+Check BMSFRONT and CUSTIO from the CICS OS/2 WB menu.
  83.   !!Make sure you use the COBOL2 directive on the Command Line!!
  84.  
  85. * Bring up CICS OS/2
  86.  
  87. * Run the CUST transaction.
  88.  
  89. * In another session execute ANIMCUST.CMD.
  90.   This will bring up CCI server program DSSERVE.
  91.   If you have brought up CICS OS/2 to Animate the free task, you will have
  92.   to switch to that session when doing the ECI call and Animate the
  93.   CUSTIO program.
  94.   You can Step thru it until you get to the RECEIVEALL statement.
  95.   At this point the server is looking for requests from the client
  96.  
  97. * Another session Animating DSFRONT will be present, you can step thru this
  98.   and see how it sets itself up as a client.
  99.   You will see after executing a LOAD off the DS/2 screen with the key of
  100.   11111 that the client program DSCLIENT will do a send and then hang on the
  101.   RECEIVE statement.  At that time you can go back to the server session
  102.   and see that you have fallen off the RECEIVEALL statement.
  103.  
  104. * To shut down the Server (DSSERVER) program, run CLOSESRV in another
  105.   OS/2 session.
  106.  
  107. *************************************************************************
  108.  
  109. Possible uses of this type of setup could be where you have any type of
  110. program that would like to use facilities of CICS OS/2.  It gives you
  111. the ability to communicate to/thru one CICS OS/2 on a Lan to
  112. another CICS (MVS etc..).  The workstations could be running OS/2, DOS or
  113. Windows.
  114.  
  115. The CUSTFILE could be located on another CICS(MVS etc..) and
  116.     be marked as a remote file in the CICS OS/2 FCT table.  CICS OS/2 would
  117.     then FUNCTION SHIP to the remote CICS
  118.                      OR
  119.     program CUSTIO could also be marked as a remote program in the
  120.     CICS OS/2 PPT table and actually be located along with the CUSTFILE
  121.     on the remote CICS.  This would be a DISTRIBUTED PROGRAM LINK.
  122.