Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Compare and INCLUDE recs based on Current Year(CCYY)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Bathrinarayanan

New User


Joined: 15 Nov 2007
Posts: 4
Location: chennai

PostPosted: Tue Jan 12, 2010 8:25 pm    Post subject: Compare and INCLUDE recs based on Current Year(CCYY)
Reply with quote

Hi,

I want to compare Year in the date field of a file with Current Year and INCLUDE such records into my output file. File attributes are FB, LRECL=80.
Sample Input file
Code:

Ref-No  Name             Date-field
4124323 BATHRINARAYANAN  20100112   
3134532 BATHRI           20090112   


My preferred output is
Code:

4124323 BATHRINARAYANAN 20100112

Since it is only matched with the current year 2010.

Please suggest a way to achieve it..

Thanks in Advance..
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Jan 12, 2010 10:52 pm    Post subject:
Reply with quote

You can use a DFSORT job like the following to do what you asked for. I assumed your year starts in position 26.

Code:

//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SYMNAMES DD *
CURYR,S'&YR4'
/*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=...  output file
//SYSIN    DD    *
  OPTION COPY
  INCLUDE COND=(26,4,CH,EQ,CURYR)
/*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts Include/omit with "ALL" pa... mgl DFSORT/ICETOOL 6 Wed Jun 14, 2017 2:31 pm
No new posts compare 2 rows within the same file ram_vizag SYNCSORT 7 Wed Jun 14, 2017 12:34 am
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm
No new posts SMTP the current generation number of... Jyothi Kulunde JCL & VSAM 4 Thu May 04, 2017 4:08 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us