Copy VB to FB with smaller LRECL



Support for NetApp SyncSort for z/OS, Visual SyncSort, SYNCINIT, SYNCLIST and SYNCTOOL

Copy VB to FB with smaller LRECL

Postby Sephiburp » 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 :
LINE 1111111111LINE 222
2222222LINE 3333333333L
INE 4444444444


The idea is to get this in output dsn :
LINE 1111111111
LINE 2222222222
LINE 3333333333
LINE 4444444444
Sephiburp
 
Posts: 9
Joined: Wed Dec 12, 2012 12:53 pm
Has thanked: 1 time
Been thanked: 0 time

Re: Copy VB to FB with smaller LRECL

 

Re: Copy VB to FB with smaller LRECL

Postby BillyBoyo » 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.

These users thanked the author BillyBoyo for the post:
Sephiburp (Wed Dec 12, 2012 4:21 pm)
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times

Re: Copy VB to FB with smaller LRECL

Postby Sephiburp » 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 :x
Instead we have Syncsort.

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

//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.
Sephiburp
 
Posts: 9
Joined: Wed Dec 12, 2012 12:53 pm
Has thanked: 1 time
Been thanked: 0 time

Re: Copy VB to FB with smaller LRECL

Postby dick scherrer » Wed Dec 12, 2012 9:30 pm

Hello,

How many records are n the input file?
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: Copy VB to FB with smaller LRECL

Postby Sephiburp » 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 ?
Sephiburp
 
Posts: 9
Joined: Wed Dec 12, 2012 12:53 pm
Has thanked: 1 time
Been thanked: 0 time


Return to Syncsort/Synctool

 


  • Related topics
    Replies
    Views
    Last post