View previous topic :: View next topic
|
Author |
Message |
sudhakarraju
New User
Joined: 05 May 2005 Posts: 31
|
|
|
|
I have below data
I
Code: |
1/30/2021 1/29/2019
9/2/2020 11/1/2019
9/29/2020 8/14/2017
5/30/2020 12/22/2018
12/30/2022 7/1/2019
I want this to be
01/30/2021 01/29/2019
09/02/2020 11/01/2019
09/29/2020 08/14/2017
05/30/2020 12/22/2018
12/30/2022 07/01/2019
Thanks |
|
|
Back to top |
|
|
John Del
New User
Joined: 27 Apr 2012 Posts: 42 Location: NY
|
|
|
|
What have you tried to do?
My solution would be on the INREC, use PARSE to separate the fields and BUILD the record using UFF into fixed positions and lengths.
Then use an OUTREC BUILD to insert the '/' at the appropriate position, |
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1231 Location: Bamberg, Germany
|
|
|
|
Code: |
INREC IFTHEN=(WHEN=INIT,
PARSE=(%01=(STARTAT=NUM,ENDBEFR=C'/',FIXLEN=2),
%02=(STARTAT=NUM,ENDBEFR=C'/',FIXLEN=2),
%03=(STARTAT=NUM,ENDBEFR=C'/',FIXLEN=4),
%11=(ABSPOS=12,STARTAT=NUM,ENDBEFR=C'/',FIXLEN=2),
%12=(STARTAT=NUM,ENDBEFR=C'/',FIXLEN=2),
%13=(STARTAT=NUM,ENDBEFR=C'/',FIXLEN=4)),
BUILD=(%01,UFF,M11,C'/',%02,UFF,M11,C'/',%03,UFF,M11,X,
%11,UFF,M11,C'/',%12,UFF,M11,C'/',%13,UFF,M11))
SORT FIELDS=(COPY)
END
|
RTFM. |
|
Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1231 Location: Bamberg, Germany
|
|
|
|
Minor update
Code: |
INREC IFTHEN=(WHEN=INIT,
PARSE=(%01=(STARTAT=NUM,ENDBEFR=C'/',FIXLEN=2),
%02=(STARTAT=NUM,ENDBEFR=C'/',FIXLEN=2),
%03=(STARTAT=NUM,FIXLEN=4),
%11=(STARTAT=NUM,ENDBEFR=C'/',FIXLEN=2),
%12=(STARTAT=NUM,ENDBEFR=C'/',FIXLEN=2),
%13=(STARTAT=NUM,FIXLEN=4)),
BUILD=(%01,UFF,M11,C'/',%02,UFF,M11,C'/',%03,UFF,M11,X,
%11,UFF,M11,C'/',%12,UFF,M11,C'/',%13,UFF,M11))
SORT FIELDS=(COPY)
END
|
|
|
Back to top |
|
|
|
|