[email protected] wrote:

>Can someone please run this iefbr14 job and tell me what the space allocation 
>is (number of directory blocks) on your system?

>// EXEC PGM=IEFBR14
>//DD1 DD DISP=(,CATLG),DSN=TEST,
>//       SPACE=(TRK,(1,0,0)),RECFM=F,LRECL=20,DSORG=PO

Sniff! sniff! what a smelly job! :-D

No. Just joking. I did it (copy/paste/rename DSN/add JOB/submit) and here is it 
(z/OS v1.12):

IGD101I SMS ALLOCATED TO DDNAME (DD1     )                                
        DSN (<...>.TEST.BNITZ                             )                
        STORCLAS (SC.....) MGMTCLAS (MC....) DATACLAS (DC....)            
        VOL SER NOS= ......                                               
IEF142I ........ - STEP WAS EXECUTED - COND CODE 0000                     
IGD104I <...>.TEST.BNITZ                              RETAINED,  DDNAME=DD1

Data Set Name  . . . : <...>.TEST.BNITZ                                 
                                                                       
General Data                          Current Allocation               
 Management class . . : MC....         Allocated tracks  . : 1         
 Storage class  . . . : SC.....        Allocated extents . : 1         
  Volume serial . . . : ......         Maximum dir. blocks : NOLIMIT   
  Device type . . . . : 3390                                           
 Data class . . . . . : DC....                                         
  Organization  . . . : PO            Current Utilization              
  Record format . . . : F              Used pages  . . . . : 5         
  Record length . . . : 20             % Utilized  . . . . : 41        
  Block size  . . . . : 20             Number of members . : 0         
  1st extent tracks . : 1                                              
  Secondary tracks  . : 0                                              
  Data set name type  : LIBRARY       Dates                            
                                       Creation date . . . : 2013/09/19
                                       Referenced date . . : ***None***
                                       Expiration date . . : ***None***

Warning: Our SMS system took over and changed any PDS to PDS-E (We can override 
it in JCL if so desired)

I can repeat the test and force PDS. Just ask.

>Note that I deliberately request DSORG=PO but do not provide a directory space 
>number.
>In my case the job ends with rc=0, the data set is allocated, but ISPF gets an 
>I/O error when I use an "i" line command in front of it. The data set is 
>allocated as PDS.

Wow! Use ISMF to test out your allocation if you can.

Do you have any allocation routines/exits in place?

Groete / Greetings
Elardus / Engelbrecht

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to