Hi everybody,
more than one guy asked for the solution so here the basic. Next msgs for
JCL and REXX (can't go over 1000 lines).
Take in count this is only a POC and I was not able to find out any 20
subtype nor subtype 21 with second and third section available (only first
one).
So the SORT step to print the dsect is only valid for SMF119, subtype 21
and first DSECT.
The basic idea is using REXX to parse raw SMF119 and produce multiple VB
records for each with:
START LEN Description
00001 20 Same as original SMF records without VBS RDW with VB LL
so at col 19 there's the subtype
00021 64 SMF119IDENT - Actual length is 64 (x'40' - LL got from triplet so
will change according)
00085 08 Originating triplet fields (OFFS/LEN/NR)
00093 02 Relative number in triplet. Used to select DSECT to map the
subsequent specific data
00095 04 Original absolute record number (to look at the originating one
in case of debug)
00099 ?? Specific data section
So, in theory, a SMF119 subtype 21 with the three DSECT available will be
written as three different records with:
#1
00001-00092 same for the three of them
00093-00094 x'0001'
00095-00098 same for the three of them
00099-for x'0090' SMF119TN_NT_DSECT
#2
00001-00092 same for the three of them
00093-00094 x'0002'
00095-00098 same for the three of them
00099-for x'0030' SMF119TN_NTR_DSECT
#3
00001-00092 same for the three of them
00093-00094 x'0003'
00095-00098 same for the three of them
00099-for x'0024' SMF119TN_NTB_DSECT
After that, SORT step can choose the record mapping depending on subtype
(19,2 or 23,2 taking in count RDW, SYMNAMES=HDSUBTYPE) and triplet relative
number (93,2 or 97,2 taking in count RDW, SYMNAMES=TRIP_OCCURR).
In my sample dataset there was not a record with IPV6 only IPV4 so I hope
the mapping for IPV6 is good enough.
It's a try, so please take it as is.
After trying and verified it (especially the basic statement), if anybody
would like me to write the sort step for other dsects, please provide a
sample record set with valid data.
Hope this helps.
Max
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
Mail
priva di virus. www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
