The ON DSN statement identifies a compressed dataset referenced by DD statement REPORT in program step STEP5 with higher level dataset name qualifier SALARY.
Figure 261 ON DSN Statement Example
LIBRARY : CTB.PROD.RULES RULE :CHKSAL
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
EXECUTE INPUT UPON C
ON DSN = PREFIX=SALARY,DDNAME=REPORT,PGMSTEP=STEP5
MODE PG LINECT 0060 DATASTAMP
WHEN LINE 001 - 0060 COL 010 - 020 STOP AND/OR
STRING = /
DO EXTRACT = SALARY
LEVEL 0 LINE +000 COL +002 - +008 PROCESS TYP
DO BLOCK = CHECK ARG SALARY C
DO
WHEN LINE - COL - STOP AND/OR
STRING =
DO
===========================================================================
EXECUTE CHECK UPON BARG01 < 1000 | BARG01 > 20000 C
ON DATA
LABEL:
ALWAYS
DO PRINT = %%BARG01 F C
DO
PLEASE FILL IN RULE DEFINITION. 16.30.50
Parent Topic |