Example 2

Reports › Producing Customized Reports Using CA Common Services for z/OS EARL Service › CA Common Services for z/OS EARL Service Coding Examples › Example 2

Example 2

The following example produces a report on Active Data Sets by data set name.

 COPY TLEARL04
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!                    TLMS REPORT 04                             !
!   ACTIVE DATASETS BY DATA SET NAME                            !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 COPY EARLDEFS
 DEF SDSN       = DSN 1-30 X  'DATA SET NAME'

 SET TYPRUN = R_CHAINED

GETTAG:
 GET TAPEDB
 IF TAPEDB = 'E'
    GOTO EOJ
 ENDIF

 IF SCRATCH_IND = 'N'
    GOTO GETTAG
 ENDIF

 IF DSN = '      '
    GOTO GETTAG
 ENDIF

 SET FUNCTION = 'TO_EXTERNAL'
 SET P_CTIME  = CTIME
 CALL CTSEDATE USING FUNCTION P_CDATE CDATE DATE_FMT
 CALL CTSEDATE USING FUNCTION P_LDATE LDATE DATE_FMT

 REPORT 'ACTIVE DATA SETS BY DATA SET NAME(TLMS004)'
    SELECT ALL
    CONTROL SDSN
    PRINT SDSN VOLSER FILESEQ  P_CDATE P_CTIME CJOB
          P_LDATE LJOB  RECFM LRECL BLKSIZE LABEL_TYPE DEN

mm/dd/yy ACTIVE DATA SETS BY DATA SET NAME(TLMS004) PAGE 1 ----------------------------------------------------------------------------------------------------------------------------- DATA SET NAME VOLSER FILE CREATE CREATE CREATE LAST USE LAST REC REC BLOCK LBL DEN SEQ DATE TIME JOBNAME DATE JOB FMT LEN SIZE TYP ----------------------------------------------------------------------------------------------------------------------------- CDS.PROD.FILE3 000082 3 mm/dd/yyyy 10:54:35 TJOB0CDS FB? 80 800 CART CDS.PROD.FILE3 000075 3 mm/dd/yyyy 09:40:05 TJOB0CDS FB? 80 800 CART CDS.PROD.FILE3 000074 3 mm/dd/yyyy 09:21:09 TJOB0CDS FB? 80 800 CART CDS.PROD.FILE3 000068 3 mm/dd/yyyy 08:33:57 TJOB0MSG FB? 80 800 CART CDS.TEST.FILE2 000068 2 mm/dd/yyyy 08:33:56 TJOB0MSG FB? 80 800 CART CDS.TEST.FILE2 000074 2 mm/dd/yyyy 09:21:08 TJOB0CDS FB? 80 800 CART CDS.TEST.FILE2 000075 2 mm/dd/yyyy 09:40:05 TJOB0CDS FB? 80 800 CART CDS.TEST.FILE2 000082 2 mm/dd/yyyy 10:54:33 TJOB0CDS FB? 80 800 CART DEF.AAA.FILE1 000069 1 mm/dd/yyyy 09:05:41 TJOB0DEF mm/dd/yyyy TJOB0DEF FB? 80 800 CART DEF.BBB.FILE1 000070 1 mm/dd/yyyy 09:05:43 TJOB0DEF mm/dd/yyyy TJOB0DEF FB? 80 800 CART DEF.CCC.FILE1 000071 1 mm/dd/yyyy 09:05:43 TJOB0DEF mm/dd/yyyy TJOB0DEF FB? 80 800 CART DEF.DDD.FILE1 000072 1 mm/dd/yyyy 09:05:44 TJOB0DEF mm/dd/yyyy TJOB0DEF FB? 80 800 CART EDM.SCRATCH.FILE1 000066 1 mm/dd/yyyy 07:59:38 CRAJOEDM mm/dd/yyyy CRAJOEDM FB? 80 800 CART EDM.SCRATCH.FILE1 000080 1 mm/dd/yyyy 09:49:49 TJOB0EDM mm/dd/yyyy TJOB0EDM FB? 80 800 CART EDM.SCRATCH.FILE4 000081 1 mm/dd/yyyy 09:49:52 TJOB0EDM mm/dd/yyyy TJOB0EDM FB? 80 800 CART EDM.SCRATCH.FILE4 000078 1 mm/dd/yyyy 09:48:25 TJOB0EDM mm/dd/yyyy TJOB0EDM FB? 80 800 CART EDMS.SCRATCH.FILE1 000076 1 mm/dd/yyyy 09:44:12 TJOB0EDM mm/dd/yyyy TJOB0EDM FB? 80 800 CART EDMS.SCRATCH.FILE2 000076 2 mm/dd/yyyy 09:44:13 TJOB0EDM FB? 80 800 CART EDMS.SCRATCH.FILE3 000076 3 mm/dd/yyyy 09:44:14 TJOB0EDM FB? 80 800 CART EDMS.SCRATCH.FILE4 000077 4 mm/dd/yyyy 09:44:15 TJOB0EDM mm/dd/yyyy TJOB0EDM FB? 80 800 CART EDMS.SCRATCH.FILE4 000076 4 mm/dd/yyyy 09:44:14 TJOB0EDM FB? 80 800 CART JBC.BREAK.CHAIN 000025 1 mm/dd/yyyy 12:47:19 TJOB0BRK mm/dd/yyyy TJOB0BRK FB? 80 800 NSL 200 JBC.MANUAL.FILE 000100 1 00:00:00 BOBS ? 0 0 SL IDRC MSG.AAA.FILE1 000068 1 mm/dd/yyyy 08:33:55 TJOB0MSG mm/dd/yyyy TJOB0MSG FB? 80 800 CART MY.DISP.YYYY 000088 1 mm/dd/yyyy 11:07:42 JOB004 mm/dd/yyyy JOB004 FB? 50 500 CART MY.TAPE.FILE 000073 1 mm/dd/yyyy 10:18:56 JOB003 mm/dd/yyyy JOB003 FB? 50 500 CART REG.FILE1 000074 1 mm/dd/yyyy 09:21:07 TJOB0CDS mm/dd/yyyy TJOB0CDS FB? 80 800 CART REG.FILE1 000075 1 mm/dd/yyyy 09:40:04 TJOB0CDS mm/dd/yyyy TJOB0CDS FB? 80 800 CART REGULAR.FILE1 000082 1 mm/dd/yyyy 10:54:33 TJOB0CDS mm/dd/yyyy TJOB0CDS FB? 80 800 CART TLMSII.DUMMY.DSN 000074 2 mm/dd/yyyy 00:00:00 TIIDUMMY ? 0 0 CART TLMSII.DUMMY.DSN 000061 8 mm/dd/yyyy 00:00:00 TIIDUMMY ? 0 0 AL CART TLMSII.DUMMY.DSN 000061 7 mm/dd/yyyy 00:00:00 TIIDUMMY ? 0 0 AL CART TLMSII.DUMMY.DSN 000061 6 mm/dd/yyyy 00:00:00 TIIDUMMY ? 0 0 AL CART TLMSII.DUMMY.DSN 000061 5 mm/dd/yyyy 00:00:00 TIIDUMMY ? 0 0 AL CART TLMSII.DUMMY.DSN 000061 4 mm/dd/yyyy 00:00:00 TIIDUMMY ? 0 0 AL CART TLMSII.DUMMY.DSN 000061 3 mm/dd/yyyy 00:00:00 TIIDUMMY ? 0 0 AL CART TLMSII.DUMMY.DSN 000061 2 mm/dd/yyyy 00:00:00 TIIDUMMY ? 0 0 AL CART TLMSII.DUMMY.DSN 000061 1 00:00:00 TIIDUMMY ? 0 0 AL CART TLMSII-CRASH-PROTECTED-EDM.SCR 000067 0 mm/dd/yyyy 07:59:39 CRAJOEDM ? 0 0 DEN9 VOL00.FILE1 000053 1 mm/dd/yyyy 14:47:53 TJOB100 mm/dd/yyyy TJOB100 FB? 80 800 CART VOL00.FILE1 000052 1 mm/dd/yyyy 14:47:52 TJOB100 mm/dd/yyyy TJOB100 FB? 80 800 SL 1600 VOL00.FILE10 000065 10 mm/dd/yyyy 07:54:20 TJOB102 mm/dd/yyyy TJOB102 FB? 80 800 CART VOL00.FILE2 000053 2 mm/dd/yyyy 15:32:06 TJOB100 FB? 80 800 CART VOL00.FILE2 000054 2 mm/dd/yyyy 15:32:07 TJOB100 mm/dd/yyyy TJOB100 FB? 80 800 CART VOL00.FILE3 000056 3 mm/dd/yyyy 15:32:10 TJOB100 mm/dd/yyyy TJOB100 FB? 80 800 CART VOL00.FILE3 000054 3 mm/dd/yyyy 15:32:09 TJOB100 FB? 80 800 CART VOL00.FILE4 000056 4 mm/dd/yyyy 15:32:13 TJOB100 FB? 80 800 CART VOL00.FILE4 000057 4 mm/dd/yyyy 15:32:14 TJOB100 mm/dd/yyyy TJOB100 FB? 80 800 CART VOL00.FILE5 000058 5 mm/dd/yyyy 15:32:21 TJOB100 mm/dd/yyyy TJOB100 FB? 80 800 CART VOL00.FILE5 000057 5 mm/dd/yyyy 15:32:18 TJOB100 FB? 80 800 CART VOL00.FILE6 000058 6 mm/dd/yyyy 15:32:24 TJOB100 FB? 80 800 CART VOL00.FILE6 000059 6 mm/dd/yyyy 15:32:27 TJOB100 mm/dd/yyyy TJOB100 FB? 80 800 CART VOL00.FILE7 000060 7 mm/dd/yyyy 15:32:31 TJOB100 mm/dd/yyyy TJOB100 FB? 80 800 CART VOL00.FILE7 000059 7 mm/dd/yyyy 15:32:30 TJOB100 FB? 80 800 CART