You are not exiting the routine after the set &Storclas statement.

By not exiting you are falling through the code to the last true statement. 

-----Original Message-----
From: Jim McAlpine [mailto:[email protected]] 
Sent: Thursday, February 07, 2013 10:14 AM
To: [email protected]
Subject: basic SMS question

I've inherited an SMS setup and I know little about SMS but this I know isn't 
working.  In the storage class ACS routines is this snippet -

 IF &DSN(1) = 'DB2E' THEN
  DO
    IF &DSN(2) = 'DSNDBC' THEN
      DO
        SET &STORCLAS='SCDB2'
      END
    IF &DSN(2) = 'DSNDBD' THEN
      DO
        SET &STORCLAS='SCDB2'
      END
  END
followed by this -

SELECT
    WHEN (&DSN = &DB2E)
      SET &STORCLAS = 'SCSMS'
Question.  Any dataset of the form DB2E.DSNDBC.** is getting the storage class 
SCSMS and not SCDB2 which is what is required.  I want all
DB2E.DSNDBC.** datasets to get SCDB2 and any other DB2E.** dataset to get 
SCSMS.  What is wrong with the above syntax please.

Jim McAlpine

----------------------------------------------------------------------
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