This program will read input data from a member of a PDS with DDNAME SCRIPTS. If no SCRIPTS DDNAME is found, SYS1.PARMLIB will be used
The member to be used is specified via the PARM passed to the program. If none if specified, a default of BSPRUNSC is used
JCL Execution Parameters are specified via the PARM statement on the EXEC card:
PARM=xxxxxxxx |
Run the script xxxxxxxx |
none
DDNAME | Description | Default |
---|---|---|
SCRIPTS | points to PDS with OS command scripts | SYS1.PARMLIB |
SYSPRINT | output queue for report | SYSOUT=X |
SYSUDUMP | never used | SYSOUT=X |
An asteriks (*) in col 1 means a comment, this line gets ignored.
Leading spaces will be removed from the script line
PARM TEST | don't exec, just simulate (default) |
PARM CHECK | same as PARM TEST |
PARM ECHO | show commands on console (default) |
PARM NOECHO | no longer echo commands to console |
PARM EXEC | Execute the script, ask operator first |
PARM NOREPLYU | Execute the script, don't ask operator permission |
PARM REPLYU | Next time, ask operator permission again |
CONTINUE | Does nothing |
WAIT xxx | Wait specified number of seconds before going on. Default is 10 seconds |
COM ccc | Execute the command ccc |
CMD ccc | Execute the command ccc, equivalent to COM |
MSG ttt | show the message with the text ttttt |
WTO ttt | equivalent to MSG |
IF xxxxxxxx | execute following command if xxxxxxxx is active |
ELSE | otherwise execute the second branch |
ENDIF | end of IF construct. IF may not be nested (yet) |
Sample members are provided in SYS1.PARMLIB(SCRIPT01)
and
SYS1.PARMLIB(SCRIPT02)
Assembly and Link JCL can be found in SYS1.SETUP.CNTL(RUNSC$)
.
Execution JCL can be found in SYS1.SETUP.CNTL(RUNSC#)
*********************************************************************** * * * Name: SYS1.PARMLIB(SCRIPT00) * * * * Desc: Sample Script member * * * *********************************************************************** PARM ECHO PARM REPLYU IF MF1 CONTINUE ELSE COM S MF1 ENDIF PARM NOECHO WAIT 5 IF MF1 CONTINUE ELSE MSG MF/1 could not be started, check system log for errors ENDIF
Although this program has been tested on the Turnkey MVS system Version 3 it is not guaranteed to be bug-free (which program is?)
Use at your own risk