MVSFORUMS.com

[deadlycoder]

Hi all,

I am in a fix here.
The situation is like this:

Whenever I move a signed numeric comp-3 item to a signed numeric comp-3 item I can see the values in my file layout.

The problem arises here
My program is doing a date conversion.
I/P date is in signed numeric comp-3 form.
a routine converts it into julian format in numeric form.
I move this converted date into the output date field which is is signed numeric comp-3.
Hence the date values are not visible properly. Junk values are seen.

I even redefined the output converted date(which was numeric only) to a signed numeric comp-3.
[/05 WS-JUL-DATE REDEFINES WS-JULIAN-DATE.
10 WS-JUL-DATE1 PIC S9(07) COMP-3.]
When I moved WS-JUL-DATE the same results occurred. No date value was displayed.
When I moved WS-JUL-DATE1 S07 OCCURRED.

Can you throw some light over this matter?

Plz guide me asap.
_________________
'Achievement is almost automatic when the goal becomes an inner commitment'

[kolusu]