MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Making the Last Record as the First Record in File
Goto page Previous  1, 2
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
vini
Intermediate


Joined: 12 Jan 2004
Posts: 240
Topics: 48
Location: Maryland
PostPosted: Tue Jun 01, 2004 10:38 am    Post subject: Reply with quote
Frank,
Need your help with some errors am encountering ...

Input File : FB, LRECL 340.
Code:


ICE213A    0    INVALID OUTFIL STATEMENT OPERAND               
            TRAILER1=(1,256,257,84)                     
            $                                           
ICE005A 0 STATEMENT DEFINER ERROR                       
            OUTFIL FNAMES=CTL2CNTL,REMOVECC,NODETAIL,   
                                   $                     
ICE213A 0 INVALID OUTFIL STATEMENT OPERAND               
            STARTREC=2,                                 
            $                                           
ICE005A 0 STATEMENT DEFINER ERROR                       
            TRAILER1=('  OPTION STOPAFT=',               
            $                                           
ICE005A 0 STATEMENT DEFINER ERROR                       
            COUNT=(M11,LENGTH=15),80:X)                 
            $                                           
ICE005A 0 STATEMENT DEFINER ERROR                       

The JCL Steps :
Code:

//S0        EXEC PGM=ICETOOL                                     
//TOOLMSG   DD  SYSOUT=*                                         
//DFSMSG    DD  SYSOUT=*                                         
//IN        DD DSN=WLFA.ASX848FA.WA02PS.G0011V00,DISP=SHR,LRECL=340       
//CTL2CNTL  DD DSN=&&T2,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//** USE MOD FOR OUT                                             
//OUT       DD DISP=MOD,DSN=WLFA.WOJI.ASX848.BOTTOP.SEQ         
//TOOLIN DD *                                                   
  COPY FROM(IN) USING(CTL1)                                     
  COPY FROM(IN) TO(OUT) USING(CTL2)                             
//CTL1CNTL DD *                                                 
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,                           
  TRAILER1=(1,256,257,84)                                       
  OUTFIL FNAMES=CTL2CNTL,REMOVECC,NODETAIL,                     
  STARTREC=2,                                                   
  TRAILER1=('  OPTION STOPAFT=',                                 
  COUNT=(M11,LENGTH=15),80:X)     
/*                                ,
Back to top
View user's profile Send private message
vini
Intermediate


Joined: 12 Jan 2004
Posts: 240
Topics: 48
Location: Maryland
PostPosted: Tue Jun 01, 2004 10:43 am    Post subject: Reply with quote
Dhruv, Its just that I want to take the Utility/JCL route for a change Smile
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Tue Jun 01, 2004 10:54 am    Post subject: Reply with quote
Vini,

I'm guessing you started one or more of the CTL1CNTL lines in column 1 instead of in column 2. Column 1 is interpreted as a label. You need at least one blank at the start of each line. If you look at the job I posted carefully, you'll see the leading blanks.

Add blanks in front of each line as follows where b is a leading blank:

Code:

//CTL1CNTL DD *
bOUTFIL FNAMES=OUT,REMOVECC,NODETAIL,
bbTRAILER1=(1,256,257,84)
bOUTFIL FNAMES=CTL2CNTL,REMOVECC,NODETAIL,
bbSTARTREC=2,
bbTRAILER1=(' OPTION STOPAFT=',
bbCOUNT=(M11,LENGTH=15),80:X)
/*

_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12369
Topics: 75
Location: San Jose
PostPosted: Tue Jun 01, 2004 10:55 am    Post subject: Reply with quote
vini,

Your control statements should start in position 2.

oops I was late by a minute

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
vini
Intermediate


Joined: 12 Jan 2004
Posts: 240
Topics: 48
Location: Maryland
PostPosted: Tue Jun 01, 2004 11:14 am    Post subject: Reply with quote
Frank ,
The control statements were starting from position 2 , they may have not appeared so after I pasted them here . Confused

Heres how it looks and I tried again but got same errors , could there be a problem in the TRAILER1=(1,256,257,84) ? The Lrecl =340.
Code:

//CTL1CNTL DD *                           
 OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,     
  TRAILER1=(1,256,257,84)                 
 OUTFIL FNAMES=CTL2CNTL,REMOVECC,NODETAIL,
  STARTREC=2,                             
  TRAILER1=('  OPTION STOPAFT=',           
  COUNT=(M11,LENGTH=15),80:X)             
/*
Back to top
View user's profile Send private message
vini
Intermediate


Joined: 12 Jan 2004
Posts: 240
Topics: 48
Location: Maryland
PostPosted: Tue Jun 01, 2004 11:17 am    Post subject: Reply with quote
Ooops ! Sorry , thats not the way I have it in the JCL , its as follows (hopefully this time it will appear as intended) :

Code:

//CTL1CNTL DD *                           
 OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,     
  TRAILER1=(1,256,257,84)                 
 OUTFIL FNAMES=CTL2CNTL,REMOVECC,NODETAIL,
  STARTREC=2,                             
  TRAILER1=('  OPTION STOPAFT=',           
  COUNT=(M11,LENGTH=15),80:X)             
/*     
Back to top
View user's profile Send private message
vini
Intermediate


Joined: 12 Jan 2004
Posts: 240
Topics: 48
Location: Maryland
PostPosted: Tue Jun 01, 2004 11:20 am    Post subject: Reply with quote
Even though I Indent the Code (after pasting) , the final version looks different Sad
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12369
Topics: 75
Location: San Jose
PostPosted: Tue Jun 01, 2004 12:08 pm    Post subject: Reply with quote
vini,

Try this control cards.

Code:

//CTL1CNTL DD  *                                       
  INREC FIELDS=(1,340,SEQNUM,8,ZD,START=0,INCR=1)       
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,                   
  TRAILER1=(1,80,81,80,161,80,241,80,320,20)             
  OUTFIL FNAMES=CTL2CNTL,REMOVECC,NODETAIL,             
  TRAILER1=(' OPTION STOPAFT=',341,8,/,                 
            ' OUTFIL FNAMES=OUT',80:X)                   
/*


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Tue Jun 01, 2004 12:12 pm    Post subject: Reply with quote
Ok, I suspect it's the REMOVECC option that's causing your problems. To use REMOVECC, you need DFSORT R14 PTF UQ99331 (March, 2002) which has been available for over two years now. Ask your System Programmer to install DFSORT R14 PTF UQ90053 (Feb, 2003) - it's free and it will get you all of the latest functional PTFs including UQ99331.

The alternative is to not use REMOVECC and then have a separate step to remove the carriage control characters.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group