Thanks for your reply. Any way i know about this INCLUDE COND (Hardcoded one). Actually i'm searching for a Dynamic one. I'll go thru the link which you have provided. _________________ kishore
Joined: 26 Nov 2002 Posts: 12376 Topics: 75 Location: San Jose
Posted: Mon May 17, 2004 4:57 am Post subject:
kishore,
Please do not post the same topic in more than 1 forum. I am deleting your other post in database forum. Please search before posting. This topic has been discussed earlier. Check this link
Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
Posted: Mon May 22, 2006 1:13 pm Post subject:
With z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006), you can use DFSORT's new DATE2-m function in INREC to satisfy this requirement as shown by the DFSORT job below. I assumed the input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
Code:
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
* Generate yyyymm in 81-86 for previous month
* (e.g. '200604' is generated on 2006/05/22).
INREC OVERLAY=(81:DATE2-1)
* Keep record if yyyy (from mmddyyyy) in record is equal to
* yyyy in 81-84, and mm (from mmddyyyy) in records is equal to
* mm in 85-86.
OUTFIL INCLUDE=(14,4,ZD,EQ,81,4,ZD,AND,
10,2,ZD,EQ,85,2,ZD)
/*
For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTFs, see:
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
