They would still need to change the JCL to include the directory blocks, correct ?
-Gani 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. > ---------------------------------------------------------------------- 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
