In this example, when the ddname is TTCNTL and it is used under PGM=IEF000, message CTJD05W, "DSN not found," is suppressed.
Fig.JV.3.25a DO ADJMSG Parameter Example
+-----------------------------------------------------------------------------+
| RULE ADJMSG ENVIRONMENT GENERAL PRIORITY 50 CONTINUE SEARCH Y |
| DESC |
| =========================================================================== |
| JOBNAME * |
| LIBRARY * MEMBER |
| SCHDLIB SCHDTAB O/N |
| =========================================================================== |
| ON DD TTCNTL DSN |
| DISP UNIT VOL |
| SMS CLASS DATA STORAGE MANAGEMENT O/N |
| =========================================================================== |
| O N T Y P E S: |
| |
| INIT END |
| JOB INCLUDE JCLLIB |
| EXEC PROC STEPEND |
| DD DDSYSIN DDSYSOUT |
| =========================================================================== |
| IF %%$EXECPROG EQ IEF000 |
| DO ADJMSG MSGID CTJD05W SUPPRESS Y SEVERITY |
| ENDIF |
| DO |
| =========================================================================== |
Parent Topic |