SELECTING SMF RECORDS FOR 1 DAY
G'Day, 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 /* // -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SELECTING SMF RECORDS FOR 1 DAY
Try this in your SYSIN //SYSIN DD * INDD(INDD1,OPTIONS(DUMP)) OUTDD(OUTDD1,TYPE(14:15)) DATE(2012125,2012125) /* In my example, the job would select only records from today. Change the 125 to the day you need to select. Have a nice day, Dave Betten DFSORT Development, Performance Lead IBM Corporation email: bet...@us.ibm.com 1-301-240-3809 DFSORT/MVSontheweb at http://www.ibm.com/storage/dfsort/ IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 05/04/2012 07:13:28 AM: From: John Dawes jhn_da...@yahoo.com.au To: IBM-MAIN@bama.ua.edu, Date: 05/04/2012 07:13 AM Subject: SELECTING SMF RECORDS FOR 1 DAY Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu G'Day, 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 /* // -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SELECTING SMF RECORDS FOR 1 DAY
John, try something like: INDD(IN,OPTIONS(DUMP)) DATE(2012108,2012108) OUTDD(OUT,TYPE(70:78)) The date parm is what you need. Mary Anne -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SELECTING SMF RECORDS FOR 1 DAY
David, I am trying out the suggestions made by you and Mary Anne . Thanks. From: David Betten bet...@us.ibm.com To: IBM-MAIN@bama.ua.edu Sent: Friday, 4 May 2012 7:42 AM Subject: Re: SELECTING SMF RECORDS FOR 1 DAY Try this in your SYSIN //SYSIN DD * INDD(INDD1,OPTIONS(DUMP)) OUTDD(OUTDD1,TYPE(14:15)) DATE(2012125,2012125) /* In my example, the job would select only records from today. Change the 125 to the day you need to select. Have a nice day, Dave Betten DFSORT Development, Performance Lead IBM Corporation email: bet...@us.ibm.com 1-301-240-3809 DFSORT/MVSontheweb at http://www.ibm.com/storage/dfsort/ IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 05/04/2012 07:13:28 AM: From: John Dawes jhn_da...@yahoo.com.au To: IBM-MAIN@bama.ua.edu, Date: 05/04/2012 07:13 AM Subject: SELECTING SMF RECORDS FOR 1 DAY Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu G'Day, 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 /* // -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SELECTING SMF RECORDS FOR 1 DAY
I like the program DAF on CBTTAPE.ORG. It can select records by data set name and date. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Dawes Sent: Friday, May 04, 2012 6:13 AM To: IBM-MAIN@bama.ua.edu Subject: SELECTING SMF RECORDS FOR 1 DAY G'Day, 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 /* // -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SELECTING SMF RECORDS FOR 1 DAY
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 | allan.stal...@kbmg.com 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 lists...@bama.ua.edu with the message: INFO IBM-MAIN
