On Tue, 19 Feb 2008 14:38:32 -0600, 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.
It's been a long time since I've done any SMS work, but I think you can do what you are proposing as long as you add RECORG=PS to your data class. -- Tom Marchant ---------------------------------------------------------------------- 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
