gaylesmith
New User
Joined: 25 May 2007 Posts: 5 Location: los angeles, CA
|
|
|
|
Hi,
Wondering if it is possible, using DFSORT/ICETOOL to add a leading Zero to a field?
For example, if I have a line of data that looks like:
Code: |
300105 64819673.11 .00 47680690.36 .00
|
and I need to change the data if there is no value in the one-dollar column to contain a 0.
That is for the above data the 2 fields with .00 should be 0.00
If the data had .05, I need it to be 0.05.
The file was originally created using FOCUS, and it cannot put only 1 leading 0.
I can use the File Manager tool to do it, but was wondering if DFSORT/ICETOOL can do this.
Thank-you for your time. |
|
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.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
300105 64819673.11 .00 47680690.36 .00
300105 .11 5.00 .36 23.00
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(16,1,CH,EQ,C' '),
OVERLAY=(16:C'0'),HIT=NEXT),
IFTHEN=(WHEN=(24,1,CH,EQ,C' '),
OVERLAY=(24:C'0'),HIT=NEXT),
IFTHEN=(WHEN=(40,1,CH,EQ,C' '),
OVERLAY=(40:C'0'),HIT=NEXT),
IFTHEN=(WHEN=(48,1,CH,EQ,C' '),
OVERLAY=(48:C'0'))
/*
|
SORTOUT will have:
Code: |
300105 64819673.11 0.00 47680690.36 0.00
300105 0.11 5.00 0.36 23.00
|
|
|