Re: OMVS data not found in dump
Thank you all for your suggestions. -- 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
AUTO: James Obrizok is out of the office (returning 07/06/2009)
I am out of the office until 07/06/2009. If you require immediate assistance, please contact my backup Fernando Vega on 1-404-238-4580 or Jon Regitsky on 1-404-238-3134. Thank you. Note: This is an automated response to your message IBM-MAIN Digest - 1 Jul 2009 to 2 Jul 2009 (#2009-183) sent on 7/3/09 0:00:03. This is the only notification you will receive while this person is away. -- 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
Andy Pesce is out of the office.
I will be out of the office starting 07/02/2009 and will not return until 07/13/2009. I will respond to your message when I return. If you need immediate assistance contact Scott Taylor or Doug Mallory. -- 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: How to convince not to over initiate?
You could have used SYSAFF I did. I just didn't do it right :-( you also could have SCHENV defined and activated on the LPAR you needed to run on. But that would require *planning* and *foresight*! :-( When a job doesn't run where it is submitted (we *do* set sysaff on a $Tintrdr command during system initialization, which apparently WLM doesn't care about), and I *know* that we have that sysaff in the jes deck (because I put it there), then it is not easily detectable why a job is not executed there, especially when there isn't any load on that system (but a lot of load on the one it ran). Of course I *know* that it's all my fault! But this doesn't make me like WLM inits any better... Barbara -- 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: ERASEDATA - DASD disposal
Even more insidious are the methods of reading how strongly the magnetized bit is positive or negative. If the bit is on, but not as strongly as others, it might have been off before getting flipped. If very strongly on it might have been reinforced when the 1 bit was written to it. It would take several passes of randomized ones and zeros to fool this technology. Ken Klein Sr. Systems Programmer Kentucky Farm Bureau Insurance - Louisville kenneth.kl...@kyfb.com 502-495-5000 x7011 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Gerhard Postpischil Sent: Thursday, July 02, 2009 5:29 PM To: IBM-MAIN@bama.ua.edu Subject: Re: ERASEDATA - DASD disposal Eric Bielefeld wrote: I always wondered if it was possible to read data if binary zeros or some other pattern were written to the disk. I thought that it would be very hard, which the article quoted seemed to agree with. But then, I noticed that the writer of the article didn't sign his name. As I understand it, the magnetized portion of a track is slightly wider than the write head. When a track is rewritten, the head alignment will be slightly different, leaving a little bit of the original track. So what you are writing on subsequent passes doesn't really matter, unless you do it often enough to make it unlikely to retain any trace of the original. And of course there are the newfangled storage boxes where you get a different physical track on every write. Gerhard Postpischil Bradford, VT -- 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
COBOL: Getting calling modules name etc. - LE services ?
Hi, Does anyone know a way to get the actual calling modules name in a COBOL program ? Also other details about the calling module would be interesting. I looked through LE Programming Reference for callable services buth didn't find any (obvious) such function. Any hints ? Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -- 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
Where does z/unix store each lpar's hostname?
I thought it would be in /etc... Ken Klein Sr. Systems Programmer -- 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: Converting CPU Time to MIPS
It may not be relevant to this particular application, but it is often important to look at the big picture. Years ago, a client I was supporting had a batch job that ran extremely long. Analysis revealed that most of the time was spent in a calculation of the penalty for early withdrawal that would be imposed if money was withdrawn from CD before it reached maturity. This was done so that the CICS application could simply display the value when a depositor asked for the information. It turns out that this information was being requested for a tiny percentage of the accounts each day, but the calculation was being done for every account every day. The soution: Move the calculation to the CICS application. Yes, it caused the CICS application to use more CPU and run a little bit longer. However it shaved hours of run time and lots of CPU time from the batch job. -- 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: Where does z/unix store each lpar's hostname?
Use sysvar LPAR , you will get LPAR name Klein, Kenneth wrote: I thought it would be in /etc... Ken Klein Sr. Systems Programmer -- 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 -- Miklos Szigetvari Development Team ISIS Information Systems Gmbh tel: (+43) 2236 27551 570 Fax: (+43) 2236 21081 E-mail: miklos.szigetv...@isis-papyrus.com Info: i...@isis-papyrus.com Hotline: +43-2236-27551-111 Visit our Website: http://www.isis-papyrus.com --- This e-mail is only intended for the recipient and not legally binding. Unauthorised use, publication, reproduction or disclosure of the content of this e-mail is not permitted. This email has been checked for known viruses, but ISIS accepts no responsibility for malicious or inappropriate content. --- -- 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: COBOL: Getting calling modules name etc. - LE services ?
Hi Maybe in the Vendor Interfaces CEETBCK etc (Never tried from COBOL) Thomas Berg wrote: Hi, Does anyone know a way to get the actual calling modules name in a COBOL program ? Also other details about the calling module would be interesting. I looked through LE Programming Reference for callable services buth didn't find any (obvious) such function. Any hints ? Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -- 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 -- Miklos Szigetvari Development Team ISIS Information Systems Gmbh tel: (+43) 2236 27551 570 Fax: (+43) 2236 21081 E-mail: miklos.szigetv...@isis-papyrus.com Info: i...@isis-papyrus.com Hotline: +43-2236-27551-111 Visit our Website: http://www.isis-papyrus.com --- This e-mail is only intended for the recipient and not legally binding. Unauthorised use, publication, reproduction or disclosure of the content of this e-mail is not permitted. This email has been checked for known viruses, but ISIS accepts no responsibility for malicious or inappropriate content. --- -- 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: ERASEDATA - DASD disposal
On Fri, 3 Jul 2009 07:24:02 -0400, Klein, Kenneth wrote: Even more insidious are the methods of reading how strongly the magnetized bit is positive or negative. If the bit is on, but not as strongly as others, it might have been off before getting flipped. If very strongly on it might have been reinforced when the 1 bit was written to it. It would take several passes of randomized ones and zeros to fool this technology. ... or one pass with specialized hardware that overwrites with bits with random amplitude. How consistent is the amplitude in ordinary write amplifiers? And how repeatable is the longitudinal density? Is there any confidence the overwritten bit occupied the same position as the overwriting bit? -- gil -- 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: SMPE usermod sample
On Thu, 2 Jul 2009 20:47:47 -0400, Jeffery Swagger jeff...@comcast.net wrote: Yes, but this strikes me as incomplete. I did try an APPLY CHECK of the proposed USERMOD (minus the JCLIN) and it appeared to produce the desired result. In that a ++EXEC element would be created (target library SISPEXEC) with an ALIAS of ONLY copied from SISPSAMP. However, here's the problem. The shipped IBM element ++SAMP(ISRONLY) has no updates associated with it. This is telling me, and I could be wrong, that IBM could ship a PTF to ISRONLY, and then my ++EXEC is out-of-sync because IBM knows nothing of a ++EXEC(ISRONLY). Uh Oh It seems to me that a complete solution to this problem requires that the ++SAMP(ISRONLY) must have the RMID updated. That way, if there is an IBM PTF, then SMP/E will detect a MODID error. You are correct. But that isn't part of the USERMOD MCS in this case, it would be done with UCLIN via SMPCNTL input. See the archives for past examples of doing this when assembling sample source. But for completeness in this thread, here is what it would look like (leaving out the JCLIN per Kurt): //SMPPTFIN DD DATA,DLM=$$ ++USERMOD (UMISPMZ) . ++VER (Z038) FMID(HIF5H02) . ++EXEC(ISRONLY) DISTLIB(AISPEXEC) ALIAS(ONLY) SYSLIB(SISPEXEC) TXLIB(SISPSAMP). $$ //SMPCNTL DD * SET BOUNDARY (tgt_zone) . APPLY SELECT (UMISPMZ). UCLIN . REP SAMP(ISRONLY) RMID(UMISPMZ). ENDUCL. /* -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:mark.zel...@zurichna.com z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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
SV: COBOL: Getting calling modules name etc. - LE services ?
Thanks! When looking in LE Vendor Interfaces it seems that it could be possible. But a working example/scenario would be very helpful for me as I'm close at loss of how to start. E g how do I get the address of the DSA in a COBOL pgm to beging with. Etc. Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] För Miklos Szigetvari Skickat: den 3 juli 2009 16:07 Till: IBM-MAIN@bama.ua.edu Ämne: Re: COBOL: Getting calling modules name etc. - LE services ? Hi Maybe in the Vendor Interfaces CEETBCK etc (Never tried from COBOL) Thomas Berg wrote: Hi, Does anyone know a way to get the actual calling modules name in a COBOL program ? Also other details about the calling module would be interesting. I looked through LE Programming Reference for callable services buth didn't find any (obvious) such function. Any hints ? Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK - - 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 -- Miklos Szigetvari Development Team ISIS Information Systems Gmbh tel: (+43) 2236 27551 570 Fax: (+43) 2236 21081 E-mail: miklos.szigetv...@isis-papyrus.com Info: i...@isis-papyrus.com Hotline: +43-2236-27551-111 Visit our Website: http://www.isis-papyrus.com --- This e-mail is only intended for the recipient and not legally binding. Unauthorised use, publication, reproduction or disclosure of the content of this e-mail is not permitted. This email has been checked for known viruses, but ISIS accepts no responsibility for malicious or inappropriate content. --- -- 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
Re: SV: COBOL: Getting calling modules name etc. - LE services ?
Thomas Berg wrote: Thanks! When looking in LE Vendor Interfaces it seems that it could be possible. But a working example/scenario would be very helpful for me as I'm close at loss of how to start. E g how do I get the address of the DSA in a COBOL pgm to beging with. Etc. Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK Gilbert Saint-Flour's site has a variety of sample code that might help you get started. His programs titled COB2JOB and COB2SYS were written for COBOL 2, but the basic structure should work for Enterprise COBOL. Note that the CAA LE control block is linked from the job step task TCB (so look to the Data Areas manual for the TCB, then go to the LE Vendor's book for the CAA layout, and on from there). Should be do-able, but a pretty daunting task. Gilbert is a frequent contributor to ibm-main and the cbt tape (his sample code might even be available on file 183 of the tape). His home page: http://gsf-soft.com/ site map: http://gsf-soft.com/sitemap.shtml on this page scroll down to the Free Software entry and look at the two COB2 programs. Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com z/OS Application development made easier * Our classes include + How things work + Programming examples with realistic applications + Starter / skeleton code + Complete working programs + Useful utilities and subroutines + Tips and techniques == Ask about being added to our opt-in list: == == * Early announcement of new courses == == * Early announcement of new techincal papers == == * Early announcement of new promotions == -- 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: S222 abends and Reason Codes
I can think of no case where it is accepted or supported for non-IBM code to issue an IBM-documented system abend code. And that certainly includes 222 which has many ramifications that go with its being a cancel'. As we all know, the official S222 has no reason codes. Peter Relson z/OS Core Technology Design -- 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: S222 abends and Reason Codes
In the old COBOL days, I would call XPECT806, which didn't exist, and got what I asked for Peter Relson wrote: I can think of no case where it is accepted or supported for non-IBM code to issue an IBM-documented system abend code. And that certainly includes 222 which has many ramifications that go with its being a cancel'. As we all know, the official S222 has no reason codes. Peter Relson z/OS Core Technology Design -- 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
Re: COBOL: Getting calling modules name etc. - LE services ?
Hi Look at the Layout Entry of Language Environment-Conforming Routines – Standard: http://publib.boulder.ibm.com/infocenter/zos/v1r10/topic/com.ibm.zos.r10.ceev100/rtnlyout.htm?resultof=%22%70%70%61%31%22%20 or: http://publibz.boulder.ibm.com/epubs/pdf/ceev1190.pdf Chapter 1. Common Interfaces and Conventions From there you get to the PPA1 where you can find the actual module name. If you go back the DSAs, you can access the PPAs from the previous modules. If you are using dynamic calls, you have to skip the IGZ modules. You can also calculate the offset of the call via the return address in R14. The CAA is always addressable via R12. Regards Tobias Am 03.07.2009, 12:57 Uhr, schrieb Thomas Berg thomas.b...@swedbank.se: Hi, Does anyone know a way to get the actual calling modules name in a COBOL program ? Also other details about the calling module would be interesting. I looked through LE Programming Reference for callable services buth didn't find any (obvious) such function. Any hints ? Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -- 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 -- Erstellt mit Operas revolutionärem E-Mail-Modul: http://www.opera.com/mail/ -- 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: S222 abends and Reason Codes
-snip- I can think of no case where it is accepted or supported for non-IBM code to issue an IBM-documented system abend code. And that certainly includes 222 which has many ramifications that go with its being a cancel'. As we all know, the official S222 has no reason codes. --unsnip I can certainly agree with these statements. The use of System ABEND codes by applications is something to be discouraged, in the interest of keeping these codes UNAMBIGUOUS. If an application has a problem, let it issue a message, with a unique message number, so that automation can pick it up and take appropriate action. Rick -- 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
Fw: COBOL: Getting calling modules name etc. - LE services ?
I think that the facility that you are looking for would be met when/if IBM actually provides the enhancement in the existing SHARE requirement: SSLNGC0313587 New LE Callable Service to get (various) Program Names Described as: A new LE callable service (with capabilities well beyond CEE3GRN) should be created to obtain various program names. This should include options to obtain: - The currently executing program's name - The name of the program that activated (Called, Invoked, whatever) the currently executing program - The name of the program at the top of the current LE enclave - The name of the program at the top of the current LE thread For each of these, sub-options may be required to provide information such as - Any alias by with the program was entered - Any long-name (with mixed characters) as supported by the Binder - Any Entry-point name when other than the modules name Finally, although not necessarily a part of this callable service, it would also be desirable to be able to obtain the data set name (HFS, PDS, PDSE, LPA member, or whatever) from which each of these entities was obtained. * * * * The current IBM response is RECOGNIZE. You may want to submit a marketing REQUEST and reference this SHARE requirement. Thomas Berg thomas.b...@swedbank.se wrote in message news:e46b4df55a5e8746855078ae31f1b1802db71f3...@fspas01ev010.fspa.myntet.se ... Hi, Does anyone know a way to get the actual calling modules name in a COBOL program ? Also other details about the calling module would be interesting. I looked through LE Programming Reference for callable services buth didn't find any (obvious) such function. Any hints ? Regards, Thomas Berg __ Thomas Berg Specialist IT-U SWEDBANK -- 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
Re: Command program from the cbt
Which version of command are you using? There were two versions taht used to be on CBT, one that I had updated a bit but was actually Food Lion's code and another one that we stopped putting there (same name) after 2005 or so that we completely re-wrote and added 36 special commands and IF/THEN/ELSE coding capabilities to the command scripts and now market as SyzCMDZ. The version (originally from Food Lion) does check the Facility class, and our version used to check both the facility class and had a table that could be used to allow finer tuning than just a simple class check. We later changed it so that the fine tuning was included into RACF (or ACF2/TSS) instead so that people didn't have to relink the module every time they wanted to add the capability for someone (or some job) to issue a display command. If you have one of our older versions, you can either have them give you access to the Facility class (classname) or add you to the table. We provided the ability to move the table call before the RACF call, and also to ignore what happened in the RACF call and just use the table, so it's possible that they took one of those avenues. Needless to say, (but I'll say it anyway), if you are running a version that is that old, you might want to think about upgrading to the newest version with all of the special bells and whistles, the normal $5k price is discounted 50% for people who are members of IBMMAIN. Brian Westerman -- 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