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
 

 

Date conversion from Gregorian to Julian

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

New User


Joined: 23 Sep 2005
Posts: 91

PostPosted: Tue Sep 27, 2011 10:38 am    Post subject: Date conversion from Gregorian to Julian
Reply with quote

Hello All,

My shop uses SYNCSORT Z/OS 1.3 and I want to convert a Gregorian date to Julian date. Can somebody suggest any what date conversion function should I use?
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7233

PostPosted: Tue Sep 27, 2011 11:59 am    Post subject: Reply to: Date conversion from Gregorian to Julian
Reply with quote

Do you have your trusty manual available? Look up Gregorian, Julian, and I think you'll find something. I don't have a manual for SyncSort.
Back to top
View user's profile Send private message
mlp

New User


Joined: 23 Sep 2005
Posts: 91

PostPosted: Tue Sep 27, 2011 12:07 pm    Post subject:
Reply with quote

I also do not have the manual and syncsort have not published any manuals for public reading. That is the reason I have posted this question.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Sep 27, 2011 12:12 pm    Post subject: Reply to: Date conversion from Gregorian to Julian
Reply with quote

forums are not a manual reading/providing service for disorganized organizations...

since Your (dis)organization is licensed for it, the documentation is stored somewhere,

have Your <powers> manage to make it available to those who need it
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Sep 27, 2011 5:58 pm    Post subject: Reply to: Date conversion from Gregorian to Julian
Reply with quote

I don't see anything listed in the manual (it would be described in the OUTREC section), only the conversion from Julian to Gregorian.

I'd suggest that you contact Syncsort directly.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7233

PostPosted: Tue Sep 27, 2011 6:11 pm    Post subject: Reply to: Date conversion from Gregorian to Julian
Reply with quote

Quick search it looks like Syncsort MFX for z/OS 1.4 has it as a new feature.

Kevin is on the button, and TS is out of luck as well as manuals.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Sep 27, 2011 6:23 pm    Post subject: Reply to: Date conversion from Gregorian to Julian
Reply with quote

Actually, I just found a similar topic and a response from Alissa Marguiles from Syncsort. For her example, the gregorian date is in the first 8 positions (YYYYMMDD), and the julian date overlays that field, padded out with 3 blanks spaces:

Code:

//STEP1    EXEC PGM=SORT
//SORTIN   DD DSN=INPUT.RECORDS
//SORTOUT  DD DSN=OUTPUT.RECORDS
//SYSOUT   DD SYSOUT=*
//SYSIN DD *
 OPTION COPY                                               
 INREC IFTHEN=(WHEN=INIT,                                   
       OVERLAY=(81:01,04,ZD,MOD,+4,EDIT=(T),               
                82:01,04,ZD,MOD,+100,EDIT=(TTT),           
                85:01,04,ZD,MOD,+400,EDIT=(TTT)),HIT=NEXT),
      IFTHEN=(WHEN=(85,3,ZD,EQ,0,OR,                       
                     (81,1,ZD,EQ,0,AND,82,3,ZD,GT,0)),     
       OVERLAY=(88:C'L'),HIT=NEXT),                         
        IFTHEN=(WHEN=(05,02,ZD,EQ,01),                     
       OVERLAY=(13:3,2,7,2,ZD,EDIT=(TTT))),                 
        IFTHEN=(WHEN=(05,02,ZD,EQ,02),                     
       OVERLAY=(13:3,2,+031,ADD,07,02,ZD,EDIT=(TTT))),     
        IFTHEN=(WHEN=(05,02,ZD,EQ,03),                     
       OVERLAY=(13:3,2,+059,ADD,07,02,ZD,EDIT=(TTT))),     
        IFTHEN=(WHEN=(05,02,ZD,EQ,04),                     
       OVERLAY=(13:3,2,+090,ADD,07,02,ZD,EDIT=(TTT))),     
        IFTHEN=(WHEN=(05,02,ZD,EQ,05),                     
       OVERLAY=(13:3,2,+120,ADD,07,02,ZD,EDIT=(TTT))),     
        IFTHEN=(WHEN=(05,02,ZD,EQ,06),                     
       OVERLAY=(13:3,2,+151,ADD,07,02,ZD,EDIT=(TTT))),     
        IFTHEN=(WHEN=(05,02,ZD,EQ,07),                           
       OVERLAY=(13:3,2,+181,ADD,07,02,ZD,EDIT=(TTT))),           
        IFTHEN=(WHEN=(05,02,ZD,EQ,08),                           
       OVERLAY=(13:3,2,+212,ADD,07,02,ZD,EDIT=(TTT))),           
        IFTHEN=(WHEN=(05,02,ZD,EQ,09),                           
       OVERLAY=(13:3,2,+243,ADD,07,02,ZD,EDIT=(TTT))),           
        IFTHEN=(WHEN=(05,02,ZD,EQ,10),                             
       OVERLAY=(13:3,2,+273,ADD,07,02,ZD,EDIT=(TTT))),           
        IFTHEN=(WHEN=(05,02,ZD,EQ,11),                           
       OVERLAY=(13:3,2,+304,ADD,07,02,ZD,EDIT=(TTT))),           
        IFTHEN=(WHEN=(05,02,ZD,EQ,12),                           
       OVERLAY=(13:3,2,+334,ADD,07,02,ZD,EDIT=(TTT)))             
  OUTFIL IFOUTLEN=80,                                             
         IFTHEN=(WHEN=(88,1,CH,EQ,C'L',AND,                       
                       05,2,ZD,GT,2),                             
        OVERLAY=(15:+1,ADD,15,03,ZD,EDIT=(TTT)))
/*                 
//
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7233

PostPosted: Tue Sep 27, 2011 6:32 pm    Post subject: Reply to: Date conversion from Gregorian to Julian
Reply with quote

Mlp,

If you use this, can you code it up with SYMNAMES and post it back, please?

Makes it easier for the next one along to change it to be able to use it. A bit of payback for Kevin's searching.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Sep 27, 2011 10:34 pm    Post subject:
Reply with quote

Hello,

Quote:
I also do not have the manual and syncsort have not published any manuals for public reading.
If your organization is licensed to use the product, all of the material is available for free from Syncsort support. . .
Back to top
View user's profile Send private message
mlp

New User


Joined: 23 Sep 2005
Posts: 91

PostPosted: Wed Sep 28, 2011 5:36 pm    Post subject:
Reply with quote

I got the programming manual for SYNCSORT but it does not contain any details regarding date conversion from gregorian to julian.

But I tried with above sort card provided by Kevin and it is working perfectly fine. Thank a lot!
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Sep 28, 2011 8:34 pm    Post subject:
Reply with quote

Hello,

Quote:
I got the programming manual for SYNCSORT but it does not contain any details regarding date conversion from gregorian to julian.

My copy does. . .
Quote:
• Convert date data.
• Convert a 2-digit year field to a 4-digit year field.
• Convert a full-date field to a printable field with separators.
• Convert a Julian date field to a Gregorian date field.
• Convert a Gregorian date field to a Julian date field.

This is in the current manual, i didn't look in the 1.3.x material. The 1.4 (MFX) release of Syncsort has been available for a long time. . . Hopefully, there is a plan to upgrade soon so this and the other new feathers will be available to your organization's developers.
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 File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts TOT & DATE parameter in ICEMAN hemanthj642 DFSORT/ICETOOL 4 Mon Nov 14, 2016 5:19 am
No new posts Conversion of a VB file to FB. isssal DFSORT/ICETOOL 1 Mon Oct 31, 2016 10:23 pm
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm
This topic is locked: you cannot edit posts or make replies. Get correct date and time when curren... balaji81_k DB2 24 Fri Oct 14, 2016 10:40 pm


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