Example 1
The identifying string resides between lines 1 and 5 and between columns 10 and 70. The identifying string are printed, along with the rest of the page. The string references the page on which it is located (not the following page). Each page must be identified separately.
Figure 348 WHEN Parameter – Example 1
------- CONTROL-D/V CATEGORY DAILY JOB PLRPT010 ----------(R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
DEF COPIES 00 LVL 90 USER UNIDENT DEST MAX COPIES 05
===========================================================================
ON CLASS = D EXTWTR DEST FORM
PRT COPIES 01 LVL 20 USER MGT DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00005 COL 00010 - 00070 PRINT REF NXT CT AND/OR
STRING = E M P L O Y E E S R E P O R T
DO NAME = EMPLOYEES REPORT
DO USER = MANAGEMENT LVL LINE COL -
S A T SYNONYM = CONCAT =
DO USER = * LVL LINE COL 00064 - 00074
S A T SYNONYM = CONCAT =
DO PRINT = STD MUST =
DO BACKUP = BKP0031D
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
===========================================================================
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 14.00.06
Example 2
Two identifying strings are required to fully identify the report. One string is on line 1. The other string is on line 3.
Figure 349 WHEN Parameter – Example 2
------- CONTROL-D/V CATEGORY DAILY JOB PLRPT010 ----------(R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
DEF COPIES 00 LVL 90 USER UNIDENT DEST MAX COPIES 05
===========================================================================
ON CLASS = D EXTWTR DEST FORM
PRT COPIES 01 LVL 20 USER MGT DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00001 COL 00014 - 00046 PRINT Y REF NXT N CT N AND/OR A
STRING = E M P L O Y E E S R E P O R T
WHEN LINE 00003 - 00003 COL 00014 - 00132 PRINT Y REF NXT N CT N AND/OR
STRING = V A C A T I O N S
DO NAME = EMPLOYEES VACATIONS
DO USER = MANAGEMENT LVL LINE COL -
S A T SYNONYM = CONCAT =
DO USER = * LVL LINE COL 00064 - 00074
S A T SYNONYM = CONCAT =
DO PRINT = STD MUST =
DO BACKUP = BKP0031D
DO
WHEN LINE - COL - PRINT REF NXT CT AND/O
==========================================================================
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 14.00.06
Example 3
The following is an example of using DO SET in conjunction with a WHEN VAR statement:
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO SET = %%VAR1 =REP 1 C CS
DO SET = %%VAR2 =X'0AFA0F40F2' C CS
DO SET = %%VAR3 ='REP 2' C CS
DO
WHEN VAR %%VAR2 REF NXT CT AND/OR A
STRING = %%VAR3
WHEN LINE 00003 - 00003 COL 00034 - 00050 PRINT REF NXT CT AND/OR A
STRING = .NE.%%VAR2
WHEN VAR %%VAR2 REF NXT CT AND/OR
STRING = .NE.'REP '
Parent Topic |