Utilities › TMSGRW Utility—Produce Customized Reports on TMC and Audit Records › TMSGRW Control Statement Examples › Example 1 - Active Data Sets for Jobs XP700000 through XP799999

Example 1 - Active Data Sets for Jobs XP700000 through XP799999

The following example shows the TMSGRW control statements that will produce a report of all nonscratch data sets created by jobs XP700000 through XP799999. The output is sorted by ascending creating job name, descending data set name, and ascending volume sequence.

The page layout is 40 lines by 104 columns, and secondary files are reported. A page break is generated if the first eight characters of the job name change. The NEWPAGE keyword and the keyword used to specify the major SORT field are the same.

The fields printed are the creating job name, data set name, volume/file sequence, expiration date, and a hex dump of the out-of-area code. Dates are printed in the format 'DDMMMYYYY'. The ALTER statement indicates RUN=SCAN to provide a syntax check of the control statements without report generation. Once the RUN=SCAN subparameter is removed, the report is produced.

According to the delivery instructions, the report is sent to Administration on the second floor.

Example

CONTROL-SECTION
*
SORT CJOB D-DSN A-VOLSEQ
TITLE 'ACTIVE DATA SETS FOR JOBS XP700000 THROUGH XP799999'
FOOTER 'SEND REPORT TO ADMINISTRATION, 2ND FLOOR'
ALTER PRINTIMAGE=40X104 DSNB=YES
ALTER INPUT=TMC RUN=SCAN
DEFINE JOB1 CH 'XP700000'
DEFINE JOB2 CH 'XP799999'
*
PROCESS-SECTION
*
WHEN JOB1 GT CJOB
 REJECT
WHEN JOB2 GE CJOB
 LIST
*
REPORT-SECTION
*
NEWPAGE CJOB ON-FIRST 8
PRINT CJOB    'CREATING,JOBNAME'
PRINT DSN     'DATA SET NAME'
PRINT VOLSEQ  'VOLUME,SEQUENCE'
PRINT NUMDSNB 'FILE,SEQUENCE'
PRINT EXPDT   'EXPIRATION,DATE' AS 'DDMMMYYYY'
DUMP  OUTCODE 'HEX,OUTCODE'