WHEN (&ANYVOL = &VOL_NONSMS OR &HLQ = &HLQ_NONSMS)
SET &STORCLAS = ''
If you try to allocate to any volume that qualifies under &VOL_NONSMS, then
this statement will make it nonsms, regardless of the DSN.
>>> willie bunter <[EMAIL PROTECTED]> 4/29/2008 10:41 AM >>>
Robert,
Thanks for your offer to take a look at the code. I have enclosed it. I
hope you can find the bug.
Thanks in advance for your help.
"Richards, Robert B." <[EMAIL PROTECTED]> wrote:
Willie,
No, the unit is not the problem, as it is valid in both tests. Your
logic must honor (ie, allow) specific dataset placement when a volser is
coded. It may be part of a compound test.
Most of the time, the ACS routines rely on the coder knowing the
sequence of the logic tests and coding them appropriately for the test
desired. Without seeing more of your SC routine, I would be speculating
on the correct answer.
If you want to send it to me, I'll take a look.
Also, my personal preference is to use DO-END loops that SET the SC and
then EXIT when a test is satisfied. YMMV
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of willie bunter
Sent: Monday, April 28, 2008 2:26 PM
To: [email protected]
Subject: SMS PUZZLE
Hallo Everybody,
I am trying to track down why some dsns with the HLQ of TEST.** are
being directed to a non-SMS volume. I noticed that a majority of the
dsns are being allocated correctly by SMS. I ran a check on the ACS
routines and I found that the SC ACS has a storage class set for TEST.**
I also noticed that is another storage class for unit types. Could
this be the cause? I executed some tests where I used the unit=3390,
the dsn (TEST.AAA.BB) was then allocated with the proper storage class
and storage group. However, when I used the unit=3390 with the volser
of a non-SMS pack, the dsn (TEST.AAA.CC) was allocated on the pack
Below is a sample of the SC ACS.
FILTLIST VALUNIT INCLUDE
('3380','SYSDA','SYSALLDA','3390','PUBLIC',VVIO','PROD','TEST''' )
FILTLIST GDVX_DSN INCLUDE
(LIBR.**, SCPX.SYST.*.VSAMEXT.**,
TEST.**,TEST1.**,ALQTOPR.**,
...................................
...................................))
WHEN (&UNIT NE &VALUNIT)
SET &STORCLAS = ''
WHEN (&HLQ = &POOL_GDVX OR &DSN = &GDVX_DSN)
SET &STORCLAS = 'SCTEST'
Am I on the right track in thinking that the SC VALUNIT is the cause
of the problem? If so, how can I fix it? I would appreciate your
suggestion and comments.
Thanks in advance.
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try
it now.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Note that my email domain has changed from jo-annstores.com to joann.com.
Please update your address book and other records to reflect this change.
CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains
confidential and privileged information intended only for the addressee. If
you are not the intended recipient, please be advised that you have received
this material in error and that any forwarding, copying, printing,
distribution, use or disclosure of the material is strictly prohibited. If you
have received this material in error, please (i) do not read it, (ii) reply to
the sender that you received the message in error, and (iii) erase or destroy
the material. Emails are not secure and can be intercepted, amended, lost or
destroyed, or contain viruses. You are deemed to have accepted these risks if
you communicate with us by email. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
