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

How to allocate a dataset with 50 cyls without using IEFBR14


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
feng hao

New User


Joined: 26 Mar 2008
Posts: 44
Location: China

PostPosted: Tue Mar 03, 2009 9:11 am
Reply with quote

Due to some reason, I am unable to use IEFBR14 to create a dataset, so I choose IEBGENER instead to copy from another dataset.

What I want is to allocate the dataset with a primary-qty of 50 cyls, however,for the input dataset containing few data, system only allocate one cylinder for the output.

How could I do except using IEFBR14 or finding a huge enough input dataset to solve the problem?

Many thanks for all your help!!
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 Mar 03, 2009 9:21 am
Reply with quote

Hello,

Quote:
Due to some reason, I am unable to use IEFBR14 to create a dataset
Post the reason and the jcl.

Quote:
so I choose IEBGENER instead to copy from another dataset.
Post this jcl.

If we can see what you are using and any errors encountered, we will be better able to offer suggestions.
Back to top
View user's profile Send private message
feng hao

New User


Joined: 26 Mar 2008
Posts: 44
Location: China

PostPosted: Tue Mar 03, 2009 11:06 am
Reply with quote

Quote:
Due to some reason, I am unable to use IEFBR14 to create a dataset

The problem is like this:
1. IEFBR14
2. customer-provided UTILITY
3. NON-SMS volume
4. SMS volume

My task is to prepare several datasets in NON-SMS volume for the first run of the new system. And then they will be "compressed" with the customer-provided UTILITY. So I first choose IEFBR14 to create datasets for convenience. But the second operation causes U0050 abend. Once I take the NON-SMS volume AWAY, the problem never occur. After several tests, I found that among the above 4, the first three together will cause abend. So I guess that the problem is between the customer-provided UTILITY and NON-SMS volume.

So I choose IEBGENER instead to copy from existing datasets which I create first and have no data. It succeeds, but only got '1 cyl' for the PRIMARY-QTY.

Then the question "How to allocate a dataset with 50 cyls without using IEFBR14" comes out.

Maybe my words is a little confused, so please tell me, and I will correct it at once.

Code:
//CREATE   EXEC PGM=IEFBR14                         
//DD1      DD DSN=MYINPUT,             
//            DISP=(,CATLG),                       
//            SPACE=(TRK,(1,1),RLSE),               
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//            VOL=SER=******,UNIT=3390             
//STEP1    EXEC customer-provided UTILITY                             
//INPUT     DD  DSN=EV6439.FENGHAO.TTTT,             
//             DISP=SHR                             
//OUTPUT  DD  DSN=EV6439.FENGHAO.COMPRESS,         
//             DISP=(,CATLG),                       
//             SPACE=(CYL,(1,5),RLSE),             
//             DCB=(RECFM=VBS,LRECL=86,BLKSIZE=0)   
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 Mar 03, 2009 11:35 am
Reply with quote

Hello,

Quote:
Maybe my words is a little confused, so please tell me, and I will correct it at once.
Not to worry - we'll correct wording as we go if we need to icon_smile.gif

The reason you only allocate 1 cyl is due to the RLSE (which tells the system to "give back" any unused allocation). Try without the RLSE to allocate the file at the size you require - SPACE=(CYL,(50)). Depending on the file requirement you may or may not want to specify any secondary extents.

If you create non-sms files with no "real" end of file marker, they may cause problems like the one you see with the customer provided utility.

The iefbr14 creates one dataset, but the utility step uses some other file as input?

Suggest you create all of these fles with a valid end of file. Copying a DUMMY input should do what you want.

Good luck and someone will be here if there are questions icon_smile.gif
Back to top
View user's profile Send private message
feng hao

New User


Joined: 26 Mar 2008
Posts: 44
Location: China

PostPosted: Tue Mar 03, 2009 12:47 pm
Reply with quote

Thanks very much, Dick!
I will paste my result later today.
Back to top
View user's profile Send private message
feng hao

New User


Joined: 26 Mar 2008
Posts: 44
Location: China

PostPosted: Tue Mar 03, 2009 6:47 pm
Reply with quote

Hi,Dick!

Although I've tried to remove "RLSE", the dataset still gets only 1 cylinder for PRIMARY-QTY. Hope find the answer later.

And I also tried to add an 'EOF' for the datasets generated by IEFBR14, by the means of copying dummy to them. It really works!!

At the same time, I also found an interesting discussion between you and other members, it also helps me a lot. Thanks again!!
What are all the activities of IEFBR14
URL Address www.ibmmainframes.com/about275.html
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland

PostPosted: Tue Mar 03, 2009 7:30 pm
Reply with quote

Quote:
Although I've tried to remove "RLSE", the dataset still gets only 1 cylinder for PRIMARY-QTY.


If you don't put enough data into the dataset to cause a secondary extent, you only get the primary allocation - 1 Cyl. If you've coded
Code:
SPACE=(CYL,(50,5))   
you should get 50 Cyls - unless your SMS system is clawing-back the space.

Garry.
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: Wed Mar 04, 2009 12:21 am
Reply with quote

Quote:
It really works!!
Good to hear icon_smile.gif

Quote:
Thanks again!!
You're welcome - good luck icon_biggrin.gif

d
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Allocated cylinders of a dataset DB2 12
No new posts Sort First/last record of a subset th... DFSORT/ICETOOL 7
No new posts Reading dataset in Python - New Line ... All Other Mainframe Topics 22
Search our Forums:

Back to Top