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
 
Convert Date to Absolute Date

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Steve Ironmonger

New User


Joined: 19 Oct 2015
Posts: 15
Location: UK

PostPosted: Tue Dec 15, 2015 3:57 pm    Post subject: Convert Date to Absolute Date
Reply with quote

Hi Guys, wondering if you can help.

Is there any way of converting a date (yyyymmdd) into an Absolute Date, I work for a bank and we use an absolute date in quite a lot of programs, but just wondered if there was any way of converting it in sort or icetool ?

We define the absolute date as the number of days since 1st Jan 1900

So today (15th Dec 2015 -20151215) would be 42322

cheers

Steve
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Tue Dec 15, 2015 4:52 pm    Post subject: Reply to: Convert Date to Absolute Date
Reply with quote

You want to have a look at DATEDIFF.

You're going to have to put the 1900 date into a temporary extension to the record to have access to it.

Exactly the best way to use it depends on exactly what you want to do, both generally and case-by-case perhaps as well.
Back to top
View user's profile Send private message
Steve Ironmonger

New User


Joined: 19 Oct 2015
Posts: 15
Location: UK

PostPosted: Tue Dec 15, 2015 5:38 pm    Post subject: Reply to: Convert Date to Absolute Date
Reply with quote

Hi Bill,

As an example I want to convert

20151215
to
42322

42322 being the number of days since 1st Jan 1900

or
19000131
to
00031
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Tue Dec 15, 2015 6:20 pm    Post subject: Reply to: Convert Date to Absolute Date
Reply with quote

Here's an example with converting a date to a number with DATEDIFF. To save adjusting by one, I used 18991231 not 19000101.
Code:

  OPTION COPY
  INREC OVERLAY=(10:C'18991231',
                 20:1,8,Y4T,
                  DATEDIFF,
                   10,8,Y4T)
                               
//SORTIN   DD *
19000131
20151215


The output is:

Code:
19000131 18991231  +0000031
20151215 18991231  +0042352


An eight-position field with a leading sign is created as the result of DATEDIFF. The + indicates that the second field is larger (- would indicate the opposite). Offset by three to get your desired result (23,5,CH for instance).

You need to temporarily "extend" each record to contain the base date, and the resultant difference. You can abut the fields, I've just left padding to more easily read the output.

For a fixed-length record, you extend after the end of the record. For a variable-length record extend at the beginning, using BUILD:

Code:
  INREC BUILD=(1,4,C'18991231',8X,5)


You have to return the data to its original size after using the DATEDIFF (can be in OUTREC or OUTFIL).
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm
No new posts Validate the Date girishb2 DFSORT/ICETOOL 9 Tue Sep 19, 2017 1:12 am
No new posts Convert rows and column into JSON for... Dinesh Manivannan DB2 2 Sun Sep 03, 2017 6:50 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm

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