Re: SR
As with their 56 hour outage, we were told by my IBM rep (to whom I complained) to use the phone number. I think I can get more done with the phone call. I'm ready to dump the SR. Chip G. From: Barbara Nitz nitz-...@gmx.net To: IBM-MAIN@bama.ua.edu Date: 06/07/2012 11:46 PM Subject:Re: SR Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Dick, Anyone else as disgusted with the SR replacement as I am? You might want to check my lenghty rants (in 5 parts) in March 2011 (SR might be palatable if). Nothing has changed since then, and I know that SR development was aware of my critique and intentionally misunderstood it. SR is still as user-unfriendly as it was. But you just don't get that IBM has taken surveys which confirmed that their way was the best, most user-friendly one. And anyone saying something else is just negative in the extreme. Apparently the US SHARE customers said that SR is okay (and US customers are the only ones that count), so IBM pulled the plug on ETR. IBM also does not intend to do anything about the double logon 'until later'. Which will be November at the earliest, and they didn't specify which year. They didn't give a concrete date at all. I will not use it and instead call in problems. If I report any at all in the future. In my opinion, SR is IBMs way of telling the world that their code doesn't have bugs, hence customers only request 'service' when the code has bugs - service payable in - not report problems anymore. So why bother? As long as I have an easy bypass, I won't. Get used to the new world of the clickers! As a mainframer, you're a dying breed. (As am I.) Barbara Nitz -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
JES/2 Proc SYSIN Concat Error??
I'm wondering if anyone else has seen this phenomenon. Doesn't seem right to me. I have a proc that looks like this //SHOWIT PROC //STEP010 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1DD DDNAME=INPUT //SYSIN DD DUMMY //SYSUT2DD SYSOUT=* //SHOWIT PEND in the dataset ISCLG.JCL(SHOWIT) I execute it with JCL like //ISCLGTES JOB 3432000, // 'CHIP GRANTHAM X7382', // CLASS=S, // MSGCLASS=X // JCLLIB ORDER=ISCLG.JCL //STEP010 EXEC SHOWIT //INPUT DD * * -- * * THIS IS THE PROC YOUR EXECUTING* * -- * //DD DISP=SHR,DSN=ISCLG.JCL(SHOWIT) I only receive the DD * data in SYSUT2, not the copied ISCLG.JCL(SHOWIT) proc. * -- * * THIS IS THE PROC YOUR EXECUTING* * -- * If I change the proc so that SYSUT1 is last statement, everything works fine (I see the proc as well as the comments). * -- * * THIS IS THE PROC YOUR EXECUTING* * -- * //SHOWIT PROC //STEP010 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2DD SYSOUT=* //SYSUT1DD DDNAME=INPUT //SHOWIT PEND Is this right? Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JES/2 Proc SYSIN Concat Error??
Thanks Lizette. Interesting. My work around was to use the true DDNAME and not the DDNAME= DDNAME. And I didn't see the message. It's actually in the JESYSMG dataset and not in the JESMSGLG where I would expect such messages. Thanks. I was just so shocked to not see the expected output. (My original occurrence of the issue was with a must more important large job.) Is it just me, or does this seem like I'm expected to interrupt the message to be, we know this isn't what you expect and we might even consider it an error, but instead of fixing it, we'll produce a message. Does the message always makes everything OK? The Job runs to EOJ, and there is not a non-zero condition code set, but there really is an error IMHO. Is there a way to make the job receive a JCL Error, or abend? Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 From: Lizette Koehler stars...@mindspring.com To: IBM-MAIN@bama.ua.edu Date: 06/05/2012 04:00 PM Subject:Re: JES/2 Proc SYSIN Concat Error?? Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Chip, I replicated your process and had the following ERROR message in my JES MSG LOG from z/OS V1.12 IEF694I DDNAME REFERENCE TO DD CONCATENATION REFERS ONLY TO FIRST DD Explanation: THE JCL DDNAME keyword has been used to refer to a DD concatenation. When the object of a DDNAME reference is a concatenation of multiple DDs, only the first DD in the concatenation is actually referenced. System Action: The system issues message IEF677I and continues processing the job. The first DD in the referenced concatenation is associated with the referencing DD. The remaining (unlabeled) DDs in the referenced concatenation are concatenated to the labeled DD immediately preceding the concatenation. User Response: If the DDNAME reference was intended to refer to the entire concatenation, move the concatenated DDs to follow the referencing DD rather than the referenced DD. This will ensure that the concatenation is correctly defined to the system. So you need to have your input last. Lizette I'm wondering if anyone else has seen this phenomenon. Doesn't seem right to me. I have a proc that looks like this //SHOWIT PROC //STEP010 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1DD DDNAME=INPUT //SYSIN DD DUMMY //SYSUT2DD SYSOUT=* //SHOWIT PEND in the dataset ISCLG.JCL(SHOWIT) I execute it with JCL like //ISCLGTES JOB 3432000, // 'CHIP GRANTHAM X7382', // CLASS=S, // MSGCLASS=X // JCLLIB ORDER=ISCLG.JCL //STEP010 EXEC SHOWIT //INPUT DD * * -- * * THIS IS THE PROC YOUR EXECUTING* * -- * //DD DISP=SHR,DSN=ISCLG.JCL(SHOWIT) I only receive the DD * data in SYSUT2, not the copied ISCLG.JCL(SHOWIT) proc. * -- * * THIS IS THE PROC YOUR EXECUTING* * -- * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Acquiring the Additional Material from z/OS V1.13 DFSMS Technical Update Manual
Hello listers, Appendix B of this manual contains reference to a zip file of additional material to download. I can't seem to figure out how to do the download. From the links on the enclosed URL, I click on the addition material link and get the FTP page. If I click on the txt file, it opens in a separate tab. If I click on the zip file, I get a not authorized message. If I open a FTP session with my IBM Link userid and password, I get a logon incorrect - logon failed message. So does anyone see what I'm doing wrong, or have any idea how IBM expected us to get the additional material? z/OS V1.13 DFSMS Technical Update Revised: May 9, 2012 More details are available at http://www.redbooks.ibm.com/redpieces/abstracts/sg247961.html?Open Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Acquiring the Additional Material from z/OS V1.13 DFSMS Technical Update Manual
Hey Good catch Mark. Didn't think about permission bits. I've emailed Redbooks and asked if they could update them. Thanks for the help. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 From: Mark Post mp...@suse.com To: IBM-MAIN@bama.ua.edu Date: 05/15/2012 10:35 AM Subject:Re: Acquiring the Additional Material from z/OS V1.13 DFSMS Technical Update Manual Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu On 5/15/2012 at 11:27 AM, Chip Grantham cgrant...@ameritas.com wrote: So does anyone see what I'm doing wrong, or have any idea how IBM expected us to get the additional material? You're not doing anything wrong. The file on the FTP server doesn't have read permission set for anyone other than the owner and group. ftp dir 200 PORT command successful. 150 Opening ASCII mode data connection for /bin/ls. total 136 -rw-r-1 60004400 1000217 62580 Mar 7 08:21 SMF85JCL.zip -rw-r--r--1 60004400 10002171455 Mar 7 08:25 disclaimer.txt That's something IBM will have to fix. Mark Post -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Engine increase on the 2097
If I'm not mistaken, the HCD profile for the image will need to have spare CPUs defined for the add to work. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 From: Srivastava, Rajesh rajesh.srivast...@ubs.com To: IBM-MAIN@bama.ua.edu Date: 05/04/2012 09:58 AM Subject:Re: Engine increase on the 2097 Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu You will have to issue very online command for the added CPU. Issue D M=CPU to verify. You will have to apply auth codes incase you have vendor products which have auth codes depending on machine model. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Lopez, Sharon Sent: Friday, May 04, 2012 10:39 AM To: IBM-MAIN@bama.ua.edu Subject: Engine increase on the 2097 We are turning on 1 engine this weekend to one of our processors; we are going from a 2097-604 to a 2097-605. Our IBM CE says that it will not need a Power-on-Reset (POR). We are not changing the weights for the lpars within the HMC; we are leaving them as is. How can we verify that the actual physical engine has been turned on? Is there a MVS display that will show this or somewhere within the HMC? Thanks. Sharon Lopez z/OS Systems Programmer State of North Carolina Office of Information Technology Services 919-754-6432 (Work) 919-398-8638 (Cell) sharon.lo...@nc.gov http://www.its.state.nc.ushttp://www.its.state.nc.us/ E-mail correspondence to and from this address may be subject to the North Carolina Public Records Law and may be disclosed to third parties by an authorized state official. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN Please visit our website at http://financialservicesinc.ubs.com/wealth/E-maildisclaimer.html for important disclosures and information about our e-mail policies. For your protection, please do not transmit orders or instructions by e-mail or include account numbers, Social Security numbers, credit card numbers, passwords, or other personal information. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: active IODF data set
From the wonderful IPLINFO command, I find: PROC_IODF: /* IODF details ##*/ cvt = Storage(10,4)/* get the CVT address*/ cvtixavl = Storage(D2x(C2d(cvt)+124),4) /* get the IOCOM address */ cvtext2 = Storage(D2x(C2d(cvt)+328),4) /* get the EXT2 address */ cvtiocid = Storage(D2x(C2d(cvtext2)+6),2) /* active IO config id*/ iociovtp = Storage(D2x(C2d(cvtixavl)+208),4)/* get the IOVT address */ cda = Storage(D2x(C2d(iociovtp)+24),4) /* get the CDA address*/ iodfname = Storage(D2x(c2d(cda)+32),44) /* get the IODF name */ iodfcfgi = Storage(D2x(c2d(cda)+92),8) /* get the IODF config id */ iodfedt = Storage(D2x(c2d(cda)+104),2) /* get the IODF EDT */ iodfproc = Storage(D2x(c2d(cda)+124),8) /* get the IODF Proc */ iodfdate = Storage(D2x(c2d(cda)+156),8) /* get the IODF Date */ iodftime = Storage(D2x(c2d(cda)+164),8) /* get the IODF Time */ iodfdesc = Storage(D2x(c2d(cda)+172),16)/* get the IODF Descriptn */ Return /**/ Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 From: Brad Wissink bjwi...@iastate.edu To: IBM-MAIN@bama.ua.edu Date: 05/03/2012 02:39 PM Subject:active IODF data set Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu I want to dynamically allocate the current active IODF data set in an assembler program. does anyone know where that information is stored and how I can get it? Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: VSAM help wanted for random reads
We have an application like this, that is multiple record types in the same KSDS. We found that if we had a FD for the type '4' records and a FD for the type '5' records (that is two DDs pointing to the same file), that each kept a separate sequence set in storage and it ran faster. You might try it. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: RES: TAPEMAP generator
A.Cecilio, I attempted to send you my general purpose CLIST for something like this but it bounced on your email address. I'd be happy to send it to you personally (and any one else) if you contact me off-line. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 ITURIEL DO NASCIMENTO NETO 4254.itur...@bradesco.com.br Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 03/06/2012 12:55 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject RES: TAPEMAP generator Hi, A 100 tapes ? It's quite few. If the number of volumes were bigger I would go with Rexx. I think that it will be faster if you manually generate a job like this : //JOB1 JOB // PROC //COPY EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT2 DD SYSOUT=* //SYSUT1 DD DISP=OLD, //DSN=AL2999.SOMETH, //DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50), //UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000), //VOL=SER=T // PEND //S1 EXEC COPY,T=V10001 //S2 EXEC COPY,T=V10002 And so... Atenciosamente / Regards / Saludos Ituriel do Nascimento Neto BANCO BRADESCO S.A. 4254 / DPCD Engenharia de Software Sistemas Operacionais Mainframes Tel: +55 11 4197-2021 R: 22021 Fax: +55 11 4197-2814 -Mensagem original- De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de Burrell, C. Todd (CDC/OCOO/ITSO) (CTR) Enviada em: terça-feira, 6 de março de 2012 13:09 Para: IBM-MAIN@bama.ua.edu Assunto: Re: TAPEMAP generator You should be able to do this in REXX very easily (around 25 line EXEC). I have tons of JCL where I read in a list (like the tape list) and the write out the JCL. This comes from many years of laziness... -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of af dc Sent: Tuesday, March 06, 2012 11:03 AM To: IBM-MAIN@bama.ua.edu Subject: TAPEMAP generator Hello, I need to do a tapemap for about 100 tapes (virtual volumes), I've jcl: //V1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSUT1 DD DISP=OLD, //DSN=AL2999.SOMETH, //DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,BUFNO=50), //UNIT=(VTS),LABEL=(1,BLP,EXPDT=98000), //VOL=SER=V1 and I've volume list in format: V1 V10001 V10002 ... what is the best way to generate 100 jcls ??? rexx ? icetool ? Many thx, A.Cecilio. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN AVISO LEGAL br...Esta mensagem é destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou legalmente privilegiada. Se você não for destinatário desta mensagem, desde já fica notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo, desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou sistema de controle. Fica desprovida de eficácia e validade a mensagem que contiver vínculos obrigacionais, expedida por quem não detenha poderes de representação. LEGAL ADVICEbr...This message is exclusively destined for the people to whom it is directed, and it can bear private and/or legally exceptional information. If you are not addressee of this message, since now you are advised to not release, copy, distribute, check or, otherwise, use the information contained in this message, because it is illegal. If you received this message by mistake, we ask you to return this email, making possible, as soon as possible, the elimination of its contents of your database, registrations or controls system. The message that bears any mandatory links, issued by someone who has no representation powers, shall be null or void. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have
Help! When is DASD I/O time equal to Subchannel Start Count?
Has any one looked closely at the SMF30 Subtype 4 I/O section? I am attempting to understand the current I/O problems on our system. I am focusing on SMF30 Subtype 4 records and the I/O Section. When looking at SMF30AIC and converting from 128 micro seconds to milliseconds by multipling by 128 and dividing by 1000, I get the same value, or nearly the same value as the SMF30AIS field. (Same for SMF30EIC and SMF30EIS.) Am I doing something wrong? or are the fields incorrectly calculated? Here is a dump of one record. x'190' D'400' is the start of the I/O field. SMF30AIC is 44971. SMF30AIS is 8c79. h(44971)*128/1000 is 8c78 which is almost 8c79 which occurs thoughout all my 30:4s. 0 0621 DE1E0007 E4140112 001FE2E8 16 E2C1D1C5 E2F20004 00B0 00260001 32 00D6 00BA0001 0190 004C0001 48 01DC 00080001 01E4 00A80001 64 028C 00E80001 80 0374 00D30001 0447 00180001 96 045F 001E000F 112 0487 0028 045F 0028 128 0060 144 004C 0050 160 0014 176 0004 F0F5E2D4 C6404040 4040E2D7 192 F74BF14B F240E2E8 E2C14040 4040D3C4 208 C3F14040 4040D7C4 E6F5D9D9 C7D7C9C4 224 C3C1D4E2 4040E2E3 C5D7F0F5 40404040 240 40404040 4040D1D6 C2F0F8F6 F4F7000B 256 E600 0006 FEEE0006 FF040006 272 FEEE0112 001F007D 67D00111 365F007D 288 67D20111 365FD7C5 D5E2C9D6 D540C1C4 304 D4C9D540 40404040 4040E2E8 E2F14040 320 4040E9C5 D2C5F0F0 F1D7 336 4040 40404040 4040D4E2 E3D9F5D9 352 C5D7E640 40404040 4040C8E8 287253CE 368 5281C8E8 2AA1C44D 0E84 384 01BD 400 40ED 416 0007 756A 432 00044971 003D419E C831 8C79 448 464 40ED Any help is appreciated. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Fw: Help! When is DASD I/O time equal to Subchannel Start Count?
I asked IBM for some help and received this response. The record is correct and working as designed. I was looking at an older SMF manual. The current manual states that for FICON, channel utilization cannot be calculated and the connect time is set to 1 millisecond per request. Sorry to bother everyone. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 - Forwarded by Chip Grantham/ALIC on 01/25/2012 02:01 PM - Chip Grantham cgrant...@ameritas.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 01/25/2012 01:39 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Help! When is DASD I/O time equal to Subchannel Start Count? Has any one looked closely at the SMF30 Subtype 4 I/O section? I am attempting to understand the current I/O problems on our system. I am focusing on SMF30 Subtype 4 records and the I/O Section. When looking at SMF30AIC and converting from 128 micro seconds to milliseconds by multipling by 128 and dividing by 1000, I get the same value, or nearly the same value as the SMF30AIS field. (Same for SMF30EIC and SMF30EIS.) Am I doing something wrong? or are the fields incorrectly calculated? Here is a dump of one record. x'190' D'400' is the start of the I/O field. SMF30AIC is 44971. SMF30AIS is 8c79. h(44971)*128/1000 is 8c78 which is almost 8c79 which occurs thoughout all my 30:4s. 0 0621 DE1E0007 E4140112 001FE2E8 16 E2C1D1C5 E2F20004 00B0 00260001 32 00D6 00BA0001 0190 004C0001 48 01DC 00080001 01E4 00A80001 64 028C 00E80001 80 0374 00D30001 0447 00180001 96 045F 001E000F 112 0487 0028 045F 0028 128 0060 144 004C 0050 160 0014 176 0004 F0F5E2D4 C6404040 4040E2D7 192 F74BF14B F240E2E8 E2C14040 4040D3C4 208 C3F14040 4040D7C4 E6F5D9D9 C7D7C9C4 224 C3C1D4E2 4040E2E3 C5D7F0F5 40404040 240 40404040 4040D1D6 C2F0F8F6 F4F7000B 256 E600 0006 FEEE0006 FF040006 272 FEEE0112 001F007D 67D00111 365F007D 288 67D20111 365FD7C5 D5E2C9D6 D540C1C4 304 D4C9D540 40404040 4040E2E8 E2F14040 320 4040E9C5 D2C5F0F0 F1D7 336 4040 40404040 4040D4E2 E3D9F5D9 352 C5D7E640 40404040 4040C8E8 287253CE 368 5281C8E8 2AA1C44D 0E84 384 01BD 400 40ED 416 0007 756A 432 00044971 003D419E C831 8C79 448 464 40ED Any help is appreciated. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Module P5MX052 or FMID QX07190?
I don't find P5MX052 on my system. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Edward Jaffe edja...@phoenixsoftware.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 01/13/2012 04:25 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Module P5MX052 or FMID QX07190? Anyone ever heard of an ISPF application with a module called P5MX052? It is LE-enabled code (starts with CEESTART), but there is no copyright notice or other eye catcher that we can see. We do see what *might* be an FMID (QX07190), but a Google search for both of these character values has turned up nothing. -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: ENCODE64 - Where is it?
I find it in the XMITIP LOAD library for V10R8M0. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Hale, Bob bob.h...@roundys.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 01/13/2012 04:46 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject ENCODE64 - Where is it? I was trying different things with XMITIP and it gave me an error trying to load ENCODE64. Can someone direct me to the library this load module should be in? Bob This message (including any attachments) is intended only for the use of the individual or entity to which it is addressed and may contain information that is non-public, proprietary, privileged, confidential, and exempt from disclosure under applicable law or may constitute as attorney work product. If you are not the intended recipient, you are hereby notified that any use, dissemination, distribution, or copying of this communication is strictly prohibited. If you have received this communication in error, notify us immediately by telephone and (i) destroy this message if a facsimile or (ii) delete this message immediately if this is an electronic communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Audting PDS Datasets and comparing to find most current member
I have a set of modules that might be of interest. The first calls the link editor and gathers a complete set of analytics. The second takes two different sets of the first reports and creates report of matches / mismatches by module / csect and compares attributes of matches. The two source files from the first modules can be from different times of the same library, different maintenance levels of the same library (maybe different LPARs), or different libraries. I'm not at liberty to post to cbttape, but would share it with anyone that wanted to ping me offline. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Ed Finnell efinnel...@aol.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 01/12/2012 03:54 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: Audting PDS Datasets and comparing to find most current member Yazbut, SOURCE don't run! One of the worst entanglements is mixed load mods at mixed levels of maint. Whether it be system or application level have to dig thru what's running vs what's supposed to be running and how it's been linked(bound). In a message dated 1/12/2012 1:17:17 P.M. Central Standard Time, john.mck...@healthmarkets.com writes: It unloads the directory to a file which can then be processed by a futher SAS DATA step. There is an example of this in the SAS manual that I have. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SETTING CONDITION CODE
John, I don't know if this would be your answer, but AFAIK, the code can only be set in step after execution, (without over writing an IBM control block). One way to do it might be to link to your program, then set R15 to zero after the link to force zero. For example, the following code would link to your program for execution. After it finishes, the condcode sets R15 to zero and exits. This would force a condition code zero for the step. Just a thought. Here's the code. Compile clean, but it's not tested, and needs to be used at your discretion, no warrantee implied. :-) BTW, to use it only with one program, delete the lines with GET THE PARM FROM JCL as comments and change MODULE_NAME to be a CL8 with your module name in it. Enjoy, * --- * * FORCE RETURN CODE ZERO * * REPLACE THE CURRENT JCL STATEMENT * * //STEP010 EXEC PGM= * * WITH THIS ONE, * * //STEP010 EXEC PGM=CONDCODE,PARM= * * --- * CONDCODE CSECT * - ENTRY LINKAGE * USING *,15 * - ENTRY LINKAGE * SAVE (14,12) * - ENTRY LINKAGE * LRR12,R13 * - ENTRY LINKAGE * LAR13,SAVEAREA * - ENTRY LINKAGE * STR13,8(R12) * - ENTRY LINKAGE * STR12,4(R13) * - ENTRY LINKAGE * LRR12,R15 * - ENTRY LINKAGE * USING CONDCODE,R12 * - ENTRY LINKAGE * DROP R15 * - ENTRY LINKAGE * * --- * L R2,0(R1) * - GET THE PARM FROM JCL * LHR3,0(R2) * - GET THE PARM FROM JCL * AHI R3,-1* - GET THE PARM FROM JCL * EXR3,MOVEIT* - GET THE PARM FROM JCL * * --- * LINK EPLOC=MODULE_NAME* - EXECUTE THAT PROGRAM * * --- * XRR15,R15 * - SET RETURN CODE TO ZERO * * --- * L R13,4(R13) * - EXIT LINKAGE * LMR0,R12,20(R13) * - EXIT LINKAGE * L R14,12(R13) * - EXIT LINKAGE * BRR14 * - EXIT LINKAGE * * --- * MODULE_NAMEDCCL8' ' MOVEIT MVC MODULE_NAME(*-*),2(R2) SAVEAREA DC 18F'-1' R0 EQU 0 R1 EQU 1 R2 EQU 2 R3 EQU 3 R4 EQU 4 R5 EQU 5 R6 EQU 6 R7 EQU 7 R8 EQU 8 R9 EQU 9 R10 EQU 10 R11 EQU 11 R12 EQU 12 R13 EQU 13 R14 EQU 14 R15 EQU 15 END Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 John Dawes jhn_da...@yahoo.com.au Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 11/28/2011 12:35 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: SETTING CONDITION CODE Mike, No, I am not aware of this (TSO batch job). Would you have an example which I could try? From: Mike Schwab mike.a.sch...@gmail.com To: IBM-MAIN@bama.ua.edu Sent: Monday, 28 November 2011 1:22 PM Subject: Re: SETTING CONDITION CODE The IDCAMS logic only applies to the various commands within the IDCAMS step. Have your tried a TSO Batch job, with proceeding allocate and follow free statements, followed by the TSO Clist statements to check and set the condition codes (same as your example)? On Mon, Nov 28, 2011 at 12:15 PM, John Dawes jhn_da...@yahoo.com.au wrote: G'Day, Can I override a condition code so as to force it to a ? For example the job-step executes successfully and puts out a COND CODE=0002. The job continues on to the next step which is what we want. The reason I need a instead of a 0002 is because I get paged because the operator sees a 0002. I tried the following by using IDCAMS: //STEPCOND EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * IF MAXCC=0002
Re: RMODE and AMODE at 24 - Query
CICS will log the map above the line not matter what the attributes are. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 jagadishan perumal jagadish...@gmail.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 11/09/2011 04:14 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject RMODE and AMODE at 24 - Query Hi, Below is my JCL where I want to compile my MAP load module at RMODE-24 and AMODE - 24, but the Load module is getting created with AMODE-31,RMODE-ANY. TRNR007.LOADLIB //MAPCOMP JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=B, // REGION=5M,NOTIFY=SYSUID //** //* INPUT AREA * //** // SET SOURCE=TRNR007.TEST.BMS(TRNM007) -PROGRAM SOURCE // SET LOAD=TRGTRN01.CICS.LOAD(TRNM007)-LOAD LIBRARY // SET COPY=TRNR007.COPYLIB(TRNM007)-COPY LIBRARY //** //* ASSEMBLES MAP INTO AN EXECUTABLE MAP (PHYSICAL MAP)* //** //ASMMAP EXEC PGM=ASMA90, //PARM='SYSPARM(MAP),DECK,NOOBJECT,ALIGN', //REGION=4M //SYSLIB DD DSN=CICSTS31.CICS.SDFHMAC,DISP=SHR // DD DSN=CICSTS31.CICS.SDFHSAMP,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSPUNCH DD DSN=OBJMOD, // DISP=(,PASS),UNIT=SYSDA, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0), // SPACE=(400,(100,100)) //SYSPRINT DD SYSOUT=* //SYSINDD DISP=SHR,DSN=SOURCE //** //* PUTS THE MAP INTO LINK LIBRARY * //** //LNKEDT EXEC PGM=IEWL, // PARM='NORENT,LIST,XREF,LET,NCAL', // COND=(3,LT,ASMMAP) //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,50)) //SYSPRINT DD SYSOUT=* //SYSLMOD DD DISP=SHR,DSN=LOAD //SYSLIN DD DSN=OBJMOD,DISP=(OLD,PASS) //** //* CREATES COPYBOOK AND ADDS IT INTO COPYBOOK LIBRARY (SYMBOLIC MAP) * //** //DSECT EXEC PGM=ASMA90, //PARM='SYSPARM(DSECT),DECK,NOOBJECT,ALIGN', //REGION=5M //SYSLIB DD DSN=CICSTS31.CICS.SDFHMAC,DISP=SHR // DD DSN=CICSTS31.CICS.SDFHSAMP,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSPUNCH DD DISP=SHR,DSN=COPY //SYSPRINT DD SYSOUT=* //SYSINDD DISP=SHR,DSN=SOURCE Could anyone please guide if my above JCL needs any Correction to get the load module as : AMODE : 24,RMODE:24. When I check the LKEDT executed step : TRNR007.LOADLIB //MAPCOMP JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=B, // REGION=5M,NOTIFY=SYSUID //** //* INPUT AREA * //** // SET SOURCE=TRNR007.TEST.BMS(TRNM007) -PROGRAM SOURCE // SET LOAD=TRGTRN01.CICS.LOAD(TRNM007)-LOAD LIBRARY // SET COPY=TRNR007.COPYLIB(TRNM007)-COPY LIBRARY //** //* ASSEMBLES MAP INTO AN EXECUTABLE MAP (PHYSICAL MAP)* //** //ASMMAP EXEC PGM=ASMA90, //PARM='SYSPARM(MAP),DECK,NOOBJECT,ALIGN', //REGION=4M //SYSLIB DD DSN=CICSTS31.CICS.SDFHMAC,DISP=SHR // DD DSN=CICSTS31.CICS.SDFHSAMP,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSPUNCH DD DSN=OBJMOD, // DISP=(,PASS),UNIT=SYSDA, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0), // SPACE=(400,(100,100)) //SYSPRINT DD SYSOUT=* //SYSINDD DISP=SHR,DSN=SOURCE //** //* PUTS THE MAP INTO LINK LIBRARY * //** //LNKEDT EXEC PGM=IEWL, // PARM='NORENT,LIST,XREF,LET,NCAL', // COND=(3,LT,ASMMAP) //SYSUT1 DD UNIT=SYSDA,SPACE=(1024
Re: console command output
I do it all the time. With catalog displays and some other system displays, I log the output daily to a dataset in batch. Some of the command displays are not able to be captured by the REXX TRAP command, but this works find for me. This works on TSO. Other versions are for batch, inside other REXX commands etc. Feel free to contact on or off list if you have questions. You need SDSF. HTH. /* REXX */ Parse Upper Arg command // lastupd = '09/28/2011'/* date of last update*/ // debug = 0 rc=isfcalls(on) mycmd.0=1 mycmd.1=command ISFCONS = userid() || OC Address SDSF ISFSLASH (mycmd.) (WAIT) l_cnt = 0 If (Debug = 1) Then Do l_cnt = l_cnt + 1 l.l_cnt = isfmsg is: ||isfmsg l_cnt = l_cnt + 1 l.l_cnt = isfmsg2.0 is: ||isfmsg2.0 If datatype(isfmsg2.0) = NUM then , Do ix=1 to isfmsg2.0 l_cnt = l_cnt + 1 l.l_cnt = isfmsg2.||ix|| is: ||isfmsg2.ix End End If datatype(isfulog.0) = NUM Then Do If isfulog.0 0 Then Do l_cnt = l_cnt + 1 l.l_cnt = substr(isfulog.1,1,43) Do ix=1 to isfulog.0 ll = length(isfulog.ix) qdata = substr(isfulog.ix,44,ll-43) l_cnt = l_cnt + 1 l.l_cnt = qdata End End Else Do l_cnt = l_cnt + 1 l.l_cnt = No command response available End End Else Do l_cnt = l_cnt + 1 l.l_cnt = Error in command reponse End rc=isfcalls(OFF) Call Write_Dataset Exit WRITE_DATASET: CALL DSN_HANDLING If (l_cnt = 0) Then Do l_cnt = l_cnt + 1 l.l_cnt = ' /* no data produced */' End l.0 = l_cnt Address MVS ExecIO l_cnt DiskW DSCMD (Finis Stem l.) l_cnt = 0 Address TSO Free Fi(DSCMD) Address ISPEXEC VIEW DATASET(dscmddsn) x = Outtrap('cmd.') Address TSO DELETE dscmddsn x = Outtrap('OFF') Return /*/ /* DSN_HANDLING - Carry out processing for output dataset*/ /*/ DSN_HANDLING: dsnc = 1 dsname = DSCMD.C || dsnc dsnstat = SysDsn(dsname) Do While (dsnstat = 'OK') dsnc = dsnc + 1 dsname = DSCMD.C || dsnc dsnstat = SysDsn(dsname) End Address TSO Alloc Fi(DSCMD) Lrecl(80) Unit(TSOONLY), Space(2,2) Cyl dataset(dsname), Blksize(6160) Recfm(F,B) New Reuse Catalog Dsorg(PS) dscmddsn = dsname Return 0 Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Tim Brown tbr...@cenhud.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 11/01/2011 05:51 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject console command output Is there a way in batch to issue a console command and direct the output to a file Like d m Or any other standard display command Thanks, Tim Brown Systems Specialist - Project Leader Central Hudson Gas Electric 284 South Ave Poughkeepsie, NY 12601 Email: tbr...@cenhud.com mailto:tbr...@cenhud.com Phone: 845-486-5643 Fax: 845-486-5921 Cell: 845-235-4255 This message contains confidential information and is only for the intended recipient. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, please notify the sender immediately by replying to this note and deleting all copies and attachments. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Maintenance at two in the afternoon? On a Friday?
If you've seen the Red Alerts, maybe they added a CF with 64 channels. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Steve Comstock st...@trainersfriend.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/28/2011 03:31 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Maintenance at two in the afternoon? On a Friday? Well, I just tried to do some online credit card account maintenance with my Capital One card, and got the message 'System Unavailable'. I called tech support and they said they were doing maintenance on the system. Regular weekend maintenance. At 2:00 on a Friday afternoon? Does anyone know if they are using mainframes for their online / web based work? Sheesh! Someone should teach them they can use mainframes and do maintenance while the system keeps running! Makes you wonder about staying with them. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our new tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Our community strengths
This is an interesting thread. I listened to a webex by a Dr. at IBM entitled How to reduce mips ... It was a great run at the techie numbers of server versus z196 / z114 hybrid computing with customer examples. I'd love to see more like it too. If you send me a note off line, I'd send the power point. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Linda Mooney linda.lst...@comcast.net Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/25/2011 10:24 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: Our community strengths Hi Steve, I frequently run into people who remember the IBM ad about the servers being stolen, but they have really been consolodated onto the one mainframe. There weren't any follow on ads about how well that worked out for the company, nothing with the worried and frightened looking boss happliy going over the balance sheets, looking good at the customer meetings, getting promoted for his vision, winning recognition in the local community for going green. I am often reading one of th e fine manuals on transit and when folks look curious, we chat. Most say that they thought that the mainframe was gone now - they don't hear anything more about it. They are always surprised to hear about some of the mainframes here, in my area, and the kind of work they do. That IBM ad seems to be the last thing that many of the public has heard about mainframes. For all of the efforts any of us make, if the public isn't informed, and encouraged, they aren't going to go to work and talk about how they heard, saw, read that mainframes were more reliable, better suited to critical services, etc. With the z196 and z114 now in play, where are the marketers? It is insufficient for t hem to market only to the relative few who already know. The Super Bowl is coming soon. I'm hopeful, but I'm not holding my breath. Thanks, Linda - Original Message - From: Steve Comstock st...@trainersfriend.com To: IBM-MAIN@bama.ua.edu Sent: Tuesday, October 25, 2011 7:32:51 PM Subject: Re: Our community strengths On 10/25/2011 7:36 PM, Dale Miller wrote: OK, so we squabble, and disagree, but it is my belief that this community has in its membership many of the giants who built a technological marvel that underpins our society today, or at least would do so if management could be induced to extend its event-horizon beyond the current fiscal year, and to start counting real costs. Most of us have plied our trade in an environment where an unplanned outage or functional failure were simply not to be allowed. Because we built systems to perform well and reliably, we were invisible, except when we made mistakes. I'm sure I'm not alone in experiencing the almost-every-day complaint from a clerk in a store that 'the computer isn't working right today'. I believe that we should be getting the word out that computers don't have to act this way, and that we know how to build systems that behave properly. We certainly face an uphill battle against the mind-set among management that leads them to set unreasonable requirements for job descriptions and set the salary schedules far below current going rates. It really gets my goat that they use these machinations to spread the lies that they cannot get skilled IT personnel. See http://online.wsj.com/article_email/SB10001424052970204422404576596630897409182-lMyQjAxMTAxMDIwNDEyNDQyWj.html?mod=wsj_share_email . I retired when I could no longer put up with the asininity of company politics, but if I wanted to continue in my chosen career, I would certainly undertake to build my skills in database, communications, and UNIX, however distasteful that might be. I could go on for hours about the poor design features of UNIX and current email and internet protocols, but if I needed a job, I would swallow my pride and start hitting the books. Of course, with the current political climate regarding Social Security and Medicare, I might have to go back to work. Perhaps I should have made larger private investments, but then maybe I would have invested in Enron, AIG, Lehman Brothers, or Bernie Madoff. Dale Miller You'd think IBM would be interested in telling the story. But, sadly, that doesn't seem to be the case. I have been after many IBM'ers to launch an effort to win the hearts and minds of people in IT and to raise the level of awareness of mainframes (especially z/OS) in the general public. But they don't seem to care about it: they are either hopelessly lost or they have a future plan that does not include z/OS. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com
Catalogue Autotuning
Good Morning, I have an interesting issue with CATALOG. I've issued the enable(autotuning) command and yet the status on a report still says its a disabled feature. We running V12 and V11 (one system to go to get them all to V12). I'm wondering if there are steps that need to be in place to enable the feature, or has the feature been turned off? F CATALOG,ENABLE(AUTOTUNING) IEC351I CATALOG ADDRESS SPACE MODIFY COMMAND ACTIVE IEC352I CATALOG ADDRESS SPACE MODIFY COMMAND COMPLETED F CATALOG,REPORT IEC351I CATALOG ADDRESS SPACE MODIFY COMMAND ACTIVE IEC359I CATALOG REPORT OUTPUT *CAS * CATALOG COMPONENT LEVEL = HDZ1C10 * * CATALOG ADDRESS SPACE ASN = 002D* * SERVICE TASK UPPER LIMIT = 180* * SERVICE TASK LOWER LIMIT = 60* * HIGHEST # SERVICE TASKS = 18* * # ATTACHED SERVICE TASKS = 18* * MAXIMUM # OPEN CATALOGS = 1,024 * * ALIAS TABLE AVAILABLE = YES * * ALIAS LEVELS SPECIFIED= 2 * * SYS% TO SYS1 CONVERSION = OFF * * CAS MOTHER TASK = 00AFF368* * CAS MODIFY TASK = 00AFC120* * CAS ANALYSIS TASK = 00A96C58* * CAS ALLOCATION TASK = 00A96E88* * CAS ECS TASK = 00A96A28* * VOLCAT HI-LEVEL QUALIFIER = SYS1* * NOTIFY EXTENT = 80% * * DEFAULT VVDS SPACE= ( 10, 10) TRKS * * CONTENTION SYSZTIOT TIME =10 * * ENABLED FEATURES = DSNCHECK DELFORCEWNG SYMREC * * ENABLED FEATURES = UPDTFAIL* * DISABLED FEATURES = VVRCHECK AUTOTUNING BCSCHECK* * INTERCEPTS= IGC0002F* *CAS IEC352I CATALOG ADDRESS SPACE MODIFY COMMAND COMPLETED Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Catalogue Autotuning
Thanks Mark, Elardus, I seemed to recall something being said about it at Share. I was hopeful. Shucks. I guess I was expecting something a little different than COMPLETED for the command response when the function was disabled. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Mark Jacobs mark.jac...@custserv.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/17/2011 08:34 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: Catalogue Autotuning Autotuning for catalogs has been disabled for many years and IBM prevents it from being enabled even if the customer tries to enable it. IBM has deemed it not ready for prime time yet. Mark Jacobs On 10/17/11 08:26, Chip Grantham wrote: Good Morning, I have an interesting issue with CATALOG. I've issued the enable(autotuning) command and yet the status on a report still says its a disabled feature. We running V12 and V11 (one system to go to get them all to V12). I'm wondering if there are steps that need to be in place to enable the feature, or has the feature been turned off? F CATALOG,ENABLE(AUTOTUNING) IEC351I CATALOG ADDRESS SPACE MODIFY COMMAND ACTIVE IEC352I CATALOG ADDRESS SPACE MODIFY COMMAND COMPLETED F CATALOG,REPORT IEC351I CATALOG ADDRESS SPACE MODIFY COMMAND ACTIVE IEC359I CATALOG REPORT OUTPUT *CAS * CATALOG COMPONENT LEVEL = HDZ1C10 * * CATALOG ADDRESS SPACE ASN = 002D* * SERVICE TASK UPPER LIMIT = 180* * SERVICE TASK LOWER LIMIT = 60* * HIGHEST # SERVICE TASKS = 18* * # ATTACHED SERVICE TASKS = 18* * MAXIMUM # OPEN CATALOGS = 1,024 * * ALIAS TABLE AVAILABLE = YES * * ALIAS LEVELS SPECIFIED= 2 * * SYS% TO SYS1 CONVERSION = OFF * * CAS MOTHER TASK = 00AFF368* * CAS MODIFY TASK = 00AFC120* * CAS ANALYSIS TASK = 00A96C58* * CAS ALLOCATION TASK = 00A96E88* * CAS ECS TASK = 00A96A28* * VOLCAT HI-LEVEL QUALIFIER = SYS1* * NOTIFY EXTENT = 80% * * DEFAULT VVDS SPACE= ( 10, 10) TRKS * * CONTENTION SYSZTIOT TIME =10 * * ENABLED FEATURES = DSNCHECK DELFORCEWNG SYMREC * * ENABLED FEATURES = UPDTFAIL* * DISABLED FEATURES = VVRCHECK AUTOTUNING BCSCHECK* * INTERCEPTS= IGC0002F* *CAS IEC352I CATALOG ADDRESS SPACE MODIFY COMMAND COMPLETED Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark Jacobs Time Customer Service Tampa, FL One of life's greatest mysteries is how the boy who wasn't good enough to marry your daughter can be the father of the smartest grandchild in the world. Yiddish Proverb -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you
Re: WTO Sample Program
Does this do it? MVC WTORLIST+12(80),=CL80'PROMPT MESSAGE' ROUT1010 XCWTOR_ECB,WTOR_ECB MVC REPLY,=CL7' ' WTOR MF=(E,WTORLIST) * ACCEPT CANCEL, GO, WAIT, YES, OR NO * CLC =C'CANCEL ',REPLY BEROUT2010 CLC =C'GO ',REPLY BEROUT2020 CLC =C'WAIT ',REPLY BEROUT2030 CLC =C'NO ',REPLY BEROUT2040 CLC =C'YES ',REPLY BEROUT2050 MVC WTORLIST+12(80),RETRY MVC WTORLIST+21(6),REPLY B ROUT1010 WTORLIST WTOR 'X ', X REPLY,6,WTOR_ECB,ROUTCDE=(1),MF=L WTOR_ECB DC F'0' REPLY DC CL7' ' RETRY DC CL40'WTORMS 123456 - UNKNOWN ANSWER, REPLY' DC CL40'GO, WAIT, YES, NO, OR CANCEL' WAIT_LIST DCA(WTOR_ECB+X'8000') Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Hal Merritt hmerr...@jackhenry.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/05/2011 10:36 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: WTO Sample Program Not clear what you are asking. There is a console command SEND that can send a message to a logged on TSO user, or (I think) inject a message into a batch job's joblog. There is a TSO SEND command that can be used to send a message to another TSO user or to be displayed on a suitable console. There are several utilities that can issue a WTOR from batch, so it should be easy to set up a started task to relay the message via WTOR. Am I getting close to what you want to do? -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Sérgio Lima Costa Sent: Wednesday, October 05, 2011 7:32 AM To: IBM-MAIN@bama.ua.edu Subject: WTO Sample Program Hello list, We need a sample program that send a message from console operator, and then, receive a response. We imagine, that this is doing using WTO / WTOR macro. Someone, have a sample program for this, or, know where can find a documentation of how use this ? Thanks very much. Sergio Lima Costa Atenção: Esta mensagem foi enviada para uso exclusivo do(s) destinatários(s) acima identificado(s), podendo conter informações e/ou documentos confidencias/privilegiados e seu sigilo é protegido por lei. Caso você tenha recebido por engano, por favor, informe o remetente e apague-a de seu sistema. Notificamos que é proibido por lei a sua retenção, disseminação, distribuição, cópia ou uso sem expressa autorização do remetente. Opiniões pessoais do remetente não refletem, necessariamente, o ponto de vista da companhia, o qual é divulgado somente por pessoas autorizadas. Warning: This message was sent for exclusive use of the addressees above identified, possibly containing information and or privileged/confidential documents whose content is protected by law. In case you have mistakenly received it, please notify the sender and delete it from your system. Be noticed that the law forbids the retention, dissemination, distribution, copy or use without express authorization from the sender. Personal opinions of the sender do not necessarily reflect the company's point of view, which is only divulged by authorized personnel. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html NOTICE: This electronic mail message and any files transmitted with it are intended exclusively for the individual or entity to which it is addressed. The message, together with any attachment, may contain confidential and/or privileged information. Any unauthorized review, use, printing, saving, copying, disclosure or distribution is strictly prohibited. If you have received this message in error, please immediately advise the sender by reply email and delete all copies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing
Re: WTO Sample Program
Most certainly. The joy of a quick cut and paste. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Binyamin Dissen bdis...@dissensoftware.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 10/05/2011 01:16 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: WTO Sample Program On Wed, 5 Oct 2011 10:47:49 -0500 Chip Grantham cgrant...@ameritas.com wrote: :Does this do it? : : : MVC WTORLIST+12(80),=CL80'PROMPT MESSAGE' :ROUT1010 XCWTOR_ECB,WTOR_ECB : MVC REPLY,=CL7' ' : WTOR MF=(E,WTORLIST) Missing WAIT ECB=WTOR_ECB or WAIT 1,ECBLIST=WAIT_LIST :* ACCEPT CANCEL, GO, WAIT, YES, OR NO * : CLC =C'CANCEL ',REPLY : BEROUT2010 : CLC =C'GO ',REPLY : BEROUT2020 : CLC =C'WAIT ',REPLY : BEROUT2030 : CLC =C'NO ',REPLY : BEROUT2040 : CLC =C'YES ',REPLY : BEROUT2050 : MVC WTORLIST+12(80),RETRY : MVC WTORLIST+21(6),REPLY : B ROUT1010 :WTORLIST WTOR 'X :', X : REPLY,6,WTOR_ECB,ROUTCDE=(1),MF=L :WTOR_ECB DC F'0' :REPLY DC CL7' ' :RETRY DC CL40'WTORMS 123456 - UNKNOWN ANSWER, REPLY' : DC CL40'GO, WAIT, YES, NO, OR CANCEL' :WAIT_LIST DCA(WTOR_ECB+X'8000') -- Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SDSF REXX Help
Rogers, I attempted to recreate your issue. I had to separate the change of class and the change of outdisp. I believe this is because the outdisp is not the same as the class default and for me it appeared to use the default for the class even though I asked for it to change. The following change of outdisp failed because the token had changed for me. I had to scan again for the new class and old disp to be able to change to the new. This is what worked for me to change class and outdisp. HTH, Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Greg Shirey wgshi...@benekeith.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 09/21/2011 10:57 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: SDSF REXX Help Rogers, Your ISFEXEC command is H ALL, but your ISFACT command is H. I believe they need to match. Greg Shirey Ben E. Keith Company -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Laine, Rogers Sent: Wednesday, September 21, 2011 9:33 AM I know this is not the correct forum, but was hoping someone could provide some directed. I'm trying to have this REXX program change the CLASS OUTDISP for anything in the HELD QUE with OWNER=CA7Z* I can read the entries that match this information, but having problems getting it to change the CLASS to W and OUTDISP to KEEP. I have highlighted the command that I believe is causing me this problem. Any help would be appreciated. Rogers /* REXX */ TRACE ALL /* ISFPREFIX=CA7Z* */ ISFOWNER='CA7Z*' ISFFILTER=OCLASS EQ 0 ISFFILTER2=OOUTDISP EQ LEAVE /* SPECIFY THE COLUMN YOU WILL BE WORKING WITH */ ISFCOLS = 'JNAME JOBID OCLASS OUTDISP OWNERID ' RC=ISFCALLS('ON') /* ACCESS THE H DISPLAY */ ADDRESS SDSF ISFEXEC H ALL FIXEDFIELD = WORD(ISFCOLS,1) SAY NUMBER OF ROWS RETURNED: ISFROWS /* PROCESS ALL ROWS*/ DO IX=1 TO ISFROWS JNAME = JNAME.IX JOBID = JOBID.IX CLASS = OCLASS.IX ODISP = OUTDISP.IX OWNER = OWNERID.IX LINEA = ' JNAME='JNAME'JOBID='JOBID 'CLASS='CLASS 'ODISP='ODISP LINEB = ' OWNER='OWNER LINE1 = LINEA || LINEB SAY LINE1 /* FIND ALL JOBS WITH RMLRDARS */ /* DO IX=1 TO JNAME.0 */ /* IF JNAME.IX = RMLRDARS THEN /* IF THIS IS DESIRED ROW */ */ /* DO */ /* ISSUE THE ACTION AGAINST THE ROW IDENTIFIED BY */ /* THE TOKEN. THE PARM CONTAINS THE COLUMN NAME */ /* TO BE MODIFIED AND THE DATA TO USE. */ ADDRESS SDSF ISFACT H TOKEN('TOKEN.IX'), PARM(OCLASS W OUTDISP KEEP) END RC=ISFCALLS('OFF') EXIT RETURN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SDSF REXX Help
Just an FYI. I added the message routine from page 318 of v11 SDSF Operation and Customization isf4cs91. Here it is: do ix=1 to JNAME.0 if JNAME.ix = RJONES then do Address SDSF ISFACT ST TOKEN('TOKEN.ix') PARM(NP XSC) lrc=rc call msgrtn if lrc0 then exit 20 end end exit /* Subroutine to list error messages */ msgrtn: procedure expose isfmsg isfmsg2. /* The isfmsg variable contains a short message */ if isfmsg then Say isfmsg is: isfmsg /* The isfmsg2 stem contains additional descriptive */ /* error messages */ do ix=1 to isfmsg2.0 Say isfmsg2.ix is: isfmsg2.ix end return Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Chip Grantham cgrant...@ameritas.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 09/21/2011 11:33 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: SDSF REXX Help Rogers, I attempted to recreate your issue. I had to separate the change of class and the change of outdisp. I believe this is because the outdisp is not the same as the class default and for me it appeared to use the default for the class even though I asked for it to change. The following change of outdisp failed because the token had changed for me. I had to scan again for the new class and old disp to be able to change to the new. This is what worked for me to change class and outdisp. HTH, Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Greg Shirey wgshi...@benekeith.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 09/21/2011 10:57 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: SDSF REXX Help Rogers, Your ISFEXEC command is H ALL, but your ISFACT command is H. I believe they need to match. Greg Shirey Ben E. Keith Company -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Laine, Rogers Sent: Wednesday, September 21, 2011 9:33 AM I know this is not the correct forum, but was hoping someone could provide some directed. I'm trying to have this REXX program change the CLASS OUTDISP for anything in the HELD QUE with OWNER=CA7Z* I can read the entries that match this information, but having problems getting it to change the CLASS to W and OUTDISP to KEEP. I have highlighted the command that I believe is causing me this problem. Any help would be appreciated. Rogers /* REXX */ TRACE ALL /* ISFPREFIX=CA7Z* */ ISFOWNER='CA7Z*' ISFFILTER=OCLASS EQ 0 ISFFILTER2=OOUTDISP EQ LEAVE /* SPECIFY THE COLUMN YOU WILL BE WORKING WITH */ ISFCOLS = 'JNAME JOBID OCLASS OUTDISP OWNERID ' RC=ISFCALLS('ON') /* ACCESS THE H DISPLAY */ ADDRESS SDSF ISFEXEC H ALL FIXEDFIELD = WORD(ISFCOLS,1) SAY NUMBER OF ROWS RETURNED: ISFROWS /* PROCESS ALL ROWS*/ DO IX=1 TO ISFROWS JNAME = JNAME.IX JOBID = JOBID.IX CLASS = OCLASS.IX ODISP = OUTDISP.IX OWNER = OWNERID.IX LINEA = ' JNAME='JNAME'JOBID='JOBID 'CLASS='CLASS 'ODISP='ODISP LINEB = ' OWNER='OWNER LINE1 = LINEA || LINEB SAY LINE1 /* FIND ALL JOBS WITH RMLRDARS */ /* DO IX=1 TO JNAME.0 */ /* IF JNAME.IX = RMLRDARS THEN /* IF THIS IS DESIRED ROW */ */ /* DO */ /* ISSUE THE ACTION AGAINST THE ROW IDENTIFIED BY */ /* THE TOKEN. THE PARM CONTAINS THE COLUMN NAME */ /* TO BE MODIFIED AND THE DATA TO USE. */ ADDRESS SDSF ISFACT H TOKEN('TOKEN.IX'), PARM(OCLASS W OUTDISP KEEP) END RC=ISFCALLS('OFF') EXIT RETURN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above
Trouble with Redbooks Link
I just received the weekly Redbooks email with a couple of interesting Redbooks I'd like to read. My session hangs when I try to download the book. Is anyone else have the same trouble? End to End Security - z/OS Identity Propagation Revised: September 7, 2011 http://www.redbooks.ibm.com/redpieces/abstracts/sg247850.html?Open And IBM z/OS V1R13 Communications Server TCP/IP Implementation: Volume 3 High Availability, Scalability, and Performance Published: September 8, 2011 http://www.redbooks.ibm.com/redpieces/abstracts/sg247998.html?Open *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trouble with Redbooks Link
Interesting. I was able to do so with Firefox also. Thanks for trying it. I'm wondering if, as we're getting ready for Windaze 7, that something is being seriously changed for the better. :-) Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Grinsell, Don dgrins...@mt.gov Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 09/12/2011 10:38 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: Trouble with Redbooks Link I just downloaded the End to End Security one without any trouble using Firefox. -- Donald Grinsell State of Montana 406-444-2983 dgrins...@mt.gov The difference between a conviction and a prejudice is that you can explain a conviction without getting angry. -- anonymous -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Chip Grantham Sent: Monday, 12 September 2011 09:31 To: IBM-MAIN@bama.ua.edu Subject: Trouble with Redbooks Link I just received the weekly Redbooks email with a couple of interesting Redbooks I'd like to read. My session hangs when I try to download the book. Is anyone else have the same trouble? End to End Security - z/OS Identity Propagation Revised: September 7, 2011 http://www.redbooks.ibm.com/redpieces/abstracts/sg247850.html?Open And IBM z/OS V1R13 Communications Server TCP/IP Implementation: Volume 3 High Availability, Scalability, and Performance Published: September 8, 2011 http://www.redbooks.ibm.com/redpieces/abstracts/sg247998.html?Open *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Keeping HSA, IODF, and IOCDS Hardware Tokens in SYNC
Thanks to everyone for the replies. I carefully went thru my normal procedure everything went perfect. I like the HCD 2.5 panel which shows the HSA token like the D IOS,CONFIG command. Nice improvement. I believe the root of my problem was, after building the new IOCDS, switching to it. Thanks again. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Bonaduce, Frank frank.bonad...@gs.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 08/20/2011 01:19 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: Keeping HSA, IODF, and IOCDS Hardware Tokens in SYNC Chip - Is this out-of-sync condition a pervasive problem for you ? By design, the hardware tokens are always in sync whether the configuration is loaded via CPC ACTIVATE (POR) or Dynamic Activation. The only 'out-of-sync' condition you may experience is the hardware (CSS) token and the software (OS) which isn't really a token. These should both always be in sync following a POR for every LPAR on the CPC. Following a Dynamic Activation on any given LPAR, simply perform a corresponding 'software-only' dynamic activation of the same IODF on all other LPARs on that CPC. This will put the hardware and software configurations 'back in sync'. As an aside, if you make hardware-only changes and perform a dynamic activation, all the LPARs on the CPC function under that change without a corresponding 'software activation' being performed since it effects the hardware (CSS) which is global to the CPC. If you haven't made a change to the software (OS), the software-only activation is functionally unnecessary. In any event, be certain that all LPARs on the CPC have access to the dynamically activated IODF. Frank. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Chip Grantham Sent: Friday, August 19, 2011 1:52 PM To: IBM-MAIN@bama.ua.edu Subject: Keeping HSA, IODF, and IOCDS Hardware Tokens in SYNC I seem to always run the risk of getting the hardware tokens out of sync. Can someone point me to some good reading on keeping them in sync? Thanks, Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Keeping HSA, IODF, and IOCDS Hardware Tokens in SYNC
I seem to always run the risk of getting the hardware tokens out of sync. Can someone point me to some good reading on keeping them in sync? Thanks, Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Search a MEMBER in the Libraries
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Lizette Koehler Sent: Wednesday, July 27, 2011 10:41 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Search a MEMBER in the Libraries Hello List, Someone know, IF have a program like the ISRDDN, but, that do a search if a member exist in all libraries of ZOS System. What I understand, that ISRDDN search only in the libraries that is assign in the TSO session. Thanks very much. Sergio Lima Costa Haven't been paying real close attention to this posting so I apologize if this has already been suggested. MARK ZELDEN has a nice REXX which will search a list of libraries for mods, or the LPA, LNKLIST by default. I use it to find a member in a captured list of DSNAMEs like DFHRPLs in CICS or large number of user datasets. Works really nice. http://www.mzelden.com/mvsutil.html While you're there, look at ColAdd and ColUtil. I give high marks to those too, I mean I use them a lot. Spend a minute on his site, you'll be glad you did. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Schwarz, Barry A barry.a.schw...@boeing.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 07/28/2011 12:00 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: Search a MEMBER in the Libraries -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Lizette Koehler Sent: Wednesday, July 27, 2011 10:41 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Search a MEMBER in the Libraries Hello List, Someone know, IF have a program like the ISRDDN, but, that do a search if a member exist in all libraries of ZOS System. What I understand, that ISRDDN search only in the libraries that is assign in the TSO session. Thanks very much. Sergio Lima Costa If you have PDSMAN with EasyEdit you can create a list like Option 3.4 and search it. In Option 3.4 you can create a list and enter SRCHFOR on the command line. To find a member in a DS List, use the Member command, not SRCHFOR (at least on z/OS 1.11). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
REXX Allocate size being changed.
I ran onto an interesting allocation problem. I have a REXX which will reallocates an ISPF.PROFILE dataset if the allocation sizes are below what is needed for the latest got to have product. There is a line in this REXX line in the code which allocates the new ISPF.PROFILE dataset with SPACE(45 15) TRACK. If the target volume group in the UNIT parameter is SMS managed the allocated size is reduced to 38,15. If it is not SMS managed, this allocated size is 45,15. The SMS Storage class has reduce % on allocation failure of 0. (Nothing in data classes modifies allocation size). I don't understand how it is getting reduced to 38 from 45. Ideas? Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: REXX Allocate size being changed.
Good thought. The SMS and non SMS are both 1 extent. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Darth Keller darth.kel...@assurant.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 07/26/2011 12:04 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: REXX Allocate size being changed. I have a REXX which will reallocates an ISPF.PROFILE dataset if the allocation sizes are below what is needed for the latest got to have product. There is a line in this REXX line in the code which allocates the new ISPF.PROFILE dataset with SPACE(45 15) TRACK. If the target volume group in the UNIT parameter is SMS managed the allocated size is reduced to 38,15. If it is not SMS managed, this allocated size is 45,15. The SMS Storage class has reduce % on allocation failure of 0. (Nothing in data classes modifies allocation size). I don't understand how it is getting reduced to 38 from 45. Ideas? Have you looked at the dataset extents? The primary allocation can use more than physical extent to satisfy the allocation. If your SMS pools are more fragmented than your non-SMS volume, the allocation might be made across more than 1 physical allocation. HTH's dd keller 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: REXX Allocate size being changed.
Great catch. I'm set up for 3380s. Default Device Geometry : Bytes/track . . . . . : 47476 Tracks/cylinder . . . : 15 Thanks David. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 O'Brien, David W. (NIH/CIT) [C] obrie...@mail.nih.gov Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 07/26/2011 12:06 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: REXX Allocate size being changed. Chip, Did you check the CDS Base Display? It sounds like it might be set up for 3380s. For 3390s it should look like this: Default Device Geometry : Bytes/track . . . . . : 56664 Tracks/cylinder . . . : 15 David O'Brien NIH Contractor -Original Message- From: Chip Grantham [mailto:cgrant...@ameritas.com] Sent: Tuesday, July 26, 2011 12:58 PM To: IBM-MAIN@bama.ua.edu Subject: REXX Allocate size being changed. I ran onto an interesting allocation problem. I have a REXX which will reallocates an ISPF.PROFILE dataset if the allocation sizes are below what is needed for the latest got to have product. There is a line in this REXX line in the code which allocates the new ISPF.PROFILE dataset with SPACE(45 15) TRACK. If the target volume group in the UNIT parameter is SMS managed the allocated size is reduced to 38,15. If it is not SMS managed, this allocated size is 45,15. The SMS Storage class has reduce % on allocation failure of 0. (Nothing in data classes modifies allocation size). I don't understand how it is getting reduced to 38 from 45. Ideas? Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: VS COBOL II signature bytes
Thanks to all that replied. I'm back to fingers on keyboard, head in the books. Giliad Wilf gili...@yahoo.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 06/24/2011 03:26 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: VS COBOL II signature bytes On Thu, 23 Jun 2011 13:00:46 -0500, Chip Grantham cgrant...@ameritas.com wrote: I've found the answer to my dilemma for compiler options from a COBOL load module. They call them signature bytes. So now I'm looking for a VS COBOL II V1.x programmer's guide, specifically the pages on signature bytes. I'd really appreciate a copy of that section; should be about 10 pages. Thanks in advance! I believe this what you are after: http://publibz.boulder.ibm.com/cgi- bin/bookmgr_OS390/BOOKS/igyc1102/2.2.1.6? SHELF=IGYSH007DT=19930806131827 Is it not? All COBOL II programs start with something like this: http://publibz.boulder.ibm.com/cgi- bin/bookmgr_OS390/BOOKS/igyc1102/2.2.1.5.3? SHELF=IGYSH007DT=19930806131827 You can find the location of the various fields listed on the first URL, in the diagram on the page pointed to by the second URL HTH -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
VS COBOL II signature bytes
I've found the answer to my dilemma for compiler options from a COBOL load module. They call them signature bytes. So now I'm looking for a VS COBOL II V1.x programmer's guide, specifically the pages on signature bytes. I'd really appreciate a copy of that section; should be about 10 pages. Thanks in advance! *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
COBOL internal data structures
Hi everyone, I've used the CBT for COBOL compile option parms program in the past to understand verb counts, data structure counts and compile options in the past. Our current compiler is not producing a good report and I suspect the current version of the compiler isn't compatible with the program any more. I need to gather this information every once in a while. Thought the information was in the license material, but I've not be able to find it. Does anyone know how to find this information or know the placement and structure of these control blocks with the latest COBOLs? Thanks!! *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: MVS command - output directed to a dataset
MVS Catalog statistics are only written to SYSLOG. I use SDSF to capture the statistics daily with this batch job. The TSO Command format is BDSSCMD PDS to save results into member prefix remainder is command Saved in PDS as a member with the name of prefix || date For example F Catatlog,report output is saved as A3yymmdd or today as A3110608 //STEP010 EXEC PGM=IKJEFT01, // DYNAMNBR=30 //SYSEXEC DD DSN=MYTSOPREFIX.CLIST,DISP=SHR //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * BDSSCMD MYTSOPREFIX.CATDATA A3 F CATALOG,REPORT BDSSCMD MYTSOPREFIX.CATDATA B3 F CATALOG,REPORT,CACHE BDSSCMD MYTSOPREFIX.CATDATA C3 F CATALOG,REPORT,CATSTATS BDSSCMD MYTSOPREFIX.CATDATA D3 F CATALOG,REPORT,PERFORMANCE Command BDSSCMD follows and is stored as a member in mytsoprefix.CLIST /* REXX */ Parse Upper Arg DataSet memPrefix command /***/ lastupd = '04/20/2011'/* date of last update*/ /***/ Parse Upper Arg /*/ Say Command is being processed. command Say Output is being written to DataSet . time = time(); Say Time rc=isfcalls(on) mycmd.0=1 mycmd.1=command Address SDSF ISFSLASH (mycmd.) (WAIT) /* List any error messages */ Say isfmsg is: isfmsg Say isfmsg2.0 is: isfmsg2.0 if datatype(isfmsg2.0) = NUM then do ix=1 to isfmsg2.0 Say isfmsg2.ix is: isfmsg2.ix end cmd.0 = isfulog.0 time = time(); Queue Time if datatype(isfulog.0) = NUM then do ix=1 to isfulog.0 Say isfulog.ix ll = length(isfulog.ix) if (ll 43) Then Do qdata = substr(isfulog.ix,44,ll-43) End Queue qdata end rc=isfcalls(OFF) If cmd.0 = 0 Then Do Queue 'No command reponse available' End Queue '' /* null queue to end stack * Address tso prefix = SYSVAR('SYSPREF') /* tso profile prefix* uid= SYSVAR('SYSUID') /* tso userid* If prefix = '' Then prefix = uid /* use uid if null prefix* If prefix '' prefix uid Then /* different prefix than uid * prefix = prefix || '.' || uid /* use prefix.uid* ddnm1 = 'DD'||'RANDOM'(1,9) /* choose random ddname* junk = MSG(Off) member = substr(date(s),3) Exists = sysdsn('DataSet') If ('OK' Exists) Then Do ALLOC FILE(||ddnm1||) UNIT(TSOONLY) NEW TRACKS SPACE(2,1), CATALOG REUSE LRECL(80) RECFM(F B) BLKSIZE(3120), DA('DataSet(memPrefixmember)') End Else Do ALLOC FILE(||ddnm1||) , SHR LRECL(80) RECFM(F B), DA('DataSet(memPrefixmember)') End EXECIO * DISKW ddnm1 (FINIS FREE FI(ddnm1) junk = MSG(On) Exit Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Juan Mautalen jgmauta...@yahoo.com.ar Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 06/08/2011 11:41 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject MVS command - output directed to a dataset Hi: I need to execute an MVS DISPLAY command with its output written to a dataset. Using IEFBR14 i managed to execute the command in batch, but the output is only written to SYSLOG. Is there a way to have the output also written to a dataset? Thanks in advance for your help, JUAN MAUTALEN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: What is the current feeling for MVC loop vs. MVCL?
I've never understood why a page is put on the available frame queue without first zeroing it. It's kinda like putting dirty dishs in the cupboard and washing them when you take them out only if company complains. It would seem to me, in my humble opinion, easy enough to put an engine on the chip with the sole responsibility of zeroing the page and putting it on the queue. My humble opinion. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: What is the current feeling for MVC loop vs. MVCL?
If the next use turns out to be for a page-in from aux or from a DIV object, then there is no need to zero it. Very true. And it make sense when zeroing a page was expensive to the processing power available to a CEC. I wonder though, if a separate process - an off board process, like the process that adjusts page last reference used byte, could recognize that the page needed to be zeroed? I'm just brainstroming. Also, the residual data in available frames is sometimes useful when doing problem diagnosis using a stand-alone dump. For my experience, I've see more dumps from non-zeroed storage than from the gain of looking at freed pages in a stand-alone dump (which I've never done). As a side, I really appreciate the BEAR. I has helped with a lot with random storage values. Tx Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Jim Mulder d10j...@us.ibm.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 06/03/2011 09:34 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: What is the current feeling for MVC loop vs. MVCL? I've never understood why a page is put on the available frame queue without first zeroing it. It's kinda like putting dirty dishs in the cupboard and washing them when you take them out only if company complains. It would seem to me, in my humble opinion, easy enough to put an engine on the chip with the sole responsibility of zeroing the page and putting it on the queue. My humble opinion. At the time a frame is made available, it is not known whether its next use will require it to be zeroed or not. If the next use turns out to be for a page-in from aux or from a DIV object, then there is no need to zero it. Also, the residual data in available frames is sometimes useful when doing problem diagnosis using a stand-alone dump. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: What is the current feeling for MVC loop vs. MVCL?
Thought I'd check to see if I was smart enough to duplicate Andy's results. Same as Andy! MVCL Results Step Name: STEP010 Cond Code: Start: 31-May-2011 05:39:00 PM Step Num: 3 PGM Name: MVCTEST End: 31-May-2011 05:39:25 PM CPU (TCB): 00:00:24.00 Storage below 16M: 136k CPU (SRB): 00:00:00.00 Storage above 16M: 4k Trans Act: 00:00:25.48 Service Units: 6,213,461 Tape Mnts: 0 Total EXCPs:3 MVC Results Step Name: STEP010 Cond Code: Start: 31-May-2011 05:43:01 PM Step Num: 3 PGM Name: MVCTEST End: 31-May-2011 05:43:04 PM CPU (TCB): 00:00:03.12 Storage below 16M: 136k CPU (SRB): 00:00:00.00 Storage above 16M: 4k Trans Act: 00:00:03.29 Service Units: 808,246 Tape Mnts: 0 Total EXCPs:3 Andy Coburn a...@andycoburn.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 05/31/2011 05:12 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: What is the current feeling for MVC loop vs. MVCL? The following is a snip from a program which I just ran on our Z10 whose characteristics are shown last below. The program first moved 65536 bytes from one location to another using MVCL and did this 1 million times. You'll see it took ~56 seconds. Then the same number of bytes were moved using 1 million MVC loops. This took ~8 seconds. Finally, the same number of bytes were moved 1 million times using MVCLE. I have run this program on every CEC that I have had available to me and the results are always relatively the same although the actual numbers change. MVCL has some extraordinarily useful functions: Truncation, padding and returning addresses and lengths after MVCL. Each of these would have to be done manually if a MVC loop were used and these instructions would have to be added into the total time for MVC loops. And, yes, I wrote a MVCL macro. But once one tries to support the case where bits 8 through 31 of R1+1 and R2+1 are not equal the macro gets very big and very awkward. And the macro would have to return the 4 registers with contents the same as MVCL would. 1 MILLION MVCL INSTRUCTIONS IN SECONDS 55.961093 1 MILLION MVC LOOPS IN SECONDS 8.389260 1 MILLION MVCLE INSTRUCTIONS IN SECONDS 115.548643 OPERATING SYSTEM= HBB7770SP7.1.2 HBB7770 CPU ID FROM STIDP: TYPE=2098 VERSION=00 SERIAL=00 EXECUTION ENVIRONMENT: LPAR=YES VM=NO CPU ID FROM STSI: MANUF=IBM TYPE=2098 MODEL=R03 SERIAL=000X VERSION CODE FROM CONVERSION TABLE= ROLLING 4-HOUR AVERAGE UTILIZATION IS 23 MSUS LPAR IS UNCAPPED IN A 89 MSU CEC ADJ FACTOR 1946 ACCUM WEIGHT 6385225 TIMES ACCUM 23219 LPAR_NAME= LPAR_ID=0003 LPAR_SIZE=89 CEC_SIZE=89 ARCH=Z/ARCHITECTURE -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Charles Mills Sent: Tuesday, May 31, 2011 2:02 PM To: IBM-MAIN@bama.ua.edu Subject: Re: What is the current feeling for MVC loop vs. MVCL? Just my uninformed opinion, but it's hard for me to see how an MVC loop could be faster. Both are interruptible. (MVC is not but an MVC *loop* is.) Both update registers (okay, three versus four). I know microcode is not magic but gee, if MVC were faster than whatever MVCL does, wouldn't the microcode writers just have used an MVC loop instead of what they did use for MVCL? My uninformed opinion is that MVCL worst case should be no slower than an MVC loop for indeterminate length moves of possibly more than 256 bytes (and as a side benefit, it is a heck of a lot easier to use in that situation, unless you happen to be very short on spare registers). Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Mike Schwab Sent: Tuesday, May 31, 2011 1:35 PM To: IBM-MAIN@bama.ua.edu Subject: Re: What is the current feeling for MVC loop vs. MVCL? How about a macro to replace MVCL with a loop using the same registers but using MVC? Anyone ever write one? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe /
Re: IEBCOPY suddenly unable to allocate utility data set
Just a thought, is the target dataset of the transmit catalogued and archived and unable to recall? catalogue orphan? or otherwise in error? If so, then I would expect these messages. You might try a different target dataset name and see if that works? Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Thomas David Rivers riv...@dignus.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 05/10/2011 09:43 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject IEBCOPY suddently unable to allocate utility data set For some reason, this morning; IEBCOPY isn't happy. When I do a TRANSMIT command, I'm now getting this: INMX040I TRANSMIT command terminated. Failure in partitioned dataset unload using IEBCOPY. + INMX042I Allocation error building OUTPUT file IKJ56221I UTILITY DATA SET NOT ALLOCATED, VOLUME NOT AVAILABLE+ IKJ56221I VOLUME NECESSARY TO SATISFY YOUR REQUEST NOT ON SYSTEM, AND CANNOT BE MOUNTED I'm pretty sure nothing changed on the system... but, a persusal of the JES messages/log doesn't give me a clue which volume it thinks is missing. This has been working for months (since our upgrade to z/OS 1.11) but suddenly has stopped working. Does anyone know what VOLUME IEBCOPY might be looking for; and why it would mysteriously have gone missing? (My search for IKJ56221I seemed to point to tape volumes, but I'm definately not doing anything with tapes - just trying to TRANSMIT a LOAD module (PDS)). - Thanks for any pointers - - Dave Rivers - -- riv...@dignus.comWork: (919) 676-0847 Get your mainframe programming tools at http://www.dignus.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEBCOPY suddenly unable to allocate utility data set
I attempted a little test and was able to see the allocations and related SMS message under my TSO is in SDSF. There might be a clue for you there. Speaking of SMS, is SMS allocating temporary datasets to a separate pool that might be full and unable to allocate the IEBCOPY dataset? I would hope it is SMS issue versus an esoteric change! Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 John McKown joa...@swbell.net Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 05/10/2011 11:49 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: IEBCOPY suddently unable to allocate utility data set I don't know if you'd want to bother. But what I might try is to authorize your TSO id to have MOUNT authority. The simplest way is issue the following RACF commands: RDEF TSOAUTH MOUNT UACC(NONE) PE MOUNT CLASS(TSOAUTH) ID(?) ACCESS(READ) SETR RACLIST(TSOAUTH) REFRESH This should result in a WTOR message on the operator console asking them to reply device name or cancel along with some other stuff. The other stuff should include information which might help in debugging. But I'd still bet you don't have sufficient space on work volumes. On Tue, 2011-05-10 at 11:56 -0400, Thomas David Rivers wrote: Thomas David Rivers wrote: For some reason, this morning; IEBCOPY isn't happy. When I do a TRANSMIT command, I'm now getting this: INMX040I TRANSMIT command terminated. Failure in partitioned dataset unload using IEBCOPY. + INMX042I Allocation error building OUTPUT file IKJ56221I UTILITY DATA SET NOT ALLOCATED, VOLUME NOT AVAILABLE+ IKJ56221I VOLUME NECESSARY TO SATISFY YOUR REQUEST NOT ON SYSTEM, AND CANNOT BE MOUNTED To answer some of the questions, here's the TSO TRANSMIT command: tso transmit ma.ma ds(dignus.load) outds(load.xmi) there have been no SMS changes; and this is on a zPDT system... no changes at all. The target data set is pre-allocated (the load.xmi data set) but I don't think that's the target of IEBCOPY - it's just the target of TRANSMIT. I think I need to find out just what VOLUME IEBCOPY is looking for, but I can't seem to find any kind of messages detailing the VOLUME... just those I've cut-n-pasted above. - Dave Rivers - -- John McKown Maranatha! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Paging increase when going from z/OS 1.9 to 1.11
There's a CPU hit ptf for *master* doing work on available frames queue. It might show up as a paging issue on your system. Might want to check it out. Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Lizette Koehler stars...@mindspring.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 05/05/2011 08:19 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: Paging increase when going from z/OS 1.9 to 1.11 Hi, We are seeing a paging increase after upgrading to z/OS 1.11. Has anyone else seen this? TIA Gadi When we went from 1.9 to 1.11 we saw this effect. We were directed to a GRS PTF. I would open an ETR with IBM to see what other things they might have on this issue. This has helped to reduce our paging. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: MEMLIMIT Parameter Question
Here a little rexx to do the same for a TSO session, but my memlimit is F000. What does that mean? /* REXX */ Numeric Digits 30 Call Proc_memlimit Say RSMEID is..: rsmeid Say Memlimit in MB is..: memlimit Say Memlimit source is.: memlimitsource Exit /*/ /* find current memlimit */ /*/ Proc_memlimit: /* current memlimit asid */ ascb = Storage(224,4) /* ASCB is at 224x in psa */ rsme = Storage(D2x(C2d(ascb)+364),4)/* RSME is 16Cx in ascb */ rsmeid = Storage(D2x(C2d(rsme)+000),4)/* memory limit in MB */ memlimit = Storage(D2x(C2d(rsme)+152),8)/* memory limit in MB */ memlimit = d2x(c2d(memlimit)) /* memory limit in MB */ memlimitsource = Storage(d2x(c2d(rsme)+184),1) /*memory source*/ memlimitsource = d2x(c2d(memlimitsource)) /* memory source */ Return /**/ Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030 Shaffer, Terri E terri.e.shaf...@jpmchase.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 04/25/2011 01:46 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: MEMLIMIT Parameter Question You can run a batchjob to pull the information also; I test out my IEFUSI, by changing MEMLIMIT, REGION...etc. This will dump all region values/limits. //JS10EXEC PGM=IKJEFT01, // DYNAMNBR=50 //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTSIN DD * TEST 'SYS1.LINKLIB(IEFBR14)' EQUATE ASCB 0.+224% EQUATE RSME ASCB+16C? L RSME LEN(230) XC EQUATE MLIM RSME+98 EQUATE MSRC RSME+B8 EQUATE LDA ASCB+30? L LDA LEN(230) XC L MLIM LEN(8) XC L MSRC LEN(2) XC /* MLIM +0 0C00** Equates to 3G which is coded in SMFPRMxx Thanks Ms. Terri E. Shaffer terri.e.shaf...@jpmchase.com Engineer J.P.Morgan Chase Co. GTI DCT ECS Core Services zSoftware Group / Emerging Technologies Office: # 614-213-3467 Cell: # 412-519-2592 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Hardee, Charles H Sent: Friday, April 22, 2011 10:58 AM To: IBM-MAIN@bama.ua.edu Subject: MEMLIMIT Parameter Question Hello Everyone, I am in need of locating the where the MEMLIMT value is stored for the active job. Can anyone out there give me an idea of where to look? Also, if you know, is the value stored in the address space control block, whatever block that is, a merged value between the system default and the value coded on the EXEC statement? Thanks in advance, Chuck -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This communication is for informational purposes only. It is not intended as an offer or solicitation for the purchase or sale of any financial instrument or as an official confirmation of any transaction. All market prices, data and other information are not warranted as to completeness or accuracy and are subject to change without notice. Any comments or statements made herein do not necessarily reflect those of JPMorgan Chase Co., its subsidiaries and affiliates. This transmission may contain information that is privileged, confidential, legally privileged, and/or exempt from disclosure under applicable law. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution, or use of the information contained herein (including any reliance thereon) is STRICTLY PROHIBITED. Although this transmission and any attachments are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by JPMorgan Chase Co., its subsidiaries and affiliates, as applicable, for any loss or damage arising in any way from its use. If you received this transmission in error, please immediately contact the sender and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. Please refer to http://www.jpmorgan.com/pages/disclosures for disclosures relating to European legal entities. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists
Is RMF Better?
We are currently a user of CMF and are happy with it. Looking at the BMC website, there is a nice article about 20 reasons to use CMF. I'm wondering if RMF has distinguested itself to the point I got bullets to justify the cost increase? Is anyone aware of a 20 reason to use RMF pdf? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Chip Grantham is out of the office
I will be out of the office starting 02/07/2011 and will not return until 02/08/2011. *** This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SMP/E Receive Space Problems
Thanks to everyone who replied. I'm all smiles now. Chip -- 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
SMPPTS question
Listers, I've got a problem that has me twixed. I'm trying to receive a pdo and continue to receive SMPPTS E37-04 abends. I've moved to a MOD-9 device and allocated a new dataset as large as I can (4,000 cyls) and I still get the abend. I'm not sure what to do to get the receive to be successful. BTW there are about 5,000 free cyls on the volume. The pdo is 37 3480s and I've got about 8 more to process when the abend occurs. Does anyone have any suggestions? Thanks so much, Chip -- 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
SMP/E Receive Space Problems
Gentlemen and Ladies, I am trying to receive a CBPDO and I keep getting E37-04s on SMPPTS. I've moved to a mod-9 and have tried to allocate the dataset as large as possible and I still get the e37. Does anyone have any suggestions? Thanks so much. Chip Grantham -- 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