IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need to get Yesterday's date in DDMMCCYY format
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Nico van der Merwe

New User


Joined: 02 Oct 2008
Posts: 9
Location: Wellington
PostPosted: Thu Jan 06, 2011 6:51 pm
 Reply with quote
This is my ICETOOL input:
Code:

//CPY1CNTL DD *                                                       
  OPTION COPY                                                         
  INREC IFTHEN=(WHEN=(5,7,CH,EQ,X'00000000000000'),                   
           OVERLAY=(1:C'000000000000000',16:689X'00',                 
           705:DATENS=(DM4),713:DATENS=(DM4))),                       
       IFTHEN=(WHEN=(5,7,CH,GT,X'00',AND,5,7,CH,LT,X'FFFFFFFFFFFFFF'),
           OVERLAY=(1:1,11,16:3554,40,56:3602,4,60:3883,19,79:3594,8,
           87:3857,26,113:224X,337:343,3,340:4253,20,360:20X,         
           380:C'0000',12:C'0001',384:20X,404:C'0000000',411:310X))   
/*                                                                   
//CPY2CNTL DD *                                                       
  OUTREC FIELDS=(1,720)                                               
/*                                                                   


I need to get yesterday's date in the second DATENS statement: 713:DATENS=(DM4) and it needs to be in DDMMCCYY format.
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
PostPosted: Fri Jan 07, 2011 12:37 am
 Reply with quote
Nico van der Merwe,

I am assuming that your CPY1CNTL and CPY2CNTL are used to format the same output file. You really don't need the second pass, as we can do all in 1 pass. Use the following control cards. You don't have to code all 15 zeroes if you want to 15 zeros. You can simply use 15C'0'

Code:

//CPY1CNTL DD *
  INREC IFOUTLEN=720,                                           
  IFTHEN=(WHEN=(5,7,CH,EQ,X'00000000000000'),                   
  OVERLAY=(15C'0',689Z,DATENS=(DM4),8X,DATE1-1,                 
           713:727,2,725,2,721,4)),                             
  IFTHEN=(WHEN=(5,7,CH,GT,X'00',AND,5,7,CH,LT,X'FFFFFFFFFFFFFF'),
  OVERLAY=(12:C'0001',16:3554,40,56:3602,4,60:3883,19,79:3594,8,
           87:3857,26,113:224X,337:343,3,340:4253,20,360:20X,   
           380:4C'0',12:C'0001',384:20X,404:7C'0',411:310X))     
//*
Back to top
View user's profile Send private message
Nico van der Merwe

New User


Joined: 02 Oct 2008
Posts: 9
Location: Wellington
PostPosted: Fri Jan 07, 2011 1:08 pm
 Reply with quote
Thanks Skolusu
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts Replacing 'YYMMDD' with date, varying... SYNCSORT 3
No new posts Populate last day of the Month in MMD... SYNCSORT 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts Need to convert date format DFSORT/ICETOOL 20
No new posts Need help to append a date&tsp at... DFSORT/ICETOOL 9
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us