JCL:
// EXPORT SYMLIST=*
// SET SMFIN=MYSMF
// SET SMFOUT=MYOUT
//*-------------------------------------------------------------------*
//* *
//*-------------------------------------------------------------------*
//ST010 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *,SYMBOLS=JCLONLY
DELETE &SMFOUT
IF MAXCC=8 THEN SET MAXCC=0
/*
//*-------------------------------------------------------------------*
//* VERTICALIZE SMF119 RECORDS FOR EVERY TRIPLET *
//*-------------------------------------------------------------------*
//* OUTPUT FORMAT (VB RECORD): *
//* STRT-LL DESCRIPTION *
//* 0001-20 SAME AS ORIGINAL SMF RECORD WITHOUT VBS RDW WITH VB LL *
//* AT 19 SMF119HDSUBTYPE *
//* 0021-64 SMF119IDENT - ACTUAL LENGTH 64 (LL GOT FROM TRIPLET) *
//* 0085-08 ORIGINATING TRIPLET FIELDS (OFFS/LEN/NR) *
//* 0093-02 RELATIVE NUMBER IN TRIPLET. USED TO SELECT DSECT TO MAP *
//* 0095-04 ORIGINAL ABSOLUTE RECORD NUMBER *
//* 0099-?? SPECIFIC DATA SECTION *
//*-------------------------------------------------------------------*
//ST020 EXEC PGM=IKJEFT01
//SYSPROC DD DSN=LIB.REXX,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SMF DD DISP=SHR,DSN=&SMFIN
//OUT DD DSN=&SMFOUT,
// DISP=(,CATLG),SPACE=(TRK,(100,100),RLSE),
// DCB=(LRECL=32000,RECFM=VB,DSORG=PS)
//SYSTSIN DD *
%SMF119
/*
//*-------------------------------------------------------------------*
//* PRINT SMF119TN_NT DSECT *
//*-------------------------------------------------------------------*
//ST030 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=MYOUT,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYMNAMES DD *
RDW,1,4
HDFLAGS,5,1
HDTYPE,6,1
HDTIME,7,4
HDDATE,11,4
HDSID,15,4
HDSSI,19,4
HDSUBTYPE,23,2
TI_SYSNAME,25,8
TI_SYSPLEXNAME,33,8
TI_STACK,41,8
TI_RELEASEID,49,8
TI_COMP,57,8
TI_ASNAME,65,8
TI_USERID,73,8
TI_ASID,81,4
TI_FILL2,81,2
TI_ASID2,83,2
TI_REASON,85,1
TI_RECORDID,86,1
TI_RSVD,87,2
TRIP_DATA,89,8
TRIP_OFFSET,89,4
TRIP_LEN,93,2
TRIP_NUME,95,2
TRIP_OCCURR,97,2
ORIG_RECNO,99,4
TN_NT_DSECT,103,144
TN_NTLU,103,8
TN_NTAPPL,111,8
TN_NTLDEV,119,4
TN_NTRIP,123,16
TN_NTRIPRSVD,123,16
TN_NTRIPRSVD_1,123,2
TN_NTRIPRSVD_2,125,2
TN_NTRIPRSVD_3,127,2
TN_NTRIPRSVD_4,129,2
TN_NTRIPRSVD_5,131,2
TN_NTRIPRSVD_6,133,2
TN_NTRIPRSVD_7,135,2
TN_NTRIPRSVD_8,137,2
TN_NTRIPRSVD10,123,10
TN_NTRIPRFMT,133,2
TN_NTRIP_IPV4,135,4
TN_NTRIP_IPV4_1,135,1
TN_NTRIP_IPV4_2,136,1
TN_NTRIP_IPV4_3,137,1
TN_NTRIP_IPV4_4,138,1
TN_NTLIP,139,16
TN_NTLIPRSVD,139,16
TN_NTLIPRSVD_1,139,2
TN_NTLIPRSVD_2,141,2
TN_NTLIPRSVD_3,143,2
TN_NTLIPRSVD_4,145,2
TN_NTLIPRSVD_5,147,2
TN_NTLIPRSVD_6,149,2
TN_NTLIPRSVD_7,151,2
TN_NTLIPRSVD_8,153,2
TN_NTLIPRSVD10,139,10
TN_NTLIPRFMT,149,2
TN_NTLIP_IPV4,151,4
TN_NTLIP_IPV4_1,151,1
TN_NTLIP_IPV4_2,152,1
TN_NTLIP_IPV4_3,153,1
TN_NTLIP_IPV4_4,154,1
TN_NTRPORT,155,2
TN_NTLPORT,157,2
TN_NTHOSTNM,159,8
TN_NTINBYTE,167,8
TN_NTOUTBYTE,175,8
TN_NTITIME,183,4
TN_NTIDATE,187,4
TN_NTTTIME,191,4
TN_NTTDATE,195,4
TN_NTDUR,199,4
TN_NTSTYPE,203,1
TN_NTLUSEL,204,1
TN_NTSSL,205,1
TN_NTRSVD1,206,1
TN_NTCOPT,207,1
TN_NTRSVD2,208,1
TN_NT32OPT,209,2
TN_NTRCODE,211,8
TN_NTLMODE,219,8
TN_NTDEVT,227,20
/*
//SYSIN DD *
INCLUDE COND=(HDSUBTYPE,BI,EQ,+21,AND,
TRIP_OCCURR,BI,EQ,+1) FIRST DSECT OF SUBTYPE 21
INREC IFTHEN=(WHEN=INIT,
OVERLAY=(300:40X, IPV6 MAX SIZE
340:40X, IPV6 MAX SIZE
380:20X, SESSION TYPE
400:20X, LU SELECTION METHOD
420:40X, SSL STATUS
460:160X, CONNECTION OPTIONS
620:180X)), TN3270E CONNECTION OPTIONS
*
IFTHEN=(WHEN=(TN_NTRIPRFMT,CH,EQ,X'FFFF'),
OVERLAY=(300:TN_NTRIP_IPV4_1,BI,EDIT=(TTT),
C'.',
TN_NTRIP_IPV4_2,BI,EDIT=(TTT),
C'.',
TN_NTRIP_IPV4_3,BI,EDIT=(TTT),
C'.',
TN_NTRIP_IPV4_4,BI,EDIT=(TTT)),HIT=NEXT),
*
IFTHEN=(WHEN=(TN_NTRIPRFMT,CH,NE,X'FFFF'),
OVERLAY=(300:TN_NTRIPRSVD_1,TRAN=HEX,
C':',
TN_NTRIPRSVD_2,TRAN=HEX,
C':',
TN_NTRIPRSVD_3,TRAN=HEX,
C':',
TN_NTRIPRSVD_4,TRAN=HEX,
C':',
TN_NTRIPRSVD_5,TRAN=HEX,
C':',
TN_NTRIPRSVD_6,TRAN=HEX,
C':',
TN_NTRIPRSVD_7,TRAN=HEX,
C':',
TN_NTRIPRSVD_8,TRAN=HEX),HIT=NEXT),
*
IFTHEN=(WHEN=(TN_NTLIPRFMT,CH,EQ,X'FFFF'),
OVERLAY=(340:TN_NTLIP_IPV4_1,BI,EDIT=(TTT),
C'.',
TN_NTLIP_IPV4_2,BI,EDIT=(TTT),
C'.',
TN_NTLIP_IPV4_3,BI,EDIT=(TTT),
C'.',
TN_NTLIP_IPV4_4,BI,EDIT=(TTT)),HIT=NEXT),
*
IFTHEN=(WHEN=(TN_NTLIPRFMT,CH,NE,X'FFFF'),
OVERLAY=(340:TN_NTLIPRSVD_1,TRAN=HEX,
C':',
TN_NTLIPRSVD_2,TRAN=HEX,
C':',
TN_NTLIPRSVD_3,TRAN=HEX,
C':',
TN_NTLIPRSVD_4,TRAN=HEX,
C':',
TN_NTLIPRSVD_5,TRAN=HEX,
C':',
TN_NTLIPRSVD_6,TRAN=HEX,
C':',
TN_NTLIPRSVD_7,TRAN=HEX,
C':',
TN_NTLIPRSVD_8,TRAN=HEX),HIT=NEXT),
*
IFTHEN=(WHEN=(TN_NTSTYPE,CH,EQ,X'00'),
OVERLAY=(380:C'UNKNOWN'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSTYPE,CH,EQ,X'01'),
OVERLAY=(380:C'TN3270'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSTYPE,CH,EQ,X'02'),
OVERLAY=(380:C'TN3270E'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSTYPE,CH,EQ,X'03'),
OVERLAY=(380:C'LINEMODE'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSTYPE,CH,EQ,X'04'),
OVERLAY=(380:C'DBCS TRANSFORM'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSTYPE,CH,EQ,X'05'),
OVERLAY=(380:C'BINARY'),HIT=NEXT),
*
IFTHEN=(WHEN=(TN_NTLUSEL,CH,EQ,X'00'),
OVERLAY=(400:C'CHOSEN BY SERVER'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTLUSEL,CH,EQ,X'01'),
OVERLAY=(400:C'CHOSEN BY CLIENT'),HIT=NEXT),
*
IFTHEN=(WHEN=(TN_NTSSL,CH,EQ,X'00'),
OVERLAY=(420:C'NON SSL SESSION'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSSL,CH,EQ,X'01'),
OVERLAY=(420:C'SERVER AUTHENTICATION ONLY'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSSL,CH,EQ,X'02'),
OVERLAY=(420:C'SERVER AND CLIENT AUTH (NO SAF)'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSSL,CH,EQ,X'03'),
OVERLAY=(420:C'SERVER AND CLIENT AUTH (SAF)'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSSL,CH,EQ,X'04'),
OVERLAY=(420:C'SRVR/OPT CLIENT CERT (AUTH)'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTSSL,CH,EQ,X'05'),
OVERLAY=(420:C'SRVR/OPT CLIENT CERT (NO AUTH)'),HIT=NEXT),
*
IFTHEN=(WHEN=(TN_NTCOPT,BI,EQ,B'1.......'),
OVERLAY=(460:C'TN3270E -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTCOPT,BI,EQ,B'.1......'),
OVERLAY=(480:C'TERMINAL TYPE -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTCOPT,BI,EQ,B'..1.....'),
OVERLAY=(500:C'END OF RECORD -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTCOPT,BI,EQ,B'...1....'),
OVERLAY=(520:C'TRANSMIT BINARY -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTCOPT,BI,EQ,B'....1...'),
OVERLAY=(540:C'ECHOES -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTCOPT,BI,EQ,B'.....1..'),
OVERLAY=(560:C'SUPPRESS GO AHEAD-'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTCOPT,BI,EQ,B'......1.'),
OVERLAY=(580:C'TIMEMARK -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NTCOPT,BI,EQ,B'.......1'),
OVERLAY=(600:C'NEW ENVIRONMENT -'),HIT=NEXT),
*
IFTHEN=(WHEN=(TN_NT32OPT,BI,EQ,B'1...............'),
OVERLAY=(620:C'BIND IMAGE -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NT32OPT,BI,EQ,B'.1..............'),
OVERLAY=(640:C'SYS REQUEST -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NT32OPT,BI,EQ,B'..1.............'),
OVERLAY=(660:C'RESPONSES -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NT32OPT,BI,EQ,B'...1............'),
OVERLAY=(680:C'SCS CONTROL CODES -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NT32OPT,BI,EQ,B'....1...........'),
OVERLAY=(700:C'DCS CONTROL CODES -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NT32OPT,BI,EQ,B'.....1..........'),
OVERLAY=(720:C'CONTENTION RESOLUTION'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NT32OPT,BI,EQ,B'......1.........'),
OVERLAY=(740:C'FMH SUPPORT -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NT32OPT,BI,EQ,B'.......1........'),
OVERLAY=(760:C'SNA SENSE SUPPORT -'),HIT=NEXT),
IFTHEN=(WHEN=(TN_NT32OPT,BI,EQ,B'........1.......'),
OVERLAY=(780:C'SUPPR.HDR BYTE DBL -'),HIT=NEXT)
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,REMOVECC,
HEADER1=('ORIG_RECNO;TN_NTLU;TN_NTAPPL;TN_NTLDEV;TN_NTRIP;',
'TN_NTRPORT;TN_NTLIP;TN_NTLPORT;TN_NTHOSTNM;',
'TN_NTINBYTE;TN_NTOUTBYTE;TN_NTITIME;TN_NTIDATE',
'TN_NTTTIME;TN_NTTDATE;TN_NTDUR;TN_NTSTYPE;',
'TN_NTLUSEL;TN_NTSSL;TN_NTCOPT;TN_NT32OPT;',
'TN_NTRCODE;TN_NTLMODE;TN_NTDEVT'),
OUTREC=(RDW,
ORIG_RECNO,BI,EDIT=(IIIIIIIIT),C';',
TN_NTLU,C';',
TN_NTAPPL,C';',
TN_NTLDEV,TRAN=HEX,C';',
300,40,C';',
TN_NTRPORT,BI,EDIT(TTTTT),C';',
340,40,C';',
TN_NTLPORT,BI,EDIT(TTTTT),C';',
TN_NTHOSTNM,C';',
TN_NTINBYTE,BI,EDIT=(IIIIIIIIIIIIIIT),C';',
TN_NTOUTBYTE,BI,EDIT=(IIIIIIIIIIIIIIT),C';',
TN_NTITIME,TM1,EDIT=(TT:TT:TT),C';',
TN_NTIDATE,DT3,EDIT=(TTTT-TTT),C';',
TN_NTTTIME,TM1,EDIT=(TT:TT:TT),C';',
TN_NTTDATE,DT3,EDIT=(TTTT-TTT),C';',
TN_NTDUR,BI,EDIT=(IIIIIIIIIIIT),C';',
380,20,C';',
400,20,C';',
420,40,C';',
460,160,SQZ=(VL,MID=C' '),C';',
520,180,SQZ=(VL,MID=C' '),C';',
TN_NTRCODE,C';',
TN_NTLMODE,C';',
TN_NTDEVT)
/*
<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
