Hi Frank Verrrry smart; works like a charm!
Thanx a ton Thomas Thomas Ramseier Bundesamt für Informatik und Telekommunikation BIT Betriebszentrum / Bereitstellung / Host Informationssystem-Architekt Monbijoustrasse 74 CH-3003 Bern Tel. +41 (0)31 323 01 00 Fax +41 (0)31 325 90 30 [EMAIL PROTECTED] www.bit.admin.ch Der Eisbrecher: Die Kundenzeitung des BIT www.bit.admin.ch/eisbrecher -----Ursprüngliche Nachricht----- Von: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] Im Auftrag von Frank Yaeger Gesendet: Donnerstag, 28. Juli 2005 18:29 An: IBM-MAIN@BAMA.UA.EDU Betreff: Re: AW: DFSORT - "OVERLAY"-Function Thomas Ramseier wrote: >The SMF30-Job is shown below: >... Thomas, I believe the following DFSORT job will give you what you want. //SUSYM EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&&SYMBOLS,DISP=SHR //SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS) //SYSIN DD * OPTION COPY * Get SMF30TMP record from &&SYMBOLS INCLUDE COND=(1,8,CH,EQ,C'SMF30TMP') * Genrate the following line: * OVERLAY=(nnnn: * where nnnn is the position from the SMF30TMP symbol. * Use this line wherever needed in step SORT0020. OUTREC FIELDS=(13:C'OVERLAY=(',10,4,C':',80:X) /* //SORT0020 EXEC PGM=ICEMAN,REGION=6M //S1 DD DSN=&&S1,DISP=(OLD,PASS) //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SORTOUT DD SYSOUT=* //SMF30PRT DD SYSOUT=* <= Activate to obtain detail report //**SMF30PRT DD DUMMY <= Activate to bypass detail report //CIMSOUT DD DSN=&&CIMSTOT,DISP=(,PASS), // UNIT=SYSALLDA,SPACE=(CYL,(3,2)), // RECFM=FBA,LRECL=80,BLKSIZE=0 //SORTIN DD DISP=SHR,DSN=&&TEMPS30 <= extracted SMF30-Record //SYMNAMES DD DSN=&&SYMBOLS,DISP=SHR // DD * Extask01,C'E356SAF ,E356EXPS,E356EXDS,E356EXD1,E356EXD ' Extask02,C'E348FTA ,E348FTE ,E348P001,E958P241' Extask03,C'E495BURA,E495BURE,E495BURP,E667BURP' Extask04,C'E929AVGA,E929AVGE,E929P001,E929S001,E627P190' Extask05,C'E949FABA,E949FABE,E949P001,E949P002,E949S001' Extask06,C'E976A001,E976E001,E976P001,E976P002,E976S001' /* //SYSIN DD * SORT FIELDS=(SMF30JBN,CH,A,11,4,PD,A,7,4,FI,A) INCLUDE COND=(SMF30JBN,SS,EQ,Extask01,OR, SMF30JBN,SS,EQ,Extask02,OR, SMF30JBN,SS,EQ,Extask03,OR, SMF30JBN,SS,EQ,Extask04,OR, SMF30JBN,SS,EQ,Extask05,OR, SMF30JBN,SS,EQ,Extask06) INREC IFTHEN=(WHEN=(SMF30ARB,SS,EQ,C'348'), // DD DSN=*.S1,VOL=REF=*.S1,DISP=(OLD,PASS) <--- use gen'd line // DD * C'TargaWeb',C'05')), IFTHEN=(WHEN=(SMF30ARB,SS,EQ,C'369,495,667'), // DD DSN=*.S1,VOL=REF=*.S1,DISP=(OLD,PASS) // DD * C'BUR ',C'03')), IFTHEN=(WHEN=(SMF30ARB,SS,EQ,C'929'), // DD DSN=*.S1,VOL=REF=*.S1,DISP=(OLD,PASS) // DD * C'VZAVG ',C'04')), IFTHEN=(WHEN=(SMF30ARB,SS,EQ,C'949'), // DD DSN=*.S1,VOL=REF=*.S1,DISP=(OLD,PASS) // DD * C'Faber ',C'01')), IFTHEN=(WHEN=(SMF30ARB,SS,EQ,C'976'), // DD DSN=*.S1,VOL=REF=*.S1,DISP=(OLD,PASS) // DD * C'Mofis ',C'02')), IFTHEN=(WHEN=NONE, // DD DSN=*.S1,VOL=REF=*.S1,DISP=(OLD,PASS) // DD * C'*Others*',C'99')) OUTREC FIELDS=(1,4,11,4,7,4, SMF30JBN, SMF30CPT, SMF30CPS, ((SMF30CPT,FI,ADD,SMF30CPS,FI), MUL,+10000),EDIT=(TTTTTTTTTTTT), 11,4,DT1, SMF30TXT, 79:X) OUTFIL FNAMES=(CIMSOUT,SMF30PRT),CONVERT, OUTREC=(1:13,8,X, 5,4,DT1,EDIT=(TTTT/TT/TT),X, 9,4,TM2,EDIT=(TT:TT),X,49,10, 39:21,4,FI,EDIT=(IIIT.TT),X, 53:25,4,FI,EDIT=(IIIT.TT),X, 68:29,12), TRAILER1=(/, 1:'Overall EntireX CPU-Consumption:', 52:TOT=(29,12,ZD,EDIT=(TTTTTTTTTTTTTTT)), 69:47,2,C'/',45,2,C'/',41,4, /) Frank Yaeger - DFSORT Team (IBM) Specialties: ICETOOL, IFTHEN, OVERLAY, Symbols, Migration => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
