SHOUT Example 1
If the job finishes executing OK, write a message to the IOA Log file under the specified user ID:
MEMNAME GPLSP0007
DAYS 01,15
SHOUT WHEN OK TO U-SHIFTMNGR URGN R
MS I HAVE FINISHED FOR TONIGHT
The message is written to the log under Control-M userid-SHIFTMNGR.
SHOUT Example 2
When IMS is not active, send a message to all operators.
Figure 310 SHOUT Parameter Example 2
JOB: IMSPROD LIB CTM.PROD.SCHEDULE TABLE: IMSPROD
COMMAND ===> SCROLL===> CRSR
+-------------------------------------------------------------------------+
=========================================================================
OUT
AUTO-ARCHIVE Y SYSDB Y MAXDAYS MAXRUNS
RETENTION: # OF DAYS TO KEEP 030 # OF GENERATIONS TO KEEP
SYSOUT OP (C,D,F,N,R) FROM
MAXRERUN RERUNMEM INTERVAL FROM
STEP RANGE FR (PGM.PROC) . TO .
ON PGMST PROCST CODES A/O
DO
ON SYSOUT FROM 001 TO 132 A/O
DO
ON VAR
DO
SHOUT WHEN OK TIME + DAYS TO OPER2 URGN R
MS ******* IMS IS NOT ACTIVE *******
SHOUT WHEN NOTOK TIME + DAYS TO OPER2 URGN R
MS ******* IMS IS NOT ACTIVE - ENDED ABNORMALLY *******
SHOUT WHEN TIME + DAYS TO URGN
MS
====== >>>>>>>>>>>>>>>>> END OF SCHEDULING PARAMETERS <<<<<<<<<<<<<<< =====
COMMANDS: EDIT, DOC, PLAN, JOBSTAT 11.17.00
If IMS finishes executing, an unrollable message is sent to the operator. A different message is sent if IMS terminates abnormally.
SHOUT Example 3
If the job is not run because of a JCL error, notify the user who sent the job.
Figure 311 SHOUT and DO SHOUT Example 3
JOB: SACALC01 LIB CTM.PROD.SCHEDULE TABLE: SALARY
COMMAND ===> SCROLL===> CRSR
+-------------------------------------------------------------------------+
=========================================================================
OUT
AUTO-ARCHIVE Y SYSDB Y MAXDAYS MAXRUNS
RETENTION: # OF DAYS TO KEEP 030 # OF GENERATIONS TO KEEP
SYSOUT OP (C,D,F,N,R) FROM
MAXRERUN RERUNMEM INTERVAL FROM
STEP RANGE FR (PGM.PROC) . TO .
ON PGMST ANYSTEP PROCST CODES JNRUN A/O
DO SHOUT TO TSO-U0014 URGENCY U
= *** JCL ERROR IN SALARY JOB ***
DO
ON PGMST PROCST CODES A/O
DO
ON SYSOUT FROM 001 TO 132 A/O
DO
ON VAR
DO
SHOUT WHEN TIME + DAYS TO URGN
MS
====== >>>>>>>>>>>>>>>> END OF SCHEDULING PARAMETERS <<<<<<<<<<<<<<< ======
COMMANDS: EDIT, DOC, PLAN, JOBSTAT 11.17.00
An urgent message is sent to the user ID that requested the job.
SHOUT Example 4
Perform a LATE shout after the New Day time has passed and a new working day has begun.
Assume the following:
However, the New Day process automatically cancels any shout requirements of jobs ordered on any previous day.
There are two ways to achieve the required LATE shout:
Method 1
This procedure works as follows:
Method 2
Use IOA Exit 34, and set values for the SET VAR parameter in the job scheduling definition.
For more information, see the IOAX034H sample exit in the IOA SAMPEXIT library.
SHOUT Example 5
Trigger a SHOUT when a cyclic job is not submitted within 40 minutes after the end of a previous cycle.
The job has the following definitions:
Figure 311a SHOUT Parameter Example 5
JOB: TESTJOB3 LIB K80.LIB.SCHEDULE TABLE: TEST
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
| =========================================================================== |
| OUT |
| AUTO-ARCHIVE Y SYSDB Y MAXDAYS MAXRUNS |
| SYSOUT OP (C,D,F,N,R) FROM |
| MAXRERUN 0010 RERUNMEM |
| CAPTURE BY (W - WORD / C - CHAR) |
| CYCLIC TYPE: C INTERVAL 00030 M FROM END |
| INTERVAL SEQUENCE: + + + + + |
| SPECIFIC TIMES: TOLERANCE |
| + + + + + |
| STEP RANGE FR (PGM.PROC) . TO . |
| ON PGMST PROCST CODES A/O |
| DO |
| ON SYSOUT FROM 001 TO 132 A/O |
| DO |
| ON VAR |
| DO |
| SHOUT WHEN LATESUB TIME #010 + DAYS TO U-K80 URGN R |
| MS %%RN #010 |
| |
| SHOUT WHEN TIME + DAYS TO URGN |
| MS |
======= >>>>>>>>>>>>>>>>>>> END OF SCHEDULING PARAMETERS <<<<<<<<<<<<<<<< =====
For all job cycles starting from the second cycle, the NEXT RUN TIME is set to 30 minutes after the end of the previous cyclic run. The SHOUT defined above is triggered when the job has not been submitted 10 minutes after NEXT RUN TIME (that is, when the job is not submitted within 40 minutes after the end of a previous cycle).
Parent Topic |