Convert date and merge to the first file

bhaskar_kanteti · Posted: Tue Feb 26, 2008 9:29 pm

Hi,

I had two inout files.

Input File 1: FB, LRECL = 15
Field1 Field2 Field3
11111AAAAA24334
22222BBBBB34433
33333CCCCC43254

Input File 2: FB, LRECL = 5
This file has only 1 field of type S9(9) Comp-3 which holds date.
The date will be as 20080226.
This should be converted to X(10) as 2008-02-26 and should be appeneded at the end of the Input file 1.

My Output File: FB, LRECL = 25
Field1 Field2 Field3 Field4
11111AAAAA24334 2008-02-26
22222BBBBB34433 2008-02-26
33333CCCCC432542008-02-26

How can i convert DATE and append to the file.
Is it possible to convert date from S9(9) Comp-3 to X(10).
Help me in this regard.

Frank Yaeger · Posted: Tue Feb 26, 2008 10:11 pm

Here's a DFSORT job that will do what you asked for:

bhaskar_kanteti · Posted: Tue Feb 26, 2008 10:52 pm

Hi Frank,

Thank You so much.
It worked.

Can you clarify me regarding this how it was written.

Frank Yaeger · Posted: Tue Feb 26, 2008 11:08 pm

As I said in the comment, it creates a DFSORT symbol like this:

TDATE,'yyyy-mm-dd'

C'TDATE,''' creates:

TDATE,'

1,5,PD,EDIT=(TTTT-TT-TT) converts the PD date (X'0yyyymmddC') to:

yyyy-mm-dd

C'''' adds the ending apostrophe.

80:X pads with blanks up to position 80 and sets the LRECL to 80 bytes which is required for the SYMNAMES data set.

bhaskar_kanteti · Posted: Tue Feb 26, 2008 11:26 pm

Hi,

Thank You so much.
You explained very clearly.
Thank You.