Re: A Blank DSORG
Ron mentioned that DSORG would be set to PO or VS, with whatever is left over, is PS. Not true. There might still be a few folks allocating DSORG=DA files too. Old PL/I and very Old COBOL supported this DSORG and programs written in these languages could still be around. HLASM still supports DSORG=DA. Ben Alford Enterprise Systems Programming University of Tennessee -- 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
Re: A Blank DSORG
At my shop, I'd say they deserved what they get :) I took the other direction on this. When the extended stuff became available, we were DASD poor and frequent x37. I made striped and extended the default for most everything and my ACS routines grant exceptions where required. So I can use DSORG = 'PO' use non-extended dataclass. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ben Alford Sent: Friday, February 22, 2008 11:45 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: A Blank DSORG Ron mentioned that DSORG would be set to PO or VS, with whatever is left over, is PS. Not true. There might still be a few folks allocating DSORG=DA files too. Old PL/I and very Old COBOL supported this DSORG and programs written in these languages could still be around. HLASM still supports DSORG=DA. Ben Alford Enterprise Systems Programming University of Tennessee -- 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 -- 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
Re: A Blank DSORG
So I figured I'd run a quick test allocating a PDS with a name fitting my mask using JCL. The write statement (shown below) should show me the DSORG presented to SMS. WRITE 'DCN1000 ' DSN ' ' PGM ' ' DSORG ' ' DATACLAS So here's the JCL segment 4 //OUTLOAN DD DSN=T.PM.CWSCW02M.CWSBCWI1.DMLOAN.PRECODE1.DDK, // DISP=(NEW,CATLG), // RECFM=FB,LRECL=205,BLKSIZE=0, // SPACE=(CYL,(90,5,15),RLSE), // STORCLAS=SCTEST, // MGMTCLAS=MCTEST and here's the IGD SMS sysout statement: 4 IGD01007I DCN1000 T.PM.CWSCW02M.CWSBCWI1.DMLOAN.PRECODE1.DDK IEFBR14 PO DCSTDFLT If you compare the write stmt to the sysout, it's pretty clear to me that I should be able to use the suggested statement (shown below)to correctly assign my dataclas. WHEN (DSORG NE 'PO' AND DSORG NE 'VS') Thanks for all the input! dd keller My SMS experience is that directory blocks in space allocation will cause DSORG to be completed as PO and DEFINE or VSAM in JCL will see DSORG set to VS. That means whatever is leftover, is PS. I think this is what someone meant by checking what it isn't. ** 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
Re: A Blank DSORG
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 4KB) 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 025237 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
Re: A Blank DSORG
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 4KB) 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
Re: A Blank DSORG
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 4KB) 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
Re: A Blank DSORG
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 Darth, You could add the dsorg to the dataclass(es) if you assign a dataclass to every dataset. Any open (or jcl parameter) would override the dataclass value. Regards, John -- 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
Re: A Blank DSORG
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 4KB) 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
Re: A Blank DSORG
For most of my dataclas's, I do assign a DSORG. But in this case where I'm testing for the DSORG using it to assign a dataclas, it doesn't help - kind of a cart-horse problem. ddk Darth, You could add the dsorg to the dataclass(es) if you assign a dataclass to every dataset. Any open (or jcl parameter) would override the dataclass value. Regards, John ** 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
Re: A Blank DSORG
Darth, You could create a new barebones dataclass and assign it to any dataset with a null DSORG. I have such a dataclas just to avoid gdg model datasets when creating a +1 gds. Regards, John For most of my dataclas's, I do assign a DSORG. But in this case where I'm testing for the DSORG using it to assign a dataclas, it doesn't help - kind of a cart-horse problem. ddk Darth, You could add the dsorg to the dataclass(es) if you assign a dataclass to every dataset. Any open (or jcl parameter) would override the dataclass value. Regards, John -- 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
Re: A Blank DSORG
Tom Marchant wrote: 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. No ways! RECORG is for VSAM, They're discussing DSORG=PS in this thread. RECORG={KS|ES|RR|LR} There is nothing about PS in RECORG. HTH! Groete / Greetings Elardus Engelbrecht -- 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
Re: A Blank DSORG
Darth, Sound like you have the cart in front of the horse to me. I used to code the ACS to assign DSORG=PS if it was blank and did not meet any other DSORG's criteria. This prevented the HSM orphans that Radoslaw referred to. Ron -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Darth Keller Sent: Wednesday, February 20, 2008 7:09 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: [IBM-MAIN] A Blank DSORG For most of my dataclas's, I do assign a DSORG. But in this case where I'm testing for the DSORG using it to assign a dataclas, it doesn't help - kind of a cart-horse problem. ddk Darth, You could add the dsorg to the dataclass(es) if you assign a dataclass to every dataset. Any open (or jcl parameter) would override the dataclass value. Regards, John *** *** 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 -- 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
Re: A Blank DSORG
John - Actually the DCSTDFLT dataclas assigned in the code stub shown in my 1st email is exactly that - a barebones dataclass. But in this case, I wanted to assign a dataclass with the extended format compaction attributes. I have several of these to chose from wanted to assign DCEXTEND based on a DSORG=PS. This is where I ran into my little issue. As someone else pointed out earlier, I think the solution will be to require the applications to add the DSORG parm to their JCL. thanks - ddk Darth, You could create a new barebones dataclass and assign it to any dataset with a null DSORG. I have such a dataclas just to avoid gdg model datasets when creating a +1 gds. Regards, John ** 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
Re: A Blank DSORG
We use a 3rd party product to initialize these datasets prevent the orphans. ddk Darth, Sound like you have the cart in front of the horse to me. I used to code the ACS to assign DSORG=PS if it was blank and did not meet any other DSORG's criteria. This prevented the HSM orphans that Radoslaw referred to. Ron ** 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
Re: A Blank DSORG
On Wed, 20 Feb 2008 09:59:00 -0600, Darth Keller wrote: John - Actually the DCSTDFLT dataclas assigned in the code stub shown in my 1st email is exactly that - a barebones dataclass. But in this case, I wanted to assign a dataclass with the extended format compaction attributes. I have several of these to chose from wanted to assign DCEXTEND based on a DSORG=PS. This is where I ran into my little issue. As someone else pointed out earlier, I think the solution will be to require the applications to add the DSORG parm to their JCL. The sample JCL that you showed in your first post had no DSORG assigned. In that case, do you want to assign it to DXEXTEND? If so, you need to check for no DSORG. From the Storage Administration Reference: If you do not specify a Recorg value for data sets with a data class, assigned either by JCL or ACS routine, the DSORG defaults to either physical sequential (PS) or partitioned organization (PO). -- 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
Re: A Blank DSORG
Tom - Actually I only wanted to assign DCEXTEND for a PS file, but not a PO. The manual reference was actually what I needed to find as I couldn't remember which files could actually fall into SMS with a blank DSORG. I'm going to handle it by having the applications add the DSORG to their JCL. thanks - ddk The sample JCL that you showed in your first post had no DSORG assigned. In that case, do you want to assign it to DXEXTEND? If so, you need to check for no DSORG. From the Storage Administration Reference: If you do not specify a Recorg value for data sets with a data class, assigned either by JCL or ACS routine, the DSORG defaults to either physical sequential (PS) or partitioned organization (PO). -- Tom Marchant ** 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
Re: A Blank DSORG
On Wed, 20 Feb 2008 10:43:10 -0600, Darth Keller wrote: Actually I only wanted to assign DCEXTEND for a PS file, but not a PO. The manual reference was actually what I needed to find as I couldn't remember which files could actually fall into SMS with a blank DSORG. I'm going to handle it by having the applications add the DSORG to their JCL. It seems like you could deduce that a data set would be PS because of what it is not. Can DSNTYPE help you? -- 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
Re: A Blank DSORG
Use not PO. It will be PO if it's a library -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Darth Keller Sent: Wednesday, February 20, 2008 8:43 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: A Blank DSORG Tom - Actually I only wanted to assign DCEXTEND for a PS file, but not a PO. The manual reference was actually what I needed to find as I couldn't remember which files could actually fall into SMS with a blank DSORG. I'm going to handle it by having the applications add the DSORG to their JCL. thanks - ddk The sample JCL that you showed in your first post had no DSORG assigned. In that case, do you want to assign it to DXEXTEND? If so, you need to check for no DSORG. From the Storage Administration Reference: If you do not specify a Recorg value for data sets with a data class, assigned either by JCL or ACS routine, the DSORG defaults to either physical sequential (PS) or partitioned organization (PO). -- Tom Marchant ** 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
Re: A Blank DSORG
Tom - I hadn't thought about using DSNTYPE. If it gets set when you request directory blocks in the allocation, I could see where I could use it. Otherwise I don't see anything else in the values for test cases that would help me determine a PS from a PO. The one thing this has pointed out to me is that I don't have any testcases built where the DSORG is blank for PS PO datasets - something else to add. Can DSNTYPE help? ** 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
Re: A Blank DSORG
Darth, Actually I only wanted to assign DCEXTEND for a PS file, but not a PO. The manual reference was actually what I needed to find as I couldn't remember which files could actually fall into SMS with a blank DSORG. Are your users coding directory blocks in their space parameter? DSORG should be set to PO if there is a value coded. Regards, John -- 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
Re: A Blank DSORG
John - No directory blocks in this case. They want a PS file but never coded the DSORG. I was going to have them update their JCL with the DSORG parameter, but I'm also thinking I can handle it within SMS with a separate filterlist of specific names in addition to the filterlist which uses masking as we were doing before. With a test for a specific dsn, I don't need to be concerned about the dsntype at all. The dataset ended up with just under 9000 cylinders used space; the compressed version is less than 1/5th that size... so I definitely want it compressed. ddk Are your users coding directory blocks in their space parameter? DSORG should be set to PO if there is a value coded. Regards, John ** 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
Re: A Blank DSORG
Darth, Have you given any thought to other compound filter list tests (jobname, ddname, program, etc.) that could help assign your data class without JCL changes? Bob - Robert B. Richards(Bob) US Office of Personnel Management 1900 E Street NW Room: BH04L Washington, D.C. 20415 Phone: (202) 606-1195 Email: [EMAIL PROTECTED] - -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Darth Keller Sent: Wednesday, February 20, 2008 1:39 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: A Blank DSORG John - No directory blocks in this case. They want a PS file but never coded the DSORG. I was going to have them update their JCL with the DSORG parameter, but I'm also thinking I can handle it within SMS with a separate filterlist of specific names in addition to the filterlist which uses masking as we were doing before. With a test for a specific dsn, I don't need to be concerned about the dsntype at all. The dataset ended up with just under 9000 cylinders used space; the compressed version is less than 1/5th that size... so I definitely want it compressed. ddk Are your users coding directory blocks in their space parameter? DSORG should be set to PO if there is a value coded. Regards, John -- 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
Re: A Blank DSORG
Tom Marchant sent this earlier today: From the Storage Administration Reference: If you do not specify a Recorg value for data sets with a data class, assigned either by JCL or ACS routine, the DSORG defaults to either physical sequential (PS) or partitioned organization (PO). -- Unless I read DFSMS/dfp Storage Administrators Guide wrong, DSORG will only be null for a PS dataset. If users code directory blocks, DSORG is set to PO. The other possible values require coding DSNTYPE= in the jcl. Regards, John ** 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
Re: A Blank DSORG
John Kington wrote: Darth, [...] Are your users coding directory blocks in their space parameter? DSORG should be set to PO if there is a value coded. Maybe it should, but AFAIK it isn't. That's the problem. Having blank DSORG you cannot tell whether it is PS or PO. You can check directory blocks, but again it fails for PDSE. However adding DSORG to DD solves the problem. I see nothing wrong in specifying DSORG. -- Radoslaw Skorupka Lodz, Poland -- 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 025237 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
Re: A Blank DSORG
You might want to create the dataclas named DEFAULT. Check the SMS books to be sure. Then at least you get rid of the null DSORG. Doug - Original Message - From: Darth Keller [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Wednesday, February 20, 2008 4:49 PM Subject: Re: A Blank DSORG Tom Marchant sent this earlier today: From the Storage Administration Reference: If you do not specify a Recorg value for data sets with a data class, assigned either by JCL or ACS routine, the DSORG defaults to either physical sequential (PS) or partitioned organization (PO). -- Unless I read DFSMS/dfp Storage Administrators Guide wrong, DSORG will only be null for a PS dataset. If users code directory blocks, DSORG is set to PO. The other possible values require coding DSNTYPE= in the jcl. Regards, John ** 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 -- 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
Re: A Blank DSORG
Darth, Try this (the first when statement). WHEN (DCEXTEND_DSN) DO IF (SIZE GE 4KB) THEN DO - - - - SELECT - - - - WHEN (DSORG NE 'PO' AND DSORG NE 'VS') 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 My SMS experience is that directory blocks in space allocation will cause DSORG to be completed as PO and DEFINE or VSAM in JCL will see DSORG set to VS. That means whatever is leftover, is PS. I think this is what someone meant by checking what it isn't. Ron -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Darth Keller Sent: Wednesday, February 20, 2008 1:50 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: [IBM-MAIN] A Blank DSORG Tom Marchant sent this earlier today: From the Storage Administration Reference: If you do not specify a Recorg value for data sets with a data class, assigned either by JCL or ACS routine, the DSORG defaults to either physical sequential (PS) or partitioned organization (PO). -- -- 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
A Blank DSORG
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 4KB) 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