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
 

 

How to allocate a dataset with 50 cyls without using IEFBR14

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: How to allocate a dataset with 50 cyls without using IEFBR14
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

Site Director


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

PostPosted: Tue Mar 03, 2009 9:21 am    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Tue Mar 03, 2009 11:35 am    Post subject:
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    Post subject:
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    Post subject:
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 http://www.ibmmainframes.com/about275.html
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 991
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Tue Mar 03, 2009 7:30 pm    Post subject:
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

Site Director


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

PostPosted: Wed Mar 04, 2009 12:21 am    Post subject: Reply to: How to allocate a dataset with 50 cyls without usi
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts FTP - JCL failed while passing FTP co... Suneetha1612 JCL & VSAM 12 Wed Nov 16, 2016 7:33 pm
No new posts To trim spaces in a pipe delimited da... Nish84 COBOL Programming 16 Mon Oct 10, 2016 1:54 pm
No new posts Allocate dataset withour BLKSIZE Susanta CLIST & REXX 2 Thu Sep 22, 2016 11:51 am
No new posts dataset copy question - REPRO or some... atulxp TSO/ISPF 2 Wed Aug 03, 2016 10:56 pm
No new posts FTOPEN TEMP is failing due to dataset... mbenaud TSO/ISPF 7 Thu Jul 28, 2016 4:28 pm


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