No directory blocks needed - this is a PS file. It looks to me like Radoslaw's response indicating that I'll have to have the applications add the DSORG parm to their JCl is the way I'm going to have to go. I suspected as much but was looking for confirmation.
dd keller >>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. ************************************************************************************** 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
