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 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: 4650
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 Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am
No new posts WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm
No new posts Suppress value reported by BREAK in D... Learncoholic DFSORT/ICETOOL 3 Wed Aug 16, 2017 6:03 pm
No new posts Multiple VSAM files single output fil... Mohan Kothakota DFSORT/ICETOOL 11 Wed Aug 09, 2017 7:57 pm

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