In this example, we ensure that all the jobs in the PRD.PAY.ACCOUNT.DAILY.JOBS library, with jobnames which begin with PAY, have a HLQ of PAYDY, all the datasets are on 3390 disks, and the space is always allocated in TRKS only.
Fig.JV.3.31 LIBRARY 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 |