converting Julian date(YYDDD) to YYYYMMDD format

mouli · New User Joined: 19 May 2005 Posts: 12 Location: kolkata

Hi,

Please any one help me in converting a julian date of the format 'YYDDD' to 'MM/DD/YY'.

DavidatK · Posted: Tue Apr 11, 2006 7:17 pm

mouli,

Check out these two functions

INTEGER-OF-DAY
DATE-OF-INTEGER

Dave

martin9 · Posted: Tue Apr 11, 2006 10:44 pm

hy mouli,

just note: if you want to use these functions,
which are known as intrinsic functions and very useful.
you must use any higher level of cobol than vs cobol ii.
try any le-conform cobol compiler, i.e. cobol for mvs & vm,
cobol for os/390 & z/os, enterprise compiler for os/390 & z/os...

martin9

mouli · New User Joined: 19 May 2005 Posts: 12 Location: kolkata

Hi Dave,

Thanks for ur immediate response ....

I used those two intrinsic functions but it is giving some error ... i think data type missmatch i feel..

i coded as follows
WORKING STORAGE SECTION.
01 WS-JULIAN.
05 WS-JULIAN-YY PIC 9(2).
05 WS-JULIAN-YYDDD PIC 9(5).
01 WS-INTEGER PIC 9(7) VALUE ZEROES.
01 WS-YYYYMMDD PIC 9(8) VALUE ZEROES.
.....

PROCEDURE DIVISION.
...
.....

MOVE 20 TO WS-JULIAN-YY.
MOVE 06300 TO WS-JULIAN-YYDDD.
COMPUTE WS-INTEGER = INTEGER-OF-DAY(WS-JULIAN).
COMOUTE WS-YYYYMMDD = DAY-OF-INTEGER(WS-INTEGER).

DISPLAY WS-YYYYMMDD.

is there anything wrong in the data types or in coding .... don't ask what type of error u got bcz i tried so many ways ... pls help me.

martin9 · Posted: Wed Apr 12, 2006 4:17 pm

hy mouli,

try to use the function as...

COMPUTE WS-INTEGER = FUNCTION INTEGER-OF-DAY(WS-JULIAN).

martin9

mouli · New User Joined: 19 May 2005 Posts: 12 Location: kolkata

Hi Martin,

Sorry .. i missed out FUNCTION in the mail... but i coded it in the program.

regards
mouli

martin9 · Posted: Wed Apr 12, 2006 5:04 pm

hy mouli,

your variable WS-JULIAN is not an integer.
the group level is always a character field (string).

try it differently, using the correct pic clause...

INTEGER-OF-DAY

The INTEGER-OF-DAY function converts a date in the Gregorian calendar from
Julian date form (YYYYDDD) to integer date form.

The function type is integer.

The function result is a 7-digit integer.

+--- Format -------------------------------------------------------------+
! !
! >>--FUNCTION INTEGER-OF-DAY--(argument-1)--------------------------->< !
! !
+------------------------------------------------------------------------+

argument-1
Must be an integer of the form YYYYDDD whose value is obtained from
the calculation (YYYY * 1000) + DDD.

o YYYY represents the year in the Gregorian calendar. It must be an
integer greater than 1600, but not greater than 9999.

o DDD represents the day of the year. It must be a positive integer
less than 367, provided that it is valid for the year specified.

The INTDATE compiler option affects the starting date for the integer
date functions. For details, see the Enterprise COBOL Programming
Guide.

The returned value is an integer that is the number of days the date
represented by argument-1, succeeds December 31, 1600 in the Gregorian
calendar.

martin9

mouli · New User Joined: 19 May 2005 Posts: 12 Location: kolkata

Hi Martin,

i getting the following error..

"The current year was outside the 100-year window, 1900 through 1999, for program SAFSCAN1.From compile unit SAFSCAN1 at entry point SAFSCAN1 at compile unit offset +000005C4 at entry offset +000005C4 .....

regards
chandra

martin9 · Posted: Wed Apr 12, 2006 7:00 pm

hy mouli,

which compiler are you using?

if it is enterprise cobol for z/os, note the following:

YEARWINDOW

Format: YEARWINDOW(base-year)

Default is: YEARWINDOW(1900)

Abbreviation is: YW

Use the YEARWINDOW option to specify the first year of the 100-year window
(the century window) to be applied to windowed date field processing by
the COBOL compiler.

base-year represents the first year of the 100-year window, and must be
specified as one of the following:

o An unsigned decimal number between 1900 and 1999.

This specifies the starting year of a fixed window. For example,
YEARWINDOW(1930) indicates a century window of 1930-2029.

o A negative integer from -1 through -99.

This indicates a sliding window, where the first year of the window is
calculated from the current run-time date. The number is subtracted
from the current year to give the starting year of the century window.
For example, YEARWINDOW(-80) indicates that the first year of the
century window is 80 years before the current year at the time the
program is run.

Usage notes

o The YEARWINDOW option has no effect unless the DATEPROC option is also
in effect.

o At run time, two conditions must be true:

- The century window must have its beginning year in the 1900s.

- The current year must lie within the century window for the
compilation unit.

For example, if the current year is 2002, the DATEPROC option is in
effect, and you use the YEARWINDOW(1900) option, the program will
terminate with an error message.

martin9

mouli · New User Joined: 19 May 2005 Posts: 12 Location: kolkata

Hi martin,

we r using the "IBM COBOL for OS/390 & VM 2.2.2" compiler.

DavidatK · Posted: Wed Apr 12, 2006 10:36 pm

Hi mouli,

If you are having problems with the intrinsic functions, here is a simple subroutine what will perform the function you want.

mouli · New User Joined: 19 May 2005 Posts: 12 Location: kolkata

Hi Dave,

Thank u very much for ur help .... Problem is solved.
I tried in both the ways(by using intrinsic functions and by using the code which u have sent) ..... both are working

Thank u once again to both 'Dave' and 'Martin' for showing intrest in solving the problem.

regards
mouli