It is possible to generate a remark by concatenating strings extracted from the report page with each other or with predefined strings.
The remark can be generated by using multiple DO REMARK (DO REMARK2 or DO REMARK3) statements. Consider the following examples:
Example 1
DO REMARK=* LINE 00001 COL 00051 - 00061
DO REMARK=*+*P LINE 00004 COL 00026 - 00029
The remark is composed from the contents of line 4 column 26 to 29 followed by the contents of line 1 column 51 through 61. The string +*P translates into the remark identified by the previous DO REMARK statement.
Example 2
DO REMARK=* LINE 00001 COL 00051 - 00061
DO REMARK=*P+-TWO- LINE COL -
DO REMARK=*P+* LINE 00004 COL 00026 - 00029
The remark is composed from the contents of line 1 columns 51 through 61 followed by the string –TWO– followed by the contents of line 4 columns 26 to 29. The string *P+ translates into the remark identified by the previous DO REMARK statement.
Only one + can appear in each DO REMARK statement. The combination DO REMARK= *+*P+ ... is not valid.
Example 3
DO REMARK = *P+ABC
The remark consists of the remark identified by the previous DO REMARK statement concatenated with the string ABC.
Example 4
When the report is not balanced, the text NOT BALANCED appears in the REMARK field in the Active Report list (depending on display type).
Figure 261 DO REMARK Parameter – Example 4
------- CONTROL-D/V CATEGORY DAILY JOB PRDKPL04 ----------(R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
CATEGORY DAILY JOBNAME PRDKPL04 GENERIC MONITOR
===========================================================================
DEF COPIES 00 LVL 10 USER UNIDENT DEST MAX COPIES
===========================================================================
ON DSN = DDNAME=SYSUT2,PGMSTEP=STEP02
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00001 COL 00045 - 00060 PRINT REF NXT CT AND/OR A
STRING = ACCOUNTS UPDATE REPORT
WHEN LINE 00001 - 00060 COL 00001 - 00070 PRINT REF NXT CT AND/OR
STRING = N O T B A L A N C E D
DO REMARK = NOT BALANCED LINE COL
DO NAME = ACCOUNTS UPDATE
DO
WHEN LINE 00001 - 00001 COL 00045 - 00060 PRINT REF NXT CT AND/OR
STRING = ACCOUNTS UPDATE REPORT
WHEN LINE 00001 - 00060 COL 00001 - 00070 PRINT REF NXT CT AND/OR
STRING = ALL ACCOUNTS BALANCED
DO NAME = ACCOUNTS UPDATE LINE COL -
DO USER = * LVL LINE 00001 COL 00082 - 00085
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 14.00.06
Parent Topic |