The following example produces a VMF report with chained access:
COPY TLEARL08 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! VMF REPORT WITH CHAINED ACCESS ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! COPY EARLDEFS DEF P_VOL (X 6) = NONE 'BASE' 'VOLUME' DEF O_VOL (X 6) = NONE SET TYPRUN = R_CHAINED GETTAG: GET TAPEDB IF TAPEDB = 'E' GOTO EOJ ENDIF IF O_VOL = BASEVOL THEN SET P_VOL = ' ' ELSE SET P_VOL = BASEVOL SET O_VOL = BASEVOL ENDIF SET FUNCTION = 'TO_EXTERNAL' SET P_CTIME = CTIME CALL CTSEDATE USING FUNCTION P_CDATE CDATE DATE_FMT GOTO EOJ TAPEDB = 'E' REPORT 'DEMO REPORT VMF ACCESS BY CHAINED' SELECT ALL PRINT VOLSER P_VOL VOLSEQ VOLUME_COUNT FILESEQ FILECNT DSN P_CDATE P_CTIME CJOB
mm/dd/yy DEMO REPORT VMF ACCESS BY CHAINED PAGE 1 ----------------------------------------------------------------------------------------------------------------------------- VOLSER BASE VOL VOLUME FILE FILE DATA SET NAME CREATE CREATE CREATE VOLUME SEQ COUNT SEQ CNT DATE TIME JOBNAME ----------------------------------------------------------------------------------------------------------------------------- 000001 000001 0 0 0 0 00:00:00 000003 000003 1 3 1 1 VOL03.FILE1 mm/dd/yyyy 14:37:18 TJOB002 000004 2 3 1 1 VOL03.FILE1 mm/dd/yyyy 14:37:20 TJOB002 000005 3 3 1 1 VOL03.FILE1 mm/dd/yyyy 14:37:26 TJOB002 000006 000006 1 1 1 1 VOL06.FILE1 mm/dd/yyyy 14:39:43 TJOB003 000007 2 2 1 1 VOL06.FILE1 mm/dd/yyyy 14:39:44 TJOB003 000008 000008 1 4 1 1 VOL08.FILE1 mm/dd/yyyy 14:44:24 TJOB004 000009 2 4 1 1 VOL08.FILE1 mm/dd/yyyy 14:44:24 TJOB004 000010 3 4 1 1 VOL08.FILE1 mm/dd/yyyy 14:44:25 TJOB004 000011 4 4 1 1 VOL08.FILE1 mm/dd/yyyy 14:44:26 TJOB004 000012 000012 0 0 0 0 00:00:00 000013 000013 0 0 0 0 00:00:00 000014 000014 0 0 0 0 00:00:00 000015 000015 0 0 0 0 00:00:00 000016 000016 0 0 0 0 00:00:00 000017 000017 0 0 0 0 00:00:00 000018 000018 0 0 0 0 00:00:00 000019 000019 0 0 0 0 00:00:00 000020 000020 0 0 0 0 00:00:00 000021 000021 0 0 0 0 00:00:00 000022 000022 0 0 0 0 00:00:00 000023 000023 0 0 0 0 00:00:00 000024 000024 0 0 0 0 00:00:00 000025 000025 1 1 1 1 JBC.BREAK.CHAIN mm/dd/yyyy 12:47:19 TJOB0BRK 000026 000026 0 0 0 0 00:00:00 000027 000027 0 0 0 0 00:00:00 000028 000028 1 1 1 1 00:00:00 000029 000029 1 2 1 1 VOL29.FILE1 mm/dd/yyyy 15:34:15 TJOB021 000030 2 2 1 1 VOL29.FILE1 mm/dd/yyyy 15:34:16 TJOB021 000031 000031 1 3 1 4 VOL31.FILE1 mm/dd/yyyy 15:39:03 TJOB022 000031 1 3 2 4 VOL31.FILE2 mm/dd/yyyy 15:39:04 TJOB022 000031 1 3 3 4 VOL31.FILE3 mm/dd/yyyy 15:39:04 TJOB022 000031 1 3 4 4 VOL31.FILE4 mm/dd/yyyy 15:39:05 TJOB022 000032 2 3 4 4 VOL31.FILE4 mm/dd/yyyy 15:39:06 TJOB022 000033 3 3 4 5 VOL31.FILE4 mm/dd/yyyy 15:39:07 TJOB022 000033 3 3 5 5 VOL33.FILE1 mm/dd/yyyy 15:39:08 TJOB022 000034 000034 1 18 1 1 VOL34.FILE1 mm/dd/yyyy 15:51:44 TJOB023 000035 2 18 1 2 VOL34.FILE1 mm/dd/yyyy 15:51:45 TJOB023 000035 2 18 2 2 VOL35.FILE2 mm/dd/yyyy 15:51:46 TJOB023 000036 3 18 2 3 VOL35.FILE2 mm/dd/yyyy 15:51:47 TJOB023 000036 3 18 3 3 VOL36.FILE3 mm/dd/yyyy 15:51:48 TJOB023 000037 4 18 3 4 VOL36.FILE3 mm/dd/yyyy 15:51:49 TJOB023 000037 4 18 4 4 VOL37.FILE4 mm/dd/yyyy 15:51:52 TJOB023 000038 5 18 4 5 VOL37.FILE4 mm/dd/yyyy 15:51:53 TJOB023 000038 5 18 5 5 VOL38.FILE5 mm/dd/yyyy 15:51:55 TJOB023 000039 6 18 5 6 VOL38.FILE5 mm/dd/yyyy 15:51:56 TJOB023 000039 6 18 6 6 VOL39.FILE6 mm/dd/yyyy 15:51:57 TJOB023 000040 7 18 6 7 VOL39.FILE6 mm/dd/yyyy 15:51:58 TJOB023 000040 7 18 7 7 VOL40.FILE7 mm/dd/yyyy 15:52:00 TJOB023 000041 8 18 7 8 VOL40.FILE7 mm/dd/yyyy 15:52:01 TJOB023 000041 8 18 8 8 VOL41.FILE8 mm/dd/yyyy 15:52:03 TJOB023 000042 9 18 8 9 VOL41.FILE8 mm/dd/yyyy 15:52:05 TJOB023 000042 9 18 9 9 VOL42.FILE9 mm/dd/yyyy 15:52:07 TJOB023 000043 10 18 9 10 VOL42.FILE9 mm/dd/yyyy 15:52:08 TJOB023
|
Copyright © 2014 CA.
All rights reserved.
|
|