Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

DFSORT error concatenating VBs to a multi volume FB dataset

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: DFSORT error concatenating VBs to a multi volume FB dataset
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

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Feb 17, 2009 11:03 am    Post subject:
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    Post subject: Reply to: DFSORT error concatenating VBs to a multi volume F
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: 2276
Location: @my desk

PostPosted: Tue Feb 17, 2009 12:39 pm    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Tue Feb 17, 2009 12:40 pm    Post subject:
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    Post subject: Reply to: DFSORT error concatenating VBs to a multi volume F
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 Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Feb 17, 2009 9:54 pm    Post subject:
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    Post subject: Reply to: DFSORT error concatenating VBs to a multi volume F
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 Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Feb 17, 2009 10:34 pm    Post subject:
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    Post subject: Reply to: DFSORT error concatenating VBs to a multi volume F
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    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts RMM: scratching a volume that RMM thi... Hervey Martinez IBM Tools 0 Mon May 15, 2017 8:51 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts LISTCAT on a dataset with symbolic pa... shreya19 JCL & VSAM 5 Fri Apr 07, 2017 5:43 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us