Member $$FTDFLT:
TYPE=A
FIRSTLINE=’USER=%GROUP% ,REPORT=%REPORT% ,DATE=%DATE%%TIME%’
* CLASS=A
LRECL=255
RECFM=VA
Every transferred file is written to the spool to class A with a logical record length of 255 and a record format of VA. Each line is translated from ASCII to EBCDIC through the default table. Line separation and page separation are according to CRLF and FF characters.
The following line is inserted at the beginning of the report:
USER=PROD ,REPORT=REPORT_EXAMPLE DATE=030700182030
The following code illustrates a generic decollation missions that can decollate a resulting SYSOUT:
----- Control-D/V CATEGORY DECGEN JOB * ----------- (R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
| CATEGORY DECGEN JOBNAME * GENERIC Y MONITOR |
| ========================================================================= |
| DEF COPIES LVL USER DEST MAX COPIES |
| ========================================================================= |
| ON CLASS = A EXTWTR DEST FORM |
| PRT COPIES LVL USER DEST MAX COPIES |
| PRINT/CDAM PARMS = |
| DO |
| WHEN LINE - COL - PRINT REF NXT CT ND/OR |
| STRING = |
| DO NAME = TEST FROM GENERIC - |
| DO USER = DEC LVL LINE COL - |
| S A T A SYNONYM = CONCAT = |
| DO INDEX = JOBNAME_DDNAMES R G |
| DO INDEX = AS## R G LINE COL 00001 - 00005 |
| MASK = ## RC N LINE - COL 00001 - 00003 |
| SUBINDX = LVL LINE COL - |
| MASK = RC LINE - COL - |
| =========================================================================== |
| INDEX LEVEL DISPLAY |
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 14.56.52
In decollation missions the DO NAME, DO USER, and DO REMARK statements use corresponding values from the first (added) line of the report.
Parent Topic |