IBM Mainframe Forum

by **javivi** » Fri Feb 18, 2011 1:27 pm

Hi
I have the next file with 40 lrecL and 5 fields:
field-1 char(5)
field2 char(10)
field3 char(10)
field4 char(10)
field5 char(5)

aaaaaJUAN LOPEZ RAMIREZ 11111
bbbbbANA DELA VARELA 22222
cccccANTON REY OLMO 33333

and I need to generate the file
filed1 char(5)
field2 char(30)
field3 char(5)

aaaaaJUAN LOPEZ RAMIREZ 11111
bbbbbANA DELA VARELA 22222
cccccANTON REY OLMO 333333

It is possible?

Thanks.-Â¡

by **javivi** » Fri Feb 18, 2011 9:39 pm

Easier than I thought, I found the solution myself:

Select all

OPTION COPY
OUTFIL BUILD=(01,05,
06,30,SQZ=(SHIFT=LEFT,MID=C' ',length=30),
36,05)

by **Frank Yaeger** » Fri Feb 18, 2011 11:18 pm

Good for you, but your solution is more complicated than it needs to be. Here's a simpler set of DFSORT control statements:

Select all

OPTION COPY
INREC OVERLAY=(6:6,30,SQZ=(SHIFT=LEFT,MID=C' '))

by **javivi** » Mon Feb 21, 2011 8:38 pm

Really,
thanks Frank.

IBM Mainframe Forum

take out spaces and join fields into a file

take out spaces and join fields into a file

Re: take out spaces and join fields into a file

Re: take out spaces and join fields into a file

Re: take out spaces and join fields into a file