Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search 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
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
References
priyesh.agrawal

Global Moderator


Joined: 28 Mar 2005
Posts: 1509
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: 3383
Location: Charlotte,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: 4684
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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1