Failing any Non SMS allocation that doesn't have a VOLSER coded should do the trick.
FILTLIST ANY_VOL INCLUDE(%%%%%%) SELECT WHEN ((&STORCLAS = '' ) AND (&ANYVOL NE &ANY_VOL)) DO WRITE '*** ALLOCATION FAILED' WRITE '*** FOR DD ' &DD EXIT CODE(99) END END ---------------------------------------------------------------------- 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
