IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Can ICETOOL SORT from VB to FB?
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Jason Philip

New User


Joined: 19 May 2007
Posts: 5
Location: Toronto, Ontario
PostPosted: Sun Nov 09, 2008 12:57 am
 Reply with quote
I have a VB dataset I want to sort into FB using OUTREC= .

However I get the following error:
ICE043A K INVALID DATA SET ATTRIBUTES SPECIFIED SORTOUT RECFM

Here is the exact JCL (notice the output should be comprise of 6 + 3 + 77 = 86 bytes) :

Code:
//SORT     EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN       DD DISP=SHR,DSN=TCCV.GBL9.PVT
//SORTOUT  DD DSN=TCCV.GBL9.PVT.SORT,DISP=(,CATLG,CATLG),
//         UNIT=DISK,SPACE=(CYL,(99,99),RLSE),
//         DCB=(RECFM=FB,LRECL=86,BLKSIZE=8600)
//SYSOUT   DD SYSOUT=*
//TOOLIN   DD *
  SORT FROM(IN) TO(SORTOUT) USING(INCL)
//INCLCNTL DD *
  INCLUDE COND=(074,003,CH,EQ,C'MTC',OR,
                074,003,CH,EQ,C'HOF',OR,
                074,003,CH,EQ,C'PRV')
  SORT FIELDS=(074,003,CH,A)
  OUTREC FIELDS=(074,006,318,003,328,077)
//


"Code"ed for readability. . .
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Sun Nov 09, 2008 1:57 am
 Reply with quote
Hello,

You'll want to use VTOF. Also, i'm not sure that your "outrec" is what you want.

Look at this previous topic:
ibmmainframes.com/viewtopic.php?t=29046
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Sun Nov 09, 2008 5:45 am
 Reply with quote
Jason,

Here's a DFSORT/ICETOOL job that will do what you asked for. I assumed you counted the RDW in positions 1-4 when determining your starting positions (the first data byte starts in position 5 for a VB record). If not, then increase each starting position by 4 (e.g. 74+4 = 78).

Code:

//SORT     EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN       DD DSN=&&IN,DISP=(OLD,PASS)
//SORTOUT DD DSN=&&O1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS),
//         DCB=(RECFM=FB,LRECL=86,BLKSIZE=8600)
//TOOLIN   DD *
SORT FROM(IN) USING(INCL)
/*
//INCLCNTL DD *
  INCLUDE COND=(074,003,CH,EQ,C'MTC',OR,
                074,003,CH,EQ,C'HOF',OR,
                074,003,CH,EQ,C'PRV')
  SORT FIELDS=(074,003,CH,A)
  OUTFIL FNAMES=SORTOUT,VTOF,
    BUILD=(74,6,318,3,328,77)
/*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 

Similar Topics
Topic Forum Replies
No new posts Need to set RC4 through JCL SORT DFSORT/ICETOOL 5
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts JCL sort card - get first day and las... JCL & VSAM 9
No new posts Sort First/last record of a subset th... DFSORT/ICETOOL 7
No new posts Shift left VB record without x00 endi... DFSORT/ICETOOL 11
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us