home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / o22516d1.zip / MC2SYNCC.@PY / MC2SYNCC.CPY
Text File  |  1991-12-13  |  3KB  |  45 lines
  1.       *----------------------------------------------------------------*
  2.       * Parameter block passed to MC2SYNC0:                            *
  3.       *  For start:                                                    *
  4.       *     DBM support is started at first access.  If an non-blank   *
  5.       *       database name is supplied it is started at CICS start.   *
  6.       *     XDB support is started explicitly.                         *
  7.       *     IMS support is loaded on command.  If activate is          *
  8.       *       specified DLI will be started at CICS initialization.    *
  9.       *  For stop:                                                     *
  10.       *     All other parameters are ignored.  All started             *
  11.       *       subsystems are stopped.                                  *
  12.       *----------------------------------------------------------------*
  13.         01 mc2-sync.
  14.            02 mc2-sync-control.
  15.               03                                        pic x.
  16.                  88 mc2-sync-start              value 'S'.
  17.                  88 mc2-sync-stop               value 'P'.
  18.               03 mc2-sync-reserved                      pic x.
  19.            02 mc2-sync-DBM.
  20.               03                                        pic x.
  21.                  88 mc2-support-DBM-restart     value 'R'.
  22.                  88 mc2-support-DBM-fail        value space.
  23.               03 mc2-sync-reserved                      pic x.
  24.       *       - A supplied name will activate DBM and trigger
  25.       *         a start using for the supplied name.
  26.               03 mc2-sync-DBM-database-name             pic x(10).
  27.                  88 mc2-deferred-DBM-start      value spaces.
  28.               03 mc2-sync-DBM-password                  pic x(10).
  29.            02 mc2-sync-XDB.
  30.               03                                        pic x.
  31.                  88 mc2-activate-XDB            value 'X'.
  32.                  88 mc2-XDB-dormant             value space.
  33.               03                                        pic x.
  34.                  88 mc2-normal-XDB-start        value space.
  35.                  88 mc2-foreground-XDB-only     value 'F'.
  36.                  88 mc2-background-XDB-only     value 'B'.
  37.               03 mc2-sync-XDB-user-ID                   pic x(8).
  38.            02 mc2-sync-IMS.
  39.               03                                        pic x.
  40.                  88 mc2-static-IMS-start        value 'S'.
  41.                  88 mc2-dynamic-IMS-start       value 'D'.
  42.                  88 mc2-IMS-dormant             value space.
  43.               03 mc2-sync-reserved                      pic x.
  44.            02 mc2-sync-reserved                         pic x(28).
  45.