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 

Error while using SPLICE OPERATOR in a ICETOOL JOB

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
mfuser
Banned


Joined: 01 Mar 2005
Posts: 105
Topics: 58
PostPosted: Fri Jun 30, 2006 8:42 am    Post subject: Error while using SPLICE OPERATOR in a ICETOOL JOB Reply with quote
Members,

I am getting the following error message while running a ICETOOL Job with SPLICE OPERATOR.I am unable to solve the problem .Please help me.
Code:

IEF344I JOB1 STEP010 CONCT1 +001 - ALLOCATION FAILED DUE TO DATA FACILITY SYSTEM ERROR
IGD17261I INVALID VOLUME LIST PASSED TO VTOC DATA SET SERVICES OLD SMS DATA SET ALLOCATION
FOR DATA SET SYS06181.T185349.RA000.JOB1.T2.H01                             
IGD306I UNEXPECTED ERROR DURING IGDVTSAR PROCESSING                             
RETURN CODE 8 REASON CODE 17261                                                 
THE MODULE THAT DETECTED THE ERROR IS IGDVTSAR                                 
SMS MODULE TRACE BACK - VTSAR SSIRT                                             
SYMPTOM RECORD CREATED, PROBLEM ID IS IGD00366

JCL CODE
Code:

//STEP010  EXEC PGM=ICETOOL                                             
//TOOLMSG  DD SYSOUT=*                                                 
//DFSMSG   DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//TOOLIN   DD *                                                         
                                                                       
* SAMPLE JCL TO MAKE USE OF SPLICE OPERATOR                             
                                                                       
  COPY FROM(REGION1) TO(T1) USING(CTL1)                                 
  COPY FROM(REGION2) TO(T2) USING(CTL2)                                 
  SPLICE FROM(CONCT1) WITHALL -                                         
         ON(5,5,CH)           - REGION                                 
         WITH(1,4)            - OFFICE                                 
         WITH(25,4)           - EMPLOYEES                               
         WITH(29,10)          - EVALUATION                             
         TO(REGOUT)                                                     
/*                                                                     
//REGION1 DD DSN=PROJECT.WORK.REGION1,DISP=SHR                           
//REGION2 DD DSN=PROJECT.WORK.REGION2,DISP=SHR                           
//T1      DD DSN=&&T1,UNIT=3390,DISP=(,PASS),SPACE=(TRK,(1,1))         
//T2      DD DSN=&&T2,UNIT=3390,DISP=(,PASS),SPACE=(TRK,(1,1))         
//CONCT1  DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,PASS)                     
//        DD DSN=*.T2,VOL=REF=*.T1,DISP=(OLD,PASS)                     
//REGOUT  DD DSN=PROJECT.WORK.REGOUT,DISP=(NEW,CATLG,CATLG),             
//           SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA                         
//CTL1CNTL DD *                                                         
  OUTREC FIELDS=(5:1,5,        REGION                                   
                10:21,15       REGIONAL DIRECTOR                       
                39:6,15        HEADQUARTERS                             
/*                                                                     
//CTL2CNTL DD *                                                         
  OUTREC FIELDS=(1:1,4)        OFFICE                                   
                5:5,5          REGION                                   
                25:10,4        EMPLOYEES                               
                29:14,10,      EVALUATION                               
                80:X)                                                   
/*                                                                     
//                                                                     
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Fri Jun 30, 2006 8:46 am    Post subject: Reply with quote
Quote:

//CONCT1 DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,PASS)
// DD DSN=*.T2,VOL=REF=*.T1,DISP=(OLD,PASS)


Mfuser,

You have the Volume reference for t2 as T1(Item in bold) which is the reason for your abend. Change that to T2 and your job will run fine.

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
mfuser
Banned


Joined: 01 Mar 2005
Posts: 105
Topics: 58
PostPosted: Fri Jun 30, 2006 9:02 am    Post subject: Reply with quote
Kolusu,

Thanks for your early reply and i am able to run my job fine but i am getting RC=16 and i am not able to get any clue,can u please help me?

TOOLMSG
Code:

            SPLICE FROM(CONCT1) WITHALL -                                       
                   ON(5,5,CH)           - REGION                               
                   WITH(1,4)            - OFFICE                               
                   WITH(25,4)           - EMPLOYEES                             
                   WITH(29,10)          - EVALUATION                           
                   TO(REGOUT)                                                   
ICE627I 0 DFSORT CALL 0003 FOR SORT FROM CONCT1   TO REGOUT   TERMINATED       
ICE602I 0 OPERATION RETURN CODE:  16                                           
                                                                               
                                                                               
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  16                   

DFSMSG
Code:

ICE063A J OPEN ERROR CONCT1
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Fri Jun 30, 2006 9:10 am    Post subject: Reply with quote
mfuser,

Your CTL1CNTL/CTL2CNTL control cards are wrong. you are missing a comma as well as a closing paranthesis. Also your T1 has an lrecl of 53 (based on your outrec fields) and t2 has an lrecl of 80 . You cannot concate 2 different LRECL FB datasets.

Change your control cards to the following.

Code:

//CTL1CNTL DD *
  OUTREC FIELDS=(05:1,5,        $ REGION
                 10:21,15,      $ REGIONAL DIRECTOR
                 39:6,15,       $ HEADQUARTERS
                 80:x)   
/*
//CTL2CNTL DD *
  OUTREC FIELDS=(01:1,4,        $ OFFICE
                 05:5,5,        $ REGION
                 25:10,4        $ EMPLOYEES
                 29:14,10,      $ EVALUATION
                 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
mfuser
Banned


Joined: 01 Mar 2005
Posts: 105
Topics: 58
PostPosted: Fri Jun 30, 2006 9:23 am    Post subject: Reply with quote
Kolusu,

Thanks once again and i have come to know my mistakes as well as i am able to get the job run successfuly.
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: Fri Jun 30, 2006 10:32 am    Post subject: Reply with quote
Actually, it would be best to avoid concatenation with referback due to the potential problems caused by the system restriction described here in the second bullet:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA10/1.8.3.1?SHELF=&DT=20050222160456&CASE=

Instead, it's better to use one MOD temp data set, e.g.

Code:

  ...
  COPY FROM(REGION1) TO(T1) USING(CTL1)
  COPY FROM(REGION2) TO(T1) USING(CTL2)
  SPLICE FROM(T1) WITHALL -
         ON(5,5,CH)           - REGION
         WITH(1,4)            - OFFICE
         WITH(25,4)           - EMPLOYEES
         WITH(29,10)          - EVALUATION
         TO(REGOUT)
/*
//REGION1 DD DSN=PROJECT.WORK.REGION1,DISP=SHR
//REGION2 DD DSN=PROJECT.WORK.REGION2,DISP=SHR
//T1      DD DSN=&&T1,UNIT=3390,DISP=(MOD,PASS),SPACE=(TRK,(1,1))
//REGOUT  DD DSN=PROJECT.WORK.REGOUT,DISP=(NEW,CATLG,CATLG),
//           SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA

_________________
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
Page 1 of 1

 
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