Hi,
Here is another version with detailed descriptions for the flags. The output
can be exported to an excel file
// EXPORT SYMLIST=*
// SET SMFIN=Your.Input.VBS.SMF.Dataset
// SET DTRPT=&SYSUID..SMF64.ACBIAS.USAGE.REPORT
/*
//***************************************************************
//* Delete the output report if it exists *
//***************************************************************
//DELFILES EXEC PGM=IEFBR14
//FILE01 DD DSN=&DTRPT,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,0),RLSE)
/*
//***************************************************************
//* Format SMF-64 records to readable format using DFSORT *
//***************************************************************
//FORMAT64 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=&SMFIN
//SORTOUT DD DSN=&DTRPT,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(25,25),RLSE)
//SYSIN DD *
OPTION COPY,VLSCMP
INCLUDE COND=(06,01,BI,EQ,X'40',AND, ONLY 64 SMF RECORDS
43,1,BI,NE,1,AND, WITH EXTENDED AREA
43,1,BI,EQ,B'1.......') ONLY AT CLOSE
OUTFIL VTOF,REMOVECC,
HEADER1=('DATE;TIME;JOBNAME;USERID;',
'N_RECORDS;N_DELETE;N_INSERT;N_UPDATE;N_GET;N_EXCP;',
'DDNAME;CLUSTER NAME;COMPONENT NAME;',
'Indicator of component being processed;',
'SMB ACCESS BIAS Information;',
'First ACB MACRF flag byte;'),
BUILD=(011,04,DT1,EDIT=(TTTT-TT-TT),C';', $ SMF64DTE
007,04,TM1,EDIT=(TT:TT:TT),C';', $ SMF64TME
019,08,C';', $ SMF64JBN
035,08,C';', $ SMF64UIF
179,04,BI,M11,LENGTH=9,C';', $ SMF64NLR
227,04,BI,M11,LENGTH=9,C';', $ SMF64DDE
231,04,BI,M11,LENGTH=9,C';', $ SMF64DIN
235,04,BI,M11,LENGTH=9,C';', $ SMF64DUP
239,04,BI,M11,LENGTH=9,C';', $ SMF64DRE
255,04,BI,M11,LENGTH=9,C';', $ SMF64DEP
273,08,C';', $ SMF64DDN
291,44,C';', $ SMF64CLN
089,44,C';', $ SMF64DNM
044,01,CHANGE=(32, $ SMF64DTY
B'1.......',C'Data set. ',
B'.1......',C'Index. ',
B'..1.....',C'Extended format. ',
B'...1....',C'Compressed. ',
B'....1...',C'RLS is in effect. ',
B'.....1..',C'RLS is in effect, mmf disabled.',
B'......1.',C'Extended addressable data set. ',
B'.......1',C'Secondary space reduction. '),
NOMATCH=(C'None of the flags are set'),
C';',
341,01,CHANGE=(32, $ SMF64SMB
B'1.......',C'AMP ACCBIAS through JCL. ',
B'.1......',C'JCL or DATACLAS set SMB. ',
B'..1.....',C'BIAS=DO used. ',
B'...1....',C'BIAS=SO used. ',
B'....1...',C'BIAS=SW used. ',
B'.....1..',C'BIAS=DW used. ',
B'......1.',C'BIAS=CO used. ',
B'.......1',C'BIAS=CR used. '),
NOMATCH=(C'None of the flags are set'),
C';',
337,01,CHANGE=(32, $ SMF64MC1
B'1.......',C'Record is identified by a key. ',
B'.1......',C'Record is identified by a RBA. ',
B'..1.....',C'Control-interval processing. ',
B'...1....',C'Sequential processing. ',
B'....1...',C'Direct processing. ',
B'.....1..',C'Input processing. ',
B'......1.',C'Output processing. ',
B'.......1',C'User-supplied buffer space. '),
NOMATCH=(C'None of the flags are set'),
C';')
/*
Thanks,
Kolusu
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
