|
|
|
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: ERXTA001 *
NOTE * REPORT NAME: ADABAS COMMAND SUMMARY *
NOTE * DESCRIPTION: THIS SUMMARY REPORT WILL COLLATE AND SUMMARIZE*
NOTE * ADABAS ACTIVITY FROM AN ADABAS COMMAND LOG *
NOTE * SUMMARIZING KEYS ARE THE ADABAS JOB NAME, *
NOTE * THE CLIENT USER ID, THE FILE NUMBER AND *
NOTE * COMMAND ID. THE REPORT WILL SHOW THE NUMBER *
NOTE * OF COMMANDS OF EACH TYPE, THE NUMBER OF *
NOTE * DESCRIPTORS UPDATED, THE TOTAL NUMBER OF *
NOTE * I/OS AND THE APPROXIMATE CPU TIME. *
NOTE * *
NOTE * RECORD TYPES: MRXTHDR, *
NOTE * MRXTSIEA *
NOTE * *
NOTE * EXTDATA RECORD: SIEA *
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 MRXTSIEA
NOTE ******************************************************************
NOTE * SELECTING FROM HISTORY FILE EXTDATA, SPECIFICALLY SIEA *
NOTE ******************************************************************
!
IF PROCID NOT = ':' OR
EXTTYPE NOT = 'SIEA'
THEN GOTO START
ENDIF
!
NOTE ******************************************************************
NOTE * REPORT PROCESSING SECTION *
NOTE ******************************************************************
!
REPORT 'ADABAS ACTIVITY SUMMARY'
TITLE ' '
TITLE @1 'REPORT ID: ERXTA001' @54 'SYSTEM ID:' SID
TITLE @1 'SOURCE : ADABAS CLOG' @54 ' ADABAS:' EXTSIEA_JOB_NAME
TITLE @54 ' USER ID:' EXTSIEA_USER_ID
TITLE @54 ' ACCOUNT:' EXTSIEA_ACCOUNTING
TITLE ' '
!
CONTROL (EXTSIEA_JOB_NAME) (EXTSIEA_USER_ID) SKIP
(EXTSIEA_COMMAND) (EXTSIEA_FILE_NUMBER)
!
PRINT TOTALS ONLY
@1 ' '
EXTSIEA_COMMAND
EXTSIEA_FILE_NUMBER
(EXTSIEA_REC_COUNT)
(EXTSIEA_DESC_UPDATES)
(EXTSIEA_TOTAL_IOS)
(EXTSIEA_CPU_TIME)
END
LIST OFF
******************************************************************
* REPORT ID: EZXTA001 *
* REPORT NAME: ADABAS COMMAND SUMMARY *
* DESCRIPTION: THIS SUMMARY REPORT WILL COLLATE AND SUMMARIZE*
* ADABAS ACTIVITY FROM AN ADABAS COMMAND LOG *
* SUMMARIZING KEYS ARE THE ADABAS JOB NAME, *
* THE CLIENT USER ID, THE FILE NUMBER AND *
* COMMAND ID. THE REPORT WILL SHOW THE NUMBER *
* OF COMMANDS THAT MATCH THE CRITERIA, THE *
* NUMBER OF DESCRIPTORS UPDATED, THE TOTAL *
* NUMBER OF I/OS AND THE APPROXIMATE CPU TIME. *
* *
* RECORD TYPES: MZXTHDR, *
* MZXTSIEA *
* *
* EXTDATA RECORD: SIEA *
* *
******************************************************************
PARM ABEXIT (SNAP) DEBUG (FLDCHK STATE)
FILE EXTDATA
%MZXTHDR
%MZXTSIEA
*
JOB INPUT EXTDATA
IF PROCID = ':' AND EXTTYPE = 'SIEA'
GOTO PROCESS_DATA
ELSE
GOTO JOB
END-IF
PROCESS_DATA
*
PRINT REPORT1
*
REPORT REPORT1 SUMMARY SPACE 0 PAGESIZE (60 60) LINESIZE 132 NOADJUST +
SUMCTL DTLCOPY
*
SEQUENCE EXTSIEA_JOB_NAME EXTSIEA_USER_ID EXTSIEA_COMMAND +
EXTSIEA_FILE_NUMBER
*
CONTROL EXTSIEA_JOB_NAME EXTSIEA_USER_ID NEWPAGE +
EXTSIEA_COMMAND EXTSIEA_FILE_NUMBER
*
TITLE 01 COL 51 'ADABAS ACTIVITY SUMMARY'
TITLE 02 ' '
TITLE 03 COL 1 'REPORT ID: EZXTA001' COL 54 'SYSTEM ID ' SID
TITLE 04 COL 1 'SOURCE : ADABAS' COL 54 'ADABAS ' +
EXTSIEA_JOB_NAME
TITLE 05 COL 54 'USER ID ' +
EXTSIEA_USER_ID
TITLE 06 COL 54 'ACCOUNT ' +
EXTSIEA_ACCOUNTING
LINE EXTSIEA_COMMAND ' ' +
EXTSIEA_FILE_NUMBER ' ' +
EXTSIEA_REC_COUNT ' ' +
EXTSIEA_DESC_UPDATE ' ' +
EXTSIEA_TOTAL_IOS ' ' +
EXTSIEA_CPU_TIME
The sample output looks like this:
108/01/04 ADABAS ACTIVITY SUMMARY REPORT ID: ERXTA001 SYSTEM ID: XAD1 SOURCE : ADABAS CLOG ADABAS: ABEJUA1 USER ID: TSU05326 ACCOUNT: FITCH ------------------------------------------------------------------------------------------------------------------------------- COMMAND FILE COMMAND DESCRIPTORS TOTAL CPU TIME CODE NUMBER COUNT UPDATED I/OS HOURS ------------------------------------------------------------------------------------------------------------------------------- CL 0 2 0 0 0.00017 -------- -------------- -------------- -------------- CL 2 0 0 0.00017 -------- -------------- -------------- -------------- L3 11 7 0 22 0.00635 L3 14 4 0 13 0.00375 -------- -------------- -------------- -------------- L3 11 0 35 0.01010 -------- -------------- -------------- -------------- L9 11 2 0 3 0.00109 L9 14 1 0 2 0.00068 -------- -------------- -------------- -------------- L9 3 0 5 0.00177 -------- -------------- -------------- -------------- OP 0 2 0 3 0.00115 -------- -------------- -------------- -------------- OP 2 0 3 0.00115 -------- -------------- -------------- -------------- RC 0 15 0 0 0.00125 -------- -------------- -------------- -------------- RC 15 0 0 0.00125 -------- -------------- -------------- -------------- S1 11 21 0 35 0.02129 S1 14 20 0 22 0.01461 -------- -------------- -------------- -------------- S1 41 0 57 0.03590 -------- -------------- -------------- -------------- -------- -------------- -------------- -------------- 74 0 100 0.05034 -------- -------------- -------------- -------------- -------- -------------- -------------- -------------- 74 0 100 0.05034 -------- -------------- -------------- --------------
| Copyright © 2012 CA. All rights reserved. |
|