|
|
|
There are sample CA Earl and CA Easytrieve reports that will process the ADABAS Interface EXTDATA records.
Note: The EXTDATA record layout is described in the chapter "EXTDATA Reporting" in the User Guide.
OPTION LIST OFF
NOTE ******************************************************************
NOTE * REPORT ID: ERXTT001 *
NOTE * REPORT NAME: TAPE VOLUME ACCOUNTING INTERVAL REPORT *
NOTE * *
NOTE * DESCRIPTION: THIS REPORT WILL LIST ALL OF THE TAPES *
NOTE * IN A TAPE LIBRARY BASED UPON THE ACCOUNTING *
NOTE * INFORMATION. INFORMATION REPORTED: THE FIRST *
NOTE * DATASET NAME ON THE TAPE, THE CREATION DATE *
NOTE * AND TIME, THE SCRATCH DATE, AND THE LOCATION. *
NOTE * *
NOTE * RECORD TYPES: MRXTHDR, *
NOTE * MRXTSIET *
NOTE * *
NOTE * EXTDATA RECORD: SIET *
NOTE * *
NOTE * MACROS: *
NOTE ******************************************************************
OPTION PRINTER = 132
OPTION PAGE = 60
OPTION PRECISION = ALL
OPTION CPAGE = 60
HISTIN: FILE JARS RECORD=3697
DEF INAREA 1-3697 X
COPY MRXTHDR
COPY MRXTSIET
NOTE ******************************************************************
NOTE * SELECTING FROM HISTORY FILE EXTDATA, SPECIFICALLY SIET *
NOTE ******************************************************************
!
IF PROCID NOT = ':' OR
EXTTYPE NOT = 'SIET'
THEN GOTO START
ENDIF
!
NOTE ******************************************************************
NOTE * REPORT PROCESSING SECTION *
NOTE ******************************************************************
!
REPORT 'TAPE INVENTORY SNAPSHOT'
TITLE ' '
TITLE @1 'REPORT ID: ERXTT001' @54 'SYSTEM ID:' SID
TITLE @1 'SOURCE : TAPE CATALOG' @54 ' ACCOUNT:' EXTSIET_ACCOUNTING
TITLE ' '
!
CONTROL (EXTSIET_ACCOUNTING) SKIP
EXTSIET_VOLSER
!
PRINT
@1 ' '
EXTSIET_VOLSER
EXTSIET_DSN
EXTSIET_CRE_DATE
EXTSIET_CRE_TIME
EXTSIET_SCR_DATE
EXTSIET_VOL_LOC
END
LIST OFF
******************************************************************
* REPORT ID: EZXTT001 *
* REPORT NAME: TAPE VOLUME ACTIVITY *
* DESCRIPTION: THIS REPORT WILL LIST ALL OF THE TAPES *
* IN A TAPE LIBRARY BASED UPON THE ACCOUNTING *
* INFORMATION. INFORMATION REPORTED: THE FIRST *
* DATASET NAME ON THE TAPE, THE CREATION DATE *
* AND TIME, THE SCRATCH DATE, AND THE LOCATION. *
* *
* RECORD TYPES: MZXTHDR, *
* MZXTSIET *
* *
* EXTDATA RECORD: SIET *
* *
******************************************************************
PARM ABEXIT (SNAP) DEBUG (FLDCHK STATE)
FILE EXTDATA
%MZXTHDR
%MZXTSIET
*
JOB INPUT EXTDATA
IF PROCID = ':' AND EXTTYPE = 'SIET'
GOTO PROCESS_DATA
ELSE
GOTO JOB
END-IF
PROCESS_DATA
*
PRINT REPORT1
*
REPORT REPORT1 SPACE 0 PAGESIZE (60 60) LINESIZE 132 NOADJUST
*
SEQUENCE EXTSIET_ACCOUNTING EXTSIET_VOLSER
*
CONTROL EXTSIET_ACCOUNTING NEWPAGE EXTSIET_VOLSER NOPRINT
*
TITLE 01 COL 52 'TAPE INVENTORY LISTING'
TITLE 02 ' '
TITLE 03 COL 1 'REPORT ID: EZXTT001' COL 54 'SYSTEM ID ' SID
TITLE 04 COL 1 'SOURCE : TAPE CATALOG' COL 54 'ACCOUNT ' +
EXTSIET_ACCOUNTING
LINE EXTSIET_VOLSER ' ' +
EXTSIET_DSN ' ' +
EXTSIET_CRE_DATE ' ' +
EXTSIET_CRE_TIME ' ' +
EXTSIET_SCR_DATE ' ' +
EXTSIET_VOL_LOC
The sample output will look like this:
108/01/04 TAPE INVENTORY SNAPSHOT REPORT ID: ERXTT001 SYSTEM ID: XE44 SOURCE : TAPE CATALOG ACCOUNT: ------------------------------------------------------------------------------------------------------------------------------- VOLUME FIRST DSN CREATION CREATION SCRATCH VOLUME SERIAL ON VOLUME DATE TIME DATE LOCATION ------------------------------------------------------------------------------------------------------------------------------- 100572 CAI.DASD.DNGAL.TESTTAPE.D042187 87.111 13:24:34 00.000 DC 100674 CAI.DASD.DNSAW.ARC.A120986 86.343 13:01:54 00.000 DC 100689 BFCS.EPNE433.FILE1 89.104 12:01:51 00.000 DC 100721 CAI.DASD.BACKUP.D091786 86.260 11:56:15 00.000 DC 100726 CAI.DASD.DNSAW.ARC.A120986 86.343 13:34:02 00.000 DC 100743 BFCS.EPNE433.FILE1 89.104 12:05:04 00.000 DC 100756 CAI.DASD.DNSAW.ARC.A120986 86.343 13:16:44 00.000 DC 100792 MIKES.MNT8702.CICSV170.BACKUP 87.329 17:26:55 00.000 DC 100795 CAI.INSTALL 88.301 11:54:00 00.000 DC 100798 MIKES.MNT8702.CICSV370.BACKUP 87.329 17:17:06 00.000 DC 100800 MIKES.MNT8702.CICSV161.BACKUP 87.329 17:18:00 00.000 DC 100812 MIKES.MNT8702.CICSV 87.329 16:45:55 00.000 DC 100814 MIKES.MNT8702.CICSV 87.329 16:41:37 00.000 DC 100815 DAWYA01.TEST 87.302 14:29:45 00.000 DC 100819 MIKES.MNT8702.CICSV 87.329 16:35:01 00.000 DC 100822 SHACH02.BK72.SOURCE 87.329 16:20:37 00.000 DC 100830 CAIPRFBU.JARS.V51BETA.PROFILE 88.047 17:49:09 00.000 DC 100836 CAI.SYSQA.QA.DSS.SCHD8811.BACKUP 88.344 16:35:22 00.000 DC 100922 CAI.DASD.DNSAW.ARC.A060587 87.156 18:17:15 00.000 DC 100949 MVSSYS.ARCHLOG1.B0000090 91.046 14:33:36 00.000 DC 100953 CAI.OPERA.SYSPRINT.D051187 87.131 18:47:00 00.000 DC 100978 CAI.TLMS.R53.BKUP.BETA.LISTINGS 87.137 11:38:52 00.000 DC 101016 TRANBACK.TRAN.BASE.CNTLA2I2 88.158 17:32:06 00.000 DC 101034 MVSSYS.ARCHLOG2.B0000334 91.315 13:31:11 00.000 DC 101044 CAI.SYSQA.QA.DSS.SCHD8811.BACKUP 88.344 16:28:48 00.000 DC 101054 CAI.IMP.SYSPRINT.D021178 87.042 14:40:50 00.000 DC 101130 DEMO.CA7.R29.LOGTAPE.G0001V00 89.151 17:01:44 00.000 DC 101133 DEMO.CA7.R29.LOGARCH.G0001V00 89.151 17:03:25 00.000 DC 101164 SYS.SMFDATA.MS031287.T1608P1 87.071 16:11:42 00.000 DC 101187 SYS.SMFDATA.MS031287.T1608A1 87.071 16:11:45 00.000 DC 101195 BLURI01.QAUNI.PROFILE 88.315 15:28:21 00.000 DC 101251 CAI.TLMS.R52.CAIHELP 87.152 19:43:06 00.000 DC 101279 CAI.TLMS.R5310.G8805.LISTINGS 88.162 11:32:16 00.000 DC 101295 CAI.TLMS.R5310.G8805.LISTINGS 88.162 11:28:17 00.000 DC 101396 CAI.TLMS.R5310.G8805.LISTINGS 88.162 11:45:51 00.000 DC 101399 APDAD.MV71.LD 88.363 16:13:08 00.000 DC 101402 CAI.TLMS.R5310.G8805.LISTINGS 88.162 11:54:18 00.000 DC 101411 ASM2.ARCH.MASTER.TAPE 88.211 17:12:46 00.000 DC 101416 CAI.TLMS.R53.BKUP.BETA.LISTINGS 87.137 11:40:08 00.000 DC 101457 CAI.DASD.BACKUP.D122286 86.356 11:41:13 00.000 DC 101520 MVSSYS.ARCHLOG2.B0000169 91.136 23:57:22 00.000 DC 101528 APDAD.DEMOJCL 88.357 10:32:53 00.000 DC 101534 MVSSYS.ARCHLOG1.B0000166 91.136 23:17:14 00.000 DC 101572 MVSSYS.ARCHLOG2.B0000389 91.354 17:23:51 00.000 DC 101587 MARKN.BK300601.V1 87.310 08:28:56 00.000 DC 101595 WILMI01.BACK8701.DISTLOAD 87.070 20:02:19 00.000 DC 101657 CAI.TLMS.R5310.BKUP.BETA.LISTINGS 87.288 20:23:43 00.000 DC 101659 CAI.TLMS.R5310.BKUP.BETA.LISTINGS 87.288 20:26:27 00.000 DC 101719 CAI.TLMS.R53.BKUP.BETA.LISTINGS 87.137 12:01:47 00.000 DC 101722 CAI.DASD.DNGAL.TESTTAPE.D041587 87.105 14:31:20 00.000 DC
| Copyright © 2012 CA. All rights reserved. |
|