IBM Mainframe Forum

[Sephiburp]

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

[BillyBoyo]

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.

[Sephiburp]

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.

[dick scherrer]

Hello,

How many records are n the input file?

[Sephiburp]

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 ?