View previous topic :: View next topic
|
Author |
Message |
feng hao
New User
Joined: 26 Mar 2008 Posts: 44 Location: China
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
feng hao
New User
Joined: 26 Mar 2008 Posts: 44 Location: China
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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
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 |
|
Back to top |
|
|
feng hao
New User
Joined: 26 Mar 2008 Posts: 44 Location: China
|
|
|
|
Thanks very much, Dick!
I will paste my result later today. |
|
Back to top |
|
|
feng hao
New User
Joined: 26 Mar 2008 Posts: 44 Location: China
|
|
|
|
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 |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006 Posts: 1193 Location: Dublin, Ireland
|
|
|
|
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
you should get 50 Cyls - unless your SMS system is clawing-back the space.
Garry. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Good to hear
You're welcome - good luck
d |
|
Back to top |
|
|
|