|
View previous topic :: View next topic
|
| Author |
Message |
prasanth_bs
New User
Joined: 08 Aug 2005
Posts: 9
|
|
|
|
My input file is of the following order
| Code: |
0001|abc |1234
0002|abncd |1235
0003|abdn |4567
|
My output Files needs to be like
| Code: |
0001|abc|1234
0002|abncd|1235
0003|abdn|4567
|
ie, I want to trim all the spaces in the column2. |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
prasanth_bs,
Here's a DFSORT job that will do what you asked for. You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use DFSORT's SQZ function. If you don't have the April, 2006 PTF, 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 April, 2006 PTF, see:
Use [URL] BBCode for External Links
| 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:1,43,SQZ=(SHIFT=LEFT))
/*
|
|
|
| Back to top |
|
|
prasanth_bs
New User
Joined: 08 Aug 2005
Posts: 9
|
|
|
|
Hi Frank
Is there Any other method for Doing this becauze the DF sort version we are using is an older one
Could you please suggest is there an alternative for this solution
Thanks a Lot for the earlier solution |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| The alternate solution would be to write your own E15 or E35 exit with the logic to do the function provided by SQZ. |
|
| Back to top |
|
|
|
|
