CA Dynam for VSE User Guide

General Reporting−DYNPRINT
Value EACSELOP Bit EACSELOP Value
REPORT5 11 16
REPORT6 10 32
REPORT7 9 64
REPORT8 8 128
In addition, SELECT=ALL used with a custom report turns on all EACSELOP
bits. To see how to take account of EACSELOP in your custom report, look at
any of the standard report source books.
To compile and execute the updated program under the control of DYNPRINT,
replace the REPORT command with COMPILE. In all other respects the
DYNPRINT syntax is identical. The source program must then be included or
copied into the job stream immediately following the /* that terminates the
DYNPRINT control statement stream. The DYNPRINT library must be in the
source search list when DYNPRINT is executed and the COMPILE facility is used
and the CA Earl source deck contains a COPY statement.
Example
Compile and execute a simple custom report.
// EXEC DYNPRINT,SIZE=256K
COMPILE CUSTOM01 REQ=SV
/*
USER 'CA INTERNATIONAL, INC' !Top Report Heading
CAICATL: FILE DYNREAD 300 RECORD=3232
!Identifies the Catalog
DEFINE INFOREC 1-3232 X
!Defines the function PLIST
COPY DYNINFOE USING INFOREC
!Copies data definition
SET DYNRQLEN = DYNINFLN
GET CAICATL
GOTO EOJ CAICATL = 'E'
REPORT 'READ/WRITE ERRORS BY VOLUME' !Report # 1
SELECT DYNRTCOD = 0 AND
! Only successful retrieves
DYGCDVCL = 'TAPE '
! Only want tapes, not disks
PRINT DYVVOL DYVSTAT DYGCCUU (DYVOOPNS) (DYVOERRS) (DYVIOPNS)
(DYVIERRS) DYVDRINT DYVTCLN DYVDCLN DYVADAT DYVREELS DYVMODE2
REPORT 'ERRORS BY CUU'
SELECT DYNRTCOD = 0 AND ! Only successful retrieves
DYGCDVCL = 'TAPE ' AND
! Only want tapes, not disks
(DYVOERRS > 0 OR DYVIERRS > 0)
! Volumes with errors
CONTROL DYGCCUU DYVOERRS DOWN DYVIERRS DOWN
PRINT DYGCCUU (DYVOOPNS) (DYVOERRS) (DYVIOPNS) (DYVIERRS) DYVDRINT
DYVTCLN DYVDCLN DYVADAT DYVREELS DYVMODE2 DYVVOL DYVSTAT
END
/*
/&
Chapter 9: CA Dynam Reporting Utilities 9–9