Hi everybody,
some people asked me to share the SORT I use to evaluate the "need or use"
of ACCBIAS.
It's not so sophisticated and it could be better, anyway here it is.
The output can be simply imported in Excel.
Best regards.
Max
//youjobc JOB 0000000,J48017,CLASS=A,MSGCLASS=5,
// COND=(4,LT),NOTIFY=&SYSUID
//*-------------------------------------------------------------------*
//* *
//*-------------------------------------------------------------------*
// EXPORT SYMLIST=*
// SET SMFIN=MYSMF
// SET CSVOUT=MYCSV
//*-------------------------------------------------------------------*
//* *
//*-------------------------------------------------------------------*
//ST010 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *,SYMBOLS=JCLONLY
DELETE &CSVOUT
IF MAXCC LE 8 THEN SET MAXCC EQ 0
/*
//*-------------------------------------------------------------------*
//* *
//*-------------------------------------------------------------------*
//ST020 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=&SMFIN
//SORTOUT DD DSN=&CSVOUT,
// SPACE=(TRK,(10,00)),DATACLAS=UEFSQCMP,
// DISP=(,CATLG),DCB=(LRECL=500,RECFM=VB,DSORG=PS)
//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 REMOVECC,
HEADER1=('DATA;ORA;JOBNAME;USERID;',
'N_RECORDS;N_DELETE;N_INSERT;N_UPDATE;N_GET;N_EXCP;',
'DDNAME;CLUSTER NAME;COMPONENT NAME;',
'DATASET;INDEX;EXTENDED;COMPRESSED;EXTENDED ADDR;',
'ACCBIAS_JCL;ACCBIAS_AUTO;BIAS_TYPE;',
'INPUT;OUTPUT;INDEXED;',
'ACC_RBA;ACC_CINTVL;ACC_SEQ;ACC_RND;DUMMY'),
IFTHEN=(WHEN=INIT,
BUILD=(1,4,
44,1, TEMP - DTY
341,1, TEMP - SMB
337,1, TEMP - MC1
11,4,DT1,C';', DTE - DATA
7,4,TM1,C';', TME - ORA
19,8,C';', JBN - JOBNAME
35,8,C';', UIF - USERID JOB
179,4,BI,TO=ZD,C';', NLR - LOGICAL RECORDS
227,4,BI,TO=ZD,C';', DDE - DELETED BY THIS JOB
231,4,BI,TO=ZD,C';', DIN - INSERTED BY THIS JOB
235,4,BI,TO=ZD,C';', DUP - UPDATED BY THIS JOB
239,4,BI,TO=ZD,C';', DRE - RETRIEVED BY THIS JOB
255,4,BI,TO=ZD,C';', DEP - EXCP BY THIS JOB
273,8,C';', DDN - DDNAME FROM JCL
291,44,C';', CLN - CLUSTER NAME FROM JCL
89,44,C';', DNM - CLUSTER COMPONENT NAME
C'N',C';', IT'S A DATASET - DTY BIT 0
C'N',C';', IT'S AN INDEX - DTY BIT 1
C'N',C';', EXTENDED FORMAT - DTY BIT 2
C'N',C';', COMPRESSED - DTY BIT 3
C'N',C';', EXTENDED ADDRESSING - DTY BIT 6
C'N',C';', ACCBIAS JCL SPECIFIED - SMB BIT 0
C'N',C';', ACCBIAS AUTO VIA JCL OR DC - SMB BIT 1
C'NO',C';', BIASTYPE - SMB BIT 2-7
C'N',C';', OPEN INPUT - MC1 BIT 5
C'N',C';', OPEN OUTPUT - MC1 BIT 6
C'N',C';', ORG IS INDEXED - MC1 BIT 0
C'N',C';', ACCESS IS RBA - MC1 BIT 1
C'N',C';', ACCESS IS CINTVL - MC1 BIT 2
C'N',C';', ACCESS IS SEQUENTIAL - MC1 BIT 3
C'N',C';')), ACCESS IS RANDOM - MC1 BIT 4
IFTHEN=(WHEN=(5,1,BI,EQ,B'1.......'), IT'S A DATASET
OVERLAY=(207:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(5,1,BI,EQ,B'.1......'), IT'S AN INDEX
OVERLAY=(209:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(5,1,BI,EQ,B'..1.....'), EXTEND FORMAT
OVERLAY=(211:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(5,1,BI,EQ,B'...1....'), COMPRESSED
OVERLAY=(213:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(5,1,BI,EQ,B'......1.'), EXTENDED ADDRESSING
OVERLAY=(215:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(6,1,BI,EQ,B'1.......'), ACCBIAS JCL SPECIFIED
OVERLAY=(217:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(6,1,BI,EQ,B'.1......'), ACCBIAS AUTO
OVERLAY=(219:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(6,1,BI,EQ,B'..1.....'), ACCBIAS=DO
OVERLAY=(221:C'DO'),HIT=NEXT),
IFTHEN=(WHEN=(6,1,BI,EQ,B'...1....'), ACCBIAS=SO
OVERLAY=(221:C'SO'),HIT=NEXT),
IFTHEN=(WHEN=(6,1,BI,EQ,B'....1...'), ACCBIAS=SW
OVERLAY=(221:C'SW'),HIT=NEXT),
IFTHEN=(WHEN=(6,1,BI,EQ,B'.....1..'), ACCBIAS=DW
OVERLAY=(221:C'DW'),HIT=NEXT),
IFTHEN=(WHEN=(6,1,BI,EQ,B'......1.'), ACCBIAS=CO
OVERLAY=(221:C'CO'),HIT=NEXT),
IFTHEN=(WHEN=(6,1,BI,EQ,B'.......1'), ACCBIAS=CR
OVERLAY=(221:C'CR'),HIT=NEXT),
IFTHEN=(WHEN=(7,1,BI,EQ,B'.....1..'), OPEN INPUT
OVERLAY=(224:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(7,1,BI,EQ,B'......1.'), OPEN OUTPUT
OVERLAY=(226:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(7,1,BI,EQ,B'1.......'), INDEXED
OVERLAY=(228:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(7,1,BI,EQ,B'.1......'), ACCESS IS RBA
OVERLAY=(230:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(7,1,BI,EQ,B'..1.....'), ACCESS IS CINTVL
OVERLAY=(232:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(7,1,BI,EQ,B'...1....'), ACCESS IS SEQUENTIAL
OVERLAY=(234:C'S'),HIT=NEXT),
IFTHEN=(WHEN=(7,1,BI,EQ,B'....1...'), ACCESS IS RANDOM
OVERLAY=(236:C'S'),HIT=NEXT),
IFTHEN=(WHEN=ANY,
BUILD=(1,4,8,11,C':',19,2,C':',21,432)),
IFTHEN=(WHEN=NONE,
BUILD=(1,4,8,11,C':',19,2,C':',21,432))
/*
<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 [email protected] with the message: INFO IBM-MAIN
