Conversion of MMDDYY Date to Julian DAte

prasanth_urs · Posted: Wed Jan 31, 2007 11:29 am

Hi all,

Can anyone please tell me how to convert a Date in format MMDDYY to Julian Date....

For example DAte = 01312007
So the respective date should be like 31.(addding up the total number of days upto that point in an year).

Please reply me as soon as possible.

Many Thanks in advance

Santoshdorge · New User Joined: 27 Jun 2006 Posts: 48 Location: Pune

Hi
One way is using the COBOL table/array. you can initialize of 12 elements to default number of days.For Feb you have to put logic for 28 or 29 days
depanding upon the year.Add the elements upto current month and then the day of the current month.
Another way to do this is by using DB2 functions.

William Thompson · Posted: Wed Jan 31, 2007 1:11 pm

What language/tools do you have to work with?

prasanth_urs · Posted: Wed Jan 31, 2007 1:30 pm

Hi ,

I am working with PL/I. I worked in COBOL before, but the requirement is in PL/I..

William Thompson · Posted: Wed Jan 31, 2007 1:51 pm

There are LE routines that should be available to PL/I too.
If PL/I doesn't have anything available, you can just do what us "old timers" had to do in the "olden days".... Like Santoshdorge posted, a 12 entry table with the julian day for each month and a calculation for leap year - simple boiler plate coding.....

kgumraj · Posted: Thu Feb 01, 2007 2:06 pm

Hi,

I can help you in db2. If you have DB2 in your program try this

jayaprakashysr · New User Joined: 04 Jul 2007 Posts: 1 Location: HYD

declare external entry
DCL K0B3S31 EXTERNAL ENTRY;
%INCLUDE CHGCOPY;
DATECHG_@STRUCT='';

CHGCOPY : copybook

DCL DATECHG_PTR POINTER;
DATECHG_PTR = ADDR (DATECHG_@STRUCT);

DCL 1 DATECHG_@STRUCT,
5 MMDDYY CHAR (6), /* INPUT/OUTPUT OF SUBRTN */
5 JULIAN PIC '99999', /* INPUT/OUTPUT OF SUBRTN */
5 RET_CODE CHAR (1); /* OUTPUT FROM SUBRTN */

DCL 1 DATECHG_REDEF BASED (DATECHG_PTR),
5 CALENDAR_PIC,
10 MONTH PIC '99',
10 DAY PIC '99',
10 YEAR PIC '99',
5 JULIAN_PIC,
10 YY PIC '99',
10 DDD PIC '999';

DCL 1 CHG_RET,
2 ALL_OK CHAR (1) INIT ('0'),
2 MMDDYY_NG CHAR (1) INIT ('1'),
2 JULIAN_NG CHAR (1) INIT ('2'),
2 REQ_NG CHAR (1) INIT ('3'); /* JULIAN = 0 AND */
/* MMDDYY IS BLANK */

/* CONVERT DATE TO JULIAN FORMAT */
DATECHG_@STRUCT = '';
DATECHG_@STRUCT.MMDDYY = SUBSTR(HOLD_PROCESS_DATE,5,2)
|| SUBSTR(HOLD_PROCESS_DATE,7,2)
|| SUBSTR(HOLD_PROCESS_DATE,3,2)
CALL K0B3S31(DATECHG_@STRUCT);
PARM_DATE_JUL = DATECHG_@STRUCT.JULIAN;

DCL PARM_DATE_JUL PIC'(05)9' INIT(0);

HOLD_PROCESS_DATE is your current date format

i hope this is clear for every one..........

Thanks,
Jayaprakash

enrico-sorichetti · Posted: Tue Nov 13, 2007 5:03 pm

Srihari Gonugunta · Posted: Tue Nov 13, 2007 8:06 pm

If you're using the new Enterprise PL/I compiler, you can use the built in function REPATTERN:
greg8dig = REPATTERN(jul7dig , 'YYYYMMDD' , 'YYYYDDD');