Is a page protected?--how to determine
Hello: I have a need to determine if an address in storage is page protected in order to determine if a PGSER UNPROTECT needs to be done. The best I have tried and seen in earlier posts is to look for a CC=1 on a TPROT backed up with an ESTAE. Are there any other methods to do this? Thank you. Paul Schuster -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PSI MIPS (was: Links to decent 'why the mainframe thrives' article)
This thread still begs the issue of benchmarking a representative business application across multilple platforms. It may beg the issue, but the answer isn't (solely, or even much) a benchmark. Running a single payroll application (for example) doesn't cut it either. These systems are built to run hundreds or even thousands of applications with different profiles on one machine. (Are there benchmarks like that?) How do you benchmark a 777 compared to a motor scooter? They both move, they both carry people, but is any sort of simple comparison possible? A single number doesn't help much. The mainframe inevitably forces the question: How do you measure the total performance of the whole IT organization, in business terms? That paragraph I wrote in response to Dean gives some idea of the dimensionality of that question. As mentioned, many outsourcing companies do a decent job making such measurements. They have to because it dictates how they bid and how much profit they can make. IMHO, IT organizations which don't do a good job in this area -- which focus way too much on SPECint :-) -- are the ripest candidates for outsourcing as the company's CEO and CFO grow thoroughly disgusted with IT mismanagement. - - - - - Timothy Sipples IBM Consulting Enterprise Software Architect Specializing in Software Architectures Related to System z Based in Tokyo, Serving IBM Japan and IBM Asia-Pacific E-Mail: [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Fw: COBOL Functions
Hi, Stirring the pot some more Maybe if you used the CALL...RETURNING syntax : http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/igy3pg32/4.2.4.3?SHELF=DT=20061117131343 ? Or, write your COBOL function as OO COBOL function. Then, you have a whole object to give and take than just a few native arguments. Regards, Nags. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS Dump. How can you see the stack?
Mark, Try IP VERBX LEDATA 'CEEDUMP'. This will give you the same info as a CEEDUMP, including call linkage . If your main module is not LE complient you may need to add TCB(tcbaddr), or CAA() or DSA() , to give it a clue where to start. LEDATA is a very powerfull command with lots of options, well worth spending the time to RTFM. There is some stuff in the MVS IPCS commands book and more in the Language Environment Debugging Guide If you need all the specific registers at all levels you need to run the R13 save area chain. Regards, Ron MacRae. On Mon, 23 Jul 2007 15:21:38 -0500, Mark House [EMAIL PROTECTED] wrote: I am trying to look at the stack in a dump through IPCS. Any ideas on how to get it done? -- 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
Tools for Validating COBOL Source
I have posted this on the COBOL.LANG newsgroup, but thought I would as here as well. I ran into a problem where a programmer stated that the PERFORM THRU EXIT was not functioning for one of many. I felt it was a missing IF END-IF combo. Other than doing an exclude all and the manually paring up the IF ENDI-IFs, I was hoping there might be some tool that could do that kind of validation in COBOL. In ISPF I can set HILITE to REXX and it will show when an END is dangling. But when I do the same thing for COBOL it does not seem to show me mismatched pairing. So, does anyone know of a tool that can go thru COBOL code and provide a basic mismatch for do loops or IF END-IFs or PERFORM THRU? Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FW: Deleted PDS
Gerhard Postpischil wrote: J R wrote: Yes, ABSTR is limited to 64KiB-1. ITYM 64Ki-1. You may think that, but he doesn't. K and Ki are prefixes, meaningless without a unit to modify. Kilo is the rare exception in Europe, where it's used as an abbreviation of Kilogram as a unit of mass and (incorrectly) weight; neither applies here. J.R. is more right than guy before him. 64k or 64Ki can be interpreted as numbers. In this case we talk about ABSTR, so the value is NUMBER OF TRACKS, not bytes. It is *not* 65536B-1, it is 65536-1 tracks. I don't know whether it is proper or IBM approved, but IT people often use 64k or 16M as numbers. No unit specified. Number only. Maybe it's improper, but it is *common*. Usually they mean binary kilo and mega, although it is not proper in aspect of IS standard. However this is different story: for example every RAM manufacturer use MB and GB instead of correct MiB and GiB. BTW: In Europe we *say* kilo as abbreviation of kilogram, but we *write* it properly: kg, so assumption about kilograms is bad shot. -- Radoslaw Skorupka Lodz, Poland -- BRE Bank SA ul. Senatorska 18 00-950 Warszawa www.brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237 NIP: 526-021-50-88 Wedug stanu na dzie 01.01.2007 r. kapita zakadowy BRE Banku SA (w caoci opacony) wynosi 118.064.140 z. W zwizku z realizacj warunkowego podwyszenia kapitau zakadowego, na podstawie uchwa XVI WZ z dnia 21.05.2003 r., kapita zakadowy BRE Banku SA moe ulec podwyszeniu do kwoty 118.760.528 z. Akcje w podwyszonym kapitale zakadowym bd w caoci opacone. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
Paul, You are in the right way. I think this is the same technique used in NUCLEUS by CSECT IEAVEVAL but with a FRR instead. Regards, Philippe Leite z/OS Systems Programmer Portugal On Tue, 24 Jul 2007 01:32:43 -0500, Paul Schuster [EMAIL PROTECTED] wrote: Hello: I have a need to determine if an address in storage is page protected in order to determine if a PGSER UNPROTECT needs to be done. The best I have tried and seen in earlier posts is to look for a CC=1 on a TPROT backed up with an ESTAE. Are there any other methods to do this? Thank you. Paul Schuster -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ICSF for Dummies
Nagesh wrote: Hi Mark, Try these IBM Redbooks : http://www.redbooks.ibm.com/abstracts/sg247318.html?Open http://www.redbooks.ibm.com/redpieces/abstracts/sg247434.html?Open Regards, Nags. Those books are for the IBM Encryption Facility not for base ICSF but thanks anyway. -- Mark Jacobs Technical Services Time Customer Service - Tampa, FL -- The secret of life is honesty and fair dealing. If you can fake that, you've got it made. -- Julius (Groucho) Henry Marx -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Valid hexadecimal (was: EBCDIC to HEX translation in Assembler?)
Minor chide: It is too bad that folks take their valuable time on ibm-main to point out deficiencies in the documentation (pointing out is a good thing) but then do not submit requests to get them updated. The reason we in IBM follow and participate in ibm-main is not for the purpose of seeing what pub updates are being suggested. Please help! The meaning would be clearer if the two adjectives were omitted and it simply said any character. I agree with the suggestion and will check into getting it changed. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Think your an expert with MVS Diagnostic tools? Programmed in Assembler? ...
-Original Message- From: IBM Mainframe Discussion List On Behalf Of (IBM Mainframe Discussion List) In a message dated 7/23/2007 2:31:04 P.M. Central Daylight Time, [EMAIL PROTECTED] writes: H. ISTR that IBM has a DFSMS lab in sunny Tucson, Arizona.. Don't know about the software, but Tucson is where IBM develops its DASD control units. I would have thought DFSMS would be in Santa Theresa labs near San Jose. Their Level II support was in Tucson earlier this year, when I had a PMR open with DFSMSdss. Seems reasonable that their Development lab would be co-located. -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
Chapter 10 of the pops manual. IVSK instruction will tell you the key, access control bits, and fetch protection bit of a page. - Original Message - From: Paul Schuster [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Tuesday, July 24, 2007 1:32 AM Subject: Is a page protected?--how to determine Hello: I have a need to determine if an address in storage is page protected in order to determine if a PGSER UNPROTECT needs to be done. The best I have tried and seen in earlier posts is to look for a CC=1 on a TPROT backed up with an ESTAE. Are there any other methods to do this? Thank you. Paul Schuster -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PSI MIPS (was: Links to decent 'why the mainframe thrives' article)
Timothy, Internal customers do not ask your question, How do you measure the total performance of the whole IT organization? They are really only interested in the total cost of acquistion or internal chargeback (excluding power and environmentals) and application performance. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Tools for Validating COBOL Source
Hi Lizette, I haven't tried thisbut, it might do the trick. Open the COBOL source in edit mode and type HI on the command line and hit Enter. You will see the below. Select 5 for COBOL and select option 3 for Coloring. File Languages Colors Help ss Edit Color Settings Command === More: + Language: 11 1. Automatic Coloring: 2 1. Do not color program 2. Assembler 2. Color program 3. BookMaster 3. Both IF and DO logic 4. C 4. DO logic only 5. COBOL 5. IF logic only 6. HTML 7. IDLEnter / to select option 8. ISPF DTL Parentheses matching 9. ISPF Panel / Highlight FIND strings 10. ISPF Skeleton / Highlight cursor phrase 11. JCL 12. Pascal Note: Information from this panel is 13. PL/I saved in the edit profile. 14. REXX 15. SuperC Regards, Nags. -- 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
Secure clist
Is there any way to secure certain clist from unauthorized use? For example if I don't want applications to get into the wlm, Application, how would I do it? If it can be done. Thanks In Advance. Bill Carroll EMAIL DISCLAIMER: The information contained in this message may be privileged or confidential and is protected from disclosure. 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, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Secure clist
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Carroll, William Sent: Tuesday, July 24, 2007 7:40 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Secure clist Is there any way to secure certain clist from unauthorized use? For example if I don't want applications to get into the wlm, Application, how would I do it? If it can be done. Thanks In Advance. Bill Carroll The only way that I know if is to put the secured CLISTs in a separate library, then use your security product (RACF, ACF2, TSS, ...) to make that library readable only by authorized people. This also means that you must have some sort of start up CLIST (or REXX) which determines which libraries to allocated to SYSPROC and/or SYSEXEC. Oh, I guess that you could put a driver CLIST (or REXX) in a common library and have it attempt to allocate the secured library and run the real CLIST from that library. That should result in a S913 abend to the person who tried it. Followed, by a security audit and grilling of the perp! grin -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Secure clist
On Tue, 24 Jul 2007 07:44:28 -0500, McKown, John [EMAIL PROTECTED] wrote: -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Carroll, William Sent: Tuesday, July 24, 2007 7:40 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Secure clist Is there any way to secure certain clist from unauthorized use? For example if I don't want applications to get into the wlm, Application, how would I do it? If it can be done. Thanks In Advance. The only way that I know if is to put the secured CLISTs in a separate library, then use your security product (RACF, ACF2, TSS, ...) to make that library readable only by authorized people. I know ACF2 can do command limiting, but I don't recall if it works for CLISTs. Even if it does, it probably only works if you issue the clist (command) without a percent sign or maybe even with a percent sign, but not if you invoke it by ex 'library.name(clist)'. This also means that you must have some sort of start up CLIST (or REXX) which determines which libraries to allocated to SYSPROC and/or SYSEXEC. No, just remove hlq.SBLS* from all logon procs and logon clists, protect the libraries (or at least hlq.SBLSCLI0) and create a WLM invocation clist. With WLM, if you use SYS1 as your HLQ, you don't even need to use LIBDEF. You can just have your panel option for WLM (or invocation clist) use the one WLM provides: EXEC 'SYS1.SBLSCLI0(IWMARIN0)' Here's where Tom jumps in with his dynamic ISPF pitch... Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/ 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
PDS to SEQ and back to PDS
I am in need of a fairly straightforward method of turning a PDS into a flat file (for modifications) and then back into a PDS. Having the original ISPF stats present in the final PDS is not necessarily a critical part of the process for us --- nice, but not absolutely necessary. I have an REXX exec that does the process, but it is not set up to run as a batch job. Would that it were ... sigh. I have come across the CBT FILE093 solution(s) --- but, there appear to be many varieties. Some assistance/suggestions, please? Earnie Allen Senior Systems Programmer MVS Systems Software WORLDSPAN, LP Phone: 404-322-2799 FAX: 404-322-4653 E-Mail: [EMAIL PROTECTED] Remember: It takes teamwork to make the dream work. -- 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
MAPPING a RMM-managed tape volume
z/OS 1.7 We are trying to map a RMM managed cart using DITTO //* //* //S3 EXEC PGM=DITTOA,PARM='JOBSTREAM',COND=(0,NE) //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //TAPEIN DD UNIT=3590-1,DISP=SHR,VOL=SER=JL3270 DITTO TLB INPUT=TAPEIN Gives JCL error with IEF343I TSO057N S3 TAPEIN - REQUEST FAILED - NOT ENOUGH NON-SYSTEM MANAGED VOLUMES ELIGIBLE Can someone give us a clue how to proceed? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
David, Actually, ISVK cannot tell you if a page is protected or not, it only shows you the storage key and fetch bit. The Page protection bit (bit 54) is in Page Table Entry and Segment Table Entry. Best regards, Philippe Leite z/OS Systems Programmer Portugal On Tue, 24 Jul 2007 07:28:15 -0500, David Day [EMAIL PROTECTED] wrote: Chapter 10 of the pops manual. IVSK instruction will tell you the key, access control bits, and fetch protection bit of a page. - Original Message - From: Paul Schuster [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Tuesday, July 24, 2007 1:32 AM Subject: Is a page protected?--how to determine Hello: I have a need to determine if an address in storage is page protected in order to determine if a PGSER UNPROTECT needs to be done. The best I have tried and seen in earlier posts is to look for a CC=1 on a TPROT backed up with an ESTAE. Are there any other methods to do this? Thank you. Paul Schuster -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Paul Schuster Sent: Tuesday, July 24, 2007 12:33 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Is a page protected?--how to determine Hello: I have a need to determine if an address in storage is page protected in order to determine if a PGSER UNPROTECT needs to be done. The best I have tried and seen in earlier posts is to look for a CC=1 on a TPROT backed up with an ESTAE. Are there any other methods to do this? Thank you. Paul Schuster Use a loop with IVSK and TPROT for key 0. Something like this: L R2,page_address LOOP BR 0 purge cache IVSK R0,R2 page-in TPROT 0(R2),0 test for key zero storability BO LOOP oops, paged-out. try again BNZ PROT page protected, LAP, read-only data space BZ NO_PROT not protected Testing for key zero storability will catch page protection, or low address protection, or read-only data space. You may want to provide special filtering for those weird cases. Jeffrey D. Smith Principal Product Architect Farsight Systems Corporation 700 KEN PRATT BLVD. #204-159 LONGMONT, CO 80501-6452 303-774-9381 direct 303-484-6170 FAX http://www.farsight-systems.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Secure clist
I'm not sure how you would secure a specific CLIST and a couple of people have responded with suggestions. However, if it is access to WLM you want to secure you can do that in RACF via the use of the facility class MVSADMIN.WLM.POLICY. With this you can block access entirely or give someone just read access and not update. Check the System Programmer's Guide To: Workload Manager, SG24-6472-03 about how to do this. I don't know if this also works in ACF2 or TopSecret. Tom Kelman Commerce Bank of Kansas City (816) 760-7632 -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Carroll, William Sent: Tuesday, July 24, 2007 7:40 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Secure clist Is there any way to secure certain clist from unauthorized use? For example if I don't want applications to get into the wlm, Application, how would I do it? If it can be done. Thanks In Advance. Bill Carroll EMAIL DISCLAIMER: The information contained in this message may be privileged or confidential and is protected from disclosure. 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, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. -- 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 * If you wish to communicate securely with Commerce Bank and its affiliates, you must log into your account under Online Services at http://www.commercebank.com or use the Commerce Bank Secure Email Message Center at https://securemail.commercebank.com NOTICE: This electronic mail message and any attached files are confidential. The information is exclusively for the use of the individual or entity intended as the recipient. If you are not the intended recipient, any use, copying, printing, reviewing, retention, disclosure, distribution or forwarding of the message or any attached file is not authorized and is strictly prohibited. If you have received this electronic mail message in error, please advise the sender by reply electronic mail immediately and permanently delete the original transmission, any attachments and any copies of this message from your computer system. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
I guess I read what I wanted to read, and not what the original question was. Try to take more time in the future before replying. Paul, hope I didn't send you on a wild goose chase. --Dave Day - Original Message - From: Philippe Leite [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Tuesday, July 24, 2007 8:22 AM Subject: Re: Is a page protected?--how to determine David, Actually, ISVK cannot tell you if a page is protected or not, it only shows you the storage key and fetch bit. The Page protection bit (bit 54) is in Page Table Entry and Segment Table Entry. Best regards, Philippe Leite z/OS Systems Programmer Portugal On Tue, 24 Jul 2007 07:28:15 -0500, David Day [EMAIL PROTECTED] wrote: Chapter 10 of the pops manual. IVSK instruction will tell you the key, access control bits, and fetch protection bit of a page. - Original Message - From: Paul Schuster [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Tuesday, July 24, 2007 1:32 AM Subject: Is a page protected?--how to determine Hello: I have a need to determine if an address in storage is page protected in order to determine if a PGSER UNPROTECT needs to be done. The best I have tried and seen in earlier posts is to look for a CC=1 on a TPROT backed up with an ESTAE. Are there any other methods to do this? Thank you. Paul Schuster -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Think your an expert with MVS Diagnostic tools? Programmed in Assembler? ...
If you look at the posting, it was for a level II person, not a developer. Wayne Driscoll Product Developer JME Software LLC NOTE: All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Chase, John Sent: Tuesday, July 24, 2007 6:34 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Think your an expert with MVS Diagnostic tools? Programmed in Assembler? ... -Original Message- From: IBM Mainframe Discussion List On Behalf Of (IBM Mainframe Discussion List) In a message dated 7/23/2007 2:31:04 P.M. Central Daylight Time, [EMAIL PROTECTED] writes: H. ISTR that IBM has a DFSMS lab in sunny Tucson, Arizona.. Don't know about the software, but Tucson is where IBM develops its DASD control units. I would have thought DFSMS would be in Santa Theresa labs near San Jose. Their Level II support was in Tucson earlier this year, when I had a PMR open with DFSMSdss. Seems reasonable that their Development lab would be co-located. -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IBMLink Challenge
Hi, All, IBMLink on the web is unusually slow this morning (even by IBMLink on the Web standard!), so I'd like to solicit a bit of help from one of you with a 3270 IBMLink connection: I'm looking for the FMID for MQ Series 5.3.1, compid 5655F1000. I am waiting for the Product Cross Reference application to display its initial page (4 minutes now), so I can enter the component ID. A virtual cigar to whoever can reply before IBMLink on the Web does. -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PSI MIPS (was: Links to decent 'why the mainframe thrives' article)
William, 1 - You state that internal customers are only concerned with chargeback and application performance, yet if that was the case, why are the putting up with web apps with 10-12 second response time and the requirement that they move their hands from the keyboard to the mouse and back repeatedly, increasing user work while they used to have a CICS screen with sub-second response time. 2 - Companies that exclude power and environmental issues (including sq foot of floor space, labor to upgrade power panels etc) in the chargeback are doing themselves a huge disservice. If you have chargeback, don't just charge for part, charge for all. Wayne Driscoll Product Developer JME Software LLC NOTE: All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of William Richter Sent: Tuesday, July 24, 2007 7:31 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: PSI MIPS (was: Links to decent 'why the mainframe thrives' article) Timothy, Internal customers do not ask your question, How do you measure the total performance of the whole IT organization? They are really only interested in the total cost of acquistion or internal chargeback (excluding power and environmentals) and application performance. -- 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
How to extend addressability over 4095 with USING statements
Hi again, I'm trying to write a TSO command processor which seems to be getting addressability issues over 4095 bytes, e.g ASMA034E message. I know there's a way of extending the addressability, but can't remember. Anyone know how to do it? Ps. The IBM message for ASMA034E is of no use at all... just says extend addressability Phil -Original Message- From: Phil Kingston [mailto:[EMAIL PROTECTED] Sent: 23 July 2007 15:06 To: 'IBM Mainframe Discussion List' Subject: EBCDIC to HEX translation in Assembler? Hi all, Does anyone have a quick assembler routine to convert a hexadecimal number represented in EBCDIC into the real hex number? Phil. No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.14/912 - Release Date: 22/07/2007 19:02 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.16/914 - Release Date: 23/07/2007 19:45 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBMLink Challenge
HMS5310 Jon L. Veilleux [EMAIL PROTECTED] (860) 636-2683 -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Chase, John Sent: Tuesday, July 24, 2007 9:48 AM To: IBM-MAIN@BAMA.UA.EDU Subject: IBMLink Challenge Hi, All, IBMLink on the web is unusually slow this morning (even by IBMLink on the Web standard!), so I'd like to solicit a bit of help from one of you with a 3270 IBMLink connection: I'm looking for the FMID for MQ Series 5.3.1, compid 5655F1000. I am waiting for the Product Cross Reference application to display its initial page (4 minutes now), so I can enter the component ID. A virtual cigar to whoever can reply before IBMLink on the Web does. -jc- -- 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 This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Thank you. Aetna -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rotational position sensing (RPS)
Careful reading of the 2105 Command Reference doc shows that valid sector numbers are not documented as being ignored. I take that to mean they are used as documented; i.e., the next action on the track will commence with track orientation at a predictable position on the track. If the next action is to find a given record ID, then the search must begin at that point and nowhere else on the track. For this reason alone a valid non-X'FF' sector number cannot be ignored. Consider the example of a track containing eight records whose record IDs are all BILL1. There is no control unit microcode requirement that a record ID, commonly called CCHHR, contain the CCHHR where that record is stored on the track. Standard IBM access methods assume, create, and enforce this condition, but non-standard use of DASD can create this situation. Each of the 8 records whose IDs are all BILL1 can be unique; i.e., they contain different data and can even be of differing lengths, some with and others without key fields of differing lengths. The sector number must be used in a case like this to find the correct record. I didn't say that this kind of track is a good idea. But the hardware has always allowed it and non-standard software can still be used to access it. There are several other examples of control information that are now specifically documented as being ignored on an ESS (caching algorithm bits, e.g.). If the ESS ignores a valid sector number, then the documentation is deficient. John Gilmore is quite correct that an invalid sector number must be diagnosed. If software has put an invalid sector number into the channel program, the rest of that program should be suspect as well. Perhaps sector numbers will evolve away in a future technology that also no longer employs cylinder and track numbers. Bill Fairchild Plainfield, IL ** Get a sneak peek of the all-new AOL at http://discover.aol.com/memed/aolcom30tour -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Secure clist
On Tue, 24 Jul 2007 08:35:43 -0500, Kelman, Tom [EMAIL PROTECTED] wrote: I'm not sure how you would secure a specific CLIST and a couple of people have responded with suggestions. However, if it is access to WLM you want to secure you can do that in RACF via the use of the facility class MVSADMIN.WLM.POLICY. With this you can block access entirely or give someone just read access and not update. Check the System Programmer's Guide To: Workload Manager, SG24-6472-03 about how to do this. Yep. I should have mentioned that in my post. This is really what the OP should do (and should be protected in all shops). If you do this and don't protect the CLIST or other ISPF dialog libraries, someone can still get to the dialogs, but it won't do them any good since they won't even be able to extract the definition for the couple data set. I don't know if this also works in ACF2 or TopSecret. They do. This is just a facility class profile and both products (and I'm sure the new kid on the block does also) have equivalents. Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/ 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to extend addressability over 4095 with USING statements
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Phil Kingston Sent: Tuesday, July 24, 2007 8:53 AM To: IBM-MAIN@BAMA.UA.EDU Subject: How to extend addressability over 4095 with USING statements Hi again, I'm trying to write a TSO command processor which seems to be getting addressability issues over 4095 bytes, e.g ASMA034E message. I know there's a way of extending the addressability, but can't remember. Anyone know how to do it? Ps. The IBM message for ASMA034E is of no use at all... just says extend addressability Phil Either use multiple base registers, or use the long displacement type instructions. Since I don't know what instruction is getting the error, I don't know what (or if) the long displacement instruction may be. Not all instructions have a 20 bit displacement equivalent. Another possibility is to use a relative addressing instruction, if one exists. But most of the time, you must have multiple base registers. -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBMLink Challenge: We Have A Winner!
-Original Message- From: IBM Mainframe Discussion List On Behalf Of Chase, John Hi, All, IBMLink on the web is unusually slow this morning (even by IBMLink on the Web standard!), so I'd like to solicit a bit of help from one of you with a 3270 IBMLink connection: I'm looking for the FMID for MQ Series 5.3.1, compid 5655F1000. I am waiting for the Product Cross Reference application to display its initial page (4 minutes now), so I can enter the component ID. A virtual cigar to whoever can reply before IBMLink on the Web does. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Veilleux, Jon L HMS5310 Thanks! I'm still waiting for IBMLink on the Web to respond :-( -jc- -- 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
Cobol Conditional Compile
Micro Focus COBOL provides a mechanism for selectively compiling part of the COBOL source. (controlled by $IF, $ELSE, $END) IBM Enterprise COBOL for z/OS 3.3 do not support conditional compile. I think about to write a REXX to do this. Any other ideas ? Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Re: How to extend addressability over 4095 with USING statements
Phil, There are a number of ways. 1 - Add a second base register, for example if R12 is your base register, LR R11,R12 AHIR11,4096 USING label,R12,R11 2 - Constantly reload your base register (this is the method used by many compilers) of course if you do this, then you have to ensure that you populate all literal references before you modify the base register and change the using. 3 - Rewrite the code to fully separate code and data, and convert using all relative branching, so you only need a base register for data, not for code. However, some system macros do require base registers for code. For more info on this, see Ed Jaffe's excellent SHARE presentation (session 8160 from Tampa) entitled Reducing Base Register Usage, or How to 'Jumpify' Your Code Wayne Driscoll Product Developer JME Software LLC NOTE: All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Phil Kingston Sent: Tuesday, July 24, 2007 8:53 AM To: IBM-MAIN@BAMA.UA.EDU Subject: How to extend addressability over 4095 with USING statements Hi again, I'm trying to write a TSO command processor which seems to be getting addressability issues over 4095 bytes, e.g ASMA034E message. I know there's a way of extending the addressability, but can't remember. Anyone know how to do it? Ps. The IBM message for ASMA034E is of no use at all... just says extend addressability Phil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
In a message dated 7/24/2007 1:33:11 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: I have a need to determine if an address in storage is page protected in order to determine if a PGSER UNPROTECT needs to be done. One way, not necessarily the most elegant, is to establish an ESTAE or FRR, put your program into key 0, and do an OI into any byte in the page with an operand of X'00'. This instruction will not change the byte being accessed, but if the page is page protected your OI will produce a S0C4 which you trap and from which you recover in your recovery routine. If the page is not page protected, the next instruction after the OI will execute. Bill Fairchild Plainfield, IL ** Get a sneak peek of the all-new AOL at http://discover.aol.com/memed/aolcom30tour -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: MAPPING a RMM-managed tape volume
Is this the entire JCL? If so, you need a //SYSIN DD statement and according to my documentation, you also need $$DITTO instead of DITTO as the command within the //SYSIN. Of course, my documentation is quite old, but that's what it looks like to me. Rex -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Andy Robertson Sent: Tuesday, July 24, 2007 8:18 AM To: IBM-MAIN@BAMA.UA.EDU Subject: MAPPING a RMM-managed tape volume z/OS 1.7 We are trying to map a RMM managed cart using DITTO //* //* //S3 EXEC PGM=DITTOA,PARM='JOBSTREAM',COND=(0,NE) //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //TAPEIN DD UNIT=3590-1,DISP=SHR,VOL=SER=JL3270 DITTO TLB INPUT=TAPEIN Gives JCL error with IEF343I TSO057N S3 TAPEIN - REQUEST FAILED - NOT ENOUGH NON-SYSTEM MANAGED VOLUMES ELIGIBLE Can someone give us a clue how to proceed? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to extend addressability over 4095 with USING statements
Cheers Wayne, Extremely helpful, thanks a lot :-) Maybe IBM could update the Message to be a bit more obvious as to what to do when you get the ASMA034E message. Phil. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Wayne Driscoll Sent: 24 July 2007 15:02 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: How to extend addressability over 4095 with USING statements Phil, There are a number of ways. 1 - Add a second base register, for example if R12 is your base register, LR R11,R12 AHIR11,4096 USING label,R12,R11 2 - Constantly reload your base register (this is the method used by many compilers) of course if you do this, then you have to ensure that you populate all literal references before you modify the base register and change the using. 3 - Rewrite the code to fully separate code and data, and convert using all relative branching, so you only need a base register for data, not for code. However, some system macros do require base registers for code. For more info on this, see Ed Jaffe's excellent SHARE presentation (session 8160 from Tampa) entitled Reducing Base Register Usage, or How to 'Jumpify' Your Code Wayne Driscoll Product Developer JME Software LLC NOTE: All opinions are strictly my own. No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.16/914 - Release Date: 23/07/2007 19:45 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Earnie Allen Sent: Tuesday, July 24, 2007 8:14 AM To: IBM-MAIN@BAMA.UA.EDU Subject: PDS to SEQ and back to PDS I am in need of a fairly straightforward method of turning a PDS into a flat file (for modifications) and then back into a PDS. Having the original ISPF stats present in the final PDS is not necessarily a critical part of the process for us --- nice, but not absolutely necessary. I have an REXX exec that does the process, but it is not set up to run as a batch job. Would that it were ... sigh. I have come across the CBT FILE093 solution(s) --- but, there appear to be many varieties. Some assistance/suggestions, please? Earnie Allen The simpliest way that I know of is to use SAS and PROC SOURCE. That can unload a PDS to a sequential file and put IEBUPDTE control cards (or other control cards) between members. You then edit the sequential file and then submit an IEBUPDTE step to reload the PDS members. Why can't you run your REXX in batch? I often use ISPF edit macros in batch to modify all members of a PDS. This maintains the ISPF statistics. It is a bother to create the JCL, but not difficult once that is done. If you are truly weird, you could use ftp creatively to put all the member of the PDS into a new UNIX subdirectory, then do some processing there, then ftp back to the PDS. I'm not suggesting this, just mentioning it. Similarly, you could ftp into a set of sequential files, but I don't see the utility in that. -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
Earnie Allen of the IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 07/24/2007 08:13:55 AM: I am in need of a fairly straightforward method of turning a PDS into a flat file (for modifications) and then back into a PDS. Having the original ISPF stats present in the final PDS is not necessarily a critical part of the process for us --- nice, but not absolutely necessary. I have an REXX exec that does the process, but it is not set up to run as a batch job. Would that it were ... sigh. I have come across the CBT FILE093 solution(s) --- but, there appear to be many varieties. Some assistance/suggestions, please? I would suggest using OFFLOADW/PDSLOADW on file 093. Regards, John Kalinich Computer Sciences Corp -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rotational position sensing (RPS)
(IBM Mainframe Discussion List) wrote: Careful reading of the 2105 Command Reference doc shows that valid sector numbers are not documented as being ignored. I take that to mean they are used as documented; i.e., the next action on the track will commence with track orientation at a predictable position on the track. If the next action is to find a given record ID, then the search must begin at that point and nowhere else on the track. For this reason alone a valid non-X'FF' sector number cannot be ignored. My understanding has been that an entire track is staged when any record on the track is accessed. Record accesses are then satisfied from the staging area. (Does that processing occur only for the virtualized tracks on STK Iceberg?) If it were my code, I would build an in-storage index of all count fields while staging the track. That way I would never have to do any kind of lengthy search through the data. And RPS data would be meaningless to me ... I think ... Consider the example of a track containing eight records whose record IDs are all BILL1. There is no control unit microcode requirement that a record ID, commonly called CCHHR, contain the CCHHR where that record is stored on the track. Standard IBM access methods assume, create, and enforce this condition, but non-standard use of DASD can create this situation. Each of the 8 records whose IDs are all BILL1 can be unique; i.e., they contain different data and can even be of differing lengths, some with and others without key fields of differing lengths. The sector number must be used in a case like this to find the correct record. Interesting point. I had not thought of the problem created by duplicate identifiers. I didn't say that this kind of track is a good idea. But the hardware has always allowed it and non-standard software can still be used to access it. There are several other examples of control information that are now specifically documented as being ignored on an ESS (caching algorithm bits, e.g.). If the ESS ignores a valid sector number, then the documentation is deficient. John Gilmore is quite correct that an invalid sector number must be diagnosed. If software has put an invalid sector number into the channel program, the rest of that program should be suspect as well. Perhaps sector numbers will evolve away in a future technology that also no longer employs cylinder and track numbers. I would still like to know definitively whether coding a sector number of x'FF' will have a deleterious effect on I/O performance. Put another way, assuming more or less standard formatting of record identifiers, will a sector number of x'FF' yield identical performance to a calculated sector number? In the absence of any documentation or definitive statement to the contrary, I guess we'll keep using the calculated values. -- Edward E Jaffe Phoenix Software International, Inc 5200 W Century Blvd, Suite 800 Los Angeles, CA 90045 310-338-0400 x318 [EMAIL PROTECTED] http://www.phoenixsoftware.com/ -- 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
New (draft) Redbook: Introduction to the New Mainframe: z/VM Basics
I just heard about this draft redbook and have just browsed thru it and it looks like a good start for someone with little to no z/VM skills. The url is http://www.redbooks.ibm.com/redpieces/abstracts/sg247316.html?Open Abstract This textbook provides students with the background knowledge and skills necessary to begin using the basic functions and features of z/VM version 5, release 3. For optimal learning, students are assumed to be literate in personal computing and have some computer science or information systems background. Others who will benefit from this textbook include z/OS professionals who would like to expand their knowledge of other aspects of the mainframe computing environment. This course can be used as a prerequisite to understanding Linux on System z. The Table of Contents: 1. Introduction to the Mainframe Hardware Systems 2. Introduction to Virtualization and z/VM 3. History of z/VM 4. Basic z/VM concepts 5. Control Program for basic users 6. Conversational Monitor System 7. The REXX programming language 8. CMS Pipelines 9. System Administration Tasks 10. Performance 11. Networking and Connectivity 12. z/VM Security 13. Guest Operating systems Appendix A. Enhancements in z/VM Version 5, release 3 Appendix B. Quick Reference Appendix C. Answer Key Appendix D. Additional material Lionel B. Dyck, Consultant/Specialist Enterprise Platform Services, Mainframe Engineering KP-IT Enterprise Engineering, Client and Platform Engineering Services (CAPES) 925-926-5332 (8-473-5332) | E-Mail: [EMAIL PROTECTED] AIM: lbdyck | Yahoo IM: lbdyck Kaiser Service Credo: Our cause is health. Our passion is service. We?re here to make lives better.? ?Never attribute to malice what can be caused by miscommunication.? NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
Depending on what you need to change, couldn't you accomplish the changes using IPOUPDTE/CPPUPDATE? -Original Message- I am in need of a fairly straightforward method of turning a PDS into a flat file (for modifications) and then back into a PDS. Having the original ISPF stats present in the final PDS is not necessarily a critical part of the process for us --- nice, but not absolutely necessary. I have an REXX exec that does the process, but it is not set up to run as a batch job. Would that it were ... sigh. I have come across the CBT FILE093 solution(s) --- but, there appear to be many varieties. Some assistance/suggestions, please? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ICSF for Dummies
I am an ICSF administrator, but I am not involved in that part of the action. There is both a separation of duties angle as well as it seems that every application does it differently. I see ICSF as nothing more than an API and a secure key repository. How you use those keys is up to the programmer. ICSF administration would include care and feeding of the key repository clusters, scripts on how to change a master key, and management of the physical hardware. Your mission is more writing the application program that is going to accomplish the business mission. I have seen what looks like facilities to manage application level keys in the TKE doc, but have no idea how they could be used. A step up the ladder is certificate based strategies. Now we mix in RACF as well as the FTP and TN3270 applications. Those can become secure shells for the next step up, which could the application proper. The care and feeding of certificates is a career path all by itself. HTH. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Mark Jacobs Sent: Monday, July 23, 2007 12:16 PM To: IBM-MAIN@BAMA.UA.EDU Subject: ICSF for Dummies Outside of the well written and easily understandable :-) ICSF Administration manual are there any good IBM Redbooks, available education, for the simple howto's of an ICSF administrator? Things like the steps needed to wrap a data encryption key to be able to send it to someone, or be able to receive and install a key they send us. The manual isn't too clear on the how to's, -- Mark Jacobs Technical Services Time Customer Service - Tampa, FL -- 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBMLink Challenge
darn, and I was in a meeting, oh well, web ibmlink is having problems, (I know, I know, shock and surprise) ...sev1 issue # is 32585272 You should use the 3270 interface, it's working just fine. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: MAPPING a RMM-managed tape volume
Andy, Ignoring whether your JCL/DITTO statements are correct . The IEF343I message is an indication that there are no tape units for allocation. Looks like you are all system managed libraries and the JL3270 is not in the TCDB, is either not defined to RMM or is defined in a way that RMM does not decide it is system managed. During allocation the CBRUXVNL exit is called and RMMs support for that tries to determine what type of tape volume it is. Based on the response from the VNL exit, OAM provides eligible devices to allocation Do you have any tape drives NOT in a system managed library ? Does the UNIT=3590-1 match to a device pool that is NOT in a system managed library ? If you want the volume processed in a library you either need to enter it first, or ensure VNL processing causes it to be entered. Mike WoodRMM Development On Tue, 24 Jul 2007 08:18:23 -0500, Andy Robertson [EMAIL PROTECTED] wrote: z/OS 1.7 We are trying to map a RMM managed cart using DITTO //* //* //S3 EXEC PGM=DITTOA,PARM='JOBSTREAM',COND=(0,NE) //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //TAPEIN DD UNIT=3590-1,DISP=SHR,VOL=SER=JL3270 DITTO TLB INPUT=TAPEIN Gives JCL error with IEF343I TSO057N S3 TAPEIN - REQUEST FAILED - NOT ENOUGH NON-SYSTEM MANAGED VOLUMES ELIGIBLE Can someone give us a clue how to proceed? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to extend addressability over 4095 with USING statements
Maybe IBM could update the Message to be a bit more obvious as to what to do when you get the ASMA034E message. I think that you're being a little harsh on IBM. When you looked up message ASMA034E, it told you to Increase the range of the active USING. If you had then looked up the USING instruction, under Range of an Ordinary USING Instruction you would have found an example almost identical to Wayne's. From: Phil Kingston [EMAIL PROTECTED] Reply-To: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU To: IBM-MAIN@BAMA.UA.EDU Subject: Re: How to extend addressability over 4095 with USING statements Date: Tue, 24 Jul 2007 15:12:50 +0100 Cheers Wayne, Extremely helpful, thanks a lot :-) Maybe IBM could update the Message to be a bit more obvious as to what to do when you get the ASMA034E message. Phil. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Wayne Driscoll Sent: 24 July 2007 15:02 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: How to extend addressability over 4095 with USING statements Phil, There are a number of ways. 1 - Add a second base register, for example if R12 is your base register, LR R11,R12 AHIR11,4096 USING label,R12,R11 2 - Constantly reload your base register (this is the method used by many compilers) of course if you do this, then you have to ensure that you populate all literal references before you modify the base register and change the using. 3 - Rewrite the code to fully separate code and data, and convert using all relative branching, so you only need a base register for data, not for code. However, some system macros do require base registers for code. For more info on this, see Ed Jaffe's excellent SHARE presentation (session 8160 from Tampa) entitled Reducing Base Register Usage, or How to 'Jumpify' Your Code Wayne Driscoll Product Developer JME Software LLC NOTE: All opinions are strictly my own. _ http://imagine-windowslive.com/hotmail/?locale=en-usocid=TXT_TAGHM_migration_HM_mini_2G_0507 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
In a message dated 7/24/2007 9:14:11 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: The simpliest way that I know of is to use SAS and PROC SOURCE. That can unload a PDS to a sequential file and put IEBUPDTE control cards (or other control cards) between members. You then edit the sequential file and then submit an IEBUPDTE step to reload the PDS members. Yazbut..if it's a very large PDS you run into line constraints of the EDITOR. Why not just use PDS86 to make changes to all members? ===ch a:z 'nano' 'pico' ** Get a sneak peek of the all-new AOL at http://discover.aol.com/memed/aolcom30tour -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ed Finnell Sent: Tuesday, July 24, 2007 10:16 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: PDS to SEQ and back to PDS In a message dated 7/24/2007 9:14:11 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: The simpliest way that I know of is to use SAS and PROC SOURCE. That can unload a PDS to a sequential file and put IEBUPDTE control cards (or other control cards) between members. You then edit the sequential file and then submit an IEBUPDTE step to reload the PDS members. Yazbut..if it's a very large PDS you run into line constraints of the EDITOR. Why not just use PDS86 to make changes to all members? ===ch a:z 'nano' 'pico' True. Being a very weird person, I'm likely to copy the member of the PDS to separate files in a UNIX subdirectory. I'd then use some of the UNIX editing tools to manipulate the members (perl, awk, sed, ed), then copy them back into the PDS. But I'm a known weirdo around here grin. -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to extend addressability over 4095 with USING statements
Hi, I don't know what manual your looking in? I'm looking in HLASM V1R5 programmers guide. The section on the USING statement doesn't seem to have a reference to 'Range of an Ordinary USING Instruction'??? Phil. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of J R Sent: 24 July 2007 16:10 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: How to extend addressability over 4095 with USING statements Maybe IBM could update the Message to be a bit more obvious as to what to do when you get the ASMA034E message. I think that you're being a little harsh on IBM. When you looked up message ASMA034E, it told you to Increase the range of the active USING. If you had then looked up the USING instruction, under Range of an Ordinary USING Instruction you would have found an example almost identical to Wayne's. No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.16/914 - Release Date: 23/07/2007 19:45 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBMLink Challenge
Anyone know what platform they run the internet version of IBMLINK on? Robert Justice [EMAIL PROTECTED] wrote: darn, and I was in a meeting, oh well, web ibmlink is having problems, (I know, I know, shock and surprise) ...sev1 issue # is 32585272 You should use the 3270 interface, it's working just fine. -- 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 - Park yourself in front of a world of choices in alternative vehicles. Visit the Yahoo! Auto Green Center. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to extend addressability over 4095 with USING statements
I don't know what manual your looking in? I'm looking in HLASM V1R5 programmers guide. The section on the USING statement doesn't seem to have a reference to 'Range of an Ordinary USING Instruction'??? For most HLASM information, you can think of the documentation as a 2-volume set: SC26-4940 HLASM Language Reference SC26-4941 HLASM Programmers Guide From: Phil Kingston [EMAIL PROTECTED] Reply-To: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU To: IBM-MAIN@BAMA.UA.EDU Subject: Re: How to extend addressability over 4095 with USING statements Date: Tue, 24 Jul 2007 16:24:04 +0100 Hi, I don't know what manual your looking in? I'm looking in HLASM V1R5 programmers guide. The section on the USING statement doesn't seem to have a reference to 'Range of an Ordinary USING Instruction'??? Phil. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of J R Sent: 24 July 2007 16:10 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: How to extend addressability over 4095 with USING statements Maybe IBM could update the Message to be a bit more obvious as to what to do when you get the ASMA034E message. I think that you're being a little harsh on IBM. When you looked up message ASMA034E, it told you to Increase the range of the active USING. If you had then looked up the USING instruction, under Range of an Ordinary USING Instruction you would have found an example almost identical to Wayne's. _ http://im.live.com/messenger/im/home/?source=hmtextlinkjuly07 -- 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
DFHSM QUESTION : CREATIN SDSP (SMALLDS)
Good Day Gentle Readers, I am seeking your expert advice. We have a problem with our ML1 migrate vols. We are unable to migrate to ML1 because of the following reasons: ARC1001I HOPER.TTOC.LIST1 MIGRATE FAILED, RC=0037, REAS= ARC1237I NO SPACE FOR MIGRATION COPY I checked the STC and I found the following: HSM.SMALLDS.VPROM1,VHSM.SMALLDS.VPROM.KDATA,PROMTN 07.19.46 STC07991 ARC0542I SMALL DATA SET PACKING DATA SET 691 691 ARC0542I (CONT.) HSM.SMALLDS.VPROM1 IS FULL To make a quick fix I would like to define another of the ML1 vols as a SDSP with a SMALLDS. I am am able to create the cluster but I need to create a dummy entry. This is where I am stuck. Could anybody please tell me how I can go about doing this? Thank You all for your attention to this request. - Be smarter than spam. See how smart SpamGuard is at giving junk email the boot with the All-new Yahoo! Mail -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFHSM QUESTION : CREATIN SDSP (SMALLDS)
See SYS1.SAMPLIB(ARCSTRST). Find for IEBDG IEBDG generates a single record that is Loaded into the SDSP in the next step. HTH, -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFHSM QUESTION : CREATIN SDSP (SMALLDS)
Esmie, See SYS1.SAMPLIB(ARCSTRST) look for ALLOSDSP. Better yet see if you have HSM.SAMPLE.CNTL (There is probably a HLQ in front of that name). Once you've defined and primed your SDSP, issue an addvol for that volume with the SDSP parameter. However the message you received does NOT mean you can't migrate. It merely means that this dataset received a rc 37 when it tried to migrate. If you are running Intervalmigration then it will probably be migrated by the time you read this. You might want to export/import your existing SDSPs rather than creating more of them. Like any VSAM KSDS they need to be re-organized periodically to eliminate CA and CI splits and reclaim deleted space. The fact that they full does not stop migration from taking place. From: esmie moo [mailto:[EMAIL PROTECTED] Sent: Tue 7/24/2007 11:36 AM To: IBM-MAIN@BAMA.UA.EDU Subject: DFHSM QUESTION : CREATIN SDSP (SMALLDS) Good Day Gentle Readers, I am seeking your expert advice. We have a problem with our ML1 migrate vols. We are unable to migrate to ML1 because of the following reasons: ARC1001I HOPER.TTOC.LIST1 MIGRATE FAILED, RC=0037, REAS= ARC1237I NO SPACE FOR MIGRATION COPY I checked the STC and I found the following: HSM.SMALLDS.VPROM1,VHSM.SMALLDS.VPROM.KDATA,PROMTN 07.19.46 STC07991 ARC0542I SMALL DATA SET PACKING DATA SET 691 691 ARC0542I (CONT.) HSM.SMALLDS.VPROM1 IS FULL To make a quick fix I would like to define another of the ML1 vols as a SDSP with a SMALLDS. I am am able to create the cluster but I need to create a dummy entry. This is where I am stuck. Could anybody please tell me how I can go about doing this? Thank You all for your attention to this request. - Be smarter than spam. See how smart SpamGuard is at giving junk email the boot with the All-new Yahoo! Mail -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of (IBM Mainframe Discussion List) Sent: Tuesday, July 24, 2007 8:07 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Is a page protected?--how to determine In a message dated 7/24/2007 1:33:11 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: I have a need to determine if an address in storage is page protected in order to determine if a PGSER UNPROTECT needs to be done. One way, not necessarily the most elegant, is to establish an ESTAE or FRR, put your program into key 0, and do an OI into any byte in the page with an operand of X'00'. This instruction will not change the byte being accessed, but if the page is page protected your OI will produce a S0C4 which you trap and from which you recover in your recovery routine. If the page is not page protected, the next instruction after the OI will execute. Bill Fairchild very bad idea in general. if the page is not protected, then you don't know what other processes are updating that page nor how they serialize their updates. the OI is not an interlocked update and may cause corruption when another CPU is concurrently modifying that byte. Jeffrey D. Smith Principal Product Architect Farsight Systems Corporation 700 KEN PRATT BLVD. #204-159 LONGMONT, CO 80501-6452 303-774-9381 direct 303-484-6170 FAX http://www.farsight-systems.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Paul Schuster Sent: Tuesday, July 24, 2007 12:33 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Is a page protected?--how to determine Hello: I have a need to determine if an address in storage is page protected in order to determine if a PGSER UNPROTECT needs to be done. The best I have tried and seen in earlier posts is to look for a CC=1 on a TPROT backed up with an ESTAE. Are there any other methods to do this? Thank you. Paul Schuster In addition to what else has been posted, be very careful about unprotecting a page that your application did not explicitly protect. An application that uses IARVSERV to share pages with COPY_ON_WRITE will implicitly page-protect the shared pages. When a unit of work attempts to store into the protected page, the system catches the PIC 0004 and copies the contents to another real frame. Then the page table entry is modified to point to the new real frame and the unit of work is redispatched to try the update again; this time succeeding. The unit of work never sees the PIC 0004. If you explicitly unprotect such a shared page, then you will screw up shared pages scheme. Jeffrey D. Smith Principal Product Architect Farsight Systems Corporation 700 KEN PRATT BLVD. #204-159 LONGMONT, CO 80501-6452 303-774-9381 direct 303-484-6170 FAX http://www.farsight-systems.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Valid hexadecimal (was: EBCDIC to HEX translation in Assembler?)
On Tue, 24 Jul 2007 07:28:52 -0400, Peter Relson wrote: Minor chide: It is too bad that folks take their valuable time on ibm-main Cf. the Heresy thread. to point out deficiencies in the documentation (pointing out is a good thing) but then do not submit requests to get them updated. The reason we Chiding accepted and RCF submitted against R8 rather than R7, and mentioning 3 other publications in which a string search turned up similar usage. in IBM follow and participate in ibm-main is not for the purpose of seeing what pub updates are being suggested. Please help! But some assessment from my peers (IBM and customers) helps me decide whether my observations are valid. The meaning would be clearer if the two adjectives were omitted and it simply said any character. I agree with the suggestion and will check into getting it changed. You're off the hook, and if you've yet taken no action, it would be interesting to let it run its course and see whether Tech Pubs agrees with us. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
In a message dated 7/24/2007 10:56:09 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: very bad idea in general. if the page is not protected, then you don't know what other processes are updating that page nor how they serialize their updates. the OI is not an interlocked update and may cause corruption when another CPU is concurrently modifying that byte. OK. Find some other instruction that will not corrupt storage by serializing properly on the storage and which instruction will NOT really change anything in the storage. My main idea was to execute an instruction that does not really change anything but yet the instruction processing microcode tests the byte to be accessed for write capability in that page. I do not understand how my instruction that does not change any of the 8 bits in a byte can possibly corrupt any bytes anywhere near that one byte regardless of what other CPUs or I/O operations are doing concurrently. Here's another bad idea: find the page table entry for the page in question and test the page protect bit in that entry. Bill Fairchild Plainfield, IL ** Get a sneak peek of the all-new AOL at http://discover.aol.com/memed/aolcom30tour -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
Getting lots of suggestions/ideas. Gonna take me a bit to sort them out. My situation is that I need to take current production JCLlib(s) and modify the ACCT info in each not the same change to all jobcards. So ... turn the current JCLLIB PDS into a flat file ... run a (yet to be written) process that compares the flatfile line-by-line to another file with all the corrected first-lines containing the new ACCT info and replaces the current JOB card with the new one. (Our jobcards have each parameter ... acct info class user etc on a separate line with the ACCT info as the only parm on the actual JOB line).' After replacing all the old jobcards (first line only) with the appropriate new jobcard put the corrected flatfile back into a PDS format. Earnie Allen Senior Systems Programmer MVS Systems Software WORLDSPAN, LP Phone: 404-322-2799 FAX: 404-322-4653 E-Mail: [EMAIL PROTECTED] Remember: It takes teamwork to make the dream work. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of (IBM Mainframe Discussion List) Sent: Tuesday, July 24, 2007 10:05 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Is a page protected?--how to determine In a message dated 7/24/2007 10:56:09 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: very bad idea in general. if the page is not protected, then you don't know what other processes are updating that page nor how they serialize their updates. the OI is not an interlocked update and may cause corruption when another CPU is concurrently modifying that byte. OK. Find some other instruction that will not corrupt storage by serializing properly on the storage and which instruction will NOT really change anything in the storage. My main idea was to execute an instruction that does not really change anything but yet the instruction processing microcode tests the byte to be accessed for write capability in that page. I do not understand how my instruction that does not change any of the 8 bits in a byte can possibly corrupt any bytes anywhere near that one byte regardless of what other CPUs or I/O operations are doing concurrently. Because the fetch and the store are separated in time. Another CPU or an I/O operation can store into the byte *after* your CPU fetches the byte but *before* your CPU stores the byte. The other CPU update will be wiped out by your CPU subsequent store into the byte. If the application does not know how the page owner is serializing access to the page, there is no way to attempt a safe store into the page to detect protection. Jeffrey D. Smith Principal Product Architect Farsight Systems Corporation 700 KEN PRATT BLVD. #204-159 LONGMONT, CO 80501-6452 303-774-9381 direct 303-484-6170 FAX http://www.farsight-systems.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Cobol Conditional Compile
An edit macro might work just fine as well. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Albert Klimek Sent: Tuesday, July 24, 2007 9:02 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Cobol Conditional Compile Micro Focus COBOL provides a mechanism for selectively compiling part of the COBOL source. (controlled by $IF, $ELSE, $END) IBM Enterprise COBOL for z/OS 3.3 do not support conditional compile. I think about to write a REXX to do this. Any other ideas ? Albert No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.9 - Release Date: 7/18/2007 12:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
There's no obvious way for an unauthorized program to discover that information. If you're a supervisor state program you can issue a TPROT with a key of 0. If the condition code is 1 then the page is protected. The interpretation of the other condition codes is left as an exercise to the reader. Note also that there is the usual time of check to time of reference defect with any such check. Why would you want to unprotect a protected page anyway? That would seem to be a hideously bad idea if it's not your own page, and if it -is- your own page, you ought to already know whether it's protected or not. CC -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rotational Positional Sensing (RPS)
-snip Does anyone know for sure which was the last DASD subsystem that cared about Rotational Positional Sensing (RPS) values? ---unsnip--- IIRC, that would be the 3390 (real, not emulated). To my knowledge, none of the RAID configurations care much about RPS data. -- 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
IBMLINK help phone number
Would someone be willing to provide the IBMLINK problem phone number ?? Thanks. Greg Lang / ATT Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBMLINK help phone number
1-800-543-3912 at least that what is says on my screen. Greg Lang [EMAIL PROTECTED] Sent by: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU 07/24/2007 09:10 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU To IBM-MAIN@BAMA.UA.EDU cc Subject [IBM-MAIN] IBMLINK help phone number Would someone be willing to provide the IBMLINK problem phone number ?? Thanks. Greg Lang / ATT Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBMLINK help phone number
-Original Message- From: IBM Mainframe Discussion List On Behalf Of Greg Lang Would someone be willing to provide the IBMLINK problem phone number ?? 1-800-543-3912. -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
On Tue, 24 Jul 2007 12:08:43 -0400, Earnie Allen [EMAIL PROTECTED] wrote: Getting lots of suggestions/ideas. Gonna take me a bit to sort them out. My situation is that I need to take current production JCLlib(s) and modify the ACCT info in each not the same change to all jobcards. Then my ISPF edit macro suggestion in combination with something like my EDMACALL will work just dandy. Your edit macro will be very simple: /* REXX */ ADDRESS ISREDIT MACRO C '(ACCT123)' '(ACCTABC)' FIRST C '(ACCT456)' '(ACCTDEF)' FIRST C '(ACCT789)' '(ACCTGHI)' FIRST Or PDS86 against the PDS with multiple REPLACE commands will work and might still be faster depending on how many have to change (since it has to pass though the entire data set for each REPLACE command). Since it is a one time change, performance shouldn't be too big a concern. //PDS EXEC PGM=IKJEFT01 //STEPLIB DD DSN=pds86.LOADLIB,DISP=SHR //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * PDS86 'your.jcl.library' REP : '(ACCT123)' '(ACCTABC)' WRITE REP : '(ACCT456)' '(ACCTDEF)' WRITE REP : '(ACCT789)' '(ACCTGHI)' WRITE /* If you don't want to update the ISPF stats, use WRITE NOSTATS Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/ 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
snip- I am in need of a fairly straightforward method of turning a PDS into a flat file (for modifications) and then back into a PDS. Having the original ISPF stats present in the final PDS is not necessarily a critical part of the process for us --- nice, but not absolutely necessary. I have an REXX exec that does the process, but it is not set up to run as a batch job. Would that it were ... sigh. I have come across the CBT FILE093 solution(s) --- but, there appear to be many varieties. Some assistance/suggestions, please? --unsnip- Try this: 1. Use the REVIEW command processor from the CBT tape, with the OFFLOAD subcommand, to create the flat file. 2. Do whatever edit(s) you need to do. 3. Use the PDSLOAD batch processor, also from the CBT tape, to re-create the PDS. This will also save your ISPF stats. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rotational Positional Sensing (RPS)
In a message dated 7/24/2007 11:16:19 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: -snip Does anyone know for sure which was the last DASD subsystem that cared about Rotational Positional Sensing (RPS) values? ---unsnip--- IIRC, that would be the 3390 (real, not emulated). To my knowledge, none of the RAID configurations care much about RPS data. The 3390 is not a subsystem. It is a device type. The subsystem in question would have to be one that is capable of driving a 3390, which include 3990, 9340, 9390, and 2105. IBM does not market RAID configurations to mainframe customers. It markets DASD subsystems that work according to the documentation in their control unit reference manuals, which say, or at least strongly imply, that sector values are still used. The real disks involved are RAID, but that's irrelevant. RAID configurations also do not care about the cylinder or track numbers that are known to the software running in the mainframe, but that doesn't mean the software can ignore these numbers. The DASD sub system reads an entire track into cache storage and then accesses that data as if it were on a real, SLED device type and according to the CCWs coming from the mainframe's central storage. When the subsystem needs to access the real disk(s), it maps the mainframe's CCHH and other control information into the appropriate commands and control information for whatever real RAID disks are inside the subsystem. RAID disks are FBA, so RAID configurations don't care about software's block sizes either. So no, the RAID does not care about sector numbers, but yes, the IBM DASD subsystems do. Bill Fairchild Plainfield, IL ** Get a sneak peek of the all-new AOL at http://discover.aol.com/memed/aolcom30tour -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SPAM: How to extend addressability over 4095 with USING statements
Phil Kingston wrote: Hi again, I'm trying to write a TSO command processor which seems to be getting addressability issues over 4095 bytes, e.g ASMA034E message. I know there's a way of extending the addressability, but can't remember. Anyone know how to do it? Ps. The IBM message for ASMA034E is of no use at all... just says extend addressability unsnip-- LABASE2, 2048 LABASE2,2048(BASE2,BASE1) USING whereever,BASE1,BASE2 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
What does that REVIEW command processor do? Earnie Allen Senior Systems Programmer MVS Systems Software WORLDSPAN, LP Phone: 404-322-2799 FAX: 404-322-4653 E-Mail: [EMAIL PROTECTED] Remember: It takes teamwork to make the dream work. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
That PDS86 solution looks great ... if only all our production jobs had a standard ACCT field/info in them already!!! But, alas, that's what this process is intended to do. Earnie Allen Senior Systems Programmer MVS Systems Software WORLDSPAN, LP Phone: 404-322-2799 FAX: 404-322-4653 E-Mail: [EMAIL PROTECTED] Remember: It takes teamwork to make the dream work. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
On Tue, 24 Jul 2007 12:36:06 -0400, Earnie Allen [EMAIL PROTECTED] wrote: That PDS86 solution looks great ... if only all our production jobs had a standard ACCT field/info in them already!!! But, alas, that's what this process is intended to do. As I said... if it is more complicated than a mass update, then an edit macro still works well (or the unload / reload options) since you can write code to do what you want. Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/ 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
My situation is that I need to take current production JCLlib(s) and modify the ACCT info in each not the same change to all jobcards. IIRC, the PDS command from the CBT can do that. I seem to remember doing something similar a long time ago. So, I would copy the JCLLIB, make the changes, copy back (after verification), compress (if needed). Also, the command does not touch the user area, so stats would remain intact. No need to 'sequentialise' the PDS. - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
IIRC? I'll have to look that one up. Earnie Allen Senior Systems Programmer MVS Systems Software WORLDSPAN, LP Phone: 404-322-2799 FAX: 404-322-4653 E-Mail: [EMAIL PROTECTED] Remember: It takes teamwork to make the dream work. Ted MacNEIL [EMAIL PROTECTED] CATo Sent by: IBM IBM-MAIN@BAMA.UA.EDU Mainframe cc Discussion List [EMAIL PROTECTED] Subject .EDU Re: PDS to SEQ and back to PDS 07/24/2007 12:44 PM Please respond to IBM Mainframe Discussion List [EMAIL PROTECTED] .EDU My situation is that I need to take current production JCLlib(s) and modify the ACCT info in each not the same change to all jobcards. IIRC, the PDS command from the CBT can do that. I seem to remember doing something similar a long time ago. So, I would copy the JCLLIB, make the changes, copy back (after verification), compress (if needed). Also, the command does not touch the user area, so stats would remain intact. No need to 'sequentialise' the PDS. - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rotational Positional Sensing (RPS)
Does anyone know for sure which was the last DASD subsystem that cared about Rotational Positional Sensing (RPS) values? I would guess 3390-SLEDS connected to 3990-6's. - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFHSM QUESTION : CREATIN SDSP (SMALLDS)
David, I looked at the SYS1.SAMPLIB(ARCSTRST) which had the define cluster. Thanks for pointing it out to me. I had missed that. O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: Esmie, See SYS1.SAMPLIB(ARCSTRST) look for ALLOSDSP. Better yet see if you have HSM.SAMPLE.CNTL (There is probably a HLQ in front of that name). Once you've defined and primed your SDSP, issue an addvol for that volume with the SDSP parameter. However the message you received does NOT mean you can't migrate. It merely means that this dataset received a rc 37 when it tried to migrate. If you are running Intervalmigration then it will probably be migrated by the time you read this. You might want to export/import your existing SDSPs rather than creating more of them. Like any VSAM KSDS they need to be re-organized periodically to eliminate CA and CI splits and reclaim deleted space. The fact that they full does not stop migration from taking place. From: esmie moo [mailto:[EMAIL PROTECTED] Sent: Tue 7/24/2007 11:36 AM To: IBM-MAIN@BAMA.UA.EDU Subject: DFHSM QUESTION : CREATIN SDSP (SMALLDS) Good Day Gentle Readers, I am seeking your expert advice. We have a problem with our ML1 migrate vols. We are unable to migrate to ML1 because of the following reasons: ARC1001I HOPER.TTOC.LIST1 MIGRATE FAILED, RC=0037, REAS= ARC1237I NO SPACE FOR MIGRATION COPY I checked the STC and I found the following: HSM.SMALLDS.VPROM1,VHSM.SMALLDS.VPROM.KDATA,PROMTN 07.19.46 STC07991 ARC0542I SMALL DATA SET PACKING DATA SET 691 691 ARC0542I (CONT.) HSM.SMALLDS.VPROM1 IS FULL To make a quick fix I would like to define another of the ML1 vols as a SDSP with a SMALLDS. I am am able to create the cluster but I need to create a dummy entry. This is where I am stuck. Could anybody please tell me how I can go about doing this? Thank You all for your attention to this request. - Be smarter than spam. See how smart SpamGuard is at giving junk email the boot with the All-new Yahoo! Mail -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html - Ask a question on any topic and get answers from real people. Go to Yahoo! Answers. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Fw: COBOL Functions
On 24 Jul 2007 00:50:49 -0700, in bit.listserv.ibm-main you wrote: Or, write your COBOL function as OO COBOL function. Then, you have a whole object to give and take than just a few native arguments. I spent a month trying to compile run OO CoBOL on the mainframe before giving up a couple of years ago. Not like on the PC. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFHSM QUESTION : CREATIN SDSP (SMALLDS)
I encountered a similar situation a couple of years ago -- found that our SDSP datasets were defined (in 1996) with secondary allocation quantity greater than zero; SDSP dataset(s) had never been re-org'ed, and had reached max 123 extents. Also found statement that SDSP should have secondary allocation = ZERO! This is with OS390.210; might be different with more modern systems. Better check your documentation. I reallocated with ZERO! secondary, and inplemented regular re-orgs. No more problems. On Tue, 24 Jul 2007 13:20:22 -0400, esmie moo [EMAIL PROTECTED] wrote: David, I looked at the SYS1.SAMPLIB(ARCSTRST) which had the define cluster. Thanks for pointing it out to me. I had missed that. O'Brien, David W. (NIH/CIT) [C] [EMAIL PROTECTED] wrote: Esmie, See SYS1.SAMPLIB(ARCSTRST) look for ALLOSDSP. Better yet see if you have HSM.SAMPLE.CNTL (There is probably a HLQ in front of that name). Once you've defined and primed your SDSP, issue an addvol for that volume with the SDSP parameter. However the message you received does NOT mean you can't migrate. It merely means that this dataset received a rc 37 when it tried to migrate. If you are running Intervalmigration then it will probably be migrated by the time you read this. You might want to export/import your existing SDSPs rather than creating more of them. Like any VSAM KSDS they need to be re- organized periodically to eliminate CA and CI splits and reclaim deleted space. The fact that they full does not stop migration from taking place. From: esmie moo [mailto:[EMAIL PROTECTED] Sent: Tue 7/24/2007 11:36 AM To: IBM-MAIN@BAMA.UA.EDU Subject: DFHSM QUESTION : CREATIN SDSP (SMALLDS) Good Day Gentle Readers, I am seeking your expert advice. We have a problem with our ML1 migrate vols. We are unable to migrate to ML1 because of the following reasons: ARC1001I HOPER.TTOC.LIST1 MIGRATE FAILED, RC=0037, REAS= ARC1237I NO SPACE FOR MIGRATION COPY I checked the STC and I found the following: HSM.SMALLDS.VPROM1,VHSM.SMALLDS.VPROM.KDATA,PROMTN 07.19.46 STC07991 ARC0542I SMALL DATA SET PACKING DATA SET 691 691 ARC0542I (CONT.) HSM.SMALLDS.VPROM1 IS FULL To make a quick fix I would like to define another of the ML1 vols as a SDSP with a SMALLDS. I am am able to create the cluster but I need to create a dummy entry. This is where I am stuck. Could anybody please tell me how I can go about doing this? Thank You all for your attention to this request. - -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: KEY8 CSA: Pro/JCL and Info/XE
On Fri, 20 Jul 2007 12:03:16 -0400, Jim Mulder wrote: The default was changed to ALLOWUSERKEYCSA(NO) in z/OS 1.9. Now I've got some work to do. Hopefully there's a recommendation and procedure to check for this prior to making the jump ??? Something non-catastrophic that doesn't require an IPL to get out of ??? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: KEY8 CSA: Pro/JCL and Info/XE
Dave Kopischke wrote: On Fri, 20 Jul 2007 12:03:16 -0400, Jim Mulder wrote: The default was changed to ALLOWUSERKEYCSA(NO) in z/OS 1.9. Now I've got some work to do. Hopefully there's a recommendation and procedure to check for this prior to making the jump ??? Something non-catastrophic that doesn't require an IPL to get out of ??? SET DIAG=xx -- Edward E Jaffe Phoenix Software International, Inc 5200 W Century Blvd, Suite 800 Los Angeles, CA 90045 310-338-0400 x318 [EMAIL PROTECTED] http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PSI MIPS
On 24 Jul 2007 04:40:00 -0700, in bit.listserv.ibm-main you wrote: a lot of stuff written for mainframe involves business critical dataprocessing ... which is significantly more effort than a standard application. our rule-of-thumb has been that to take a well-tested, well-debugged application and turn it into business critical operation takes 4-10 times the original total effort (whether it is mainframe or not). In fact, mainframe operations tends to have some services that makes turning stuff into business critical operation easier (i.e. compared to having to invent stuff on some of the other platforms). Trouble is, customers see this type of statistic and associate it with the mainframe, not the application. Vendors selling applications on *nix machines are careful not to disabuse them of that notion. Or are they right and us wrong?Certainly lots of companies get by with the lesser rigor of non-frame programs. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
I have CBT471.FILE093 and it contains OFFLOADW and PDSLOADW. That basically the same? -unsnip- Try this: 1. Use the REVIEW command processor from the CBT tape, with the OFFLOAD subcommand, to create the flat file. 2. Do whatever edit(s) you need to do. 3. Use the PDSLOAD batch processor, also from the CBT tape, to re-create the PDS. This will also save your ISPF stats. -- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is a page protected?--how to determine
In a message dated 7/24/2007 11:14:10 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: Because the fetch and the store are separated in time. Another CPU or an I/O operation can store into the byte *after* your CPU fetches the byte but *before* your CPU stores the byte. The other CPU update will be wiped out by your CPU subsequent store into the byte. Very clear. Thanks for the enlightenment. Bill Fairchild Plainfield, IL ** Get a sneak peek of the all-new AOL at http://discover.aol.com/memed/aolcom30tour -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Suggestions for New Laptop.
On 23 Jul 2007 17:05:35 -0700, [EMAIL PROTECTED] (Ed Gould) wrote: There is an option in SAFARI to imitate IE if you are desperate enough. I have (I am using SAFARI) run across pages that were coded *ONLY* to work in IE. Usually I write the name of the company down and then boycott their products. Sometimes if I am extremely inconvenienced I will write to WEB author. Unfortunetly those sites don't exist all that much. Sometimes they don't need it to *work* like IE, only that it is identified as IE.Opera has long defaulted to lie that it is IE. The interesting thing about this is that Web Masters use that statistic to say that they don't need to support other browsers. One such Web Master is the author of this page: http://www.csgnetwork.com/golfclubdistancecalce.html I haven't tried it yet in Safari, but it won't work with Firefox on Windows. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
Earnie Allen of the IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 07/24/2007 12:53:14 PM: I have CBT471.FILE093 and it contains OFFLOADW and PDSLOADW. That basically the same? Yes, the W suffix was added to the source code member to denote wide record (80 bytes) support. You can linkedit the module as NAME OFFLOAD(R) if you desire. Regards, John K -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rotational Positional Sensing (RPS)
Using a sector number of x'00' effectively disabled RPS on devices that did care. Edward Jaffe wrote: Richards.Bob wrote: Do you know of any DASD subsystem that does not publish RPM information? I thought not. They still care. grin But kidding aside, I would suspect the last time it really mattered it would be a real 3990-3390 SLED. Am I missing something in your question here? I assume RPS sector numbers are *ignored* for ESS and newer devices. But, the IBM documentation does not confirm my assumption. Rather, they still fully document the RPS factors that are returned, how to calculate the sector value, etc. I noticed the tuning Redbook said that RPS delays cannot occur on ESS. But, says nothing about what, if anything, the sector number you (are expected to?) provide might be used for. Setting the sector number to x'FF' in the ECKD locate record parameter list disables the use of RPS. I'd like to see us do that for all modern DASD devices. -- Chris Langford, Cestrian Software: Consulting services for: VM, VSE, MVS, z/VM, z/OS, OS/2, P/3x0 etc. z/FM - A toolbox for VM MVS at http://zfm.cestrian.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Tools for Validating COBOL Source
On 24 Jul 2007 at 05:05, concerning Tools for Validating COBOL
Source, Lizette Koehler [EMAIL PROTECTED] wrote to IBM-Main:
[snip] a programmer stated that the PERFORM THRU
EXIT was not functioning [snip] I felt it was a missing IF
END-IF combo. [snip]
So, does anyone know of a tool that can go thru COBOL code and provide
a basic mismatch for do loops or IF END-IFs or PERFORM THRU?
Lizette: One of the newer items shown in the Cobol compiler listing
('tween the generated line # source code) is the nesting level of
the statement. Check the entry for the Perform End statements for
matching values. I'd also check to make sure all intervening lines
have nesting levels GE the Perform ie. no pre-mature returns to a
previous level.
ps. make sure there are no Sections in the mix as it changes the
balance of power.
-- signature = 6 lines follows --
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada
telephone:1 613 562 5800 x4585 fax:1 613 562 5161
mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee
How *do* you plan for something like that? Guardian Bob, Reboot
For every action, there is an equal and opposite criticism.
Systems Programming: Guilty, until proven innocent John Norgauer
2004
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rotational Positional Sensing (RPS)
In a message dated 7/24/2007 1:12:43 P.M. Central Daylight Time, [EMAIL PROTECTED] writes: Using a sector number of x'00' effectively disabled RPS on devices that did care. Not true. It forces the controller to position the track at index point, the very beginning of the track. A sector value of X'FF' is the only value that causes the controller to bypass setting an angular position. Of course, this could also be bypassed by not having a set sector command or a locate record command with a sector value of X'FF', but then you defeat the original intended purpose of RPS. Bill Fairchild Plainfield, IL ** Get a sneak peek of the all-new AOL at http://discover.aol.com/memed/aolcom30tour -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: KEY8 CSA: Pro/JCL and Info/XE
On Tue, 24 Jul 2007 12:47:25 -0500, Dave Kopischke [EMAIL PROTECTED] wrote: On Fri, 20 Jul 2007 12:03:16 -0400, Jim Mulder wrote: The default was changed to ALLOWUSERKEYCSA(NO) in z/OS 1.9. Now I've got some work to do. Hopefully there's a recommendation and procedure to check for this prior to making the jump ??? Something non-catastrophic that doesn't require an IPL to get out of ??? You can use do it with a monitor like MXI (very easy using MXI) or use IPCS. Check the archives. You can implement and backout via SET DIAG=xx. If you are already running z/OS 1.8 you can do it now. Even before z/OS 1.8 there was a trap to do it (unsupported). Again, check the archives. Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/ 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
I have found copies in-shop of OFFLMOD and REVLMOD (from File134, I would imagine) and they have fairly recent linkedit dates. Perhaps these will assist in the project. Earnie Allen Senior Systems Programmer MVS Systems Software WORLDSPAN, LP Phone: 404-322-2799 FAX: 404-322-4653 E-Mail: [EMAIL PROTECTED] Remember: It takes teamwork to make the dream work. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rotational Positional Sensing (RPS)
Actually x'00' disconnects until position is just before index point so the following search Id starts with index point count at 1, maximum scan for the Id will be one revolution till next time index point is detected. Using x'FF' will not disconnect and search id starts at current position which could be just after index point so maximum rotation could be almost two revolutions till index point is detected twice. (IBM Mainframe Discussion List) wrote: In a message dated 7/24/2007 1:12:43 P.M. Central Daylight Time, [EMAIL PROTECTED] writes: Using a sector number of x'00' effectively disabled RPS on devices that did care. Not true. It forces the controller to position the track at index point, the very beginning of the track. A sector value of X'FF' is the only value that causes the controller to bypass setting an angular position. Of course, this could also be bypassed by not having a set sector command or a locate record command with a sector value of X'FF', but then you defeat the original intended purpose of RPS. Bill Fairchild Plainfield, IL ** Get a sneak peek of the all-new AOL at http://discover.aol.com/memed/aolcom30tour -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html .. For: [EMAIL PROTECTED] -- Chris Langford, Cestrian Software: Consulting services for: VM, VSE, MVS, z/VM, z/OS, OS/2, P/3x0 etc. z/FM - A toolbox for VM MVS at http://zfm.cestrian.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
--snip--- What does that REVIEW command processor do? ---unsnip-- It's basically a PDS browser, started from a command line. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
---snip I have found copies in-shop of OFFLMOD and REVLMOD (from File134, I would imagine) and they have fairly recent linkedit dates. Perhaps these will assist in the project. -unsnip--- Only if you're processing load modules. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rotational Positional Sensing (RPS)
In a message dated 7/24/2007 1:43:48 P.M. Central Daylight Time, [EMAIL PROTECTED] writes: Actually x'00' disconnects until position is just before index point so the following search Id starts with index point count at 1, maximum scan for the Id will be one revolution till next time index point is detected. Using x'FF' will not disconnect and search id starts at current position which could be just after index point so maximum rotation could be almost two revolutions till index point is detected twice. All correct. Whether a disconnect occurs or not, and how many revolutions are the maximum search, RPS is not disabled for a sector value of X'00' and an angular position is established very near index point. No angular position is established if the value is X'FF', and the track's angular position is wherever it happens to be at that instant. How much rotation occurs after the angular positioning either occurs or is ignored depends on where the track is positioned, the next command, and what is on the track. The original intent of RPS was to disconnect until some point just before where the needed record was expected to be, then reconnect, thus minimizing the connected search time while maximizing the disconnect time which would allow other running channel programs to use the same channel. X'FF' does not cause a disconnect because a disconnect is not needed because there is no rotation needed to get to where the needed record is expected to be because wherever the track is at that instant is where the record is expected. Bill Fairchild Plainfield, IL ** Get a sneak peek of the all-new AOL at http://discover.aol.com/memed/aolcom30tour -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
A. I've used that one. Alias 'REV'.. Real handy ... especially for VSAM. How does it work in conjunction with OFFLMOD/REVLMOD? Earnie Allen Senior Systems Programmer MVS Systems Software WORLDSPAN, LP Phone: 404-322-2799 FAX: 404-322-4653 E-Mail: [EMAIL PROTECTED] Remember: It takes teamwork to make the dream work. Rick Fochtman [EMAIL PROTECTED] T To Sent by: IBM IBM-MAIN@BAMA.UA.EDU Mainframe cc Discussion List [EMAIL PROTECTED] Subject .EDU Re: PDS to SEQ and back to PDS 07/24/2007 02:58 PM Please respond to IBM Mainframe Discussion List [EMAIL PROTECTED] .EDU --snip--- What does that REVIEW command processor do? ---unsnip-- It's basically a PDS browser, started from a command line. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS to SEQ and back to PDS
Ooops makes sense. Earnie Allen Senior Systems Programmer MVS Systems Software WORLDSPAN, LP Phone: 404-322-2799 FAX: 404-322-4653 E-Mail: [EMAIL PROTECTED] Remember: It takes teamwork to make the dream work. Rick Fochtman [EMAIL PROTECTED] T To Sent by: IBM IBM-MAIN@BAMA.UA.EDU Mainframe cc Discussion List [EMAIL PROTECTED] Subject .EDU Re: PDS to SEQ and back to PDS 07/24/2007 03:01 PM Please respond to IBM Mainframe Discussion List [EMAIL PROTECTED] .EDU ---snip I have found copies in-shop of OFFLMOD and REVLMOD (from File134, I would imagine) and they have fairly recent linkedit dates. Perhaps these will assist in the project. -unsnip--- Only if you're processing load modules. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
RCFs (was Valid hexadecimal (was: EBCDIC to HEX translation in Assembler?))
On Tue, 24 Jul 2007 11:04:35 -0500, Paul Gilmartin [EMAIL PROTECTED] wrote: ... Minor chide: It is too bad that folks take their valuable time on ibm- main Cf. the Heresy thread. Ah, but that thread allowed us to streach our pedantry muscles, an invaluable service for system programmers. ... Chiding accepted and RCF submitted ... ... I've noticed that some recent IBM manuals (maybe only Tivoli manuals, but still IBM) no longer include the RCF or any electronic equivalent. Is there an IBM-wide RCF (where F now stands for function) that can be used for those manuals not providing their own? If so, I've not found it (but haven't searched much, either). Pat O'Keefe -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: KEY8 CSA: Pro/JCL and Info/XE
On Tue, 24 Jul 2007 13:28:52 -0500, Mark Zelden [EMAIL PROTECTED] wrote: You can use do it with a monitor like MXI (very easy using MXI) or use IPCS. Check the archives. So I searched the archives... and I couldn't find anything on using IPCS to do this (cookbook approach). So what would one do if they didn't have MXI or Omegamon CSA monitor etc.? Here is what I did... but not being an IPCS expert, I don't know if there is an easier way: Start IPCS session (active or dump) IP VERBX VSMDATA Do a F 'KEY 8' Look for DATA FOLLOWS FOR CSA SUBPOOL nnn, KEY 8' Look at FQE(s) following DQE(s) Add AREA + SIZE to get address If no FQE, address is AREA in DQE (owner gone in some cases) Split screen, start another IPCS session IP VERBX VSMDATA 'OWNCOMM DETAIL SORTBY(ADDR) CONTENTS(NO)' Find job name at the address from above Repeat for all key 8 found in VERBX VSMDATA report Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/ 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Suggestions for New Laptop.
Firefox has an add-in called IE Tab which will open a URL with IE as the rendering engine. It works with Windows Update and other IE-oriented pages flawlessly. Cheers, Steve Samson [EMAIL PROTECTED] wrote: On 23 Jul 2007 17:05:35 -0700, [EMAIL PROTECTED] (Ed Gould) wrote: There is an option in SAFARI to imitate IE if you are desperate enough. I have (I am using SAFARI) run across pages that were coded *ONLY* to work in IE. Usually I write the name of the company down and then boycott their products. Sometimes if I am extremely inconvenienced I will write to WEB author. Unfortunetly those sites don't exist all that much. Sometimes they don't need it to *work* like IE, only that it is identified as IE.Opera has long defaulted to lie that it is IE. The interesting thing about this is that Web Masters use that statistic to say that they don't need to support other browsers. One such Web Master is the author of this page: http://www.csgnetwork.com/golfclubdistancecalce.html I haven't tried it yet in Safari, but it won't work with Firefox on Windows. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: KEY8 CSA: Pro/JCL and Info/XE
For the first part, IP VERBX VSMDATA 'GLOBal SUMMary' followed by F '/ 8' might be easier to deal with. Bob Mark Zelden wrote: ... So I searched the archives... and I couldn't find anything on using IPCS to do this (cookbook approach). So what would one do if they didn't have MXI or Omegamon CSA monitor etc.? Here is what I did... but not being an IPCS expert, I don't know if there is an easier way: Start IPCS session (active or dump) IP VERBX VSMDATA Do a F 'KEY 8' Look for DATA FOLLOWS FOR CSA SUBPOOL nnn, KEY 8' Look at FQE(s) following DQE(s) Add AREA + SIZE to get address If no FQE, address is AREA in DQE (owner gone in some cases) Split screen, start another IPCS session IP VERBX VSMDATA 'OWNCOMM DETAIL SORTBY(ADDR) CONTENTS(NO)' Find job name at the address from above Repeat for all key 8 found in VERBX VSMDATA report -- 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
