Control statements look good to me. Change the BLKSIZE on OUTDD1 to 27998 i.e. ...DCB=(recfm=vbs,lrecl=32760,blksize=27998)
Increase the space allocation. There are an awful lot of type14/15 records cut. Michael Cleary's DAF (CBT FILE 094) will be helpful here to decode the records. Don't forget to adjust the blksize in STEP2. HTH, Al Staller | Z Systems Programmer | KBM Group | (Tel) 972 664 3565 | [email protected] <snip> I am following up on a problem regarding the corruption of a dsn. I have the SMF records for the day, however since the daily tapes are merged into a weekly tape I am having a problem (space issues) trying to extract only the type 14 & 15 records for that particular date. I looked at - OSMVS System Management Facilities - the doc for an example but I didn't find any. Can someone suggest what I can try. Below is my job which I am trying to run. //STEP1 EXEC PGM=IFASMFDP //INDD1 DD DSN=SYS2.SMFDATA.WEEK.G1584V00,DISP=SHR //OUTDD1 DD DSN=&&SM11, // DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(150,150),RLSE), // DCB=(RECFM=VBS,LRECL=32760,BLKSIZE=4096) //SYSPRINT DD SYSOUT=* //SYSIN DD * INDD(INDD1,OPTIONS(DUMP)) OUTDD(OUTDD1,TYPE(14:15)) /* //STEP2 EXEC PGM=IDCAMS,TIME=1440 //DD1 DD DSN=&&SM11, // DISP=(OLD,DELETE), // DCB=(RECFM=VBS,LRECL=32760,BLKSIZE=4096) //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSIN DD * PRINT INFILE(DD1) DUMP /* // </snip> ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
