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

Error in ICETOOL Jobs
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Siva S

New User


Joined: 26 Mar 2008
Posts: 35
Location: Chennai
PostPosted: Mon Nov 03, 2008 8:50 am
 Reply with quote
Hi,
While taking the RACF report using the ICETOOL, I got an error. So I have attached is the DFSMSG messages,

Code:

********************************* TOP OF DATA **********************************
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001                               
ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 21:23 ON SAT NOV
           SORT FIELDS=(10,8,CH,A)                                             
           INCLUDE COND=(5,4,CH,EQ,C'0270')                                     
           OPTION VLSHRT VLLONG VLTRIM=C''                                     
ICE146I 0 END OF STATEMENTS FROM RACFCNTL - PARAMETER LIST STATEMENTS FOLLOW   
          DEBUG NOABEND,ESTAE                                                   
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=RACF,SORTIN=RACFD
                         TA,SORTOUT=TEMP0001,DYNALLOC                           
          SORT FIELDS=COPY                                                     
ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5                         
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE   E5-K24705
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED   
ICE088I 0 ICEREPRT.REPORT  .        , INPUT LRECL = 4096, BLKSIZE = 27998, TYPE
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)                                 
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6212624,6212624)                           
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=Y,LIST=Y,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO   ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=
ICE132I 0 OPTIONS: VLSHRT=Y,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0                                                 
ICE084I 0 EXCP ACCESS METHOD USED FOR TEMP0001                                 
ICE084I 0 EXCP ACCESS METHOD USED FOR RACFDATA                                 
ICE750I 0 DC 6130686 TC 0 CS DSVRR KSZ 12 VSZ 12                               
ICE752I 0 FSZ=6130686 BC  IGN=0 E  AVG=2055 0  WSP=7989 C  DYN=2 53216         
ICE217A 7 2162 BYTE VARIABLE RECORD IS LONGER THAN 80 BYTE MAXIMUM FOR TEMP0001
ICE751I 1 D8-K24705 D4-K24705 D1-K24705 E8-K24705                               
ICE052I 0 END OF DFSORT                                                         
******************************** BOTTOM OF DATA ********************************


Kindly help me in this.

Thanks in advance.
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: Mon Nov 03, 2008 8:56 am
 Reply with quote
Hello,

Please post the jcl for this step also.
Back to top
View user's profile Send private message
Siva S

New User


Joined: 26 Mar 2008
Posts: 35
Location: Chennai
PostPosted: Mon Nov 03, 2008 9:30 am
 Reply with quote
Thank for your reply.Here is the JCL for this job,

Code:

//REPORT   EXEC PGM=ICETOOL                                             
//RACFDATA DD DISP=SHR,DSN=A202191.RACF.FLATFILE,RECFM=VB,             
//            LRECL=4096,BLKSIZE=27998                                 
//TEMP0001 DD DISP=(NEW,KEEP),SPACE=(TRK,(200,100)),RECFM=VB           
//TEMP0002 DD DISP=(NEW,KEEP),SPACE=(TRK,(200,100)),RECFM=VB           
//TOOLMSG  DD SYSOUT=*                                                 
//PRINT    DD SYSOUT=(A,,STD),HOLD=YES  ,DEST=U0022                     
//DFSMSG   DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSMSG   DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                               
//SYSIN    DD DUMMY                                                 
/*                                                                   
//*------------------------------------------------------------------
//TOOLIN   DD *                                                     
 COPY    FROM(RACFDATA) TO(TEMP0001) USING(RACF)                     
 DISPLAY FROM(TEMP0001) LIST(PRINT) -                               
         PAGE -                                                     
         TITLE('USERIDS WITH AN OMVS SEGMENT') -                     
         DATE(YMD/) -                                               
         TIME(12:)  -                                               
         BLANK      -                                               
         ON(VLEN) -                                                 
         ON(10,8,CH)     HEADER('USERID')    -                       
         ON(19,10,CH)    HEADER('OMVS UID')  -                       
         ON(30,43,CH)    HEADER('HOME PATH') -                       
         ON(1054,43,CH)  HEADER('PROGRAM')                           
/*                                                                   
//*------------------------------------------------------------------
//RACFCNTL DD *                                                     
  SORT FIELDS=(10,8,CH,A)                                               
  INCLUDE COND=(5,4,CH,EQ,C'0270')                                       
  OPTION VLSHRT                                                         
 /*                                                                     


Kindly look into this and suggest me regarding this...
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
PostPosted: Mon Nov 03, 2008 11:45 pm
 Reply with quote
Quote:
ICE217A 7 2162 BYTE VARIABLE RECORD IS LONGER THAN 80 BYTE MAXIMUM FOR TEMP0001


Siva S,

Looks like you pre-allocated the TEMP0001 file with an LRECL of 80 bytes. if you coded the DCB parameter on TEMP0001 file , please remove them and re-run the job. Also your DISPLAY statement is missing a header parm for the VLEN

Code:

DISPLAY FROM(TEMP0001) LIST(PRINT) -
PAGE -
TITLE('USERIDS WITH AN OMVS SEGMENT') -
DATE(YMD/) -
TIME(12:) -
BLANK -
ON(VLEN) HEADER('VLEN')   -
ON(10,8,CH) HEADER('USERID') -
ON(19,10,CH) HEADER('OMVS UID') -
ON(30,43,CH) HEADER('HOME PATH') -
ON(1054,43,CH) HEADER('PROGRAM')
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: Tue Nov 04, 2008 12:02 am
 Reply with quote
Siva S,

Something doesn't add up here. You received the error message because your TEMP0001 data set has LRECL=80, but I don't see anything in the JCL you posted that sets that LRECL. When I ran a job like yours, TEMP0001 was given an LRECL of 4096 (as I would expect it to), and the COPY operator ran without an error (the DISPLAY operator got an error message because you don't have a HEADER operand for the first ON operand).

I suspect you're not showing the actual JCL you used for the job associated with the error message. Another clue that's true is the following;

In the DFSMSG messages, it shows:

Code:

   OPTION VLSHRT VLLONG VLTRIM=C''


whereas in your RACFCNTL JCL, you have:

Code:

  OPTION VLSHRT


so that doesn't match up either. Note that VLLONG and VLTRIM=C' ' will be ignored since you have a blank after VLSHRT, but VLLONG and VLTRIM=C' ' aren't needed anyway.

You need to figure out why TEMP0001 has LRECL=80. Or you could just override the LRECL=80 by specifying LRECL=4096 for the TEMP0001 DD.
Back to top
View user's profile Send private message
Siva S

New User


Joined: 26 Mar 2008
Posts: 35
Location: Chennai
PostPosted: Tue Nov 04, 2008 12:32 pm
 Reply with quote
Hi Skolusu,
I did not pre allocate TEMP0001, but now after Including the RECFM=VB and LRECL=4096 with TEMP0001 , the JCL generated a report and ended with Return Code 0.

Hi Frank,
I had given only the actual JCL that I submitted. Now I added ON
(VLEN) HEADER('VLEN') in the DISPLAY and VLLONG VLTRIM=C'' in the SORT . It is working fine.


Thank you Skolusu and Frank for your support.
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 Finding and researching jobs All Other Mainframe Topics 0
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts How to create a list of SAR jobs with... CA Products 3
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