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.
**************************************************************************************
This e-mail message and all attachments transmitted with it may contain legally
privileged and/or confidential information intended solely for the use of the
addressee(s). If the reader of this message is not the intended recipient, you
are hereby notified that any reading, dissemination, distribution, copying,
forwarding or other use of this message or its attachments is strictly
prohibited. If you have received this message in error, please notify the
sender immediately and delete this message and all copies and backups thereof.
Thank you.
**************************************************************************************
----------------------------------------------------------------------
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
