home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / o22516d1.zip / FAAOISPT.@CA / FAAOISPT.CCA
Text File  |  1991-11-05  |  5KB  |  80 lines
  1.          CBL XOPTS(COBOL2)
  2.       *************************************************************
  3.       *                                                           *
  4.       *  MODULE NAME = FAAOISPT                                   *
  5.       *                                                           *
  6.       *  DESCRIPTIVE NAME = SKYE PLTSD SAMPLE EXIT.               *
  7.       *                                                           *
  8.       *  TRANSACTION NAME = N/A                                   *
  9.       *                                                           *
  10.       *  COPYRIGHT = NONE    5668-101                             *
  11.       *                                                           *
  12.       *  STATUS   RELEASE 1.11                                    *
  13.       *                                                           *
  14.       *  FUNCTION = This module is a dummy exit                   *
  15.       *             which performs a CICS RETURN.                 *
  16.       *                                                           *
  17.       *  NOTES:    COBOL                                          *
  18.       *                                                           *
  19.       *  DEPENDENCIES: NONE                                       *
  20.       *                                                           *
  21.       *  RESTRICTIONS: NONE                                       *
  22.       *                                                           *
  23.       *  REGISTER CONVENTIONS: NONE                               *
  24.       *                                                           *
  25.       *  MODULE TYPE =  EXECUTABLE                                *
  26.       *  ATTRIBUTES =   SERIALLY REUSABLE.                        *
  27.       *                                                           *
  28.       *-----------------------------------------------------------*
  29.       *                                                           *
  30.       *  ENTRY POINT = FAAOISPT                                   *
  31.       *                                                           *
  32.       *  PURPOSE = ALL FUNCTIONS                                  *
  33.       *                                                           *
  34.       *  LINKAGE =    NONE                                        *
  35.       *                                                           *
  36.       *  INPUT =  NONE                                            *
  37.       *                                                           *
  38.       *  OUTPUT = NONE                                            *
  39.       *                                                           *
  40.       *  EXIT-NORMAL = M1-MAINLINE SECTION                        *
  41.       *                                                           *
  42.       *  EXIT-ERROR =  M1-MAINLINE SECTION                        *
  43.       *                                                           *
  44.       *-----------------------------------------------------------*
  45.       *                                                           *
  46.       *  EXTERNAL REFERENCES = NONE                               *
  47.       *                                                           *
  48.       *  ROUTINES =    NONE                                       *
  49.       *                                                           *
  50.       *  DATA AREAS =  NONE                                       *
  51.       *                                                           *
  52.       *  CONTROL BLOCKS =  NONE                                   *
  53.       *                                                           *
  54.       *  GLOBAL VARIABLES = NONE                                  *
  55.       *                                                           *
  56.       *  TABLES = NONE                                            *
  57.       *                                                           *
  58.       *  FILE   = NONE                                            *
  59.       *                                                           *
  60.       *************************************************************
  61.       $set ans85 mf noosvs vsc2
  62.         working-storage section.
  63.         01 work1.
  64.            02 ws-stop    pic x(8) value 'STOP   '.
  65.         copy 'mc2syncc.cpy'.
  66.         linkage section.
  67.         01 lk-dfheiblk pic x.
  68.         procedure division.
  69.            set address of lk-dfheiblk
  70.              to address of dfheiblk
  71.            set mc2-sync-stop     to true
  72.            call '$CICSWRK\MC2SYNC0.DLL' using
  73.              by reference lk-dfheiblk
  74.              by reference mc2-sync
  75.              on exception
  76.                 continue
  77.            end-call
  78.            exec cics return end-exec
  79.            .
  80.