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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN