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
 

 

how to give dynamic values in sort condition

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 130
Location: Guntur

PostPosted: Wed Oct 17, 2007 12:44 pm    Post subject: how to give dynamic values in sort condition
Reply with quote

Hi all,

I have a scenario where i need to give date field dynamically to the sort control statement.

i have input file with following records which have 1st 10 bytes as date.
now i have to pick up the records which have current date and write them in to one output file and the records which do not match the current date should be written to some other output file

Code:


12/10/2007.......
13/10/2007.....
15/10/2007.....
16/10/2007.....
17/10/2007.....
18/10/2007....
19/10/2007....


now i want to take the records which have current date to one output file
and remaining to some other file.

for example if current date is 17/10/2007 then my first output file should have only 17/10/2007 and remaining records should written to second output file


i want this to be done using jcl sort.

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: Wed Oct 17, 2007 9:15 pm    Post subject:
Reply with quote

You can use a DFSORT job like this to do what you asked for:

Code:

//S1    EXEC  PGM=ICEMAN                                         
//SYSOUT    DD  SYSOUT=*                                         
//SYMNAMES DD *                                                 
* Use system symbols to create a DFSORT symbol for:
* CURDATE,C'dd/mm/yyyy'
CURDATE,S'&DAY./&MON./&YR4'                                     
//SYMNOUT DD SYSOUT=*                                           
//SORTIN DD *                                                   
12/10/2007.......                                               
13/10/2007.....                                                 
15/10/2007.....                                                 
16/10/2007.....                                                 
17/10/2007.....                                                 
18/10/2007....                                                   
19/10/2007....                                                   
//OUT1 DD SYSOUT=*                                               
//OUT2 DD SYSOUT=*                                               
//SYSIN    DD    *                                               
  OPTION COPY     
* Use the CURDATE symbol in INCLUDE.                                               
  OUTFIL FNAMES=OUT1,INCLUDE=(1,10,CH,EQ,CURDATE)               
  OUTFIL FNAMES=OUT2,SAVE                                       
/*


For complete information on DFSORT's System Symbol String Constants function, see:

www.ibm.com/servers/storage/support/software/sort/mvs/peug/
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts BI,TO=ZD Changing Values Tyler Dunbar DFSORT/ICETOOL 1 Tue Jul 25, 2017 12:12 am
No new posts SORT to unpack a feild shr_amar DFSORT/ICETOOL 7 Fri Jul 07, 2017 4:32 am
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts Optimize sort inrec parse vishwakotin DFSORT/ICETOOL 6 Mon Jun 26, 2017 11:15 pm


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