|
View previous topic :: View next topic
|
| Author |
Message |
Hritam
New User
Joined: 27 Jun 2005
Posts: 36
Location: India
|
|
|
|
Hi,
I have the following requirement -
I have to convert all the leading spaces coming in an input record of length 8 bytes to ZEROS . The number of space can be variable
e.g INPUT file looks like
bb001003
bbb13457
b6789467
OUTPUT file should be
00001003
00013457
06789467
where b=SPACES
I want to accomplish this without using IF and BUILD . |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You don't need IFTHEN and BUILD for this. You can do it quite easily with DFSORT's UFF format like this:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(1,8,UFF,M11,LENGTH=8)
/*
|
|
|
| Back to top |
|
|
Hritam
New User
Joined: 27 Jun 2005
Posts: 36
Location: India
|
|
|
|
| Thanks Frank!! |
|
| Back to top |
|
|
|
|
