Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for. I assumed that you wanted both output dates in the form mm-dd-yyyy. If you want dd-mm-yyyy that would require a simple change to the last IFTHEN clause.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY,Y2PAST=1920
INREC IFTHEN=(WHEN=INIT,
BUILD=(1,8,
9:9,4,
19:13,3,
22:16,5,Y2T,TO=PD,LENGTH=4)),
IFTHEN=(WHEN=INIT,
OVERLAY=(9:9,1,CHANGE=(1,X'19',X'00',X'20',X'01'),
NOMATCH=(X'02'),
22:22,1,CHANGE=(1,X'19',X'00',X'20',X'01'),
NOMATCH=(X'02'))),
IFTHEN=(WHEN=INIT,
OVERLAY=(9:9,4,DT1,
22:22,4,DT1)),
IFTHEN=(WHEN=INIT,
BUILD=(1,8,
9:13,2,C'-',15,2,C'-',9,4,
19:13,3,
22:26,2,C'-',28,2,C'-',22,4,80:X))
/*
|
|
|