Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
Posted: Mon Jun 06, 2005 7:02 pm Post subject:
Raogln,
sure we need to tweak the control cards a bit. First you need to expand the 6 bytes of date(yymmdd) to 8 bytes(CCYYMMDD). If your input file has an lrecl of 80 bytes , then we expand the date at the end(81st byte) of every record and then validate that field to select the records.
Use the following control cards.
Code:
//SYSIN DD *
SORT FIELDS=COPY
INREC FIELDS=(1,80, $ TOTAL LRECL
1,6,Y2T) $ EXPAND YY TO YYYY
OUTFIL INCLUDE=(81,8,ZD,GT,&DATE1P-151), $ INCLUDE DATE-151
OUTREC=(1,80) $ STRIP DATE AT END
/*
_________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
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