*IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED
Hi, One of my lpar is is suffering from *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED I notices that the DB2 STC are ended with : IEF352I ADDRESS SPACE UNAVAILABLE I'm familiar with the option to start AS with REUSASID=YES but DB2 isn't start with the 'start' command and i don't know how to implement this with DB2 subsys and if it's possible. is DB2 STCs always leave a AS unreausable ? or maybe there is somthing I can do to avoid this. the reason I asking it , is beacause i would like to avoid enlarge the RSVNONR . -- best regards, matan cohen MF System Administrator. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF Point and Shoot
or this... )PROC VAR1 = ZCMD ... )PNTS FIELD(ZPS1) VAR(ZCMD) VAL(1) Regards, John K From: michealbutz michealb...@optonline.net To: IBM-MAIN@bama.ua.edu Date: 03/19/2011 09:45 PM Subject: Re: ISPF Point and Shoot Tried that doesn't seem to work -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John P Kalinich Sent: Saturday, March 19, 2011 8:30 AM To: IBM-MAIN@bama.ua.edu Subject: Re: ISPF Point and Shoot Remove the ampersand in the VAR field. )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) Regards, John K From: michealbutz michealb...@optonline.net To: IBM-MAIN@bama.ua.edu Date: 03/18/2011 05:26 PM Subject: ISPF Point and Shoot I can't seem to get Point and shoot right The attribute field that is defined needs to have PAS(ON) So for example @ TYPE(INPUT) PAS(ON) COLOR(WHITE) The )PNTS section defines the value to be placed in the point and shoot field )BODT Point and shoot field == @field )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) So if the user cursor selects the area where field is located a value of 1 will be placed variable var1 Excepts when I do a say ' var1 = ' var1 var1 value is not 1 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED
The most common reason for DB2 address spaces to be marked non-reusable these days is that they have a cross-memory bind to the RRS address space. You *could* probably relieve the shortage by stopping and re-starting the RRS address space - however there are implications to doing this while you have active workload that could be using RRS services. Do you shutdown your DB2 subsystems on a regular basis? If so - maybe you need to consider if you still need to do this. The more often you shutdown DB2, the more chance you have of chewing up the ASVT slots. Rob Scott Lead Developer Rocket Software 275 Grove Street * Newton, MA 02466-2272 * USA Tel: +1.617.614.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Matan Cohen Sent: 21 March 2011 10:23 To: IBM-MAIN@bama.ua.edu Subject: *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED Hi, One of my lpar is is suffering from *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED I notices that the DB2 STC are ended with : IEF352I ADDRESS SPACE UNAVAILABLE I'm familiar with the option to start AS with REUSASID=YES but DB2 isn't start with the 'start' command and i don't know how to implement this with DB2 subsys and if it's possible. is DB2 STCs always leave a AS unreausable ? or maybe there is somthing I can do to avoid this. the reason I asking it , is beacause i would like to avoid enlarge the RSVNONR . -- best regards, matan cohen MF System Administrator. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
DB2 Restart Frequency - was Re: *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED
Rob, I was going to ask the same question: About the necessity of (probably daily) restarting of DB2. There was a time - ten years or so ago - when a substantial minority DID restart DB2 nightly. Even with the Virtual Storage crunches going on it seemed a not-so-good idea. An example of why would be need to (re)prime buffer pools, EDM Pool etc. I'm interested in what people people do nowadays. I have a view but my customer set may be unusual. :-) Thanks, Martin Martin Packer, Mainframe Performance Consultant, zChampion Worldwide Banking Center of Excellence, IBM +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter / Facebook IDs: MartinPacker Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DB2 Restart Frequency - was Re: *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED
Martin Packer pisze: Rob, I was going to ask the same question: About the necessity of (probably daily) restarting of DB2. There was a time - ten years or so ago - when a substantial minority DID restart DB2 nightly. Even with the Virtual Storage crunches going on it seemed a not-so-good idea. An example of why would be need to (re)prime buffer pools, EDM Pool etc. I'm interested in what people people do nowadays. I have a view but my customer set may be unusual. :-) IMHO it is contrary to idea of 24/7/365 availability ;-) My DB2's are restarted every machine or system change or a few times more. -- 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 16.07.2010 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.248.328 zotych. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PSAAOLD question - when is it updated?
No DU-AL? There is a DU-AL, just not one that is associated with the work unit that was interrupted, and this one does not have ALET=2 set up. Then SSAR to home and ALET 1 (hardware) will do the job. Yes it will. Is that easier than SAC 768 ... SAC 0 if your code is in common storage? Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: fopen and CICS
On Sat, 19 Mar 2011 06:09:31 -0500, John McKown joa...@swbell.net wrote: I'm not a expert, but I'd look at two possibilities. Neither am I, but I did a few experiments a couple of years ago. Another possibility, but more difficult to implement, is to continue to use your UNIX code. This can be done in CICS, but only in what is called an Open Transaction Environment (OTE) or OPENAPI. This environment runs the code on a separate TCB from the normal quasi-reentrant TCB (QR) that most CICS programmers are used to. This requires the program to be written to be threadsafe, which restricts which EXEC CICS functions can be used. I do believe this is not true. One can use any EXEC CICS command, threadsafe or not, in a threadsafe program. CICS will switch back to the QR TCB when it needs to execute a non-threadsafe command. And requires more careful coding of the program. Now, this is true. One has indeed to write threadsafe code. Just declaring a module threadsafe in the PCT will definitely not make it so... This being said, one can use the fopen, fread and fwrite functions in a CICS program. And one can do so on regular MVS datasets as well as on files in the hierarchical file system. There is however an issue when it comes to serialization... Indeed, any access to a given file by any given task may and will interfere with any access from any other task that wants to access the same file. And it is up to the developer to include the proper serialization within the application program. Now, if today you are using this technique in an MPP, then the serialization issue may already (partly) have been solved. Indeed, an MPP will also serve multiple transaction for different users, although, if my memory serves me right, it does this in a different way than CICS does. CICS dispatches work for different transactions running in parallel to a number of TCBs within the same region, where IMS will serially assign an MPP region to a transaction and complete that transaction before assigning the MPP to the next one. (Someone with a more fresh recollection than my 20+ years old experience with IMS can confirm this, please? Thanks!) Cheers, Jantje. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: fopen and CICS
Very true about the automatic switch to the QR TCB for a non-threadsafe CICS function. I guess I should have said that doing that switch is relatively expensive and so really needs to be avoided as much as possible. And I cannot remember exactly when the code switches back to the L8/L9 TCB from the QR TCB. You really don't want to do any nasty UNIX code on the QR TCB as it can greatly impact CICS responsiveness. I think the QR and L8/9 switching logic varies depending on the CICS release level and maybe even maintenance. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Jan MOEYERSONS Sent: Monday, March 21, 2011 7:04 AM To: IBM-MAIN@bama.ua.edu Subject: Re: fopen and CICS On Sat, 19 Mar 2011 06:09:31 -0500, John McKown joa...@swbell.net wrote: I'm not a expert, but I'd look at two possibilities. Neither am I, but I did a few experiments a couple of years ago. Another possibility, but more difficult to implement, is to continue to use your UNIX code. This can be done in CICS, but only in what is called an Open Transaction Environment (OTE) or OPENAPI. This environment runs the code on a separate TCB from the normal quasi-reentrant TCB (QR) that most CICS programmers are used to. This requires the program to be written to be threadsafe, which restricts which EXEC CICS functions can be used. I do believe this is not true. One can use any EXEC CICS command, threadsafe or not, in a threadsafe program. CICS will switch back to the QR TCB when it needs to execute a non-threadsafe command. And requires more careful coding of the program. Now, this is true. One has indeed to write threadsafe code. Just declaring a module threadsafe in the PCT will definitely not make it so... This being said, one can use the fopen, fread and fwrite functions in a CICS program. And one can do so on regular MVS datasets as well as on files in the hierarchical file system. There is however an issue when it comes to serialization... Indeed, any access to a given file by any given task may and will interfere with any access from any other task that wants to access the same file. And it is up to the developer to include the proper serialization within the application program. Now, if today you are using this technique in an MPP, then the serialization issue may already (partly) have been solved. Indeed, an MPP will also serve multiple transaction for different users, although, if my memory serves me right, it does this in a different way than CICS does. CICS dispatches work for different transactions running in parallel to a number of TCBs within the same region, where IMS will serially assign an MPP region to a transaction and complete that transaction before assigning the MPP to the next one. (Someone with a more fresh recollection than my 20+ years old experience with IMS can confirm this, please? Thanks!) Cheers, Jantje. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: EMC/RSA SecurID products hacked
There is only one way to compromise the OTP tokens and that is to get the seed used to generate the OTP codes. The compromise is permanent, for the entire lifetime of the token, as one can generate any OTP code. First of all, RSA should not have kept the seeds after the delivery of the tokens to the clients - there is no need to do so. Why did they store the seeds? Claiming to do so for helping client who misplace the seeds would be hilarious. That RSA probably does not have such a great network and system security would not be such a surprise, we have seen this before with Cisco, Microsoft and other players. One wouldn't dare to have a look at IBM, of course. We had clients looking into multiple factor authentication and we have always recommended staying away from tokens that come pre-programmed, with the secret seed burned in the factory (regardless if they come from USA or Guangdong). Pre-programmed tokens are as safe as their production facility and this could potentially be safe, but not verifiable, which in security means clearly unsafe. OTP tokens can be made secure and this can be easily achieved by programming the client's own seeds - it is however amazing how hard is to actually get such tokens, most of the known producers do not offer them. We have finally found one manufacturer that offers (not only on the web page and product catalog, but also has the product) customer programmable OTP tokens - it took us 4 months to get there. Costin --- On Fri, 3/18/11, john gilmore john_w_gilm...@msn.com wrote: From: john gilmore john_w_gilm...@msn.com Subject: EMC/RSA SecurID products hacked To: IBM-MAIN@bama.ua.edu Date: Friday, March 18, 2011, 2:30 PM EMC's RSA product SecurID, which some of your networks almost certainly use, has been hacked. An APT has, that is, been directed at RSA. What exactly has been compromised is unclear. RSA may not know; and even if it does it is, understandably, reluctant to say much. It has said that it is “confident that the information extracted does not enable a successful direct attack on any of our RSA SecurID customers.” In the two situations in which I have been asked for my opinion I have, however, suggested that much less confidence would be prudent, at least in the short term. RSA is not stupid about these things; and any breach of its own security was therefore the work of talented, dangerous people. RSA will be able to repair the damage done, but it is not clear just how soon it will be able to put any necessary countermeasures in place. John Gilmore Ashland, MA 01721-1817 USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FUZZY ABOUT SPILL VOLUMES
IMO, dfHSM pooling of tapes is a *BAD* idea(ADDVOL) . If you really need to segregate dfHSM tapes from the other tapes, use your tape management system to provide the appropriate scratch pool support. Check the values for SETSYS TAPEDELETION and SETSYS SELECTVOLUME. There will be several other SETSYS commands needed to complete the migration to tape manager scratch pooling. I don't know if you can get the recycle report to show only backup volumes, however, spill volume can also be recycled, so I would not exclude them. HTH, snip I am fuzzy about SPILL volumes. I checked the PRIMER doc and it is very not clear about what SPILL actually does, it says something to the effect that HSM moves older backup versions to other volumes or SPILL volumes. If I understand it correctly, HSM moves the DAY backup to SPILL and this is done via RECYCLE. My question is 2 fold. If I am running low on SPILL tapes should I need to add tapes to the SPILL Backup or to DAILY BACKUP i.e ADDVOL BKP002 UNIT(3590-1) BACKUP(SPILL) THRESHOLD(85) or ADDVOL BKP006 UNIT(3590-1) BACKUP(DAILY(1)) Also, I ran a report to check what BACKUP tapes are eligible for recycle - HSENDCMD RECYCLE DISPLAY BACKUP I noticed in the report it has both the BACKUP and SPILL VOLS. Is there a way of just getting the BACKUP volsers? I executed the report again for SPILL - HSENDCMD RECYCLE DISPLAY SPILL and the report only listed the SPIL vols. /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: MEMDSENQMGMT / S99DASUP
MEMDSENQMGMT and S99DASUP are independent, as you say. S99DASUP allows an authorized caller to suppress some of the accounting overhead associated with Allocation. It is intended for use with VSAM data sets, since VSAM records more information in its SMF records than Allocation and SMF, which makes the overhead of us maintaining the information pointless. MEMDSENQMGMT is associated with another feature in Allocation processing. The ALLOCxx parmlib member contains MEMDSENQMGMT keyword to allow an installation the ability to disable the feature, in case of odd interactions with ancient programs. Once enabled, though, a program must use the IEFDDSRV MODIFY FEATURE service to enable the feature for job step/ address space. Two levels of enablement may seem excessive, but with Allocation, we're learning that we can never know what programs have done to and with our data areas and allowing a programmer to choose to enable a feature may have effects that the installation needs to control. Regards, Steve Steven B. Jones z/OS BCP Development - Allocation/Scheduler/SMF -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Default ISPPROF
What populates the default userid.ISPF.ISPPROF? I've installed REVIEW and part of the directions are to copy REVPROF into your ISPPROF. I may have to do this for each existing user, but where can I add this so that any new users will have it automatically? -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF Point and Shoot
How about trying ... @ TYPE(PS) Dan -Original Message- From: michealbutz Sent: Friday, March 18, 2011 6:27 PM Newsgroups: bit.listserv.ibm-main Subject: ISPF Point and Shoot I can't seem to get Point and shoot right The attribute field that is defined needs to have PAS(ON) So for example @ TYPE(INPUT) PAS(ON) COLOR(WHITE) The )PNTS section defines the value to be placed in the point and shoot field )BODT Point and shoot field == @field )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) So if the user cursor selects the area where field is located a value of 1 will be placed variable var1 Excepts when I do a say ' var1 = ' var1 var1 value is not 1 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Default ISPPROF
Put a copy of REVPROF in any of the data sets attached to ISPTLIB. When a new user goes into REVIEW for the first time, ISPF sees they don't have a member called REVPROF in their ISPPROF data set, and so it searches for REVPROF in the ISPTLIB data sets. If it finds it, it copies it from there. If it doesn't find it, it copies the user's own ISRPROF member. HTH, Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 09:57:42 -0400 From: pacemainl...@gmail.com Subject: Default ISPPROF To: IBM-MAIN@bama.ua.edu What populates the default userid.ISPF.ISPPROF? I've installed REVIEW and part of the directions are to copy REVPROF into your ISPPROF. I may have to do this for each existing user, but where can I add this so that any new users will have it automatically? -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
COBOL calling C functions, run program under ispf and z/OS UNIX
Over on the mvs-oe list there was a thread about how to run a program under the z/OS UNIX shell. I was never quite clear what the OP was trying to accomplish so I finally just posted a COBOL program and how to run it. I was kinda' proud of the code because I think you'll find most COBOL programmers today pretty unfamiliar with a lot of points, so I wanted to post the code here in the hopes you will pass this on to your COBOL programmers - if you know any in your shop, just to show what's possible. Here's the post: Stephen, Well, I'm still not clear what you are after, but I thought it might be helpful in general to post a sample of running a program under the z/OS UNIX shell. First, I wrote a basic COBOL program, simply under ISPF 3.4, as a member in a PDS, then compiled and bound it into a load module library PDSE). The source code, member name APP2CO3, prompts the user for a file name (MVS file or HFS/zFS file), opens the file and reads and displays the first two lines from the file; not trivial but not earth shaking. Here's the code: process dynam xref(short) Identification division. Program-id. app2co3. * Copyright (c) 2004 by Steven H. Comstock Ver2 * COBOL program to dynamically obtain a file name and *display the first two lines in the file Environment division. Data division. Working-storage section. 01 File-stuff. 02 in-file pic s9(9) binary value 0. 02 rec-len pic s9(9) binary value 0. 02 norecspic s9(9) binary value 2. 02 read-mode pic x(15) value z'rb,type=record'. 01 in-data pic x(1000). 01 messages. 02 Entry-message pic x(20) value 'In app2co3 - Ver2'. 02pic x(2) value x'1500'. 02 Exit-message pic x(20) value 'Leaving app2co3'. 02pic x(2) value x'1500'. 02 msg-open-fail. 03pic x value x'15'. 03pic x(52) value 'Cannot open for reading.'. 03pic x(2) value x'1500'. 02 msg-open-good. 03pic x value x'15'. 03pic x(52) value 'File opened successfully.'. 03pic x(2) value x'1500'. 02 Line-1. 03pic x(27) value 'Enter the name of the file '. 03pic x(11) value 'to display.'. 03pic x(2) value x'1500'. 02 Line-2. 03pic x(52) value 'For HFS files, specify the full path name.'. 03pic x(2) value x'1500'. 02 Line-3. 03pic x(52) value 'For z/OS files, specify the name with 2 '. 03pic x(2) value x'1500'. 02 Line-4. 03pic x(52) value 'leading slashes, a single quote, the fully qualified'.d' 03pic x(2) value x'1500'. 02 Line-5. 03pic x(52) value 'name, then a single closing quote, for example:'. 03pic x(2) value x'1500'. 02 Line-6. 03pic x(52) value ' //''stnt329.train.library(inputcs)'''. 03pic x(2) value x'1500'. 02 Line-7. 03 pic x value x'15'. 03 pic x(19) value z'Resulting name: %s'. 02 Bytes-line. 03 pic x(12) value 'Bytes read ='. 03 no-bytes pic zz9. 03 pic x(2) value x'1500'. 02 Data-line. 03 pic x(9) value 'Data = %s'. 03 pic x(2) value x'1500'. 01 line-in pic x(120) value spaces. 01 in-pat pic x(5)value z'%s'. procedure division. mainline. call 'printf' using entry-message call 'printf' using Line-1 call 'printf' using Line-2 call 'printf' using Line-3 call 'printf' using Line-4 call 'printf' using Line-5 call 'printf' using Line-6 move all x'00' to line-in call 'scanf' using in-pat, line-in call 'printf' using Line-7, line-in call 'fopen' using line-in, read-mode returning in-file if in-file 0 call 'printf' using msg-open-good perform read-rec norecs times call 'fclose' using by value in-file else call 'printf' using msg-open-fail end-if call 'printf' using exit-message goback. read-rec. move all x'00' to in-data call 'fread' using in-data, by value 1, length of in-data, in-file returning rec-len if rec-len = 0 continue else move rec-len to
Re: Initial Capping
Yes, these are the only 2 LPARs running and we limit the MSUs to save on software costs. If we remove the Initial Capping, will the LPARs still be able to go beyond the Defined Capacity without WLM trying to enforce the 4HRA? Thanks. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of zSeries Systems Programmer Sent: Friday, March 18, 2011 8:34 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Initial Capping Are these the only two LPARs on the z9 BC and if so, are you capping due to software cost? If they are the only LPARs on the machine and you don't have software requirements, I would not do either hard cap or soft cap. Just put the largest percentage to your production system and let it go from there. Then both will get as much as they can when the box is not 100% and when 100%, your production will be protected. The initially capping is a hardcap as you stated which means that it will NOT go above the 80% (based on these being the only two LPARs) but also have a defined capacity of 10. If you want defined capacity (4 hour rolling limit/softcap), then remove the initial-capping and use defined capacityHowever DON'T code zero. If you want production to have everything it can get and hold the test to 2 MSUs 4 hour rolling, define PRODLPAR with the 800 weight only and the TESTLPAR with 200 weight and defined capacity of 2. zSeries Sysprog On Fri, Mar 18, 2011 at 5:24 PM, Vinson Lee v...@sdccd.edu wrote: We have a Z9 BC with one CPU and recently went back to hard capping from Group Capacity because our production system started to suffer when WLM started to enforce the MSU limit after 4 hours on a peak day. Before Group Capacity, the production system had no problem handling the peak load and was able to use a few MSUs above its defined capacity with no slowdown after 4 hours. Here are our prior settings: Group Capacity=11 PRODLPAR initial-capping=No CPU-weight=800 Defined-Capacity=0 WLM=No TestLPAR initial-capping=No CPU-weight=200 Defined-Capacity=4 WLM=No Here are our current settings: PRODLPAR initial-capping=Yes CPU-weight=800 Defined-Capacity=10 WLM=No TestLPAR initial-capping=Yes CPU-weight=200 Defined-Capacity=2 WLM=No The Test LPAR normally uses 1 MSU but needs more when there is testing being performed. The reason I'd like to uncheck 'Initial Capping' is to allow the LPARs to go beyond their 'Initial Weight' if the other LPARs are not busy. We got the impression from SHARE that 'Initial Capping' had to be checked to allow the LPAR to use the 'free' MSUs beyond the Defined Capacity. But we don't want to do this if it means being unable to take advantage of the 'free' MSUs or if it means WLM will start enforcing the 4 hour rolling average MSU limit. Will unchecking 'Initial Capping' still allow the LPARs to go a little bit beyond their Defined Capacity without WLM stepping in and trying to enforce the 4 hour rolling average MSU limit? Thanks. Vince -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED
thanks Rob, I familiar with stoping the RRS . we have a weekly process which shutdown the DB2 subsystem for the DFDSS DASD backup. there is no work done on the DB2 so it's not consider as a down time for us. beside this weekly backup we are also face (from time to time) reasons which force us to start the DB2 . there are more then 3 DB2 subsystem - and this the reason the ASVT are running out. On Mon, Mar 21, 2011 at 1:13 PM, Rob Scott rsc...@rocketsoftware.comwrote: The most common reason for DB2 address spaces to be marked non-reusable these days is that they have a cross-memory bind to the RRS address space. You *could* probably relieve the shortage by stopping and re-starting the RRS address space - however there are implications to doing this while you have active workload that could be using RRS services. Do you shutdown your DB2 subsystems on a regular basis? If so - maybe you need to consider if you still need to do this. The more often you shutdown DB2, the more chance you have of chewing up the ASVT slots. Rob Scott Lead Developer Rocket Software 275 Grove Street * Newton, MA 02466-2272 * USA Tel: +1.617.614.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Matan Cohen Sent: 21 March 2011 10:23 To: IBM-MAIN@bama.ua.edu Subject: *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED Hi, One of my lpar is is suffering from *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED I notices that the DB2 STC are ended with : IEF352I ADDRESS SPACE UNAVAILABLE I'm familiar with the option to start AS with REUSASID=YES but DB2 isn't start with the 'start' command and i don't know how to implement this with DB2 subsys and if it's possible. is DB2 STCs always leave a AS unreausable ? or maybe there is somthing I can do to avoid this. the reason I asking it , is beacause i would like to avoid enlarge the RSVNONR . -- best regards, matan cohen MF System Administrator. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- best regards, matan cohen MF System Administrator. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: One Pack RACF Anomaly
The yolk's on me (egg on my face) Grabbed an old RACF copy job and made the assumption it was current. It wasn't. Found right database and re-ran. Violas and cellos...we are there. (Slinking away) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Default ISPPROF
Hmm. REVIEW must do something weird. I move REVPROF into a library in the ISPTLIB search chain. Start REVIEW and it does not find the REVPROF. I did a DDLIST and MEMBER REVPROF and it does find it in the library in the ISPTLIB chain. I moved REVPROF into the users ISPF.ISPPROF and it works perfectly. On Mon, Mar 21, 2011 at 11:32 AM, Dave Salt ds...@hotmail.com wrote: Put a copy of REVPROF in any of the data sets attached to ISPTLIB. When a new user goes into REVIEW for the first time, ISPF sees they don't have a member called REVPROF in their ISPPROF data set, and so it searches for REVPROF in the ISPTLIB data sets. If it finds it, it copies it from there. If it doesn't find it, it copies the user's own ISRPROF member. HTH, Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 09:57:42 -0400 From: pacemainl...@gmail.com Subject: Default ISPPROF To: IBM-MAIN@bama.ua.edu What populates the default userid.ISPF.ISPPROF? I've installed REVIEW and part of the directions are to copy REVPROF into your ISPPROF. I may have to do this for each existing user, but where can I add this so that any new users will have it automatically? -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
RMM processing under z/OS 1.12
I recently upgraded from z/OS 1.10 to 1.12. I am receiving the following messages when running tape jobs. This didn't happen on 1.10. I've looked through the RMM 1.12 manuals and the migration documentation. I don't understand why this is happening. To get around the volume being rejected , I put RMM in warning mode. EDG4035I VOLUME 050011 REJECTED. VOLUME IS SCRATCH AND OUTPUT NOT TO FIRST FILE EDG4004I **WARNING** USE OF 050011 BY H12166, STEP15, SYSUT2 ONLY PERMITTED BECAUSE DFSMSrmm RUNNING IN WARNING MODE. This is the JCL that is running when I receive the warning messages. //STEP15 EXEC PGM=IEBGENER //SYSIN DD DUMMY //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN='IVE.CASEUSER.CART',DISP=SHR, // UNIT=580, // VOL=(,RETAIN,SER=(H12166,H12180,H1)), // LABEL=(2,SL) //SYSUT2 DD DSN='IVE.CASEUSER.CART', // DISP=(,KEEP,DELETE), // VOL=SER=050011, // LABEL=(2,SL), // UNIT=581 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
fact or fiction?
Will upgrading to z/OS 1.11 from 1.9 add more utilization to the CPU? We are two LPARs...one test and one production. John Norgauer Senior Systems Programmer Mainframe Technical Support Services University of California Davis Medical Center 2315 Stockton Blvd ASB 1300 Sacramento, Ca 95817 916-734-0536 SYSTEMS PROGRAMMING.. Guilty, until proven innocent !! JN 2004 Hardware eventually breaks - Software eventually works anon -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: creating mainframe bookmanager from pdf documents???
Works great, but it is slow when there are many/large PDFs in the directory. Is there some way to create a search index? -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Barry Merrill Sent: Friday, March 18, 2011 4:06 PM To: IBM-MAIN@bama.ua.edu Subject: Re: creating mainframe bookmanager from pdf documents??? You can search all pdf documents in a directory; open any pdf document and then use CTRL-SHIFT-F to open the SEARCH WINDOW that lets you select the directory and search all pdf's in that directory. Barry Merrill Herbert W. Barry Merrill, PhD President-Programmer ba...@mxg.com Merrill Consultants MXG Software 10717 Cromwell Drive Dallas TX 75229 214 351 1966 tel 214 350 3694 fax www.mxg.com technical: supp...@mxg.com admin: ad...@mxg.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Initial Capping
The initial capping is what sets a hardcap which will prevent the LPAR from going beyound that weight. The weight is calculated based on your active LPARs settings...not always 100% For example, if you have one LPAR weighted at 10 and the other at 1, then for the LPAR with 10 it would be 90.9% (10 / 11). If you have 90 and 10 then it would be 90% and so on. The Defined Capacity (softcap)is what WLM uses to enforce the 4 hour rolling average. This will allow the LPAR to go beyound its defined capacity, but only when the 4 hour average will still balance to what you have defined. For example, if you have a machine with 20 MSUs and you give the LPAR a defined capacity of 10, then it will only be able to use 50% of the box on the 4 hour average. If you are doing this just for software cost, the 4 hour average (softcap) is better than a hardcap. Just from your information below, I would set your production LPAR at a MSU rating that is 80% of your box and not do the hardcap unless 80% is really all you want. If you want it to be able to use more than that at a continued rate, you will need to increase that value, which can be done dynamically. Thanks, Craig Pace Vinson Lee v...@sdccd.edu Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 03/21/2011 11:35 AM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: Initial Capping Yes, these are the only 2 LPARs running and we limit the MSUs to save on software costs. If we remove the Initial Capping, will the LPARs still be able to go beyond the Defined Capacity without WLM trying to enforce the 4HRA? Thanks. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of zSeries Systems Programmer Sent: Friday, March 18, 2011 8:34 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Initial Capping Are these the only two LPARs on the z9 BC and if so, are you capping due to software cost? If they are the only LPARs on the machine and you don't have software requirements, I would not do either hard cap or soft cap. Just put the largest percentage to your production system and let it go from there. Then both will get as much as they can when the box is not 100% and when 100%, your production will be protected. The initially capping is a hardcap as you stated which means that it will NOT go above the 80% (based on these being the only two LPARs) but also have a defined capacity of 10. If you want defined capacity (4 hour rolling limit/softcap), then remove the initial-capping and use defined capacityHowever DON'T code zero. If you want production to have everything it can get and hold the test to 2 MSUs 4 hour rolling, define PRODLPAR with the 800 weight only and the TESTLPAR with 200 weight and defined capacity of 2. zSeries Sysprog On Fri, Mar 18, 2011 at 5:24 PM, Vinson Lee v...@sdccd.edu wrote: We have a Z9 BC with one CPU and recently went back to hard capping from Group Capacity because our production system started to suffer when WLM started to enforce the MSU limit after 4 hours on a peak day. Before Group Capacity, the production system had no problem handling the peak load and was able to use a few MSUs above its defined capacity with no slowdown after 4 hours. Here are our prior settings: Group Capacity=11 PRODLPAR initial-capping=No CPU-weight=800 Defined-Capacity=0 WLM=No TestLPAR initial-capping=No CPU-weight=200 Defined-Capacity=4 WLM=No Here are our current settings: PRODLPAR initial-capping=Yes CPU-weight=800 Defined-Capacity=10 WLM=No TestLPAR initial-capping=Yes CPU-weight=200 Defined-Capacity=2 WLM=No The Test LPAR normally uses 1 MSU but needs more when there is testing being performed. The reason I'd like to uncheck 'Initial Capping' is to allow the LPARs to go beyond their 'Initial Weight' if the other LPARs are not busy. We got the impression from SHARE that 'Initial Capping' had to be checked to allow the LPAR to use the 'free' MSUs beyond the Defined Capacity. But we don't want to do this if it means being unable to take advantage of the 'free' MSUs or if it means WLM will start enforcing the 4 hour rolling average MSU limit. Will unchecking 'Initial Capping' still allow the LPARs to go a little bit beyond their Defined Capacity without WLM stepping in and trying to enforce the 4 hour rolling average MSU limit? Thanks. Vince -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at
Re: fopen and CICS
Hi John, Any Program in CICS defined as Threadsafe will run on the OPEN TCBs (L8/L9 TCB). If the program makes a DB2 Call then it will run on the L8 TCB as the CICS/DB2 Exit is defined as CICSKey. If the Program makes a File Control call then it will run on the L9 TCB. The switching of TCBs L8/L9 to QR is as you say dependent on the program issuing a Non-Threadsafe call such as a Transient Data WriteQ command. Be careful as a DISPLAY statement issued out of COBOL will cause a switch from the Open TCB to the QR TCB, as this has a EXEC CICS WRITEQ TD command inside it, writing the message to CEEMSG. How it gets back to the Open TCB (L8/L9) from the QR, is dependent on how the program is defined. If it is defined as OPENAPI = YES, then CICS will switch back to the L9 TCB before resuming execution of the program. If the Program has OPENAPI = NO, then CICS will keep the Program on the QR TCB until a command is issued that forces it to the OPENAPI. OPENAPI = YES has another significant thing, in that any Program defined this way will begin on the L9 TCB. The problem arises in that if the program issues an EXEC CICS RECEIVE it will switch to the QR TCB to execute this. If the first command encountered is a DB2 Call, then CICS will switch this program to the L8 TCB. So unnecessary switching will take place. It is also worth recognizing that some LE functions cause a switch from the Open TCB to the QR TCB Colin Pearce -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of McKown, John Sent: Monday, March 21, 2011 8:20 PM To: IBM-MAIN@bama.ua.edu Subject: Re: fopen and CICS Very true about the automatic switch to the QR TCB for a non-threadsafe CICS function. I guess I should have said that doing that switch is relatively expensive and so really needs to be avoided as much as possible. And I cannot remember exactly when the code switches back to the L8/L9 TCB from the QR TCB. You really don't want to do any nasty UNIX code on the QR TCB as it can greatly impact CICS responsiveness. I think the QR and L8/9 switching logic varies depending on the CICS release level and maybe even maintenance. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Jan MOEYERSONS Sent: Monday, March 21, 2011 7:04 AM To: IBM-MAIN@bama.ua.edu Subject: Re: fopen and CICS On Sat, 19 Mar 2011 06:09:31 -0500, John McKown joa...@swbell.net wrote: I'm not a expert, but I'd look at two possibilities. Neither am I, but I did a few experiments a couple of years ago. Another possibility, but more difficult to implement, is to continue to use your UNIX code. This can be done in CICS, but only in what is called an Open Transaction Environment (OTE) or OPENAPI. This environment runs the code on a separate TCB from the normal quasi-reentrant TCB (QR) that most CICS programmers are used to. This requires the program to be written to be threadsafe, which restricts which EXEC CICS functions can be used. I do believe this is not true. One can use any EXEC CICS command, threadsafe or not, in a threadsafe program. CICS will switch back to the QR TCB when it needs to execute a non-threadsafe command. And requires more careful coding of the program. Now, this is true. One has indeed to write threadsafe code. Just declaring a module threadsafe in the PCT will definitely not make it so... This being said, one can use the fopen, fread and fwrite functions in a CICS program. And one can do so on regular MVS datasets as well as on files in the hierarchical file system. There is however an issue when it comes to serialization... Indeed, any access to a given file by any given task may and will interfere with any access from any other task that wants to access the same file. And it is up to the developer to include the proper serialization within the application program. Now, if today you are using this technique in an MPP, then the serialization issue may already (partly) have been solved. Indeed, an MPP will also serve multiple transaction for different users, although, if my memory serves me right, it does this in a different way
Re: Default ISPPROF
Does REVIEW run under an applid called REV? For example, do you start it by doing something like this: SELECT CMD(%REVIEW) NEWAPPL(REV) If so, it should use REVPROF as the profile. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 12:53:53 -0400 From: pacemainl...@gmail.com Subject: Re: Default ISPPROF To: IBM-MAIN@bama.ua.edu Hmm. REVIEW must do something weird. I move REVPROF into a library in the ISPTLIB search chain. Start REVIEW and it does not find the REVPROF. I did a DDLIST and MEMBER REVPROF and it does find it in the library in the ISPTLIB chain. I moved REVPROF into the users ISPF.ISPPROF and it works perfectly. On Mon, Mar 21, 2011 at 11:32 AM, Dave Salt ds...@hotmail.com wrote: Put a copy of REVPROF in any of the data sets attached to ISPTLIB. When a new user goes into REVIEW for the first time, ISPF sees they don't have a member called REVPROF in their ISPPROF data set, and so it searches for REVPROF in the ISPTLIB data sets. If it finds it, it copies it from there. If it doesn't find it, it copies the user's own ISRPROF member. HTH, Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 09:57:42 -0400 From: pacemainl...@gmail.com Subject: Default ISPPROF To: IBM-MAIN@bama.ua.edu What populates the default userid.ISPF.ISPPROF? I've installed REVIEW and part of the directions are to copy REVPROF into your ISPPROF. I may have to do this for each existing user, but where can I add this so that any new users will have it automatically? -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: One Pack RACF Anomaly
Daniel, Forest, meet trees. :-) If there's anybody on this list who won't admit to having done something similar, they either haven't been doing system work, or they're lying! I don't want to read a bunch of horror stories about others who have oopsed, just wanted to say glad you got it figured out, and that it was something simple. Rex -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Daniel McLaughlin Sent: Monday, March 21, 2011 11:51 AM To: IBM-MAIN@bama.ua.edu Subject: Re: One Pack RACF Anomaly The yolk's on me (egg on my face) Grabbed an old RACF copy job and made the assumption it was current. It wasn't. Found right database and re-ran. Violas and cellos...we are there. (Slinking away) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html The information contained in this e-mail may contain confidential and/or privileged information and is intended for the sole use of the intended recipient. If you are not the intended recipient, you are hereby notified that any unauthorized use, disclosure, distribution or copying of this communication is strictly prohibited. If you received this e-mail in error, please reply to sender and destroy or delete the message and any attachments. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Default ISPPROF
It's RV,'CMD(REVIEW)' Which made me look and find that there is an ALIAS REV, so I tried RV,'CMD(REV)' That didn't make it use the REVPROF either. On Mon, Mar 21, 2011 at 1:39 PM, Dave Salt ds...@hotmail.com wrote: Does REVIEW run under an applid called REV? For example, do you start it by doing something like this: SELECT CMD(%REVIEW) NEWAPPL(REV) If so, it should use REVPROF as the profile. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 12:53:53 -0400 From: pacemainl...@gmail.com Subject: Re: Default ISPPROF To: IBM-MAIN@bama.ua.edu Hmm. REVIEW must do something weird. I move REVPROF into a library in the ISPTLIB search chain. Start REVIEW and it does not find the REVPROF. I did a DDLIST and MEMBER REVPROF and it does find it in the library in the ISPTLIB chain. I moved REVPROF into the users ISPF.ISPPROF and it works perfectly. On Mon, Mar 21, 2011 at 11:32 AM, Dave Salt ds...@hotmail.com wrote: Put a copy of REVPROF in any of the data sets attached to ISPTLIB. When a new user goes into REVIEW for the first time, ISPF sees they don't have a member called REVPROF in their ISPPROF data set, and so it searches for REVPROF in the ISPTLIB data sets. If it finds it, it copies it from there. If it doesn't find it, it copies the user's own ISRPROF member. HTH, Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 09:57:42 -0400 From: pacemainl...@gmail.com Subject: Default ISPPROF To: IBM-MAIN@bama.ua.edu What populates the default userid.ISPF.ISPPROF? I've installed REVIEW and part of the directions are to copy REVPROF into your ISPPROF. I may have to do this for each existing user, but where can I add this so that any new users will have it automatically? -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FUZZY ABOUT SPILL VOLUMES
Allan, We have no choice in this matter. We inherited the client and they had pooling set up already. My question about adding volumes to the pool do I need to add it as BACKUP or SPILL? --- On Mon, 3/21/11, Staller, Allan allan.stal...@kbmg.com wrote: From: Staller, Allan allan.stal...@kbmg.com Subject: Re: FUZZY ABOUT SPILL VOLUMES To: IBM-MAIN@bama.ua.edu Received: Monday, March 21, 2011, 5:34 AM IMO, dfHSM pooling of tapes is a *BAD* idea(ADDVOL) . If you really need to segregate dfHSM tapes from the other tapes, use your tape management system to provide the appropriate scratch pool support. Check the values for SETSYS TAPEDELETION and SETSYS SELECTVOLUME. There will be several other SETSYS commands needed to complete the migration to tape manager scratch pooling. I don't know if you can get the recycle report to show only backup volumes, however, spill volume can also be recycled, so I would not exclude them. HTH, snip I am fuzzy about SPILL volumes. I checked the PRIMER doc and it is very not clear about what SPILL actually does, it says something to the effect that HSM moves older backup versions to other volumes or SPILL volumes. If I understand it correctly, HSM moves the DAY backup to SPILL and this is done via RECYCLE. My question is 2 fold. If I am running low on SPILL tapes should I need to add tapes to the SPILL Backup or to DAILY BACKUP i.e ADDVOL BKP002 UNIT(3590-1) BACKUP(SPILL) THRESHOLD(85) or ADDVOL BKP006 UNIT(3590-1) BACKUP(DAILY(1)) Also, I ran a report to check what BACKUP tapes are eligible for recycle - HSENDCMD RECYCLE DISPLAY BACKUP I noticed in the report it has both the BACKUP and SPILL VOLS. Is there a way of just getting the BACKUP volsers? I executed the report again for SPILL - HSENDCMD RECYCLE DISPLAY SPILL and the report only listed the SPIL vols. /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Default ISPPROF
Use the NEWAPPL(REV) parm to launch REVIEW, and then it will use the REVPROF profile. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 13:50:15 -0400 From: pacemainl...@gmail.com Subject: Re: Default ISPPROF To: IBM-MAIN@bama.ua.edu It's RV,'CMD(REVIEW)' Which made me look and find that there is an ALIAS REV, so I tried RV,'CMD(REV)' That didn't make it use the REVPROF either. On Mon, Mar 21, 2011 at 1:39 PM, Dave Salt ds...@hotmail.com wrote: Does REVIEW run under an applid called REV? For example, do you start it by doing something like this: SELECT CMD(%REVIEW) NEWAPPL(REV) If so, it should use REVPROF as the profile. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 12:53:53 -0400 From: pacemainl...@gmail.com Subject: Re: Default ISPPROF To: IBM-MAIN@bama.ua.edu Hmm. REVIEW must do something weird. I move REVPROF into a library in the ISPTLIB search chain. Start REVIEW and it does not find the REVPROF. I did a DDLIST and MEMBER REVPROF and it does find it in the library in the ISPTLIB chain. I moved REVPROF into the users ISPF.ISPPROF and it works perfectly. On Mon, Mar 21, 2011 at 11:32 AM, Dave Salt ds...@hotmail.com wrote: Put a copy of REVPROF in any of the data sets attached to ISPTLIB. When a new user goes into REVIEW for the first time, ISPF sees they don't have a member called REVPROF in their ISPPROF data set, and so it searches for REVPROF in the ISPTLIB data sets. If it finds it, it copies it from there. If it doesn't find it, it copies the user's own ISRPROF member. HTH, Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 09:57:42 -0400 From: pacemainl...@gmail.com Subject: Default ISPPROF To: IBM-MAIN@bama.ua.edu What populates the default userid.ISPF.ISPPROF? I've installed REVIEW and part of the directions are to copy REVPROF into your ISPPROF. I may have to do this for each existing user, but where can I add this so that any new users will have it automatically? -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FUZZY ABOUT SPILL VOLUMES
I have no absolute answer readily at hand. I suspect that the SETSYS TAPEDELETION is set such that tapes freed up by recycle are reused automatically, thus I would add the additional volumes as backup. However, RTFM for confirmation. snip We have no choice in this matter. We inherited the client and they had pooling set up already. My question about adding volumes to the pool do I need to add it as BACKUP or SPILL? /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Default ISPPROF
Thank you, Dave. That did the trick. On Mon, Mar 21, 2011 at 2:06 PM, Dave Salt ds...@hotmail.com wrote: Use the NEWAPPL(REV) parm to launch REVIEW, and then it will use the REVPROF profile. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 13:50:15 -0400 From: pacemainl...@gmail.com Subject: Re: Default ISPPROF To: IBM-MAIN@bama.ua.edu It's RV,'CMD(REVIEW)' Which made me look and find that there is an ALIAS REV, so I tried RV,'CMD(REV)' That didn't make it use the REVPROF either. On Mon, Mar 21, 2011 at 1:39 PM, Dave Salt ds...@hotmail.com wrote: Does REVIEW run under an applid called REV? For example, do you start it by doing something like this: SELECT CMD(%REVIEW) NEWAPPL(REV) If so, it should use REVPROF as the profile. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 12:53:53 -0400 From: pacemainl...@gmail.com Subject: Re: Default ISPPROF To: IBM-MAIN@bama.ua.edu Hmm. REVIEW must do something weird. I move REVPROF into a library in the ISPTLIB search chain. Start REVIEW and it does not find the REVPROF. I did a DDLIST and MEMBER REVPROF and it does find it in the library in the ISPTLIB chain. I moved REVPROF into the users ISPF.ISPPROF and it works perfectly. On Mon, Mar 21, 2011 at 11:32 AM, Dave Salt ds...@hotmail.com wrote: Put a copy of REVPROF in any of the data sets attached to ISPTLIB. When a new user goes into REVIEW for the first time, ISPF sees they don't have a member called REVPROF in their ISPPROF data set, and so it searches for REVPROF in the ISPTLIB data sets. If it finds it, it copies it from there. If it doesn't find it, it copies the user's own ISRPROF member. HTH, Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 09:57:42 -0400 From: pacemainl...@gmail.com Subject: Default ISPPROF To: IBM-MAIN@bama.ua.edu What populates the default userid.ISPF.ISPPROF? I've installed REVIEW and part of the directions are to copy REVPROF into your ISPPROF. I may have to do this for each existing user, but where can I add this so that any new users will have it automatically? -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark D Pace Senior Systems Engineer Mainline Information Systems -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at
Re: RMM processing under z/OS 1.12
I'm not understanding what is happening that you are questioning. Are you saying that volume 050011 is *not* a scratch tape, and you are wondering why RMM thinks it is? And that something similar is happening to every master tape you try to mod onto? Greg Shirey Ben E. Keith Company -Original Message- From: IBM Mainframe Discussion List On Behalf Of Richard Pinion Sent: Monday, March 21, 2011 12:02 PM I recently upgraded from z/OS 1.10 to 1.12. I am receiving the following messages when running tape jobs. This didn't happen on 1.10. I've looked through the RMM 1.12 manuals and the migration documentation. I don't understand why this is happening. To get around the volume being rejected , I put RMM in warning mode. EDG4035I VOLUME 050011 REJECTED. VOLUME IS SCRATCH AND OUTPUT NOT TO FIRST FILE -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
fact or fiction?
Will upgrading to z/OS 1.11 from 1.9 add more utilization to the CPU? IF so, how much? We are two LPARs...one test and one production. John Norgauer Senior Systems Programmer Mainframe Technical Support Services University of California Davis Medical Center 2315 Stockton Blvd ASB 1300 Sacramento, Ca 95817 916-734-0536 SYSTEMS PROGRAMMING.. Guilty, until proven innocent !! JN 2004 Hardware eventually breaks - Software eventually works anon -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: *IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED
On Mon, 21 Mar 2011 12:23:27 +0200 Matan Cohen matancohen...@gmail.com wrote: :Hi, :One of my lpar is is suffering from :*IEA061E REPLACEMENT ASID SHORTAGE HAS BEEN DETECTED :I notices that the DB2 STC are ended with : :IEF352I ADDRESS SPACE UNAVAILABLE :I'm familiar with the option to start AS with REUSASID=YES but DB2 isn't :start with the 'start' command and i don't know how to implement this with :DB2 subsys and if it's possible. :is DB2 STCs always leave a AS unreausable ? or maybe there is somthing I can :do to avoid this. :the reason I asking it , is beacause i would like to avoid enlarge the :RSVNONR . Much worse than that. Any address space that is a DB2 client cannot use a reusable ASID either. -- Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBOL calling C functions, run program under ispf and z/OS UNIX
Interesting code. I don't know that I like using C functions to OPEN and READ the file in COBOL. It seems to bypass some of the normal COBOL functionality that COBOL programmers would want. I'd likely use environment variable facility in the ASSIGN clause as documented: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR50/4.2.3.1 You could prompt the programmer for the dataset/file name the same way. I don't know if that is easier than just doing a CALL of BPX1RED. Use LE's CEEENV routine to set the environment variable (which is equivalent to what we think of as the DD name): http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA31B0/2.2.5.34 == I don't know exactly what the OP wanted either. But the question did raise one in my mind. Suppose that I have a batch program. In TSO, I can run the program by doing some ALLOCATE commands to allocate my files and then invoke my program using the CALL command. Without changing the program in any way (do to dynamic allocation or anything else), how can I run this same program from a UNIX shell prompt? For a pure COBOL program, I think the above can be done by replacing the ALLOCATE commands with export commands to define the environment variables (DD names) with the proper dataset names. If you need something like SYSIN or SYSPRINT to point to the UNIX shell input / output, I think you could do: export SYSIN='/dev/fd/0' export SYSPRINT='/dev/fd/1' The do your method with the chmod 1755 to a filename in the current directory which is the same as the program name in the PDS and export the name of the PDS in STEPLIB. But this wouldn't work in general, like for HLASM programs. -- John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: fact or fiction?
Will upgrading to z/OS 1.11 from 1.9 add more utilization to the CPU? IF so, how much? We are two LPARs...one test and one production. IBM (Canada) used to promise that CPU usage would not go up (and, maybe would go down) if you did not exploit any new function when you upgraded products. But, lately, I've found no such promise and no figures from IBM on anything to do with resource consumption for z/OS upgrades. I know this does not help much, but if you want to stay within supported levels, you do have to upgrade even if there's a cost. - Ted MacNEIL eamacn...@yahoo.ca -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: creating mainframe bookmanager from pdf documents???
IBM has a free Adobe plugin that provides Bookie-like searches of PDF files, provided that the proper indexes have been created by the PDF publisher. http://www-01.ibm.com/support/docview.wss?uid=swg27018852 In my experience, not all IBM manuals have been indexed. On Mon, Mar 21, 2011 at 13:10, Don Williams donb...@gmail.com wrote: Works great, but it is slow when there are many/large PDFs in the directory. Is there some way to create a search index? -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Barry Merrill Sent: Friday, March 18, 2011 4:06 PM To: IBM-MAIN@bama.ua.edu Subject: Re: creating mainframe bookmanager from pdf documents??? You can search all pdf documents in a directory; open any pdf document and then use CTRL-SHIFT-F to open the SEARCH WINDOW that lets you select the directory and search all pdf's in that directory. Barry Merrill Herbert W. Barry Merrill, PhD President-Programmer ba...@mxg.com Merrill Consultants MXG Software 10717 Cromwell Drive Dallas TX 75229 214 351 1966 tel 214 350 3694 fax www.mxg.com technical: supp...@mxg.com admin: ad...@mxg.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: my father passed away
I know it's off topic, but I'll pray for his soul. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Shai Hess Sent: Saturday, March 19, 2011 8:52 AM To: IBM-MAIN@bama.ua.edu Subject: my father passed away March 19, 2011 To all my friends in this forum. My father passed away. After long time of suffering, God give the OK to my father soul to leave his sick body and return to God. We will miss you dad. We will really going to miss you my dad. Shai -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html == This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to which they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBOL calling C functions, run program under ispf and z/OS UNIX
On 3/21/2011 1:21 PM, John McKown wrote: Interesting code. I don't know that I like using C functions to OPEN and READ the file in COBOL. It seems to bypass some of the normal COBOL functionality that COBOL programmers would want. Huh? What sort of functionality can't be used here? I'd likely use environment variable facility in the ASSIGN clause as documented: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR50/4.2.3.1 Yes, I know about using CEEENV or even 'putenv' to dynamically allocate data sets. I have versions of this code that just use 'display' and 'accept' and then use either putenv or ceeenv to set up an environment variable. But I like this example _because_ it uses C functions and works with either MVS files or HFS files with a minimum of fuss in the code and runs equally simply under ISPF and zOS UNIX. You could prompt the programmer for the dataset/file name the same way.I don't know if that is easier than just doing a CALL of BPX1RED. Use LE's CEEENV routine to set the environment variable (which is equivalent to what we think of as the DD name): http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA31B0/2.2.5.34 Actually, you need to use a little different syntax if you are using COBOL's dynamic allocation, checking if you have been passed an MVS name or an HFS file name; I find it a bit cumbersome. All my work with BPX1RED in COBOL has been with CGIs. == I don't know exactly what the OP wanted either. But the question did raise one in my mind. Suppose that I have a batch program. In TSO, I can run the program by doing some ALLOCATE commands to allocate my files and then invoke my program using the CALL command. Without changing the program in any way (do to dynamic allocation or anything else), how can I run this same program from a UNIX shell prompt? Well, you can use the techniques included in the original post to have the shell look in STEPLIB, so under OMVS (or telnet if you prefer): === touch app2co3 === chmod 1755 app2co3 (you only need to do this once) then when you run have a shell script that issues tso allocate commands, exports STEPLIB to include the library where the program is, then simply run the program by naming it. (You need to ensure _BPX_SHAREAS is set to YES, also). For a pure COBOL program, I think the above can be done by replacing the ALLOCATE commands with export commands to define the environment variables (DD names) with the proper dataset names. If you need something like SYSIN or SYSPRINT to point to the UNIX shell input / output, I think you could do: export SYSIN='/dev/fd/0' export SYSPRINT='/dev/fd/1' The do your method with the chmod 1755 to a filename in the current directory which is the same as the program name in the PDS and export the name of the PDS in STEPLIB. But this wouldn't work in general, like for HLASM programs. COBOL programs can interact with the terminal user by: * DISPLAY and ACCEPT - under ISPF and the shell PL/I programs can interact with the terminal user by: * PUT and GET - under ISPF and the shell All LE-enabled programs can interact with the terminal user by: * printf and scanf - under ISPF and the shell All programs, LE-enabled or not, can interact with the terminal user by: * bpx1red and bpx1wrt, using fd0 for stdin and fd1 for stdout, but it doesn't work under ISPF I have examples of these scattered about many courses. -- John McKown -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our new tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: my father passed away
המקום ינחם אתכם בתוך שאר אבלי ציון וירושלים HaMaqom y'nahem etchem b'toch shaar avelei Tziyon v'Yrushalayim. May the Omnipresent one comfort you among the mourners of Zion and Jerusalem. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Shai Hess Sent: Saturday, March 19, 2011 8:52 AM To: IBM-MAIN@bama.ua.edu Subject: my father passed away March 19, 2011 To all my friends in this forum. My father passed away. After long time of suffering, God give the OK to my father soul to leave his sick body and return to God. We will miss you dad. We will really going to miss you my dad. Shai Hayim _ Hayim Sokolsky, CISSP Mainframe Security Architect DTCC Corporate Information Security 18301 Bermuda Green Dr, MS 1-CIS Tampa FL 33647-1760 Tel. (813) 470-2177 Classification: DTCC Non-Confidential (WHITE) BR_ FONT size=2BR DTCC DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify us immediately and delete the email and any attachments from your system. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email./FONT
Re: ISPF Point and Shoot
Type(PS). Are text type fields I am looking for a field that is input/ output Sent from my iPhone On Mar 21, 2011, at 9:58 AM, DanD mvs-j...@sympatico.ca wrote: How about trying ... @ TYPE(PS) Dan -Original Message- From: michealbutz Sent: Friday, March 18, 2011 6:27 PM Newsgroups: bit.listserv.ibm- main Subject: ISPF Point and Shoot I can't seem to get Point and shoot right The attribute field that is defined needs to have PAS(ON) So for example @ TYPE(INPUT) PAS(ON) COLOR(WHITE) The )PNTS section defines the value to be placed in the point and shoot field )BODT Point and shoot field == @field )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) So if the user cursor selects the area where field is located a value of 1 will be placed variable var1 Excepts when I do a say ' var1 = ' var1 var1 value is not 1 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF Point and Shoot
Have you thought about using a TYPE(PS) field that could be clicked to assign a value to the input/output field? For example: Confirm Delete === _ _ _ Yes or No 'Yes' and 'No' would be defined as TYPE(PS), and the user would click either of these fields to set the contents of the Confirm Delete field. HTH, Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 21 Mar 2011 22:00:26 -0400 From: michealb...@optonline.net Subject: Re: ISPF Point and Shoot To: IBM-MAIN@bama.ua.edu Type(PS). Are text type fields I am looking for a field that is input/ output Sent from my iPhone On Mar 21, 2011, at 9:58 AM, DanD mvs-j...@sympatico.ca wrote: How about trying ... @ TYPE(PS) Dan -Original Message- From: michealbutz Sent: Friday, March 18, 2011 6:27 PM Newsgroups: bit.listserv.ibm- main Subject: ISPF Point and Shoot I can't seem to get Point and shoot right The attribute field that is defined needs to have PAS(ON) So for example @ TYPE(INPUT) PAS(ON) COLOR(WHITE) The )PNTS section defines the value to be placed in the point and shoot field )BODT Point and shoot field == @field )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) So if the user cursor selects the area where field is located a value of 1 will be placed variable var1 Excepts when I do a say ' var1 = ' var1 var1 value is not 1 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF Point and Shoot
You could fake the point shoot by simply adding code in the )Proc section.. pseudo proc section code (I forget the syntax right now)... If .cursor = yourvar yourvar = 1 Dan -Original Message- From: Micheal Butz Sent: Monday, March 21, 2011 10:02 PM Newsgroups: bit.listserv.ibm-main Subject: Re: ISPF Point and Shoot Type(PS). Are text type fields I am looking for a field that is input/ output Sent from my iPhone On Mar 21, 2011, at 9:58 AM, DanD mvs-j...@sympatico.ca wrote: How about trying ... @ TYPE(PS) Dan -Original Message- From: michealbutz Sent: Friday, March 18, 2011 6:27 PM Newsgroups: bit.listserv.ibm- main Subject: ISPF Point and Shoot I can't seem to get Point and shoot right The attribute field that is defined needs to have PAS(ON) So for example @ TYPE(INPUT) PAS(ON) COLOR(WHITE) The )PNTS section defines the value to be placed in the point and shoot field )BODT Point and shoot field == @field )PNTS FIELD(ZPS1) VAR(VAR1) VAL(1) So if the user cursor selects the area where field is located a value of 1 will be placed variable var1 Excepts when I do a say ' var1 = ' var1 var1 value is not 1 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: RMM processing under z/OS 1.12
Richard Pinion rpin...@netscape.com wrote in message news:listserv%201103211201484935.1...@bama.ua.edu... I recently upgraded from z/OS 1.10 to 1.12. I am receiving the following messages when running tape jobs. This didn't happen on 1.10. I've looked through the RMM 1.12 manuals and the migration documentation. I don't understand why this is happening. To get around the volume being rejected , I put RMM in warning mode. EDG4035I VOLUME 050011 REJECTED. VOLUME IS SCRATCH AND OUTPUT NOT TO FIRST FILE EDG4004I **WARNING** USE OF 050011 BY H12166, STEP15, SYSUT2 ONLY PERMITTED BECAUSE DFSMSrmm RUNNING IN WARNING MODE. This is the JCL that is running when I receive the warning messages. //STEP15 EXEC PGM=IEBGENER //SYSIN DD DUMMY //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN='IVE.CASEUSER.CART',DISP=SHR, // UNIT=580, // VOL=(,RETAIN,SER=(H12166,H12180,H1)), // LABEL=(2,SL) //SYSUT2 DD DSN='IVE.CASEUSER.CART', // DISP=(,KEEP,DELETE), // VOL=SER=050011, // LABEL=(2,SL), // UNIT=581 Richard, Putting RMM in WARNING mode after going to PROTECT mode can be a big mistake. WARNING mode can change options like UNCATALOG for scratch tapes and SMSTAPE options if you use IBM tape libraries, as well as change exit actions like EDGUX100, CBRUXENT, etc. I would recommend putting RMM back in PROTECT mode and fixing the problem. Why do you want to write a 2,SL file to a scratch tape? This has never been allowed in RMM AFAIK. Do all your tape jobs hardcode the volsers? Why not just use the catalog? Am I missing something here? Regards, Tom Conley -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
DD DUMMY allocate any BUFFERS?
Hi I cannot find this information on IBM Does DD DUMMY cause any QSAM BUFFERS to be allocated for QSAM files? ie. The default value of 5? I'm trying to find out why we getting a S878 on a job with REGION=0M on the jobcard. There is several other possible reasons but I want to eliminate or include this one also. David Stewart Technical Specialist Technical Services Standard Chartered Bank Phone: +603 7681 2101 Fax: Mobile: +603 7956 4658 +60 176083655 Fonenet: 16032101 Email: david.stew...@sc.com mailto:david.stew...@sc.com Address: Level 2, Menara LYL Jalan 51A/223 Petaling Jaya Selangor Website: http://www.scopeinternational-kl.com http://www.scopeinternational-kl.com/ This email and any attachments are confidential and may also be privileged. If you are not the addressee, do not disclose, copy, circulate or in any other way use or rely on the information contained in this email or any attachments. If received in error, notify the sender immediately and delete this email and any attachments from your system. Emails cannot be guaranteed to be secure or error free as the message and any attachments could be intercepted, corrupted, lost, delayed, incomplete or amended. Standard Chartered PLC and its subsidiaries do not accept liability for damage caused by this email or any attachments and may monitor email traffic. Standard Chartered PLC is incorporated in England with limited liability under company number 966425 and has its registered office at 1 Aldermanbury Square, London, EC2V 7SB. Standard Chartered Bank (SCB) is incorporated in England with limited liability by Royal Charter 1853, under reference ZC18. The Principal Office of SCB is situated in England at 1 Aldermanbury Square, London EC2V 7SB. In the United Kingdom, SCB is authorised and regulated by the Financial Services Authority under FSA register number 114276. If you are receiving this email from SCB outside the UK, please click http://www.standardchartered.com/global/email_disclaimer.html to refer to the information on other jurisdictions. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html