IBM Mainframe Forum

Posted: **Wed Dec 12, 2012 1:10 pm**

Hello there,

Is it possible to copy a dsn with lrecl VB 255 to a dsn with FB 133 without losing any data (no truncating) ?
I search a way to keep the data over 133 characters on the first line and put it at the begining of the next line, and so on.

For example, I have this kind of data in the input dsn :

Select all

LINE 1111111111LINE 222
2222222LINE 3333333333L
INE 4444444444

The idea is to get this in output dsn :

Select all

LINE 1111111111
LINE 2222222222
LINE 3333333333
LINE 4444444444

Posted: **Wed Dec 12, 2012 1:48 pm**

Have a look at the RESIZE operator of ICETOOL. If you still are unsure or have problems, post the full sysout from the step that you tried and explain your VB a little more.

Posted: **Wed Dec 12, 2012 4:06 pm**

This operator RESIZE seems to be exactly what I was looking for !
But unfortunately on my site, I just was told that we don't have ICETOOL utility

Instead we have Syncsort.

Anyway, if I understand well, the solution with Icetool would be something like that :

Select all

//RUNIT EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SHOWDEF DD SYSOUT=*
//IN1 DD DSN=FILEIN,DISP=SHR
//OUT1 DD DSN=FILEOUT,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSALLDA,SPACE=(CYL,(100,10),RLSE)
//TOOLIN DD *
RESIZE FROM(IN1) TO(OUT1) TOLEN(133)
/*

I'll continue with a new topic in Syncsort forum.

Thanks.

Posted: **Wed Dec 12, 2012 9:30 pm**

Hello,

How many records are n the input file?

Posted: **Thu Dec 13, 2012 1:22 am**

I opened a new topic in Syncsort forum but this one was moved also in the same forum.

Sorry for the duplicate.

Could some admin close this topic ?

IBM Mainframe Forum

Copy VB to FB with smaller LRECL

Copy VB to FB with smaller LRECL

Re: Copy VB to FB with smaller LRECL

Re: Copy VB to FB with smaller LRECL

Re: Copy VB to FB with smaller LRECL

Re: Copy VB to FB with smaller LRECL