You could download the trial verion of EasySMF, which among other things
allows you to browse the type 30 sections. It would probably help if you
can see exactly what is in each field.
You can download it from:
http://www.smfreports.com/
Regards
Andrew Rowley
Black Hill Software
On 14/12/2013 10:36, Skip Robinson wrote:
We use an SMF exit modeled on SAMPLIB(SCEACTMS). For each step, it formats
various stats in the job message log for every device used. It works well
most of the time, but for a particular job in a particular where we really
need to see some values, the crucial lines are totally missing. I've
looked at the code and concluded that the only way we could be missing all
device detail is if the field SMF30EON is zero. The job step in question
does enormous I/O to tape.
PUTMSG3B DS 0H EXCP COUNTS
SLR R5,R5 GET COUNT OF
ICM R5,B'0011',SMF30EON EXCP SECTIONS <-------------
BZ PUTMS3BX IF NONE, SKIP RTN <-------------
BAL R14,MSGRTN PUT BLANK LINE OUT
MVC MSGAREA,LINE3B SET UP HEADER LINE
BAL R14,MSGRTN PUT LINE OUT
BAL R14,MSGRTN PUT BLANK LINE OUT
LR R4,R9 GET RECORD ADDRESS
A R4,SMF30EOF POINT TO ID SEGMENT
USING SMF30EXP,R4 ENABLE RECORD DSECT
EXCPLOOP DS 0H PRINT NON-ZERO EXCP COUNTS
PUSH USING
USING LINE3BD,R6 ENABLE DETAIL LINE DSECT
...
I've searched the web and found some references even in IBM-Main to a
'triplet' that handles multiple EXCP sections. But I haven't found any
example of how to utilize the additional fields. I suspect that the data I
need is available to the exit, but I need some guidance.
Offset
SMF30EOF
Length
SMF30ELN
Number
SMF30EON - Reports the number of EXCP sections on the current record.
This section also has additional control fields in the
‘header/self-defining’ section:
SMF30EOS reports the number of EXCP sections for the current period on
Subsequent Type 30 records. These are known as the ‘chained’ Type 30
records.
SMF30EOR also reports this same information but is only a 2 byte field
which can overflow so SMF30EOS is the preferred field for processing this
data.
.
.
JO.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
and...@blackhillsoftware.com
+61 413 302 386
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN