home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
m23216s3.zip
/
MCO2
/
MCMENU.MNU
< prev
next >
Wrap
Text File
|
1994-08-19
|
19KB
|
545 lines
********************************************************************************
* Menu Configuration file of the CICS OS/2 Option for
* Micro Focus Cobol Workbench
********************************************************************************
* Copyright (C) 1990-1994 Micro Focus Ltd.
********************************************************************************
:new-menu: MAIN
********************************************************************************
:banner: MC00 :library: $MCO2DIR\MCO2.LBR
:title:
CICS OS/2 Option
:line1:
F1=help F2=edit F3=cics+check F4=tran/comp/link F5=cics/control F6=bms
hh hh hh hh hh hh
:line2:
F7=os F8=cicshelp F9=tools F10=workbench Escape
hh hh hh hhh hhh
:library: $MCO2DIR\MCO2.LBR
:library: $MCO2DIR\MCHELP.LBR
:opt-library: $COBDIR\UTILS.LBR
:opt-library: $COBDIR\TOOLS.LBR
:opt-library: $COBDIR\COBCLI.LBR
:efuncs:
F1 :help: MC01 :library: $MCO2DIR\MCHELP.LBR
F2 :menu: MCICSEDT
F3 :menu: CICSTRNCHK
F4 :menu: MCICSTCL
F5 :menu: MCICSCTR
F6 :menu: MCICSALT
F7 :menu: DOSCMD
F8 :menu: MCICSHLP
F9 :menu: MCTOOLS
F10 :call-menu: CLI.MNU
Esc :menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: MCICSALT
********************************************************************************
:title:
CICS/bms
:line1:
F1=help F2=edit F3=advanced BMS screens F4=bms translate
hh hh hh hh
:line2:
F7=os F8=cicshelp Escape
hh hh hhh
:library: $MCO2DIR\ADVSCRNS.LBR
:efuncs:
F1 :help: MC03 :library: $MCO2DIR\MCHELP.LBR
F2 :menu: MCICSEDT
F3 :call: MCADVSCR
F4 :menu: MCICSBMS
F7 :menu: DOSCMD
F8 :menu: MCICSHLP
Esc :menu: :lastexit:
:end-menu:
********************************************************************************
:new-menu: MCICSCTR
********************************************************************************
:title:
CICS/control
:line1:
F1=help F2=config F3=cold start F4=warm start
hh hh hh hh
:line2:
F7=os F8=cicshelp Escape
hh hh hhh
:library: $MCO2DIR\MCO2.LBR
:efuncs:
F1 :help: MC02 :library: $MCO2DIR\MCHELP.LBR
F2 :call: EDIT {2} $MCO2DIR\MCO2.CFG
F3 :call: MCONLINE {0)
F4 :call: MCONLINE {1}
F7 :menu: DOSCMD
F8 :menu: MCICSHLP
Esc :menu: :lastexit:
:end-menu:
********************************************************************************
:new-menu: CICSTRNCHK
********************************************************************************
:title:
CICS+check
:line1:
F1=help F2=dir F3=pause F4=lst F5=strc/anlz F6=lang F7=csi F8=db F9/F10=opt Esc
hh hh hh hh hh hh hh hh hh hhh hhh
:name: CCP
:library: $MCO2DIR\MCO2.LBR
:opt-library: $COBDIR\CHECK.LBR
:opt-library: $COBDIR\ADVANIM.LBR
:opt-library: $COBDIR\COBCLI.LBR
:set-linein: SETDIRC
:efuncs:
F1 :help: MC14 :library: $MCO2DIR\MCHELP.LBR
F3 :toggle: (u)Pause [] :at: 12
:return: "dir($mco2dir\mco2.dir) errq editor(mf)"
"dir($mco2dir\mco2.dir) editor(mf)"
F4 :toggle: (u)Nolist (u)List-Con (u)Print (u)List-File :at: 18
:return: nolist "list noform" list(lst) []
F5 :toggle: [] (u)Struct (u)Analyze "(u)Strc+Anlz" :at: 28
:return: [] struct analyze "struct analyze"
F6 :toggle: (u)OSVS (u)VSC2.1 (u)VSC2.2 (u)VSC2.3 [] :at: 38
:return: "osvs ans85 novsc2"
"noosvs ans85 vsc2(1)"
"noosvs ans85 vsc2(2)"
"noosvs ans85 vsc2(3)"
"noosvs ans85 novsc2"
F7 :toggle: (u)CSI [] :at: 45
:return: csi []
F8 :toggle: [] (u)Exec-DLI (u)XDB (u)XDB+DLI :at: 49
:return: "confirm"
"confirm p($imsdir\execdli)"
"confirm p($xdbdir\xdb)"
"confirm p($xdbdir\xdb) endp p($imsdir\execdli) endp"
F9 :toggle: [] (u)Opt :at: 58
:return: "p(mcpproc)"
"p(mcpproc) %L%"
F10 :menu: SETDIRC
Esc :menu: :lastexit:
Ret :runsys: CHECK %P%%N%.CCP anim ensuite(2) wb
:message: Checking %NE%, Ctrl+Break to Stop
:menu: :lastexit:
:end-menu:
********************************************************************************
:new-menu: MCICSTCL
********************************************************************************
:title:
Tran/Comp/Link
:line1:
F1=help F2=edit F3=t+c+l F4=tran F5=comp F6=link
hh hh hh hh hh hh
:line2:
F7=os F8=cicshelp Escape
hh hh hhh
:efuncs:
F1 :help: MC04 :library: $MCO2DIR\MCHELP.LBR
F2 :menu: MCICSEDT
F3 :menu: MCICSONE
F4 :menu: MCICSTRN
F5 :menu: MCICSCMP
F6 :menu: MCICSLNK
F7 :menu: DOSCMD
F8 :menu: MCICSHLP
Esc :menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: MCICSONE
********************************************************************************
:title:
One-step DLL
:line1:
F1=help F2=dir F3=COBOL2 F4=quote F5=debug F6=edf F7=/b F9/F10=opt Esc
hh hh hh hh hh hh hh hh hhh hhh
:name: CCP
:library: $MCO2DIR\MCO2.LBR
:set-linein: SETDIRT
:efuncs:
F1 :help: MC17 :library: $MCO2DIR\MCHELP
F3 :toggle: [] (u)COBOL2 :at: 20
:return: [] COBOL2
F4 :toggle: [] (u)Quote :at: 27
:return: [] QUOTE
F5 :toggle: [] (u)Debug :at: 33
:return: [] DEBUG
F6 :toggle: [] (u)EDF :at: 44
:return: NOEDF EDF
F7 :toggle: [] (u)/B :at: 48
:return: [] "/B"
F9 :toggle: [] (u)Opt :at: 58
:return: [] %L%
F10 :menu: SETDIRT
Esc :menu: :lastexitq:
Ret :call: MCCOMPIL {3} %F%
:menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: MCICSTRN
********************************************************************************
* DEFAULT TRL HANDLING
:title:
COBOL Translator
:line1:
F1=help F2=dir F3=COBOL2 F4=quote F5=debug F6=edf F7=/b F9/F10=opt Esc
hh hh hh hh hh hh hh hh hhh hhh
:name: CCP
:library: $MCO2DIR\MCO2.LBR
:set-linein: SETDIRT
:efuncs:
F1 :help: MC07 :library: $MCO2DIR\MCHELP
F3 :toggle: [] (u)COBOL2 :at: 20
:return: [] COBOL2
F4 :toggle: [] (u)Quote :at: 27
:return: [] QUOTE
F5 :toggle: [] (u)Debug :at: 33
:return: [] DEBUG
F6 :toggle: [] (u)EDF :at: 44
:return: NOEDF EDF
F7 :toggle: [] (u)/B :at: 48
:return: [] "/B"
F9 :toggle: [] (u)Opt :at: 58
:return: [] %L%
F10 :menu: SETDIRT
Esc :menu: :lastexitq:
Ret :call: MCXTRAN {2} %P%%N%
:menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: MCICSCMP 1 1
********************************************************************************
:title:
Compile to INT
uuu
:line1:
F1=help F2=dir F3=pause F4=lst F5=strc/anlz F6=lang F7=ref F8=GNT F9/F10=opt Esc
hh hh hh hh hh hh hh hh hh hhh hhh
:name: CBL
:library: $MCO2DIR\MCO2.LBR
:opt-library: $COBDIR\CHECK.LBR
:opt-library: $COBDIR\ADVANIM.LBR
:opt-library: $COBDIR\COBCLI.LBR
:set-linein: SETDIRG
:efuncs:
F1 :help: MC08 :library: $MCO2DIR\MCHELP
F3 :toggle: (u)Pause [] :at: 16
:return: "dir($mco2dir\mco2.dir) errq editor(mf)"
"dir($mco2dir\mco2.dir) editor(mf)"
F4 :toggle: (u)Nolist (u)List-Con (u)Print (u)List-File :at: 22
:return: nolist "list noform" list(lst) []
F5 :toggle: [] (u)Struct (u)Analyze "(u)Strc+Anlz" :at: 32
:return: [] struct analyze "struct analyze"
F6 :toggle: (u)OSVS (u)VSC2.1 (u)VSC2.2 (u)VSC2.3 [] :at: 42
:return: "osvs ans85 novsc2"
"noosvs ans85 vsc2(1)"
"noosvs ans85 vsc2(2)"
"noosvs ans85 vsc2(3)"
"noosvs ans85 novsc2"
F7 :toggle: [] (u)Xref (u)Ref (u)Xref+Ref :at: 49
:return: [] xref ref "xref ref"
F8 :toggle: [] [] [] :at: 12
:toggleflag: 1
F9 :toggle: [] (u)Opt :at: 58
:return: [] %L%
F10 :menu: SETDIRG
Esc :menu: :lastexitq:
Ret :runsys: CHECK %F% anim noensuite wb
:message: Checking %NE%, Ctrl+Break to Stop
:menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: MCICSCMP 1 2
********************************************************************************
:title:
Compile to GNT
uuu
:line1:
F1=help F2=dir F4=list F5=bound F6=lang F7=ganim F8=OBJ F9/F10=opt Esc
hh hh hh hh hh hh hh hh hhh hhh
:name: CBL
:library: $MCO2DIR\MCO2.LBR
:opt-library: $COBDIR\GENERATE.LBR
:opt-library: $COBDIR\COBCLI.LBR
:set-linein: SETDIRG
:efuncs:
F1 :help: MC12 :library: $MCO2DIR\MCHELP
F4 :toggle: (u)Nolist (u)Print (u)List-File :at: 26
:return: nolist "list(lst)" "list(%N%.grp)"
:toggleflag: 3
F5 :toggle: (u)Bound [] :at: 36
:return: bound []
:toggleflag: 4
F6 :toggle: (u)OSVS (u)VSC2.1 (u)VSC2.2 (u)VSC2.3 [] :at: 42
:return: "osvs ans85 novsc2"
"noosvs ans85 vsc2(1)"
"noosvs ans85 vsc2(2)"
"noosvs ans85 vsc2(3)"
"noosvs ans85 novsc2"
F7 :toggle: [] (u)Ganim :at: 49
:return: [] ganim
:toggleflag: 6
F8 :toggle: [] [] [] :at: 12
:toggleflag: 1
F9 :toggle: [] (u)Opt :at: 58
:return: " ;" "%L% ;"
:toggleflag: 5
F10 :menu: SETDIRG
Esc :menu: :lastexitq:
Ret :call: MCCOMPIL {1} %F% omf(gnt)
:menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: MCICSCMP 1 3
********************************************************************************
:title:
Compile to OBJ
uuu
:line1:
F1=help F2=dir F4=list F5=bound F6=lang F7=debugger F8=INT F9/F10=opt Esc
hh hh hh hh hh hh hh hh hhh hhh
:name: CBL
:opt-library: $COBDIR\GENERATE.LBR
:opt-library: $COBDIR\CHECK.LBR
:opt-library: $COBDIR\ADVANIM.LBR
:opt-library: $COBDIR\COBCLI.LBR
:set-linein: SETDIRG
:efuncs:
F1 :help: MC13 :library: $MCO2DIR\MCHELP
F4 :toggle: (u)Nolist (u)Print (u)List-File :at: 26
:return: nolist "list(lst)" "list(%N%.grp)"
:toggleflag: 3
F5 :toggle: (u)Bound [] :at: 36
:return: bound []
:toggleflag: 4
F6 :toggle: (u)OSVS (u)VSC2.1 (u)VSC2.2 (u)VSC2.3 [] :at: 42
:return: "osvs ans85 novsc2"
"noosvs ans85 vsc2(1)"
"noosvs ans85 vsc2(2)"
"noosvs ans85 vsc2(3)"
"noosvs ans85 novsc2"
F7 :toggle: [] (u)Ganim (u)Opt(0) :at: 49
:return: [] ganim "opt(0)"
F8 :toggle: [] [] [] :at: 12
:toggleflag: 1
F9 :toggle: [] (u)Opt :at: 58
:return: " ;" "%L% ;"
:toggleflag: 5
F10 :menu: SETDIRG
Esc :menu: :lastexitq:
Ret :call: MCCOMPIL {1} %F% omf(obj)
:menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: MCICSLNK
********************************************************************************
:title:
Link to DLL
:line1:
F1=help F2=dir F9/F10=opt Esc
hh hh hh hhh hhh
:name: OBJ
:set-linein: SETDIRL
:efuncs:
F1 :help: MC09 :library: $MCO2DIR\MCHELP
F9 :toggle: [] (u)Opt :at: 58
:return: [] %L%
F10 :menu: SETDIRL
Esc :menu: :lastexit:
Ret :call: MCCOMPIL {2} %P%%N% %N%
:menu: :lastexit:
:end-menu:
********************************************************************************
:new-menu: MCICSEDT
********************************************************************************
:title:
Editor
:line1:
F1=help F2=dir Escape
hh hh hhh
:name: CCP CPY CBL BMS TRL
:opt-library: $COBDIR\EDIT.LBR
:efuncs:
F1 :help: MC10 :library: $MCO2DIR\MCHELP.LBR
Esc :menu: :last:
Ret :call: EDIT {2} %F%
:menu: :last:
:end-menu:
********************************************************************************
:new-menu: MCICSBMS
********************************************************************************
* DEFAULT TRL HANDLING
:title:
BMS Translate
:line1:
F1=help F2=dir F9/F10=opt Esc
hh hh hh hhh hhh
:name: BMS
:set-linein: SETDIRBMS
:efuncs:
F1 :help: MC11 :library: $MCO2DIR\MCHELP
F9 :toggle: [] "(u)More Options" :at: 49
:return: [] %L%
F10 :menu: SETDIRBMS
Ret :call: MCXTRAN {1} %P%%N%
Esc :menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: DOSCMD
********************************************************************************
:title:
OS command
:line1:
F1=help F2=dir/w Enter OS command below Escape
hh hh hhh
:line2:
Command:
uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
:linein: 10 70 10
:efuncs:
F1 :help: MC06 :library: $MCO2DIR\MCHELP.LBR
F2 :dos: DIR/W
Esc :menu: :lastexitq:
Ret :dos: %L%
:end-menu:
********************************************************************************
:new-menu: MCICSHLP
********************************************************************************
:title:
CICSHELP
:line1:
F1=help Enter CICS OS/2 message number Escape
hh hhh
:line2:
Message:
uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
:linein: 10 70 10
:efuncs:
F1 :help: MC05 :library: $MCO2DIR\MCHELP.LBR
Esc :menu: :last:
Ret :dos: FAAHLPOF %L%
:menu: :last:
:end-menu:
********************************************************************************
:new-menu: MCTOOLS
********************************************************************************
:title:
Tools
:line1:
F1=help F2=dfhcnv F3=trace outline
hh hh hh
:line2:
F7=os Escape
hh hhh
:efuncs:
F1 :help: MC18 :library: $MCO2DIR\MCHELP.LBR
F2 :menu: DFHCNV
F3 :call: MCTRACE
F7 :menu: DOSCMD
Esc :menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: DFHCNV
********************************************************************************
:title:
DFHCNV generation
:line1:
F1=help F2=dir Escape
hh hh hhh
:line2:
IDY file:
uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
:linein: 11 80 11
:name: IDY
:efuncs:
F1 :help: MC16 :library: $MCO2DIR\MCHELP.LBR
Ret :call: MCDFHCNV %P%%N%.IDY
Esc :menu: :lastexitq:
:end-menu:
********************************************************************************
:new-menu: SETDIRBMS
********************************************************************************
:title:
BMS Translator Directives
:line1:
F1=help Enter other directives below and press Return Esc
hh hhh
:line2:
Directives: