Re: Comparison of compiler generated code AD 1980(ish) v 2010(ish)
On 2012-05-17 11:42, Robert AH Prins wrote: On 2012-05-17 11:14, Bernd Oppolzer wrote: I would like to add: with the previous compiler, CALL PLIMOVE enabled us to force the generation of MVCL. Using, for example CALL PLIMOVE (ADDR (target), ADDR (source), length); the compiler generated MVCL, but coding target = source; (if applicable), or BY-NAME-assignments, the compile generated MVCs etc. Now, with V3.9, the compiler generates the same in the two cases, that is MVCs or MVC loops, so we have no possibility to force the generation of MVCL. AFAIK, my co-workers didn't play with the ARCH options, so far. TUNE is TUNE(2), again AFAIK. The TUNE option has been removed from the V4.1 anyway. I have other projects at the moment, so I had not much time so far to investigate this. But remember: the problem showed up by a Strobe Report, so it seems to be significant. But: if PLIMOVE does no better than a simple assignment, using PLIMOVE seems to make no sense to me. In a certain way, this problem is somewhat different from the first problem in this thread. Robert complained about the optimizer doing a bad job, that is: some instructions are generated that are useless, and others are questionable. But here we have a simple instruction of the HLL (PLIMOVE) which I expect to be implemented using the best instructions the machine provides. If this turns out not to be the case, this is IMHO simply a bug, not only a flaw of the optimizer. The programmer already did some kind of optimization him- or herself, when he or she decided to use PLIMOVE. He or she may well expect that the compiler generates the best available machine instruction for this HLL instruction. You hit the nail right on the head! But I do remember that there was a APAR that explains why the MVCL was removed again. I can't point you to it as the link to the PL/I APARs has gone 404. It's back and I have to correct myself, I've only managed to find a APAR telling that the generation MVCLE 's was removed http://www-01.ibm.com/support/docview.wss?rs=619context=SSY2V3q1=%2b5655H3100+%2br370uid=swg1PK79325loc=en_UScs=utf-8cc=uslang=all Robert -- Robert AH Prins robert(a)prino(d)org -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Early IPL problems
For the cases where z/OS is loading a disabled wait state, and one of these consoles is the SYNCHDEST console or the NIP console, this behavior is unfortunate (to say it politely. When it happens to me, I say it using more colorful language). But there isn't anything z/OS can do about this. We really do want the system reset done to release the DASD reserves. I figured that you would know the actual technical background for losing the data on the console screen. The problem is that many in IBM development and service/support do not appear to know this and judge from their own testing under VM. And the customer more or less gets ridiculed as being unable to read. For this reason (among others), I recommend using the System Console (aka Operating System Messages on the HMC) as the SYNCHDEST and NIP console. I'd love to. Unfortunately there's no way my colleague will be allowed to generate the HMC as NIP console. This installation is firmly in the era of 'each system it's own green screen' (and it's own NIP console) and is unlikely to change. And the HMC *is* set as synchdest console (I had seen to that). Doesn't help when the wait state message doesn't explain why the wait state was loaded. *That* message was a 'normal' message earlier that went to the green screen (which got released). Barbara -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Comparison of compiler generated code AD 1980(ish) v 2010(ish)
On Fri, May 18, 2012 at 3:54 AM, Robert AH Prins robert.ah.pr...@gmail.com wrote: On 2012-05-17 11:42, Robert AH Prins wrote: On 2012-05-17 11:14, Bernd Oppolzer wrote: I would like to add: with the previous compiler, CALL PLIMOVE enabled us to force the generation of MVCL. Using, for example CALL PLIMOVE (ADDR (target), ADDR (source), length); the compiler generated MVCL, but coding target = source; (if applicable), or BY-NAME-assignments, the compile generated MVCs etc. Now, with V3.9, the compiler generates the same in the two cases, that is MVCs or MVC loops, so we have no possibility to force the generation of MVCL. AFAIK, my co-workers didn't play with the ARCH options, so far. TUNE is TUNE(2), again AFAIK. The TUNE option has been removed from the V4.1 anyway. I have other projects at the moment, so I had not much time so far to investigate this. But remember: the problem showed up by a Strobe Report, so it seems to be significant. But: if PLIMOVE does no better than a simple assignment, using PLIMOVE seems to make no sense to me. In a certain way, this problem is somewhat different from the first problem in this thread. Robert complained about the optimizer doing a bad job, that is: some instructions are generated that are useless, and others are questionable. But here we have a simple instruction of the HLL (PLIMOVE) which I expect to be implemented using the best instructions the machine provides. If this turns out not to be the case, this is IMHO simply a bug, not only a flaw of the optimizer. The programmer already did some kind of optimization him- or herself, when he or she decided to use PLIMOVE. He or she may well expect that the compiler generates the best available machine instruction for this HLL instruction. You hit the nail right on the head! But I do remember that there was a APAR that explains why the MVCL was removed again. I can't point you to it as the link to the PL/I APARs has gone 404. It's back and I have to correct myself, I've only managed to find a APAR telling that the generation MVCLE 's was removed http://www-01.ibm.com/support/docview.wss?rs=619context=SSY2V3q1=%2b5655H3100+%2br370uid=swg1PK79325loc=en_UScs=utf-8cc=uslang=all Robert -- Robert AH Prins robert(a)prino(d)org From the APAR, dated 2009-02-02: Problem summary * USERS AFFECTED: Enterprise PL/I users with code that has * * assignments to NONVARYING CHAR strings where * * the source and/or the target has a length* * not known at compile time* * PROBLEM DESCRIPTION: The 3.6 and later releases of * * Enterprise PL/I generated a MVCLE * * instruction to perform such * * assignments. Unfortunately, while this * * led to a much shorter set of* * instructions, it also led to* * significantly worse performance.* * RECOMMENDATION: * The compiler has been changed so that it no longer generates MVLCE's -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Preventive z/OS maintenance, was: EPSPT vs. FIXCAT
From: Jürgen Kehr kehrjuer...@t-online.de One major idea behind this project is to apply as few PTFs as possible, but as many PTFs as needed. Jürgen, this is my understanding of the RSUmmyy. My memory could be rusty on this, but many moons ago customers were tired of peeking through too many PTFs delivered in SMCREC, SMCCOR, PUTmmyy recipients, and complained to IBM. As a result, RSUmmyy was developed in order to let customer select as few PTFs as possible, but as many PTFs as needed. Maybe I remeber wrong, maybe Kurt can shed some light on the historical development of PTFs delivery. What does your customer not like about RSUmmyy ? Walter Marguccio z/OS Systems Programmer BELENUS LOB Informatic GmbH Munich - Germany -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Syslog/Operlog Read Access
John Gilmore wrote: Is it a consensus best practice to restrict read access of syslog/operlog data to those people with a need-to-know? It is not, not least because the question itself is not well-formed. Need-to-know is a useful notion for highly sensitive information that lends itself to misuse in the wrong hands. For syslog/.operlog the operative question should instead be: Who, if anyone, needs to be prevented from accessing this information? The answer will then usually be no minimally qualified user. While 'need to know' is a good argument [1] and I agree with your argument that minimally qualified user [2] should be kept away from SYSLOG / OPERLOG, I ask another set of questions before giving accesses. When deciding WHO may need to access such resources, I ask several questions, some of them are listed: 1. Do you really need to know, so you can perform your job? Examples please. On a postcard. I'm busy. 2. Can you make *useful* usage of those resources? 3. What is the supervisor/boss opinion? I weight all answers, needs, etc. before decisions. Sometimes they get a YES, while I should give a NO. :-p Please don't jump on me: I know for a fact that some unnamed vendor software can with a tweaking of options [3] display sensitive data like userid/password, control-fields, etc. Groete / Greetings Elardus Engelbrecht [1] - If you don't have any other arguments to start with. [2] - I have in the past some nosy users who tried out career limiting things! ;-) [3] -This is by design and is turned off by default. You better protect your 'F yyy,blah' modify command of course. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
JZOS unexpected type
Hi team, This time i am trying a JZOS program under OMVS. It is simple, read a text file and show each line, here is the code: import java.io.*; class readit { public static void main(StringÝ~ args) { System.out.println(Prog start); BufferedReader bf = new BufferedReader(new FileReader(datos.txt)); String recline; while ((recline = bf.readLine())¬=null) { System.out.println(recline); } System.out.println(Prog end); } } but i got this message when compiling : : javac readit.java readit.java:10: unexpected type required: variable found : value while ((recline = bf.readLine())¬=null) { ¬ 1 error the = simbol is not a variable, i have no idea why this error appears, when compiling in Windows environment it goes OK, but in OMVS appear such error. Some ideas? Best regards, Enrique -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JZOS unexpected type
Hi Enrique, You need to use != instead of ¬= for not equals in Java. Regards, David Roberts CICS Transaction Server for zOS IBM United Kingdom Limited, Hursley Park, Winchester, Hants, United Kingdom, SO21 2JN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Preventive z/OS maintenance, was: EPSPT vs. FIXCAT
On Fri, 18 May 2012 00:52:38 -0700, Walter Marguccio wrote: this is my understanding of the RSUmmyy. My memory could be rusty on this, but many moons ago customers were tired of peeking through too many PTFs delivered in SMCREC, SMCCOR, PUTmmyy recipients, and complained to IBM. As a result, RSUmmyy was developed in order to let customer select as few PTFs as possible, but as many PTFs as needed. What I remember is that RSU was changed so that customers would be able to apply all of the latest PTFs (FSVO Latest) with the understanding that they were all tested as a group. Because of the testing that was done at IBM, there is a better chance of fixing problems without introducing new ones. In practice, many customers choose to upgrade to an RSU level than the most current after receiving the latest HOLDDATA, thus providing an additional measure of safety. For information, see the CST website. The mission statement is at http://www-03.ibm.com/systems/z/os/zos/support/servicetest/mission.html -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Easytrive
Hi, I just wantted to know whether from easytive whether we calling a db2 stored procedure, if so do we need any specfic thing we need to take care? Thanks. Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: JZOS unexpected type
In my environment, your program compiles fine. Well, I changed the square brackets in main definition and added the catches for IOException and FilenotfoundExceptionAh, and I change the negation sign to !. Are you sure about CCSID (including tagging) of files, locale and emulation? Cheers Michael Von:ENRIQUE ELOI MONTERO ROMERO enriqueeloi.montero.contrac...@bbva.com An: IBM-MAIN@bama.ua.edu Datum: 2012-05-18 13:50 Betreff:JZOS unexpected type Gesendet von: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Hi team, This time i am trying a JZOS program under OMVS. It is simple, read a text file and show each line, here is the code: import java.io.*; class readit { public static void main(StringÝ~ args) { System.out.println(Prog start); BufferedReader bf = new BufferedReader(new FileReader(datos.txt)); String recline; while ((recline = bf.readLine())¬=null) { System.out.println(recline); } System.out.println(Prog end); } } but i got this message when compiling : : javac readit.java readit.java:10: unexpected type required: variable found : value while ((recline = bf.readLine())¬=null) { ¬ 1 error the = simbol is not a variable, i have no idea why this error appears, when compiling in Windows environment it goes OK, but in OMVS appear such error. Some ideas? Best regards, Enrique -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Easytrive
Hi Ron, Besides Easytrieve+, do you also have: Easytrieve+ with SQL Option version 2.4? If you do, yes there's some type of DB2 bindings that's needed. I'm not a programmer and the person that knew this stuff, has retired, but I'll ask... * * *George Rodriguez* *Specialist II - IT Solutions* *Application Support / Quality Assurance* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-251* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Seven Consecutive Years* On Fri, May 18, 2012 at 8:31 AM, Ron Thomas ron5...@gmail.com wrote: Hi, I just wantted to know whether from easytive whether we calling a db2 stored procedure, if so do we need any specfic thing we need to take care? Thanks. Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN Home of Florida's first LEED Gold Certified School Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Easytrive
Ok can you please check on the same. Thanks, Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Change SYSPLEX name
I forgot to customize sysplex name during ServerPac installation. Now I want to fix it. I found it's coded in couple datasets only (and LOADxx). Q1. Is there any other place where I should change the sysplex name? Q2. How to do it? The only idea I know is to delete and re-create all the CDS datasets *and* to re-create CDS content. Any clue? -- Radoslaw Skorupka Lodz, Poland -- Treść tej wiadomości może zawierać informacje prawnie chronione Banku przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie lub inne działanie o podobnym charakterze jest prawnie zabronione i może być karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku. This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax +48 (22) 829 00 33, www.brebank.pl, e-mail: i...@brebank.pl Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. Według stanu na dzień 01.01.2012 r. kapitał zakładowy BRE Banku SA (w całości wpłacony) wynosi 168.410.984 złotych. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Servicelink, ETR and SR
I will repeat the gist of many previous attempts to get the attention of IBM. The next generation tools are inferior to their (IIRC, z/VM based) predecessors in terms of performance, reliability and functionality. z/VM, z/OS, and AIX are designed with fault tolerance and hot failover capabilities. A application outage should not last more time than that to detect the failure and restart the application, assuming the application was not designed for hot standby. 54 hours (planned) and another 8 hrs plus imply the application was not designed in this manner. Which begs the question, on which platform are the applications hosted (MICROSOFT??), and why are the capabilities of the operating systems not exploited? IBM should be embarrassed. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Change SYSPLEX name
On Fri, 18 May 2012 16:03:51 +0200, R.S. r.skoru...@bremultibank.com.pl wrote: I forgot to customize sysplex name during ServerPac installation. Now I want to fix it. I found it's coded in couple datasets only (and LOADxx). Q1. Is there any other place where I should change the sysplex name? Q2. How to do it? The only idea I know is to delete and re-create all the CDS datasets *and* to re-create CDS content. Search the archives. I know I posted what I did once, maybe twice. I've went through it a couple of times for 2 different sandbox sysplexes that someone gave the same names to as a production sysplex (really, these were both monoplex LPARs, but the steps are the same). If you can't find it let me know and I'll see if I can dig it up. Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Servicelink, ETR and SR
On 17 May 2012 21:43:32 -0700, in bit.listserv.ibm-main you wrote: Hello, I was attempting to offer an opportunity to be able to continue working with IBM on your service requests while IBMLink is unavailable. RETAIN does not go offline when IBMLink is unavailable. Clients are able to manage and create new service request via SR regardless of IBMLink's availability. Even if RETAIN is temporarily unavailable (or a queue is full, etc.), SR will locally queue your create/update request and resubmit it on your behalf automatically. This additional layer of resiliency is a feature that ETR did not have. Perhaps IBM needs to review Microsoft's service delivery system. I have never had a problem with availability. Maybe others here have had a different experience with it and my perception may be wrong. The vulnerability of the IBM system as shown by these posts may be in part due to the wrong measures. While improving reliability may not be justifiable on the direct benefits, the reputation hit IBM takes in the eyes of at least some of us should spur greater effort. When a system totally under IBM control that has a 24/7/365 characteristic yet does not have that availability, it casts doubt on IBM's claim to deliver that kind of reliability and availability. Most people interface with applications, not the base operating system and it is on those applications that they form their opinion of the platform. Clark Morris Thanks, Christian Christian Gilmore Senior Technical Staff Member IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 05/17/2012 11:27:49 PM: From: Barbara Nitz nitz-...@gmx.net To: IBM-MAIN@bama.ua.edu Date: 05/17/2012 11:28 PM Subject: Re: Servicelink, ETR and SR Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu It is worth noting, however, that IBM Service Request (SR) itself, was online throughout this entire event. It will also be online this weekend while IBMLink may be down for scheduled maintenance (SR does not require downtime to perform maintenance). Please consider bookmarking SR for use when IBMLink is unavailable. SR can be directly reached at: Boasting? Us mainframers first check SIS for fixes before reporting a problem. So if SIS is down, chances are good that retain is down. SR 'availability' won't help, since the updates done via SR will not reach retain, and hence IBM software support cannot see them. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Rexx - calling assembler question
All: I am in the process of writing a Rexx program that will call an Assembler program and pass parameters. The program is simple.. - Rexx: /* TSTGFILE */ trace i say 'Address is: 'address() address TSO CALL 'SFORD.LINKLIB(TESTCALL)' 'CLASS(USER' Assembler: TESTCALL CSECT TESTCALL AMODE 31 TESTCALL RMODE ANY YREGS SPACE 3 SAVE (14,12),,'TESTCALL..SYSDATE..SYSTIME' LR R12,R15 USING TESTCALL,R12 L R4,0(R1) ST R4,8(R13) ST R13,4(R4) LR R13,R4 L R1,4(R1) MVC CLASSN(8),0(R4) MVC SUBMSGA+20(8),CLASSN SUBMSGA WTO 'PARM1: ',ROUTCDE=11 BAILOUT DS 0H L R13,SAVEAREA+4 RETURN (14,12),RC=0 CLASSN DS CL8 PROFN DS CL8 SAVEAREA DS 18F Execution JCL: //REXXGRP JOB ,SYSTEMS,CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),REGION=0M,NOTIFY=SYSUID //STEP1 EXEC PGM=IKJEFT01,DYNAMNBR=99 //STEPLIB DD DSN=SFORD.LINKLIB,DISP=SHR //SYSEXEC DD DSN=SFORD.CLIST.LIBRARY,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * %TSTGFILE /* - Output: J E S 2 J O B L O G -- S Y S T E M A D C D -- N O 09.17.26 JOB00225 FRIDAY, 18 MAY 2012 09.17.26 JOB00225 IRR010I USERID SFORD IS ASSIGNED TO THIS JOB. 09.17.26 JOB00225 ICH70001I SFORD LAST ACCESS AT 09:17:12 ON FRIDAY, MAY 18, 09.17.26 JOB00225 $HASP373 REXXGRP STARTED - INIT 1 - CLASS A - SYS ADCD 09.17.26 JOB00225 IEF403I REXXGRP - STARTED - TIME=09.17.26 09.17.27 JOB00225 +PARM1: CL 09.17.27 JOB00225 IEF404I REXXGRP - ENDED - TIME=09.17.27 09.17.27 JOB00225 $HASP395 REXXGRP ENDED I assumed I misunderstand how parameters are passed in Rexx to Assembler...I thought that R1 pointed to the Adcon list...can someone be so kind as to point this old fellow .the right way Regards, Scott J Ford Software Engineer http://www.identityforge.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Rexx - calling assembler question
You're example uses the TSO CALL function to invoke your assembler. In this case, the calling convention is exactly like in a batch program. R1 points to a fullword address. That points to the parameter on the call where the first two bytes are the lenght of the parm, followed by that number of bytes, which is the parm value. I.e. if no parm is given, the halfword is H'0' R1 - A(PARM) - LLparm Or, ... L R4,0(,R1) LH R5,0(,R4) LENGTH OF PARM STRING LA R6,2(,R4) POINT TO FIRST BYTE OF PARM ... R1 definitely does NOT point to an area you can use as a save area. Which is what your code does. shudder You need to do something like: SAVE (14,12) LR R12,R15 STORAGE OBTAIN, LV=72 ST R13,4(,R1) ST R1,8(,R13) LR R13,R1 L R1,4(,R13) PREVIOUS SAVE AREA L R1,24(,R1) RESTORE ORIGINAL R1 L R4,0(,R1) CALL PARAMETER LH R5,0(,R4) LA R5,2(,R4) ... If this were a TSO command, the registers at entry are different and you'll need to look in the TSO manual to determine what is where. And don't get me started on if this were a z/OS UNIX command. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 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® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company®, 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 Scott Ford Sent: Friday, May 18, 2012 10:36 AM To: IBM-MAIN@bama.ua.edu Subject: Rexx - calling assembler question All: I am in the process of writing a Rexx program that will call an Assembler program and pass parameters. The program is simple.. -- --- Rexx: /* TSTGFILE */ trace i say 'Address is: 'address() address TSO CALL 'SFORD.LINKLIB(TESTCALL)' 'CLASS(USER' -- -- Assembler: TESTCALL CSECT TESTCALL AMODE 31 TESTCALL RMODE ANY YREGS SPACE 3 SAVE (14,12),,'TESTCALL..SYSDATE..SYSTIME' LR R12,R15 USING TESTCALL,R12 L R4,0(R1) ST R4,8(R13) ST R13,4(R4) LR R13,R4 L R1,4(R1) MVC CLASSN(8),0(R4) MVC SUBMSGA+20(8),CLASSN SUBMSGA WTO 'PARM1: ',ROUTCDE=11 BAILOUT DS 0H L R13,SAVEAREA+4 RETURN (14,12),RC=0 CLASSN DS CL8 PROFN DS CL8 SAVEAREA DS 18F -- -- Execution JCL: //REXXGRP JOB ,SYSTEMS,CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),REGION=0M,NOTIFY=SYSUID //STEP1 EXEC PGM=IKJEFT01,DYNAMNBR=99 //STEPLIB DD DSN=SFORD.LINKLIB,DISP=SHR //SYSEXEC DD DSN=SFORD.CLIST.LIBRARY,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * %TSTGFILE /* -- -- - Output: J E S 2 J O B L O G -- S Y S T E M A D C D -- N O 09.17.26 JOB00225 FRIDAY, 18 MAY 2012 09.17.26 JOB00225 IRR010I USERID SFORD IS ASSIGNED TO THIS JOB. 09.17.26 JOB00225 ICH70001I SFORD LAST ACCESS AT 09:17:12 ON FRIDAY, MAY 18, 09.17.26 JOB00225 $HASP373 REXXGRP STARTED - INIT 1 - CLASS A - SYS ADCD 09.17.26 JOB00225 IEF403I REXXGRP - STARTED - TIME=09.17.26 09.17.27 JOB00225 +PARM1: CL 09.17.27 JOB00225 IEF404I REXXGRP - ENDED - TIME=09.17.27 09.17.27 JOB00225 $HASP395 REXXGRP ENDED I assumed I misunderstand how parameters are passed in Rexx to Assembler...I thought that R1 pointed to the Adcon list...can someone be so kind as to point this old fellow .the right way Regards, Scott J Ford Software Engineer http://www.identityforge.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message:
Re: Rexx - calling assembler question
R1 contains the address of the PLIST. It will contain one entry (ie the first word of the PLIST will have the VL bit set). this entry will point to a 2 byte length field, followed by a character string whose length is in the first 2 bytes. IOW, a standard batch parameter list. === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Scott Ford scott_j_f...@yahoo.com To: IBM-MAIN@bama.ua.edu, Date: 05/18/2012 10:37 AM Subject:Rexx - calling assembler question Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu All: I am in the process of writing a Rexx program that will call an Assembler program and pass parameters. The program is simple.. - Rexx: /* TSTGFILE */ trace i say 'Address is: 'address() address TSO CALL 'SFORD.LINKLIB(TESTCALL)' 'CLASS(USER' Assembler: TESTCALL CSECT TESTCALL AMODE 31 TESTCALL RMODE ANY YREGS SPACE 3 SAVE (14,12),,'TESTCALL..SYSDATE..SYSTIME' LRR12,R15 USING TESTCALL,R12 L R4,0(R1) STR4,8(R13) STR13,4(R4) LRR13,R4 L R1,4(R1) MVC CLASSN(8),0(R4) MVC SUBMSGA+20(8),CLASSN SUBMSGA WTO 'PARM1:',ROUTCDE=11 BAILOUT DS0H L R13,SAVEAREA+4 RETURN (14,12),RC=0 CLASSN DSCL8 PROFNDSCL8 SAVEAREA DS18F Execution JCL: //REXXGRP JOB ,SYSTEMS,CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),REGION=0M,NOTIFY=SYSUID //STEP1EXEC PGM=IKJEFT01,DYNAMNBR=99 //STEPLIB DD DSN=SFORD.LINKLIB,DISP=SHR //SYSEXEC DD DSN=SFORD.CLIST.LIBRARY,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * %TSTGFILE /* - Output: J E S 2 J O B L O G -- S Y S T E M A D C D -- N O 09.17.26 JOB00225 FRIDAY,18 MAY 2012 09.17.26 JOB00225 IRR010I USERID SFORDIS ASSIGNED TO THIS JOB. 09.17.26 JOB00225 ICH70001I SFORDLAST ACCESS AT 09:17:12 ON FRIDAY, MAY 18, 09.17.26 JOB00225 $HASP373 REXXGRP STARTED - INIT 1- CLASS A - SYS ADCD 09.17.26 JOB00225 IEF403I REXXGRP - STARTED - TIME=09.17.26 09.17.27 JOB00225 +PARM1:CL 09.17.27 JOB00225 IEF404I REXXGRP - ENDED - TIME=09.17.27 09.17.27 JOB00225 $HASP395 REXXGRP ENDED I assumed I misunderstand how parameters are passed in Rexx to Assembler...I thought that R1 pointed to the Adcon list...can someone be so kind as to point this old fellow .the right way Regards, Scott J Ford Software Engineer http://www.identityforge.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Rexx - calling assembler question
On 18 May 2012 11:36, Scott Ford scott_j_f...@yahoo.com wrote: All: I am in the process of writing a Rexx program that will call an Assembler program and pass parameters. The program is simple.. - Rexx: /* TSTGFILE */ trace i say 'Address is: 'address() address TSO CALL 'SFORD.LINKLIB(TESTCALL)' 'CLASS(USER' What you've got is a TSO call command. It has really nothing to do with REXX. Assembler: TESTCALL CSECT TESTCALL AMODE 31 TESTCALL RMODE ANY YREGS SPACE 3 SAVE (14,12),,'TESTCALL..SYSDATE..SYSTIME' LR R12,R15 USING TESTCALL,R12 L R4,0(R1) ST R4,8(R13) ST R13,4(R4) LR R13,R4 L R1,4(R1) MVC CLASSN(8),0(R4) MVC SUBMSGA+20(8),CLASSN SUBMSGA WTO 'PARM1: ',ROUTCDE=11 BAILOUT DS 0H L R13,SAVEAREA+4 RETURN (14,12),RC=0 CLASSN DS CL8 PROFN DS CL8 SAVEAREA DS 18F Execution JCL: //REXXGRP JOB ,SYSTEMS,CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),REGION=0M,NOTIFY=SYSUID //STEP1 EXEC PGM=IKJEFT01,DYNAMNBR=99 //STEPLIB DD DSN=SFORD.LINKLIB,DISP=SHR //SYSEXEC DD DSN=SFORD.CLIST.LIBRARY,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * %TSTGFILE /* - Output: J E S 2 J O B L O G -- S Y S T E M A D C D -- N O 09.17.26 JOB00225 FRIDAY, 18 MAY 2012 09.17.26 JOB00225 IRR010I USERID SFORD IS ASSIGNED TO THIS JOB. 09.17.26 JOB00225 ICH70001I SFORD LAST ACCESS AT 09:17:12 ON FRIDAY, MAY 18, 09.17.26 JOB00225 $HASP373 REXXGRP STARTED - INIT 1 - CLASS A - SYS ADCD 09.17.26 JOB00225 IEF403I REXXGRP - STARTED - TIME=09.17.26 09.17.27 JOB00225 +PARM1: CL 09.17.27 JOB00225 IEF404I REXXGRP - ENDED - TIME=09.17.27 09.17.27 JOB00225 $HASP395 REXXGRP ENDED I assumed I misunderstand how parameters are passed in Rexx to Assembler...I thought that R1 pointed to the Adcon list...can someone be so kind as to point this old fellow .the right way It does. R1 points to a list of fullword addresses, and in this case there will be only one. You load that first and only pointer into R4 with L R4,0(R1) Now R4 points to a halfword length field(10), followed by the argument text - in your case CLASS(USER. So far, so good. (At this point, I would just do a WTO with the TEXT= option. TEXT= takes a pointer to a halfword length followed by text, so you are all set.) Then there is some code that appears to confuse chaining save areas with the argument you've been passed... STR4,8(R13) STR13,4(R4) LRR13,R4 L R1,4(R1) If you want to include some hardcoded text such as PARM1: , then you might do better to reserve an area, e.g. MSG DSY(*-*),CL256 move in your local constant text and the argument you received, make sure the length field covers both, and then issue the WTO TEXT=. You could even easily achieve reenterability this way, should that matter to you. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Rexx - calling assembler question
Tom: Let me explain, sorry, I should have been more clear.. The Rexx program or clist will call and Asembler module , the Assembler module in this case will do calls to the R_Radmin to perform extracts..output will go to a ddname once i get their with this code.. My problem is passing for example a Class and Profile to the Assembler routine doing the call to RACF Scott J Ford Software Engineer http://www.identityforge.com From: Tony Harminc t...@harminc.net To: IBM-MAIN@bama.ua.edu Sent: Friday, May 18, 2012 12:05 PM Subject: Re: Rexx - calling assembler question On 18 May 2012 11:36, Scott Ford scott_j_f...@yahoo.com wrote: All: I am in the process of writing a Rexx program that will call an Assembler program and pass parameters. The program is simple.. - Rexx: /* TSTGFILE */ trace i say 'Address is: 'address() address TSO CALL 'SFORD.LINKLIB(TESTCALL)' 'CLASS(USER' What you've got is a TSO call command. It has really nothing to do with REXX. Assembler: TESTCALL CSECT TESTCALL AMODE 31 TESTCALL RMODE ANY YREGS SPACE 3 SAVE (14,12),,'TESTCALL..SYSDATE..SYSTIME' LR R12,R15 USING TESTCALL,R12 L R4,0(R1) ST R4,8(R13) ST R13,4(R4) LR R13,R4 L R1,4(R1) MVC CLASSN(8),0(R4) MVC SUBMSGA+20(8),CLASSN SUBMSGA WTO 'PARM1: ',ROUTCDE=11 BAILOUT DS 0H L R13,SAVEAREA+4 RETURN (14,12),RC=0 CLASSN DS CL8 PROFN DS CL8 SAVEAREA DS 18F Execution JCL: //REXXGRP JOB ,SYSTEMS,CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),REGION=0M,NOTIFY=SYSUID //STEP1 EXEC PGM=IKJEFT01,DYNAMNBR=99 //STEPLIB DD DSN=SFORD.LINKLIB,DISP=SHR //SYSEXEC DD DSN=SFORD.CLIST.LIBRARY,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * %TSTGFILE /* - Output: J E S 2 J O B L O G -- S Y S T E M A D C D -- N O 09.17.26 JOB00225 FRIDAY, 18 MAY 2012 09.17.26 JOB00225 IRR010I USERID SFORD IS ASSIGNED TO THIS JOB. 09.17.26 JOB00225 ICH70001I SFORD LAST ACCESS AT 09:17:12 ON FRIDAY, MAY 18, 09.17.26 JOB00225 $HASP373 REXXGRP STARTED - INIT 1 - CLASS A - SYS ADCD 09.17.26 JOB00225 IEF403I REXXGRP - STARTED - TIME=09.17.26 09.17.27 JOB00225 +PARM1: CL 09.17.27 JOB00225 IEF404I REXXGRP - ENDED - TIME=09.17.27 09.17.27 JOB00225 $HASP395 REXXGRP ENDED I assumed I misunderstand how parameters are passed in Rexx to Assembler...I thought that R1 pointed to the Adcon list...can someone be so kind as to point this old fellow .the right way It does. R1 points to a list of fullword addresses, and in this case there will be only one. You load that first and only pointer into R4 with L R4,0(R1) Now R4 points to a halfword length field(10), followed by the argument text - in your case CLASS(USER. So far, so good. (At this point, I would just do a WTO with the TEXT= option. TEXT= takes a pointer to a halfword length followed by text, so you are all set.) Then there is some code that appears to confuse chaining save areas with the argument you've been passed... ST R4,8(R13) ST R13,4(R4) LR R13,R4 L R1,4(R1) If you want to include some hardcoded text such as PARM1: , then you might do better to reserve an area, e.g. MSG DS Y(*-*),CL256 move in your local constant text and the argument you received, make sure the length field covers both, and then issue the WTO TEXT=. You could even easily achieve reenterability this way, should that matter to you. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Rexx - calling assembler question
On 18 May 2012 12:25, Scott Ford scott_j_f...@yahoo.com wrote: Tom: Tom? Let me explain, sorry, I should have been more clear.. The Rexx program or clist will call and Asembler module , the Assembler module in this case will do calls to the R_Radmin to perform extracts..output will go to a ddname once i get their with this code.. My problem is passing for example a Class and Profile to the Assembler routine doing the call to RACF If you stick to the TSO CALL command, you have only one text argument you can pass. So if you have two variable length items to pass, you will need delimiters of some sort, or you can reserve a fixed space for each. Keep in mind that yuo have only 100 bytes available in such an argument. There are other ways of calling an assembler program from REXX that allow you to pass multiple arguments, and even update them. Have a look at LINKMVS and LINKPGM in the REXX Reference book. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Rexx - calling assembler question
Tony, Sort for the misname ...I am looking at the storage save area chain, John send me, ty, John.. And I will take a look at LINKPGM.. You guys are great as usual Scott J Ford Software Engineer http://www.identityforge.com From: Tony Harminc t...@harminc.net To: IBM-MAIN@bama.ua.edu Sent: Friday, May 18, 2012 12:40 PM Subject: Re: Rexx - calling assembler question On 18 May 2012 12:25, Scott Ford scott_j_f...@yahoo.com wrote: Tom: Tom? Let me explain, sorry, I should have been more clear.. The Rexx program or clist will call and Asembler module , the Assembler module in this case will do calls to the R_Radmin to perform extracts..output will go to a ddname once i get their with this code.. My problem is passing for example a Class and Profile to the Assembler routine doing the call to RACF If you stick to the TSO CALL command, you have only one text argument you can pass. So if you have two variable length items to pass, you will need delimiters of some sort, or you can reserve a fixed space for each. Keep in mind that yuo have only 100 bytes available in such an argument. There are other ways of calling an assembler program from REXX that allow you to pass multiple arguments, and even update them. Have a look at LINKMVS and LINKPGM in the REXX Reference book. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Early IPL problems
Are we saying that we cannot look at the current PSW, get the WSC, and look it up? I've been looking at WSC's since System 360 days. Never found it too difficult. Doug -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Barbara Nitz Sent: Friday, May 18, 2012 3:02 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Early IPL problems For the cases where z/OS is loading a disabled wait state, and one of these consoles is the SYNCHDEST console or the NIP console, this behavior is unfortunate (to say it politely. When it happens to me, I say it using more colorful language). But there isn't anything z/OS can do about this. We really do want the system reset done to release the DASD reserves. I figured that you would know the actual technical background for losing the data on the console screen. The problem is that many in IBM development and service/support do not appear to know this and judge from their own testing under VM. And the customer more or less gets ridiculed as being unable to read. For this reason (among others), I recommend using the System Console (aka Operating System Messages on the HMC) as the SYNCHDEST and NIP console. I'd love to. Unfortunately there's no way my colleague will be allowed to generate the HMC as NIP console. This installation is firmly in the era of 'each system it's own green screen' (and it's own NIP console) and is unlikely to change. And the HMC *is* set as synchdest console (I had seen to that). Doesn't help when the wait state message doesn't explain why the wait state was loaded. *That* message was a 'normal' message earlier that went to the green screen (which got released). Barbara -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
D SMF,O -- what do DEFAULT, PARMLIB and SYS mean?
I'm sure this is a dumb question but the answer sure is not with the description of the D SMF command. In the output from a D SMF,O command, what exactly do -- DEFAULT -- PARMLIB -- SYS mean? Are there any other similar tags? What do they mean? I guess DEFAULT is the basic default value. PARMLIB means it came from SMFPRMxx. What about SYS? There is a little documentation with message IEE967I but it does not explain the tags (and lists SYSIN rather than SYS ???). Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Co-existance of z/OS and z/VM on same DASD farm
VM had dasd read/only for volser (vol1 record) to identify each mounted disk. VM r/w activity was limited to vm page formated disks. CMS running in virtual machine had support for cms filesystems and some primitive support for real formated OS DOS disks. regarding incorrently rewriting vtoc ... there is some possibility it might have happened if somebody had attached/linked the real disks to cms in a virtual machine (in r/w mode). In the mid-70s, one of the people in the vm370/cms development group significantly rewrote and developed full function OS r/w filesystem (real os vtoc, pds directory, etc.) function in CMS (joke that the 100k bytes was more efficient os/360 similiation than the 8+mbytes that had been done in MVS for os/360 simulation). however this was approx. the period when FS effort was imploding and there was mad rush to get products back into the 370 pipelines (during FS effort, 370 activity was being suspended and/or killed off). misc. past posts mentioning Future System effort (that was going to completely replace 360/370) http://www.garlic.com/~lynn/submain.html#futuresys As part of reconsituting 370, (303x was kicked off in parallel with 370/xa) and the head of POK managed to convince corporate to kill off vm370 product, shutdown the development group and move all the people to POK ... or otherwise they wouldn't be able to meet the mvs/xa ship schedule. somehow the vm370 development group was warned ahead of time and some of the people managed to escape being moved to POK (there was joke about head of POK was major contributor to DEC vax/vms). in the killing off of the vm370 product and shutdown of the group ... before the full function OS filesystem support shipped ... and it all just disappeared. Eventually, Endicott managed to save the vm370 product mission, but they had to reconstitute a development group from scratch. -- virtualization experience starting Jan1968, online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Early IPL problems
On Fri, 18 May 2012 12:54:28 -0400, Doug Fuerst d...@bkassociates.net wrote: Are we saying that we cannot look at the current PSW, get the WSC, and look it up? I've been looking at WSC's since System 360 days. Never found it too difficult. No, the complaint is that on emulated consoles attached via Tn3270 (2074, OSA-ICC and I assume Visira which I've never worked with) any messages that come out on the console along with the wait disappear immediately due to the RESET that happens along with the wait. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: D SMF,O -- what do DEFAULT, PARMLIB and SYS mean?
Charles, They specify the origin of the keyword parameter. Excerpt The origin of the keyword parameter, which is one of the following: CHANGED DEFAULT PARMLIB REPLY SYSIN NOT IN USE Thank you and have a Terrific day! Jonathan Goossen, DTM ACT Mainframe Storage Group Personal: 651-361-4541 Department Support Line: 651-361- For help with communication and leadership skills checkout Woodwinds Toastmasters. IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 05/18/2012 01:08:05 PM: From: Charles Mills charl...@mcn.org To: IBM-MAIN@bama.ua.edu Date: 05/18/2012 01:09 PM Subject: D SMF,O -- what do DEFAULT, PARMLIB and SYS mean? Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu I'm sure this is a dumb question but the answer sure is not with the description of the D SMF command. In the output from a D SMF,O command, what exactly do -- DEFAULT -- PARMLIB -- SYS mean? Are there any other similar tags? What do they mean? I guess DEFAULT is the basic default value. PARMLIB means it came from SMFPRMxx. What about SYS? There is a little documentation with message IEE967I but it does not explain the tags (and lists SYSIN rather than SYS ???). Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN This e-mail message and all attachments transmitted with it may contain legally privileged and/or confidential information intended solely for the use of the addressee(s). If the reader of this message is not the intended recipient, you are hereby notified that any reading, dissemination, distribution, copying, forwarding or other use of this message or its attachments is strictly prohibited. If you have received this message in error, please notify the sender immediately and delete this message and all copies and backups thereof. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Early IPL problems
On 5/18/2012 11:22 AM, Mark Zelden wrote: No, the complaint is that on emulated consoles attached via Tn3270 (2074, OSA-ICC and I assume Visira which I've never worked with) any messages that come out on the console along with the wait disappear immediately due to the RESET that happens along with the wait. Sounds like z/OS sysprogs need to ask their employers to pay for Evelyn Wood speed-reading classes. ;-) Seriously, I remember OS/2 had a similar issue. Before you could write down the information about a catastrophic trap, it would restart and blow away the screen. There was a special CONFIG.SYS parameter you had to code to prevent it from automatically restarting itself. Oh what fun... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Early IPL problems
I use the HMC and the Operating System Messages ICON. I don't have any NIPCONS, so I IPL and monitor from the HMC until I can get an SMCS console going. If you do have a 3270 type console, why not record the console on your cell phone camera? It is a bit small. So, get a tablet. Might take two people. One to do the IPL, the other to keep the console in focus. -- 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 Edward Jaffe Sent: Friday, May 18, 2012 1:52 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Early IPL problems On 5/18/2012 11:22 AM, Mark Zelden wrote: No, the complaint is that on emulated consoles attached via Tn3270 (2074, OSA-ICC and I assume Visira which I've never worked with) any messages that come out on the console along with the wait disappear immediately due to the RESET that happens along with the wait. Sounds like z/OS sysprogs need to ask their employers to pay for Evelyn Wood speed-reading classes. ;-) Seriously, I remember OS/2 had a similar issue. Before you could write down the information about a catastrophic trap, it would restart and blow away the screen. There was a special CONFIG.SYS parameter you had to code to prevent it from automatically restarting itself. Oh what fun... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Early IPL problems
On Fri, 18 May 2012 14:11:14 -0500, McKown, John john.mck...@healthmarkets.com wrote: If you do have a 3270 type console, why not record the console on your cell phone camera? It is a bit small. So, get a tablet. Might take two people. One to do the IPL, the other to keep the console in focus. I've used the Shift and Print Screen keys a few times in the past... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: D SMF,O -- what do DEFAULT, PARMLIB and SYS mean?
I saw that. if a parameter came from SYS where exactly did it come from? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Jonathan Goossen Sent: Friday, May 18, 2012 2:42 PM To: IBM-MAIN@bama.ua.edu Subject: Re: D SMF,O -- what do DEFAULT, PARMLIB and SYS mean? Charles, They specify the origin of the keyword parameter. Excerpt The origin of the keyword parameter, which is one of the following: CHANGED DEFAULT PARMLIB REPLY SYSIN NOT IN USE -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Co-existance of z/OS and z/VM on same DASD farm
On Fri, 18 May 2012 14:21:49 -0400, Anne Lynn Wheeler wrote: In the mid-70s, one of the people in the vm370/cms development group significantly rewrote and developed full function OS r/w filesystem (real os vtoc, pds directory, etc.) function in CMS (joke that the 100k bytes was more efficient os/360 similiation than the 8+mbytes that had been done in MVS for os/360 simulation). Of course that was going the wrong way. In the long term, support in MVS for CMS-style FBA DASD would have been of greater value. Eventually, Endicott managed to save the vm370 product mission, but they had to reconstitute a development group from scratch. And somewhere in there, there was something like VM/XA/SF (System Facility), intended to allow virtual machines for development and testing, but not to support emigration of the OS workload as happened in the VSCR crisis. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Co-existance of z/OS and z/VM on same DASD farm
paulgboul...@aim.com (Paul Gilmartin) writes: And somewhere in there, there was something like VM/XA/SF (System Facility), intended to allow virtual machines for development and testing, but not to support emigration of the OS workload as happened in the VSCR crisis. re: http://www.garlic.com/~lynn/2012g.html#17 Co-existance of z/OS and z/VM on same DASD farm the POK group did VMTOOL that was supposed to be for internal use only for MVX/XA development. However, eventually the decision was made to release it as VM/SF ... for customer aid in MVS to MVS/XA conversion. There was lots of internal politics. Internally, vm370 had been ported and running in 370/XA support ... had much better function, features, performance, reliability, etc than VM/SF. However, there was growing politics to turn VM/SF into VM/XA ... even tho the vm370 solution running in XA-mode was significantly better. Part of the issue was that VM/SF was from the POK high-end group ... which was responsible for XA. vm370 was still from the endicott mid-range group ... which had less political clout. old post with mention of vm/811 (aka vm/sf ... XA was referred to as 811 internally for the nov1978 date on lots of the XA architecture documents). http://www.garlic.com/~lynn/2011b.html#70 VM/370 3081 and discussion (with old email) about vm370 running in xa-mode http://www.garlic.com/~lynn/2011c.html#87 A History of VM Performance with regard to FBA ... I've mentioned before that I was told that it would cost $26M to release MVS support for FBA (fixed-block archtecture, at the time 3370s) ... even if I gave the MVS group fully integrated and tested code. The $26M was just for education and documentation changes. To justify the $26M, I had to show incremental new disk sales (on the order of ten times the cost ... i.e. around $300M); and they were claiming that they were making selling as much disks as possible ... and if MVS had FBA support ... customers would just switch to having the same amount of FBA as CKD. I wasn't allowed to use business justification for drastically reduced lifetime costs ... I had to have business justification showing additional new sales. As as been pointed out ... current disks are all FBA ... there haven't been real CDK disks made for decades. misc. past posts mentioning DASD, CKD, FBA, multi-track search, etc http://www.garlic.com/~lynn/submain.html#dasd -- virtualization experience starting Jan1968, online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Co-existence of z/OS and z/VM on same DASD farm
Ron, If you have HDS DASD there is a mainframe security feature that allows you to mask logical volumes from specific LPARs. The idea is that if you get it wrong in the OS the storage will stop you from shooting yourself in the foot. If you don't have HDS DASD then you may want to ask if your vendor has a similar feature. It's not really a shameless plug, as I think (I'm not in sales) it comes with the basic operating system for our storage. I have never used it and I have no idea how simple or not so simple it is to use. This was topical for me as we are changing device numbers all the time in the labs, and occasionally z/VM will have hold of a volume we are trying to get offline to all systems. Usually at sleep o'clock in the morning, so I'm thinking of using it for my test boxes. Ron -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Ron MacRae Sent: Wednesday, May 16, 2012 1:04 PM To: IBM-MAIN@bama.ua.edu Subject: [IBM-MAIN] Co-existance of z/OS and z/VM on same DASD farm Hi all, We are currently an exclusively z/OS site with multiple LPARs sharing a single IOCDS and DASD farm. We are about to install z/VM in a new LPAR and I'm worried about both OSs sharing the same DASD farm. They will not be sharing at the volume level. I've read through the install doc and it all seems fine, you tell the install process 6 or 9 unit adresses and it goes and loads stuff onto them and then you IPL. There is no mention of modifying other volumes, however there are include and exclude unit address lists that you can specify to define what z/VM will try to look at, which presumably you can't get at until after the basic install and IPL. Also z/VM can issue sense commands to determine what devices are out there. The reason I'm worried is that in a previous life, over 30 years ago, my previous company attempted to do the same between an VM system and a DOS/VSE system. This was a long time ago on a real machine in pre LPAR days. When they brought up VM for the first time it objected to the VSE VTOCs it found and rewrote them as OS VTOCs and we lost the whole DASD farm. Management were not best pleased. I wasn't directly involved at that time so I'm not 100% sure of my facts here and perhaps the guys who did this did something wrong, however my worry still remains. My question is - Do we have to isolate z/VM from the z/OS volumes or will z/VM play nice and leave stuff alone? I just want to double check that VM will only touch the 6 volumes it is given at install time. Regards, Ron MacRae. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Early IPL problems
On 18 May 2012 15:11, McKown, John john.mck...@healthmarkets.com wrote: I use the HMC and the Operating System Messages ICON. I don't have any NIPCONS, so I IPL and monitor from the HMC until I can get an SMCS console going. If you do have a 3270 type console, why not record the console on your cell phone camera? It is a bit small. So, get a tablet. Might take two people. One to do the IPL, the other to keep the console in focus. I did just that last year with a Windows BSOD that was followed so quickly by an automagic reboot that the error code couldn't be read. I didn't try to click a still picture - just videoed the 30 seconds or so that mattered, then scrolled through it slowly. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Co-existance of z/OS and z/VM on same DASD farm
On Fri, 18 May 2012 16:32:34 -0400, Anne Lynn Wheeler wrote: VM/SF was from the POK high-end group ... which was responsible for XA. vm370 was still from the endicott mid-range group ... which had less political clout. So, who won? It doesn't sound as if the climate would admit a compromise? The memories fade, but VM/XA as it was shipped impressed me favorably. One thing I remember is that CP QUERY would tell the size of a spool file _before_ it was closed. Revolutionary! And invaluable to operators trying to identify the runaway VM. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN