IBM Mainframe Forum

Hi,

I had earlier posted the query in the DFSORT section, however the requirement is now being handled in SYNCSORT. Hence I am posting this in the appropriate section of the forum.The requirement is:
I have date in the packed (COMP-3) julian format eg 2011031 (P'ccyyddd'). Is there a way to read it from the file, unpack it and also do the conversion in a single sort step.
A) As of now,I am unpacking it by the sort statement
20:94,04,PD,EDIT=(TTTTTTT) ==> 94 is the starting position of the packed julian date in the input file
B) and then using another sort step to convert this unpacked julian date to Gregorian date.
CENTWIN=1949
OUTREC FIELDS=(22,5,Y2T,DTNS=(MD4))
Is there a way to combine step (B) in (A) itself.

If I directly use Y4T or other statements like OUTFIL BUILD=(20:90,04,Y4X,TOGREG=(Y4W)) which was suggested by Frank
the error is thrown near Y4X. The SYNCSORT version being used is SYNCSORT FOR Z/OS 1.3.2.1R

Any help is appreciated.

Thank You,
Kimir.

yes, It can be acheived by using INREC and OUTREC.

Here is a sample code...
Input file :- Packed Decimal





And output :- MMDDYYYY Format