Thanks for the additional info,
We have 40 mod-54s and 90 mod-27s - all sms managed. The program tool is
ICETOOL. The volumes are most of the time empty.... only in use by temp data
sets. I might have to monitor the usage during execution.
//SPDT02 EXEC PGM=ICETOOL
//*
//* SPLICE THE DETAIL AND NP02 TABLES TOGETHER
//*
56 //TOOLMSG DD SYSOUT=*
57 //DFSMSG DD SYSOUT=*
58 //IN1 DD DSN=PNGG00.DCPACK.NDCP351Z.EXTRACT.DTL,
// DISP=SHR
59 //IN2 DD DSN=PNGG00.DCPACK.NDCP351Z.EXTRACT.NP02,
// DISP=SHR
60 //TEMP1 DD DSN=&&SPDT021,DISP=(,PASS),SPACE=(CYL,(2000,2000)),
// UNIT=(SYSDA,20)
61 //TEMP2 DD DSN=&&SPDT022,DISP=(,PASS),SPACE=(CYL,(2000,2000)),
// UNIT=(SYSDA,20)
62 //CONCAT DD DSN=*.TEMP1,VOL=REF=*.TEMP1,DISP=(OLD,PASS)
63 // DD DSN=*.TEMP2,VOL=REF=*.TEMP2,DISP=(OLD,PASS)
64 //COMBINE DD DSN=PNGG00.DCPACK.NDCP351Z.DTLNP02.DATA,
// DISP=(,PASS),UNIT=(SYSDA,4),
// SPACE=(CYL,(1500,200),RLSE),
// DCB=(LRECL=1477,RECFM=FB,BLKSIZE=0)
65 //TOOLIN DD *
66 //CTL1CNTL DD *
67 //CTL2CNTL DD *
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Lizette Koehler
Sent: 06 August 2017 05:12 PM
To: [email protected]
Subject: Re: IEC026I - 637-BC
Since I do not know this tool you are using or what it will do, it might be
possible to use something like SORT to do what you want.
Then you may not have this issue.
1) How man volumes are in the pool? How many 54s and how many 27s
a) If not SMS, then how to do drive the allocation to these volumes?
Lizette
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]]
> On Behalf Of Lizette Koehler
> Sent: Sunday, August 06, 2017 7:21 AM
> To: [email protected]
> Subject: Re: IEC026I - 637-BC
>
> Some additional questions
>
> 1) How man volumes are in the pool? How many 54s and how many 27s
>
> 2) How large will the allocation be? Using 16 extents for the
> dataset (this may vary), then this is 2000 + (2000*15) or 32,000
> cylinders total for the file.
> Is there sufficient space?
>
> 3) How fragmented are the volumes? Is there enough for a primary
> allocation of
> 2000 (This can be gotten in a maximum of 5 extents). Is there
> sufficient for the secondary to be taken on 20 volumes?
>
>
>
> 637-BC code is a situation that says there is not enough space on the
> VOLUME to allocate a new extent or file. This is not a no space in the
> file situation. The BC return code notes the volume designation. When
> you review the dump that is produced you will see that the end of
> volume has been reached at allocation.
>
>
> It may help identify the issue by changing the TEMP dsns to real DSNs
> and seeing what allocations (and where) is being done.
>
>
> Lizette
>
>
> > -----Original Message-----
> > From: IBM Mainframe Discussion List
> > [mailto:[email protected]] On Behalf Of Richards, Robert B.
> > Sent: Sunday, August 06, 2017 2:50 AM
> > To: [email protected]
> > Subject: Re: IEC026I - 637-BC
> >
> > Oops!
> >
> > I meant the TEMP DDs (TEMP1 and TEMP2)
> >
> > Bob
> >
> > -----Original Message-----
> > From: IBM Mainframe Discussion List
> > [mailto:[email protected]] On Behalf Of Richards, Robert B.
> > Sent: Sunday, August 06, 2017 5:47 AM
> > To: [email protected]
> > Subject: Re: IEC026I - 637-BC
> >
> > Theo,
> >
> > S637 - BC
> > The last known volume for the data set could not be located while
> > reading a multivolume DASD data set.
> >
> > I have personally never seen the above. But based on the space you
> > are requesting, try adding DSNTYPE=LARGE to both CONCAT DDs and see
> > if that helps.
> >
> > Bob
> >
> > -----Original Message-----
> > From: IBM Mainframe Discussion List
> > [mailto:[email protected]] On Behalf Of Buckton, T. (Theo)
> > Sent: Sunday, August 06, 2017 5:10 AM
> > To: [email protected]
> > Subject: IEC026I - 637-BC
> >
> > Hi,
> >
> > We have a batch job that abends with the above code when creating a
> > temp file on a model-54 volume. We are in the middle of a data
> > migration, and model-54s are being allocated to this pool. However,
> > we still have model-27s which will be removed at a later stage. What
> > I have done to bypass the issue is to disable the model-54s as I
> > noticed that batch job does not abend if the temp file is written to the
> > model-27s.
> > Can somebody shed light on this issue - in simple terms please :) ?
> >
> > IEC710I 82AF,APWKA2,NDCP351Z,SPDT02,CONCAT ANOTHER VOLUME EXPECTED
> > IEC026I 637-BC,IFG0553P,NDCP351Z,SPDT02,CONCAT,82AF,APWKA2, 375
> > SYS17216.T214401.RA000.NDCP351Z.SPDT021.H02
> > IEA995I SYMPTOM DUMP OUTPUT 376
> > SYSTEM COMPLETION CODE=637 REASON CODE=000000BC
> >
> > //TOOLMSG DD SYSOUT=*
> > //DFSMSG DD SYSOUT=*
> > //IN1 DD DSN=PNGG00.DCPACK.NDCP351Z.EXTRACT.DTL,
> > // DISP=SHR
> > //IN2 DD DSN=PNGG00.DCPACK.NDCP351Z.EXTRACT.NP02,
> > // DISP=SHR
> > //TEMP1 DD DSN=&&SPDT021,DISP=(,PASS),SPACE=(CYL,(2000,2000)),
> > // UNIT=(SYSDA,20)
> > //TEMP2 DD DSN=&&SPDT022,DISP=(,PASS),SPACE=(CYL,(2000,2000)),
> > // UNIT=(SYSDA,20)
> > //CONCAT DD DSN=*.TEMP1,VOL=REF=*.TEMP1,DISP=(OLD,PASS)
> > // DD DSN=*.TEMP2,VOL=REF=*.TEMP2,DISP=(OLD,PASS)
> > //COMBINE DD DSN=PNGG00.DCPACK.NDCP351Z.DTLNP02.DATA,
> > // DISP=(,PASS),UNIT=(SYSDA,4),
> > // SPACE=(CYL,(1500,200),RLSE),
> > // DCB=(LRECL=1477,RECFM=FB,BLKSIZE=0)
> >
> >
> > ********************
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
********************
Nedbank disclaimer and confidentiality notice:
This email may contain information that is confidential, privileged or
otherwise protected from disclosure. If you are not an intended recipient of
this email or all or some of the information contained therein, do not
duplicate or redistribute it by any means. Please delete it and any attachments
and notify the sender that you have received it in error. Unless specifically
indicated, this email is neither an offer or a solicitation to buy or sell any
securities, investment products or other financial product or service, nor is
it an official confirmation of any transaction or an official statement of
Nedbank. Any views or opinions presented are solely those of the author and do
not necessarily represent those of Nedbank. Nedbank Ltd Reg No 1951/000009/06.
The following link displays the names of the Nedbank Board of Directors and
Company Secretary. [http://www.nedbank.co.za/terms/DirectorsNedbank.htm]
If you do not want to click on a link, please type the relevant address in your
browser
********************
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
