Change it to: When (&STORCLAS EQ 'VSAMSTOR') Set &STORGRP EQ 'CSLFGRP2
Bob Richards -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Robert Pelletier Sent: Tuesday, September 05, 2006 12:24 PM To: [email protected] Subject: Re: unable to Allocate Space on User Volume This is the part of the ACS routine: FILTLIST BACKS INCLUDE('SERVP.SLFVNOTE', 'SERVP.JM064050.SLFVNOTE', 'SERVP.JM064050.SLFVNTE') SELECT WHEN (&DSN EQ &OEDSN) DO SET &STORCLAS EQ 'CSLFSTOR' EXIT END WHEN (&DSN EQ &BACKS) DO SET &STORCLAS EQ 'VSAMSTOR' EXIT END OTHERWISE SET &STORCLAS EQ '' END END PROC STORGRP SELECT WHEN (&DSN='SERVP.SLFVNOTE') SET &STORGRP EQ 'CSLFGRP2' WHEN (&DSN='SERVP.JM064050.SLFVNOTE' SET &STORGRP EQ 'CSLFGRP2' WHEN (&DSN='SERVP.JM064050.SLFVNTE') SET &STORGRP EQ 'CSLFGRP2' OTHERWISE SET &STORGRP = 'CSLFGRP1' I see SMSVL8 and SMSVL9 in CSLFGRP2. LEGAL DISCLAIMER The information transmitted is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of or taking action in reliance upon this information by persons or entities other than the intended recipient is prohibited. If you have received this email in error please contact the sender and delete the material from any computer. Seeing Beyond Money is a service mark of SunTrust Banks, Inc. [ST:XCL] ---------------------------------------------------------------------- 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
