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 Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts Innovations in Your Mainframe Sort Arun Raj PC Guides & IT News 4 Wed Mar 15, 2017 10:38 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts scheduling between OPC and TWS give u... nsbl IBM Tools 3 Sun Mar 12, 2017 5:35 pm
No new posts SORT requirement sjiraga COBOL Programming 6 Thu Mar 09, 2017 9:11 pm


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