Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Execute a cobol program
- Thread starter Paolast
- Start date
ShadowFox333
Programmer
Hi there this script runs a cobol program interactive update
and then does a pkzip backup after the update is over.
Enjoy BOB
Set ss = CreateObject("WScript.Shell"
ss.run "C:\RMCOBOL\RUNCOBOL.EXE C:\COBOLTEST\RSUPDATE K L=c:\rmcobol\RMBARS.DLL L=c:\rmcobol\C$BITMAP.DLL ",1,true
set ss = nothing
returncode=msgbox ("mount a 3.5 diskette for backup",65,"backup start"
if returncode=1 then
Set ss = CreateObject("WScript.Shell"
ss.run "COMMAND /C C:\util\pkzip.exe a:master05.zip y:\rds\rds05\master.txt ",1,TRUE
msgbox "backup is done please remove the diskette",64,"backup finished"
end if
and then does a pkzip backup after the update is over.
Enjoy BOB
Set ss = CreateObject("WScript.Shell"
ss.run "C:\RMCOBOL\RUNCOBOL.EXE C:\COBOLTEST\RSUPDATE K L=c:\rmcobol\RMBARS.DLL L=c:\rmcobol\C$BITMAP.DLL ",1,true
set ss = nothing
returncode=msgbox ("mount a 3.5 diskette for backup",65,"backup start"
if returncode=1 then
Set ss = CreateObject("WScript.Shell"
ss.run "COMMAND /C C:\util\pkzip.exe a:master05.zip y:\rds\rds05\master.txt ",1,TRUE
msgbox "backup is done please remove the diskette",64,"backup finished"
end if
- Status
Similar threads