Hi,
I have a little problem on ACS selection, here is my ACS,
FILTLIST ZDVTDSN1 INCLUDE(ZDVT.**,
'CAT.ZDVT')
FILTLIST VALID_UNIT2 INCLUDE('TAPEV',861*,862*,863*,864*)
WHEN (&UNIT = &VALID_UNIT2 AND &HLQ NE &ABC_DSN)
DO
SET &STORGRP='PSTGRP'
EXIT
END
WHEN (&DSN = &ZDVTDSN1)
DO
SET &STORGRP='TDVTLL01'
EXIT
END
when I submit the following JCL, an abend with JCL error. cannot locate a
correct storage group.
4 //IN1 DD DSN=ZDVT.CRN.CRAIF1.FILEA.BK1(0),DISP=SHR
5 //IN2 DD DSN=ZDVT.CRN.CRCHQ1.FILEA.BK1(0),DISP=SHR
//** OUTFILE
//* FILEA
6 //OUT1 DD DSN=ZDVT.CRN.CRAIF1.FILEA.BK1(+1),DISP=(,PASS),
// UNIT=TAPEV,VOL=(,RETAIN),
// LABEL=(1,SL,RETPD=1),
// DCB=(SYS1.MANX,RECFM=VB,LRECL=8189,BLKSIZE=32760)
7 //OUT2 DD DSN=ZDVT.CRN.CRCHQ1.FILEA.BK1(+1),DISP=(,PASS),
// UNIT=AFF=OUT1,VOL=(,RETAIN,REF=*.OUT1),
// LABEL=(2,SL,RETPD=1),
// DCB=(SYS1.MANX,RECFM=VB,LRECL=4093,BLKSIZE=32760)
8 //SYSIN DD DSN=USMF.COM.BAT.PARMLIB(REPRO02),DISP=SHR
STMT NO. MESSAGE
-
7 IGD304I DATA SET ALLOCATION REQUEST FAILED -
ACS STORAGE GROUP ROUTINE DID NOT ALLOW USE OF THE STORAGE GROUP
OF THE REFERENCED DATA SET ZDVT.CRN.CRAIF1.FILEA.BK1
BY THE REFERENCING DATA SET ZDVT.CRN.CRCHQ1.FILEA.BK1
After I change the ACS to following, it works....
WHEN (&DSN = &ZDVTDSN1 and &UNIT NE 'AFF=SMST')
DO
SET &STORGRP='TDVTLL01'
EXIT
END
My question is why it will not EXIT at " WHEN (&UNIT = &VALID_UNIT2 AND
&HLQ NE &ABC_DSN)" ???? and use storage group PSTGRP...
many thanks
tommy
***********************************************************
This message contains confidential information which is intended only for the
person or entity to which it is addressed. If you are not the intended
recipient, you should not read, disseminate, distribute or copy this e-mail.
Any opinion contained in this message are those of the author and are not given
or endorsed by BOCHK unless otherwise stated in this message and the authority
of the author to so bind BOCHK is duly verified. We do not guarantee that this
e-mail is virus-free or secure and are not liable in respect of any delay or
omission in the transmission of this message.
***********************************************************
----------------------------------------------------------------------
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
