IBM Mainframe Forum

Hi,

The data in ADABAS is D 6. When a display it in a Natural program it shows in the format ddmmyyyy.
I call the program from JCL that writes this data to a dataset, but I don't know what to use in EDIT for this type.
I tried BI, FI, and others without success. What I must use with OUTREC EDIT?

The Natural program simply writes the data direct from the view:
READ CDA060
WRITE WORK FILE 1 CDA060
END-READ

Thank you.

For example, it displays 11122012 in Natural, and when I use 42,04,PD,EDIT=(TTTTTTTT) it becomes 00735212.

Hello,

Suggest you show the date in HEX (in ADABAS). I suspect it is not PD.

These users thanked the author dick scherrer for the post:

tivrfoa (Wed Jun 05, 2013 1:13 am)

dick scherrer wrote:Hello,

Suggest you show the date in HEX (in ADABAS). I suspect it is not PD.

I set hex on in the dataset before the SORT.
Natural: 11122012
Hex:
0322
751F

Well, that value is valid for a packed-decimal field. It is not however, the way many(most) PD dates are stored.

Look in the ADADBAS documentation for an explanation of how this date is stored. It may be the difference in days from some control date.

These users thanked the author dick scherrer for the post:

tivrfoa (Wed Jun 05, 2013 1:13 am)

It looks like the number of days since 1 Jan 1 CE.

These users thanked the author Akatsukami for the post:

tivrfoa (Thu Jun 06, 2013 2:17 am)

Akatsukami wrote:It looks like the number of days since 1 Jan 1 CE.

Nice observation.
I checked in this site: http://www.timeanddate.com/date/duration.html

And got:

PD,EDIT NATURAL DAYS IN SITE
00735212 -> 11122012 ->>> 734,849
00735187 -> 16112012 ->>> 734,824
00733848 -> 18032009 ->>> 733,485

Now I'll try to find a way to convert this date in days to this format ddmmyyyy.
Thank you.

The number of days between 1 Jan 1 CE in the Julian calendar and 15 Oct 1582 CE in the Gregorian calendar (which is Lilian day 1) is 577,737. Depending on what language you're using, you may be able to subtract that number minus one from the date and then use the LE function CEEDATE to get a Gregorian date.

Akatsukami wrote:The number of days between 1 Jan 1 CE in the Julian calendar and 15 Oct 1582 CE in the Gregorian calendar (which is Lilian day 1) is 577,737. Depending on what language you're using, you may be able to subtract that number minus one from the date and then use the LE function CEEDATE to get a Gregorian date.

Thank you Akatsukami.
I went to the link you gave and CEEDATE function needs to called from a program, so it was simple to convert in the Natural program:
MOVE EDITED DT-PEDIDO-060(EM=DDMMYYYY) TO #DT-PEDIDO-060

I looked if Syncsort can do this, but couldn't find a way.

Thanks again.