home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
o22516d1.zip
/
MC2SYNCC.@PY
/
MC2SYNCC.CPY
Wrap
Text File
|
1991-12-13
|
3KB
|
45 lines
*----------------------------------------------------------------*
* Parameter block passed to MC2SYNC0: *
* For start: *
* DBM support is started at first access. If an non-blank *
* database name is supplied it is started at CICS start. *
* XDB support is started explicitly. *
* IMS support is loaded on command. If activate is *
* specified DLI will be started at CICS initialization. *
* For stop: *
* All other parameters are ignored. All started *
* subsystems are stopped. *
*----------------------------------------------------------------*
01 mc2-sync.
02 mc2-sync-control.
03 pic x.
88 mc2-sync-start value 'S'.
88 mc2-sync-stop value 'P'.
03 mc2-sync-reserved pic x.
02 mc2-sync-DBM.
03 pic x.
88 mc2-support-DBM-restart value 'R'.
88 mc2-support-DBM-fail value space.
03 mc2-sync-reserved pic x.
* - A supplied name will activate DBM and trigger
* a start using for the supplied name.
03 mc2-sync-DBM-database-name pic x(10).
88 mc2-deferred-DBM-start value spaces.
03 mc2-sync-DBM-password pic x(10).
02 mc2-sync-XDB.
03 pic x.
88 mc2-activate-XDB value 'X'.
88 mc2-XDB-dormant value space.
03 pic x.
88 mc2-normal-XDB-start value space.
88 mc2-foreground-XDB-only value 'F'.
88 mc2-background-XDB-only value 'B'.
03 mc2-sync-XDB-user-ID pic x(8).
02 mc2-sync-IMS.
03 pic x.
88 mc2-static-IMS-start value 'S'.
88 mc2-dynamic-IMS-start value 'D'.
88 mc2-IMS-dormant value space.
03 mc2-sync-reserved pic x.
02 mc2-sync-reserved pic x(28).