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
 

 

SYNCSORT needed to get current plus 1 date in SORTOUT file

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

New User


Joined: 05 Sep 2006
Posts: 34

PostPosted: Fri Dec 22, 2006 10:47 am    Post subject: SYNCSORT needed to get current plus 1 date in SORTOUT file
Reply with quote

Hi All

I need JCL syntax to get current date + 1 in sort out file .
My sort-in file is 80 lrecl FB having only current date.
Now I want the sortout file to have current +1 date .

Solution could be provided with any type of date format .

Thanks
Shrinivas D
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: Fri Dec 22, 2006 9:10 pm    Post subject:
Reply with quote

Here's a DFSORT job that will do what you asked for:

Code:

//S1 EXEC PGM=ICEMAN           
//SYSOUT DD SYSOUT=*           
//SORTIN DD *                 
20061222                       
//SORTOUT DD SYSOUT=*         
//SYSIN DD *                   
  OPTION COPY                 
  INREC OVERLAY=(1:DATE1+1)   
/*                             


Today, SORTOUT would have:

20061223

You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use DFSORT's DATE1+1 function. If you don't have April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/peug/
Back to top
View user's profile Send private message
Rajen

New User


Joined: 05 May 2005
Posts: 61

PostPosted: Thu Dec 28, 2006 8:24 pm    Post subject: Re: syntax needed to get current plus 1 date in sort-out fil
Reply with quote

Hi Frank,
i tried your jcl but it abended with RC=16 and gave below mentioned error message.

SYNCSORT FOR Z/OS 1.2.0.1R U.S. PATENTS: 4210961, 5117495
PRODUCT LICENSED FOR CPU SERIAL NUMBER 6522F, MODEL 2064 106
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 8:36 pm    Post subject:
Reply with quote

Never mind...Just checked the programmers guide and no mention of intelligent date functions.....
BTW, If Frank ever says to check for a PTF, it's a (almost) sure bet that Syncsort won't be able to do it (yet?)..... icon_cry.gif
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Thu Dec 28, 2006 8:41 pm    Post subject:
Reply with quote

I think the Syncsort messages (including errors) have a "WER" prefix - usually these can help identify what caused the RC=16....
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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 0 Tue Jan 17, 2017 4:26 pm
No new posts Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm


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