The following example produces a VMF report with volume access.
COPY TLEARL06 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! DEMO REPORT VMF ACCESS BY VOLUME ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! COPY EARLDEFS SET TYPRUN = R_VOLUME GETTAG: GET TAPEDB IF TAPEDB = 'E' GOTO EOJ 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 VOLUME' SELECT ALL PRINT VOLSER BASEVOL VOLSEQ VOLUME_COUNT FILESEQ FILECNT DSN P_CDATE P_CTIME CJOB
mm/dd/yy DEMO REPORT VMF ACCESS BY VOLUME PAGE 1 ----------------------------------------------------------------------------------------------------------------------------- VOLSER BASE VOL VOLUME FILE FILE DATA SET NAME CREATE CREATE CREATE VOLSER SEQ COUNT SEQ CNT DATE TIME JOBNAME ----------------------------------------------------------------------------------------------------------------------------- 000001 000001 0 0 0 0 00:00:00 000002 000001 2 2 1 1 VOL01.FILE1 mm/dd/yyyy 14:34:15 TJOB001 000003 000003 1 3 1 1 VOL03.FILE1 mm/dd/yyyy 14:37:18 TJOB002 000004 000003 2 3 1 1 VOL03.FILE1 mm/dd/yyyy 14:37:20 TJOB002 000005 000003 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 000006 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 000008 2 4 1 1 VOL08.FILE1 mm/dd/yyyy 14:44:24 TJOB004 000010 000008 3 4 1 1 VOL08.FILE1 mm/dd/yyyy 14:44:25 TJOB004 000011 000008 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 000029 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 000032 000031 2 3 4 4 VOL31.FILE4 mm/dd/yyyy 15:39:06 TJOB022 000033 000031 3 3 4 5 VOL31.FILE4 mm/dd/yyyy 15:39:07 TJOB022 000034 000034 1 18 1 1 VOL34.FILE1 mm/dd/yyyy 15:51:44 TJOB023 000035 000034 2 18 1 2 VOL34.FILE1 mm/dd/yyyy 15:51:45 TJOB023 000036 000034 3 18 2 3 VOL35.FILE2 mm/dd/yyyy 15:51:47 TJOB023 000037 000034 4 18 3 4 VOL36.FILE3 mm/dd/yyyy 15:51:49 TJOB023 000038 000034 5 18 4 5 VOL37.FILE4 mm/dd/yyyy 15:51:53 TJOB023 000039 000034 6 18 5 6 VOL38.FILE5 mm/dd/yyyy 15:51:56 TJOB023 000040 000034 7 18 6 7 VOL39.FILE6 mm/dd/yyyy 15:51:58 TJOB023 000041 000034 8 18 7 8 VOL40.FILE7 mm/dd/yyyy 15:52:01 TJOB023 000042 000034 9 18 8 9 VOL41.FILE8 mm/dd/yyyy 15:52:05 TJOB023 000043 000034 10 18 9 10 VOL42.FILE9 mm/dd/yyyy 15:52:08 TJOB023 000044 000034 11 18 10 11 VOL43.FILE10 mm/dd/yyyy 15:52:13 TJOB023 000045 000034 12 18 11 12 VOL44.FILE11 mm/dd/yyyy 15:52:16 TJOB023 000046 000034 13 18 12 13 VOL45.FILE12 mm/dd/yyyy 15:52:19 TJOB023 000047 000034 14 18 13 14 VOL46.FILE13 mm/dd/yyyy 15:52:22 TJOB023 000048 000034 15 18 14 15 VOL47.FILE14 mm/dd/yyyy 15:52:27 TJOB023 000049 000034 16 18 15 16 VOL48.FILE15 mm/dd/yyyy 12:11:34 TJOB024 000050 000034 17 18 16 17 VOL49.FILE16 mm/dd/yyyy 12:55:09 TJOB025 000051 000034 18 18 17 17 VOL51.FILE17 mm/dd/yyyy 14:15:13 TJOB025 000052 000052 1 1 1 1 VOL00.FILE1 mm/dd/yyyy 14:47:52 TJOB100 000053 000052 2 11 1 2 VOL00.FILE1 mm/dd/yyyy 14:47:53 TJOB100 000054 000052 3 11 2 3 VOL00.FILE2 mm/dd/yyyy 15:32:07 TJOB100
|
Copyright © 2014 CA.
All rights reserved.
|
|