No one answered, so I'll try:
Your assumption about DSORG = '' is not safe.
Go, figure with allocation of PDS.
I would recommend to add DSORG parameter to your JCL.
Your SMS routines will be easier and - last but not least - you won't
have "zombie datasets". I mean a dataset with DSORG=NONE. Such dataset
is created when it is allocated on disk, but never opened. Instead of
DCB=(), and BLKSIZE=0 parameters which are absolutely unneeded add
DSORG=PS.
Caution: "zombie datasets" are not subject to migration processing
(assuming DFSMSHSM). They occupy your best DASD space. Forever.
--
Radoslaw Skorupka
Lodz, Poland
Darth Keller wrote:
I've got a dataset allocated with the following JCL:
41 //OUTLOAN DD DSN=T.PM.CWSCW02M.CWSBCWI1.DMLOAN.PRECODE1,
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=205,BLKSIZE=0),
// SPACE=(CYL,(9000,500),RLSE),
// STORCLAS=&SCTEST,
// MGMTCLAS=&MCTEST
The SMS code looks like:
FILTLIST DCEXTEND_DSN INCLUDE(
- - - - - - - - - - - - - - -
T.PM.CWSCW02M.**,
T.PM.CWSCW03M.**,
- - - - - - - - - - - - - - -
)
- - - - - - - - - - - - - - -
WHEN (&DCEXTEND_DSN)
DO
IF (&SIZE GE 40000KB) THEN
DO
- - - -
SELECT
- - - -
WHEN (&DSORG EQ 'PS')
DO
SET &DATACLAS = 'DCEXTEND'
WRITE 'DCN0900 ' &DSN ' ' &PGM ' ' &DSORG ' ' &DATACLAS
EXIT
END
OTHERWISE
DO
SET &DATACLAS = 'DCSTDFLT'
WRITE 'DCN1000 ' &DSN ' ' &PGM ' ' &DSORG ' ' &DATACLAS
EXIT
END
DCEXTEND is defined with 'extended addressability' & compaction.
The SYSOUT from the JOB shows:
41 IGD01007I DCN1000 T.PM.CWSCW02M.CWSBCWI1.DMLOAN.PRECODE1 CWSBCWI1
DCSTDFLT
It appears from the results from SMS dataclas assignment & the message
output that the dataset is presenting to SMS with a blank DSORG. Any
ideas as to why or where this is documented? Can I safely add a test for
WHEN(&DSORG EQ '')? I know that I can have the applications add the
DATACLAS to the JCL but they were trying to avoid JCL changes.
--
BRE Bank SA
ul. Senatorska 18
00-950 Warszawa
www.brebank.pl
Sd Rejonowy dla m. st. Warszawy
XII Wydzia Gospodarczy Krajowego Rejestru Sdowego,
nr rejestru przedsibiorców KRS 0000025237
NIP: 526-021-50-88
Wedug stanu na dzie 01.01.2008 r. kapita zakadowy BRE Banku SA wynosi
118.642.672 zote i zosta w caoci wpacony.
----------------------------------------------------------------------
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
