MVSFORUMS.com

[naveen]

I have to replace all leading spaces in column positon 1 to 6 with zeroes. Input file is of lenght 80 (FB). How can this be done thru sort or batch file-aid ?

I/P:

[kolusu]

Naveen,

Do you want to replace only the leading spaces or any space within the first 6 bytes.

For ex: look at the record

[Frank Yaeger]

And by "zero", do you mean a character zero (C'0' = X'F0') or a binary zero (X'00')?
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[naveen]

Kolusu,

Only leading spaces:

(space)(space)2345 should be changed to 002345


and

(space)234(space)5

should be changed to 0234(space) 5.


Frank,

Zero is C'0'

[Frank Yaeger]

Naveen,

Here's a DFSORT job that will do what you asked for. It uses the new IFTHEN and OVERLAY features of DFSORT available with z/OS DFSORT V1R5 PTF UQ95214 and DFSORT R14 PTF UQ95213 (Dec, 2004). If you have DFSORT, but you don't have the Dec, 2004 PTF installed, ask your System Programmer to install it (it's free).
For complete details on all of the new DFSORT and ICETOOL functions available with the Dec, 2004 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/pdug/

[naveen]

Thanks a lot Frank.