Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 LOW VALUES as a KEY juares castro DB2 10 Sat Apr 07, 2018 1:06 am
No new posts Sort numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am
No new posts Find & Replace string in CA-SORT mrgnndhmk CA Products 1 Fri Mar 30, 2018 12:58 am
No new posts SORT 3 files,extract specific fields ... Kiransr DFSORT/ICETOOL 13 Fri Mar 23, 2018 10:54 am
No new posts How to Generate JCL using Sort naveen katkuri DFSORT/ICETOOL 7 Tue Mar 13, 2018 3:50 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us