I have an input FB file of 80 bytes. Julian date is in position 28.
Code:
VIEW CCSDLTQX.TRANS.BU6518IR.G0001V00 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data *****************************
000001 0010010000108256519710181 090840000099999960090325255MICR JOHN M SMITH
000002 0010010000108256519710182 090840000099999960090325255MICR JOHN M SMITH
000003 0010010000108256519710183 090840000099999960090325255MICR JOHN M SMITH
000004 0010010000108256519710184 090840000099999960090325255MICR JOHN M SMITH
Apart from reformatting the other fields,I need to convert the julian date into Gregorian format. In the output file (80 byte length),it would be in position 70.
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 0010010000108256519710181 090840000099999960090325255MICR JOHN M SMITH
000002 0010010000108256519710182 090840000099999960090325255MICR JOHN M SMITH
Output:
Code:
Command ===> Scroll ===> CSR
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 00000999999051971018120090325
000002 00000999999051971018220090325
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE126A 2 INCONSISTENT *INREC IFTHEN 1 REFORMATTING FIELD FOUND
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E7-K24705
ICE052I 3 END OF DFSORT