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
 

 

B37-04 on a DFDSS backup to 3 empty MOD9's

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
Joseph Bilski

New User


Joined: 10 Jul 2008
Posts: 3
Location: Wilkes-Barre Pa

PostPosted: Sat Jan 09, 2010 3:02 am    Post subject: B37-04 on a DFDSS backup to 3 empty MOD9's
Reply with quote

Full text of error:

13.36.25 JOB04355 IEC030I B37-04,
IFG0554A,CAPUNLD3,DOIT,TAPE,B01C,$9B01C,04210010,TSH.CAPUNLD3

The following JCL produced the error. Attempting to backup 25,000 CYLS of data to 3 - empty MOD9's. When I checked the volumes after the abend I noted that the file (TSH.CAPUNLD3) allocated 3300 CYLS on each of the volumes indicated in the TAPE DD statement. There are approx. 6708 cyl left on each of the volumes.

None of the situations indicated as a potential cause of this abend in the system messages manual seem to apply.

The PRODxx volumes are a mix of MOD3 and MOD9. The volumes indicated in the TAPE DD are not SMS controlled.

I'm not sure if this is a JCL or DFDSS issue (or a combination of both).


Code:

//DOIT     EXEC  PGM=ADRDSSU,REGION=4M PARM='TYPRUN=NORUN'         
//PRODB1 DD UNIT=3390,VOL=SER=PRODB1,DISP=SHR                       
//PRODB2 DD UNIT=3390,VOL=SER=PRODB2,DISP=SHR                       
//PRODB3 DD UNIT=3390,VOL=SER=PRODB3,DISP=SHR                       
//PRODB4 DD UNIT=3390,VOL=SER=PRODB4,DISP=SHR                       
//PRODB5 DD UNIT=3390,VOL=SER=PRODB5,DISP=SHR                       
//PRODB6 DD UNIT=3390,VOL=SER=PRODB6,DISP=SHR                       
//SYSPRINT DD  SYSOUT=*                                             
//TAPE   DD    DSN=TSH.CAPUNLD3,                                   
//    SPACE=(CYL,(3300,3300),RLSE),                                 
//    UNIT=(3390,3),                                               
//    VOL=SER=($9B01A,$9B01B,$9B01C),                               
//             DISP=(NEW,CATLG,DELETE)                             
//SYSIN    DD  *                                                   
  DUMP DS(INCLUDE(CAP.PROD.CU*.**) EXCLUDE(CAP.PROD.CUDOICH.**)) - 
          ALLMULTI SPHERE ALLDATA(*) ALLX ADMIN -                   
          TOL(ENQF) -                                               
          LOGINDD(PRODB1, -   
                  PRODB2, -   
                  PRODB3, -   
                  PRODB4, -   
                  PRODB5, -   
                  PRODB6, -   
           ) -               
          OUTDD(TAPE)         
//
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: Sat Jan 09, 2010 3:34 am    Post subject:
Reply with quote

Hello and welcome to the forum,

On one of these (empty) "mod9's" how much total space (cyls and tracks) is available?

Is this data sms-managed - if you're not sure, ask your storage management people.

3300 cyls is 49500 tracks (iirc) and the messages manual mentions:
Quote:
| The data set has reached the 65535 tracks per volume limit.
so another 3300 would not "fit".

It has been a while, and i'm probably mis-remembering something. . .
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8057
Location: East Dubuque, Illinois, USA

PostPosted: Sat Jan 09, 2010 5:04 am    Post subject:
Reply with quote

Dick is not mis-remembering; as you've specified the data set you are limited to just over 4000 cylinders per pack. There is a DSNTYPE=LARGE JCL parameter which allows you to use more than 65535 tracks per volume. But since we can see you didn't specify DSNTYPE=LARGE in your JCL, the 65535 tracks per volume limit applies.
Back to top
View user's profile Send private message
Joseph Bilski

New User


Joined: 10 Jul 2008
Posts: 3
Location: Wilkes-Barre Pa

PostPosted: Sat Jan 09, 2010 8:56 am    Post subject:
Reply with quote

[Sorry about the double post]

The 3390 MOD9 contains the equivalent of 3 3390 mod3's. The total free cyls on each volume prior to execution is 10008.

The dataset being created is not SMS managed.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8057
Location: East Dubuque, Illinois, USA

PostPosted: Sat Jan 09, 2010 9:10 am    Post subject:
Reply with quote

Quote:
The 3390 MOD9 contains the equivalent of 3 3390 mod3's. The total free cyls on each volume prior to execution is 10008.

The dataset being created is not SMS managed.
And none of what you're saying here changes the fact that a data set is limited to 65535 tracks on a single volume, absent the DSNTYPE=LARGE specification in JCL. Your backup JCL must be changed to include DSNTYPE=LARGE for the DD name, or you must change the backup JCL to point to six 3390 disk packs instead of 3 to get the amount of space you need -- but one way or the other, the JCL must be changed to fix this error.
Back to top
View user's profile Send private message
Joseph Bilski

New User


Joined: 10 Jul 2008
Posts: 3
Location: Wilkes-Barre Pa

PostPosted: Sat Jan 09, 2010 9:30 am    Post subject:
Reply with quote

Will do...Thanks for your input
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 -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS Database backup info ashek15 IMS DB/DC 14 Wed Nov 16, 2016 5:29 am
No new posts Using DFDSS for incremental backups dionluke JCL & VSAM 3 Wed Jun 01, 2016 1:02 am
This topic is locked: you cannot edit posts or make replies. how to find if file is empty or not. abdulrafi DFSORT/ICETOOL 5 Tue May 17, 2016 4:39 pm
No new posts Need help on FDRABR incremental backu... sanpedro All Other Mainframe Topics 6 Wed Apr 06, 2016 3:24 am
No new posts Backup directory in USS (OMVS) autobox IBM Tools 3 Tue Jan 12, 2016 8:51 am


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