Q:
Pause/Wait + JCL z/0s
Is there a way to pause ZOS
between each step of a job? If we had JES3 installed, I would use
//**PAUSE, but we don't. My job has six commands I want to automate. F
PCICST01, CEMT S TE(????)OUT, and 5 more, where ???? is the LU code
needed. If I understand ZOS, it may or may not process the 6 commands
in the order they were entered into the job. I am not familiar enough
with mainframe assembler,rexx,c++, etc... to insert code that will
produce the same thing a pausing the processing of the commands for a
time of say 5 seconds. Any help would be greatly appreciated and thank
you in advance.
between each step of a job? If we had JES3 installed, I would use
//**PAUSE, but we don't. My job has six commands I want to automate. F
PCICST01, CEMT S TE(????)OUT, and 5 more, where ???? is the LU code
needed. If I understand ZOS, it may or may not process the 6 commands
in the order they were entered into the job. I am not familiar enough
with mainframe assembler,rexx,c++, etc... to insert code that will
produce the same thing a pausing the processing of the commands for a
time of say 5 seconds. Any help would be greatly appreciated and thank
you in advance.
ASKED:
Oct 9 2009 2:44 PM GMT
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
A:
RATE THIS ANSWER
0
Click to Vote:
0
Click to Vote:
- 0
0
Almost every mainframe shop has a program already in existence to "pause" a batch job. You should ask your software guys.
Over the years, COBOL has grown in its capabilities. So, in this case you do not need Assembler. (Which is too bad, becasue I think Assembler is the best.)
Here is a piece of COBOL code that can be used to "pause" a job. This program uses an IBM supplied module ILBOWAT. You should verify this is still correct. (This is an OLD, old program of mine...)
* DESCRIPTION =
* THIS PROGRAM USES IBM SUPPLIED MODULE TO "PAUSE" YOUR PROGRAM.
* > A "SLEEP" FUNCTION
* > MODULE NAMED ILBOWAT0. NOT ILBOWAT.
* > CALLED MODULE IS AMODE 24, YOU MUST USE COMPILE OPTION DATA(24).
* > PARAMETER PASSED IS IN SECONDS.
* > CHECK RETURN CODE - YOU MIGHT HAVE DONE SOMETHING WRONG.
*
WORKING-STORAGE SECTION.
01 DELAY-SECONDS PIC S9(9) VALUE ZERO COMP.
PROCEDURE DIVISION.
MOVE 60 TO DELAY-SECONDS.
CALL 'ILBOWAT0' USING DELAY-SECONDS.
I hope this works out for you.
steve (Meandyou)
