Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Record lenght in a Unload statement with ICETOOL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Dewor

New User


Joined: 02 Sep 2005
Posts: 2

PostPosted: Fri Sep 02, 2005 9:12 pm    Post subject: Record lenght in a Unload statement with ICETOOL
Reply with quote

Hi everybody,
I'm trying to convert a VB 458 into an FB 500 dataset.. Help me..
This is my job, but it's not good..

Code:

//S020     EXEC PGM=ICETOOL,REGION=5120K                       
//TOOLMSG  DD SYSOUT=*                                         
//DFSMSG   DD SYSOUT=*                                         
//IN1      DD DSN=&&TPTTAB,DISP=(OLD,PASS)                     
//OUT1     DD DSN=dataset name,DISP=(,PASS),   
//            SPACE=(CYL,(800,300),RLSE),UNIT=(DISK,5),RECFM=FB
//*                                                           
//TOOLIN   DD *                                               
  SORT FROM(IN1)  TO(OUT1) USING(SRT1)                         
//*                                                           
//SRT1CNTL DD *                                               
  SORT FIELDS=COPY                                             
  OUTFIL FNAMES=OUT1,CONVERT,OUTREC=(7,500)



Respond that "OUTREC FIELD OUTSIDE RANGE"
Back to top
View user's profile Send private message

priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Fri Sep 02, 2005 10:03 pm    Post subject: Re: Record lenght in a Unload statement with ICETOOL
Reply with quote

Hi Dewor,

First thing, If you are converting a VB I/P file, record length 458 to a FB O/P file ...the O/P file should be LRECL= 454 (458-4). Why 500 here ?

another thing...

Code:
OUTFIL FNAMES=OUT1,CONVERT,OUTREC=(7,500)


change it to the

Code:
OUTFIL FNAMES=OUT1,VTOF,OUTREC=(5,454)


It should work....

Regards,

Priyesh.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Fri Sep 02, 2005 10:25 pm    Post subject: Re: Record lenght in a Unload statement with ICETOOL
Reply with quote

Try this:

Code:

//S020     EXEC PGM=ICETOOL,REGION=5120K                       
//TOOLMSG  DD SYSOUT=*                                         
//DFSMSG   DD SYSOUT=*                                         
//IN1      DD DSN=&&TPTTAB,DISP=(OLD,PASS)                     
//OUT1     DD DSN=dataset name,DISP=(,PASS),   
//            SPACE=(CYL,(800,300),RLSE),UNIT=(DISK,5)
//*                                                           
//TOOLIN   DD *                                               
  COPY FROM(IN1) USING(SRT1)                         
//*                                                           
//SRT1CNTL DD *                                               
  OUTFIL FNAMES=OUT1,CONVERT,OUTREC=(7,452,500:X),
    VLFILL=X'40'   * Truncate first two colums

  or

   OUTFIL FNAMES=OUT1,CONVERT,OUTREC=(5,454,500:X),
    VLFILL=X'40'   * Keep first two columns
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Sep 02, 2005 11:31 pm    Post subject:
Reply with quote

Dewor,

Superk has it right. However, with DFSORT, you don't really need VLFILL=X'40' since it's used automatically with CONVERT (or the more user friendly alias VTOF).

FYI, "OUTREC FIELD OUTSIDE RANGE" is a Syncsort message (WERxxxA), so you're using Syncsort/SYNCTOOL, not DFSORT/ICETOOL.
DFSORT/ICETOOL has ICExxxs messages.
Back to top
View user's profile Send private message
Dewor

New User


Joined: 02 Sep 2005
Posts: 2

PostPosted: Mon Sep 05, 2005 6:48 pm    Post subject:
Reply with quote

I know the conversion value from a vb to fb is "value-4" but I want to do a 500 fb dataset without any use of other sort.. Just with unload utility.

I want to create a dataset which contains table and a filler, not only the occurence of the table. The copy is 454 but I wan to resize in 500 fb without any statement. Do you think is it possible??

Thank you very much.
Dewor
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts -913/-911 Deadlock during UPDATE stat... NoSleep319 DB2 5 Fri Nov 18, 2016 12:37 am
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm
No new posts sort with previous record anatol DFSORT/ICETOOL 9 Thu Oct 06, 2016 2:36 am
No new posts ICETOOL/SYNCSORT - SYSPRINT output nartcr DFSORT/ICETOOL 17 Wed Oct 05, 2016 10:46 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us