Re: Anyone remember this?
Even more ironic to need to APAR the original TWO bytes of code: 00 07FE ... BR 14 -Chip- On 8/8/11 13:40 Jeff Gribbin said: ... or a very garbled version of the story that the original IEFBR14 didn't clear R15 and so, 'completed' with a non-zero return-code ... It's said that two APARs have been accepted against IEFBR14: 1) Non RC=0 problem 2) Not link-edited as reentrant so not available as candidate for LPA Quite an impressive record for four bytes of code!
Re: VM Workshop -- was fantastic!
The suggestion of a June date will work better for me as well. I just returned from EAA Airventure, the largest aviation event in the world. It's always the last week of July in Oshkosh, WI. As the only fixed date on my calendar, and with 50:1 odds, you can imagine my disappointment when I saw the date of the Workshop. :-/ Madison in June would be nice. -Chip- On 8/2/11 08:50 Tom Huegel said: University of Wisconsin would be a good choice for next year... Strong VM ties (TCP/IP) there too. On Mon, Aug 1, 2011 at 5:08 PM, David Boyes dbo...@sinenomine.net We're going to do it again next year, site TBD, but definitely gonna happen. Put it on your calendars for sometime in June 2012.
Re: VM Workshop -- was fantastic!
On 8/2/11 13:31 Kent E. Taylor said: Oh, please, please, please, not the first weekend in June. I have another commitment for that weekend And thus it begins... ;-) For all the years I organized the Rexx Symposium, we would start out with a location, set a date that the greatest number of people could attend, canvass venues for availability prices, change the date to a less-optimal based on the canvass, lather, rinse, and repeat until we had the perfect compromise: everyone was equally unhappy. Invariably, the date of the Symposium was set by factors completely beyond our control. But it's nice to ask everyone what they would like, if only to show that you are trying to be accommodating. :-/ Until you've successfully pulled off an event such as the Workshop or the Symposium (both of which were notable for affordability) you have no idea how hard it is to make it happen. Even though I couldn't be there this year, I'm grateful to the organizers for the effort that went into reviving one of the more valuable conferences I attended back in the day. -Chip-
Re: 20x200 - Print Information | IBM 360 Model 30 Tape Drives 1965, by Mark Richards
There's a certain modern art simplicity in that image of mod 30's Marcy, but I'm holding out for the graphic texture and naked power evinced by the 360/195 maintenance console. You can never have too many switches and dials. (Hoo! Hoo! Hoo!...) -Chip- On 7/6/11 19:08 Marcy Cortes said: Nice Holiday gift for your favorite old mainframer http://www.20x200.com/art/2009/04/ibm-360-model-30-tape-drives-1965.html
Which Rexx?
Hi Ken, Just out of curiosity, which Rexx language processor are you running? -Chip- Past-President, RexxLA On 6/29/11 22:21 n8ptt said: (BTW: RE: your comment about REXX, most of our scripts on our linux boxes is either Perl or REXX).
Re: Varsity Inn North South University Plaza - VM Workshop Hotels
Sadly, it's become common practice to trash competitors in reviews on most online sites. So much so that there are companies that will (for a fee) look for them and delete them for you. (For all I know, the trashing is being done for a fee as well.) Quite the opportunistic little eco-system. I travel a lot and stay at a variety of low- to mid-tier properties, albeit usually ones affiliated with national brands. I have never seen a bedbug, much less been bitten by one. And yes, I've stayed at hostel-grade properties in NYC, Chicago, and LA. You stay where your budget will allow. I think the whole hotel bedbug infestation publicity is blown out of proportion, but I could be wrong. -Chip- On 6/28/11 16:57 Len Diegel said: I just had a discussion with the manager at the Varsity Inn locations ($69/night). She has been there 2 years and they've had no issues as described in earlier notes. She has no idea why this came up on someone's site and would like to know the source. We will be leaving that hotel option on the site. I also had a conversation with the manager at University Plaza. They are a full service hotel with free parking and breakfast. The rate is $89/night and we will be listing this as the Conference Hotel. I hope this helps with those still in the process of deciding on rooms. Regards, Len
Re: Printers to 2nd Level VM
Not to get all Eats, Shoots Leaves here, but one must parse Jeff's sentence thusly: z/VM now only _supports_ 3203 printers That is, z/VM does nothing more than support 3203 printers. What I suspect he meant to write (and Mike assumed he meant) was: z/VM now supports _only_ 3203 printers which is patently untrue. Those naughty adverbs and adjectives can cause a lot of mischief when they don't stay in their proper places. -Chip- On 6/13/11 20:34 Mike Walter said: Tom, The post began with the lines: As usual, the solution is simple and (with hindsight) obvious ... z/VM now only supports 3203 printers I responded: Pray tell where is it documented that the only printer z/VM supports is a lonely 3203? OK, so perhaps it's not *actually* lonely, but: z/VM now only supports 3203 printers? What am I missing this time? Mike Tom Paul canzo...@nyc.rr.com Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU 06/13/2011 03:15 PM Please respond to The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU To IBMVM@LISTSERV.UARK.EDU cc Subject Re: Printers to 2nd Level VM Dear Mike, Jeff never said z/VM supports only a lonely 3203!! Nice to hear from you. Regards, Tom -Original Message- From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Mike Walter Sent: Monday, June 13, 2011 3:12 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Printers to 2nd Level VM Sir Jeff, Pray tell where is it documented that the only printer z/VM supports is a lonely 3203? The z/VM 5.4.0 CP Planning and Administration manual describes (Chapter 5, on p47) SYSTEM CONFIG statements needed to support printer models: 3203 model 5; 3211 models 1 and 5; 3262; 3268 models 2 and 2C; 3287 models 1, 1c, 2, 2c, and 4; 3289 models 1,3,4, and 8; 3800 models 1, 3,6, and 8; 3812; 3816; 3820; 3825; 3827; 3228; 3835; 3900; 4245 models 1, 12, and 20; 4248 model 1, and 2, 6262 models 14, and 22. (any typos are mine) Appendix 'D' contains a Configuration Guide for Printers for most of those printers. OK, we lost the good old 1403, but 'cmon... what'd I miss? In the statement z/VM now only supports 3203 printers, when is now? ;-) Mike Walter Aon Corporation The opinions expressed herein are mine alone, not my employer's. Jeff Gribbin jeff.grib...@gmail.com Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU 06/13/2011 01:44 PM Please respond to The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU To IBMVM@LISTSERV.UARK.EDU cc Subject Re: Printers to 2nd Level VM As usual, the solution is simple and (with hindsight) obvious ... z/VM now only supports 3203 printers Change directory to SPOOL 000E 3203 A and it all works just as one would expect. Thanks to Tom Paul for his (off-list) discussion of the problem - he helped me to, 'emiminate the impossible' :-) The information contained in this e-mail and any accompanying documents may contain information that is confidential or otherwise protected from disclosure. If you are not the intended recipient of this message, or if this message has been addressed to you in error, please immediately alert the sender by reply e-mail and then delete this message, including any attachments. Any dissemination, distribution or other use of the contents of this message by anyone other than the intended recipient is strictly prohibited. All messages sent to and from this e-mail address may be monitored as permitted by applicable law and regulations to ensure compliance with our internal policies and to protect our business. E-mails are not secure and cannot be guaranteed to be error free as they can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by e-mail. The information contained in this e-mail and any accompanying documents may contain information that is confidential or otherwise protected from disclosure. If you are not the intended recipient of this message, or if this message has been addressed to you in error, please immediately alert the sender by reply e-mail and then delete this message, including any attachments. Any dissemination, distribution or other use of the contents of this message by anyone other than the intended recipient is strictly prohibited. All messages sent to and from this e-mail address may be monitored as permitted by applicable law and regulations to ensure compliance with our internal policies and to protect our business. E-mails are not secure and cannot be guaranteed to be error free as they can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by e-mail.
Re: service all status ptf
That sounds a tad odd to me. There's nothing (after installation) in DMS/CMS that requires R/W access to any of the CMS system disks. DMS/CMS is/was a great little lightweight 3270 panel application builder/manager that was 'way easier to use than ISPF, especially with Rexx. I think it would be fun to reverse-engineer it to use XEDIT macros and eliminating its binaries, but there are so many things like that on my bucket-list... :-/ -Chip- On 6/1/11 10:38 Steve Harman said: That is excellent information, many thanks for the education. I am still seeing the problem even though maint has both 190 and 19E linked RO. I took Alan's advice and opened a ticket. It's not yet resolved, but the y think it involves a product DMS/CMS. I don't know what the fix will be b ut I will update this thread with the outcome.
Re: EXECIO DISKW Question
Yes, but be careful. Try: EXECIO 1 DISKRU ... -Chip- On 6/1/11 14:49 Sergio Lima said: Hello List, We want write a REXX EXEC , that do a Update in place. Another words, I need, read the record 1 from the file, and then rewrite the same record. Is possible? Thanks, Sergio
Re: z/VM user group in RTP, NC?
There are a few of us alter kocker VMers still knocking around the area ... -Chip- c...@aresti.com On 4/14/11 16:15 Michael Forte said: Brad, Looks interesting. Thank you. I see a few names on the member list that I recognize. Maybe I'll see you there. Micheal Forte *Michael J. Forte * z/OS Storage ID (and on assignment with STG Lab Services and Training) Software Engineer, System z Information Solutions 58HA IBM Research Triangle Park, North Carolina 3039 E Cornwallis Road Research Triangle Park, NC 27709-2195 USA Email: mjfo...@us.ibm.com mailto:mjfo...@us.ibm.com Phone: 1+720-397-5945 Mobile: 1+845-702-7962 Fax: 1+919-381-4739 IBM Logo (r) /There are risks and costs to a program of action. But they are far less than the long-term risks and costs of comfortable inaction./ - John F. Kennedy From:Carson, Brad cars...@labcorp.com To:IBMVM@LISTSERV.UARK.EDU Date:04/14/2011 11:32 AM Subject:Re: z/VM user group in RTP, NC? Sent by:The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU Mike, There is an IBM Mainframe group in RTP called SPARTA that meets monthly. We cover things z/OS and z/VM. You can check out our simple webpage at _www.spartanc.org_ http://www.spartanc.org/ /Brad *From:* The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] *On Behalf Of *Michael Forte* Sent:* Thursday, April 14, 2011 10:58 AM* To:* IBMVM@LISTSERV.UARK.EDU* Subject:* z/VM user group in RTP, NC? Hi folks, I'm looking to get back into the fold after leaving NY. Does anyone know if there is a z/VM user group in RTP or the surrounding area (Raleigh, Durham, ...)? Thanks as always! *Michael J. Forte * z/OS Storage ID (and on assignment with STG Lab Services and Training) Software Engineer, System z Information Solutions 58HA IBM Research Triangle Park, North Carolina 3039 E Cornwallis Road Research Triangle Park, NC 27709-2195 USA _mjfo...@us.ibm.com_ mailto:mjfo...@us.ibm.com 1+720-397-5945 1+845-702-7962 1+919-381-4739 /There are risks and costs to a program of action. But they are far less than the long-term risks and costs of comfortable inaction./ - John F. Kennedy -This e-mail and any attachments may contain CONFIDENTIAL information, including PROTECTED HEALTH INFORMATION. If you are not the intended recipient, any use or disclosure of this information is STRICTLY PROHIBITED; you are requested to delete this e-mail and any attachments, notify the sender immediately, and notify the LabCorp Privacy Officer at privacyoffi...@labcorp.com or call (877) 23-HIPAA / (877) 234-4722.
Re: IBM Announcements Today
It appears to me that the zBX is z only in the fact that it will connect to a z10 or z196 running z/OS and is therefore part of the zEnterprise. I'm sure it's an improvement in blade server management but it's not like they announced an IFW... -Chip- On 4/12/11 12:34 Davis, Larry (National VM/VSE Capability) said: There Goes the Neighborhood. Larry Davis** *From:* The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] *On Behalf Of *Carlos Bodra - Pessoal *Sent:* Tuesday, April 12, 2011 8:15 AM *To:* IBMVM@LISTSERV.UARK.EDU *Subject:* IBM Announcements Today http://www-01.ibm.com/common/ssi/ShowDoc.jsp?docURL=/common/ssi/rep_ca/8/897/ENUS111-078/index.htmlbreadCrum=DET001PT022url=buttonpressed=DET001PT116page=1000paneltext1=DET001PEF011user+type=EXTlang=en_USInfoType=ANInfoSubType=CAInfoDesc=Announcement+Letterspanelurl=index.wss%3Fbuttonpressed%3DDET001PT116%26page%3D1000%26paneltext1%3DDET001PEF011%26user%2Btype%3DEXTpaneltext=Announcement%20letter%20searc h http://www-01.ibm.com/common/ssi/ShowDoc.jsp?docURL=/common/ssi/rep_ca/8/897/ENUS111-078/index.htmlbreadCrum=DET001PT022url=buttonpressed=DET001PT116page=1000paneltext1=DET001PEF011user+type=EXTlang=en_USInfoType=ANInfoSubType=CAInfoDesc=Announcement+Letterspanelurl=index.wss%3Fbuttonpressed%3DDET001PT116%26page%3D1000%26paneltext1%3DDET001PEF011%26user%2Btype%3DEXTpaneltext=Announcement%20letter%20search Windows will run on zEntreprise zBX. -- Carlos Bodra IBM zSeries Certified Specialist Sao Paulo - Brazil
Re: Sevice level
I don't see how any sort of meaningful number could be assigned to an entity to reflect COR service. Everyone will have their own. An RSU OTOH, floats everybody's boat to the same level, at least for a while. About the only thing you (IBM) could do is to add a flag that some service had been applied beyond the RSU (service level 801+ ?). I suppose you could assign each PTF a sequential number and use that to build a bit-string (1=applied, 0=not) and report a honkin' big hex value. ;-) Then, not only could you tell that extra-RSU service had been applied, but with a little effort you could tell exactly what. Hey, with VMSES/E in Rexx, it's all just a SMOP isn't it? :-)) -Chip- On 4/10/11 00:05 Alan Altmark said: Following up on Nick Harris' expectation to see a change to QUERY CPLEVEL after applying COR service to CP, I'd like to open a discussion on how folks perceive service levels. That is, is there some way that you feel IBM should express the concept of 'service level'? For the sake of discussion, let us assert that: - We are talking about the running entity, not the copy of the entity on the build disk. - Unless there are specific pre-reqs or co-reqs, PTFs can be applied in any order or combination. - Each component (CP, CMS, DIRMAINT, RACF, SES, etc.) has its own service stream Regards, Alan z/VM and Linux on System z Consultant IBM System Lab Services and Training ibm.com/systems/services/labservices office: 607.429.3323 alan_altm...@us.ibm.com
Re: Determining Daylight Savings Time Status
Not to take anything away from the solutions already offered, but wouldn't a Rexx exec (or pipe) that reads the SYSTEM CONFIG file be a single-source-data solution? I'd rather depend on the accuracy of an IBM-supplied file than to worry about making sure my (or someone else's) file keeps up with the Congress-critters meddling. Besides, it's a SMOP. -Chip- On 3/3/11 14:36 Michael Coffin said: Hi Folks, Does anybody have a program or know of a way to determine if a given date falls within a Daylight Savings Time range? The CP QUERY TIMEZONE command will show you defined timezones, and which one is active – but not the start/end dates of the zone. I’m trying to avoid coding up a hard-coded table in a REXX exec – but can’t for the life of me figure out any other way to do it, and even though the zones are coded in SYSTEM CONFIG I can’t find any way to query them in VM. Ideally, I need to do something like: DST=IsThisDST(mm/dd/yy) – and I only really care about the calendar date (even though DST doesn’t normally “kick in” until 2:00am). -Mike
Re: Determining Daylight Savings Time Status
It wasn't clear to me that you wanted a general-user solution, or an algorithm that would project years ahead, or simply a utility to be run from MAINT. The general-user, long-range solution is also a Rexx/Pipe SMOP: there are dozens of websites devoted to Daylight Saving Time tables and calculators. RxSockets to the rescue! -Chip- On 3/3/11 19:30 Michael Coffin said: The problem is that the executor would need to have access to MAINT CF1. -Mike -Original Message- From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Chip Davis Sent: Thursday, March 03, 2011 1:38 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Determining Daylight Savings Time Status Not to take anything away from the solutions already offered, but wouldn't a Rexx exec (or pipe) that reads the SYSTEM CONFIG file be a single-source-data solution? I'd rather depend on the accuracy of an IBM-supplied file than to worry about making sure my (or someone else's) file keeps up with the Congress-critters meddling. Besides, it's a SMOP. -Chip- On 3/3/11 14:36 Michael Coffin said: Hi Folks, Does anybody have a program or know of a way to determine if a given date falls within a Daylight Savings Time range? The CP QUERY TIMEZONE command will show you defined timezones, and which one is active - but not the start/end dates of the zone. I'm trying to avoid coding up a hard-coded table in a REXX exec - but can't for the life of me figure out any other way to do it, and even though the zones are coded in SYSTEM CONFIG I can't find any way to query them in VM. Ideally, I need to do something like: DST=IsThisDST(mm/dd/yy) - and I only really care about the calendar date (even though DST doesn't normally kick in until 2:00am). -Mike
Re: How can get the Week day ?
That's correct Ed, and WAD. Date('B') is intended for doing reliable date arithmetic, not archeology. :-) A consistent algorithm is more important to modern programmers than hewing precisely to historical usage (were that even possible, given the multiplicity of calendar schemes used in antiquity). Those who assert that Jesus was born on a Monday have a few other errors to explain first. Usually they are the ones who also delight in the UNIX 'cal 9 1752' special case. -Chip- On 1/5/11 15:31 Edward M Martin said: For BASE there is a note NOTE: The base date of 1 January 0001 is determined by extending the current Gregorian calendar backward (365 days each year, with an extra day every year that is divisible by 4 except century years that are not divisible by 400). It does not take into account any errors in the calendar system that created the Gregorian calendar originally. -Original Message- From: Chip Davis So the best option is to simply forget about the Date('C') option in the first place and use Date('B') instead. If you have existing code that you need to convert, you can establish the Date('C') epoch as a constant (now 730119) offset to the Date('B') value. On 1/4/11 22:25 Schuh, Richard said: It is right with the DATE(B) function - 01/01/1001. All the technicalities aside, forget about the word Century and view the letter C as an abstraction for the described function. Then, everything is consistent, even if technically incorrect. *From:* *George Henke/NYLIC* tyvm, Chip, for the explanation. So this century really began in Jan 1, 2001, not 2000. Interesting. *From:* *Chip Davis c...@aresti.com* Technically, the first year of each century is cc01, not cc00. On 1/3/11 16:03 George Henke/NYLIC said: Not quite sure what is the difference between the number of days since the beginning of the century and the number of days since the most recent year ending in '00' unless going back or ahead more than a century or 2. But I suppose there is a difference or it would have been moot. *Chip Davis c...@aresti.com* Be careful with Date('C'). It doesn't really give you the number of days in the current century (as it was originally documented). It returns the number of days since the beginning of the most recent year ending in '00', e.g. '2000'. On 1/3/11 14:25 George Henke/NYLIC said: REXX also has a nifty function called Century Day that simplifies things by working in century days, days since the beginning of the century, rather than days since the beginning of the year.
Re: How can get the Week day ?
Well, not quite, unless you're using a VERY non-ANSI-Standard version of Rexx. :-) Say Date('U',0,'B') -- 01/01/01 But you're right about the C for Century; it was always better to think of it as the Roman numeral for 100. It still suffered from the same boundary issues as the old Julian date, just not as frequently. The fact is, Date('C') is not even legal at Rexx Language Level 4.00 (much less ANSI Standard) which has been around for quite a while now. So the best option is to simply forget about the Date('C') option in the first place and use Date('B') instead. If you have existing code that you need to convert, you can establish the Date('C') epoch as a constant (now 730119) offset to the Date('B') value. -Chip- On 1/4/11 22:25 Schuh, Richard said: It is right with the DATE(B) function - 01/01/1001. All the technicalities aside, forget about the word Century and view the letter C as an abstraction for the described function. Then, everything is consistent, even if technically incorrect. *From:* *George Henke/NYLIC* tyvm, Chip, for the explanation. So this century really began in Jan 1, 2001, not 2000. Interesting. *From:* *Chip Davis c...@aresti.com* Technically, the first year of each century is cc01, not cc00. On 1/3/11 16:03 George Henke/NYLIC said: Not quite sure what is the difference between the number of days since the beginning of the century and the number of days since the most recent year ending in '00' unless going back or ahead more than a century or 2. But I suppose there is a difference or it would have been moot. *Chip Davis c...@aresti.com* Be careful with Date('C'). It doesn't really give you the number of days in the current century (as it was originally documented). It returns the number of days since the beginning of the most recent year ending in '00', e.g. '2000'. On 1/3/11 14:25 George Henke/NYLIC said: REXX also has a nifty function called Century Day that simplifies things by working in century days, days since the beginning of the century, rather than days since the beginning of the year.
Re: How can get the Week day ?
Be careful with Date('C'). It doesn't really give you the number of days in the current century (as it was originally documented). It returns the number of days since the beginning of the most recent year ending in '00', e.g. '2000'. If you are doing any sort of arithmetic with dates, your best bet is Date('Basedate'), especially if your dates might span a century boundary. -Chip- On 1/3/11 14:25 George Henke/NYLIC said: REXX also has a nifty function called Century Day that simplifies things by working in century days, days since the beginning of the century, rather than days since the beginning of the year. *Sergio Lima sergiovm...@hotmail.com* Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU 01/03/2011 08:26 AM Please respond to The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU To IBMVM@LISTSERV.UARK.EDU cc Subject Re: How can get the Week day ? Carlos and Dave, Thanks very much. run ok... Startint the new year, needing ask, and a very good help. Best Regards Sergio Date: Mon, 3 Jan 2011 14:20:36 +0100 From: carlo...@scarlet.be Subject: Re: How can get the Week day ? To: IBMVM@LISTSERV.UARK.EDU On Mon, 3 Jan 2011 07:17:47 -0600, Dave Jones d...@vsoft-software.com wrote: Try this Sergio. day_name = Date('W', '01/12/10', 'E') On 01/03/2011 07:10 AM, Sergio Lima wrote: Hello List. I have a CMS file, and need convert the date in the format DD/MM/YY (01/12/10), to week day. Try used this, but don't work : 52 *-* data = word(saida,1) 01/12/10 54 *-* campoa = date('w',data) 54 +++ campoa = date('w',data) 20 +++ call vetipo 5 +++ call processa DMSREX475E Error 40 running CPUXX EXEC, line 54: Incorrect call to routine Is possible, do this what We need? Thanks very much. Sergio Lima Costa Sao Paulo - Brazil or this day_name = Date(W,Date(E),E) -- Bien à vous _CARLOS ROMERO MARTIN_
Re: Mandatory ESMs?
At the risk of ignoring his assertion about the length of this thread, Richard has provided the perfect opening for me to mention Open Object Rexx. :-) That's the Open Source evolution of IBM Object REXX, supported by a team of developers lead by Rick McGuire (an original developer of IBM OREXX), is freakishly powerful, and currently runs on every major platform (32/64-bit Windows, Mac, UNIX/Linux, looking into Android) -- except z/VM and Z/OS. Believe me, it's not for lack of desire, interest, or love of CMS. We simply don't have access to the necessary resources (hardware and wetware) in order to effect a proper port of the (predominately C/C++) code. If you would be interested in contributing in some way to the effort to port ooRexx to IBM's Flagship Operating System (and/or z/OS ;-) please go to the ooRexx website www.oorexx.com and contact the Project Manager, David Ashley. You may find you don't need PL/I as much as you think... :-) -Chip- On 12/17/10 03:30 Richard Troth said: This thread has gone on too long. If you want tools for CMS, make a biz case or make the tools. We should leverage open source. We should take advantage of things IBM *is* developing, such as the BFS resident critters. ALL of the programs I have compiled on USS have dropped right in to OpenVM. (one man's experience; YMMV; actual mileage will probably be less)
Re: Mandatory ESMs?
Yes you have Harry, and we are very grateful for the hardware resources. Now if we had someone(s) with the necessary CMS and C/C++ skills (and time) to take a look at the software side of the portage, we might make some progress. -Chip- On 12/17/10 17:21 A. Harry Williams said: On Fri, 17 Dec 2010 16:10:14 + you said: If you would be interested in contributing in some way to the effort to port ooRexx to IBM's Flagship Operating System (and/or z/OS ;-) please go to the ooRexx website www.oorexx.com and contact the Project Manager, David Ashley. I've offered access to a z990 running z/VM to David previously, and I can workout access to a z/OS system too. I thought they were doing some Linux on z work on the z990, but I could be wrong.
Re: REXX that verify what MINIDISK is a file
Sergio, It's not clear to me why you are issuing the LISTFILE in the first place. Is that a necessary function of your (now named) VX EXEC, or is it left over from your initial attempt to determine which disk your EXEC was running from? If stacking the output of the LISTFILE is a necessary function of your EXEC, it really should be invoked _after_ you have verified that you are executing the right version of your EXEC in the first place. That would also make the DESBUF unnecessary when you find out you aren't. If the Rexx program you are running is VX EXEC, and the LISTFILE is left over from your initial attempt to discover which disk it is being executed from, then you should remove the LISTFILE and DESBUF commands. They are no longer necessary. The Rexx Parse Source command is all you need. Here is how I would have done it, using a slightly more sophisticated Parse template to avoid the Left() built-in function: /* VX EXEC - Do something necessary and useful */ Trace Results Parse Source . 'EXEC' fm +1 . If fm = 'X' Then Call NandUcode Say You are not executing from the 'X' disk! Exit 99 NandUcode: /* Do something necessary and useful */ -Chip- On 10/15/10 19:19 Sergio Lima said: Hello Jim, Run well look please: 3 *-* 'LISTFILE cataa exec * (DATE STACK LIFO' LISTFILE cataa exec * (DATE STACK LIFO 5 *-* Parse Source . . x1 x2 x3 . . CMS . COMMAND VX EXEC A1 . VX CMS 6 *-* If left(x3,1) 'X' 1 *-* Then *-* Do 7 *-* Say 'You are not executing from the X disk!' You are not executing from the X disk! You are not executing from the X disk! 8 *-* Desbuf Desbuf 9 *-* Exit 99 99 Thanks very much, Jim. Best Regards, Sergio Date: Thu, 14 Oct 2010 17:33:36 -0400 From: jim.hug...@doit.nh.gov Subject: Re: REXX that verify what MINIDISK is a file To: IBMVM@LISTSERV.UARK.EDU You need to issue a DESBUF command before the EXIT 99 statement. The LISTFILE command is putting the EXECNAME is the program/console stack and being read after your problem exits. CMS reads it and starts executing it again and again, Jim Hughes 603-271-5586 It is fun to do the impossible. *From:* The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] *On Behalf Of *Sergio Lima *Sent:* Thursday, October 14, 2010 5:25 PM *To:* IBMVM@LISTSERV.UARK.EDU *Subject:* Re: REXX that verify what MINIDISK is a file Scott, Sorry about disturb, but still don't run, look please : The code : trace r 'LISTFILE cataa exec * (DATE STACK LIFO' Parse Source . . x1 x2 x3 . If left(x3,1) 'X' Then Do Say 'You are not executing from the X disk!' Exit 99 End The result : 3 *-* 'LISTFILE cataa exec * (DATE STACK LIFO' LISTFILE cataa exec * (DATE STACK LIFO 5 *-* Parse Source . . x1 x2 x3 . . CMS . COMMAND VX EXEC A1 . VX CMS 6 *-* If left(x3,1) 'X' 1 *-* Then *-* Do 7 *-* Say 'You are not executing from the X disk!' You are not executing from the X disk! You are not executing from the X disk! 8 *-* Exit 99 99 8 *-* 'LISTFILE cataa exec * (DATE STACK LIFO'
Re: REXX that verify what MINIDISK is a file
How embarrassing! I did a couple of quick tests in RexxTry, then proceeded to cut-n-paste the wrong one. Mea culpa. That line should read: Parse Source . 'EXEC' . +5 fm +1 . or more succinctly (if less clear): Parse Source 'EXEC' +5 fm +1 Sorry for the confusion. -Chip- On 10/15/10 22:30 Alan Winson said: You have to be careful with syntax like this: Parse Source . 'EXEC' fm +1 . The variable fm is assigned the value E, taken from the first letter of EXEC. You wanted it to be assigned the first character in the word following EXEC.
Re: Highlighting in Rexx
...and don't forget that the attribute byte (created by the '1Dnn'x) takes up a space on the screen, so the Say statement in this example will have two blanks in front of the word error. You won't be able to change the highlighting between two adjacent characters in a string. I haven't seen a real 3278/9 in years, so I've discovered that there is a great variance in the ability of TN3270 emulators to properly respect/interpret those attribute characters, especially color. -Chip- On 10/12/10 17:29 Ron Schmiedge said: And by CP SET VMOUT you meant CP SCREEN VMOUT of course... On Tue, Oct 12, 2010 at 10:35 AM, Bruce Hayden bjhay...@gmail.com wrote: There are a few options. The easy one is to turn highlighting on and off, which will make that part white: 'CP SET VMOUT DEFAULT'/* Must be default for this to work */ hi = '1DC8'x lo = '1D40'x Say 'There has been an 'hi'error'lo The other way that works for entire lines is to set the VMOUT setting. 'CP SET VMOUT RED' say 'This is an error' 'CONWAIT' /* Wait for output to display */ 'CP SET VMOUT DEFAULT' Finally, there is a lot of flexibility in full screen CMS, but the operators woud have to run with fullscreen on. On Tue, Oct 12, 2010 at 12:14 PM, Karl Kingston karlkings...@ongov.net wrote: Does anybody have any tricks on how to do highlighting in a rexx SAY statement?What about setting colors for an extended attributes? I'm working on writing an Rexx exec to let our operators know which of our z/Linux machines are up, are supposed to be up, and are down. So if I can do colors, that would be nice. But at the very least, I need hilighting. Thanks -- Bruce Hayden z/VM and Linux on System z ATS IBM, Endicott, NY
Re: Binary FTP problem
Respectfully request that in the future you open a New Message rather then replying to an existing posting when you want to change the subject. Changing the 'Subject:' line has no effect on threaded email clients, which will happily bury your posting (and all replies thereto) in the bowels of the original thread. That makes it difficult to find your question when the thread tree is collapsed. Thanks. -Chip- On 10/12/10 18:56 Horlick, Michael said: My client is trying to FTP a file from VSE to a z/OS system through an intermediary NT server. Since I do not have a z/OS system to play with I have been trying to get the file from this server from VM/CMS.
Re: Bug in REXX
Frank, you're missing a crucial '.' in the Parse on line 4. You are setting the simple variable 'bbb' to '999', not setting the default for the stem variable bbb. -Chip- On 9/27/10 12:37 Frank M. Ramaekers said: Hmmmmust be more to it than that: 3 *-* flag=1 (added this so #5 doesn't fail) L 1 4 *-* Parse value '999' with bbb L 999 999 5 *-* flag=flag bbb.8==999 V 1 L BBB.8 L 999 O 0 O 0 6 *-* drop bbb.8 bbb.4 7 *-* flag=flag bbb.8=='BBB.8' V 0 L BBB.8 L BBB.8 O 1 O 0 Frank M. Ramaekers Jr. -Original Message- From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of John P. Hartmann Sent: Sunday, September 26, 2010 8:25 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Bug in REXX This is from MFC's original regression test, rexdiag exec. 5.4 fails this test case because it does not treat bbb.8 as having no value, but incorrectly uses the stem default instead. Removing bbb.4 from the drop in line 7 or substituting anything that does not refer to an unset tail causes the program to run correctly. Any chance of a fix for 5.2? j. 5 *-* parse value '999' with bbb. L 999 999 6 *-* flag=flag bbb.8==999 V 1 V 999 L 999 O 1 O 1 7 *-* drop bbb.8 bbb.4 8 *-* flag=flag bbb.8=='BBB.8' /* should now be totally reset ... */ V 1 V 999 L BBB.8 O 0 O 0 _ This message contains information which is privileged and confidential and is solely for the use of the intended recipient. If you are not the intended recipient, be aware that any review, disclosure, copying, distribution, or use of the contents of this message is strictly prohibited. If you have received this in error, please destroy it immediately and notify us at privacy...@ailife.com.
Re: VSM - TCPIP
And I guess Scott has the honor of the last IBMVM problem solved by Alan as a developer... :-/ I hope Alan enjoys the deeper, more direct experience he's going to have with us. If it weren't for all the traveling... -Chip- On 9/16/10 00:30 Scott Rohling said: Ok - #1 helps a little (but I'm assuming a real user can end up by itself on a line too) - #2 a bit more (yes, sneaky) - #3 even more, but probably going a little far unless I'm going for 6 Sigma or something :-)Probably will stick with tossing VSM user cuz I'm a lazy old cuss. The good news for me is now I know why it's there and why I'm excluding it ... so.. thanks again... Scott Rohling On Wed, Sep 15, 2010 at 6:10 PM, Alan Altmark alan_altm...@us.ibm.com mailto:alan_altm...@us.ibm.com wrote: On Wednesday, 09/15/2010 at 07:46 EDT, Scott Rohling scott.rohl...@gmail.com mailto:scott.rohl...@gmail.com wrote: Ok - so this is about linemode sessions. And yeah - I get the crickets - who the heck uses linemode? I suppose it fits. I always have a grin on my face when I explain virtual reader/punch/printer to non-z/VM folk. The consistency factor is me expecting the first word in front of the dash (-) to be a guest name. So I still think Q VSM would be better than stuffing it into Q NAMES where I'm looking for guest names and their status. But no one asked me.. hmmph Sounds like I get my list of running guests by ignoring VSM.. Keeping my fingers crossed no one names a guest VSM until I retire :-) Perhaps it would help to know that all VSMs 1. Appear on a separate line of output on QUERY NAMES 2. Have the '-' in column 9. User IDs have it in column 10. (Sneaky, huh?) 3. Can be seen via CP QUERY IUCV *CCS Alan Altmark z/VM Development (T minus 3h 50m) IBM Endicott
Re: Code names for zSeries
On 9/3/10 21:55 Mike Walter said: From: http://en.wikipedia.org/wiki/List_of_computer_technology_code_names Just the IBM code names (many of which I've never even heard): Cadet ? IBM 1620 The 1620 didn't have an arithmetic unit per se, relying instead on indexed memory references to the Add/Multiply Table, which had to be correctly loaded at startup. That, and the fact that its name was usually written in all uppercase, led to the back-formation of its name as an acronym for Cant Add, Doesn't Even Try. :-) -Chip-
Re: Trying to Learn z/Linux ISHELL Scripting
Careful there, Les. Remember that your VM console is still a 3215... ;-) -Chip- On 8/18/10 18:47 Les Koehler said: Not to mention the fact that at the very heart of shell scripting and Unix commands is the idea that the user is sitting at a 33 baud teletype! Les zMan wrote: Jack Woehr wrote: The Unix manuals are fabulous. They're not corporate expiatiation of contractual responsibility. They're the heart of the developer being poured out in front of you. I'm not sure fabulous would be my description -- barely usable is more like it in far too many cases. The quality varies wildly, and is very often completely lacking in usable examples. It was over three decades ago that my father said My kingdom for an example! when trying to use a UNIX man page, and AFAICT, the situation hasn't changed much. They may represent the heart of the developer, but (s)he is too often the wrong person to be documenting the beast -- (s)he *knows* it inside and out, makes too many assumptions, and may or may not be a capable writer. There's a reason that technical writers exist, and it isn't because developers are lazy...
Re: Artical should be read 'zNEXT'
But it does send the message that her image is important, although my reaction is more the bubble-headed bleach-blonde, come on at five... -Chip- On 7/8/10 17:17 Dave Jones said: No, it's to stop male readers dead in their tracks and actually read the article, Marcy:-). It worked on me. DJ On 07/08/2010 12:15 PM, Marcy Cortes wrote: LOL. And what's with the dark glasses and hair blowing in the wind? Is that supposed to enhance credibility? From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of O'Brien, Dennis L Sent: Thursday, July 08, 2010 10:13 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: [IBMVM] Artical should be read 'zNEXT' Note that this article is from Maureen O'Gara, who bears the same resemblance to a journalist that an 8086 does to a z10. She's consistently snide for no reason, and makes things up as she goes along when she doesn't have the facts. Ah, the Rita Skeeter of computer journalism.
Can you help the Open Object Rexx Project?
As many of you are aware, several years ago IBM gave the source code of Object REXX to the Rexx Language Association to maintain and enhance the language as an Open Source Project http://www.oorexx.org with a CPL 1.0 license. It currently runs on: * 32-bit Windows platforms; Windows 9x/Me/NT/2000/XP/Vista including server products * 32-bit Linux distributions including RedHat, Fedora, Debian * x86 and Sparc Solaris in 32-bit mode on 64-bit processors * AIX 5.x in 32-bit mode * x86 and PPC MacOS X * z/Linux A recent inquiry to the ooRexx developers elicited this response from David Ashley, the ooRexx Project Manager: Unfortunately, we lost our access to the zLinux system we used to build the 4.0.0 version of ooRexx. If you know of someone who can grant us access to a zLinux partition somewhere, we would be glad to build a version of 4.0.1 for zLinux. Note that we need root access to the partition so we can install the RPM for testing. Would anyone with the necessary resources be interested in helping out? If so, please contact David Ashley wdash...@users.sourceforge.net. Thanks, -Chip Davis-
Re: Can you help the Open Object Rexx Project?
On 6/2/10 20:20 McKown, John said: -Original Message- Chip Davis Sent: Wednesday, June 02, 2010 3:14 PM Would anyone with the necessary resources be interested in helping out? Wish I could help. However, it is quite possible to run z/Linux on Hercules/390 on an Intel system (Linux or Windows). I think that many run CentOS. Of course, the OORexx people may not have the people to maintain yet another Linux environment. Perhaps, but I think it might be counter-productive to add an additional layer of emulation, even if there was someone who had the time to set it up and maintain it. -Chip-
Re: Rexx Question
That's because Value is a Rexx Built-in Function. A Rexx function doesn't know (or care) if it was invoked as a function or Call'ed as a subroutine, as long as it Return's a value of some sort. Thus, Say Left('Rexx Rox',4) is exactly equivalent to Call Left 'Rexx Rox',4 Say Result The purpose of the Symbol() BiF is to access the Rexx symbol table. Normally the first argument is the symbol (variable name) itself, capitalized and quoted to avoid indirect reference. If a second argument is specified, the symbol is given the value indicated by the second argument. Regardless, the current value of the symbol will be returned. Thus, abc = Symbol('XYZ') is exactly the same (except for speed) as abc = xyz and abc = Symbol('XYZ','Rexx Rox') is exactly equivalent to abc = xyz xyz = 'Rexx Rox' Normally, one would code the statement you reference as: curval = Value(zb123, lz99pe) unless (as appears to be the case) the programmer is not interested in getting back the current value of the symbol stored in the symbol 'ZB123', but merely setting its value to the value contained in the symbol 'LZ99PE'. In this case, it appears that the programmer is indirectly referencing another symbol, and assigning it the value of the second symbol. It avoids an Interpret instruction. -Chip- On 5/10/10 16:27 Hughes, Jim said: Also there isn’t a procedure named Value either. I am using TXT2PDF to create PDFs from text files on our z/VM system. TXT2PDF is written in Rexx and is also Pipe aware. The are some Call statements in this program and they have me confused. Example: Call Value zb123, lz99pe I cannot find a procedure named zb123. If I write the same sort of Call statement, I don’t get an error. And the procedure is not called. Would someone shed some light on how the “call Value” statement works?
Re: How to work with hex in REXX
A lot of my students have the same problem so I explain it this way: The x2y functions all take character strings. If that character string is a valid value in the base indicated by the 'x' in the function name, it will be converted into a string representation of that value (if possible) in the 'y' base. A common problem is when you want to find the decimal equivalent of a hex value. The temptation is mighty strong to code dec=X2D('2FC8'x). As soon as you encode the hex value _as_a_hex_constant_ Rexx dutifully converts that string into its internal representation, and that is the value that X2D() sees. Basically, I tell them not to over-think the problem. It's simply string-in, string-out, and the name tells you what Rexx expects and what he will return. -Chip- On 4/30/10 14:42 Kris Buelens said: Often it is not obvious which x2y conversion function has to be used. For example; do you need X2C or C2X? Therefore I wrote an XTOX EXEC that tries all REXX conversions and show the result. It is part of http://www.vm.ibm.com/download/packages/descript.cgi?REXXG For example XTOX 56 displays: C2D(56)=13622 =X'3133363232' C2X(56)=3536=X'33353336' D2C(56)=8 =X'38' D2X(56)=38 =X'3338' X2C(56)=V =X'56' X2D(56)=86 =X'3836' X2B(56)=01010110=X'3031303130313130' B2X(56)=impossible 2010/4/30 Bruce Roy brucer...@hotmail.com mailto:brucer...@hotmail.com Try using the X2C REXX builtin function. For example, String = X2c(PRK) If the value of PRK will ever have a length different than 4 (which seems to be required by your logic), check the X2c documentation for the length operand. - From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Horlick, Michael Sent: Friday, April 30, 2010 9:37 AM To: IBMVM@LISTSERV.UARK.EDU mailto:IBMVM@LISTSERV.UARK.EDU Subject: How to work with hex in REXX Greetings, I have a character field for example 0001A735 (PRK) I have record like this ‘DATA DATA ’. I want to replace ‘’ with x’0001A735’. Tried : String = '||PRK||'x JCL.J = Overlay(String,Record,WORK,4) Where work = position of ‘’ in record Not working. Mike Horlick Conseiller CGI Gestion Intégrée des Technologies 1350 Boul. René-Lévesque Ouest Montréal, Qc, H3G 1T4 -- Kris Buelens, IBM Belgium, VM customer support
Re: z/VM not seeing storage from SAN
On 4/20/10 13:13 Daniel Tate said: This is the output from SCSIDISC DEBUG. INFO::Choosen FCP Sub-Channel Device(s)=ALL DEVICES ... from all the available chooses ... :-) INFO::For 5000 Choosen WWPN(s)=ALL WWPNs At least it's consistent... :-/ -Chip-
ACM award
Today the Association for Computing Machinery (of which I have been a member since 1970) made the following award: VMware Workstation 1.0, the Software System Award, for bringing virtualization technology to modern computing environments, spurring a shift to virtual-machine architectures, and allowing users to efficiently run multiple operating systems on their desktops. Aside from the run multiple OSes on the desktop part, shouldn't we be insulted? -Chip-
Re: DB2 Server for VM with VMDSS enabled
I think the poster had this dialog in mind: Doc: You know that if you do this it might hurt, don't you? Patient: uh, no. Thanks, I'll try not to do that. On 2/9/10 20:10 zMan said: Hmm, gotta point out that The abends can be avoided by changing the workload. sounds a lot like, Doc, it hurts when I do this! Then don't do that...
Re: z/VM 6.1 Install
On 2/2/10 22:52 Alan Altmark said: On Tuesday, 02/02/2010 at 03:18 EST, Schuh, Richard rsc...@visa.com wrote: And to make matters worse, the only local FTP server I can use is the one on VM. That makes uploading hundreds or thousands of files a real pain. If only the distribution had an option of some VM-friendly format in addition to the DVD. Is that APARable, Alan? No, sorry. If the documentation (procedures or requirements) is not clear, then THAT is APARable. Which makes the documented procedure or requirements just plain FUGLY. Time for a SHARE Requirement? -Chip-
Re: z/VM 6.1 Install
As someone whose first VM install was BSEPP, if that is the _simpler_ process, it makes me think IBM should hire some Microsofties to design a new system install mechanism. (Their OS may not _work_ when you get done, but the install is a relative breeze.) Seriously, the easy way takes three different operating systems to upgrade one of them? I think I see Richard's problem: he was only using two ... :-/ -Chip- On 2/2/10 00:57 O'Brien, Dennis L said: Richard, I think the TERS files are the RSU. My order download link has expired, so I can’t go back and check. The install files are in ZIP format. I have four ZIP files: cd813250.zip contains the system image DVD install files for CKD DASD. CD813260.ZIP contains the system image DVD install files for FBA DASD. I probably won’t use this one, but I grabbed it just in case we build an all-SAN system. CD813270.ZIP contains the system image DVD RSU install files for both CKD and FBA DASD. K5T70543.ZIP contains the documentation, in both BookManager and PDF format. I haven’t installed z/VM 6.1.0, yet, but I went through the same process with z/VM 5.4.0. I unzipped the install and RSU files, and put all the CKD files in a directory on my PC. I then used Samba to upload the files to a Linux guest. The nice thing about Samba is that I can use Windows cut-and-paste to copy the files. If the transfer gets interrupted, it’s easy to pick up where I left off. I work from home, so the upload takes about 16 hours. I didn’t have any interruptions with 5.4.0, but I have had them when uploading earlier releases. Once I have the files on Linux, I either install from the Linux FTP server, or use FTP to copy the files to a CMS minidisk. For either approach, I follow the instructions in the manual. Dennis See, I'm a man of simple tastes. I like dynamite, and gunpowder... And gasoline! Do you know what all of these things have in common? They're cheap! -- Heath Ledger as The Joker, in The Dark Knight *From:* The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] *On Behalf Of *Schuh, Richard *Sent:* Monday, February 01, 2010 16:39 *To:* IBMVM@LISTSERV.UARK.EDU *Subject:* [IBMVM] z/VM 6.1 Install I feel like a fish out of water. I ordered z/VM 6.1 to be delivered electronically, which may have been a mistake. · I have downloaded to the PC, and uploaded to a VM disk, the files pointed to by the notification letter. These were files that have TERS file types. The recfm/blksize are F/1024. · I DETERSEd the ones identified as the System DDR. These files are V/4095. Now what? I find conflicting instructions. Depending on where I look, I see (1) no DETERSE step, which cannot be right for these files, with instructions that say that the files must be fixed/1028, which fits neither the before nor after DETERSE lrecl, or (2) the DETERSE step is included followed by a reference to a non-existent manual. I see no reason to DETERSE the other files until I have, as Paul Harvey used to say, the rest of the story. That will only give me more files that I will probably have to erase when I must try some different download. I opened an ETR after running around in circles until I was dizzy on the support web site pointed to by the notification letter. I have no idea when I will get a response. The list is usually faster. Please Help!!! Regards, Richard Schuh
Re: XEDIT SET CASE default setting - is it the best?
Okay, I concede. Even though he's a relative newcomer to VM, Phil's is longer then mine... On 1/29/10 16:18 Phil Smith III said: Chuckie wrote: At the End of Days, we will be Judged, not by our actions or who we are, but by the sophistication of our respective PROFILEs. I am ready. Are you? I sure am -- I bet my PROFILE XEDIT does more than yours, neener neener!
Re: XEDIT SET CASE default setting - is it the best?
Perhaps. But this thread evolved into a best practices discussion. That is a wide gamut which conceivably extends down to Rexx coding suggestions. For example, my PROFILE XEDIT checked the first line of the file and if it found a lower-case character, it 'SET CASE MIXED RESPECT', otherwise it accepted the XEDIT default (from memory, apologies in advance for flaws): Address XEDIT ... 'COMMAND EXTRACT /CASE' caseopts = case.1 case.2 lc = 'abcdefghijklmnopqrstuvwxyz' 'COMMAND LOCATE :1 EXTRACT /CURLINE' If Verify(curline.3, lc, 'Match', 1) 0 Then caseopts = 'MIXED RESPECT' ... 'COMMAND SET CASE' caseopts /* In an alphabetical list of SET cmds */ ... It was sort of an inadvertent echo of the UNIX shebang line, which itself (inadvertently?) mimicked the CMS EXEC interpreter discriminator. -Chip- On 1/29/10 04:25 P S said: On Thu, Jan 28, 2010 at 10:55 PM, Les Koehler vmr...@tampabay.rr.com mailto:vmr...@tampabay.rr.com wrote: Using WORDPOS() would be a *lot* more efficient and easier to type! And so the wars resume...
Re: The return of the mainframe....
On 1/16/10 02:17 John McKown said: On Fri, 2010-01-15 at 20:13 -0600, Rich Smrcina wrote: On 01/15/2010 08:01 PM, Dave Jones wrote: Interesting article in The Economist about the return of the mainframe. The return of the mainframe Back in fashion http://www.economist.com/businessfinance/displaystory.cfm?story_id=15276714 Did the mainframe leave? In terms of mind share, then yes, it did leave. Many pundits said it was moribund and obsolete. Now, what with consolidation fever, the z is showing that visualization on it is superior to Intel. It still has a problem with initial entry cost vs. Intel. And let's not even talk about z/OS vs. Linux. As one who is struggling to run CAD/CAM on an Intel-powered laptop, I can assure you that visualization using z/Series resources is _much_ superior, but I suspect you meant virtualization, so you were right either way. ;-) -Chip-
Re: Message HCPDIR750I
As others have pointed out, DIRECTXA could not find the RPWLIST DATA file, which should have been on MAINT's 2CC (C) disk. One of the non-intuitive aspects of the RPWLIST DATA file is that it is required to be present, even if you do not wish to restrict the passwords in that manner. Perhaps you have an External Security Manager, your own Rexx exec that checks for variations/permutations, or just don't care on a PoC system. In that case, the RPWLIST DATA file must still be present but may be reduced down to one F80 record with an asterisk in column one. This dummy file will satisfy the DIRECTXA command but have no effect on the passwords. -Chip- On 11/13/09 02:33 Martin, Terry R. (CMS/CTR) (CTR) said: Hi I was just updating my DIRECTOR (DIRECTXA) and I received this message. I am not sure what it means and if I need to do something. If someone has a thought on this I would appreciate it. Ready; T=0.01/0.01 21:26:46 directxa user z/VM USER DIRECTORY CREATION PROGRAM - VERSION 5 RELEASE 3.0 HCPDIR750I RESTRICTED PASSWORD FILE NOT FOUND EOJ DIRECTORY UPDATED AND ON LINE HCPDIR494I User directory occupies 52 disk pages Ready; T=0.01/0.01 21:26:55 //Thank You,// //Terry Martin// //Lockheed Martin - Information Technology// //z/OS z/VM Systems - Performance and Tuning// //Cell - 443 632-4191// //Work - 410 786-0386// //terry.mar...@cms.hhs.gov mailto:terry.mar...@cms.hhs.gov// //WFH on Tuesdays and Fridays//
Re: Problem that is a blast from the past...
I'm sorry to rise to the bait, but the nearly universal misunderstanding of the MAKEBUF command is one of my sore spots. PEDANT There is absolutely nothing about MAKEBUF that provides any sort of separation of the records in the program stack. Successive reads from the stack will completely ignore any MAKEBUF point and happily continue to read records until the stack is empty, with no indication that a MAKEBUF point was passed. To ensure that no more records are read from the program stack than were placed there after a MAKEBUF, it is necessary to do a Rexx Queued() or SENTRIES command at the MAKEBUF point to determine how many records are already on the stack, and then remove no more than were added after the MAKEBUF. This essentially renders the MAKEBUF/DROPBUF superfluous. The ONLY thing that MAKEBUF does is to reset the FIFO pointer to equal the LIFO pointer. This is quite handy because it allows one to place a group of records on the top of the stack in FIFO order. Without MAKEBUF, this operation would require reading all the records off the stack, stacking the new records FIFO, then restacking FIFO the original records. The closest that MAKEBUF comes to a separate what you place in the stack from what is already there operation, is that if all of the records that were added to the program stack after a MAKEBUF command are not removed, the remaining records can be deleted with the appropriate DROPBUF. /PEDANT If at some point, CMS is given the benefit of multiple program stacks (as in the TSO/REXX environment) you could truly separate what you place in the stack from what is already there by placing the new records in a new stack. At that point, MAKEBUF and DROPBUF will become vestigial. TSO/REXX's NEWSTACK/DELSTACK commands and the ability to create a stack of stacks is what everyone seems to think MAKEBUF/DROPBUF provides. -Chip- On 9/15/09 15:49 Kris Buelens said: Yes, DROPBUF 0 would be even better, a MAKEBUF is not required in such a server I'd say: you'd use it to separate what you place in the stack from what is there already, but as you code DROPBUF 0, there is surely nothing anymore to separate your stuff from.
Re: Happy Birthday, Mike
I guess that was so early that he hadn't implemented the exponential operator yet... ;-) Many happy returns of the double-cube day, Mike! -Chip- Quoting Jim Bohnsack jab...@cornell.edu: I have an old exec written by Mike Cowlisha in the early days of REX (before it was REXX) that I use as a reconnect exec. Don't have the original but it still has this code in it: if m d=2*2*2 3*3*3 then do; say It's Mike Cowlishaw's Birthday! say;end So, today is the day.
Just for fun, comparing CMS Rexx execs to Unix shell scripts
Surely someone has already done this for the Korn shell. Is there such an analysis for bash? Or do I need to do it myself? -Chip-
Re: Just for fun, comparing CMS Rexx execs to Unix shell scripts
On 8/19/09 18:34 Patrick Spinler said: Chip Davis wrote: Surely someone has already done this for the Korn shell. Is there such an analysis for bash? Or do I need to do it myself? I don't know, but it could be fun to do. If you want, choose a not too complex task, and write up a REXX exec for it. I'd gladly code up an equivalent bash script. Actually, I've been doing it the other way around: I bought a copy of Dave Taylor's _Wicked_Cool_Shell_Scripts_. I'm steadily re-writing his scripts in Rexx. My biggest problem so far is to resist the temptation to improve them in ways that ksh/bash cannot match... ;-) -Chip-
Re: VM history question
Absolutely right, Alan. That's what I get for wading through my emails from the top (most recent). I was composing a thread-closing post based on his reply when I saw your note. Sir Lynn does us amateur VM historians a great service with his encyclopedic records and recall. Not to mention having influenced a large part of it himself. :-) -Chip- On 7/14/09 04:35 Alan Altmark said: On Tuesday, 07/14/2009 at 12:12 EDT, Chip Davis c...@aresti.com wrote: Jeff, yours may be the earliest reference to saved segments so far. Is the named segment you mention the same concept? That would push implementation of the idea back into the CP/67 days. I thought Sir Lynn's posts on the subject rather definitive, no? If I read it rightly, NSS was in CP/67 and DCSS arrived VM/370 R3. Alan Altmark z/VM Development IBM Endicott
Re: Updating z/VM
On Mon, 13 Jul 2009 17:21:29 -0400, Alan Altmark alan_altm...@us.ibm.com wrote: Installation of z/VM 6.1 will be just like installation of prior releases. On 7/13/09 22:39 C. Lawrence Perkins said: Rats; and I was hoping I could swear off swearing :-) ... or as Lloyd Bridges (McCroskey) said in Airplane, Looks like I picked the wrong week to quit sniffing glue. -Chip-
Re: VM history question
Jeff, yours may be the earliest reference to saved segments so far. Is the named segment you mention the same concept? That would push implementation of the idea back into the CP/67 days. -Chip- On 7/13/09 20:15 Jeff Savit said: I was porting the CP/67 port of LISP/MTS to VM/370, and needed something to replace the named segment used under CP/67 for LISP's pushdown stack.
VM history question
Though I'm not sure if it was On the eighteenth of April, in Seventy-Five I suspect that Hardly a man is now alive Who remembers that famous day and year ... when shared segments were implemented in VM. It seems to me that it predated the VM/370 SEPP/BSEPP days when I started, but there's been many a synapse lost since then. Google, Wikipedia, ibm.com, and even Melinda's wonderful work have not been revealing, so I thought perhaps might be an old gray-beard like myself (with a better memory) still reading this list. Any help? -Chip-
Re: VM history question
Oh, I vividly remember the joys of DMKSNT and managing DCSSes, and of trying to squeeze everything below the 16Meg line yet above the VMSIZE. It seemed that the very users who needed access to the most packages also had to have the largest VMs. Things are *MUCH* better now that nearly everything can be changed on the fly and you don't even need an IPL, much less assembly and re-gen. These new kids today don't know how good they have it... wheeze cough hack ... I would think it would have been sometime in the early 70's, so I guess it might have been in the first release of VM/370, but I'm having trouble tracking it down. -Chip- On 7/12/09 09:09 Ivan Warren said: Chip Davis wrote: ... when shared segments were implemented in VM. It seems to me that it predated the VM/370 SEPP/BSEPP days when I started, but there's been many a synapse lost since then. VM/370 R6 does have DCSS (DisContiguous Shared Segments IIRC) - Even without SEPP or BSEPP. But of course, contrary to modern VM systems (ie, VM/XA onward), these needed to be defined when the nucleus is built (via DMKSNT) - and space had to be allocated (that is, even though the space was allocated as PERM, you had to make sure no user MDISKs were sitting there) and formatted (through IPL FMT) especially for this purpose on a CP owned DASD. Note that VM/370 R6 is still being actively used as a learning tool by some individuals who aren't lucky enough to have access to a modern and up to date VM system - since it is the last VM release that was available as a no-charge SCP - and is also believed to be de-jure (although IANAL) public domain because of the lack of copyright statement and because it was release prior to the 1976 copyright laws. --Ivan
Re: Newbie question
I heard he was hiking the Appalachian Trail ... -Chip- On 7/10/09 18:53 Alan Altmark said: As an aside, I thought he-who-will-not-be-named was on, um, extended leave for unspecified personal reasons.
Re: PERFSVM question
2,500 tries over 2 hours is not an attempt to break in, that's a denial-of-service attack. Apparently there was a pretty big DOS attack on a number of Federal and other websites starting on July 4. They hit a ton of sites, and if you stayed up, you did better than the Treasury Department, Secret Service, Federal Trade Commission and Transportation Department. http://www.google.com/hostednews/ap/article/ALeqM5icTKBW9_fm-oKDzns75BI-ykokSwD999UN580 -Chip- On 7/8/09 15:02 Jim Bohnsack said: We saw a bunch of logon attempts a night ago to userid ADMINIST which I do not have defined in the directory. There were about 2,500 over the course of 2 hours. They were apparently not coming in thru an emulator, so that pretty much leaves the web interface to Performance Toolkit. Is there any way I control that interface. How can I get the ip address? IBM used to have, internally, a mod that would double the amount of time between each unsuccessful logon attempt to a particular userid. Something like that would do the job. Jim
Re: PERFSVM question
Not if it's waiting on a response from the victim and immediately resending. That's harder to automatically recognize and guard against. A PING flood, otoh... Besides, it wasn't clear that the attack was sustained or in spurts, which could have raise the effective frequency. -Chip- On 7/8/09 22:08 Mark Post said: On 7/8/2009 at 2:55 PM, Chip Davis c...@aresti.com wrote: 2,500 tries over 2 hours is not an attempt to break in, that's a denial-of-service attack. One attempt every 3 seconds (roughly)? I doubt it. Sounds like a script kiddie to me. Mark Post
Re: Last release for 3420s?
On 6/8/09 17:05 Michael Harding said: The early Hollywood depictions tended to feature card sorters or collators, only occasionally tape drives. Had to have some sort of visible action. I remember one though (Goliath, I think) about a computer that was taking over the world, which had a room whose walls were covered with panels of flashing lights and a control console I recognized as an IBM 1620. Close, it was Colossus: The Forbin Project from the early 70's. I was programming on a 1620 at the time, and the idea that they would have butchered such a sweet (decimal) machine to make props for a movie, offended the living hell out of me. Seems to me most of the other hardware was CDC. -Chip- RESET-INSERT-2689-RELEASE-INSTSTOP RESET-INSERT-360051004900500-START
Re: REXX Date Function Help...Please
Yes, that was the intention of the ANSI Standard Committee's Y2K work. It is not possible to convert from any of the ambiguous date formats. What should Date('U', 'Tuesday', 'W') return? Since the Julian format was defined to have only a two-digit year (yynnn) there is no way to define an accurate equivalent date. And yes, we discussed sliding windows and a number of other hacks and ultimately rejected them as dangerous. One could get the wrong answer and not know it. We like the 'astonishment factor' to stay as low as possible. Besides, as Bob has shown, there are several ways of accomplishing the conversion as long as you know the century the Julian date belongs to. -Chip- On 5/13/09 14:02 Edward M Martin said: Hello Howard, From z/VM 5.3 Help REXX DATE --DATE(--.---.--.-.--)--- |(1)| '-| Group 1 |-' '-output_date_format' And then reference (1) Has NOTE: (1) If the Century or Julian format is specified, then no other options are permitted. These two formats are provided for compatibility with programs written for releases prior to VM/ESA(R) version 2 release 1.1. It is recommended that they not be used for new programs. It would seem that if you specify Julian format you have to use today’s date. Ed Martin Aultman Health Foundation 330-363-5050 ext 35050 *From:* The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] *On Behalf Of *Scott Rohling *Sent:* Tuesday, May 12, 2009 10:05 PM *To:* IBMVM@LISTSERV.UARK.EDU *Subject:* Re: REXX Date Function Help...Please For the group (sent this to Howard personally when I did a reply): Is this what you mean?: jday = date('J') Say DATE('U',jday,'J') On DATE: the first parm is the output format (USA) - the 2nd is the input date - the 3rd is the input date format. Scott On Tue, May 12, 2009 at 7:57 PM, Howard Rifkind vmes...@yahoo.com mailto:vmes...@yahoo.com wrote: I have the DATE function working in order to get the current date into Julian date format but I'm have difficulty going the other way...Julian date to standard date such as MM/DD/YY. I've tried tries a number of ways to format the DATE function to do this without any success. I surrender. File_Juldate = DATE('J',FILE_DATE)Doesn't work. Any help with this will be appreciated. Thanks
Re: Secure FTP
On 4/3/09 17:29 Alan Altmark said: It was a tupo. Wow, that's impressive! tupo by itself is a 'meta-typo' but coupled with its reference to two releases of z/VM, that makes it a 'meta-typo pun'. Definitely Friday-level work, there! :-)) -Chip-
Re: FW: ASSEMBLER-LIST Digest - 14 Mar 2009 to 15 Mar 2009 (#2009-72)
No prob, Phil. I suspect a lot of us old BAL-heads enjoyed it. -Chip- On 3/17/09 12:35 Phil Smith said: My apologies for that earlier post...misdirected.
Re: Philosophical question...
Deeper philosophical question: If a man says something and there is no wife to hear him, is he still wrong? -C- On 2/3/09 18:17 Alan Altmark said: On Tuesday, 02/03/2009 at 10:53 EST, David Boyes dbo...@sinenomine.net wrote: Question: Am I wrong? Ask your wife. Only wives are authorized to make that call about their husbands. But if you're not wrong about this, I'm sure you're wrong about something else. Just ask. Trust me on this. -- Chuckie
A modest request
This is a minor problem in the overall scheme of things but I have noticed it occurring with greater frequency lately. It appears that sometimes members of a discussion list will initiate a new topic by simply replying to a recent posting and changing the 'Subject:' line. This is a handy shortcut to avoid entering a 'To:' line. Unfortunately for those of us who get and archive massive amounts of discussion list postings, this reply will appear to be a strand of the original discussion thread, despite the different 'Subject:' line. And that totally screws up the poor topic threader on mail clients sophisticated enough to have one. The result is that such topic threads are now totally invisible when viewed in a threaded mail reader or file manager. And yes, I know that listserver archives are available but I do a lot of my work with custom Rexx tools on a local archive, or while offline. (Right now, I'm in a camper outside of a helicopter factory in rural north Florida. Dial-up's what I got, wi-fi's merely a dream.) I suspect most folks are unaware of this issue. It really should be added to the listserver netiquette guide along with trim your quotes, avoid long siglines, and never annoy Chuckie (I'm sure that one's in there; if not it should be added too. :-) Thanks for your cooperations, and we now return you to your regularly scheduled discussion. -Chip Davis-
Re: Virus Software for z/VM
On 11/26/08 17:09 David Boyes said: On 11/26/08 10:24 AM, clifford jackson [EMAIL PROTECTED] wrote: Is there such athing as Virus Software for z/VM like Norton is for Windows and such Intel-based viruses don’t work at all on Z, and while they do exist (XMAS EXEC, anyone?) there are features in the RSCS product and a limited capability in the TCPIP product to deal with them. Boy, does that bring back memories! I wrote the GRINCH EXEC in Rexx within minutes of it showing up on our (very large) university system. It was a simple search and destroy routine that scanned the system RDR spool and stole the offending files. ;-) Its main claim to fame was that because it was written in Rexx, it was quick to implement and it kept the spool from filling up. In those days, that caused an ABEND. GRINCH was fairly widely distributed around VM university sites, but in all honesty it wasn't that sophisticated and many shops wrote their own. I left VM at Y2K (kicking and screaming) so I'm not terribly current, but can anyone recall an example of a VM virus besides XMAS EXEC? -Chip Davis- [EMAIL PROTECTED]
Re: REXX DATE function
Well Steve, the rules are exactly as I stated them: Rexx is case-sensitive when it regards data; it is case-insensitive only when it comes to how the Rexx code itself is written. It would be a greater stretch to assume that one built-in function (Date) would behave differently from all the other BIFs in regard to case-sensitivity. And I think you would have a hard time convincing IBM (or the rest of the Rexx community for that matter) that only the Date() function should be changed to disregard case. I have no doubt that such a change would raise the Astonishment Factor significantly. If it is that big of an issue, may I suggest that 'SET LANGUAGE UCENG' will solve your problem, but you may find the cure is worse than the disease. :-) As for improving the documentation to explicitly state that the output format of Date('Normal'), and thus the input format for Date('Basedate',mydate,'Normal') is in mixed case, there are two problems: 1. The documentation seems pretty complete to me already: NORMAL - date in the format: dd mon . This is the default (dd cannot have any leading zeros or blanks; must have leading zeros but cannot have any leading blanks). If the active language has an abbreviated form of the month name, then it is used (for example, Jan, Feb, and so on). If Normal is specified for input_date_format, the input_date must have the month (mon) specified in American English (for example, Jan, Feb, Mar, and so on). 2. The case is dependent on the SET LANGUAGE value (see Note 4). One inescapable factor is that z/VM and z/OS are running embarrassingly ancient versions of the Rexx interpreter, ones that are not even ANSI Standard compliant over a decade after it was written. IBM gave Object REXX to the Rexx Language Association to support and enhance it as an open-source project (see http://sourceforge.net/projects/oorexx/). The Open Object Rexx interpreter supports all the other major platforms (Windows, UNIX/Linux/AIX, Mac) and is not only object-oriented, but has caseless versions of those routines. Efforts to port the ooRexx code to VM and/or TSO has stalled for lack of resources and expertise, not interest or enthusiasm. Perhaps you would care to help? -Chip Davis- [EMAIL PROTECTED] On 11/20/08 13:30 Gentry, Stephen said: It depends. 8-) In WORDPOS I would it expect it to be fussy, since it is indeed a specific character string you are looking for. With DATE I would expect it to be more concerned with the format of the date vs case of the month. I'm not advocating that DATE('B', . . .) be changed to accept any case. However what I would suggest that either the doc be changed to inform the user of the month spelling requirement OR the DATE('B', . . .) function be changed to disregard case. Respectfully, let me know what the rules are and I'll play by them. (or if I choose to ignore them I'll accept the consequences). But, if we want to play CalvinBall then let me know that too. 8-) (I like opposite day the least.) Steve -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Chip Davis Sent: Wednesday, November 19, 2008 5:36 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: REXX DATE function One man's fussy is another man's rigorous or consistent ... :-) It was designed that way because the default output format returns the month in mixed case. It was felt that reciprocality demanded that the Date() BIF accept a date in the same form that it returned it, as long as it was unambiguous or, in the case of 2-digit years, windowable. Once you open the door to variants, things get messy, e.g. should 12Oct2008 be allowed? Remember, Rexx is case-sensitive when it regards data; it is case-insensitive only when it comes to how the Rexx code itself is written. Would you expect that WordPos('OCT','Jul Aug Sep Oct Nov Dec') would return a 4 or a 0? -Chip Davis- [EMAIL PROTECTED]
Re: REXX DATE function
One man's fussy is another man's rigorous or consistent ... :-) It was designed that way because the default output format returns the month in mixed case. It was felt that reciprocality demanded that the Date() BIF accept a date in the same form that it returned it, as long as it was unambiguous or, in the case of 2-digit years, windowable. Once you open the door to variants, things get messy, e.g. should 12Oct2008 be allowed? Remember, Rexx is case-sensitive when it regards data; it is case-insensitive only when it comes to how the Rexx code itself is written. Would you expect that WordPos('OCT','Jul Aug Sep Oct Nov Dec') would return a 4 or a 0? -Chip Davis- [EMAIL PROTECTED] On 11/19/08 00:33 Mark Wheeler said: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU wrote on 11/18/2008 03:33:48 PM: I am trying to run the following code: code /* */ date1='12 OCT 2008' date1='12 Oct 2008' date2='13 OCT 2008' date2='13 Oct 2008' Fussy, no?
Re: Header file to COBOL copybook?
ISTR a Austrian RexxLA member developed some tools for doing that sort of thing, but I don't know if it was TO copybook, or FROM copybook. Drop Thomas Schneider a note at [EMAIL PROTECTED] and see if he can't help you. He specializes in conversion tools like that. -Chip- On 11/13/08 13:53 Phil Smith III said: Anyone have any tools for converting C header (H) files to COBOL copybook files? Or experience doing so? I can spell COBOL 2 out of three times. COBALL. (See?) ...phsiii
Re: Make me abend, please
On 11/9/08 17:02 Nick Laflamme said: I know it's no longer Friday, but is there any chance that there will be a performance of 50 Ways to ABEND your System, music by Paul Simon, probably at the Friday closing session? Just store a Fox-Fox in box, Knox... -Chip-
Re: Bear History
On 11/8/08 13:30 A. Harry Williams said: (The Jobusches subsequently got a 50-KB roll of stickers, to keep SHARE well supplied.) As in 50 KiloBears ? ;-) -Chip-
Re: Wired delenda est
Correct me if I'm wrong Phil, but wasn't the VM bear the creation of the SHARE VM Project when they were looking for a symbol to represent the most user-friendly operating system? I know it goes 'way back. -Chip- On 11/7/08 12:45 Phil Smith III said: http://www.wired.com/culture/design/multimedia/2007/04/gallery_mascots?slide=9slideView=2 Someone at /. has conflated the VM bear and V/Bear, though: http://slashdot.org/article.pl?sid=07/04/25/1233212 (Gee, someone at /. getting something wrong! How remarkable! But his heart's in the right place.) ...phsiii
Re: Disk Accounting Records
And some less-sophisticated listservers (one written in Python comes to mind) /strongly/ encourage the list admin to _not_ munge the headers, causing replies to go the original poster, not the list. Go figure. For a true LISTSERVE discussion group, the problem is either a poster who didn't know what a Reply-To: header was used for, and has his mailer fill it in with his own address just in case, or a poster who is using one of many brain-dead webmail interfaces that do the same thing automatically (and usually un-overridably). -Chip- On 10/1/08 04:46 Mark Post said: On 9/30/2008 at 10:53 AM, in message [EMAIL PROTECTED], Scott Rohling [EMAIL PROTECTED] wrote: Sending to the mailing list... g -- not sure why I reply to some users and it goes to them instead of the list.. Usually this happens because the person you're replying to has a reply to mail header set to their email address, instead of letting it default (to the mailing list). Mark Post
Re: Linux Commands
I can't teach my UNIX classes without caffeine and a vi cheat-sheet. Fortunately, both are available here: http://www.thinkgeek.com/homeoffice/mugs/7bbe/ -Chip- On 8/15/08 16:31 Higgins, Neil S said: Linux-Unix cheat sheets - The ultimate collection http://www.scottklarr.com/topic/115/linux-unix-cheat-sheets---the-ultimate-collection/ I especially like first item in the first row (Unix/Linux Reference Card) and The One Page Linux Manual in row two position two. FOSSwire.com has one named the Unix/Linux Command Reference fosswire.com/wp-content/uploads/2007/08/fwunixref.pdf and many other Open Source related items.
Re: code maint [was: Re: REXX coding question.]
Thank you, Jim. I did not intend to unilaterally declare that thread dead, but only if there were no objections (i.e. everyone was sick of it already). It had far out-lived its subject line. Rick's and Phil's anecdotes showing the necessity of proper code commentary are valuable object lessons. I have many examples of code that demonstrate that I was once much more clever than I am now. And inscrutably so. The problem with Rexx code is that it is, in general, so transparently clear that one rarely encounters more than the most desultory commentary. For this reason, clean logic, descriptive variable and routine names, and explicit argument passing become far more important. That (and the presence of Signal ON NOVALUE at the top) are my primary indicia of a good Rexx programmer. -Chip- On 7/12/08 22:57 Jim Bohnsack said: I thought that Chip Davis's last post to REXX coding question and where he declared that topic closed was so much on the mark, that I saved it and was going to append a reply but, he said the topic was closed. I think that what he said was right on the mark. Chip Davis wrote: With that, and there being no objection, I declare this thread closed.
Re: REXX coding question.
Thank you, Richard. That is exactly what I was trying to illustrate. I'm a big fan of Rexx stems and PARSE, and regularly exploit their power. But there comes a time when one must eschew elegance (and perhaps some efficiency) on behalf of the poor schmuck who will need to read, understand, and/or modify your code later. Especially if that poor schmuck might be yourself. That is the why, of the eleven Fundamental Language Concepts of Rexx enumerated by Mike Cowlishaw (TRL, Part 1, Section 3) the very first is Readability. [Note to Original Poster: he also lists the use of mixed case code as the first of the five components of readability. There is no excuse for the readability of any Rexx program to be sacrificed on the alter of the 026 keypunch!] So, by all means, code your compound condition IF. But when your logic becomes convoluted and it misbehaves, Rexx allows you to restate your problem in a clearer way. If that means coding a Then Nop because positive logic in your compound condition makes it clearer what you are checking for, so be it. If coding If \Abbrev(...) gives you the same clarity (and more user input options) go for it. If coding Select ... When ...s lets you test multiple disparate conditions while avoiding nested If ... Then ... Else If ...s, Rexx is there for you. Precisely because Rexx has such expressive power it can, more than most other programming languages, reveal flaws in the problem solution before it ever gets to the execution step. Just look for statements that don't scan well in English. If your mother could read it verbatim and have some idea of what's going on, it's probably okay. One last point that no one mentioned to the OP: one of the joys of programming in Rexx is the ease with which debugging is accomplished. The _very_first_ thing I would have done in his situation would have been to insert a Trace ?I in front of the failing instruction. The output of an Intermediate trace would have made obvious the logical flaw in his IF instruction. With that, and there being no objection, I declare this thread closed. Respectfully submitted, -Chip- On 7/9/08 15:54 Schuh, Richard said: I think that the stem solution, below, should be taken in the spirit of fun, as it was undoubtedly meant. It appears to have been an extreme, absurd example of how one can overcode a solution. (Why do it in a single statement if you can write a chapter in a book to do the same thing?) Strunk and White championed precision, brevity and clarity in business communications in Elements of Style. Their advice applies to programming as well to letters, notes, and e-mail.
Re: REXX coding question.
[NOTE: This thread has gone well beyond being of any use to the OP, however it may have pedagogical value to others. Maybe.] As big a fan of Rexx stem associative arrays as I am, I should emphasize that none of the below _enhances_clarity_. In fact, one could safely argue that it raises the Rexx Astonishment Factor quite high. That said, the OP was dealing with only a binary (yes vs anything else) case. Another way to code for multiple positive responses would be: Parse Value 01 I WILL GROVEL With 1 _. 2 _.Y . 2 _.YE . 2 _.YES ., 2 _.OKAY . 2 _.PLEASE . 2 _.SURE . , 4 phrase 2 _.phrase . Say Should I do this? Parse Upper Pull answer If _.answer Then Say I will do it. Else Say I will not do it. Not that I am espousing this sort of programming (there is such a thing as giving the user too many options) but the PARSE instruction packs quite a bit of power and will usually perform multiple assignments faster than multiple assignment statements. -Chip- On 7/8/08 14:45 Kris Buelens said: Beware: now I will pop in: The _. stem was initalized to '' (nullstring) consequently there is no need to check with SYMBOL() Futhermore when coding SYMBOL('_.'answer) you will get a double translation, if it were required/better, one should code When symbol('_.answer')'VAR' then With your SYMBOL() code, an answer like I GROVEL BEFORE YOU TO PERMIT IT will be refused 2008/7/8 Brian Nielsen [EMAIL PROTECTED]: Before someone dings me for it, the SELECT below should have this as the first WHEN clause: WHEN symbol('_.'answer)'VAR' THEN say 'Invalid answer' Brian Nielsen On Mon, 7 Jul 2008 16:51:27 -0500, Brian Nielsen [EMAIL PROTECTED] wrote: On Mon, 7 Jul 2008 20:26:50 +, Chip Davis [EMAIL PROTECTED] wrote: In fairness, your problem is not caused by unfamiliarity with formal logic, but mere lack of clarity. Brings back memories of the obfuscated C contest. Some of those entries were brilliant. If I might suggest an alternative so far overlooked: And here is another (obscure) alternative that also allows phrases and synonyms without complicated logic tests: /* */ _.='' _.y='Y' _.ye='Y' _.yes='Y' _.okay='Y' _.please='Y' _.maybe='Help' phrase='I GROVEL BEFORE YOU TO PERMIT IT' _.phrase='Y' phrase='YOU ARE CRAZY IF YOU THINK I WANT TO DO THAT' _.phrase='N' say 'Should I do this?' pull answer SELECT WHEN _.answer='Y' THEN say 'I will do it' WHEN _.answer='N' THEN say 'I will not do it' WHEN _.answer='Help' THEN say 'RTFM and make up your mind' OTHERWISE say 'Invalid answer' END Brian Nielsen = ===
Re: REXX coding question.
I'm afraid we're gonna have to cite you for a flagrant violation of DeMorgan's Law, Howard. ;-) In fairness, your problem is not caused by unfamiliarity with formal logic, but mere lack of clarity. If I might suggest an alternative so far overlooked: If \(Left(answer,1) = 'Y' | answer = 'YES') Then Do Say answer Say The wrong response has been entered etc This is logically equivalent and has the advantage of placing the comparisons in positive terms. Also, Left(foo,1) is equivalent to Substr(foo,1,1) and somewhat clearer as well. However, you are still stuck with the counter-intuitive IF NOT condition. So what's wrong with phrasing your question in the positive and taking the other leg of the If-Then-Else? If Left(answer,1) = 'Y' | answer = 'YES' Then Nop Else Do Say answer Say The wrong response has been entered etc Does that not make the intent of the code much clearer? -Chip- On 7/7/08 16:23 Howard Rifkind said: This is confusing me. The response to the variable 'answer' is a Y. Yet this portion of the code isn't working. Shouldn't the logic just fall thru because the response was a Y. IF SUBSTR(ANSWER,1,1) /= 'Y' | ANSWER /= 'YES' THEN DO SAY ANSWER SAY 'THE WRONG RESPONSE HAS BEEN ENTERED' SAY SAY 'PROCEDURE IS TERMINATING, PLEASE TRY AGAIN' EXIT END Thanks
Re: Ha: Procedure to ddr multiple disks to one tape and restore
I hate to nitpick (okay, I enjoy it actually) but that is in no way a rexx proc. That's written in EXEC2, the language Rexx was designed to replace. -Chip- On 3/6/08 09:15 Vladimir A Skomorokhov said: for example 2 rexx proc: 1. dfors exec TRACE ALL EXEC DFOR 133 EXEC DFOR 134 EXEC DFOR 135 EXEC DFOR 136 EXEC DFOR 139 EXEC DFOR 140 EXEC DFOR 12F 2. dfor exec TRACE ALL STACK SY CONS STACK IN 1 3390 STACK OUT 181 3590 (LE CO STACK DUMP ALL STACK YES DDR CP ATTN The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU написано 06.03.2008 11:42:41: I am not really a VM person, so I am asking for help a bit . Does anyone have a Rexx proc that will take a list of disks as input and back them up to one tape . We just became the proud owners of 3590 drives. Before it was at least two tapes per disk. (yes we took a few boxes of tapes to do DRP testing) IIdeally I would like to produce a rexx proc for restoring those disks too . ( I can wish cant I?) Otherwise I will be reinventing the wheel. Many thanks Hilary Hurwitz הילרי הורביץ System Programmer עובדת סיסטם Phone: + 972 2 6297034 02-6297034 טלפון: Fax: + 972 2 6295247 02-6295247 פקס: Mobile: + 972 50 7605551 050-7605551 סלולרי: Email: [EMAIL PROTECTED] [EMAIL PROTECTED] דוא''ל: [изображение удалено] [изображение удалено] [изображение удалено] [изображение удалено] [изображение удалено] [изображение удалено] www.malam.com [изображение удалено]
Re: The list it to quiet, here's something to work on.
March 20, 1979. And that double-secret list is hidden in The Rexx Language: a Practical Approach to Programming by M.F. Cowlishaw, as well as every other Rexx manual/text on the planet. :-) -Chip- On 3/5/08 13:59 Gentry, Stephen said: When was the 'T' option added!? 8-) Over sight on my part. Thanks. Steve G. -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Mark Boonie Sent: Tuesday, March 04, 2008 9:28 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: The list it to quiet, here's something to work on. Unless I've misunderstood the request, it's just: length = Length(Strip(string, 'T')) /* Strip trailing blanks and then take length */ - mb I have a character string 'NOW IS THE TIME ' Please note that there are multiple spaces/blanks after the word TIME I want to find the length of this character string not including the multiple blanks after TIME.(i.e. NOW IS THE TIME length=15) I can figure it out with brute force and awkwardness (get the LENGTH of the string and start working backwards until I hit the first non-blank) but was hoping for a more elegant way. Is there a double-secret Rexx function or a Pipe function that will accomplish this? I'm a little surprised Rexx doesn't have this (unless, again, it's on the double-secret list). Thanks, Steve G
Re: In search of mainframe engineers
On 2/25/08 19:38 Alan Altmark said: On Monday, 02/25/2008 at 11:03 EST, RPN01 [EMAIL PROTECTED] wrote: Sometimes, a good class can help get you started, or can bring it all together and make it gel. The Getting Started with z/VM for Linux book is a good place to start. As to IBM classes, the reason that IBM doesn't offer many formal z/VM classes is that there isn't much demand. If folks want IBM to offer more classes, you need to contact IBM education folks. Speaking as the instructor of the upcoming IBM course z/VM Introduction and Concepts I have to agree. The class will start exactly a month from now and I currently have only three students. Apparently the same three students who were enrolled in its previous offering back in mid-November, which was cancelled due to low enrollment. This is a great ab-initio course for someone just getting started in VM and the public price is $1635 for the three days. I've been in the mainframe training business for twenty years and I assure you, it takes $2000-4000/day to put on a lecture/lab class of any quality with a subject matter expert for an instructor. It's not hard to do the math and see that Education in not one of IBM's major revenue centers... Go to the System z section of the IBM Learning Services course catalog http://www-304.ibm.com/jct03001c/services/learning/ites.wss/us/en?pageType=pagec=a409 and select the e-mail us link on the right. As to affordability, I guess the question is whether the cost is in line with the benefit. What criteria do you have for affordability? And effectivity? At one point, I was going to make a ton of easy money cranking out self-paced learning courses. The deeper I got into it the more obvious it became that the only students who actually retained any information from the courses were the very ones who learned quite well from reading manuals in the first place. The material is obviously delivered towards the visual learner and the exercises have to be constrained to the limits of the course environment; there's no go play around and explore with self-paced courses. But mainly, there's no raising your hand and asking a question to clarify your (mis)understanding. No instructor with years of experience crafting analogies, real-world examples, or comparisons to concepts you already understand. (Until the cows come home, if necessary.) And no one to winch you out of the ditch when your playing around leaves you stuck in the weeds. With self-paced courses, you either get it from the text or you don't. Then there is the cruelest aspect of self-paced courseware, as exemplified by [EMAIL PROTECTED]: Would it make sense to have some kind of computer (okay, PC) based education - where the student (their company) buy the class, and the student could not only take the class on his own time - but could refer back to it when he/she shoot themselves in the feet?? On his own time? What own time? How many of us work an eight-hour day and go home to enjoy sixteen hours of our own time? Besides, how much technical material are you able to absorb after a more typical 10-12 hour workday? In short, there is no shortcut. By corollary, there's no cheap-cut either. If you want (to be) a well-trained staff member, it's going to cost some money and time. Preferably time away from the office and interruptions. Time away from phones and crackberries. Time to concentrate fully on the material being learned, and to practice the skills you came to acquire. IBM has a great VM curriculum (most of which I don't teach) including the outstanding Installing, Configuring, and Servicing z/VM for Linux Guests. This course is so popular the instructor's never home. But if you want my recommendation for a good SysProg jumpstart course, check it out. -Chip Davis- [EMAIL PROTECTED]
Re: Article: In Search of Mainframe Engineers
Minor typo. If year 1970 insert hundred before users, else insert thousand. In context, it's obvious that the author assumes that the only users our glass house mainframes supported were on 3270's. (Side bets that Mr. Wallis is old enough to have ever _seen_ a 3270, anyone?) -Chip- On 2/22/08 05:45 Alan Ackerman said: http://www.ibmsystemsmag.com/mainframe/januaryfebruary08/features/18963p3.aspx said: The typical organization might have one technician for every two or three users. Hunh? When was this ever true? Alan Ackerman Alan (dot) Ackerman (at) Bank of America (dot) com
Re: Impromptu XEDIT Survey
On the right, of course.:-) That way, both the prefix area and the next line are both a single keystroke away. From anywhere on a line, a CR takes you to the beginning of the next line, a TAB takes you to the prefix area. And then there's the human-factors aspect of wasting valuable screen real estate on the left margin where the human eye expects to find text, only to have to skip over a PDF/EDIT-style prefix area. Not to mention the presentation change when the prefix area is turned off; if it's on the right, the only difference is you might see more of each line. The text in column 1 stays in column 1. I thought this issue was settled back in the 80's ... ;-) -Chip- On 2/20/08 15:04 Dave Jones said: On the left, of course.:-) Huegel, Thomas wrote: Where does the prefix field belong? On the left? or On the right?
Re: Impromptu XEDIT Survey
On 2/20/08 15:57 Rob van der Heij said: On Wed, Feb 20, 2008 at 4:44 PM, Chip Davis [EMAIL PROTECTED] wrote: That way, both the prefix area and the next line are both a single keystroke away. From anywhere on a line, a CR takes you to the beginning of the next line, a TAB takes you to the prefix area. You mean you actually over-type what is already there on the screen rather than orchestrate changes through the command line and prefix area?:-) If that is what I want to do, yes. If I need a fresh line, it's only three keystrokes (tabaenter) one less than is necessary if the prefix is on the left (crupaenter). Add one more character to invoke SI. The main point is that with the prefix on the left there is no difference between a TAB and a CR; you're going to go to the prefix area whether you want to or not. With the prefix on the right, you have the choice of going to the prefix area with a TAB, or the beginning of the next data line with a CR. What good is having the choice if you don't take advantage of it? You would not if you learned XEDIT on a 300 bps terminal... that's how you learn the order in which prefix commands, screen updates and command are processed. And when someone managed to put a FULLREAD ON in some of our shared macros, you'd have enough time to hit him over the head before your screen refreshed ;-) Oh, but I would, Rob. And that's exactly where I learned the editor, only it was EDIT under VM/370 BSEPP. XEDIT came much later. But that's the beauty of the design of XEDIT: the user can choose the display and behavior of the tool that suits the task at hand. You can put the prefix in the _middle_ of the line if you want to ... A toast to Xavier de Lamberterie! -Chip-
Re: Display Menus without ISPF/VM ?
Lionel, I did a fair amount of pure-XEDIT panel design back in the Y2K days, both by hand (it's not hard) and writing Rexx apps to dynamically generate and use them. Let's try to carve out some time next week to talk about it. -Chip- On 1/31/08 17:44 Lionel B. Dyck said: I don't have ISPF/VM and yet I would like to create simple display panels with menus and data entry options. Is there a way to do this using XEdit or some other native z/VM facility? TIA
Re: S213 Abend Backing Up 530RES Using z/OS FDR
Oh man, I *HATE* it when that happens... :-) Dennis, I commend your courage and candor. We've all been there, and sometimes managed to slink away unnoticed with an only slightly flattened forehead. Just think of all the valuable insight we all gained about VM VTOC records from your problem... ;- -Chip- On 2/1/08 04:12 Dennis_Schaffer said: I thought I'd provide an update and closure to this S213 abend issue. The solution was actually pretty embarrassing. The solution was to vary the device offline/online to the correct z/OS system. I had recognized the need to vary the device offline/online before I even solicited input from the community. However, my backup job was redirected to a different z/OS system from the one where the varies occurred. So, there was no problem with the z/VM sysres volume which was built by the installation process. Probable user error. Thanks to all of you for your input. Dennis On Thu, 17 Jan 2008 00:28:09 -0600, Dennis Schaffer [EMAIL PROTECTED] wrote: Hi, I'm installing z/VM (v5.3) in a previously z/OS-only shop. Because there is no existing VM, I'm doing a first-level installation and I'm also using the FTP server method. The installation, while slow, has completed successfully and I'm able to IPL the newly-installed system. Thanks, IBM, for allowing me to bypass all those tapes. I don't yet have access to any tape drives under VM so I'm depending on z/OS to backup my newly-installed volumes, 530RES, 530PAG and 530SPL. However, I experience S213-04 abends (can't find SYS1.VTOC on the volume) attempting to backup these volumes using Innovation's FDR under z/OS. z/VM was shutdown and I varied the volumes offline/online to z/OS following the first failure, hoping that might correct the problem. I've used the same product/technique many times before in a past life and I know the process works. I suspect the installation process (whether its something inherent to v5.3 or something unique to the FTP server install process, I'm not sure) is not initializing these volumes with the dummy VTOC required by z/OS. I did not override the default volume format option of the installation. I suspect I need to run ICKDSF CPVOLUME FORMAT (or CPFMTXA FORMAT) against cyl 0 on each of these volumes (first documenting and resbuilding the allocation maps) and then run SALIPL to rewrite the Loader IPL text on 530RES. Be aware that I'll more than likely be doing this against a running system without a backup (I'll probably try to DDR MAINT 123/124/125 to another volume, for a small amount of insurance). I think that's what I need to do but I want to run it past the community because I don't want to go through that multi-day installation again. Does this sound reasonable? Can you think of any other reason I'd be experiencing this error? Thanks in advance for your assistance. Dennis Schaffer
Re: Ramsey succeeds Altman at IBM
Isn't Alan Altman what you get when you mashup Alan Altmark and Alan Ackerman...? ;-) Interesting (tho' apparently irrelevant) wiki entry - was the ship named after an ancestor? -Chip- On 1/10/08 16:06 Rob van der Heij said: On Jan 10, 2008 4:49 PM, Stephen Frazier [EMAIL PROTECTED] wrote: Ramsey succeeds Altman at IBM Is this the same Altman who is on this list? No new Chuckie for us. It's Altmark... http://en.wikipedia.org/wiki/Altmark_Incident Rob
Re: z/OS + TSO + ISPF versus z/VM + CMS + ISPF
This won't help Raymond any, but it reminded me of something. I used to write a lot of panel apps using a VM program product called Display Management System for CMS. It had interfaces for EXEC/EXEC2, COBOL, PL/I, RPG, and BAL, but I used REXX with no problems. Admittedly it was ISPF-Lite but it did everything we needed for some pretty sophisticated applications. It has a slick (well, for 1980) interactive panel design tool that would let you build anything a 327x could display. DMS was really lightweight and fast, both in time-to-production and execution speed. Anyone know what happened to it? -Chip Davis- Aresti Systems, LLC On 1/3/08 21:18 Alan Altmark said: On Thursday, 01/03/2008 at 03:56 EST, Raymond Noal [EMAIL PROTECTED] wrote: Will z/OS, TSO ISPF panels and dialogs work under the z/VM, CMS ISPF program product? Is there any degree of compatibility between the two ISPF products? Is there any migration/conversion effort involved in going from one to the other? (primarily from the TSO to CMS based ISPF platform) I thank you in advance for your time and assistance. I believe they will work, but recognize that ISPF on z/VM, unlike on z/OS, costs extra. If you have IFLs, a Special Bid is required. Alan Altmark z/VM Development IBM Endicott