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

DFSORT error concatenating VBs to a multi volume FB dataset
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
sourabh jain

New User


Joined: 29 Feb 2008
Posts: 27
Location: Pune
PostPosted: Tue Feb 17, 2009 10:44 am
 Reply with quote
Hi,

I am trying to concatenate four VB datasets (Lrecl: 62, 47, 88 and 92) into a single FB dataset (Lrecl 89). This out put dataset is a multivolume dataset.

I am getting the error "ICE220A 3 OUT1 COULD NOT BE USED - REASON CODE IS 03."

Below is the step that is concatenating the datasets (Dataset's and Vol ser no changed).

Code:
//STEP020  EXEC PGM=SORT                                               
//SYSPRINT DD  SYSOUT=*                                                 
//SYSOUT   DD  SYSOUT=*                                                 
//SORTIN   DD  DSN=DUMS.IDMS.DISK618,                             
//             DISP=SHR                                                 
//         DD  DSN=DUMS.IDMS.DISK616,                             
//             DISP=SHR                                                 
//         DD  DSN=DUMS.IDMS.DISK632,                             
//             DISP=SHR                                                 
//         DD  DSN=DUMS.IDMS.RECS88,                         
//             DISP=SHR                                                 
//SORTOUT  DD  DSN=DUMS.IDMS.F088R1IN,                       
//             DISP=(NEW,CATLG,DELETE),UNIT=DISK,                       
//             DCB=(RECFM=FB,LRECL=89),SPACE=(CYL,(800,1500),RLSE),     
//             VOL=SER=(IINDS6,IINDS5,IINDS4,IINDS3,IINDS2,             
//             IINDS1,IINDS0)                                           
//SYSIN    DD  *                                                       
  OPTION COPY                                                           
  OUTFIL VTOF,BUILD=(5,88,89:X)                                     
/*                                                                   


Before getting this error I was using the Vol ser no in the reversed order of the one shown aove (IINDS0 through IINDS6) and In that case I recieved SE37 Abend. Just for a check, I then changed the order of the Vol ser nos (IINDS6 through IINDS0) and started recieveing ICE220A 3"

Would you pls let me know what is going wrong here? Can I user multiple volumes in DFSORT. How can I fix this?'

Thanks,
Sourabh.
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: Tue Feb 17, 2009 11:03 am
 Reply with quote
Hello,

It appears that you are trying to write more data that there is free space for your output allocation.

There is no out1. . .

Suggest you talk with your storage admins for guidance on the proper allocation for this output file on your system. Most systems do not require/support naming specific volsers when creating dasd files.
Back to top
View user's profile Send private message
sourabh jain

New User


Joined: 29 Feb 2008
Posts: 27
Location: Pune
PostPosted: Tue Feb 17, 2009 12:03 pm
 Reply with quote
Hi,

I am very Sorry, my interpretation was wrong. I am actually facing probelm in the next step of the above shown step. 'Step030' Where I am trying to search the above concatenated output for some strings using "ICETOOL".

Below is the subsequent step code..

Code:

STEP030   EXEC  PGM=ICETOOL,COND=(0,NE)                       
TOOLMSG   DD  SYSOUT=*                                       
DFSMSG    DD  SYSOUT=*                                       
IN1       DD DSN=DUMS.IDMS.F088R1IN,DISP=SHR       
OUT1      DD DSN=DUMS.IDMS.F088R1OP,               
             DISP=(MOD,CATLG,DELETE),                         
             DCB=(RECFM=FB,LRECL=91,BLKSIZE=0),               
             SPACE=(CYL,(800,1500),RLSE),                     
             VOL=SER=(IINDS6,IINDS5,IINDS4,IINDS3,IINDS2,           
             IINDS1,IINDS0)                         
TOOLIN    DD DSN=CAMLIVE.SRCUSER.ROBT.TOOLOUT,DISP=OLD       
CT01CNTL  DD DSN=DUMS.IDMS.CTL01,DISP=OLD         
CT02CNTL  DD DSN=DUMS.IDMS.CTL02,DISP=OLD         
CT03CNTL  DD DSN=DUMS.IDMS.CTL03,DISP=OLD         
CT04CNTL  DD DSN=DUMS.IDMSCTL04,DISP=OLD         
CT05CNTL  DD DSN=DUMS.IDMS.CTL05,DISP=OLD         
CT06CNTL  DD DSN=DUMS.IDMS.CTL06,DISP=OLD         
CT07CNTL  DD DSN=DUMS.IDMS.CTL07,DISP=OLD 
CT08CNTL  DD DSN=DUMS.IDMS.CTL08,DISP=OLD
CT09CNTL  DD DSN=DUMS.IDMS.CTL09,DISP=OLD
CT10CNTL  DD DSN=DUMS.IDMS.CTL10,DISP=OLD
CT11CNTL  DD DSN=DUMS.IDMS.CTL11,DISP=OLD
CT12CNTL  DD DSN=DUMS.IDMS.CTL12,DISP=OLD
CT13CNTL  DD DSN=DUMS.IDMS.CTL13,DISP=OLD
CT14CNTL  DD DSN=DUMS.IDMS.CTL14,DISP=OLD
CT15CNTL  DD DSN=DUMS.IDMS.CTL15,DISP=OLD
CT16CNTL  DD DSN=DUMS.IDMS.CTL16,DISP=OLD
CT17CNTL  DD DSN=DUMS.IDMS.CTL17,DISP=OLD
CT18CNTL  DD DSN=DUMS.IDMS.CTL18,DISP=OLD
CT19CNTL  DD DSN=DUMS.IDMS.CTL19,DISP=OLD
CT20CNTL  DD DSN=DUMS.IDMS.CTL20,DISP=OLD
       


Pls help me in finding out the problem here. Is the problem because I am not using SORTWK's?

If yes, then if I use 7 SORTWK's (Giving in all the 7 vols), then the space utilized by SORTWK's would be freed after the execution of ICETOOL. Pls correct me if I am wrong?
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
PostPosted: Tue Feb 17, 2009 12:39 pm
 Reply with quote
Quote:
Is the problem because I am not using SORTWK's?
Sourabh,

I believe this can be determined only if you show what is inside your control cards.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Tue Feb 17, 2009 12:40 pm
 Reply with quote
Quote:
ICE220A ddname COULD NOT BE USED - REASON CODE IS nn Explanation: Critical. The OUTFIL data set associated with ddname could not be processed. nn is the reason code value, as follows:
1 An attempt to OPEN the OUTFIL tape data set to retrieve its attributes failed.
2 The OUTFIL data set resided on an unsupported device.
3 An attempt to read the DSCB for the OUTFIL data set failed.
4 The OUTFIL data set was BDAM.
System action: The program terminates.
Programmer response: Correct the situation indicated by the reason code.
Back to top
View user's profile Send private message
sourabh jain

New User


Joined: 29 Feb 2008
Posts: 27
Location: Pune
PostPosted: Tue Feb 17, 2009 12:53 pm
 Reply with quote
Hi,

Pls find the control cards here. the strings like "WICKED WITCH" and "DEFEND" keep on changing for further control cards.

DUMS.IDMS.CTL01
Code:

OUTFIL FNAMES=OUT1,REMOVECC,     
HEADER1=('010000 WICKED WITCH')   
INCLUDE COND=(1,91,SS,EQ,C       
'WICKED WITCH')                   
OUTREC FIELDS=(C'01',1,91)       
SORT FIELDS=COPY,STOPAFT=5000     
INREC FIELDS=(1,91)             


DUMS.IDMS.CTL02
Code:

OUTFIL FNAMES=OUT1,REMOVECC,             
HEADER1=('020000 DEFEND')                   
INCLUDE COND=(1,91,SS,EQ,C             
'DEFEND')                                   
OUTREC FIELDS=(C'02',1,91)             
SORT FIELDS=COPY,STOPAFT=5000           
INREC FIELDS=(1,91)                     


And so on..
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 Feb 17, 2009 9:54 pm
 Reply with quote
Quote:
3 An attempt to read the DSCB for the OUTFIL data set failed.


This has nothing to do with your control statements or SORTWKdd data sets.

It appears that there is a problem with the multivolume data set you used for OUT1. Anyone on this board would just be guessing about what the problem is. Given that, is the OUT1 data set a new data set or an existing data set? Could the use of MOD be the problem? Have you tried this with a NEW data set?
Back to top
View user's profile Send private message
sourabh jain

New User


Joined: 29 Feb 2008
Posts: 27
Location: Pune
PostPosted: Tue Feb 17, 2009 10:01 pm
 Reply with quote
Yes Frank, Thanks! I is working with the new dataset.
MOD was creating the error.

Would you pls let me know if ICETOOL can give any problem in writing the output/reading the input from multivolume dataset?

Thanks.
Sourabh.
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 Feb 17, 2009 10:34 pm
 Reply with quote
DFSORT/ICETOOL can use multivolume input and output data sets just fine.
Back to top
View user's profile Send private message
sourabh jain

New User


Joined: 29 Feb 2008
Posts: 27
Location: Pune
PostPosted: Wed Feb 18, 2009 12:41 pm
 Reply with quote
Thanks a ton!!

Cheers,
Sourabh.
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 Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
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