|
|
|
|
|
In this example, we ensure that all the datasets of the Payment Department jobs have a HLQ of PAYDY, all the datasets are on 3390 disks, and the space is always allocated in TRKS only. After the test, the process exits from the rule and returns to Control-M JCL Verify.
Fig.JV.3.26 DO RETURN example
+-----------------------------------------------------------------------------+
| RULE DAILYPAY ENVIRONMENT PROD PRIORITY 3 CONTINUE SEARCH Y |
| DESC Checks files of payable jobs |
|=============================================================================|
| JOBNAME PAY*____ _ |
| LIBRARY PRD.PAY.ACCOUNT.DAILY.JOBS__________________ MEMBER DPAY*___ |
| SCHDLIB SCHDTAB O/N |
|=============================================================================|
| ON DD * DSN * |
| DISP UNIT VOL |
| SMS CLASS DATA STORAGE MANAGEMENT O/N |
|=============================================================================|
| IF %%$SUBSTR %%$DDDSN 1 6 NE 'PAYDY.' |
| DO MSG TYPE E Invalid HLQ for payable system files. |
| ENDIF |
| IF %%$DDUNIT NE '3390' |
| DO MSG TYPE I UNIT should be 3390 for all payable files. |
| ENDIF |
| IF %%$GETWORD %%$SPCUNIT 1 ' ' NE TRKS |
| DO MSG TYPE I SPACE should be allocated in TRKS only. |
| ENDIF |
| RETURN RC 0000 RS X' 0000 ' |
|=============================================================================|
Parent Topic |