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?
Maybe we have to use DSORG=PS in the IEFBR14. Thanks a lot!
Jason Cai
发件人： Schwarz, Barry A
发送时间： 2011-04-08 02:20:33
收件人： IBM-MAIN
抄送：
主题： Re: DATACLASS
No, the space parameter cannot tell the system the DSORG is PS. At best, it
tells the system the DSORG is not PO. That still leaves PS, VS, IS, DA, etc.
You have to use DSORG=PS because you wrote the ACS routine to check for that
particular attribute. If you want to eliminate the need for the extra JCL,
there are some options that you might be able to implement:
Can you assign the data class to every dataset that matches the naming
convention, regardless of DSORG? If so, simply remove the unnecessary check in
the ACS routine.
If not, change the check in the ACS routine from DSORG EQ PS to DSORG
NE (PO, VS, IS, DA, etc)
Barry Schwarz
OS/390 System Programmer
M/S 80-JE
Phone: 253-657-5262
Fax: 253-657-8574
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
ibmnew
Sent: Wednesday, April 06, 2011 8:11 PM
To: [email protected]
Subject: Re: DATACLASS
Hi
Thanks your answers.
I am sorry that I just came back by holiday
Today I submit the following JCL:
//ALOCHSKP EXEC PGM=IEFBR14
//MESSAGE DD DSN=ABSP.CEB.TEST9,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(4096,(10,10)),
// DCB=(LRECL=300,BLKSIZE=27900,RECFM=FB)
Below is the output: Data class . . . . . : DCSTD
<snip>
Then I submit the other JCL below:
//ALOCHSKP EXEC PGM=IEFBR14
//MESSAGE DD DSN=ABSP.CEB.TEST8,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(4096,(10,10)),DSORG=PS,
// DCB=(LRECL=300,BLKSIZE=27900,RECFM=FB)
The output is below:Data class . . . . . : DCPS
<snip>
My question:
When I allocate a dataset using PGM=IEFBR14 with SPACE=(4096,(10,10)),
Could the parm of space ask system to allocate a PS dataset?
Why do we must use DSORG=PS in the JCL?
----------------------------------------------------------------------
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
