Example 1
The report pages identified by the WHEN statement belong to user MANAGEMENT of level (department) 20.
Figure 266 DO USER 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 10 USER UNIDENT DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00001 COL 00014 - 00046 PRINT REF NXT CT AND/OR
STRING = E M P L O Y E E S R E P O R T
DO USER = MANAGEMENT LVL 20 LINE COL -
S A T SYNONYM = CONCAT =
DO NAME = EMPLOYEES REPORT
DO PRINT = STD MUST =
DO BACKUP = BKP0180D
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
===========================================================================
ON DSN = DDNAME=PLRPT4,PGMSTEP=PLRPT010
PRT COPIES 01 LVL 20 USER MGT DEST MAX COPIES 02
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 14.00.06
The specified report pages are sent to the Management Department. Unidentified pages are sent to user UNIDENT.
Example 2
Report pages on which the identifying string EMPLOYEES REPORT is found belong to user MANAGEMENT. Report pages on which the string VACATION SUMMARY REPORT is found belong to user PERSONNEL.
Figure 267 DO USER 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 UNIDENT DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00001 COL 00014 - 11146 PRINT REF NXT CT AND/OR
STRING = E M P L O Y E E S R E P O R T
DO USER = MANAGEMENT LVL 20 LINE COL -
S A T SYNONYM = CONCAT =
DO NAME = EMPLOYEES REPORT
DO PRINT = STD MUST =
WHEN LINE 00001 - 00001 COL 00014 - 00046 PRINT REF NXT CT AND/OR
STRING = V A C A T I O N S U M M A R Y R E P O R T
DO NAME = VACATION SUMMARY
DO USER = PERSONNEL LVL LINE COL -
S A T SYNONYM = CONCAT =
DO PRINT = STD MUST =
===========================================================================
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 14.00.06
Example 3
The report is intended for all users defined in member BRANCHES. The generic user name technique is used.
Figure 268 DO USER Parameter – Example 3
----- 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 UNIDENT DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00001 COL 00014 - 00046 PRINT REF NXT CT AND/OR
STRING = E M P L O Y E E S R E P O R T
DO USER = MANAGEMENT LVL 20 LINE COL -
DO USER = *BRANCHES LVL LINE COL -
S A T SYNONYM = CONCAT =
DO NAME = EMPLOYEES REPORT
DO PRINT = STD MUST =
DO BACKUP = BKP0007D
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
===========================================================================
ON DSN = DDNAME=PLRPT4,PGMSTEP=PLRPT010
PRT COPIES 01 LVL 20 USER MGT DEST MAX COPIES 02
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 14.00.06
Parent Topic |