|
|
|
There are sample CA Earl and CA Easytrieve reports that will process the NETVIEW 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: ERXTN001 *
NOTE * REPORT NAME: NETVIEW SESSION DETAIL REPORT *
NOTE * *
NOTE * DESCRIPTION: THIS REPORT ITEMIZES ALL NETVIEW SESSIONS THAT*
NOTE * APPEAR IN A CA JARS ACCOUNTING FILE.*
NOTE * THE DATA ITEMS REPORTED ON IN THE REPORT ARE *
NOTE * START AND END TIME, THE LINE USE TIME, THE *
NOTE * TERMINAL AND APPLICATION ID, AS WELL AS THE *
NOTE * BYTES TRANSMITTED EITHER WAY. *
NOTE * *
NOTE * RECORD TYPES: MRXTHDR, *
NOTE * MRXTSIEN *
NOTE * *
NOTE * EXTDATA RECORD: SIEN *
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 MRXTSIEN
COPY JARRAY
COPY DEFDATE1
DEF SDATE (X 8) = NONE 'START' 'DATE'
DEF EDATE (X 8) = NONE 'END' 'DATE'
NOTE ******************************************************************
NOTE * SELECTING FROM HISTORY FILE EXTDATA, SPECIFICALLY SIEN *
NOTE ******************************************************************
!
IF PROCID NOT = ':' OR
EXTTYPE NOT = 'SIEN'
THEN GOTO START
ENDIF
!
SET CAI_DATE = EXTSIEN_START_JDATE
PERFORM DATE_CONVERSION
SET SDATE = CAI_OUTDATE
SET CAI_DATE = EXTSIEN_END_JDATE
PERFORM DATE_CONVERSION
SET EDATE = CAI_OUTDATE
!
DATE_CONVERSION: PROC
NOTE ******************************************************************
NOTE * THIS PROCEDURE CONVERTS A JULIAN DATE TO A GREGORIAN DATE. *
NOTE ******************************************************************
SET CAI_OUTDATE = ' '
GOTO CAI_NODATE (CAI_DAYS = 0)
SET CAI_R1 = 1
SET CAI_NDAYS = CAI_DAYS
SET CAI_DTAB (/2/) = 28
SET C_YEAR (3.0) = (CAI_YEAR / 4)
SET C_YEAR = C_YEAR * 4
IF C_YEAR = CAI_YEAR THEN
SET CAI_DTAB (/2/) = 29
ENDIF
SET CAI_OUTDATE = '00/00/00'
CAI_DATE_LOOP:
IF CAI_NDAYS < 0 THEN GOTO CAI_LOOP_END
ENDIF
IF CAI_NDAYS = 0 THEN GOTO CAI_LOOP_END
ENDIF
IF CAI_R1 > 12 THEN GOTO CAI_LOOP_END
ENDIF
SET CAI_NDAYS = (CAI_NDAYS - CAI_DTAB(/CAI_R1/))
SET CAI_MNTH = CAI_R1
SET CAI_R1 = CAI_R1 + 1
GOTO CAI_DATE_LOOP
CAI_LOOP_END:
SET CAI_OUTDD = (CAI_NDAYS + CAI_DTAB(/CAI_MNTH/))
SET CAI_OUTMM = CAI_MNTH
SET CAI_OUTYY = CAI_YEAR
CAI_NODATE:
ENDPROC
!
NOTE ******************************************************************
NOTE * REPORT PROCESSING SECTION *
NOTE ******************************************************************
!
REPORT 'NETVIEW SESSION DETAIL'
TITLE ' '
TITLE @1 'REPORT ID: ERXTN001' @54 'SYSTEM ID:' SID
TITLE @1 'SOURCE : SMF 39' @54 ' ACCOUNT:' EXTSIEN_ACCOUNTING
TITLE ' '
!
CONTROL (SID) (EXTSIEN_ACCOUNTING) SKIP
EXTSIEN_START_JDATE EXTSIEN_START_TIME
!
PRINT
@1 ' '
SDATE
EXTSIEN_START_TIME
EDATE
EXTSIEN_END_TIME
EXTSIEN_LINEUSE_TIME
EXTSIEN_TERM_ID
EXTSIEN_APPL_CODE
EXTSIEN_BYTES_IN
EXTSIEN_BYTES_OUT
END
LIST OFF
******************************************************************
* REPORT ID: EZXTN001 *
* REPORT NAME: NETVIEW DETAIL REPORT *
* DESCRIPTION: THIS REPORT ITEMIZES ALL NETVIEW SESSIONS THAT*
* APPEAR IN A CA JARS ACCOUNTING FILE.*
* THE DATA ITEMS REPORTED ON IN THE REPORT ARE *
* START AND END TIME, THE LINE USE TIME, THE *
* TERMINAL AND APPLICATION ID, AS WELL AS THE *
* BYTES TRANSMITTED EITHER WAY. *
* *
* RECORD TYPES: MZXTHDR, *
* MZXTSIEN *
* *
* EXTDATA RECORD: SIEN *
* *
******************************************************************
PARM ABEXIT (SNAP) DEBUG (FLDCHK STATE)
FILE EXTDATA
%MZXTHDR
%MZXTSIEN
*
DEFINE SDATE W 6 N VALUE 0 HEADING('START' 'DATE') MASK '99/99/99'
DEFINE EDATE W 6 N VALUE 0 HEADING('END' 'DATE') MASK '99/99/99'
*
JOB INPUT EXTDATA
IF (PROCID NE ':') OR (EXTTYPE NE 'SIEN')
GOTO JOB
END-IF
*
%JULCONVT EXTSIEN_START_JDATE SDATE
%JULCONVT EXTSIEN_END_JDATE EDATE
*
PRINT REPORT1
*
REPORT REPORT1 SUMMARY SPACE 0 PAGESIZE (60 60) LINESIZE 132 NOADJUST +
SUMCTL DTLCOPY
*
SEQUENCE SID EXTSIEN_ACCOUNTING EXTSIEN_START_JDATE +
EXTSIEN_START_TIME
*
CONTROL EXTSIEN_ACCOUNTING NEWPAGE +
EXTSIEN_START_JDATE EXTSIEN_START_TIME
*
TITLE 01 COL 51 'NETVIEW SESSION DETAIL'
TITLE 02 ' '
TITLE 03 COL 1 'REPORT ID: EZXTN001' COL 54 'SYSTEM ID ' SID
TITLE 04 COL 1 'SOURCE : NETVIEW' COL 54 'ACCOUNT ' +
EXTSIEN_ACCOUNTING
LINE SDATE ' ' +
EXTSIEN_START_TIME ' ' +
EDATE ' ' +
EXTSIEN_END_TIME ' ' +
EXTSIEN_LINEUSE_TIME ' ' +
EXTSIEN_TERM_ID ' ' +
EXTSIEN_APPL_CODE ' ' +
EXTSIEN_BYTES_IN ' ' +
EXTSIEN_BYTES_OUT
The sample output looks like this:
121/01/04 NETVIEW SESSION DETAIL REPORT ID: ERXTN001 SYSTEM ID: SCNN SOURCE : SMF 39 ACCOUNT: ------------------------------------------------------------------------------------------------------------------------------- START START END END LINE USAGE TERMINAL APPLICATION BYTES BYTE DATE TIME DATE TIME TIME ID CODE IN OU ------------------------------------------------------------------------------------------------------------------------------- 91/04/01 18:44:50.8900 91/04/01 23:55:01.0200 18610.1200 ________ HOST59 0 0 91/04/01 18:51:27.2500 91/04/01 23:55:03.1200 18215.8600 ________ HOST59 3 41 91/04/01 18:54:02.4400 91/04/01 23:55:06.2600 18063.8100 ________ HOST59 3 41 91/04/01 18:54:02.4400 91/04/01 23:55:06.2600 18063.8100 ________ HOST59 3 41 91/04/01 18:54:04.5400 91/04/01 23:55:07.3100 18062.7700 ________ HOST59 532 59 91/04/01 18:54:10.8300 91/04/01 23:55:09.4100 18058.5700 ________ HOST59 83 44 91/04/01 18:54:13.9800 91/04/01 23:55:12.5500 18058.5700 ________ HOST59 0 0 91/04/01 18:54:13.9800 91/04/01 23:55:12.5500 18058.5700 ________ HOST59 3 41 91/04/01 18:54:17.1200 91/04/01 23:55:13.6000 18056.4700 ________ HOST59 0 0 91/04/01 18:54:18.1700 91/04/01 23:55:15.7000 18057.5200 ________ HOST59 3 41 91/04/01 18:54:19.2200 91/04/01 23:55:16.7500 18057.5200 ________ HOST59 532 59 91/04/01 18:54:22.3700 91/04/01 23:55:18.8500 18056.4700 ________ HOST59 1268 74 91/04/01 18:54:25.5100 91/04/01 23:55:20.9400 18055.4300 ________ HOST59 3 41 91/04/01 18:54:26.5600 91/04/01 23:55:23.0400 18056.4700 ________ HOST59 292 50 91/04/01 18:54:29.7100 91/04/01 23:55:26.1900 18056.4700 ________ HOST59 0 0 91/04/01 18:54:29.7100 91/04/01 23:55:26.1900 18056.4700 ________ HOST59 0 0 91/04/01 18:54:32.8500 91/04/01 23:55:28.2800 18055.4300 ________ HOST59 83 44 91/04/01 18:54:32.8500 91/04/01 23:55:29.3300 18056.4700 ________ HOST59 3 41 91/04/01 18:54:36.0000 91/04/01 23:55:31.4300 18055.4300 ________ HOST59 3 41 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:39.1400 91/04/01 23:55:34.5700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:34.5700 18054.3800 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:35.6200 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:35.6200 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:34.5700 18054.3800 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:35.6200 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:35.6200 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:35.6200 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:35.6200 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:35.6200 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:35.6200 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:35.6200 18055.4300 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:34.5700 18054.3800 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:34.5700 18054.3800 ________ HOST59 0 0 91/04/01 18:54:40.1900 91/04/01 23:55:34.5700 18054.3800 ________ HOST59 0 0 91/04/01 18:54:41.2400 91/04/01 23:55:35.6200 18054.3800 ________ HOST59 0 0 91/04/01 18:54:41.2400 91/04/01 23:55:36.6700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:41.2400 91/04/01 23:55:36.6700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:41.2400 91/04/01 23:55:36.6700 18055.4300 ________ HOST59 0 0 91/04/01 18:54:41.2400 91/04/01 23:55:36.6700 18055.4300 ________ HOST59 0 0
| Copyright © 2012 CA. All rights reserved. |
|