Show us the definition of &ABSPPS.
You might also want to consider inserting some debugging WRITE statements.
Something like
FILTLIST ABSPPS INCLUDE(...)
FILTLIST DSORGS INCLUDE('PO', 'VS', 'IS', 'DA')
WRITE DSN= &DSN, DSORG = &DSORG
IF &DSN = &ABSPPS THEN
DO
WRITE DSN MATCHES
IF &DSORG NE &DSORGS THEN
DO
WRITE DSORG MATCHES
SET &DATACLAS = 'DCPS'
END
WRITE DATACLASS = &DATACLAS
END
IF &DATACLAS EQ '' THEN
SET &DATACLAS = 'DCSTD'
WRITE DATACLASS = &DATACLAS
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
ibmnew
Sent: Thursday, April 07, 2011 11:11 PM
To: [email protected]
Subject: Re: DATACLASS
Hi
I changed the check in the ACS routine from DSORG EQ PS to DSORG NE (PO, VS,
IS, DA, etc)
Below is the ACS routing
SELECT
WHEN ((&DSN = &ABSPPS) AND
(&DSORG NE 'PO') AND
(&DSORG NE 'VS') AND
(&DSORG NE 'IS') AND
(&DSORG NE 'DA')) SET &DATACLAS = 'DCPS'
WHEN (&DATACLAS NE '') SET &DATACLAS = &DATACLAS
OTHERWISE SET &DATACLAS = 'DCSTD'
END
END
I submit the following JCL
//ALOCHSKP EXEC PGM=IEFBR14
//MESSAGE DD DSN=ABSP.CEB.TEST22,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(4096,(10,10)),
// DCB=(LRECL=300,BLKSIZE=27900,RECFM=FB)
But the dataclass of ABSP.CEB.TEST22 is DCSTD
Is the ACS routing correct?
----------------------------------------------------------------------
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
