I have a requirement that needs the date (YYYYMMDD) column 4 in the input file need to be converted to YMMDD.
The Input always have 8 bytes of Gregorian date for the Date field 3 and 4
Req output formate for the 2 date fields are below:
Col3 - MMDDYY
Col4 - YMMDD
I tried with the below JCL, but for Column 4 i not sure how to convert to 'YMMDD' Formate
Thanks JRS.
Input file:
AB80¦105¦20110125¦20110125¦
FG80¦105¦20110125¦20110125¦
//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A.B.C,DISP=SHR
//SORTOUT DD DSN=A.B.D,
// UNIT=DISK,SPACE=(TRK,(1,2),RLSE),
// DCB=(LRECL=35,BLKSIZE=0,RECFM=FB),
// DISP=(NEW,CATLG,DELETE)
//SYSSORT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSIN DD *
SORT FIELDS=COPY
INREC PARSE=(%00=(ENDBEFR=X'6A',FIXLEN=05),
%01=(ENDBEFR=X'6A',FIXLEN=03),
%02=(ENDBEFR=X'6A',FIXLEN=08),
%03=(ENDBEFR=X'6A',FIXLEN=08)),
BUILD=(%00,%01,%02,Y4T,TOGREG=Y2Y,%03,Y4T,TOGREG=Y2Y)
/*
//
AB80¦105¦20110125¦20110125¦
FG80¦105¦20110125¦20110125¦
//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A.B.C,DISP=SHR
//SORTOUT DD DSN=A.B.D,
// UNIT=DISK,SPACE=(TRK,(1,2),RLSE),
// DCB=(LRECL=35,BLKSIZE=0,RECFM=FB),
// DISP=(NEW,CATLG,DELETE)
//SYSSORT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSIN DD *
SORT FIELDS=COPY
INREC PARSE=(%00=(ENDBEFR=X'6A',FIXLEN=05),
%01=(ENDBEFR=X'6A',FIXLEN=03),
%02=(ENDBEFR=X'6A',FIXLEN=08),
%03=(ENDBEFR=X'6A',FIXLEN=08)),
BUILD=(%00,%01,%02,Y4T,TOGREG=Y2Y,%03,Y4T,TOGREG=Y2Y)
/*
//