Convert Date in PD to CH Db2 format

archer_denny · Posted: Thu Jun 18, 2009 4:46 pm

RECFM=FB,LRECL=80 for both i/p and o/p

Need to convert the Date in format CYYMMDD with Pic Clause
s9(7) comp-3 to format 'MM/DD/CCYY' with Pic Clause x(10) thru SORT

For eq :
row1 of input file having Date : 1000511 in CYYMMDD

If C = 1 then in output CC = 20
else if C = 0 then CC = 19.

output row1 should be 05/11/2000 in MM/DD/CCYY

I/p file

Skolusu · Posted: Thu Jun 18, 2009 8:42 pm

archer_denny,

The following JCL will give you the desired results. I assumed that your input date is in pos 1 for 4 bytes and your input file is FB 80 bytes. The converted date will be again placed in pos 1 thru 10

archer_denny · Posted: Thu Jun 18, 2009 11:08 pm

Skolusu,
i'm out of my shop so i can't test your JCL now,
before that i have a clarification based on my observation on your jcl

you used the IFOUTLEN=80 with INREC st so that Output and its LRECL will be based on reformatted part after the 80th position

please let me know

Thanks,
Denny

Skolusu · Posted: Thu Jun 18, 2009 11:29 pm

archer_denny,

IFOUTLEN overrides the INREC LRECL (or reformatted record length if the INREC record is further modified) determined by DFSORT from your INREC IFTHEN clauses. DFSORT sets an appropriate LRECL for the output records based on the build and overlay items specified by the IFTHEN clauses.

Explanation of the control cards.

1. The first IFTHEN expands the 4 byte pd field to 8 byte readable format and puts it at pos 81
2. The next 2 IFTHEN statements validate the Century portion and accordingly pad the century portion along with separators in pos 1.

THE IFOUTLEN will truncate the output length to 80 , so that you don't have the temp expanded PD value at 81 in output.

archer_denny · Posted: Thu Jun 18, 2009 11:40 pm

Skolusu,

thanks for the detailed explanation of IFOUTLEN and the control cards

Thanks
Denny