Jason, Add DSORG=PS to your JCL. The DSORG has not been assigned at the time you are in the ACS routines so the first When clause is false.
Ron > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of > ibmnew > Sent: Friday, April 01, 2011 12:32 AM > To: [email protected] > Subject: [IBM-MAIN] DATACLASS > > Hi all > > We want to assign a DC (DCPS) to HLQ(ABSP.CEB.**) and DSORG=PS > > Below is the ACS rounting: > ------------------------------------------------------------------------ > PROC DATACLAS > FILTLIST ABSPPS INCLUDE(ABSP.CEB.**) > > SELECT > WHEN ((&DSORG = 'PS') && (&DSN = &ABSPPS)) SET &DATACLAS = 'DCPS' > WHEN (&DATACLAS NE '') SET &DATACLAS = &DATACLAS > OTHERWISE SET &DATACLAS = 'DCSTD' > END > END > ------------------------------------------------------------------------ > > Then the ACS and DC were activate. > > If we used ispf p.3.2 to allocate a DATASET "ABAS.CEB.TEST" and Directory=0, > > DC of the dataset was assigned as DCPS. > > I deleted the dataset "ABAS.CEB.TEST'; > > Then the following jcl was submitted to allocated the same dataset. > > > //ALOCHSKP EXEC PGM=IEFBR14 > //MESSAGE DD DSN=ABSP.CEB.TEST,DISP=(NEW,CATLG,DELETE), > // UNIT=3390,SPACE=(4096,(10,10)) > > > This time DC of the dataset was assign as DCSTD > > > What's wrong ? > > > Any suggestion are appreciated ! > > > Jason Cai > > ---------------------------------------------------------------------- > 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 ---------------------------------------------------------------------- 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
