Q2 What's wrong of the ACS routing below:
SELECT
WHEN ((&DSN = &ABSPPS) AND
(&DSORG NE 'PO') AND
(&DSORG NE 'VS') AND
(&DSORG NE 'IS') AND
(&DSORG NE 'DA')) SET &DATACLAS = 'DCPS'
///////////////////////////////////////////////////////////////////////////
In the stub you gave above, I don't see an exit statement which means your
allocation could fall into a later code segment and have the DATACLAS
value re-assigned. Unless you've got a very good reason not to, I'd
recommend you Always pair your SET statements with a WRITE & and EXIT
statement.
I know I've said this before, but here goes again - use WRITE statements
to help in your Debug process -
DO
SET &DATACLAS = 'DCPS'
WRITE 'DCD0300 ' &DSN ' ' &PGM ' ' &DSORG ' ' &DATACLAS
EXIT
END
The DCD0300 merely gives you a unique identifier for your exit point -
this will tell you exactly what SMS is seeing at this point. If you
decide not to pair the SET statement with an EXIT having a WRITE statement
for each SET statement will also show you when you are assigning the
DATACLAS more than 1 time.
Two pretty simple ROT's that can save you a lot of time & pain down the
road.
my 2 cents worth
ddk
This e-mail message and all attachments transmitted with it may
contain legally privileged and/or confidential information intended
solely for the use of the addressee(s). If the reader of this
message is not the intended recipient, you are hereby notified that
any reading, dissemination, distribution, copying, forwarding or
other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please
notify the sender immediately and delete this message and all
copies and backups thereof. 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
