STIMER
How do you cancel an outstanding STIMER? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: allowed characters in member name
The restriction in the DCB is due to Assembler restrictions on use of '-'. Tony Thigpen Paul Gilmartin wrote on 1/6/24 5:59 PM: On Sat, 6 Jan 2024 23:14:28 +0100, Radoslaw Skorupka wrote: ... For dataset names the addition is "-". This character can be used in dataset names with no tricks like name in apostrophes, uncataloged ones, etc. But not, in my experience, in a reference to define DCB subparameters such as: DCB=HLQ.FOO-BAR* Syntax error! <https://www.ibm.com/docs/en/zos/3.1.0?topic=dp-syntax-2> Is there any plausible reason for that restriction I hate JCL! -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AI System Services on z/OS 3.1 - is a CF really mandatory?
What is required to set up a CF LPAR? Is there a document I can look at? Tony Thigpen Scott Chapman wrote on 11/20/23 9:01 AM: Just to add to the point about "or general purpose engine". A CF LPAR doing relatively little activity for a non-critical work can run just fine on a shared GP engine, assuming you have some available capacity. The CF LPARs don't generally consume much CPU, if they're not being driven by intensive data sharing. Unlike ~30 years ago when sysplex first came out, things like thin interrupts and sub-capacity pricing as well as faster CPUs means that it is plausible today to run CF LPARs on GPs. The most extreme case I've seen has 3 z/OS LPARs and 2 CF LPARs running on a single sub-capacity engine. Obviously a very small environment, and not a configuration I'd recommend, but it functions. But I do think there might be performance advantages available to some customers who don't have CF LPARs defined today if they just would stand up a small CF LPAR running on a GP. But it requires some effort to configure and manage. Scott Chapman On Mon, 20 Nov 2023 06:32:08 +, Timothy Sipples wrote: The z/OS AI Framework requires EzNoSQL, EzNoSQL requires VSAM Record-Level Sharing (RLS), and VSAM RLS requires a Coupling Facility (internal or external) running on either a CF or general purpose engine. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OSA-ICC Connection Question
You don't need an APPL. You need an LBUILD: LOCAL080 LBUILD * ICU1L088 LOCAL TERM=3277,CUADDR=088,ISTATUS=ACTIVE,MODETAB=ISTINCLM, X FEATUR2=(MODEL2),USSTAB=USSNSNA,DLOGMOD=D4B32XX3 On exception. If you are using the terminal as a console only, then VTAM does not need to have it defined. Tony Thigpen Michael Babcock wrote on 11/15/23 10:02 PM: So you are saying I don’t need a VTAM APPL statement with an LU defined? On Wed, Nov 15, 2023 at 7:47 PM Jay Maynard wrote: A VTAM APPL is used for a program. The OSA-ICC looks to VTAM like a plain old 3270 terminal. The LU definition that mentions the device number is the only LU definition you need, or can have. On Wed, Nov 15, 2023 at 6:47 PM Michael Babcock wrote: We have an OSA-ICC connection set up as a 3270 session type. The LU Name in that definition is TERM140. The CUA is B400.We have a 3270 session defined with the proper IP and the same LU Name of TERM140.This all works as expected. My question is that I thought a VTAM APPL with an LUNAME of TERM140 was required but I do not see a TERM140 defined in VTAM at all. I’m not a network guy. Since this is working, I assume it’s not required. Can someone enlighten me? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Storage questions - mod9, mod27, mod54
Linda, Really, you need to take those questions to your storage group. There are a lot of variables based on hardware and currently used storage in the DASD subsystem. To fix one incorrect reply, at lease on IBM DS8000, all DASD on the same LCU (FKA 'string') does *not* have to be the same size. It makes it easier for the storage group to manage if they are all the same, but it's not required. The DS8000 allocates storage in Mod-1 slices. You current addresses only have enough slices for their current size. Converting from one size to another requires deleting a volume and redefining it. The rest of the volumes don't have to be touched. There is a limit on how many slices each DS8000 is licensed for. If there are free slices, then the storage group can define you some new volumes to which you will migrate your data to. Then, they can reclaim the original slices. (Note: This leaves 'holes' in the CUU address range and some people don't like that.) Talk to your storage group. They will tell you if they can create new volumes then the data can be migrated. Or, they may require a full back-up and re-load if they don't have free slices in the DS8000. Tony Thigpen Linda Hagedorn wrote on 9/11/23 10:14 AM: Hi, I hope you won't mind a storage question. We're running zOS 2.4 and have a smattering of volume sizes - mod9, mod27, mod54. I'd like to have all mod54's for Db2 and be prepared before going to the storage folks. 1. Is storage virtual nowadays? 2. Can virtual mod9s and mod27s be reconfigured to mod54s? 3. Does the reconfiguration require an IPL? 4. Does the reconfiguration new addressing in IODF? 5. Is the storage vendor (IBM, EMC, etc.) relevant? Does the hardware determine or be a factor in merging the mod9s/mod27s, into mod54s? 6. Is it a given that the volumes must be cleared/emptied before the reconfiguration happens? 7. How long does reconfiguration take? Is there anything else I should consider before taking this request to the storage group? Any information or advice is appreciated. Thank you. Linda Hagedorn -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unanswered questions regarding P390 systems
I have run a P390 using OS/2 Warp 4 4.0. (google it for download.) The box you put the P390 card into is important. It's been a long time since you could get a box with long enough slots. Tony Thigpen Alexander Huemer wrote on 9/10/23 3:24 PM: Hi As a proud owner of a P390 system, I've collected some questions that i wasn't able to find answers to at [1]. If you have knowledge regarding those or related systems, I kindly ask that you read through the page. Maybe you can shed some light! -Alex [1] https://ahuemer.xx.vu/non-volatile/p390-questions.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS users - State Farm
For a long time, every State Farm office had an 'unattended VSE' system running on a PC370/PC390. They were pulled out late '80s / early '90s. I remember when the number of installed VSE sites took a nose-dive due to these removals. There was a lot of 'neat' things removed from VSE afterwards. Tony Thigpen Bob Bridges wrote on 8/14/23 2:24 PM: I had an abbreviated contract at State Farm in [checks his records] the spring of 2006; they hired me as a RACF analyst, so I was all TSO there. No idea about other platforms. I just remember boggling at them having more than a hundred LPARs and I forget how many hard-drive units. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* In order to write for "The A-Team", you'd have to be a much better writer than most of those who write the evening news at networks and local stations — forget about shows like "Hill Street Blues" or "The Muppet Show", where writing REALLY counts. -Linda Ellerbee in _And So It Goes_ */ -Original Message- From: IBM Mainframe Discussion List On Behalf Of Grant Taylor Sent: Monday, August 14, 2023 13:45 State Farm is one of the biggest install bases that I'm aware of. But I question how many (emulated) terminals were actually connected to the mainframe. I know that in the late '80s / early '90s State Farm had dumb terminals on many people's desks. But there were also a lot of PCs running terminal emulation. What I don't know is how many of those terminals were logged into the mainframe vs an AS/400. I have a family member who was my visibility into the State Farm Regional Offices in the '80s and '90s before becoming an agent in the late '90s / early '00s. I know for a fact that in their office as an agent that their dumb terminals and terminal emulators were connected to the in office AS/400 and that they could do much of, if not all of, the day to day things on the AS/400 even if the WAN connection to the mainframe in the R.O. was disconnected. They would run into problems if the link to the R.O. was down overnight as part of batched operations. But day to day things worked perfectly fine disconnected from the R.O. I would consider these users to be logged into the local AS/400 and /not/ logged into the mainframe. Similarly, it's my understanding that State Farm has rows of AS/400s in the R.O. that were used to front end the terminals in the R.O. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ransomware on z
And, that I can agree with. Especially when the admin stores passwords in their browser. Tony Thigpen Timothy Sipples wrote on 8/14/23 12:51 AM: Responding primarily to Tony, I'll just say that when an adversary (internal or external) gains control over the PC that the privileged storage administrator uses, particularly when there's no true multi-factor authentication in the loop, then it's probably "game over." — Timothy Sipples Senior Architect Digital Assets, Industry Solutions, and Cybersecurity IBM zSystems/LinuxONE, Asia-Pacific sipp...@sg.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ransomware on z
I still think that the store is BS because the script could not be ran remotely during the time-frame the story was stated to have occurred in. Other things in the store don't make sense. It's either BS or the hacker was given special access to the facility. Tony Thigpen Grant Taylor wrote on 8/12/23 7:43 PM: On 8/12/23 4:49 PM, Tony Thigpen wrote: You can not run that script remote without the Remote-CE option enabled. And, that option was not available until the DS8870. And, to run it you have to first log in as CE. A password that should have been changed at installation. Do you want to hang your security on "SHOULD"? I think the point is that there are ways that mainframes can have a denial of service performed against them without attacking the mainframe itself. A well placed bullet diesel tanks and transformers will cripple a bunch of mainframes without touching the mainframe nor their data simply by rendering them inoperable without a working generator or utility power. Grant. . . . -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ransomware on z
Well, I will be the one to call this story BS. You can not run that script remote without the Remote-CE option enabled. And, that option was not available until the DS8870. And, to run it you have to first log in as CE. A password that should have been changed at installation. Tony Thigpen ITschak Mugzach wrote on 8/12/23 4:45 PM: Agree. my point is that a mainframe is just another server and that you don't need to login into to damage the data. ITschak ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Continuous Monitoring for z/OS, x/Linux & IBM I **| z/VM coming soon * On Sat, Aug 12, 2023 at 11:35 PM Charles Mills wrote: The long periods of bad guy access are typical. You read most of the breach stories the attack unfolded over weeks or months. The hackers talk about pwning (owning) a group of servers. CM On Sat, 12 Aug 2023 16:13:12 -0400, Phil Smith III wrote: ITschak Mugzach wrote, in part: Remember that when pirate bay penetrated Logica, he had no clue on mainframes, but was able to stay for almost 1.5 years. This falls into the category of "things I just don't get": if that had been me, I'd've woken up every single morning wondering if this was the day that my access would be gone, and whether there was about to be a loud knock on the door (at least). Yes, I know, this wasn't in the U.S. so the cops would have been less violent, but still-if I were out committing crimes, I'd want them to be over as soon as possible so I could continue on with my life, knowing that there was some chance of evidence leading to me, but not with a continuous, live channel leading back to me! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Userid schemes
While I might agree to that somewhat, it fails when you also use the userid for other things, such as email, where the userid is 'public'. But, uses of alias for public view can resolve that issue. For instance, my email userid at 'vse2pdf.com' is not 'tony', it's something else. t...@vse2pdf.com is an alias. So, any attempt to log into my email server using t...@vse2pdf.com will always fail. Tony Thigpen Michael Brennan wrote on 7/15/23 6:05 PM: A good userid scheme should not identify who the userid belongs to or the job function of the person. Several places I have worked had this philosophy. All userids that belonged to a human began with the letter U followed by 3 to 6 random characters and numbers. On Thu, Jul 13, 2023 at 4:22 PM Phil Smith III wrote: I've seen various schemes used for creating up-to-eight-character userids, all truncated as needed, of course. These are IDs I've had, won't tell ya where each was (and omitting just firstname, just lastname, or intials): 1. First initial, last name, plus a number as needed: PSMITH, PSMITH1 2. Last name || first name, with number if necessary, but always including first initial: SMITHIIP, or SMITHIP2 if needed 3. First three of last name, first two of first name, plus a number: SMIPH03 (I've always wondered how they'd deal with Kyle Fuchs or Tyrone Shipman) 4. First initial, last name, truncated to max of six with a two-digit number: I was PSMITH87; friend was TSMITH99-we never found out what the next T. Smith would get: would they reuse a hole, if any, or go to TSMIT100? Anyone got any other variations? This is purely a curiosity item, no agenda. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Michael Brennan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Userid schemes
I can verify that CA would adjust the userid if the resulting userid was 'inappropriate'. One of my coworkers was such a case. Unfortunately, its been too long ago and I can't remember the specifics. When CA bought our company and told us the new rules, one guy just busted out laughing and it took us a minute to figure it out. Mine was THITO01 and from that point on, everyone just called me Thito. (Tee-tow) Tony Thigpen Phil Smith III wrote on 7/13/23 5:37 PM: Jay Maynard wrote: The one I use was formed by taking the first four non-vowels of the last name and then the first and second initials. So I'd be SMTHPH? Ick. I know, I'd get used to it, but. That SMIPH03 really was my ID at CA after Sterling bought them. I didn't mind, the 03 was perfect! Highest number we had was BERMA16, which I assume got run up by all the Mark and Marie Bergmanns and Bergdorfs and the like out there on Lon Guyland. Ain't no perfect scheme, of course. We have someone here whose name is quite uncommon-but there's another one of him in the company, so he's got a 2 in his ID (yeah, I guess they go right to 2, so my PSMITH1 example was bogus, or at least would be bogus here; of course if they were C programmers, the one after PSMITH would be PSMITH0). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SMTP and OAuth
Asking for a VSE shop so he can answer an auditing 'request': Are there any SMTP clients on z/OS that support OAuth? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM z16 Model A02 Announcement
When we were looking at a DS8k, it was cheaper to buy it in the rack vs. buying the model you could install into the gap in the new z 19-inch rack CPU. I wonder if the same will be true for the z16? Tony Thigpen Tom Brennan wrote on 4/6/23 16:45: That's how I see it: the ability to add a switch or disk or R42 or whatever to the unused space. But someone I work with brought up another possibility, that it could make non-mainframe Linux folks feel more at home with the hardware. The 19" racks sure look a lot nicer in a datacenter. I was at one a few weeks ago with nice neat lines of 19" racks heading off to the horizon, but in the middle a few z14's were poking their big doors out into the aisle. One z14 was then replaced with a z16, which unfortunately left a hole. But hey, that can now be used as a shortcut between the long aisles. On 4/6/2023 12:35 PM, Mike Schwab wrote: At least it was a rack you could put next to your other racks. Previously you had to have a stand alone area. And doing the half rack allows you to install a small disk system for a 1 rack mainframe and disk. On Thu, Apr 6, 2023 at 2:28 PM Pew, Curtis G wrote: On Apr 6, 2023, at 2:21 PM, Alan Altmark mailto:alan_altm...@us.ibm.com>> wrote: It's not a new concept, Enzo. IBM has always had models at the low end, and this is the 3rd generation in a row to be available in a 19-inch form factor (rack mount). But isn’t it the first time IBM is advertising “you can put it in your own rack”? The z14 ZR1 and z15 came in 19” racks, but you had to use the one from IBM that came with the system. -- Curtis Pew ITS Campus Solutions curtis@austin.utexas.edu<mailto:curtis@austin.utexas.edu> -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ASM call by value
No. You will need to create a proper C-style parm list, load it's address into R1, and branch to the C routine address without using the CALL macro. Tony Thigpen Frank Swarbrick wrote on 3/26/23 17:35: Can the MVS CALL macro be used to call a C function with "value" parameters (rather than reference parameters)? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ASM call by value
Structures are passed by address, not value. Tony Thigpen Paul Gilmartin wrote on 3/26/23 18:19: On Sun, 26 Mar 2023 21:35:13 +, Frank Swarbrick wrote: Can the MVS CALL macro be used to call a C function with "value" parameters (rather than reference parameters)? Aren't all parameters in C passed by value? C has no construct of "reference parameters". -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: NJE history
Need to include z/VSE in all the places you mention z/OS. Also, VSE does not require any separate product (such as JES2 or RSCS) as POWER is part of the base charge. Tony Thigpen Seymour J Metz wrote on 3/7/23 17:25: I've added an NJE <https://en.wikipedia.org/wiki/Remote_job_entry#_Network_Job_Entry#Network Job Entry> section to the wikipedia [[Remote job entry]] article. I would appreciate it if anybody familiar with the detailed history of BITNET, NJE or VNET could flesh it out and source it. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 3420 conversion?
I have found someone that will convert it. As it's 40 years old, I will report back the success or failure of the conversion. Tony Thigpen M. Ray Mullins wrote on 2/10/23 11:57: The only person that comes to mind is Al Kossow of Bitsavers, but based on your other comment I understand the reluctance of shipping. (He read my old Prime tapes and back when Paul Allen's museum was running, they became the base for their PRIMOS emulations.) On 2023-02-09 17:32, Tony Thigpen wrote: I need a single 3420 tape converted. Anyone know of someone that can do it? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 3420 conversion?
Tony H., This is an ICCF backup from '82 that I have keep inside all these years. It is from my first job and that company is long gone. There is one specific program that I wrote then that I want to revive. While I would rewrite it in assembler (it's FCOBOL), the logic was complicated and I don't want to reinvent it if possible. I hoping to reload the few libraries with programs I want into one of my current z/VSE systems and then . I know it's 9-track. It's just program source, no personal information. Standard single labeled file: VOL1/HDR1,tape mark, data (blocked 81 byte records), tape mark, EOF/EOV. What state are you in? I am not sure I want to mail it and it get damaged. Tony Thigpen 407-474-0770 Tony Harminc wrote on 2/9/23 21:42: On Thu, 9 Feb 2023 at 20:33, Tony Thigpen wrote: I need a single 3420 tape converted. Anyone know of someone that can do it? Buncha questions... Where is the tape, how much of a rush are you in, what's the recording density/tracks, how old is the tape itself, how old is the recording, how bad is it if it gets damaged or lost, how confidential is the data? And what kind of output do you expect? There are still a few services doing this, but fewer than there were a decade or so ago. Mike Baldwin who is on IBM-MAIN might be able to do it for you or point you to a good place near wherever you are. I can do it for no charge, but it may take quite a while since it's just me being a hobbyist and digging out my ancient 9348 drive and plugging it into a Linux box and converting to an AWS file. I have converted quite a few tapes from the early 1970s without problem, but I can offer no guarantee. I would say I'd be near the bottom of your list. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
3420 conversion?
I need a single 3420 tape converted. Anyone know of someone that can do it? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: I want to cry
Most non-Cobol programmers, or even that have not been exposed to shops that can use the language as it was intended, think Cobol is a simplistic language. I was lucky and spent several years in a shop that really knew how to sling Cobol code. And, before you say it must have been unreadable, that is not the case. This shop was a banking software vendor that was supplied to the customers in Cobol. This was back in the late 80's, so no internet to look at code at night. The rule was that you had to be able to debug 2am problems so code could not be too complex. There was *heavy* use of common copybooks, such as date routines, etc. Psedu-OO before OO. This was my third job and I learned a lot. Now, I write 99% in assembler, but many of the techniques I use are based on what I learned about 'programming' at that shop. But, it did make me aware of what good programmers were like. In almost every shop I have been at, it would take 2 or 3 programmers to do what just one programmer did at that vendor. I have truly seen 'unicorn' Cobol programmers, so I know they do exist. Tony Thigpen Bob Bridges wrote on 2/5/23 19:30: Well, obviously, because I'm not that way and I don't think anyone else should be either, duh! Seriously, I guess you have a point. If someone wants to do just one thing, it has to be his choice. Sounds dull, though, and also less marketable, and less valuable to our customers. But if I want to be self-serving about it, I guess it makes the rest of us the more valuable. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* I don't want yes men around me. I want everyone to tell the truth, even if it costs them their jobs. -Samuel Goldwyn */ -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tony Thigpen Sent: Sunday, February 5, 2023 18:28 Ok, so exactly why is that a problem? --- Bob Bridges wrote on 2/3/23 13:09: It is a little distressing, though (at least to me), to observe how many "programmers" never ~have~ seen anything but COBOL. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: I want to cry
Ok, so exactly why is that a problem? Tony Thigpen Bob Bridges wrote on 2/3/23 13:09: It is a little distressing, though (at least to me), to observe how many "programmers" never ~have~ seen anything but COBOL. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* How agitated I am when I am in the garden, and how happy I am to be so agitated. Nothing works just the way I thought it would, nothing looks just the way I had imagined it, and when sometimes it does look like what I had imagined (and this, thank God, is rare) I am startled that my imagination is so ordinary. -Jamaica Kincaid, _My Garden Book_ */ -Original Message- From: IBM Mainframe Discussion List On Behalf Of zMan Sent: Friday, February 3, 2023 10:50 And unless COBOL is the only programming language you've ever seen, it seems unlikely that you wouldn't know what a variable is. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: I want to cry
You guys do realize he does not need the answer? He knows the answer and is complaining about a dumb customer that will not even look up the error message. Tony Thigpen Shelia Chalk wrote on 2/3/23 08:17: The librarys In your steplib or joblib in a batch job, one of them is not apf authorized. Also, another place to check is your tso logon proc. Look for the steplib, all of these must be apf authorized to make it work. Thanks Shelia Chalk -Original Message- From: IBM Mainframe Discussion List On Behalf Of Gibney, Dave Sent: Thursday, February 2, 2023 10:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: I want to cry Part of the tears could be that a SLIP trap is not a terribly useful answer to S047 -Original Message- From: IBM Mainframe Discussion List On Behalf Of Retired Mainframer Sent: Thursday, February 02, 2023 8:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: I want to cry [EXTERNAL EMAIL] Look in the System Codes manual. 047 means a program that is not running "authorized" requested a service that only one that is running "authorized" can access. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Hank Oerlemans Sent: Thursday, February 2, 2023 7:28 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: I want to cry Customer : Could you please have a look and help us to fix the issue . Customer log : IEA992I SLIP TRAP ID=S047 MATCHED. ME : 1. Hire a sysprog 2. RTFM 3. Google Play and hit update 4. Apple store and hit update 5. Check calendar and mortgage and see when I can retire 6. Tears welling up realising I can't actually say any of 1-4. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: VSEn 6.3 hardware requirements
I 'think' I heard at the VM Workshop that 6.3 will remove some of the IBM marketing generated hardware requirements and it will run on some older boxes that 6.2 from IBM will not run on. Tony Thigpen Joe Monk wrote on 1/14/23 18:51: The online stuff says the tech specs are exactly the same as z/VSE 6.3, because it is the same source code. https://www.21stcenturysoftware.com/license-z-vse-code-from-ibm/ Joe On Sat, Jan 14, 2023 at 4:17 PM Radoslaw Skorupka < 0471ebeac275-dmarc-requ...@listserv.ua.edu> wrote: I'm looking for technical information about VSEn 6.3, precisely hardware requirements like max. memory supported, max. CPs supported/used, etc. Note: VSEn 6.3 is new incarnation of zVSE, but now it is produced by 21st Century Software. -- Radoslaw Skorupka Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EXCP question
Thanks to Michael, Who found my stupid coding error. The OPEN used the wrong label. sigh! Tony Thigpen Michael Stein wrote on 11/9/22 11:33: On Wed, Nov 09, 2022 at 10:49:53AM -0500, Tony Thigpen wrote: I am trying to migrate a simple CCW to tape test program from zVSE to z/OS to help a customer. EXCP on z/OS is new to me. The program is reading the label so I have BLP in the JCL and am running authorized and within the correct initiator for BLP. The OPEN and CLOSE using BLP works, but when I try a simple read, I get: SYSTEM COMPLETION CODE=200 REASON CODE=0313 abend S200 reason 313 https://www.ibm.com/docs/en/zos/2.1.0?topic=scc-200#m015062 3nn Page translation error. n1n EXCP encountered an error during the front end processing. nn3 Data extent block (DEB) Sounds like EXCP didn't like things when it was first issued, possibly the first EXCP issued (ie: none worked). I'd suggest looking at a dump and seeing if the IOB->DCB->DEB pointers look ok. One think I am worried about is that I read into an area within the program, not a GETMAINed area, but I compiled with NORENT What is the RMODE? I don't remember but perhaps the IOB & DCB addresses have to fit in 24 bits... I'd look at the dump. Does it show the DCB is open (DEB exists?)? Does the IOB look ok in the dump? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EXCP question
The program is 24/24. Tony Thigpen Seymour J Metz wrote on 11/9/22 13:31: Yes, they have to be below the line. From: IBM Mainframe Discussion List on behalf of Michael Stein Sent: Wednesday, November 9, 2022 11:33 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: EXCP question On Wed, Nov 09, 2022 at 10:49:53AM -0500, Tony Thigpen wrote: I am trying to migrate a simple CCW to tape test program from zVSE to z/OS to help a customer. EXCP on z/OS is new to me. The program is reading the label so I have BLP in the JCL and am running authorized and within the correct initiator for BLP. The OPEN and CLOSE using BLP works, but when I try a simple read, I get: SYSTEM COMPLETION CODE=200 REASON CODE=0313 abend S200 reason 313 https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.1.0%3Ftopic%3Dscc-200%23m015062data=05%7C01%7Csmetz3%40gmu.edu%7Ce86ad4640ba4406fae9808dac27036fe%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638036084463199866%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=gh30mQWm9Ge8%2BXoLOTM7ZSi467Zm2hYctYgnNU%2FCUXM%3Dreserved=0 3nn Page translation error. n1n EXCP encountered an error during the front end processing. nn3 Data extent block (DEB) Sounds like EXCP didn't like things when it was first issued, possibly the first EXCP issued (ie: none worked). I'd suggest looking at a dump and seeing if the IOB->DCB->DEB pointers look ok. One think I am worried about is that I read into an area within the program, not a GETMAINed area, but I compiled with NORENT What is the RMODE? I don't remember but perhaps the IOB & DCB addresses have to fit in 24 bits... I'd look at the dump. Does it show the DCB is open (DEB exists?)? Does the IOB look ok in the dump? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
EXCP question
I am trying to migrate a simple CCW to tape test program from zVSE to z/OS to help a customer. EXCP on z/OS is new to me. The program is reading the label so I have BLP in the JCL and am running authorized and within the correct initiator for BLP. The OPEN and CLOSE using BLP works, but when I try a simple read, I get: SYSTEM COMPLETION CODE=200 REASON CODE=0313 Thoughts? One think I am worried about is that I read into an area within the program, not a GETMAINed area, but I compiled with NORENT Some of the areas: CCB001_ECB DSA(0) CCB001 DS0F IORB CCB001_IOB DS0F CCB001_IOBFLAGS DCXL2'4300' CCB001_IOBSENSE DCXL2'' CCB001_IOBECBAD DCA(CCB001_ECB) CCB001_IOBCSW DCA(0) CCB001_IOBCSWFL DCXL2'' CCB001_IOBRESDL DCH'00' CCB001_IOBCCWAD DCA(CCW00101) CCB001_IOBDCBAD DCA(SYS020) DC2A(0) CCB001_IOBSEEK DCXL3'00' MBB CCB001_IOBSRCH DCXL5'00' CCHHR CCW00101 CCW CCWC_RD,DATA0102,CCWF_SLI,RECL0102 DATA0102 DS0D DC1024XL32'00' RECL0102 EQU *-DATA0102 Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AWS and IDRC/compression
And I want data interchange with IBM and Broadcom, both of which accept .AWS files based on z/VSE's VTAPE implementation (which uses AWS). Currently, I just take an .AWS tape off my VTA and FTP it to them and they can read it. I really don't want to have to convert files before sending them. HET looks promising. Tony Thigpen Jay Maynard wrote on 8/1/22 10:04: I think Tony was looking for a way to do it transparently, so that no changes were needed to the programs reading or writing what they see as a real tape. Your approach requires modifying the host program or jobstream. On Mon, Aug 1, 2022 at 8:58 AM Joe Monk wrote: I dont even understand what the problem is. AWS is simply a disk format for a sequential file of tape blocks. What is inside those blocks are for the program that reads/writes them to decide... AWS does not decide that. You can easily compress, slice into blocks, and write to AWS. Sam Golobs article on AWSTAPE makes that pretty clear ... https://www.cbttape.org/awstape.htm Joe On Mon, Aug 1, 2022 at 7:59 AM Seymour J Metz wrote: Why is IDRC compatibility an issue when you're not using a physical cartridge or physical drive that supports IDRC? If you modify AWS to support compression, use whatever format that gives you the best results. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tony Thigpen [t...@vse2pdf.com] Sent: Saturday, July 30, 2022 12:45 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: AWS and IDRC/compression I am working with my VTA vendor to reduce storage usage on the appliance. Currently, they can compress after the unmount and uncompress before the mount. But, this takes time, especially when servicing the mount request if the tape is large. I was thinking that doing an IDRC implementation, which is stream based and performed during write/read, it might be faster even if it's not compresses as much as with their current method. But, if the AWS file is not compatible with IBM's implementation, then it's going to add a step to send them the file. The current compressed files can be uncompressed using standard linux tools. Tony Thigpen Jay Maynard wrote on 7/29/22 22:44: I'm curious. What are you trying to accomplish with it? If it's just a matter of faster transmission of entire tape images, AWS tapes compress very well. On Fri, Jul 29, 2022 at 8:38 PM Tony Thigpen wrote: Yes. But, it sounds like nobody else will support it as a data interchange, so it may be unusable for us. I will go look at it. Tony Thigpen Jay Maynard wrote on 7/29/22 06:38: Are you talking about the tape data being compressed inside the AWS image? Hercules has a format that does this, upwardly compatible with AWS, called HET (Hercules Emulated Tape), but I don't know of any other implementations of it. Each block is compressed after being received from the program writing the tape but before being written to the file and uncompressed after being read but before being returned to the program reading the tape. On Fri, Jul 29, 2022 at 3:56 AM Tony Thigpen wrote: Does anyone know of any 'standard' for stream based (during file creation) compression of AWS tapes? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists
Re: AWS and IDRC/compression
Yes, I concur. Not the same, but somewhat alike. IDRC can also be software based. I found the same compaction algorithm as IDRC in z/VSE one time. I think it was in Power Pnet, but it's been awhile. Tony Thigpen Harry Wahl wrote on 7/30/22 14:06: Tony,a IDRC exploits the nature of IDRC compatible physical tape cartridges by writing everything using the cartridge's internal optimal physical block size. This is done by the cartridge drive's controller. So, ZIP based VTS compression, such as HET, is software; while IDRC compaction is hardware. There is no compression involved in IDRC, just hardware compaction. IDRC uses a process called "autoblocking" to transparently optimize how much data can fit on the cartridge's media by exploiting its optimal physical block size. Harry From: IBM Mainframe Discussion List on behalf of Tony Thigpen Sent: Saturday, July 30, 2022 12:45 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: AWS and IDRC/compression I am working with my VTA vendor to reduce storage usage on the appliance. Currently, they can compress after the unmount and uncompress before the mount. But, this takes time, especially when servicing the mount request if the tape is large. I was thinking that doing an IDRC implementation, which is stream based and performed during write/read, it might be faster even if it's not compresses as much as with their current method. But, if the AWS file is not compatible with IBM's implementation, then it's going to add a step to send them the file. The current compressed files can be uncompressed using standard linux tools. Tony Thigpen Jay Maynard wrote on 7/29/22 22:44: I'm curious. What are you trying to accomplish with it? If it's just a matter of faster transmission of entire tape images, AWS tapes compress very well. On Fri, Jul 29, 2022 at 8:38 PM Tony Thigpen wrote: Yes. But, it sounds like nobody else will support it as a data interchange, so it may be unusable for us. I will go look at it. Tony Thigpen Jay Maynard wrote on 7/29/22 06:38: Are you talking about the tape data being compressed inside the AWS image? Hercules has a format that does this, upwardly compatible with AWS, called HET (Hercules Emulated Tape), but I don't know of any other implementations of it. Each block is compressed after being received from the program writing the tape but before being written to the file and uncompressed after being read but before being returned to the program reading the tape. On Fri, Jul 29, 2022 at 3:56 AM Tony Thigpen wrote: Does anyone know of any 'standard' for stream based (during file creation) compression of AWS tapes? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AWS and IDRC/compression
I am working with my VTA vendor to reduce storage usage on the appliance. Currently, they can compress after the unmount and uncompress before the mount. But, this takes time, especially when servicing the mount request if the tape is large. I was thinking that doing an IDRC implementation, which is stream based and performed during write/read, it might be faster even if it's not compresses as much as with their current method. But, if the AWS file is not compatible with IBM's implementation, then it's going to add a step to send them the file. The current compressed files can be uncompressed using standard linux tools. Tony Thigpen Jay Maynard wrote on 7/29/22 22:44: I'm curious. What are you trying to accomplish with it? If it's just a matter of faster transmission of entire tape images, AWS tapes compress very well. On Fri, Jul 29, 2022 at 8:38 PM Tony Thigpen wrote: Yes. But, it sounds like nobody else will support it as a data interchange, so it may be unusable for us. I will go look at it. Tony Thigpen Jay Maynard wrote on 7/29/22 06:38: Are you talking about the tape data being compressed inside the AWS image? Hercules has a format that does this, upwardly compatible with AWS, called HET (Hercules Emulated Tape), but I don't know of any other implementations of it. Each block is compressed after being received from the program writing the tape but before being written to the file and uncompressed after being read but before being returned to the program reading the tape. On Fri, Jul 29, 2022 at 3:56 AM Tony Thigpen wrote: Does anyone know of any 'standard' for stream based (during file creation) compression of AWS tapes? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AWS and IDRC/compression
Yes. But, it sounds like nobody else will support it as a data interchange, so it may be unusable for us. I will go look at it. Tony Thigpen Jay Maynard wrote on 7/29/22 06:38: Are you talking about the tape data being compressed inside the AWS image? Hercules has a format that does this, upwardly compatible with AWS, called HET (Hercules Emulated Tape), but I don't know of any other implementations of it. Each block is compressed after being received from the program writing the tape but before being written to the file and uncompressed after being read but before being returned to the program reading the tape. On Fri, Jul 29, 2022 at 3:56 AM Tony Thigpen wrote: Does anyone know of any 'standard' for stream based (during file creation) compression of AWS tapes? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
AWS and IDRC/compression
Does anyone know of any 'standard' for stream based (during file creation) compression of AWS tapes? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: INFOPRINT SERVER EXPERIENCE
Check out JES2MAIL. Tony Thigpen Avner Michaeli wrote on 7/21/22 07:45: Hello, Our company is looking for a product that transforms sysouts to PDF. One product is IBM Infoprint Server with Print Transform. Anyone using these product ? How are these product compared to others in the market ? Any remarkable advantages/disadvantages ? We are running z/OS v2.3 TIA, Avner Michaeli אבנר מיכאלי z/OS System Programmer מתכנת מערכות z/OS Phone: +972 2 6707740 +972-2-6707740 טלפון: Fax: +972 2 6523349 +972-2-6523349 פקס: Mobile: + 972 50 735 5091 050-735-5091 סלולרי: Email: avne...@malam.com<mailto:avne...@malam.com> avne...@malam.com<mailto:avne...@malam.com> דוא''ל: [X] [X] www.malamteam.com<http://www.malamteam.com/> [X] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Allocating PC numbers
Thanks Peter. I have been running my test program (that I got from somewhere) and realized that I was off-base with my understanding. I am also coming to understand that some of the stuff done by the program was not needed or incorrect, but still worked. For instance, it does an AXRES, followed by an LXRES and ETDEF. I don't see any reason for the AXRES. Maybe I am still not reading everything right. Tony Thigpen Peter Relson wrote on 6/29/22 07:27: how do you determine what PC number the new routine is going to use? Is there a list of 'used' ones somewhere? Are, do you do some sort of loop checking to see what is free? I'd answer "no, not at all like that". You (the PC-owner-to-be) have to have reserved a linkage index (LX, via LXRES). The LX defines the "left part" of the PC number. You define/create the entry table and associate it with the LX (ETDEF, ETCRE, ETCON). The Nth entry (0-origin) in the entry table would correspond to a PC number with N as the "right part". N is the "Entry Index" (EX). A number is "free" if your entry table does not have enough entries to reach that number. The extended addressability guide is your friend. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Allocating PC numbers
When on z/OS and you want to create a PC routine, how do you determine what PC number the new routine is going to use? Is there a list of 'used' ones somewhere? Are, do you do some sort of loop checking to see what is free? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Restore DS8884 firmware without ibm support contract
If the drives from the CECs have been pulled, it's a boat anchor. You can't get the license restored that was stored there. Tony Thigpen Enzo D'Amato wrote on 6/13/22 09:31: The unit still does have the two mini pc HMCs. I am not too concerned about the optics, as this can be fixed quite easily (either by putting a new card in the mainframe, or just hooking it up to a cheap ficon switch). I know that none of the components have been pulled, other than the drives, which were removed for data security reasons. The drives have been pulled from everything (disk shelves, power controllers, and possibly the HMCs). I will see if I can power it on/get someone to power it on. If it comes with the microcode CDs, can I restore these without the chaperone? Thank you, Enzo Damato From: IBM Mainframe Discussion List on behalf of P H Sent: Monday, June 13, 2022 5:34 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Restore DS8884 firmware without ibm support contract In addition to the excellent points made by Timothy, you will have to do additional checks. It seems that this DS8K might have been used to sell off individual components as 'spares'. Does it still have the embedded HMC? What type of FICON adaptors does it have (SX or LX). From previous discussions your z114 has SX. The DS8K end also needs to be SX. Regards Parwez Hamid From: IBM Mainframe Discussion List on behalf of Enzo D'Amato Sent: 12 June 2022 22:58 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Restore DS8884 firmware without ibm support contract Hello. I am a high school student who has recently purchased a z114 mainframe (I have posted about the project before here). I have been working to find CKD storage for my machine, so that I can do a proper z/OS installation. I have an opportunity to acquire a DS8884 storage unit that I know has the licences required for mainframe attach. Unfortunately, the person who owns it it knows very little about the unit, and all of the drives have been removed. The owner claims that they have all of the CDs to do a full restore to factory settings, but they have not sent over pictures of the CDs. Is it really possible to fully restore one of these units with just disks? Additionally, if the disks aren't available, can the unit be restored without them? I am aware that getting the unit back up and running may take some work, but I am welling to put in the effort, as CKD storage is extremely difficult to find, but I don't want to embark on an impossible project. I would appreciate any information that you may have that could help me ensure that I can get the machine up and running before I commit to shipping it. Thank you, Enzo Damato? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HS student with question about small mainframe DASD
3-phase is not needed for the z's. If the DS8000 is only partially filled, it's happy with single-phase also. I have replaced the three-phase cable ends with single phase 220v ends on several DS8000s. Tony Thigpen Jay Maynard wrote on 4/15/22 17:50: Basically, running FBA storage restricts you to running z/VM and z/VSE, and possibly z/Linux (I've never run it on FBA, but there's no particular reason it wouldn't work). z/OS requires CKD DASD. Learning experience? Absolutely! I want to get a z/Series myself, but there's a tradeoff there...in particular, I don't think I could manage 3-phase power. On Fri, Apr 15, 2022 at 4:43 PM Enzo D'Amato wrote: Hello. I am a US high school student who is seriously considering acquiring a z114 mainframe. I have found a listing selling one for a price that I think is reasonable, and I have determined that I can meet the space, transportation and power requirements for the machine. I did however have one question before I continued. I know in Connor Krukosky's talk, his biggest issue was finding DASD for the machine. I have looked, and it appears that proper ficon DASD is still rare. My situation is not quite as significant as Connor's , as my machine has SCSI IPL as a native feature. Despite this, I wanted to know if anyone here could give some advice on the topic. Would the machine still provide a good learning experience with just FBA storage? Thank you for any information that you can provide -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Jay Maynard -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Reliable source for OCO?
Seymour, He is asking you to prove a negative. Call him on it. Tony Thigpen Seymour J Metz wrote on 4/14/22 07:37: I'm editing the wikipedia [[Operating system]] article, and another editor has challenged the sentence "The logic manuals for their contemporary descendants, z/VM, z/VSE and z/VM, are not available to the general public." What are the relevant URLs for IBM's policy? Thanks. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Don't shoot the messenger
I am running OS/390 2.10 on a z10 native. You must have the z990 compatibility feature installed. You can only run 31bit and you must not try to set the date/time during the IPL. IOCP must be done on HMC. I am using newer DS8000 so flash-copy does not work because the OS does not recognize the DS8000 as flashable. I have been tempted to try it on a z114 (as I have a spare one), but just have not bothered yet. Tony Thigpen PINION, RICHARD W. wrote on 4/11/22 10:55: Will OS/390 2.9 run under z/VM on a z114 processor? I think it won't. But, someone else says it will. Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AW: Job submission from CMS to MVS
There is an inherent flaw with the support of user written prefix commands on Kedit that prevented me from migrating my most used macro from CMS to Kedit. Kedit does not store the 'real name' of the prefixed entered. It only stores the name of the macro actually invoked. I have a prefix macro that is invoked by multiple names, such as M, C, I. Within the macro I need to know which character was entered in the prefix area for a specific line. Kedit performs a backward lookup and always returns the the first synonym defined for the macro, so you don't know what was really entered. I used kedit for editing on my pc, I just can't use this one macro. Tony Thigpen Mike Beer wrote on 3/7/22 14:01: Depending on what you need, LPREFIX on KEDIT might be your command: "The LPREFIX command places the text that you specify into the prefix area of the focus line and then processes all pending prefix commands. The LPREFIX command is equivalent to your moving the cursor to the prefix area of the focus line, typing the text into the prefix area, and executing the SOS DOPREFIX command (which is part of the definition of the F12 key under INTERFACE CUA and of the Home key under INTERFACE CLASSIC). LPREFIX is useful from within macros that need to execute prefix commands. It also provides a way to enter and execute prefix commands when the prefix area is turned off" As an alternative WITH SET PENDING you might try Mark Hessling's THE (The Hessling Editor). http://hessling-editor.sourceforge.net/doc/commset/SETPENDING.html Best regards Mike -Ursprüngliche Nachricht- Von: IBM Mainframe Discussion List Im Auftrag von Seymour J Metz Gesendet: Monday, March 07, 2022 19:06 An: IBM-MAIN@LISTSERV.UA.EDU Betreff: Re: Job submission from CMS to MVS I've used KEDIT, with Quercus REXX; it was all right, but I had been spoiled by XEDIT and I badly missed prefix macros. We had a home-grown IDE on CMS, based on XEDIT, and I added what I call "structured input" for Assembler H, PL/I and REXX, which depended heavilly on SET PENDING. I ported part of it to KEDIT, but it didn't automatically insert new lines the way that the XEDIT version did. I wish that ISPF had an equivalent to SET PENDING. ObColdDeadFingers At home I have Tritus SPF (TSPF), which is a really good clone of ISPF, although it is abandonware and hasn't bee updated to include new ISPF features. Still, it isn't XEDIT. IAC, I consider a good macro to be an essential part of any editor that I rely on. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Wendell Lovewell [01e9c0ee0673-dmarc-requ...@listserv.ua.edu] Sent: Monday, March 7, 2022 12:05 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Job submission from CMS to MVS Hi Shmuel. Many years ago, I used a virtual card reader on MVS and the CMS users used a REXX exec to 'SPOOL PUN TO zosvm...' 'PUNCH fn ft fm ( NOH' 'CLOSE PUN' You might have to play games to have longer than 80-byte records in your jobs. And RSCS will (I think) propagate the CMS userid as already validated (that might not be the case now). Seems like I might have written a JES exit to accept the userid on the spool file as the MVS userid for the job when it was read from the virtual card reader. (Same disclaimer.) A great addition was to have a "SUB" XEDIT program, so you can (as you do from TSO), enter "SUB" on the XEDIT command line to submit the job you're editing. And "cmp" would format the JCL and compile the program I was editing. It's probably been 30 years now that I've strongly preferred a PC editor named Kedit (from Mansfield software). The PC editor isn't limited to interactions like an AID key--you can use ctrl- or alt- versions of any key for certain functions (many that I create). I now keep all my source on a PC and use a Kedit version of my old SUB XEDIT to submit jobs via FTPs using "SITE FILETYPE=JES". So I still use "SUB" and "CMP" and several other macros to submit jobs. Since our JES Report Broker (aka JRB) product will FTP listings when they complete (you could maybe use IDz or some other tool to return the listings, or view them in SDSF), I use it (JRB) to return the listings to the Windows FTP server on my PC. An open-source program named "FileWatcher" detects the file is returned and invokes Kedit to edit the listing. Sounds convoluted, but it's usually maybe 5 seconds or so between my entering "SUB" on my editor command line and the listing popping up back in the editor. No JCL editing or looking for the right listing to view. Plus, there are no 3270-screen-size limitations on how much of the source or listing I see. -- For IBM-MAIN subscribe / signoff /
Re: Job submission from CMS to MVS
Shmuel, I use have the VM 'submit' exec spool it to a disconnected user that in turn submits the jcl to z/OS via FTP. I use RSCS to get the output back to the original user (if needed). I use FTP because I don't have RACF on z/VM and RSCS does not properly pass the credentials without having RACF on z/VM. (At least that is the information I had when I set this up several years ago.) I originally wanted to update the RSCS exits, which I have done in the past, but I never got back to it. In my case, z/OS runs on a completely separate CPU. I have actually played with running z/OS under z/VM and unless you have a multi-processor, it kills performance. I also run z/VSE under z/VM and they play really well together. Tony Thigpen Seymour J Metz wrote on 3/6/22 09:58: There are two obvious way to submit an MVS job from CMS: 1. Spool it ti RSCS and let it go in via NJE 2. Spool it to a virtual reader on MVS I'm curious as to how many shops do which, and how they're configured. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XEDIT assembler continuation lines
FYI, Prior to converting from a System-3 to a 4331 running DOS/VS, IBM dropped a line-mode remote terminal into our shop. This would be about 1981. We edited programs and JCL using it for about 4 months before we finally got our 4331. Until this discussion, I had kinda forgotten this experience. Alan's comments paged those memories back into main storage. Having used a remote line-mode terminal, I now understand the history of TRUNC 71. Tony Thigpen Paul Gilmartin wrote on 2/28/22 10:04: On Sun, 27 Feb 2022 23:27:51 -0600, Alan Altmark wrote: On Wed, 23 Feb 2022 17:47:31 +, Seymour J Metz wrote: Bummer. Maybe someone from IBM can shed light on the issue. I speculate that this was to prevent INSERT and CHANGE from overlaying column 72 by accident when editing in line mode. When you're ready to put in continuation characters, do TRUNC 72 # CL :72 # COVERLAY X # REPEAT n # TRUNC 71. AYFK‽ I'll assume that was a macro, perhaps a PF key. Wouldn't it be useful if after marking the continuation it inserted a following blank line to contain the rest of the statement? Naturally we all updated our profiles once 3270s showed up, so it turned into a non-issue. What had you used previously? A command line editor? Will the tyranny of the 026 and 701 ever be overthrown? Has anyone submitted an RFE to incorporate FLOWASM into HLASM; even make it the default? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AUXLIST (was XEDIT equivalent to ISPF C - OO/OO (copy overlay))
The attribute byte does not really take up a space on the screen. Within the datasteam, you can put stuff on the screen 'out of order' and thus put something else on the screen that overwrites the spot you thought you put the attribute byte into. So, if build the datasteam from end to start, you can do some nifty things. No, you can't do it with BMS. Many years ago, another programmer showed me the technique he used in assembler programs. A few years later, I wrote a set of Cobol routines to build screens without using BMS. And using his method, I was able to even change the color within what appeared to be a single field. One issue is that the rules are different in what you can do for input vs output fields. It's been 25+ years since I did this, so many of the details have been misplaced within my gray matter. :-) Tony Thigpen Phil Smith III wrote on 2/25/22 18:55: Shmuel wrote: Huh? Where does "the image won't fit on a 24x80 screen" come from? Supporting new device capabilities does not mean that old devices are unsupported. ISPF supports, e.g., colors, but it works on a 3277 as well as it ever did. Had IBM done as I suggest, there would not have been a requirement for a new geometry and ISPF would still work on an old device. If I can put data in all 1920 characters, then that image won't fit on an older screen where the attribute bytes take up space. (Nor will stuff line up correctly, probably.) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AUXLIST (was XEDIT equivalent to ISPF C - OO/OO (copy overlay))
I think we would all agree that the defaults for XEDIT are "not the way I would have done it." But, we should also agree that changing just about anything with XEDIT is possible, and in most cases easy using the tools provided with XEDIT. So, let's not hang our thoughts about XEDIT based on one such setting, especially, col 72 when editing assembler. Tony Thigpen Phil Smith III wrote on 2/24/22 14:44: Paul Gilmartin wrote: But it's overdue for the ISPF and XEDIT designers to do what ISPF promised never to do: introduce support for curses/terminfo-based terminals. Most desktops have those nowadays. Not sure how that would work, since it's a 3270 data stream. Would mean a HUGE rewrite, and for what (at this point)? That ship has sailed, alas. How does KEDIT treat column 72? A fair question; I think the answer is that it's not comparable, since KEDIT doesn't have the same physical screen limitations (including attribute bytes), nor does it have the concept of "filetype" per se. It does say: The truncation column, controlled by SET TRUNC, is normally set equal to the WIDTH setting. So maybe that's the answer you want? IOW, unless you set it, TRUNC effectively doesn't get set. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AUXLIST (was XEDIT equivalent to ISPF C - OO/OO (copy overlay))
There is no 73-80 dependency in XEDIT/UPDATE either. Just the last 8 characters, so it could be 1001-1008 if you need 1000 characters for your code. Tony Thigpen Seymour J Metz wrote on 2/23/22 09:21: diff/patch is more flexible; no 73-80 dependency. In simple cases I can see that, but what happens when blocks of code repeat? Sometimes you need both a screwdriver and a hammer. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu] Sent: Wednesday, February 23, 2022 9:01 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: AUXLIST (was XEDIT equivalent to ISPF C - OO/OO (copy overlay)) On Wed, 23 Feb 2022 07:11:20 -0500 Tony Thigpen wrote: :>I use a system that generates the AUX files dynamically for each "xedit :>with update function". There is only one CTRL file, ... :> I had a disappointment with XEDIT Update mode: If I touch a line; have second thoughts and restore it, even by an immediate ERASE EOF, it puts the line needlessly in the Update file. Working in a cooperative development project, I resorted to using basic XEDIT and generating my updates with SuperC UPDCMS8. I went to SR with the ERASE EOF misbehavior; got WAD. OTOH, UPDMVS8 requires valid line numbers on both comparands; UPDCMS8 only on OLD. So I have generated IEBUPDTE input using UPDCMS8 plus a Rexx filter. diff/patch is more flexible; no 73-80 dependency. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AUXLIST (was XEDIT equivalent to ISPF C - OO/OO (copy overlay))
If it's a single line change, I just edit the resulting ptf member and remove the extra modification. If it's in a group of lines being changed, it's most likely going to be in the ptf anyway. Tony Thigpen Paul Gilmartin wrote on 2/23/22 09:01: On Wed, 23 Feb 2022 07:11:20 -0500 Tony Thigpen wrote: :>I use a system that generates the AUX files dynamically for each "xedit :>with update function". There is only one CTRL file, ... :> I had a disappointment with XEDIT Update mode: If I touch a line; have second thoughts and restore it, even by an immediate ERASE EOF, it puts the line needlessly in the Update file. Working in a cooperative development project, I resorted to using basic XEDIT and generating my updates with SuperC UPDCMS8. I went to SR with the ERASE EOF misbehavior; got WAD. OTOH, UPDMVS8 requires valid line numbers on both comparands; UPDCMS8 only on OLD. So I have generated IEBUPDTE input using UPDCMS8 plus a Rexx filter. diff/patch is more flexible; no 73-80 dependency. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AUXLIST (was XEDIT equivalent to ISPF C - OO/OO (copy overlay))
All that is in my AUXLIST is: ASS1 ASS2 This for an assembler program with 2 updates. Tony Thigpen Binyamin Dissen wrote on 2/23/22 07:52: On Wed, 23 Feb 2022 07:11:20 -0500 Tony Thigpen wrote: :>You should continue the conversation over on the VM list. :>I use a system that generates the AUX files dynamically for each "xedit :>with update function". There is only one CTRL file, which has: :>TEXT MACS :>FIXES AUXLIST :>My personal source control system uses SFS with program level locks :>which require check-out and check-in. I wrote it back somewhere around :>1990 and have used it in several shops since then. Played a bit and it appears that I need to create source AUXLIST which contains PTF updatename Did I guess right? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XEDIT equivalent to ISPF C - OO/OO (copy overlay)
You should continue the conversation over on the VM list. I use a system that generates the AUX files dynamically for each "xedit with update function". There is only one CTRL file, which has: TEXT MACS FIXES AUXLIST My personal source control system uses SFS with program level locks which require check-out and check-in. I wrote it back somewhere around 1990 and have used it in several shops since then. Tony Thigpen Binyamin Dissen wrote on 2/23/22 03:21: Thanks to all. SIDCODE does the job. Now I have to remember how to make AUX files. I can make CNTRL files, but multi-source fixes would eventually drive me to a separate CNTRL per source. On Mon, 21 Feb 2022 18:49:22 -0500 Phil Smith III wrote: :>I think I misread the requirement. Try this version, which also handles :>block commands. :> :> :> :>/* :> PREFIXO :> K -- Kopy prefix subcommand :> O -- Overlay prefix subcommand :> OO -- Overlay block prefix subcommand :> :> Designed to be used with: :> :> COMMAND SET PREFIX SYNONYM K PREFIXO :> COMMAND SET PREFIX SYNONYM O PREFIXO :> COMMAND SET PREFIX SYNONYM OO PREFIXO :>*/ :> arg p f l rest :> if f = 'CLEAR' | p <> 'PREFIX' then exit /* Nothing to do, great */ :> parse source . . . . . pcmd . :> if rest <> '' then signal Error /* Operand, we don't do those */ :> if index('KOO', pcmd) = 0 then signal Error /* Not ours?? error */ :> 'COMMAND LOCATE :'l /* Go to the line we're handling */ :> if pcmd = 'K' then signal JustWait /* Kopying, go Wait for O */ :> 'EXTRACT /PENDING K'/* Is there a pending K?? */ :> if pending.0 = 0 then signal JustWait/* No, just wait */ :> kline = pending.1/* Remember where Kopied line is */ :> 'COMMAND LOCATE :'pending.1 'COMMAND EXTRACT /CURLINE' /* Go */ :> kopy = curline.3 /* Get the Kopied data */ :> 'COMMAND EXTRACT /PENDING BLOCK OO :0' l /* See if OO pending */ :> select :> when pcmd = 'O' then do :> call Overlay l l /* Simple O, do that */ :> 'COMMAND LOCATE :'kline 'SET PENDING OFF'/* And clear K */ :> end :> when pending.0 = 0 then/* OO and not pending?? */ :> 'COMMAND LOCATE :'l 'COMMAND SET PENDING BLOCK OO' /* Wait */ :> otherwise /* OO and already a pending K and OO, process it */ :> call Overlay pending.1 l /* Go do the overlays */ :> 'COMMAND LOCATE :'pending.1 'SET PENDING OFF' /* Clear OO */ :> 'COMMAND LOCATE :'kline 'SET PENDING OFF' /* And clear K */ :> end :> exit :> :>/* Do overlays: Build replacement lines, overlaying only blanks */ :>Overlay: :> arg s e/* Start and end lines */ :> do n = s to e/* Spin through them */ :> 'COMMAND LOCATE :'n 'COMMAND EXTRACT /CURLINE' /* Get data */ :> r = '' /* No replacement yet */ :> do i = 1 to length(kopy) /* Only care about overlay length */ :> c = substr(curline.3, i, 1) /* Get character from line */ :> if c = '' then r = r || substr(kopy, i, 1) /* Overlay blank */ :> else r = r || c /* Don't overlay if not blank */ :> end :> if r <> '' then 'COMMAND REPLACE' r /* Replace if not null */ :> end :> return :> :>JustWait: /* Reset pending command, either K or OO */ :> 'COMMAND SET PENDING ON' pcmd :> exit :> :>Error: /* Invalid, show prefix error */ :> 'COMMAND SET PENDING ERROR' pcmd rest :> exit :> :> :> :> :>-- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XEDIT equivalent to ISPF C - OO/OO (copy overlay)
Try the attached macro. It does not require the character loop that the one provided by Phil does. Tony Thigpen Tony Thigpen wrote on 2/21/22 18:34: If I understand your request, the XEDIT OVERLAY command is just backwards of what you want. It replaces the existing line with any character, other than a blank, found in the original 'copied line'. This will take a little extra work. The original line needs to be saved, the copied line needs to replace it, then the original line needs to OVERLAY the now current line. I have a PRFMERGE macro that I got somewhere that uses the standard overlay function. Let me see if I can reverse it's function. Tony Thigpen Binyamin Dissen wrote on 2/21/22 12:40: On Mon, 21 Feb 2022 16:25:05 + Rahim Azizarab <03f036d88eeb-dmarc-requ...@listserv.ua.edu> wrote: :>In ISPF you would put X over the line numbers; and on the command line you would type ==> c ABC XYZ all X :>It results in changing all occurrences of ABC to XYZ on the lines marked by X only. I am referring to the function where you type C on a line that has the overlay data and then OO/OO on the group of lines that you wish to overlay. The only dependence on the data on the OO lines is that it will not replace a non-blank. :> On Monday, February 21, 2022, 07:24:39 AM CST, Binyamin Dissen wrote: :> :> What would the XEDIT equivalent to C OO/OO in ISPF which copies the marked :>line, only overlaying blank characters the targeted lines? :> :>Sort of applying SET MASK to a group of existing lines. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN /* prefix command - overlay two or more lines */ /* */ /* you specify the overlay source line using 't' prefix command */ /* you specify the lines to be overlayed using 'ot' or 'ott'*/ /* */ /* Unline the xedit command 'overlay', this prefix command will */ /* only overlay blank positions in the destination lines*/ /* */ /* to use this macro, add the following prefixes synonym to your*/ /* xedit profile: */ /* */ /* set prefix synonym t prfmerge*/ /* set prefix synonym ot m */ /* set prefix synonym ott mm */ trace off parse source . . . . . name . arg pref func pline op extra select when pref ¬= 'PREFIX' then call error1, 'this macro must be invoked from the prefix area.' when func = 'CLEAR' then exit when func = 'SHADOW' then call error1, 'invalid on shadow line.' when func ¬= 'SET' then call error1, 'this macro must be invoked from the prefix area.' when extra ¬= '' then call error, "extraneous parameter '"strip(extra)"'." otherwise nop end 'command extract /cursor/column' if op = '' & cursor.4 > 0 then op = cursor.4 'command extract /pending block oldname mm' if pending.0 ¬= 0 then do mm.1 = pending.1 'command extract /pending block oldname mm :'mm.1+1'* /' if pending.0 ¬= 0 then do mm.2 = pending.1 mm.0 = mm.2-mm.1+ 1 'command locate :'pline 'command extract /curline' baseline = curline.3 'command locate :'mm.1 do i = 1 to mm.0 'command extract /curline' 'replace' baseline 'overlay' curline.3 'next' end 'command locate :'mm.1 'command set pending off' 'command locate :'mm.2 'command set pending off' 'command locate :'pline end end else do 'command extract /pending oldname m/' if pending.0 ¬= 0 then do if pending.5 ='' then pending.5 = 1 'command locate :'pline 'command extract /curline' baseline = curline.3 'command locate :'pending.1 'command extract /curline' 'replace' baseline 'overlay' curline.3 'command set pending off' if pline < pending.1
Re: XEDIT equivalent to ISPF C - OO/OO (copy overlay)
If I understand your request, the XEDIT OVERLAY command is just backwards of what you want. It replaces the existing line with any character, other than a blank, found in the original 'copied line'. This will take a little extra work. The original line needs to be saved, the copied line needs to replace it, then the original line needs to OVERLAY the now current line. I have a PRFMERGE macro that I got somewhere that uses the standard overlay function. Let me see if I can reverse it's function. Tony Thigpen Binyamin Dissen wrote on 2/21/22 12:40: On Mon, 21 Feb 2022 16:25:05 + Rahim Azizarab <03f036d88eeb-dmarc-requ...@listserv.ua.edu> wrote: :>In ISPF you would put X over the line numbers; and on the command line you would type ==> c ABC XYZ all X :>It results in changing all occurrences of ABC to XYZ on the lines marked by X only. I am referring to the function where you type C on a line that has the overlay data and then OO/OO on the group of lines that you wish to overlay. The only dependence on the data on the OO lines is that it will not replace a non-blank. :>On Monday, February 21, 2022, 07:24:39 AM CST, Binyamin Dissen wrote: :> :> What would the XEDIT equivalent to C OO/OO in ISPF which copies the marked :>line, only overlaying blank characters the targeted lines? :> :>Sort of applying SET MASK to a group of existing lines. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FYI: AWS wants to get your mainframe apps into the cloud – fast | Network World
Yes, and then if someone in your company post anything on social media not to their liking, they kill your account with no warning. Tony Thigpen Mark Regan wrote on 11/30/21 7:10 PM: This news item popped up in my newsfeed today. https://www.networkworld.com/article/3642373/aws-wants-to-get-your-mainframe-apps-into-the-cloud-fast.html Regards, Mark Regan, K8MTR, EN80tg CTO1 USNR-Retired (1969-1979 active; 1979-1991, reserves; including two years with the Ohio Air National Guard) Nationwide Insurance, Retired, 1986-2017 (z/OS Network Software Consultant) Email:marktre...@gmail.com LinkedIn: https://www.linkedin.com/in/mark-t-regan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Disassembly/Reassembly
The disassembler can not determine if the original source was an =A() or =V(xxx). This, and other things, require someone to work with the disassembled code to actually make it assemble clean. It's amazing that the disassembler does as good a job as it does. Pat the guys on the back that wrote it. Tony Thigpen David Spiegel wrote on 11/17/21 5:50 PM: Hi, I have been given a Load Module and source code. The Source Code, however, does not 100% match the Disassembled Load Module. This module has been running in production since 1994. With that preface ... I tried reassembling the disassembled module source and have a problem. One instruction says: L R2,=A(TSAUXWRK) Later in the program, I see the following in the disassembled source DC A(TSAUXWRK) Yet, the definition of TSAUXWRK appears nowhere in the disassembled source, causing a ASM044E. I looked in the source provided and it has: TSAUXWRK CSECT in the middle of the program. (When I assemble this, even though it is not the correct source, I get a clean assembly.) Has anyone encountered anything like this (addressing a CSECT as an A=CON works, but, only with original source)? Is there a remedy for this? Thanks and regards, David -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TN3270 message
You SSL ports failed because LE could not be initialized. Your regular ports will work anyway. Tony Thigpen Shaffer, Terri wrote on 11/15/21 10:59 AM: Hi, Just recently upgraded my test lpar to z/OS 2.5 and Tn3270 is displaying an error. It still connects and I can logon but this? $HASP373 TN3270 STARTED IEF403I TN3270 - STARTED - TIME=09.13.27 IEE252I MEMBER CTIEZBTN FOUND IN SYS1.IBM.PARMLIB EZZ6035I TN3270 DEBUG TASK EXCEPTION 145 TASK: COMMAND CNTL MOD: EZBTMCTL RCODE: 6013-00 CEEPIPI environments could not be initialized. PARM1: 0006 PARM2: PARM3: EZZ6001I TN3270 SERVER STARTED EZZ6044I TN3270 PROFILE PROCESSING BEGINNING FOR FILE 147 SPRG.PLX1.TCPPARMS(TN3270L9) EZZ6045I TN3270 PROFILE PROCESSING COMPLETE FOR FILE SPRG.PLX1.TCPPARMS(TN3270L9) EZZ6003I TN3270 LISTENING ON PORT 992 EZZ6003I TN3270 LISTENING ON PORT23 Has anyone seen this, Maybe I didn’t do something in a previous release? Didn’t see it the migration guide, just the TLS stuff.. Ms Terri E Shaffer Senior Systems Engineer, z/OS Support: ACIWorldwide – Telecommuter H(412-766-2697) C(412-519-2592) terri.shaf...@aciworldwide.com [https://go.aciworldwide.com/rs/030-ROK-804/images/aci-footer.jpg] <http://www.aciworldwide.com> This email message and any attachments may contain confidential, proprietary or non-public information. The information is intended solely for the designated recipient(s). If an addressing or transmission error has misdirected this email, please notify the sender immediately and destroy this email. Any review, dissemination, use or reliance upon this information by unintended recipients is prohibited. Any opinions expressed in this email are those of the author personally. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Invalid character in file
This is a new one for me. I have a customer that has sites in both the US and Canada. In the last week, something strange has happened in their files TWICE. They are using CICS to add a new vendor to an IMS database. The next time they try to access the vendor record, the terminal session gets a prog-something because the customer name now has a x'1A' in the name where it should have been an apostrophe. TN3270 just does not like a x'1A' in a data field. For example: GROUT.S WELDING LIMITED CDDEE1E4ECDCCDC4DCDCECC44 79643A2065349570394935400 I asked if they are creating new vendor records via an off-platform feed, but they say the are keying them manually in a CICS terminal session. I do know that both times this has happened, the vendor was a Canadian supplier so maybe this has something to do with French keyboards? (Grasping for straws, maybe?) Anybody seen this or think they may know what is happening? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Licensing a back-level z/OS
We have done it on multiple occasions for 'way back' releases. Another guy in my org just called IBM and told them our problem. Now, only in one case did we need tapes and happily IBM was able to send them to us. Tony Thigpen Charles Mills wrote on 10/22/21 12:52 PM: I have a client who has a customer that is in a pickle. Yes, of their own making, but it is what it is. Government agency, limited budgets, long procurement cycles, personnel constraints, etc. They are running z/OS V1R10 on a z114. They now have an urgent need to be able to run COBOL 6 executables. (Yes, there is a longer story here, but I think I have covered the technical essentials.) COBOL 6 executables absolutely require LE V2R1 or above. (Someone please correct me if I am wrong.) The z114 will support up to z/OS V2R2. V2R2 is of course withdrawn from marketing. Can I get some help here? What are the chances that they could obtain V2R2 media? Can anyone help me out? There is no desire to run pirated software. Is there any route by which one obtains a license from IBM for back-level z/OS? One bit of good news: They are running V1R10 under VM so it would be possible to install a new instance of V2R2; it is not necessary to upgrade their running system. Any other suggestions -- other than don't get yourself into pickles -- would be welcomed. The use of an off-premises box does not appear to be a good option because the COBOL 6 executables will have to read and update data sets that are also used by online systems running on the existing V1R10 -- although not necessarily simultaneously. Feel free to respond off-line if appropriate. Charlesm at mcn dot org Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Mainframe Modernization
Ron, My opinion is that IBM is just as bad now that they are 'cloud eccentric'. (Yes, play on words, not a misspelling.) Tony Thigpen Ron Wells wrote on 10/21/21 9:05 AM: IBM needs to push back in Marketing , be more forceful stop the lies- smoke and mirrors -Original Message- From: IBM Mainframe Discussion List On Behalf Of Ron Wells Sent: Thursday, October 21, 2021 8:03 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Mainframe Modernization ** EXTERNAL EMAIL - USE CAUTION ** Agree- -Original Message- From: IBM Mainframe Discussion List On Behalf Of Bill Johnson Sent: Thursday, October 21, 2021 8:02 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Mainframe Modernization ** EXTERNAL EMAIL - USE CAUTION ** Understanding TCO is extremely important, yet frequently overlooked. Management sometimes doesn’t care or isn’t smart enough to determine it. My last boss only cared about initial cost, which he could take to his boss and say “see, I saved you $10,000” even though in 5 years he likely cost the company $50,000 in lost productivity, downtime, or other issues he didn’t factor in. Of course, my last boss was a Unix guy with zero knowledge of the mainframe and no desire to learn or take recommendations from his mainframe staff of 5 who combined had almost 200 years of experience. Sent from Yahoo Mail for iPhone On Thursday, October 21, 2021, 8:44 AM, Ron Wells <02ebc63ff5ef-dmarc-requ...@listserv.ua.edu> wrote: Marketing BS for the UNEDUCATED MGNT that only look at the $$ and does not know or understand TRUE TCO. % -Original Message- From: IBM Mainframe Discussion List On Behalf Of David Elliot Sent: Wednesday, October 20, 2021 5:50 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Mainframe Modernization ** EXTERNAL EMAIL - USE CAUTION ** Does anyone out there know what is meant by the expression "Mainframe Modernization' '? It seems to be catching on with the Bobs but when you ask exactly how they propose to modernize their systems all you get is silence. As in if you don"know we shouldn't even be talking about it. Any ideas ? Or is it just more BS like 'cloud' or 'devops'? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Email Disclaimer This E-mail contains confidential information belonging to the sender, which may be legally privileged information. This information is intended only for the use of the individual or entity addressed above. If you are not the intended recipient, or an employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any disclosure, copying, distribution, or the taking of any action in reliance on the contents of the E-mail or attached files is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Email Disclaimer This E-mail contains confidential information belonging to the sender, which may be legally privileged information. This information is intended only for the use of the individual or entity addressed above. If you are not the intended recipient, or an employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any disclosure, copying, distribution, or the taking of any action in reliance on the contents of the E-mail or attached files is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Email Disclaimer This E-mail contains confidential information belonging to the sender, which may be legally privileged information. This information is intended only for the use of the individual or entity addressed above. If you are not the intended recipient, or an employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any disclosure, copying, distribution, or the taking of any action in reliance on the contents of the E-mail or attached files is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu
Re: Mainframe Modernization
It's a magic salesman word. A few years ago, it meant moving the mainframe workload to PC using a PC based Cobol. Later it meant moving to the cloud. Anytime you hear the word, it means "I have some snake oil to sell you where I can get rich even if the project fails." Be aware that while it sounds almost the same, the term "Application Modernization" usually means good/legitimate things like adding a web front-end or a better database back-end. "Mainframe Modernization" is bad, "Application Modernization" is good. (Normally.) Tony Thigpen David Elliot wrote on 10/20/21 6:50 PM: Does anyone out there know what is meant by the expression "Mainframe Modernization' '? It seems to be catching on with the Bobs but when you ask exactly how they propose to modernize their systems all you get is silence. As in if you don"know we shouldn't even be talking about it. Any ideas ? Or is it just more BS like 'cloud' or 'devops'? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Linkling an object from VSE to be used in z/OS
All I know is that the first MVS (or was it OS/390?) shop I worked with, back in 1983, called them phases. After that shop, I was in VSE shops until 10 years ago. Only upon returning to VSE did I first hear "load module" and "objects". I just figured that when they moved to using "Binder", they stopped using the old term. Tony Thigpen Seymour J Metz wrote on 10/8/21 5:15 PM: z/OS has program objects and load modules. Within legacy load modules there might be segments or overlays. But a/OS does not have phases. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tony Thigpen [t...@vse2pdf.com] Sent: Friday, October 8, 2021 11:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Linkling an object from VSE to be used in z/OS A phase in z/VSE is the same as a phase in z/OS, But, the CSECT info is not as complete as in z/OS. While z/OS has the information for the original different CSECTs used to build the phase, z/VSE only saves the main CSECT identification information. Restated, all the subroutines that may have been hard-linked to the phase are in the phase, but there is not enough information to remove or replace one of the csects. So, when you punch the phase from z/VSE, you will see only one CSECT for the total program. In this discussion, the problem is that even if the COBOLII program was linked with LE 'parts' in z/VSE, those LE 'parts' may try to use z/VSE only pointers to branch into LE. So, I don't think it's going to work. Tony Thigpen Seymour J Metz wrote on 10/8/21 10:12 AM: What do you consider to be the MVS equivalent of a phase, and what utility are you using to convert a load module to an object module? Certainly you can relink (rebind) and delete extraneous csects but that's somewhat of a manual process and still doesn't give you card images. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tony Thigpen [t...@vse2pdf.com] Sent: Thursday, October 7, 2021 8:39 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Linkling an object from VSE to be used in z/OS Don't expect it to work. When VSE punches a phase, the link deck created includes any called modules without any way to get them out. This is in contrast to z/OS which produces all the individual modules. Tony Thigpen Gadi Ben-Avi wrote on 10/7/21 3:22 AM: Hi, I was asked to attempt to link a object deck from VSE in z/OS. The program is a COBOL2 program, but the source has been lost. The first few lines of the object deck are: W PHASE JKHIVX52,S+X'00' W MODE AMODE(31),RMODE(ANY) W.ESD .. ..JKHIVX52.§.©..÷0 After that there are many (A little over 12,000) lines that start with W.TXT Next there are lines that start with W.RLD and a final like that starts with W.END. The JCL I used was //LKED EXEC PGM=IEWL, // PARM='LIST,XREF,NOLET,MAP', // REGION=2M //SYSLIN DD DSN=N623.PMKA.KPMAT.JKHIVX52,DISP=SHR //SYSLMOD DD DSNAME=V110GAD.LOAD(JKHIVX52),DISP=SHR //SYSUT1 DD UNIT=3390,SPACE=(CYL,(1,1)) //SYSPRINT DD SYSOUT=* //SYSINDD * INCLUDE SYSLIN(JKHIVX52) NAME JKHIVX52(R) I am doing something wrong? Can this deck be linked into a usable z/OS load module? Thanks Gadi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Linkling an object from VSE to be used in z/OS
A phase in z/VSE is the same as a phase in z/OS, But, the CSECT info is not as complete as in z/OS. While z/OS has the information for the original different CSECTs used to build the phase, z/VSE only saves the main CSECT identification information. Restated, all the subroutines that may have been hard-linked to the phase are in the phase, but there is not enough information to remove or replace one of the csects. So, when you punch the phase from z/VSE, you will see only one CSECT for the total program. In this discussion, the problem is that even if the COBOLII program was linked with LE 'parts' in z/VSE, those LE 'parts' may try to use z/VSE only pointers to branch into LE. So, I don't think it's going to work. Tony Thigpen Seymour J Metz wrote on 10/8/21 10:12 AM: What do you consider to be the MVS equivalent of a phase, and what utility are you using to convert a load module to an object module? Certainly you can relink (rebind) and delete extraneous csects but that's somewhat of a manual process and still doesn't give you card images. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tony Thigpen [t...@vse2pdf.com] Sent: Thursday, October 7, 2021 8:39 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Linkling an object from VSE to be used in z/OS Don't expect it to work. When VSE punches a phase, the link deck created includes any called modules without any way to get them out. This is in contrast to z/OS which produces all the individual modules. Tony Thigpen Gadi Ben-Avi wrote on 10/7/21 3:22 AM: Hi, I was asked to attempt to link a object deck from VSE in z/OS. The program is a COBOL2 program, but the source has been lost. The first few lines of the object deck are: W PHASE JKHIVX52,S+X'00' W MODE AMODE(31),RMODE(ANY) W.ESD .. ..JKHIVX52.§.©..÷0 After that there are many (A little over 12,000) lines that start with W.TXT Next there are lines that start with W.RLD and a final like that starts with W.END. The JCL I used was //LKED EXEC PGM=IEWL, // PARM='LIST,XREF,NOLET,MAP', // REGION=2M //SYSLIN DD DSN=N623.PMKA.KPMAT.JKHIVX52,DISP=SHR //SYSLMOD DD DSNAME=V110GAD.LOAD(JKHIVX52),DISP=SHR //SYSUT1 DD UNIT=3390,SPACE=(CYL,(1,1)) //SYSPRINT DD SYSOUT=* //SYSINDD * INCLUDE SYSLIN(JKHIVX52) NAME JKHIVX52(R) I am doing something wrong? Can this deck be linked into a usable z/OS load module? Thanks Gadi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Linkling an object from VSE to be used in z/OS
Don't expect it to work. When VSE punches a phase, the link deck created includes any called modules without any way to get them out. This is in contrast to z/OS which produces all the individual modules. Tony Thigpen Gadi Ben-Avi wrote on 10/7/21 3:22 AM: Hi, I was asked to attempt to link a object deck from VSE in z/OS. The program is a COBOL2 program, but the source has been lost. The first few lines of the object deck are: W PHASE JKHIVX52,S+X'00' W MODE AMODE(31),RMODE(ANY) W.ESD .. ..JKHIVX52.§.©..÷0 After that there are many (A little over 12,000) lines that start with W.TXT Next there are lines that start with W.RLD and a final like that starts with W.END. The JCL I used was //LKED EXEC PGM=IEWL, // PARM='LIST,XREF,NOLET,MAP', // REGION=2M //SYSLIN DD DSN=N623.PMKA.KPMAT.JKHIVX52,DISP=SHR //SYSLMOD DD DSNAME=V110GAD.LOAD(JKHIVX52),DISP=SHR //SYSUT1 DD UNIT=3390,SPACE=(CYL,(1,1)) //SYSPRINT DD SYSOUT=* //SYSINDD * INCLUDE SYSLIN(JKHIVX52) NAME JKHIVX52(R) I am doing something wrong? Can this deck be linked into a usable z/OS load module? Thanks Gadi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL issue
Also, it's in the back of my mind that you can set a pointer to a '01' level, but only a '01' level. But, I work across all platforms and I may be thinking z/OS. If you are not using the SET ADDRESS against an '01' level, give it a try. Tony Thigpen Tony Thigpen wrote on 10/1/21 10:57 AM: Grab my small assembler program to do this: http://dinomasters.com/coolstuff/bsttezsp.txt Tony Thigpen Bernd Oppolzer wrote on 10/1/21 10:27 AM: Sorry, forgot to mention: I'm on VSE, the Compiler release is COBOL for VSE/ESA 1.1.1; this Compiler definitely only allows items from the Linkage Section. Nice to know about later version on other OSes. So there is no danger in applying an ASSEMBLER workaround and probably no other (simple and performant) COBOL-only fix. Kind regards Bernd Am 01.10.2021 um 16:18 schrieb Joe Monk: Depends on the release of the COBOL compiler. Later releases support working-storage items, earlier releases only allow linkage items. Joe On Fri, Oct 1, 2021 at 8:50 AM Bernd Oppolzer wrote: Probably asking a COBOL question for the first time :-) I am thinking about writing a general sub-program using COBOL which does several different computations, each of them needing different input and output data of different size. Because this should work with Batch and CICS, I am thinking about a single communication area with fixed size, which points to another communiation area of variable size. The area looks like this: 01 COMMAREA. 05 CA-FUNCTION_CODE PIC X(8). 05 CA-STATUS PIC 99. 05 CA-AREA-ADDR USAGE POINTER. 05 CA-AREA-LEN PIC S9(4) COMP. I managed to write the called subroutine; the COMMAREA is in the LINKAGE SECTION there, and I can use the address in the CA-AREA-ADDR and read and write the values in the variable comm-area, which is linked to the fixed area. No problem so far. But: in the calling program, when setting up the COMMAREA. I cannot put the address of a WORKING-STORAGE FIELD into the CA-AREA-ADDR. Because simply it is not allowed to use SET CA-AREA-ADDR TO ADDRESS OF field on WS fields. Why? IMO there is no danger in passing the address of a WS field to a subprogram. Even if the WS field were in automatic storage (which it is not, IMO), there would be no problem. In fact, this is done implicitly using call-by-reference, but I want to do it now sort of explicitly (this way overcoming some restrictions with CICS and fixed lengths of COMMAREAs). I recall having seen the DB2 precompiler generating ASSEMBLER routine calls to do just this (getting the address of a WS field to feed it into the DB2 interface DSNHLI). Is this the only possible way to go? Thank you, kind regards Bernd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL issue
Grab my small assembler program to do this: http://dinomasters.com/coolstuff/bsttezsp.txt Tony Thigpen Bernd Oppolzer wrote on 10/1/21 10:27 AM: Sorry, forgot to mention: I'm on VSE, the Compiler release is COBOL for VSE/ESA 1.1.1; this Compiler definitely only allows items from the Linkage Section. Nice to know about later version on other OSes. So there is no danger in applying an ASSEMBLER workaround and probably no other (simple and performant) COBOL-only fix. Kind regards Bernd Am 01.10.2021 um 16:18 schrieb Joe Monk: Depends on the release of the COBOL compiler. Later releases support working-storage items, earlier releases only allow linkage items. Joe On Fri, Oct 1, 2021 at 8:50 AM Bernd Oppolzer wrote: Probably asking a COBOL question for the first time :-) I am thinking about writing a general sub-program using COBOL which does several different computations, each of them needing different input and output data of different size. Because this should work with Batch and CICS, I am thinking about a single communication area with fixed size, which points to another communiation area of variable size. The area looks like this: 01 COMMAREA. 05 CA-FUNCTION_CODE PIC X(8). 05 CA-STATUS PIC 99. 05 CA-AREA-ADDR USAGE POINTER. 05 CA-AREA-LEN PIC S9(4) COMP. I managed to write the called subroutine; the COMMAREA is in the LINKAGE SECTION there, and I can use the address in the CA-AREA-ADDR and read and write the values in the variable comm-area, which is linked to the fixed area. No problem so far. But: in the calling program, when setting up the COMMAREA. I cannot put the address of a WORKING-STORAGE FIELD into the CA-AREA-ADDR. Because simply it is not allowed to use SET CA-AREA-ADDR TO ADDRESS OF field on WS fields. Why? IMO there is no danger in passing the address of a WS field to a subprogram. Even if the WS field were in automatic storage (which it is not, IMO), there would be no problem. In fact, this is done implicitly using call-by-reference, but I want to do it now sort of explicitly (this way overcoming some restrictions with CICS and fixed lengths of COMMAREAs). I recall having seen the DB2 precompiler generating ASSEMBLER routine calls to do just this (getting the address of a WS field to feed it into the DB2 interface DSNHLI). Is this the only possible way to go? Thank you, kind regards Bernd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PL/I vs. JCL
I used REXX in OS/2, but can't remember if it had any special requirements for the first line. I can't find any manuals online (yet). Tony Thigpen Seymour J Metz wrote on 9/29/21 10:22 AM: TSO SYSPROC is the only case I know of where /* REXX */ is required. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Phil Smith III [li...@akphs.com] Sent: Wednesday, September 29, 2021 10:06 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: PL/I vs. JCL Bob Bridges wrote: Purely by the way, but I've never really understood why so many REXX modules I see start like this: /* REXX */ I think (a) it's documented that way in some places; (b) Some environments may even require that; (c) that's how some/many examples have it; and (d) it's bizarre, because these all work in TSO: /* Rexx */ /* This rexx program. */ /* This is (rexx) */ /* This is not(rexx)s */ /* Thisisrexxyep */ but /* This is a program */ does not. So something is parsing the entire first line, looking for the leading "/*" and four letters "rexx" in a row, case-insensitive. Bizarre. Having grown up in VM, I'd never even thought about it, other than knowing that I needed the word "rexx" in the first line in TSO. (On VM, just the leading "/*" is sufficient.) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PL/I vs. JCL
Also of note, z/VM REXX requires that the first thing in a ReEXX program *must* be a comment. It does not require the word REXX, just a comment. "/* */" is seen a lot. z/VSE REXX does not require that the first thing be a comment, but suggests that the first thing be a comment starting with "/* REXX */ for compatibility, but it does not state who requires it for compatibility. Tony Thigpen CM Poncelet wrote on 9/28/21 9:58 PM: The "/* REXX */" part is required only if the REXX exec is to be run from a PDS allocated to DDNAME=SYSPROC instead of to DDNAME=SYSEXEC. SYSPROC is for CLISTs, SYSEXEC is for REXXs. On 29/09/2021 02:07, Andrew Rowley wrote: On 29/09/2021 6:54 am, Bob Bridges wrote: Purely by the way, but I've never really understood why so many REXX modules I see start like this: /* REXX */ /* Module: Name Author: Bob Bridges the Magnificent Purpose: Convert ANSI dates to internal format, or whatever. */ ...instead of something like this: /* This REXX converts ANSI dates to internal format, or whatever. */ /* Module: Name Author: Bob Bridges the Magnificent */ I guess the first looks like a statement with a purpose, the second looks like a comment that can be freely edited e.g. /* This program converts... Things may not be as obvious to newcomers as they are to those with more experience. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DYNAM vs NODYNAM
Because the translator generates: Call 'DFHEI1' . And you don't want them dynamic. Tony Thigpen Erik Janssen wrote on 9/21/21 9:57 AM: Hello All, In the COBOL documentation at https://www.ibm.com/docs/en/cobol-zos/6.2?topic=environment-choosing-dynam-nodynam-compiler-option it is said that for example CICS requires the NODYNAM compile option. My idea was that the sole purpose of DYNAM vs NODYNAM was to control dynamic vs static calls, where DYNAM will always lead to dynamic calls, but with NODYNAM only a CALL literal will lead to a static call, a CALL identifier will still lead to a dynamic call. So is it only possible under CICS to use CALL literal in this case (must all calls be static), or can you still use dynamic calling with a CALL identifier? And if the latter is the case, then why is there a requirement to use NODYNAM? Is there some other effect of DYNAM vs NODYNAM that I'm not seeing? Kind regards, Erik Janssen. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: REXX - Interpret or Value - Which is better?
When I googled "z/OS PIPE VARLOAD", I got a z/OS manual, but I failed to notice that the manual was for "Z Netview". FYI, z/VSE wants Pipes too. Tony Thigpen Farley, Peter x23353 wrote on 9/14/21 6:34 PM: Tony, z/OS TSO Rexx has no pipes, only CMS has them. Not that we don’t WANT them, but IBM so far has chosen not to port them to z/OS. Peter -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tony Thigpen Sent: Tuesday, September 14, 2021 6:12 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: REXX - Interpret or Value - Which is better? I do most of my rexx on VM, but on VM we have a method to directly read and update a callers variables (as long as both are REXX) using the pipe stages VAR and VARLOAD. Just looking at the z/OS manuals, it looks like you have the same option in z/OS. Tony Thigpen Bob Bridges wrote on 9/14/21 5:42 PM: I've inherited responsibility for a huge REXX app that uses that technique to pass many values back and forth between external routines. Each module has two routines, one for packing up a list of variables and another for unpacking them at the other end. I find it difficult to understand, but if I'd had to write the thing from scratch maybe I wouldn't have come up with a better way to do it, either. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* The difference between theory and practice is wider in practice than it is in theory. -C J Date */ -Original Message- From: IBM Mainframe Discussion List On Behalf Of Martin Packer Sent: Monday, September 13, 2021 10:16 My main use case for interpret is passing back a string with stem variable assignments from a procedure. Then the caller of the procedure interprets the string - which has semicolons to separate the assignment statements. I don't much like it but it seems the best I can do. -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: REXX - Interpret or Value - Which is better?
I do most of my rexx on VM, but on VM we have a method to directly read and update a callers variables (as long as both are REXX) using the pipe stages VAR and VARLOAD. Just looking at the z/OS manuals, it looks like you have the same option in z/OS. Tony Thigpen Bob Bridges wrote on 9/14/21 5:42 PM: I've inherited responsibility for a huge REXX app that uses that technique to pass many values back and forth between external routines. Each module has two routines, one for packing up a list of variables and another for unpacking them at the other end. I find it difficult to understand, but if I'd had to write the thing from scratch maybe I wouldn't have come up with a better way to do it, either. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* The difference between theory and practice is wider in practice than it is in theory. -C J Date */ -Original Message- From: IBM Mainframe Discussion List On Behalf Of Martin Packer Sent: Monday, September 13, 2021 10:16 My main use case for interpret is passing back a string with stem variable assignments from a procedure. Then the caller of the procedure interprets the string - which has semicolons to separate the assignment statements. I don't much like it but it seems the best I can do. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IPL's POR's frequency
Fun item. Worked at a school board where we had a generator. During a power outage, the generator failed, not because the underground tank was empty, but because the pump that moved the fuel from the underground tank to the header tank was plugged into a non-generator outlet. Tony Thigpen PINION, RICHARD W. wrote on 9/14/21 1:06 PM: General reply, the last time the backup generator ran out of fuel! Don't laugh, it happens. -Original Message- From: IBM Mainframe Discussion List On Behalf Of McCabe, Ron Sent: Tuesday, September 14, 2021 1:03 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IPL's POR's frequency [External Email. Exercise caution when clicking links or opening attachments.] We IPL twice a year ... POR when needed and I cannot remember the last time we needed a POR. Thanks, Ron McCabe Manager of Mainframe/Midrange Systems Mutual of Enumclaw -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mike Schwab Sent: Tuesday, September 14, 2021 7:25 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IPL's POR's frequency CAUTION: This email is from an external address. Please be careful of links and attachments. IPL once a quarter. PORs when IBM requires. On Tue, Sep 14, 2021 at 7:30 AM Joe <020d5fbe36e0-dmarc-requ...@listserv.ua.edu> wrote: Just curious about how often folks here IPL their systems as a scheduled event , once a month, once a quarter, once a year? and same question for POR's. I understand there are times when you HAVE to have unscheduled or hot fix IPL's, I'm just asking in general terms. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Confidentiality Notice: This e- mail and all attachments may contain CONFIDENTIAL information and are meant solely for the intended recipient. It may contain controlled, privileged, or proprietary information that is protected under applicable law and shall not be disclosed to any unauthorized third party. If you are not the intended recipient, you are hereby notified that any unauthorized review, action, disclosure, distribution, or reproduction of any information contained in this e- mail and any attachments is strictly PROHIBITED. If you received this e- mail in error, please reply to the sender immediately stating that this transmission was misdirected, and delete or destroy all electronic and paper copies of this e-mail and attachments without disclosing the contents. This e- mail does not grant or assign rights of ownership in the proprietary subject matter herein, nor shall it be construed as a joint venture, partnership, teaming agreement, or any other formal business relationship. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OSA Physical ethernet ports
P H, z10 was generation before z114. It only supports the old/bigger cards. The large format OSAs came in four physical port layouts: 1 port at top (1 CHPID) 1 port at top and 1 port at bottom (2 CHPIDs) 2 ports at top only (1 CHPID) 2 ports at top and 2 ports at bottom (2 CHPIDs) (I have seen all 4.) Tony Thigpen P H wrote on 9/10/21 11:25 AM: If your z10 BC was upgraded from a z114, then it might have a 2-port OSA-Express 2 1000BASE-T feature and if during the upgrade process additional features were added than it might also have OSA-Express 3 1000BASE-T 2-port or 4-port feature(s). If the z10 BC was purchased as new, then it will be OSA-Express 3 1000BASE-T 2 port or 4 port features. For the 2-port feature, a single CHPID is defined as type OSC or OSE i.e. both ports have to be the same 'type'. For the 4-port feature, each pair of ports has a single CHPID defined i.e. 2 CHPIDs for the 4 ports. The 2 CHPIDs can be the same type or different i.e. both as OSC or OSE or one of each type. For each CHPID, the pair of ports have to be the same 'type'. BTW: There are some Redbooks which you might want to refer to: 1. OSA-Express Implementation Guide 2. OSA-Express Integrated Console Controller Implementation Guide (bit dated now) 3. IBM System z Connectivity Handbook Regards Parwez Hamid From: IBM Mainframe Discussion List on behalf of (K.K.Paradox)T.Kobayashi Sent: 10 September 2021 09:36 To: IBM-MAIN@LISTSERV.UA.EDU Subject: OSA Physical ethernet ports Hello, I planing to configure z/OS's native TCP/IP on z10-BC machine. IOCP DECK is shown at the end of this mail. The OSA-ICC 3270 sessions are currently configured. OSE CHPID is defined, but nothing else is configured. I understand that OSE (Non-QDIO mode) requires UA and port, IP addr, mapping in OAT. Also, OAT and z/OS TCPIP PROFILE (DEVICE and LINK) setting will mapping. But, I don't understand how to assgin the OSA Physical ethernet ports. Qeustions: 1) Is the port set in OAT a OSA Physical port? 2) Can OSA-ICC 3270 sessions and OSE ports share a OSA Physical port? Should these have separate Physical ports? 3) Where is the physical port of the OSA-ICC session set? 4) OSE is assigned to ZOS2 LPAR in the PARTITION statement. But SHARED is also specified by CHPID. Are OSE devices also available in ZOS1 LPARs? RESOURCE PARTITION=((CSS(0),(ZOS1,1),(ZOS2,2))) * CHPID PCHID=190,PATH=(CSS(0),02),TYPE=OSC,SHARED CHPID PCHID=191,PATH=(CSS(0),03),TYPE=OSE,SHARED,PARTITION=((ZOS2)) * CNTLUNIT CUNUMBR=0F00,PATH=((CSS(0),02)),UNIT=OSC CNTLUNIT CUNUMBR=0F10,PATH=((CSS(0),03)),UNIT=OSA * IODEVICE ADDRESS=(0F00,8),CUNUMBR=(0F00),UNIT=3270,MODEL=X, + PARTITION=((CSS(0),ZOS1)) IODEVICE ADDRESS=(0F10,8),CUNUMBR=(0F00),UNIT=3270,MODEL=X, + PARTITION=((CSS(0),ZOS2)) IODEVICE ADDRESS=(0F20,8),CUNUMBR=(0F00),UNIT=3286,MODEL=2, + PARTITION=((CSS(0),ZOS1)) IODEVICE ADDRESS=(0F30,8),CUNUMBR=(0F00),UNIT=3286,MODEL=2, + PARTITION=((CSS(0),ZOS2)) IODEVICE ADDRESS=(0E10,15),UNITADD=00,CUNUMBR=(0F10),UNIT=OSA IODEVICE ADDRESS=(0E1F),UNITADD=FE,CUNUMBR=(0F10),UNIT=OSAD Best regards, Toyokazu Kobayashi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OSA Physical ethernet ports
First, you need to verify that you have a 2 PCHID OSA. There will be either one or two ports at the top and the same number of ports at the bottom of the card. Assuming you have all 4 ports, the top two ports are Port 0 and Port 1 on PCHID 190. The bottom two ports are Port 0 and Port 1 on PCHID 191. You need to pic one PCHID for OSC and one for OSE. Concerning the OSC, you really only have one usable port. While the second port can be set, you can't use the same IP-port value nor does the second port have it's own route setting. And, even if you set it up, it shares the same terminal configurations. (Yes, there are ways to use the second port, but they are limited and mostly not worth the effort.) All the settings for the OSC are configured via the HMC. The only thing the OS knows is the CCUU address for the terminals as they need to be either consoles to z/OS or in a VTAM book. As for the OSE, you will normally need an OAT if the OSA is only used for TCP/IP. But, I have had some 'strange' problems when I did not use an OAT for an TCP/IP, so I always use an OAT. If you are using the OSE for VTAM/SNA, then you must have an OAT. The OSA port (0 or 1) is set in the TCP/IP configuration, not in the IOCP. The OSA cards can be shared across LPARs. They can even have the same CCUU address in each LPAR. I regularly share both the OSC addresses and the OSE addresses. So, in any LPAR, the consoles (OSC) are all the same address (080-087) and the TCP/IP ccuu addresses are the same between TCP/IPs. Tony Thigpen (K.K.Paradox)T.Kobayashi wrote on 9/10/21 4:36 AM: Hello, I planing to configure z/OS's native TCP/IP on z10-BC machine. IOCP DECK is shown at the end of this mail. The OSA-ICC 3270 sessions are currently configured. OSE CHPID is defined, but nothing else is configured. I understand that OSE (Non-QDIO mode) requires UA and port, IP addr, mapping in OAT. Also, OAT and z/OS TCPIP PROFILE (DEVICE and LINK) setting will mapping. But, I don't understand how to assgin the OSA Physical ethernet ports. Qeustions: 1) Is the port set in OAT a OSA Physical port? 2) Can OSA-ICC 3270 sessions and OSE ports share a OSA Physical port? Should these have separate Physical ports? 3) Where is the physical port of the OSA-ICC session set? 4) OSE is assigned to ZOS2 LPAR in the PARTITION statement. But SHARED is also specified by CHPID. Are OSE devices also available in ZOS1 LPARs? RESOURCE PARTITION=((CSS(0),(ZOS1,1),(ZOS2,2))) * CHPID PCHID=190,PATH=(CSS(0),02),TYPE=OSC,SHARED CHPID PCHID=191,PATH=(CSS(0),03),TYPE=OSE,SHARED,PARTITION=((ZOS2)) * CNTLUNIT CUNUMBR=0F00,PATH=((CSS(0),02)),UNIT=OSC CNTLUNIT CUNUMBR=0F10,PATH=((CSS(0),03)),UNIT=OSA * IODEVICE ADDRESS=(0F00,8),CUNUMBR=(0F00),UNIT=3270,MODEL=X, + PARTITION=((CSS(0),ZOS1)) IODEVICE ADDRESS=(0F10,8),CUNUMBR=(0F00),UNIT=3270,MODEL=X, + PARTITION=((CSS(0),ZOS2)) IODEVICE ADDRESS=(0F20,8),CUNUMBR=(0F00),UNIT=3286,MODEL=2, + PARTITION=((CSS(0),ZOS1)) IODEVICE ADDRESS=(0F30,8),CUNUMBR=(0F00),UNIT=3286,MODEL=2, + PARTITION=((CSS(0),ZOS2)) IODEVICE ADDRESS=(0E10,15),UNITADD=00,CUNUMBR=(0F10),UNIT=OSA IODEVICE ADDRESS=(0E1F),UNITADD=FE,CUNUMBR=(0F10),UNIT=OSAD Best regards, Toyokazu Kobayashi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OSA Physical ethernet ports
OK, just re-read and it's a z10, so you can have to PCHPIDs. Sorry. I will respond differently shortly. Tony Thigpen Tony Thigpen wrote on 9/10/21 9:35 AM: First, since the CHPID is either OSC or OSE, and you only have one PCHPID per (current style) OSA, you can't have both OSC and OSE on the same physical OSA card. You will need two OSA cards for what you want to do. (If you happen to have one of the older (Z114 and earlier) and you are using the big OSA cards, then the rules are different. Some of them have 2 PCHPIDs.) Tony Thigpen (K.K.Paradox)T.Kobayashi wrote on 9/10/21 4:36 AM: Hello, I planing to configure z/OS's native TCP/IP on z10-BC machine. IOCP DECK is shown at the end of this mail. The OSA-ICC 3270 sessions are currently configured. OSE CHPID is defined, but nothing else is configured. I understand that OSE (Non-QDIO mode) requires UA and port, IP addr, mapping in OAT. Also, OAT and z/OS TCPIP PROFILE (DEVICE and LINK) setting will mapping. But, I don't understand how to assgin the OSA Physical ethernet ports. Qeustions: 1) Is the port set in OAT a OSA Physical port? 2) Can OSA-ICC 3270 sessions and OSE ports share a OSA Physical port? Should these have separate Physical ports? 3) Where is the physical port of the OSA-ICC session set? 4) OSE is assigned to ZOS2 LPAR in the PARTITION statement. But SHARED is also specified by CHPID. Are OSE devices also available in ZOS1 LPARs? RESOURCE PARTITION=((CSS(0),(ZOS1,1),(ZOS2,2))) * CHPID PCHID=190,PATH=(CSS(0),02),TYPE=OSC,SHARED CHPID PCHID=191,PATH=(CSS(0),03),TYPE=OSE,SHARED,PARTITION=((ZOS2)) * CNTLUNIT CUNUMBR=0F00,PATH=((CSS(0),02)),UNIT=OSC CNTLUNIT CUNUMBR=0F10,PATH=((CSS(0),03)),UNIT=OSA * IODEVICE ADDRESS=(0F00,8),CUNUMBR=(0F00),UNIT=3270,MODEL=X, + PARTITION=((CSS(0),ZOS1)) IODEVICE ADDRESS=(0F10,8),CUNUMBR=(0F00),UNIT=3270,MODEL=X, + PARTITION=((CSS(0),ZOS2)) IODEVICE ADDRESS=(0F20,8),CUNUMBR=(0F00),UNIT=3286,MODEL=2, + PARTITION=((CSS(0),ZOS1)) IODEVICE ADDRESS=(0F30,8),CUNUMBR=(0F00),UNIT=3286,MODEL=2, + PARTITION=((CSS(0),ZOS2)) IODEVICE ADDRESS=(0E10,15),UNITADD=00,CUNUMBR=(0F10),UNIT=OSA IODEVICE ADDRESS=(0E1F),UNITADD=FE,CUNUMBR=(0F10),UNIT=OSAD Best regards, Toyokazu Kobayashi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OSA Physical ethernet ports
First, since the CHPID is either OSC or OSE, and you only have one PCHPID per (current style) OSA, you can't have both OSC and OSE on the same physical OSA card. You will need two OSA cards for what you want to do. (If you happen to have one of the older (Z114 and earlier) and you are using the big OSA cards, then the rules are different. Some of them have 2 PCHPIDs.) Tony Thigpen (K.K.Paradox)T.Kobayashi wrote on 9/10/21 4:36 AM: Hello, I planing to configure z/OS's native TCP/IP on z10-BC machine. IOCP DECK is shown at the end of this mail. The OSA-ICC 3270 sessions are currently configured. OSE CHPID is defined, but nothing else is configured. I understand that OSE (Non-QDIO mode) requires UA and port, IP addr, mapping in OAT. Also, OAT and z/OS TCPIP PROFILE (DEVICE and LINK) setting will mapping. But, I don't understand how to assgin the OSA Physical ethernet ports. Qeustions: 1) Is the port set in OAT a OSA Physical port? 2) Can OSA-ICC 3270 sessions and OSE ports share a OSA Physical port? Should these have separate Physical ports? 3) Where is the physical port of the OSA-ICC session set? 4) OSE is assigned to ZOS2 LPAR in the PARTITION statement. But SHARED is also specified by CHPID. Are OSE devices also available in ZOS1 LPARs? RESOURCE PARTITION=((CSS(0),(ZOS1,1),(ZOS2,2))) * CHPID PCHID=190,PATH=(CSS(0),02),TYPE=OSC,SHARED CHPID PCHID=191,PATH=(CSS(0),03),TYPE=OSE,SHARED,PARTITION=((ZOS2)) * CNTLUNIT CUNUMBR=0F00,PATH=((CSS(0),02)),UNIT=OSC CNTLUNIT CUNUMBR=0F10,PATH=((CSS(0),03)),UNIT=OSA * IODEVICE ADDRESS=(0F00,8),CUNUMBR=(0F00),UNIT=3270,MODEL=X, + PARTITION=((CSS(0),ZOS1)) IODEVICE ADDRESS=(0F10,8),CUNUMBR=(0F00),UNIT=3270,MODEL=X, + PARTITION=((CSS(0),ZOS2)) IODEVICE ADDRESS=(0F20,8),CUNUMBR=(0F00),UNIT=3286,MODEL=2, + PARTITION=((CSS(0),ZOS1)) IODEVICE ADDRESS=(0F30,8),CUNUMBR=(0F00),UNIT=3286,MODEL=2, + PARTITION=((CSS(0),ZOS2)) IODEVICE ADDRESS=(0E10,15),UNITADD=00,CUNUMBR=(0F10),UNIT=OSA IODEVICE ADDRESS=(0E1F),UNITADD=FE,CUNUMBR=(0F10),UNIT=OSAD Best regards, Toyokazu Kobayashi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Programs that work right the first time.
Once only since 1980. And this was back about 1985 when we wrote out our programs on paper sheets and the key-punch group put them on diskette. (Once in the system, we did have a basic editor to fix things.) It was not a 'small' program, but also not a 'large' program. It was in Cobol. Of course, 'size' was based on my then current thought processes. What is 'small' now would have been considered bigger then. It compiled and ran correctly the very first time. I have always wondered if any variable names or other typos were 'corrected' by the person in the key-punch group. Now days, my development methods are much different. More 'code and test base program flow' then 'code and test additions'. And, if the test run takes some time, I actually code more lines while each test is running. I also write mostly 98% assembler where a L vs LA will get me every time. So, I don't expect it to ever happen again. It's kind of like that perfect 25k gusty cross-wind landing, but nobody else was in the plane with you to see it. If nobody else sees it, did it really happen? :-) Tony Thigpen Bob Bridges wrote on 8/21/21 9:30 PM: This part of the thread got me thinking. How often do you write a program that works right the first time, with no compile or execution errors? I'm not talking about two-liners, of course, or even ten-liners; let's say 30 or thereabouts. Please specify the language, too, since it seems to me they vary in error-prone-ness. I've done it occasionally, but by "occasionally" I mean "less than one time in twenty"; maybe much less, I'm not sure, and only once in my life when anyone was watching. That was in PL/C; mostly nowadays I write in REXX and VBA. In fact my REXXes typically start out with at least ten or fifteen lines of boilerplate, and any VBA/Excel program likely relies on a raft of common functions and/or objects that are part of my regular library, so when I say "30 lines", some of those lines don't really count. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* The schools of ancient morality had four cardinal virtues: justice in human relations, prudence in the directions of affairs, fortitude in bearing trouble or sorrow, temperance or self-restraint. But they knew nothing of mercy or forgiveness, which is not natural to the human heart. Forgiveness is an exotic, which Christ brought with Him from Heaven. -F.B.Meyer */ -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tom Brennan Sent: Wednesday, August 18, 2021 13:41 one of my other supervisors/teachers would tell me about her application experience. She said no matter how complex her COBOL programs were, they would not only compile first time but would run perfectly. This of course was due to her rigorous desk-checking which I assume took days. I remember thinking "that's crazy" but I just kept quiet. I'll give her a break because that could have been at the time of card punching where such desk-checking made far more sense. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: even an old mainframer can do it
The problem is that he approached his objective from the wrong direction. It appears that is objective was to 'avoid changing the JCL for different control cards'. We do write some of these type programs for queries that end-users need to submit. Maybe TSO based on CICS based. But, we normally just prompt for the data card parms and then submit a modified JCL member to JES. Sometimes, we programmers need the same sort of process and because we just need to do something all the time and are lasy. Thus TSO panel for submitting compiles. But, we normally just use a front-end to make a minor change to the JCL before it is submitted. This guy, who claims he is a "Seasoned mainframer guy" (and I will ignore the fact that it's either "mainframe guy" or "mainframer" without the "guy") apparently decided that the JCL was 'evil'. That is what I don't understand. He took something that any basic programmer/operator (mostly) understands and replaced it with something that few in the field would understand. It seems very Rube Goldberg to me. And, I agree, it seems 'woke' to me too (as in 'JCL' is now the new evil'). Tony Thigpen kekronbekron wrote on 8/17/21 11:59 PM: Objectively, this has got to be madness. Just look at the JCL that's being shoved into a horrid, horrid Python program. ~200 lines to replace 18 lines of JCL. Oh.. and that's leaving aside the condescending tone about 'the old mainframer'. Whether a person wants to learn something or not (therefore choosing their path) is up to them. They don't need to be harassed/shamed about it. Just because there were some people on mainframe forums consistently harassing everyone with "check with your site's system programmer / RTFM / etc.", it doesn't mean the woke folk need to return the favour by being passive aggressive or insulting senior sysprogs for not wearing neon shorts or whatever. If this is being paraded as simplification, now the mainframe is truly doomed. https://medium.com/theropod/the-journey-from-jcl-to-python-so-easy-even-an-old-mainframer-can-do-it-f088cc49366a - KB -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PC on z/VSE, ...
BSI's IPV6/VSE also uses it (as an option). Tony Thigpen Steve Austin wrote on 7/27/21 9:13 AM: I've used them on z/VSE as does CICS I believe. Somewhat more limited than on z/OS from what I remember. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Seymour J Metz Sent: Tuesday, July 27, 2021 2:06 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: PC on z/VSE, ... Does anybody know whether anything other than MVS uses the program call facility? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- This e-mail message has been scanned and cleared by Google Message Security and the UNICOM Global security systems. This message is for the named person's use only. If you receive this message in error, please delete it and notify the sender. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: looking for some doc about what z/OS displays on a tape drive
Thanks all, I found what I was looking for in an old copy of IBM 3480 Magnetic Tape Subsystem User's Reference GC35-0099-3 under the section that talks about the MSGDISP macro. It actually had a figure that described CSECT IGXMSG01 that validated what I thought I knew. Tony Thigpen Alan Altmark wrote on 7/21/21 7:47 AM: On Tue, 20 Jul 2021 10:03:18 -0400, Tony Thigpen wrote: Is there actually any real IBM doc that describes what may be displayed by z/OS on the little display on a 3480/3490/3590 tape drive? Yes. I'm looking at a copy of the IBM 3490 Hardware Reference, GA32-0127. The Load Display CCW supports (from any OS, not just z/OS): A-Z 0-9 # $ @ , . / ' ( ) * & + - = ¢ % | : _ < > ? ; Any service that z/OS provides that allows an application to interact with the display may be more restrictive. The display consists of two 8-character messages. If, how, and when those messages are displayed is the subject of a control character that the host sends along with the messages. There is at least one VTS-style product on the market that uses the displayed value as the requested volser whenever the message includes the control to index the (virtual) autoloader. This allows systems without DFSMS and 'modern' library controls to still be able to request a tape mount from the emulated library. Alan Altmark IBM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
looking for some doc about what z/OS displays on a tape drive
Is there actually any real IBM doc that describes what may be displayed by z/OS on the little display on a 3480/3490/3590 tape drive? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: report writer alternatives
Chris, There is RPGII on z/OS and z/VSE. There was an RPGIII that was on the S/38. There was RPGIV i.e. RPG400 that was AS/400 centric. As to your question, NO, RPGII has not changed in MANY years. Until about 1998, the last APAR was in the mid-80's. Then, about 1998, there as a single new APAR that talked about dates and simply showed how to use a call statement to call a date windowing subroutine. No object-code changes. For a simple report writer, RPGII was fully developed by the 80's. RPGIII was actually more restrictive in how it handled files due to the nature of the S/38. RPGIV/RPG400 tried to change the language to be free-form. In my opinion, it just made a mess of everything in the name of 'changes for changes sake'. They then shoved the changes down the throats of AS/400 users. For writing complex programs, RPGII is not the way to go. But, for writing simple ad-hoc control break reports, it's really good. Tony Thigpen Chris Hoelscher wrote on 7/6/21 11:08 PM: Back in the 80s - I indeed use RPG III - I am sure (okay I hope) it is more advanced in the past 36 years ... Chris Hoelscher Lead Sys DBA IBM Global Technical Services on assignmemt to Humana Inc. T 502.476.2538 or 502.407.7266 -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tony Thigpen Sent: Tuesday, July 6, 2021 10:41 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [IBM-MAIN] report writer alternatives [External Email: Use caution with links and attachments] Chris, Please don't hit me for this, but RPGII with it's *auto feature can produce multi-level reports with very little code. And, there are still people that know how to write RPGII, although most of them will be in VSE shops were it is still used a lot. And, it's cheap. Tony Thigpen Chris Hoelscher wrote on 7/6/21 10:32 AM: The site I support may soon be in the need for a load report writer We would need an alternative to Culprit Eztrieve Quickjob Earl Without any research - any other report writers come to mind? Chris Hoelscher Lead Sys DBA IBM Global Technical Services on assignmemt to Humana Inc. T 502.476.2538 or 502.407.7266 The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. Humana Inc. and its subsidiaries comply with applicable Federal civil rights laws and do not discriminate on the basis of race, color, national origin, ancestry, age, disability, sex, marital status, gender, sexual orientation, gender identity, or religion. Humana Inc. and its subsidiaries do not exclude people or treat them differently because of race, color, national origin, ancestry, age, disability, sex, marital status, gender, sexual orientation, gender identity, or religion. English: ATTENTION: If you do not speak English, language assistance services, free of charge, are available to you. Call 1‐877‐320‐1235 (TTY: 711). Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición servicios gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235 (TTY: 711). 繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助 服務。請致電 1‐877‐320‐1235 (TTY: 711)。 Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, gen sèvis èd pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235 (TTY: 711). Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z bezpłatnej pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711). 한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로 이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. Humana Inc. and its subsidiaries comply with applicable Federal civil rights laws and do not discriminate on the basis of race, color, national origin, ancestry, age, disability, sex, marital status, gender, sexual orientation, gender identity, or religion. Humana Inc. and its subsidiaries do not exclude people or treat them differently because of race, color, national origin, ancestry, age, disability, sex, marital status, gender, sexual orientation, gender identity, or religion. English: ATTENTION: If you do not speak English, language assistance services, free of charge
Re: report writer alternatives
Chris, Please don't hit me for this, but RPGII with it's *auto feature can produce multi-level reports with very little code. And, there are still people that know how to write RPGII, although most of them will be in VSE shops were it is still used a lot. And, it's cheap. Tony Thigpen Chris Hoelscher wrote on 7/6/21 10:32 AM: The site I support may soon be in the need for a load report writer We would need an alternative to Culprit Eztrieve Quickjob Earl Without any research - any other report writers come to mind? Chris Hoelscher Lead Sys DBA IBM Global Technical Services on assignmemt to Humana Inc. T 502.476.2538 or 502.407.7266 The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. Humana Inc. and its subsidiaries comply with applicable Federal civil rights laws and do not discriminate on the basis of race, color, national origin, ancestry, age, disability, sex, marital status, gender, sexual orientation, gender identity, or religion. Humana Inc. and its subsidiaries do not exclude people or treat them differently because of race, color, national origin, ancestry, age, disability, sex, marital status, gender, sexual orientation, gender identity, or religion. English: ATTENTION: If you do not speak English, language assistance services, free of charge, are available to you. Call 1‐877‐320‐1235 (TTY: 711). Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición servicios gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235 (TTY: 711). 繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助 服務。請致電 1‐877‐320‐1235 (TTY: 711)。 Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, gen sèvis èd pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235 (TTY: 711). Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z bezpłatnej pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711). 한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로 이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] Re: access to 9-track reel tape drive
So does DITTO. I also have my own HLASM tape copy programs that use basic CCWs for tape I-O that I could modify, if needed, to read the readable sections of the tape. The bigger problem is the programs that created the back-ups. For many of the tapes, we don't even know their internal format or what software wrote them. Or, if the software is still on the machine. We think it may still be there, but maybe not. And, the tape manager has changed too so the supporting information that the tape manager may have had may not still be available either. Tony Thigpen PINION, RICHARD W. wrote on 6/8/21 4:26 PM: Doesn't FDR's FATS and FATR have the ability to read tapes, and skip unreadable blocks? Some data is better than no data at all. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tony Thigpen Sent: Tuesday, June 8, 2021 4:21 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] Re: access to 9-track reel tape drive [External Email. Exercise caution when clicking links or opening attachments.] I have customer 3490 tapes from the 90's in my storage vault. (I also have good 3490 drives.) We told the customer that we do not know if the tapes were even readable when we got them 8 years ago. The told us: "We don't care. As long as we can tell the auditors that we have the tapes, we are good to go. If there is ever a need to read the tapes, we will fight the problems reading the data off the tape at that time. If a lawyer wants data, we will then do a 'good faith' attempt to read it, but not until then." Tony Thigpen Radoslaw Skorupka wrote on 6/8/21 4:08 PM: Rule of thumb: you don't need old tapes, you may need old data. In my former life I had 20 years old data, but the tapes were approx. 2-3 years old (max.). And always replicated, always in two locations. For old media (tapes, optical, hdd's, whatever) the earlier you start reading them the better chances you have. -- Radoslaw Skorupka Lodz, Poland W dniu 08.06.2021 o 15:18, Carl Swanson pisze: This was a fun trip down memory lane, I remember the Overland device. And if memory servers me correctly you had to load the tape through the mechanism manually, there was at least the ne I tried in the early 90's no autoloader. Why could this be important is because the most likely error these types of tapes will see is edge damage making the not readable. And every time a human hand touches, they the chances go up. Last Time I spoke with anyone about 3420 tapes was back around 2010 and they had a number of tapes that for any reason "Could Not be Scratched". Their solution was to hand the tapes to the person making that statement and saying they will not be scratched because they are in your possession. I thought it was a great solution to the issue. The likelihood of reading these tapes in my opinion is very low, they have passed their shelf life. Carl Swanson Mobile:215.688.1459 Email: carl.swans...@verizon.net -Original Message- From: IBM Mainframe Discussion List On Behalf Of Paul Gilmartin Sent: Sunday, June 6, 2021 12:21 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] Re: access to 9-track reel tape drive On Sun, 6 Jun 2021 05:54:17 +, Seymour J Metz wrote: Presumably he's saying that nobody in his right mind would simply copy the data on the tape to a byte stream, and that the most obvious way to archive the tape is to convert it to AWSTAPE format. Once it's in AWSTAPE format, then it's simple to read it under Hercules, assuming that the labels and records follow OS/360 conventions. Amen. Joe Monk's and Radoslaw's comments appear well-informed. And with 9-track I believe there's no need to deal with the abomination of even parity. ( knew an old CDC OS that relied on the difference to discern filetypes, even replicating the behavior in DASD files.) It's a pity there's no facility to process AWSTAPE directly with no need for a step to convert to virtual or real 3480. Subsystem? ISV? Or to generate AWSTAPE on Linux, MacOS, or Windows. Does a dump of the first block say "VOL1"? If the OP believes the tapes contain useful data he probably knows which utility can process the restored images. -- gil - - For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN - - For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive a
Re: [External] Re: access to 9-track reel tape drive
I have customer 3490 tapes from the 90's in my storage vault. (I also have good 3490 drives.) We told the customer that we do not know if the tapes were even readable when we got them 8 years ago. The told us: "We don't care. As long as we can tell the auditors that we have the tapes, we are good to go. If there is ever a need to read the tapes, we will fight the problems reading the data off the tape at that time. If a lawyer wants data, we will then do a 'good faith' attempt to read it, but not until then." Tony Thigpen Radoslaw Skorupka wrote on 6/8/21 4:08 PM: Rule of thumb: you don't need old tapes, you may need old data. In my former life I had 20 years old data, but the tapes were approx. 2-3 years old (max.). And always replicated, always in two locations. For old media (tapes, optical, hdd's, whatever) the earlier you start reading them the better chances you have. -- Radoslaw Skorupka Lodz, Poland W dniu 08.06.2021 o 15:18, Carl Swanson pisze: This was a fun trip down memory lane, I remember the Overland device. And if memory servers me correctly you had to load the tape through the mechanism manually, there was at least the ne I tried in the early 90's no autoloader. Why could this be important is because the most likely error these types of tapes will see is edge damage making the not readable. And every time a human hand touches, they the chances go up. Last Time I spoke with anyone about 3420 tapes was back around 2010 and they had a number of tapes that for any reason "Could Not be Scratched". Their solution was to hand the tapes to the person making that statement and saying they will not be scratched because they are in your possession. I thought it was a great solution to the issue. The likelihood of reading these tapes in my opinion is very low, they have passed their shelf life. Carl Swanson Mobile:215.688.1459 Email: carl.swans...@verizon.net -Original Message- From: IBM Mainframe Discussion List On Behalf Of Paul Gilmartin Sent: Sunday, June 6, 2021 12:21 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] Re: access to 9-track reel tape drive On Sun, 6 Jun 2021 05:54:17 +, Seymour J Metz wrote: Presumably he's saying that nobody in his right mind would simply copy the data on the tape to a byte stream, and that the most obvious way to archive the tape is to convert it to AWSTAPE format. Once it's in AWSTAPE format, then it's simple to read it under Hercules, assuming that the labels and records follow OS/360 conventions. Amen. Joe Monk's and Radoslaw's comments appear well-informed. And with 9-track I believe there's no need to deal with the abomination of even parity. ( knew an old CDC OS that relied on the difference to discern filetypes, even replicating the behavior in DASD files.) It's a pity there's no facility to process AWSTAPE directly with no need for a step to convert to virtual or real 3480. Subsystem? ISV? Or to generate AWSTAPE on Linux, MacOS, or Windows. Does a dump of the first block say "VOL1"? If the OP believes the tapes contain useful data he probably knows which utility can process the restored images. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Printing GTF trace?
Thanks. I will try it tomorrow. Tony Thigpen (K.K.Paradox)T.Kobayashi wrote on 4/21/21 10:16 PM: Hello Tony, Here is GTF trace print JCL: a) You need to modify it for your environment (DSN, VOLUME, etc...). b) INPUT DD of the IKJEFT01 step specifies the GTF trace file. This sample trace file is tape file. c) The report is output to the JES spool,if you need to report to disk. Change the SYSTSPRT DD card to VBA datasets. d) Specify your required trace with the GTF xxx command on SYSTSIN DD card. This sample is CCW trace. //GTFPRINT JOB CLASS=A //ST1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER(NAME(KOBA.IPCS.DIR) VOLUME(WORK01)) - DATA(NAME(KOBA.IPCS.DIR.DATA) CYL(1 1) KEYS(128 0) - CISZ(X'1000') ) - INDEX(NAME(KOBA.IPCS.DIR.INDEX) TRK(1 1) ) /* //IPCS EXEC PGM=IKJEFT01,DYNAMNBR=20 //IPCSDDIR DD DSN=KOBA.IPCS.DIR,DISP=SHR //***IPCSPARM DD DSN= //INPUT DD DSN=SYS1.TRACE,DISP=SHR,VOL=SER=GTRACE,UNIT=/4000, // LABEL=(1,SL,EXPDT=98000) //SYSPROC DD DSN=SYS1.SBLSCLI0,DISP=SHR //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * IPCSDDIR 'KOBA.IPCS.DIR' IPCS NOPARM SETDEF DDNAME(INPUT) NOCONFIRM SETDEF LIST GTF CCW END /* //STLAST EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE (KOBA.IPCS.DIR) /* I hope this help. Best regards, Toyokazu Kobayashi - Original Message - From: "Tony Thigpen" Newsgroups: bit.listserv.ibm-main To: Sent: Thursday, April 22, 2021 4:15 AM Subject: Printing GTF trace? All, I have generated a GTF trace for a vendor, but how do I generate a print report of the formatted entries so I can send them to a vendor? I can browse the formatted entries in IPCS, but I am new to IPCS and don't know how to tell it to print the entire report. Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Printing GTF trace?
Yes. Print to file. But, I just sent them the trace file that I downloaded from z/OS. Tony Thigpen Gord Tomlin wrote on 4/21/21 4:44 PM: On 2021-04-21 15:15 PM, Tony Thigpen wrote: All, I have generated a GTF trace for a vendor, but how do I generate a print report of the formatted entries so I can send them to a vendor? I can browse the formatted entries in IPCS, but I am new to IPCS and don't know how to tell it to print the entire report. Did they specifically ask for it in printed form? We normally ask customers to terse the GTF trace and send us the tersed file. Then, we can use IPCS on it. -- Regards, Gord Tomlin Action Software International (a division of Mazda Computer Corporation) Tel: (905) 470-7113, Fax: (905) 470-6507 Support: https://actionsoftware.com/support/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Printing GTF trace?
All, I have generated a GTF trace for a vendor, but how do I generate a print report of the formatted entries so I can send them to a vendor? I can browse the formatted entries in IPCS, but I am new to IPCS and don't know how to tell it to print the entire report. Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Meta languages [was: RE: Assembler Language Programming for IBM System z Servers]
I think they have a letter from the estate for their use, but even that letter has got to be really old. Last time I mentioned XBOL, someone mentioned they were still running it on z/OS. (My client is z/VSE.) It's really a crappy language. All the variables are a combination of a letter and a sequential number. But, it generates both batch and CICS code without having to know much about CICS. Tony Thigpen Farley, Peter x23353 wrote on 4/5/21 2:00 PM: Interesting. I would presume your client received the source due to an escrow clause in the original contract. Any chance the original XBOL developer's estate would allow the product to be open-sourced for community development? Or is it abandonware at this point? Peter -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tony Thigpen Sent: Monday, April 5, 2021 1:03 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Meta languages [was: RE: Assembler Language Programming for IBM System z Servers] I am helping support a customer that has XBOL which generates COBOL. The original developer has passed away, but my client has the source. We have had to make changes for 'gone' COBOL verbs and such. I don't think CA's MetaCobol is currently marketed. I talked to them several years ago about it. I personally wrote and use a COBOL "pre-compiler" that handles a few things for me: 1) It let's you specify Working Storage, Linkage Section and Procedural Section in any COBOL copybook. It re-orders the generated code so that the parts are plugged into the output source in the right order. This makes it easy to put things like date routines within the program when such routines require working storage fields to do their calculations. 2) It calls 'calls' the CICS pre-processor before generating the final code. z/VSE does not have such an option currently. I do have some more I want to do with it, but have not had the time. I would like it to be more "macro like" for such things as BMS screens. Tony Thigpen -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Meta languages [was: RE: Assembler Language Programming for IBM System z Servers]
I am helping support a customer that has XBOL which generates COBOL. The original developer has passed away, but my client has the source. We have had to make changes for 'gone' COBOL verbs and such. I don't think CA's MetaCobol is currently marketed. I talked to them several years ago about it. I personally wrote and use a COBOL "pre-compiler" that handles a few things for me: 1) It let's you specify Working Storage, Linkage Section and Procedural Section in any COBOL copybook. It re-orders the generated code so that the parts are plugged into the output source in the right order. This makes it easy to put things like date routines within the program when such routines require working storage fields to do their calculations. 2) It calls 'calls' the CICS pre-processor before generating the final code. z/VSE does not have such an option currently. I do have some more I want to do with it, but have not had the time. I would like it to be more "macro like" for such things as BMS screens. Tony Thigpen Farley, Peter x23353 wrote on 4/5/21 12:30 PM: True. There is m4 in *ix systems and going back a long time there was ML/1 (I think there was an academic book published on that one, I think I have a copy somewhere around here). Undoubtedly others I do not know of or remember. Probably also Wirth's "literate programming" suite, TeX I think it is called. But IMHO none easy to learn or use. Peter -Original Message- From: IBM Mainframe Discussion List On Behalf Of Charles Mills Sent: Monday, April 5, 2021 12:20 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Assembler Language Programming for IBM System z Servers Aren't there "generic" meta languages: meta languages that may be used to generate any sort of text, including source code for most any language? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Farley, Peter x23353 Sent: Monday, April 5, 2021 8:47 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Assembler Language Programming for IBM System z Servers True for the language itself, but at least one ISV addressed that lack -- the MetaCOBOL product. I have forgotten who the original vendor ISV was - maybe ADR? -- but I think it now resides somewhere in the CA / Broadcom universe. IMHO PL/1 (and no doubt the PL/X internal IBM language from the little we see of it in SYS1.MACLIB) has the most powerful language-defined preprocessor. One could wish for a similar language-defined capability for COBOL, not that it will ever happen. Peter -Original Message- From: IBM Mainframe Discussion List On Behalf Of Charles Mills Sent: Monday, April 5, 2021 11:15 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Assembler Language Programming for IBM System z Servers The literal answer to your question is COPY. Assembler COPY is completely the analog of COBOL COPY. Assembler COPY is less powerful than COBOL COPY: there is no COPY REPLACING in assembler. OTOH, Assembler has macros, which are like COPY but much, much more powerful. I am going to go out on a limb -- someone will surely correct me -- and say that COBOL is unique or at least atypical among modern "powerful" programming languages in that it has no real preprocessor language. There is no "meta" programming (to speak of) in COBOL. No real way to "dynamically construct" a program at compile time. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Warren Brown Sent: Monday, April 5, 2021 7:22 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Assembler Language Programming for IBM System z Servers Hello, I've been away for a while. What is the assembly language equivalent for a COBOL copybook? Thanks, Warren On Monday, March 29, 2021, 11:08:43 AM EDT, Wendell Lovewell <01e9c0ee0673-dmarc-requ...@listserv.ua.edu> wrote: Hello all. Does anyone know if Dr Ehrman's excellent assembler book could be updated for the new instructions released since 2015? Or, at least refreshed with current standards for PDF-page generation standards? What I mean is, it would really be helpful if: a) The pages in the Table of Contents were hyperlinks to the actual pages referenced, and b) The page numbers in the TOC matched the page numbers in the PDF file. For example, "MVCLE" is listed in the TOC on page 411. But if you alt-g to go to the 411th page in the PDF, you end up on the page displaying "373" at the bottom. More recent manuals "document" page numbers match the "pdf" page numbers. But as best I can tell Dr. Ehrman's book hasn't been updated to reflect this. Is there any chance someone from IBM is reading this & can do something about this? Please? (I know this might make more sense to post on the Assembler list, but I'm gues
Re: jes2 spool
If you want cheap, as in free, but still fully supported, you should take a look at IBM's IP Network Print Facility as you already have it. It's part of Communications Server. (Manual is SC27-3658-30.) Tony Thigpen Shelia Chalk wrote on 3/31/21 8:22 AM: I am trying to find software that will take print from the jes2 spool, compress it and send it to a sever. Do anyone know of a product that will do this? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CMS equivalent of ISPF SRCHFOR?
There is not a 'standard' search tool in VM. There are numinous versions that are available for the asking. Just post a request on the VM list. Almost all of them are just a rexx wrapper for the xedit locate function. I have attached one of my may versions, the one I use mostly. Tony Thigpen Binyamin Dissen wrote on 3/20/21 4:09 PM: Is there a CMS command which will search a minidisk (or group of minidisks) for files containing a specific string? Don't see anything obvious in the CMS manual. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN /* SEARCHFL - search for a string in all members of a library */ /* to use, enter 'SEARCHFL' followed by a file name, file type, and file mode (like a filelist command) and after that enter a search string i.e. 'SEARCHFL D6D* COBOL A WS-SEARCH'. A filelist screen will then be presented including only those members that contain the string 'WS-SEARCH'. */ trace off parse arg fn ft fm srcharg if srcharg = '' then exit 255 outfile = 'SEARCHFL FILELIST A' address command 'ERASE' outfile saveq = queued() fmx = space(translate(fm,' ',',')) do ii = 1 to words(fmx) fm = word(fmx,ii) 'LISTFILE' fn ft fm '(LIFO' if rc \= 0 then iterate ii do while queued() > saveq parse pull xn xt xm file = xn xt left(strip(xm,'B'),1) ffm = left(strip(xm,'B'),1) if fm \= '*' | (ffm \= 'S' & ffm \= 'Y') then do 'EXECIO * DISKR' file '1 (SKIP FINIS LOCATE ¦'srcharg'¦' if rc = 0 then 'EXECIO 1 DISKW' outfile '0 F 80 (STRING' file end end end 'FINIS' outfile address command 'STATE' outfile if rc = 0 then do 'FILELIST' outfile '(FILELIST' address command 'ERASE' outfile end /* else say 'No Files Match' fn ft fm */ exit 0 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CBT Tape Updates
Skip the "real"/AWS tape. Maybe just cut one only on request. I always download the individual file zip member and use "xmit manager" to extract files to my pc for review. I either upload individual files or upload the xmit file depending on my needs. Just a web page with a list of downloadable zip files. The full details of each file can still remain in File001. Maybe each file can also have a separate AWS file too. Tony Thigpen Sam Golob wrote on 3/17/21 2:06 PM: Dear Folks, I have a dilemma. The dilemma is: How often should I make new CBT Tape Versions? We make about 2 or 3 CBT Tape Version updates per year, and we have been doing that for the past 16 or 17 years now. This is in contrast to when Arnie was doing the CBT Tape. Arnie (Casinghino) had to put all his updates on a REAL TAPE REEL, and therefore, in order to keep the people relatively current, he had to make about 15 version updates per year. The problem is as follows: Now that we have the website, www.cbttape.org, all the updated files that are "between the tape releases" can go into a separate section on the website, called the "Updates" page. That allows us to have some leeway. We ARE NOT FORCED TO UPDATE the "Tape Version" to keep people current, but on the other hand, many of the people are used to the old system, and they don't look at the Updates page at all. Therefore, they are losing out on having "the latest and the greatest", and sometimes they introduce unnecessary errors, by not downloading the latest software. So. First. I have to emphasize that you should ALWAYS look at the Updates Page first. But since a sizable number of people still don't do so, I am wondering that maybe I should make more updates per year. It takes about 3 days' worth of solid work, to make a CBT Tape Version update. My question is: "Can you live with the current system, use the Updates Page all the time, and not always make the mistake of going to the "CBT" page only? Or should I make 4, 5, or 6 or more smaller updates per year?" "To make version updates, or to not make (so many) version updates? THAT is the question." (from Shakespeare?) Please let me know (on list or off list) what you think. All the best of everything to all of you. Sincerely, Sam -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OC1 regs in log oddity
That makes sense. I guess that R15 still contained some 'garbage' left by the OS when it initially loaded and branched to the program. Tony Thigpen Binyamin Dissen wrote on 3/10/21 12:50 AM: If all top-halfs are zero, it skips them. On Wed, 10 Mar 2021 00:28:07 -0500 Tony Thigpen wrote: :>I just noticed something I had not noticed before. :> :>I have a little test program that I am doing all sorts of things to see :>how things work. So, of course, I am crashing it a lot. Sometimes even :>on purpose using DC x'' instructions. :> :>What I have noticed is that the log shows the registers differently :>sometimes. For example: :> :>SYSTEM COMPLETION CODE=0C1 REASON CODE=0001 :> TIME=00.40.10 SEQ=00137 CPU= ASID=0034 :> PSW AT TIME OF ERROR 078D 8CD8 ILC 2 INTC 01 :>ACTIVE LOAD MODULE ADDRESS=7000 OFFSET=1CD8 :>NAME=COPYTPX :>DATA AT PSW 8CD2 - 4710B03A 4D10 B0308F00 :>GR 0: _9018 1: _901F :> 2: _7604 3: _AFFC :> 4: _9018 5: _901F :> 6: _0004 7: _FD00 :> 8: _9010 9: _80008036 :> A: _AFE0 B: _8CB0 :> C: _40008010 D: _8E98 :> E: _92A8 F: 7FFAEA00_8CB0 :>vs. the following: :> :>SYSTEM COMPLETION CODE=0C1 REASON CODE=0001 :> TIME=00.39.24 SEQ=00136 CPU= ASID=0034 :> PSW AT TIME OF ERROR 078D 8CE4 ILC 2 INTC 01 :>ACTIVE LOAD MODULE ADDRESS=7000 OFFSET=1CE4 :>NAME=COPYTPX :>DATA AT PSW 8CDE - 8DE00A13 47F0 B0A29680 :>GR 0: 0950 1: 009C36B0 :> 2: 7604 3: AFFC :> 4: 9018 5: 901F :> 6: 0004 7: FD00 :> 8: 9010 9: 80008036 :> A: AFE0 B: 8CB0 :> C: 40008010 D: 8E98 :> E: 92A8 F: :> :>The only difference is that 64 bit regs are shown if I have not done an :>OPEN macro while 31 bit registers are shown if I have issued an OPEN macro. :>Test code snipit: :> :>*DC X'' :> OPEN (SNAPDCB,(OUTPUT)) :> DC X'' :> :>The program in question is assembled AMODE=24,RMODE=24. :> :>OK, whats up with this? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
OC1 regs in log oddity
I just noticed something I had not noticed before. I have a little test program that I am doing all sorts of things to see how things work. So, of course, I am crashing it a lot. Sometimes even on purpose using DC x'' instructions. What I have noticed is that the log shows the registers differently sometimes. For example: SYSTEM COMPLETION CODE=0C1 REASON CODE=0001 TIME=00.40.10 SEQ=00137 CPU= ASID=0034 PSW AT TIME OF ERROR 078D 8CD8 ILC 2 INTC 01 ACTIVE LOAD MODULE ADDRESS=7000 OFFSET=1CD8 NAME=COPYTPX DATA AT PSW 8CD2 - 4710B03A 4D10 B0308F00 GR 0: _9018 1: _901F 2: _7604 3: _AFFC 4: _9018 5: _901F 6: _0004 7: _FD00 8: _9010 9: _80008036 A: _AFE0 B: _8CB0 C: _40008010 D: _8E98 E: _92A8 F: 7FFAEA00_8CB0 vs. the following: SYSTEM COMPLETION CODE=0C1 REASON CODE=0001 TIME=00.39.24 SEQ=00136 CPU= ASID=0034 PSW AT TIME OF ERROR 078D 8CE4 ILC 2 INTC 01 ACTIVE LOAD MODULE ADDRESS=7000 OFFSET=1CE4 NAME=COPYTPX DATA AT PSW 8CDE - 8DE00A13 47F0 B0A29680 GR 0: 0950 1: 009C36B0 2: 7604 3: AFFC 4: 9018 5: 901F 6: 0004 7: FD00 8: 9010 9: 80008036 A: AFE0 B: 8CB0 C: 40008010 D: 8E98 E: 92A8 F: The only difference is that 64 bit regs are shown if I have not done an OPEN macro while 31 bit registers are shown if I have issued an OPEN macro. Test code snipit: *DC X'' OPEN (SNAPDCB,(OUTPUT)) DC X'' The program in question is assembled AMODE=24,RMODE=24. OK, whats up with this? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Tape solutions for mainframe
We use Visara's VTA. We migrated from Secureagent and was happy to do so. I am using it with z/OS, z/VM, z/VSE and even an old OS/390 systems. Tony Thigpen Radoslaw Skorupka wrote on 3/4/21 12:04 PM: Gentlemen, I'm trying update my knowledge about existing tape solutions for mainframe on the market (let's say z/OS, *not* Linux): 1. IBM TS7700 Real tapes only as VTS backend 2. STK/Sun/Oracle VSM what about T1? Is it still offered? (I mean new sale, not an upgrade or service) 3. EMC DLm (former BusTech) 4. Interkom Gmbh (I think it is based on Luminex solution) 5. Secureagent 6. Luminex (???) 7. Others? Fujitsu? -- Radoslaw Skorupka (looking for new job) Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] getting a report from JES2 to my pc without TCP/IP or NJE.
thanks. I got it down. Tony Thigpen Pommier, Rex wrote on 3/2/21 4:08 PM: SDSF to get it to a flat file then IND$FILE to transfer it? AFAIK, IND$FILE can't handle spool data directly. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tony Thigpen Sent: Tuesday, March 2, 2021 3:03 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [External] getting a report from JES2 to my pc without TCP/IP or NJE. I have a mini-z/OS 2.1 system that currently has no TCP/IP or other connection that I could use to transfer reports. I just have TN3270 access via an ICC. I need to get a report out of JES2. Is there a way using an IND$FILE type transfer to get the report down to the PC? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
getting a report from JES2 to my pc without TCP/IP or NJE.
I have a mini-z/OS 2.1 system that currently has no TCP/IP or other connection that I could use to transfer reports. I just have TN3270 access via an ICC. I need to get a report out of JES2. Is there a way using an IND$FILE type transfer to get the report down to the PC? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RES: OSA Express 7S 1000 base T as console
Gilson, You need to look at GROUP to isolate LPARs, not ip ranges. For example, I have one Z with 10 LPARS. Every LPAR uses CUU addresses in the range 080-09F. Every LPAR uses the same IP address for the consoles. Every LPAR has either one or two unique GROUPS. For example: GROUP NAMES: LPAR1CON (LPAR's primary console) LPAR1 (normal VTAM terminal) LPAR2CON (LPAR's primary console) LPAR2 (normal VTAM terminal) LPAR3CON (LPAR's primary console) LPAR3 (normal VTAM terminal) When you connect using a TN3270 terminal emulator, set the LUNAME to be the same as the GROUP name. As to your original question: You can have two IP addresses, but if they are on different sub-nets, only the one that is on the same subnet as the GATEWAY can be accessed from other sub-nets. So, if you had: Port 1 IP = 192.168.1.10 Port 2 IP = 192.168.2.10 Gateway = 192.168.1.1 Then, you can only access port 2 if your pc was on 192.168.2.x/24. No other sub-nets will be able to access it. But, any pc trying to reach 192.168.1.10 will be able to use the port even if on another sub-net. (Assuming there is a valid route available.) Tony Thigpen Gilson Cesar de Oliveira wrote on 2/2/21 5:58 PM: Dear Curtis: My concern is related to isolate consoles for different lpars. All the console clients that will connect to 192.168.10.100 should not connect to 10.152.200.100 and vice-versa. Are you saying that I can define the ports in different subnets but the default gateway should be the same ?? I have the configuration in HCD and there is a panel where I can configure the ports 0 and 1. Am I wrong at this point ?? Regards, Gilson -Mensagem original- De: IBM Mainframe Discussion List Em nome de Pew, Curtis G Enviada em: terça-feira, 2 de fevereiro de 2021 17:06 Para: IBM-MAIN@LISTSERV.UA.EDU Assunto: Re: OSA Express 7S 1000 base T as console On Feb 2, 2021, at 12:32 PM, Gilson Cesar de Oliveira wrote: For instance I have an OSA where in port 0 I will define it for network 192.168.10.100/16 And for port 1 I will define it for network 10.152.200.100/16. I've heard something that we can use it but in the same network. You can do that, but only one of the ports will be accessible from other subnets. The OSA-ICC definition only supports a single gateway. So, for example, if you define the gateway with an address in the 192.168.10.100/16 subnet, any client that can route through that gateway, as well as other hosts in that subnet, will be able to access the console through port 0, but only hosts with addresses in the 10.152.200.100/16 subnet will be able to access the console through port 1. I hope my explanation makes sense. -- Pew, Curtis G curtis@austin.utexas.edu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL LIB
No, he does not keep talking about VSE. He keeps saying that his experience is with VSE and he it trying to understand z/OS because of a job change. He is admitting that while he is a very knowledgeable person with operating systems, he is on a new platform and needs guidance or simply a "point me in the right direction' reply. Tony Thigpen Joe Monk wrote on 12/18/20 10:43 AM: Well he keeps talking about VSE. Joe On Fri, Dec 18, 2020 at 9:16 AM Seymour J Metz wrote: He's asking about a z/OS environment, so there is no CIL or MSHP, just as there is no DCSS or VMSES/E (VMsespool?). He didn't give a context for his RC 20 in ISPF, but I suspect that he's trying to use a panel for a product that is not installed. We never did hear whether they are licensed for a COBOL compiler. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Joe Monk [joemon...@gmail.com] Sent: Friday, December 18, 2020 5:38 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL LIB VSE - MSHP = MISHAP :) The cobol compiler should be in the core image library. If you're on z/vse it will be part of LE (language environment) See page 195 ... https://www.redbooks.ibm.com/redbooks/pdfs/sg247436.pdf Joe On Thu, Dec 17, 2020 at 7:39 PM CarlosM Martinez wrote: I did use the ISPF panels in TSO it keeps terminating with rc code 20. PS I knew someone was going to come up with the "SLEZTRIVE thing" Anyway in VSE we have MSHP I guess I will do a SMP/E listing and see if and where it lives. Thank you all, Carlos SUNY DOWNSTATE MED CENTER From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Seymour J Metz Sent: Thursday, December 17, 2020 8:14 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL LIB Assuming that you are licensed for the relevant COBOL compiler, it's not difficult to do the compiles with ISPF panels, either in foreground or by submitting batch jobs. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of CarlosM Martinez [carl...@solracz.com] Sent: Thursday, December 17, 2020 7:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL LIB YES, we are a CICS shop and I have been here for 2 yrs. And have never seen a cobol compile. Just EASYTRIEV. We have a new vendor that wants to compile Cobol . I have set up REXX full screen mods to do this in VSE via CMS. But here all is in TSO. Thank you, Carlos Martinez SUNY Downstate Med. Center -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Beaver Sent: Thursday, December 17, 2020 6:16 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL LIB Carlos Are you a CICS shop? Sent from my iPhone On Dec 17, 2020, at 16:40, Farley, Peter x23353 < 031df298a9da-dmarc-requ...@listserv.ua.edu> wrote: Carlos, AFAIK, Easytrieve scripts generate actual object code, not COBOL code, for at least the versions of which I am aware (versions 4.x, 5.x and 6.x in my experience all generate object code). HTH Peter -Original Message- From: IBM Mainframe Discussion List On Behalf Of CarlosM Martinez Sent: Thursday, December 17, 2020 5:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL LIB EXTERNAL EMAIL Well I am a newbie in Z/OS my expertise is in VSE. But... everything here is hold on to your hat... EASYTRIEVE. I have not look at a complete Easytrieve compile but doesn't it produce cobol code? We get our CICS online System compiled and shipped from a vendor and just load it to a loadlib. I looked on 3.4 of TSO for IGY and found NONE. Thank you all. Carlos Martinez SUNY Downstate. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Beaver Sent: Thursday, December 17, 2020 5:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL LIB Do you even have any compiler procs? Sent from my iPhone On Dec 17, 2020, at 16:02, Jousma, David < 01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote: COBOL compiler doesn't come with z/os. It is separately purchased and licensed, so since you are asking, you may not have it. From: IBM Mainframe Discussion List on behalf of CarlosM Martinez Sent: Thursday, December 17, 2020 4:12:28 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: COBOL LIB **CAUTION EXTERNAL EMAIL** **DO NOT open attachments or click on links from unknown senders or unexpected emails** Hello all, Does anyone know what library the COBOL compiler is in Z/OS 1.0 ? SYS1.??? Thank you Carlos Martinez SUNY Downstate Med. Center -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@lists
Re: Edit the OSA/ICC definitions using the HMC
Dana, Are you using the HMC 'remotely' or are you directly on the HMC keyboard/screen? Tony Thigpen Dana Mitchell wrote on 12/4/20 1:32 PM: I just tried and this works ok on z14 zr1 HMC. Maybe the HMC code has been corrected at some point. Dana On Fri, 4 Dec 2020 17:51:27 +, Gord Neill wrote: Hi, I'm trying to edit the the OSA-ICC configuration on the HMC for a zBC12, and I can get to the panel for Import / Export / Edit / Validate, but when I select Edit Source file, the same panel expands a little bit, but there is no other panel that opens up to show the source file. When select Cancel, essential nothing happens - I select Cancel many, many, many times, and eventually I get back to the panel that allows for Manual Configuration Options. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Edit the OSA/ICC definitions using the HMC
We have never been able to use the edit function unless we were directly on the HMC. Using it remotely via the web produces the same results you are seeing. I get around it by ftping the config to a small mini-ftp box then accessing the FTP box from my pc. I have to move the config back and forth to the HMC, but I get my job done. I also have to ftp the config back down so I can see the errors when I do something wrong. Tony Thigpen Gord Neill wrote on 12/4/20 12:51 PM: Hi, I'm trying to edit the the OSA-ICC configuration on the HMC for a zBC12, and I can get to the panel for Import / Export / Edit / Validate, but when I select Edit Source file, the same panel expands a little bit, but there is no other panel that opens up to show the source file. When select Cancel, essential nothing happens - I select Cancel many, many, many times, and eventually I get back to the panel that allows for Manual Configuration Options. In the HMC guide it says that SSLv3 and RC4 must be enabled, and they are. I've allowed Pop-Ups from Firefox (and Chrome and IE, still didn't work), enabled as much as I could see in the current version of Java, still no change. I'm using Remote Access to the HMC if that has any bearing on things. These are the steps I was following: 1. Log on to the HMC, select the CPC, and open the OSA Advanced Facility. 2. Select the OSC CHPID to export the OSA-ICC configuration file. 3. Select Card specific advanced facilities. 4. Select Manual configuration options and click OK 5. The Manual Configuration Options window opens, and I select Edit Source File I asked one of my customers to try to do the Edit Source File on their zBC12, same results - they were not able to edit the configuration, as no edit window appears. They were also working with a Remote connection to the HMC. Any suggestions muchly appreciated! -- Gord Neill | Senior I/T Consultant | GlassHouse Systems Tel: +1 (416) 229-2950 x306 | Mobile: +1 (416) 347-8454 [https://secureimages.mcafee.com/common/affiliateImages/mfe/logo.png]<https://home.mcafee.com/utm_medium=email_source=link_campaign=sig-email_content=emailclient?utm_medium=email_source=link_campaign=sig-email_content=emailclient> Scanned by McAfee<https://home.mcafee.com/utm_medium=email_source=link_campaign=sig-email_content=emailclient?utm_medium=email_source=link_campaign=sig-email_content=emailclient> and confirmed virus-free. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SADUMP IPL tape
This is a curiosity question. Is the SADUMP IPL tape the same when created by z/OS, z/VM or z/VSE? Same question for a SADUMP DASD volume? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
VSAM-RLS and DFSMStvs basic questions
All, I have a z/VSE client that believes it is time to move to z/OS. But, they have one big concern. They have a lot of ShareOption=4 VSAM files. For those that don't know it, ShareOption=4 files on z/VSE "work out of the box" without any need for the application program to perform any enqueue or dequeue. z/VSE automatically performs those functions, unlike z/OS where the application has to handle the enqueue process. In their case, they use shareoption=4 so that they can update VSAM files from batch Cobol programs while at the same time CICS Cobol programs are also updating the files. They don't want to have to change their programs. From my initial research, it appears that this same function can be reproduced on z/OS using DFHSMStvs. (And, it looks like VSAM-RLS is also required to support DFHSMStvs.) Are we going down the right path? Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN