In addition to the EXT DC, we have implemented an IFG0EX0B exit to adjust 
secondary allocations.

1)  Increase secondary allocation by 150%.
2)  If no secondary specified, use a default of 50 tracks.


Below is the part of the exit that tests how the dataset has been
opened.  Notice that it is checking for OUTPUT and OUTIN.  If neither
of those, then no default secondary is requested.  I wonder, if SORT
is opening SORTOUT with something that is not part of the check
below?

ISRBROBA  SP9149.IFG0EX0B                          Line 0000000
 Command ===>                                                  S
TSTOOPT  EQU   *                  TEST OPEN OPTION              
         TM    OIEXOOPT,OIEXOOUT  OPEN FOR OUTPUT               
         BO    SCREENOK           BRANCH IF YES                 
         TM    OIEXOOPT,OIEXOOIN  OPEN FOR OUTIN                
         BNO   EXIT               EXIT IF NO                    
SCREENOK EQU   *                                                
         BR    RET                RETURN TO CALL RLSE, SQTY     

-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
Radoslaw Skorupka
Sent: Friday, April 30, 2021 2:34 PM
To: [email protected]
Subject: Re: Program invoked SORT, SMS managed //SORTOUT DD DSN=&&TEMP

[External Email. Exercise caution when clicking links or opening attachments.]

Wild guess: you didn't provide secondary allocation.
That means one extent.



--
Radoslaw Skorupka
(looking for new job)
Lodz, Poland




W dniu 30.04.2021 o 20:30, PINION, RICHARD W. pisze:
> I have what is probably an elementary question.  I had a program 
> invoked SORT ABEND with a SE37-08 on a SMS managed temporary SORTOUT 
> dataset.  Here's the error stream.
>
> 11.48.03 JOB16510  IGD17273I ALLOCATION HAS FAILED FOR ALL VOLUMES SELECTED 
> FOR DATA SET  056
>     056             SYS21120.T114450.RA000.EFM186DP.R0108166
> 11.48.03 JOB16510  IGD17277I THERE ARE (80) CANDIDATE VOLUMES OF WHICH 
> (46) ARE ENABLED OR QUIESCED
> 11.48.03 JOB16510  IGD17290I THERE WERE 2 CANDIDATE STORAGE GROUPS OF WHICH 
> THE FIRST 2  058
>     058             WERE ELIGIBLE FOR VOLUME SELECTION.
>     058             THE CANDIDATE STORAGE GROUPS WERE:PLARGE POVER
> 11.48.03 JOB16510  IGD17279I 34 VOLUMES WERE REJECTED BECAUSE THEY 
> WERE NOT ONLINE
> 11.48.03 JOB16510  IGD17279I 34 VOLUMES WERE REJECTED BECAUSE THE UCB 
> WAS NOT AVAILABLE
> 11.48.03 JOB16510  IGD17279I 46 VOLUMES WERE REJECTED BECAUSE OF A 
> DADSM FAILURE (044E0097)
> 11.48.03 JOB16510  IEC614I EXTEND FAILED - RC 000, DIAGNOSTIC INFORMATION IS 
> (04034379) ,  062
>     062             STEP070,      ,SYS21120.T114450.RA000.EFM186DP.R0108166
> 11.48.03 JOB16510  IEC032I 
> E37-08,IFG0554P,EFM186DP,STEP070,SORTOUT,5E24,PL0004,04034379,  063
>     063             SYS21120.T114450.RA000.EFM186DP.R0108166
> 11.48.03 JOB16510  IEA995I SYMPTOM DUMP OUTPUT  065
>     065             SYSTEM COMPLETION CODE=E37  REASON CODE=00000008
>     065              TIME=11.48.03  SEQ=02755  CPU=0000  ASID=00B4
>     065              PSW AT TIME OF ERROR  075C1000   80DF7A8E  ILC 2  INTC 0D
>     065                NO ACTIVE MODULE FOUND
>     065                NAME=UNKNOWN
>     065                DATA AT PSW  00DF7A88 - 41003038  0A0DB20A  00509808
>     065                AR/GR 0: 008FEA30/00DF7C9C   1: 00000000/A4E37000
>
> Here's the JCL DD statements in question.
>
> XX*
> IEFC653I SUBSTITUTION JCL - SYSOUT=L,DCB=BLKSIZE=133
> XXSORTIN    DD UNIT=SYSDA,SPACE=(CYL,150,,CONTIG)
> XXSORTOUT   DD UNIT=SYSDA,SPACE=(CYL,150,,CONTIG)
> XX*
>
> Here's a part of the SMS allocation messages.
>
> IGD17165I MULTI-VOLUME TEMPORARY DATA SET
> SYS21120.T114450.RA000.EFM186DP.R0108165 WILL NOT BE STRIPED IGD101I 
> SMS ALLOCATED TO DDNAME (SORTIN  )
>          DSN (SYS21120.T114450.RA000.EFM186DP.R0108165    )
>          STORCLAS (WRKBATCH) MGMTCLAS (        ) DATACLAS (EXT)
>          VOL SER NOS= PL0011
> IGD17165I MULTI-VOLUME TEMPORARY DATA SET
> SYS21120.T114450.RA000.EFM186DP.R0108166 WILL NOT BE STRIPED IGD101I 
> SMS ALLOCATED TO DDNAME (SORTOUT )
>          DSN (SYS21120.T114450.RA000.EFM186DP.R0108166    )
>          STORCLAS (WRKBATCH) MGMTCLAS (        ) DATACLAS (EXT)
>          VOL SER NOS= PL0004
>
> Lastly, here's the SMS definition for DATACLAS EXT.
>
> Recfm  . . . . . . . . . :
> Lrecl  . . . . . . . . . :
> Override Space . . . . . : NO
> Space Avgrec . . . . . . :
>        Avg Value  . . . . :
>        Primary  . . . . . :
>        Secondary  . . . . :
>        Directory  . . . . :
> Retpd Or Expdt . . . . . :
> Volume Count . . . . . . : 1
> Add'l Volume Amount  . . :
> Data Set Name Type  . . . . . : EXTENDED
>    If Extended . . . . . . . . : PREFERRED
>    Extended Addressability . . : YES
>    Record Access Bias  . . . . : USER
>    RMODE31 . . . . . . . . . . :
> Space Constraint Relief . . . : YES
>    Reduce Space Up To (%)  . . : 50
>    Guaranteed Space Reduction  : NO
>    Dynamic Volume Count  . . . : 59
>
> Finally, my question/confusion.  Are not SMS managed temporary datasets 
> eligible for mutli-volume allocation?
> In other words, shouldn't this SMS managed temporary dataset 1) had 
> greater than 16 extents on the volume since it is an extended dataset, 
> and
> 2) shouldn't the dataset have extended to another volume?
> Confidentiality notice:
> This e-mail message, including any attachments, may contain legally 
> privileged and/or confidential information. If you are not the intended 
> recipient(s), or the employee or agent responsible for delivery of this 
> message to the intended recipient(s), you are hereby notified that any 
> dissemination, distribution, or copying of this e-mail message is strictly 
> prohibited. If you have received this message in error, please immediately 
> notify the sender and delete this e-mail message from your computer.
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to [email protected] with the message: INFO IBM-MAIN

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

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

Reply via email to