Git for zOS
Hello Does anyone have experience in using git for zOS(rocket open-source) to manage parmlib or proclib ? I would like to know your experience and some guidance on this. Jake -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Configuring a CP online [EXTERNAL]
I may be incorrect, but isn't the image profile to say this image is allowed to have these many CPs? Or is it also supposed to bring it online ... If not, adding it to COMMND00 should be enough - KB ‐‐‐ Original Message ‐‐‐ On Thursday, July 9, 2020 12:32 AM, Mark Jacobs <0224d287a4b1-dmarc-requ...@listserv.ua.edu> wrote: > Yes, the Image profile needs to be updated for number of CPs to be brought > online during IPL. > > Mark Jacobs > > Sent from ProtonMail, Swiss-based encrypted email. > > GPG Public Key - > https://api.protonmail.ch/pks/lookup?op=get&search=markjac...@protonmail.com > > ‐‐‐ Original Message ‐‐‐ > On Wednesday, July 8, 2020 2:46 PM, Feller, Paul > 02fc94e14c43-dmarc-requ...@listserv.ua.edu wrote: > > > If this CP is to be online from now on then update the lpar hardware > > profile to insure that it will be there after any deactivate/activate of > > the lpar. In the back of my mind I'm thinking during the IPL process the > > system looks at the profile to see what number of CPs should be online. I > > could be wrong, but I keep thinking I've run into the same situation and > > updating the profile fixed the issue. > > Thanks.. > > Paul Feller > > GTS Mainframe Technical Support > > -Original Message- > > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf Of > > Jesse 1 Robinson > > Sent: Wednesday, July 08, 2020 1:33 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Configuring a CP online [EXTERNAL] > > We added a logical CP a while back via CF online. After the next IPL, it > > was offline until we reissued the CF command. What do we have to do to make > > it 'permanent'? > > . > > . > > J.O.Skip Robinson > > Southern California Edison Company > > Electric Dragon Team Paddler > > SHARE MVS Program Co-Manager > > 323-715-0595 Mobile > > 626-543-6132 Office <= NEW > > robinsj2@sce.commailto:robin...@sce.com > > -- > > For IBM-MAIN subscribe / signoff / archive access instructions, send email > > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > Please note: This message originated outside your organization. Please use > > caution when opening links or attachments. > > > > 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: Git for zOS
On 9/07/2020 5:52 pm, Jake Anderson wrote: Does anyone have experience in using git for zOS(rocket open-source) to manage parmlib or proclib ? I have been doing some experimentation with this to track changes. At the moment I have a script to copy all members from PARMLIB/PROCLIB and various other configuration datasets and files into a git working copy. I can commit the changes with a note about what changed etc. then push to a central repository where I can use other tools to search, look back at changes etc. It might be useful to e.g. automatically create a tag after every IPL, so you can see exactly what changed between IPLs. It seems very useful. One word of warning: be very careful with current releases of ZIGI. There are processes where it deletes and reallocates datasets, which could be embarrassing if they are important e.g. SYS1.PROCLIB. I have suggested that it should avoid doing that. I did some experimentation with it, but manual processes are safer at the moment. If ZIGI was enhanced to handle datasets a bit more safely, I can see workflows where a systems programmer could check out their own copy of PARMLIB, make changes, push them to the central repository and have them merged with other peoples changes into the real SYS1.PARMLIB. You could then have detailed line by line tracking of changes with descriptions and links back to change records, see exactly which members had modifications as part of the same change etc. It would be very nice. -- Andrew Rowley Black Hill Software -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SuperWylbur Users
Hi Paul, Translating the Zohar into Sanskrit is not as strange as it sounds. Regards, David On 2020-07-08 23:58, Paul Gilmartin wrote: On Wed, 8 Jul 2020 17:28:17 -0700, Charles Mills wrote: Regarding 2: *if* it was a "round trip" translate table and *if* one could get a copy of the table then the IEBCOPY data could be reconstructed programmatically. Even if not, I suspect that if one defined the problem not as "do a 100% job of recovering *any* IEBCOPY unload that has been translated to ASCII" but rather as "do a 95% job of recovering FB/80 source code" that one might have a manageable task. Not trying to "undo" the translate but just looping through the unload data and pulling out the actual source records. One of the worst possibilities is that they used the "dd" utility: https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fpubs.opengroup.org%2Fonlinepubs%2F9699919799%2Futilities%2Fdd.html%23tag_20_31_18&data=02%7C01%7C%7C6ac9a5ba28e04769d61f08d823bc51ad%7C84df9e7fe9f640afb435%7C1%7C0%7C637298639011683886&sdata=STK3M%2B4F2X6FlAfVm2cjN5WMgyR7kyYH1bWoLsTbNeQ%3D&reserved=0 ... which converts between no two identifiable code pages. Why is a utility targeted for IBM mainframes (other than Linux for z) translated into "ASCII"? That makes about as much sense as translating the Zohar into Sanskrit. It appears that the "ASCII" translation was never validated, and that for a long interval there was no interest in having or maintaining the source. -Original Message- From: Seymour J Metz Sent: Wednesday, July 8, 2020 4:55 PM 1. I would be willing to bet that if Gerhard gave up on it then it was well and truly hosed. 2. The web site mentions IEBCOPY unload. If they translated that to ASCII then you're in for interesting times. -- 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: ISPF 3.4 DSLIST questions
Hi Skip, My program does it in one call. Regards, David On 2020-07-09 00:20, Jesse 1 Robinson wrote: My experience with RACF echoes Bob Bridges, as does the excellent code sample from David Spiegel. A single call directly to RACF returns a yes/no for the level of access queried in that call. Ages ago I worked in an ASM2 shop. As I recall, ASM2 allowed a single call to determine the highest level of access allowed. In any case, it's a shame that RACF requires multiple calls. David's code appears to do that but masks it for the user. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mike Hochee Sent: Wednesday, July 8, 2020 9:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: ISPF 3.4 DSLIST questions CAUTION EXTERNAL EMAIL Hi Bob, If was unfamiliar with assembler, I would not start by attempting to use RACROUTE macros, as the combination of the two is a lot to chew on IMO. RACSEQ is a TSO command/utility for RACF written by Bruce wells of IBM some years ago. Documentation and assembler source are available here... https://eur06.safelinks.protection.outlook.com/?url=ftp%3A%2F%2Fftp.www.ibm.com%2Fs390%2Fzos%2Fracf%2Fracseq%2FracseqReadMe.pdf&data=02%7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C637298652463812056&sdata=eEwr70f%2BfqMkQRw60AnpPPIXMcSfXd0BZUtBrqf0a8s%3D&reserved=0 It is certainly callable from Rexx and is something you can customize if desired. Rather than RACROUTE, the program makes use of the RACF R_admin callable service. RACF callable service functionality may map more closely to the kind of permission/resource related questions you posed. The RACF callable services are documented here... https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww-01.ibm.com%2Fservers%2Fresourcelink%2Fsvc00100.nsf%2Fpages%2FzOSV2R3sa232293%2F%24file%2Fichd100_v2r3.pdf&data=02%7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C637298652463812056&sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1KOKCk%3D&reserved=0 HTH, Mike -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bob Bridges Sent: Wednesday, July 8, 2020 7:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF 3.4 DSLIST questions Caution! This message was sent from outside your organization. I've been doing mainframe security for a few decades now, but I've never learned IBM's version of assembler (I still have ambitions of doing that eventually) so I may be mistaken about how RACROUTE works. But my impression is that the question the OS asks the security system might look like this: "About resource HLQ.XYZ in class DATASET, does ABC have UPDATE access to it?" In other words, the question specifies the class, the resource name, the user's ID and the level of access (READ or whatever), and the answer is a simple Yes or No (or in rare cases "I can't tell"). Am I mistaken in that? If not, then how do you learn what access ABC has to HLQ.XYZ without asking once for READ, once for UPDATE and so on? --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* People don't really want to go back to a time when the world was simpler. They want to go back to a time when they didn't understand how complicated the world has always been. */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of David Spiegel Sent: Tuesday, July 7, 2020 18:15 "... But if you want to know all the kinds of access you have, you'd need to ask the question three or four times, for read, update, execute and create. ..." This statement is not true. I published an Assembler program and a Rexx Exec here on June 14. My program has been placed on CBT File 836 (for now, it's in the Update section of the website). --- On 2020-07-07 17:45, Bob Bridges wrote: Nothing useful to say about your first question, but about the second: I can think of two ways to pull your access information for a list of datasets. 1) Query the system about which security app is running (RACF, ACF2 or TSS), then issue the commands and parse the output. Display only the brief results, eg "RW" for "read/write". I have a REXX that can tell you which security app is running, if you're interested. That involves a lot of coding. It might be simpler (if you can find a way to do it) to 2) do a RACROUTE query, since that sends the question to existing security system and returns simply 0 (access allowed), 8 (not allowed) or very rarely 4 (can't tell). But if you want to know all the kinds of access you have, you'd need to ask the question three or four times, for read, update, execute and create. And for both methods you'd have to do the quer
Re: ISPF 3.4 DSLIST questions
On Wed, Jul 8, 2020 at 6:04 PM Bob Bridges wrote: > I've been doing mainframe security for a few decades now, but I've never > learned IBM's version of assembler (I still have ambitions of doing that > eventually) so I may be mistaken about how RACROUTE works. But my > impression is that the question the OS asks the security system might look > like this: "About resource HLQ.XYZ in class DATASET, does ABC have > UPDATE access to it?" In other words, the question specifies the class, > the resource name, the user's ID and the level of access (READ or > whatever), and the answer is a simple Yes or No (or in rare cases "I can't > tell"). > > Am I mistaken in that? If not, then how do you learn what access ABC has > to HLQ.XYZ without asking once for READ, once for UPDATE and so on? > That's close. But the access is "hierarchical" ALTER access implies CONTROL access implies UPDATE access implies READ access. So if you want to know a person's access, you'd start at the most powerful and go downward. https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ichc600/rrauthstd.htm ,ATTR=READ,ATTR=UPDATE,ATTR=CONTROL,ATTR=ALTER,ATTR=regspecifies the level of authority requested. RACF checks the resource profile protecting the resource identified by the ENTITY and CLASS keywords. The values have the following hierarchical order: - *READ* - *UPDATE* - *CONTROL* - *ALTER* That is, if a user has update authority and ATTR=READ is specified, RACF returns a return code of 0. If ATTR=CONTROL, RACF returns a return code of 8. *For multilevel secure environments*: 1. When ATTR=READ or ALTER, it will be treated as though it was a read-only request for purposes of mandatory access control (MAC) checking. 2. When ATTR=UPDATE or CONTROL, it will be treated as though it was a read-write request for purposes of mandatory access control (MAC) checking. If a register is specified, the register must contain one of the following codes in the low-order byte of the register:X'02'READX'04'UPDATEX'08'CONTROL X'80'ALTER The default is ATTR=READ. > > --- > Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 > > -- People in sleeping bags are the soft tacos of the bear world. Maranatha! <>< John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Git for zOS
Andrew, There are a couple of tools to do searches, compare changes, etc. One example is a tool, called Fisheye, https://www.atlassian.com/software/fisheye.Also, I have been working on an open source project, called Polycephaly, but it is mainly for building z/OS application. However, I have several routines which are system related, like building sys1.parmlib from Git, using Jenkins. So, it could be adapted to something like you are talking about. The Open Mainframe Project, Polycephaly, is still in its early stages, but there is working code. Thanks, Jerry Edgington -Original Message- From: IBM Mainframe Discussion List On Behalf Of Andrew Rowley Sent: Thursday, July 9, 2020 4:19 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Git for zOS This message was sent from an external source outside of Western & Southern's network. Do not click links or open attachments unless you recognize the sender and know the contents are safe. On 9/07/2020 5:52 pm, Jake Anderson wrote: > Does anyone have experience in using git for zOS(rocket open-source) > to manage parmlib or proclib ? > I have been doing some experimentation with this to track changes. At the moment I have a script to copy all members from PARMLIB/PROCLIB and various other configuration datasets and files into a git working copy. I can commit the changes with a note about what changed etc. then push to a central repository where I can use other tools to search, look back at changes etc. It might be useful to e.g. automatically create a tag after every IPL, so you can see exactly what changed between IPLs. It seems very useful. One word of warning: be very careful with current releases of ZIGI. There are processes where it deletes and reallocates datasets, which could be embarrassing if they are important e.g. SYS1.PROCLIB. I have suggested that it should avoid doing that. I did some experimentation with it, but manual processes are safer at the moment. If ZIGI was enhanced to handle datasets a bit more safely, I can see workflows where a systems programmer could check out their own copy of PARMLIB, make changes, push them to the central repository and have them merged with other peoples changes into the real SYS1.PARMLIB. You could then have detailed line by line tracking of changes with descriptions and links back to change records, see exactly which members had modifications as part of the same change etc. It would be very nice. -- Andrew Rowley Black Hill Software -- 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: Configuring a CP online
You need to deactivate/reactivate the LPAR (@ HMC) after configuring the image profile as desired. This is more than an IPL.. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Jesse 1 Robinson Sent: Wednesday, July 8, 2020 5:41 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Configuring a CP online [CAUTION: This Email is from outside the Organization. Unless you trust the sender, Don’t click links or open attachments as it may be a Phishing email, which can steal your Information and compromise your Computer.] OK, based on advice here, we'll schedule an LPAR bounce at the next IPL. Thanks! . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mark Jacobs Sent: Wednesday, July 8, 2020 12:02 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: Configuring a CP online [EXTERNAL] CAUTION EXTERNAL EMAIL Yes, the Image profile needs to be updated for number of CPs to be brought online during IPL. Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://apc01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fapi.protonmail.ch%2Fpks%2Flookup%3Fop%3Dget%26search%3Dmarkjacobs%40protonmail.com&data=02%7C01%7Callan.staller%40HCL.COM%7Cdc0d6c6ab0b74abace2f08d823900a40%7C189de737c93a4f5a8b686f4ca9941912%7C0%7C0%7C637298448855932133&sdata=tIf7SJrQIPW6MGd276jXhszcupUIBoi0kqlTrTW4LEw%3D&reserved=0 ‐‐‐ Original Message ‐‐‐ On Wednesday, July 8, 2020 2:46 PM, Feller, Paul <02fc94e14c43-dmarc-requ...@listserv.ua.edu> wrote: > If this CP is to be online from now on then update the lpar hardware profile > to insure that it will be there after any deactivate/activate of the lpar. In > the back of my mind I'm thinking during the IPL process the system looks at > the profile to see what number of CPs should be online. I could be wrong, but > I keep thinking I've run into the same situation and updating the profile > fixed the issue. > > Thanks.. > > Paul Feller > GTS Mainframe Technical Support > > -Original Message- > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf > Of Jesse 1 Robinson > Sent: Wednesday, July 08, 2020 1:33 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Configuring a CP online [EXTERNAL] > > We added a logical CP a while back via CF online. After the next IPL, it was > offline until we reissued the CF command. What do we have to do to make it > 'permanent'? > > . > . > J.O.Skip Robinson > Southern California Edison Company > Electric Dragon Team Paddler > SHARE MVS Program Co-Manager > 323-715-0595 Mobile > 626-543-6132 Office <= NEW > robinsj2@sce.commailto:robin...@sce.com > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ::DISCLAIMER:: The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only. E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. The e mail and its contents (with or without referred errors) shall therefore not attach any liability on the originator or HCL or its affiliates. Views or opinions, if any, presented in this email are solely those of the author and may not necessarily reflect the views or opinions of HCL or its affiliates. Any form of reproduction, dissemination, copying, disclosure, modification, distribution and / or publication of this message without the prior written consent of authorized representative of HCL is strictly prohibited. If you have received this email in error please delete it and notify the sender immediately. Before opening any email and/or attachments, please check them for viruses and other defects. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 3592-EH7
IMHO yes ...or no. This is TS1140. 3592-E07 can be attached, but EH7 is smaller version and I guess logically it is the same as E07, but it may not fit correctly into TS4500. Maybe this is a question of some "real" hardware (cradle, rail, bever), maybe not. However it is a question for CE, loosely related to mainframe. Note: it is 9 years old. IBM would not support any upgrade, maybe some third party service. -- Radoslaw Skorupka Lodz, Poland W dniu 09.07.2020 o 01:34, Bodra - Pessoal pisze: Hi, Can I use 3592-EH7 via 3592-C07 inside a TS4500? Carlos Bodra IBM zEnterprise Certified São Paulo - SP - Brazil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN . == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2020 r. wynosi 169.401.468 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.401.468 as at 1 January 2020. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Configuring a CP online [EXTERNAL]
Yes. I general there are many choices: 1. Re-Activate LPAR profile. Of course change it before. 2. Use command (human or COMMNDxx) to CF CPU online. 3. Use Jim Mulder advice (PRESCPU). 4. Logically add CPU to the LPAR using HMC facilities (z10 or above). Assuming the IPL is human-controlled (not automatic) I would add to the procedure to check CPUs after MVS console is available. -- Radoslaw Skorupka Lodz, Poland W dniu 09.07.2020 o 10:12, kekronbekron pisze: I may be incorrect, but isn't the image profile to say this image is allowed to have these many CPs? Or is it also supposed to bring it online ... If not, adding it to COMMND00 should be enough - KB ‐‐‐ Original Message ‐‐‐ On Thursday, July 9, 2020 12:32 AM, Mark Jacobs <0224d287a4b1-dmarc-requ...@listserv.ua.edu> wrote: Yes, the Image profile needs to be updated for number of CPs to be brought online during IPL. Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://api.protonmail.ch/pks/lookup?op=get&search=markjac...@protonmail.com ‐‐‐ Original Message ‐‐‐ On Wednesday, July 8, 2020 2:46 PM, Feller, Paul 02fc94e14c43-dmarc-requ...@listserv.ua.edu wrote: If this CP is to be online from now on then update the lpar hardware profile to insure that it will be there after any deactivate/activate of the lpar. In the back of my mind I'm thinking during the IPL process the system looks at the profile to see what number of CPs should be online. I could be wrong, but I keep thinking I've run into the same situation and updating the profile fixed the issue. Thanks.. Paul Feller GTS Mainframe Technical Support == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2020 r. wynosi 169.401.468 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.401.468 as at 1 January 2020. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Storage & tape question
Regarding tapes: this is one of the advantages of using HSM and physical tapes. It's quite easy to manage that even very old backup is on quite recently recorded tape. Migration from older tape system to new one is piece of cake. For VTS things are a bit more complex but still it is possible. "Fresh" tapes are better than 15-years old cart, last mounted 10 years ago. Not to mention weared drives. And of course always use two physical tapes. Preferrably in two locations. Even the best tape may fail. Two cart also may fail, but it is less likely. Three tapes (in three ATLs, in three locations) are even more unlikely to fail concurrently, etc. And it is your decision to say "n copies is enough safety for me". And I'm sorry, I don't believe in any support from business side. BTW: two tapes, but avoid to write or read them in same drive. Drive failure may somehow destroy the tape. I know a guy who tried to recover data from backup, but the tape was faulty. He had two copies. Second reel was also faulty. Actually both tapes were mounted in same faulty drive which destroyed both copies. In that scenario even dozen of copies would not help (assuming still same drive). -- Radoslaw Skorupka Lodz, Poland W dniu 08.07.2020 o 16:07, Vernooij, Kees (ITOP NM) - KLM pisze: I agree with your findings. At one time, one headlight of my car failed. Since it has two headlights, I did not make much hurry to replace it, but 2 days later the other one failed. Then I was left in almost complete darkness. A SPOF is a SPOF and is subject to Murphy's law, which means it will hit you at the most inconvenient momemt. The TS7740 has several selection criteria for physical tape reclaims: one is the period a tape has not been mounted. The max period you can set here was 365 days (or not do it at all). There must be a good reason to limit this period to 1 year, not more. Kees. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Bill Ogden Sent: 08 July 2020 15:27 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Storage & tape question Probably many others will chime in on this. I have lost RAID 5 arrays with two disk failures within an hour of each other. RAID is nice, but one must allow for failures. Long ago I was involved with reading archived tapes and transferring the data to CDs. The programs involved were home-written and the project ended up going nowhere. However, we discovered that tapes kept too long started having errors. (At that point, for the CD copy, we just logged the error and accepted the corrupt data; what else could we do?) How long is "too long"?? It was variable, but measured in a few years. The advice then was to minimally read the tapes every year or so to "retension" them. Don't know if this would apply to more modern tape media. (We also discovered that locally "burned" CDs are not expected last forever.) IMHO, the key point for tape backups are (1) off-site storage, (2) multiple PiT recovery, (3) logical error recovery. All this can be done with disk-only environments involving remote copy and lots of disk space, but all that becomes expensive for smaller shops. Bill Ogden == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2020 r. wynosi 169.401.468 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.401.468 as at 1 January 2020. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@
Re: Storage & tape question
Azure? Cloud? There is no cloud. It is just someone else's computer. ;-) -- Radoslaw Skorupka Lodz, Poland W dniu 08.07.2020 o 17:46, Joe Monk pisze: I do a backup to spinning storage, then a copy of that backup to Azure for long term. Joe On Wed, Jul 8, 2020 at 10:12 AM Seymour J Metz wrote: I've always gone with dual* backups, with one copy off site. Remote mirroring is a good option where policy permits, and even if retensioning is no longer relevant, rereading backups periodically will give you a heads up if one copy goes south. I would consider even correctable errors to be red flags. Any medium you use will have failure modes. Multiple PiT recovery is good for "whoops!" moments and possibly for audits. Large or small, each shop must do it's own risk assessments in the context of its own obligations and priorities. * Depending on the value of the data, you might want more than 2. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Bill Ogden [og...@us.ibm.com] Sent: Wednesday, July 8, 2020 9:27 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Storage & tape question Probably many others will chime in on this. I have lost RAID 5 arrays with two disk failures within an hour of each other. RAID is nice, but one must allow for failures. Long ago I was involved with reading archived tapes and transferring the data to CDs. The programs involved were home-written and the project ended up going nowhere. However, we discovered that tapes kept too long started having errors. (At that point, for the CD copy, we just logged the error and accepted the corrupt data; what else could we do?) How long is "too long"?? It was variable, but measured in a few years. The advice then was to minimally read the tapes every year or so to "retension" them. Don't know if this would apply to more modern tape media. (We also discovered that locally "burned" CDs are not expected last forever.) IMHO, the key point for tape backups are (1) off-site storage, (2) multiple PiT recovery, (3) logical error recovery. All this can be done with disk-only environments involving remote copy and lots of disk space, but all that becomes expensive for smaller shops. Bill Ogden == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2020 r. wynosi 169.401.468 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.401.468 as at 1 January 2020. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Storage & tape question
IMHO no and there is no reason. Is the backup OK? Just read it. Any error will be reported. Physical errors are reported by the hardware. Is backup altered by hostile user? Protect it using RACF or else. However educated and authorized user may alter backup and re-create hash. Do you want to sleep safely? Then don't think about backup ;-) Or just make your backup safe enough for your needs. It may mean two copies, two copies in two locations, 4 copies in two location, 6 copies in 3 locations, one really far. Or 8 copies in 4 locations... However you will never be 100% safe. It is hard to imagine an flood with diameter of 2000 miles, but terrorist attack against YOUR COMPANY can cover all your datacenters at the time. It is unlikely, but adding datacenters will not help you in that case. Keeping addresses in secret is rather hard and will become useless after first disclosure. This is important and sometimes hard to explain: we are not talking about two or three random attacks which accidentally happened one day and accidentally covered our datacenters. This is about ONE terrorist action with two or three threads. -- Radoslaw Skorupka Lodz, Poland W dniu 08.07.2020 o 17:54, kekronbekron pisze: Dumb question - can integrity checks for backups be done with dump hashes/signatures, either in software or in the storage array (if the array maintains metadata about files/objects) ? If there's an automated flow for this, many teams could sleep peacefully, knowing that backups are in good condition, without having to actually pick one and test the flow. - KB ‐‐‐ Original Message ‐‐‐ On Wednesday, July 8, 2020 8:56 PM, Glenn Wilcock wrote: Hi All, I want to give another perspective on the need for backup copies. The focus here is on physical loss of storage. With replication, and many clients having 2, 3 and even 4 sites, the probability of needing a backup copy to recover from a physical loss of data really has decreased. (Still there, none the less). BUT, the probability for logical data corruption has INCREASED. Accidental and malicious data corruption is instantly mirrored to all replication copies, making them useless. Working in HSM, I regularly see calls requesting assistance in recovering large amounts of data from backup copies. We're all human and we all make mistakes. Some of those mistakes result in data loss. Also, all products have programming defects and some of those defects result in data loss. This speaks nothing to the current environment where governments are mandating policies and procedures for protecting against malicious data destruction. Your only hope for recovery is a PiT backup prior to the data loss/corruption. Not all loss/corruption will be found immediately. So, your ability to recover is a factor of how long it takes you to determine that there was corruption/loss and how much your willing to invest in keeping backup copies for at least that long. Glenn Wilcock DFSMS Chief Product Owner == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2020 r. wynosi 169.401.468 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.401.468 as at 1 January 2020. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Storage & tape question
Regarding eggs and backets. This is english proverb, not used in Poland. I rather use electricity example: serial and parallel connection of light bulbs. The idea of two datacenters is to have bulbs in parallel - one may fail, but the other will work. However sometimes (especially in Windows world) it is deviated to serial connection - both datacenter have to work, otherwise you have business outage. Of course if your system consist of three elements (eggs) and all of them have to be working, then single basket (dc) is good choice. And it is good idea to think about another basket with copies of the eggs. Regards -- Radoslaw Skorupka Lodz, Poland W dniu 08.07.2020 o 21:05, Jesse 1 Robinson pisze: The biggest off-color swan on the West Coast by far is earthquake. Wildfire is also on the list as well as tsunami. Some years ago (the old) Bank of America came close to shutting down their downtown LA data center because of civil unrest. In the age of climate change, flooding is not out of the question. As to probabilities, I like to question the 'all eggs in one basket' trope. If you have a dozen eggs *every one of which is vital*, you might as put them all in one basket and resolve to take very good care of it. If some of the eggs are dispensable, then distribute them in multiple baskets. The more baskets you have to take care of, the greater the risk that one or more will fail. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Charles Mills Sent: Wednesday, July 8, 2020 9:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: Storage & tape question CAUTION EXTERNAL EMAIL Unlikely? Black swans do happen. How unlikely is a world-wide pandemic that cripples economies around the world? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of R.S. Sent: Wednesday, July 8, 2020 2:33 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Storage & tape question It has no value. Terrorist attack is unlikely, but two terrorist attacks at the time are more unlikely. Thousand terrorist attacks at the tima are even more unlikely. A bomb attack is unlikely. Large (atomic?) bomb attack is more unlikely. When you have two datacenters and tapes in shelter off-site ...it is still just unlikely to have coordinated attack on all the locations at the time, and it is just unlikely to have shelters strong enough. More data locations? Fine, more bombs. And it is quite likely some malevolent people would know the adresses of the locations. If you think you can protect your data against unlikely events (disaster, etc.)... Or rather: if you think you know how to do it, despite of the costs - you're simply WRONG. There is always some level of protection. The level is not infinite and *cannot* be inifite. It can be high. Maybe "high enough" or "reasonably high". Side note: there are scenarios when achieving higher level of protection is pointless. Let's assume ticket system for metro transportation (buses) and ...war. Or ticket system for buses in Biloxi. == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2020 r. wynosi 169.401.468 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.401.468 as at 1 January 2020.
Re: Storage & tape question
Charles, Were you prepared of coronavirus? Were your company prepared for that 3 years ago? No. Are your company prepared for terrorist attack at all datacenters at the time? It depends on the sword being used, but generally no. Unlikely things do happen. More unlikely things do happen. Even more unlikely things may happen. However there is no solution which protect against everything. A copy on disk or tape may fail. Two copies may fail. Three copies may fail, Four copies... By adding copies we minimize the risk, but not zeroize it. And sometimes other factors become important. Example: many copies inside one building. For one copy the issue was not applicable. For three copies it is important. Not because it is less safe than one copy, but because safety became being limited by number of locations. -- Radoslaw Skorupka Lodz, Poland W dniu 08.07.2020 o 18:13, Charles Mills pisze: Unlikely? Black swans do happen. How unlikely is a world-wide pandemic that cripples economies around the world? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of R.S. Sent: Wednesday, July 8, 2020 2:33 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Storage & tape question It has no value. Terrorist attack is unlikely, but two terrorist attacks at the time are more unlikely. Thousand terrorist attacks at the tima are even more unlikely. A bomb attack is unlikely. Large (atomic?) bomb attack is more unlikely. When you have two datacenters and tapes in shelter off-site ...it is still just unlikely to have coordinated attack on all the locations at the time, and it is just unlikely to have shelters strong enough. More data locations? Fine, more bombs. And it is quite likely some malevolent people would know the adresses of the locations. If you think you can protect your data against unlikely events (disaster, etc.)... Or rather: if you think you know how to do it, despite of the costs - you're simply WRONG. There is always some level of protection. The level is not infinite and *cannot* be inifite. It can be high. Maybe "high enough" or "reasonably high". Side note: there are scenarios when achieving higher level of protection is pointless. Let's assume ticket system for metro transportation (buses) and ...war. Or ticket system for buses in Biloxi. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN . == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2020 r. wynosi 169.401.468 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.401.468 as at 1 January 2020. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SuperWylbur Users
Hi list,
Wilbur source is not that "trashed".
After uploading it to USS I can access the code in a perfectly readable way
using ISPF Edit :
EDIT /u/sys56/WYLORV/Mainframe/GG.PUB/WINGS.COMMANDS Columns 1 00
Command ===> Scroll ===> C
** * Top of Data **
01 ;
02 ; Wings - ALLOCATE command
03 ;
04 xproc () begin
05
06declare number x.pathno
07declare string open_str
08declare string open_opt
09declare string wing_path
10declare string msg xmsg pmsg
11declare string rc cr
12declare boolean debug
13cr = SHEX('0D') ; CR CHARACTER
14
15
16 ;***debug: set true
17 debug=false
I use ISPF 3.17 to access the directory. Edit the member on the displayed list.
Just that you must specify ASCII on the Edit Entry panel:
Data Encoding
1 1. ASCII
2. UTF-8
Furthermore you can use CUT and PASTE to copy it to a regular PDS.
Ciao,
--
Raphael Dal Pos / z/OS Support
Generali Shared Services S.c.a.r.l.
GSS\CIN-MF (Central Infrastructure Mainframe)
11-17, Avenue François Mitterrand
93200 Saint Denis / France
Wilo W 03 B1 029C
raphael.dal...@generali.com +(33)1-58-38-59-67
or mobile +(33)6.24.33.20.87
--
"MVS: Guilty, until proven innocent !!" RDP 2009
-Message d'origine-
De : IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] De la part
de Tony Harminc
Envoyé : jeudi 9 juillet 2020 01:33
À : IBM-MAIN@LISTSERV.UA.EDU
Objet : Re: SuperWylbur Users
On Wed, 8 Jul 2020 at 14:38, Farley, Peter x23353
wrote:
>
> Do you know of a specific program or macro in the package that exhibits this
> failure? Or have a link to any public discussion of the issue that describes
> the mis-translations?
>
> I DL'd the tgz file directly from Stanford and browsed a few sources at
> random, but I didn't see any "weird" characters. One of the mail-related
> scripts I reviewed seemed to have legitimate square bracket pairs, so maybe
> it isn't that particular issue?
I did much the same, and noticed that in the listing files there seems
to have been some post processing done to (among other things)
generate text boxes For example, in
Mainframe\GS.MIL\MILTEN.SOURCE\MSVC there is a line starting with *box
which in the matching listing Assemblies\Milten\MIL#MSVC.txt generates
a box made mostly of X'FE' for the horizontal lines, 9F for the
vertical, and the four corners are BF, DC, BE, and BB. This is neither
ASCII nor EBCDIC in any dialect I recognize, but all the box
characters have been uniquely translated, so that may well also be
true for any unusual characters in the actual source lines.
I doubt that the long-standing claim that the Wylbur source is trashed
is completely invented, but things certainly *look* salvageable at
first glance.
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
Re: [External] Re: COBOL 6.3 compiler options question
Charles, Fascinating. JTC isn't even in the customization macro. I guess it's a "watch this space for future development" type option. Rex -Original Message- From: IBM Mainframe Discussion List On Behalf Of Charles Mills Sent: Wednesday, July 8, 2020 6:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] Re: COBOL 6.3 compiler options question Did you look at the customization macro and see if there is a comment on the option or the assembled table? I would do it but I would have to IPL Dallas and I am too lazy. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Wednesday, July 8, 2020 3:09 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] Re: COBOL 6.3 compiler options question I'm kind of hoping Captain COBOL will see my request and respond. :-) Rex -Original Message- From: IBM Mainframe Discussion List On Behalf Of Charles Mills Sent: Wednesday, July 8, 2020 5:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [External] Re: COBOL 6.3 compiler options question Not I. There is a May, 2020 update to the P/G and it's not in there. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Wednesday, July 8, 2020 2:11 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: COBOL 6.3 compiler options question Hi, Can somebody give me a definitive definition of the NOJTC and JTC compiler options in 6.3? I'm not seeing it in the COBOL reference or any COBOL manual for that matter, yet it shows up on the option list when we compile a program: NOFLAGSTD HGPR(PRESERVE) NOINITCHECK NOINITIAL INLINE INTDATE(ANSI) NOJTC -- 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
Re: Storage & tape question
And of course HSM duplexing for ML2 and Backup tapes automatically covers the requirement to use different drives. Since the two copies are made concurrently, that guarantees they have to be on different drives. It should be obvious enough to not need saying, but you also don't make two copies of critical tape data by running a copy step to make a copy of the first tape: a drive failure or some physical accident to the media during the copy process may destroy the one and only copy of the data before the copy process completes. The original DASD-based data should be used to generate all tape copies. With modern tape technologies, actual failures due to the tape media itself tend to be gradual and correctable: during writing, data blocks are verified as they are written and marginal spots on the media skipped, and error-correction encoding provides redundancy and correction when reading data if surface damage occurs later. In a properly maintained tape library where cartidges that start to show issues from age and use are replaced, data loss from a media issue should be exceedingly rare to non-existent. That said, catastrophic tape failure can always be induced by a device failure that causes physical damage to the media; or by some accident, mis-handling of a cartridge, or environment disaster that results in physical damage to the cartridge & media. Logical failures are also always possible, where a series of operational mis-steps results in a valuable tape being marked for deletion and re-used before its time. Joel C Ewing On 7/9/20 7:49 AM, R.S. wrote: > Regarding tapes: this is one of the advantages of using HSM and > physical tapes. It's quite easy to manage that even very old backup is > on quite recently recorded tape. Migration from older tape system to > new one is piece of cake. For VTS things are a bit more complex but > still it is possible. "Fresh" tapes are better than 15-years old cart, > last mounted 10 years ago. Not to mention weared drives. > > And of course always use two physical tapes. Preferrably in two > locations. Even the best tape may fail. Two cart also may fail, but it > is less likely. Three tapes (in three ATLs, in three locations) are > even more unlikely to fail concurrently, etc. And it is your decision > to say "n copies is enough safety for me". And I'm sorry, I don't > believe in any support from business side. > > BTW: two tapes, but avoid to write or read them in same drive. Drive > failure may somehow destroy the tape. I know a guy who tried to > recover data from backup, but the tape was faulty. He had two copies. > Second reel was also faulty. Actually both tapes were mounted in same > faulty drive which destroyed both copies. In that scenario even dozen > of copies would not help (assuming still same drive). > -- Joel C. Ewing -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Storage & tape question
Im sure that Kim Dotcom would love your legal theory... Joe On Thu, Jul 9, 2020 at 7:51 AM R.S. wrote: > Azure? Cloud? > There is no cloud. It is just someone else's computer. ;-) > > -- > Radoslaw Skorupka > Lodz, Poland > > > > > > > W dniu 08.07.2020 o 17:46, Joe Monk pisze: > > I do a backup to spinning storage, then a copy of that backup to Azure > for > > long term. > > > > Joe > > > > On Wed, Jul 8, 2020 at 10:12 AM Seymour J Metz wrote: > > > >> I've always gone with dual* backups, with one copy off site. Remote > >> mirroring is a good option where policy permits, and even if > retensioning > >> is no longer relevant, rereading backups periodically will give you a > heads > >> up if one copy goes south. I would consider even correctable errors to > be > >> red flags. > >> > >> Any medium you use will have failure modes. > >> > >> Multiple PiT recovery is good for "whoops!" moments and possibly for > >> audits. > >> > >> Large or small, each shop must do it's own risk assessments in the > context > >> of its own obligations and priorities. > >> > >> * Depending on the value of the data, you might want more than 2. > >> > >> > >> -- > >> Shmuel (Seymour J.) Metz > >> http://mason.gmu.edu/~smetz3 > >> > >> > >> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on > behalf > >> of Bill Ogden [og...@us.ibm.com] > >> Sent: Wednesday, July 8, 2020 9:27 AM > >> To: IBM-MAIN@LISTSERV.UA.EDU > >> Subject: Re: Storage & tape question > >> > >> Probably many others will chime in on this. I have lost RAID 5 arrays > with > >> two disk failures within an hour of each other. RAID is nice, but one > must > >> allow for failures. > >> > >> Long ago I was involved with reading archived tapes and transferring the > >> data to CDs. The programs involved were home-written and the project > ended > >> up going nowhere. However, we discovered that tapes kept too long > started > >> having errors. (At that point, for the CD copy, we just logged the error > >> and accepted the corrupt data; what else could we do?) How long is "too > >> long"?? It was variable, but measured in a few years. The advice then > was > >> to minimally read the tapes every year or so to "retension" them. Don't > >> know if this would apply to more modern tape media. (We also discovered > >> that locally "burned" CDs are not expected last forever.) > >> > >> IMHO, the key point for tape backups are (1) off-site storage, (2) > >> multiple PiT recovery, (3) logical error recovery. All this can be done > >> with disk-only environments involving remote copy and lots of disk > space, > >> but all that becomes expensive for smaller shops. > >> > >> Bill Ogden > >> > >> > > > == > > Jeśli nie jesteś adresatem tej wiadomości: > > - powiadom nas o tym w mailu zwrotnym (dziękujemy!), > - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub > zapisałeś na dysku). > Wiadomość ta może zawierać chronione prawem informacje, które może > wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia > (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, > narusza prawo i może podlegać karze. > > mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, > www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy > XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: > 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na > 01.01.2020 r. wynosi 169.401.468 złotych. > > If you are not the addressee of this message: > > - let us know by replying to this e-mail (thank you!), > - delete this message permanently (including all the copies which you have > printed out or saved). > This message may contain legally protected information, which may be used > exclusively by the addressee.Please be reminded that anyone who > disseminates (copies, distributes) this message or takes any similar > action, violates the law and may be penalised. > > mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 > Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the > Capital City of Warsaw, 12th Commercial Division of the National Court > Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital > amounting to PLN 169.401.468 as at 1 January 2020. > > -- > 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: ISPF 3.4 DSLIST questions
About 100 years ago I wrote such a program and did 4 calls, one each for ATTR=READ/UPDATE/CONTROL/ALTER. So either something new came out later, or I just didn't look hard enough :) I never thought of it as a big deal though, it's not like my program was getting called a million times a day. On 7/9/2020 1:29 AM, David Spiegel wrote: Hi Skip, My program does it in one call. Regards, David On 2020-07-09 00:20, Jesse 1 Robinson wrote: My experience with RACF echoes Bob Bridges, as does the excellent code sample from David Spiegel. A single call directly to RACF returns a yes/no for the level of access queried in that call. Ages ago I worked in an ASM2 shop. As I recall, ASM2 allowed a single call to determine the highest level of access allowed. In any case, it's a shame that RACF requires multiple calls. David's code appears to do that but masks it for the user. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mike Hochee Sent: Wednesday, July 8, 2020 9:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: ISPF 3.4 DSLIST questions CAUTION EXTERNAL EMAIL Hi Bob, If was unfamiliar with assembler, I would not start by attempting to use RACROUTE macros, as the combination of the two is a lot to chew on IMO. RACSEQ is a TSO command/utility for RACF written by Bruce wells of IBM some years ago. Documentation and assembler source are available here... https://eur06.safelinks.protection.outlook.com/?url=ftp%3A%2F%2Fftp.www.ibm.com%2Fs390%2Fzos%2Fracf%2Fracseq%2FracseqReadMe.pdf&data=02%7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C637298652463812056&sdata=eEwr70f%2BfqMkQRw60AnpPPIXMcSfXd0BZUtBrqf0a8s%3D&reserved=0 It is certainly callable from Rexx and is something you can customize if desired. Rather than RACROUTE, the program makes use of the RACF R_admin callable service. RACF callable service functionality may map more closely to the kind of permission/resource related questions you posed. The RACF callable services are documented here... https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww-01.ibm.com%2Fservers%2Fresourcelink%2Fsvc00100.nsf%2Fpages%2FzOSV2R3sa232293%2F%24file%2Fichd100_v2r3.pdf&data=02%7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C637298652463812056&sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1KOKCk%3D&reserved=0 HTH, Mike -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bob Bridges Sent: Wednesday, July 8, 2020 7:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF 3.4 DSLIST questions Caution! This message was sent from outside your organization. I've been doing mainframe security for a few decades now, but I've never learned IBM's version of assembler (I still have ambitions of doing that eventually) so I may be mistaken about how RACROUTE works. But my impression is that the question the OS asks the security system might look like this: "About resource HLQ.XYZ in class DATASET, does ABC have UPDATE access to it?" In other words, the question specifies the class, the resource name, the user's ID and the level of access (READ or whatever), and the answer is a simple Yes or No (or in rare cases "I can't tell"). Am I mistaken in that? If not, then how do you learn what access ABC has to HLQ.XYZ without asking once for READ, once for UPDATE and so on? --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* People don't really want to go back to a time when the world was simpler. They want to go back to a time when they didn't understand how complicated the world has always been. */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of David Spiegel Sent: Tuesday, July 7, 2020 18:15 "... But if you want to know all the kinds of access you have, you'd need to ask the question three or four times, for read, update, execute and create. ..." This statement is not true. I published an Assembler program and a Rexx Exec here on June 14. My program has been placed on CBT File 836 (for now, it's in the Update section of the website). --- On 2020-07-07 17:45, Bob Bridges wrote: Nothing useful to say about your first question, but about the second: I can think of two ways to pull your access information for a list of datasets. 1) Query the system about which security app is running (RACF, ACF2 or TSS), then issue the commands and parse the output. Display only the brief results, eg "RW" for "read/write". I have a REXX that can tell you which security app is running, if you're interested. That involves a lot of coding. It might be simpler (if you can find a way to do it) to 2)
Re: SuperWylbur Users
On Wed, 8 Jul 2020 21:51:11 -0700, Charles Mills wrote: >> Why is a utility targeted for IBM mainframes (other than Linux for z) >> translated into "ASCII"? > >My guess is there was no "why." They just downloaded it and the default was >ASCII translation. It's bitten me more times than I care to admit. > Are the code pages used for that default translation documented? I know, rather, there is documentation for using Assembler and Binder to create private translation tables painstakingly by typing hex constants, but no supported simple way to create such tables in terms of given CCSIDs. On Thu, 9 Jul 2020 13:23:16 +, DAL POS Raphael wrote: > >Wilbur source is not that "trashed". >After uploading it to USS I can access the code in a perfectly readable way >using ISPF Edit : > >EDIT /u/sys56/WYLORV/Mainframe/GG.PUB/WINGS.COMMANDS Columns 1 00 >Command ===> Scroll ===> C >** * Top of Data ** >01 ; >02 ; Wings - ALLOCATE command >03 ; > Yes, but perhaps you're one of those eccentric programmers who doesn't reflexively copy any zFS files to a PDS ASAP! >I use ISPF 3.17 to access the directory. Edit the member on the displayed >list. >Just that you must specify ASCII on the Edit Entry panel: > >Data Encoding >1 1. ASCII > 2. UTF-8 > If you tag the files with the proper CCSID, that's automatic subsequently. It's marvelous! I've even displayed UTF-8 files containing a mix of Latin and Cyrillic characters on x3270 set to CP880. Hex display of UTF-8 is shabby; not vertically aligned. (Are there DBCS terminals? Does ISPF support them?) >Furthermore you can use CUT and PASTE to copy it to a regular PDS. > Do SAVE and COPY to PDS(E) work likewise? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SuperWylbur Users
*The* code pages used for *that* default (?) translation would utterly depend on the FTP server, the FTP client, and their configurations. For example, my WS_FTP is configurable such that .txt files get translated (and the .txt is truncated or appended for PDS member names) but others do not. Yes, all that is documented. I think the supported way to create custom translation tables is through z/OS Unicode Services. My (so-to-speak) former product made extensive, configurable use of Unicode Services various EBCDICs to ASCII or UTF-8 and I was very impressed with its ease-of-use and performance. I'm a fan! And if you really want absolute peak performance for simple 1:1 (non-UTF-8, in other words) translations it is easy to give it a table of x'00', X'01, x'02', ..., translate it from/to your desired character sets, and then use it with the TR hardware instruction. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Thursday, July 9, 2020 9:12 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SuperWylbur Users On Wed, 8 Jul 2020 21:51:11 -0700, Charles Mills wrote: >> Why is a utility targeted for IBM mainframes (other than Linux for z) >> translated into "ASCII"? > >My guess is there was no "why." They just downloaded it and the default was >ASCII translation. It's bitten me more times than I care to admit. > Are the code pages used for that default translation documented? I know, rather, there is documentation for using Assembler and Binder to create private translation tables painstakingly by typing hex constants, but no supported simple way to create such tables in terms of given CCSIDs. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SuperWylbur Users
Ref : Do SAVE and COPY to PDS(E) work likewise? No. Neither do CREATE. Only CUT/PASTE. -- Raphael Dal Pos / z/OS Support Generali Shared Services S.c.a.r.l. GSS\CIN-MF (Central Infrastructure Mainframe) 11-17, Avenue François Mitterrand 93200 Saint Denis / France Wilo W 03 B1 029C raphael.dal...@generali.com +(33)1-58-38-59-67 or mobile +(33)6.24.33.20.87 -- "MVS: Guilty, until proven innocent !!" RDP 2009 -Message d'origine- De : IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] De la part de Paul Gilmartin Envoyé : jeudi 9 juillet 2020 18:12 À : IBM-MAIN@LISTSERV.UA.EDU Objet : Re: SuperWylbur Users On Wed, 8 Jul 2020 21:51:11 -0700, Charles Mills wrote: >> Why is a utility targeted for IBM mainframes (other than Linux for z) >> translated into "ASCII"? > >My guess is there was no "why." They just downloaded it and the default was >ASCII translation. It's bitten me more times than I care to admit. > Are the code pages used for that default translation documented? I know, rather, there is documentation for using Assembler and Binder to create private translation tables painstakingly by typing hex constants, but no supported simple way to create such tables in terms of given CCSIDs. On Thu, 9 Jul 2020 13:23:16 +, DAL POS Raphael wrote: > >Wilbur source is not that "trashed". >After uploading it to USS I can access the code in a perfectly readable way >using ISPF Edit : > >EDIT /u/sys56/WYLORV/Mainframe/GG.PUB/WINGS.COMMANDS Columns 1 00 >Command ===> Scroll ===> C >** * Top of Data ** >01 ; >02 ; Wings - ALLOCATE command >03 ; > Yes, but perhaps you're one of those eccentric programmers who doesn't reflexively copy any zFS files to a PDS ASAP! >I use ISPF 3.17 to access the directory. Edit the member on the displayed >list. >Just that you must specify ASCII on the Edit Entry panel: > >Data Encoding >1 1. ASCII > 2. UTF-8 > If you tag the files with the proper CCSID, that's automatic subsequently. It's marvelous! I've even displayed UTF-8 files containing a mix of Latin and Cyrillic characters on x3270 set to CP880. Hex display of UTF-8 is shabby; not vertically aligned. (Are there DBCS terminals? Does ISPF support them?) >Furthermore you can use CUT and PASTE to copy it to a regular PDS. > Do SAVE and COPY to PDS(E) work likewise? -- 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: SuperWylbur Users
In article <8236998877318111.wa.paulgboulderaim@listserv.ua.edu> you wrote: ... > (Are there DBCS terminals? Does ISPF support them?) Yes and yes. Condor (from Phoenix) does too since I added the support. We got a Korean 3270 shipped from some factory floor to test with. My boss shows up at my door and says, "Make sure you clean that thing of viruses" "Viruses? It's a dumb terminal, what are you talking about?" He lifts his hands from behind the door where he had been holding a roll of paper towels and a bottle of Windex, "Not that kind of virus!" While I was testing the code, I used ISPF to make sure I was covering all the edge cases (in this case, "edge" was literal in that you could shift text right or left and end up with the shift-in/shift-out characters un-paired). I actually had a case where ISPF got messed up and I had to restart the session. I should have opened a PMR, but in those days, I probably didn't know how to do that. -- Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive sas...@sas.com (919) 531-5637Cary, NC 27513 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] Re: COBOL 6.3 compiler options question
If I remember correctly, it was added with a PTF inadvertently and hasn’t been removed yet. I think a colleague opened a case and that’s what they said. On Thu, Jul 9, 2020 at 8:58 AM Pommier, Rex wrote: > Charles, > > Fascinating. JTC isn't even in the customization macro. I guess it's a > "watch this space for future development" type option. > > Rex > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of Charles Mills > Sent: Wednesday, July 8, 2020 6:07 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: [External] Re: COBOL 6.3 compiler options question > > Did you look at the customization macro and see if there is a comment on > the option or the assembled table? > > I would do it but I would have to IPL Dallas and I am too lazy. > > Charles > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Pommier, Rex > Sent: Wednesday, July 8, 2020 3:09 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: [External] Re: COBOL 6.3 compiler options question > > I'm kind of hoping Captain COBOL will see my request and respond. :-) > > Rex > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of Charles Mills > Sent: Wednesday, July 8, 2020 5:04 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: [External] Re: COBOL 6.3 compiler options question > > Not I. > > There is a May, 2020 update to the P/G and it's not in there. > > Charles > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Pommier, Rex > Sent: Wednesday, July 8, 2020 2:11 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: COBOL 6.3 compiler options question > > Hi, > > Can somebody give me a definitive definition of the NOJTC and JTC compiler > options in 6.3? I'm not seeing it in the COBOL reference or any COBOL > manual for that matter, yet it shows up on the option list when we compile a > program: > > NOFLAGSTD > HGPR(PRESERVE) > NOINITCHECK > NOINITIAL > INLINE > INTDATE(ANSI) > NOJTC > > -- > 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 > -- Michael Babcock OneMain Financial z/OS Systems Programmer, Lead -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
IFG0EX0B to increase secondary allocation
I'd like to take this opportunity to thank Sri Kolusu, of IBM, for taking the time to help with the open exit IFG0EX0B, in regards to IEBGENER/ICEGENER and DF/SORT. He has spent the last few days researching and testing. He came up with a solution, and the exit is now working with IEBGENER/ICEGENER and DF/SORT. Below is the solution he came up with. "And the reason as to why the increased secondary quantity in the 3.4 is because you haven't forced the modified JFCB writeback into the DSCB There's a long discussion of RDJFCB in DFSMSdfp Advanced Services. Tip: If you set the bit JFCNWRIT in the JFCBTSDM field to 1 before you issue the OPEN macro instruction, the JFCB is not written back at the conclusion of open processing. OPEN TYPE=J normally moves your program's modified copy of the JFCB, to replace the system copy. To ensure that this move is done, your program must set bit zero of the JFCBMASK+4 field to 1. IBM recommends not setting on JFCNWRIT. So I would add the flag to set jfcbmask+4 bit 0 to 1 when the secondary gets modified. Here is the modified code at label STSQTY (in blue color) STSQTY EQU * STORE SECONDARY QTY STCM RODD,7,JFCBSQTY OI JFCBMASK+4,X'80'REQUEST JFCB WRITEBACK LA RINCODE,MODJFCB JFCB MODIFIED RETSQTY EQU * RETURN FROM SQTY BR RET RETURN " 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
Re: SuperWylbur Users
On Thu, 9 Jul 2020 13:02:20 -0400, Don Poitras wrote: >... >> (Are there DBCS terminals? Does ISPF support them?) > >Yes and yes. Condor (from Phoenix) does too since I added the support. > This?: https://phoenixsoftware.com/condor.htm Doesn't seem to be a terminal emulator. What CP/CCSID? Does it expect a file containing SI/SO, or a plain old UTF-8 file with ISPF supplying SI/SO if needed? >... a bottle of Windex, ... > Windex? Is that CDC approved? I guess it has ammonia and alcohol. >While I was testing the code, I used ISPF to make sure I was covering >all the edge cases (in this case, "edge" was literal in that you could >shift text right or left and end up with the shift-in/shift-out characters >un-paired). > that sounds like a defect. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF 3.4 DSLIST questions
One call to your program, or one call to RACF? . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of David Spiegel Sent: Thursday, July 9, 2020 1:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: ISPF 3.4 DSLIST questions CAUTION EXTERNAL EMAIL Hi Skip, My program does it in one call. Regards, David On 2020-07-09 00:20, Jesse 1 Robinson wrote: > My experience with RACF echoes Bob Bridges, as does the excellent code sample > from David Spiegel. A single call directly to RACF returns a yes/no for the > level of access queried in that call. > > Ages ago I worked in an ASM2 shop. As I recall, ASM2 allowed a single call to > determine the highest level of access allowed. In any case, it's a shame that > RACF requires multiple calls. David's code appears to do that but masks it > for the user. > > . > . > J.O.Skip Robinson > Southern California Edison Company > Electric Dragon Team Paddler > SHARE MVS Program Co-Manager > 323-715-0595 Mobile > 626-543-6132 Office ⇐=== NEW > robin...@sce.com > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Mike Hochee > Sent: Wednesday, July 8, 2020 9:07 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: (External):Re: ISPF 3.4 DSLIST questions > > CAUTION EXTERNAL EMAIL > > Hi Bob, > > If was unfamiliar with assembler, I would not start by attempting to use > RACROUTE macros, as the combination of the two is a lot to chew on IMO. > > RACSEQ is a TSO command/utility for RACF written by Bruce wells of IBM > some years ago. Documentation and assembler source are available > here... > https://eur06.safelinks.protection.outlook.com/?url=ftp%3A%2F%2Fftp.ww > w.ibm.com%2Fs390%2Fzos%2Fracf%2Fracseq%2FracseqReadMe.pdf&data=02% > 7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435a > aaa%7C1%7C0%7C637298652463812056&sdata=eEwr70f%2BfqMkQRw60AnpP > PIXMcSfXd0BZUtBrqf0a8s%3D&reserved=0 It is certainly callable > from Rexx and is something you can customize if desired. Rather than > RACROUTE, the program makes use of the RACF R_admin callable service. > RACF callable service functionality may map more closely to the kind > of permission/resource related questions you posed. The RACF callable > services are documented here... > https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww- > 01.ibm.com%2Fservers%2Fresourcelink%2Fsvc00100.nsf%2Fpages%2FzOSV2R3sa > 232293%2F%24file%2Fichd100_v2r3.pdf&data=02%7C01%7C%7Cc1ba10f375ae > 4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C6372 > 98652463812056&sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1KOK > Ck%3D&reserved=0 > > HTH, > Mike > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Bob Bridges > Sent: Wednesday, July 8, 2020 7:04 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ISPF 3.4 DSLIST questions > > Caution! This message was sent from outside your organization. > > I've been doing mainframe security for a few decades now, but I've never > learned IBM's version of assembler (I still have ambitions of doing that > eventually) so I may be mistaken about how RACROUTE works. But my impression > is that the question the OS asks the security system might look like this: > "About resource HLQ.XYZ in class DATASET, does ABC have UPDATE access to it?" > In other words, the question specifies the class, the resource name, the > user's ID and the level of access (READ or whatever), and the answer is a > simple Yes or No (or in rare cases "I can't tell"). > > Am I mistaken in that? If not, then how do you learn what access ABC has to > HLQ.XYZ without asking once for READ, once for UPDATE and so on? > > --- > Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 > > /* People don't really want to go back to a time when the world was > simpler. They want to go back to a time when they didn't understand > how complicated the world has always been. */ > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of David Spiegel > Sent: Tuesday, July 7, 2020 18:15 > > "... But if you want to know all the kinds of access you have, you'd need to > ask the question three or four times, for read, update, execute and create. > ..." > > This statement is not true. > > I published an Assembler program and a Rexx Exec here on June 14. > My program has been placed on CBT File 836 (for now, it's in the Update > section of the website). > > --- On 2020-07-07 17:45, Bob Bridges wrote: >> Nothing useful to say about your first question, but about the second: I >> can think of two ways to pull your access information for a list of datasets. >> >> 1) Query the system about which security app is running (RACF,
Re: ISPF 3.4 DSLIST questions
Both are one call. On 2020-07-09 14:25, Jesse 1 Robinson wrote: One call to your program, or one call to RACF? . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of David Spiegel Sent: Thursday, July 9, 2020 1:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: ISPF 3.4 DSLIST questions CAUTION EXTERNAL EMAIL Hi Skip, My program does it in one call. Regards, David On 2020-07-09 00:20, Jesse 1 Robinson wrote: My experience with RACF echoes Bob Bridges, as does the excellent code sample from David Spiegel. A single call directly to RACF returns a yes/no for the level of access queried in that call. Ages ago I worked in an ASM2 shop. As I recall, ASM2 allowed a single call to determine the highest level of access allowed. In any case, it's a shame that RACF requires multiple calls. David's code appears to do that but masks it for the user. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mike Hochee Sent: Wednesday, July 8, 2020 9:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: ISPF 3.4 DSLIST questions CAUTION EXTERNAL EMAIL Hi Bob, If was unfamiliar with assembler, I would not start by attempting to use RACROUTE macros, as the combination of the two is a lot to chew on IMO. RACSEQ is a TSO command/utility for RACF written by Bruce wells of IBM some years ago. Documentation and assembler source are available here... https://eur06.safelinks.protection.outlook.com/?url=ftp%3A%2F%2Fftp.ww w.ibm.com%2Fs390%2Fzos%2Fracf%2Fracseq%2FracseqReadMe.pdf&data=02% 7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435a aaa%7C1%7C0%7C637298652463812056&sdata=eEwr70f%2BfqMkQRw60AnpP PIXMcSfXd0BZUtBrqf0a8s%3D&reserved=0 It is certainly callable from Rexx and is something you can customize if desired. Rather than RACROUTE, the program makes use of the RACF R_admin callable service. RACF callable service functionality may map more closely to the kind of permission/resource related questions you posed. The RACF callable services are documented here... https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww- 01.ibm.com%2Fservers%2Fresourcelink%2Fsvc00100.nsf%2Fpages%2FzOSV2R3sa 232293%2F%24file%2Fichd100_v2r3.pdf&data=02%7C01%7C%7Cc1ba10f375ae 4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C6372 98652463812056&sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1KOK Ck%3D&reserved=0 HTH, Mike -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bob Bridges Sent: Wednesday, July 8, 2020 7:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF 3.4 DSLIST questions Caution! This message was sent from outside your organization. I've been doing mainframe security for a few decades now, but I've never learned IBM's version of assembler (I still have ambitions of doing that eventually) so I may be mistaken about how RACROUTE works. But my impression is that the question the OS asks the security system might look like this: "About resource HLQ.XYZ in class DATASET, does ABC have UPDATE access to it?" In other words, the question specifies the class, the resource name, the user's ID and the level of access (READ or whatever), and the answer is a simple Yes or No (or in rare cases "I can't tell"). Am I mistaken in that? If not, then how do you learn what access ABC has to HLQ.XYZ without asking once for READ, once for UPDATE and so on? --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* People don't really want to go back to a time when the world was simpler. They want to go back to a time when they didn't understand how complicated the world has always been. */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of David Spiegel Sent: Tuesday, July 7, 2020 18:15 "... But if you want to know all the kinds of access you have, you'd need to ask the question three or four times, for read, update, execute and create. ..." This statement is not true. I published an Assembler program and a Rexx Exec here on June 14. My program has been placed on CBT File 836 (for now, it's in the Update section of the website). --- On 2020-07-07 17:45, Bob Bridges wrote: Nothing useful to say about your first question, but about the second: I can think of two ways to pull your access information for a list of datasets. 1) Query the system about which security app is running (RACF, ACF2 or TSS), then issue the commands and parse the output. Display only the brief results, eg "RW" for "read/write". I have a REXX that
Re: SuperWylbur Users
In article <1298199795294174.wa.paulgboulderaim@listserv.ua.edu> you wrote: > On Thu, 9 Jul 2020 13:02:20 -0400, Don Poitras wrote: > >... > >> (Are there DBCS terminals? Does ISPF support them?) > > > >Yes and yes. Condor (from Phoenix) does too since I added the support. > > > This?: https://phoenixsoftware.com/condor.htm > Doesn't seem to be a terminal emulator. It's not. The "too" referred to ISPF, not a terminal. And I'm talking about real terminals obviously, not emulators, but ISPF and Condor should work on any emulator that supports DBCS. > What CP/CCSID? Does it expect a file containing SI/SO, or a > plain old UTF-8 file with ISPF supplying SI/SO if needed? No idea. DBCS supports Korean, Japanese and "simplified" Chinese. In my testing, I just hit random three buttons to create glyphs. The files contain the SI/SO and double-byte characters. You can have EBCDIC as double-byte chars too. They just take up two positions on the screen/ paper. Good for drawing attention to things. :) > >... a bottle of Windex, ... > > > Windex? Is that CDC approved? I guess it has ammonia and alcohol. > >While I was testing the code, I used ISPF to make sure I was covering > >all the edge cases (in this case, "edge" was literal in that you could > >shift text right or left and end up with the shift-in/shift-out characters > >un-paired). > > > that sounds like a defect. Certainly. I'm sure it got fixed in the last 30 years at some point. > -- gil -- Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive sas...@sas.com (919) 531-5637Cary, NC 27513 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF 3.4 DSLIST questions
One call to RACF - according to the description for the STATUS=ACCESS keyword on the RACROUTE REQUEST=AUTH macro in the RACROUTE manual: ACCESS - The request is simply to return the user's highest current access to the resource specified. Upon successful completion, the user's access is returned in the RACF reason code. No auditing is done for this request. Note: 1. If the ATTR= keyword is specified along with STATUS=ACCESS, the ATTR= keyword is ignored. 2. To use the STATUS=ACCESS keyword, you must specify RELEASE=1.9 or later. Lou -- Artificial Intelligence is no match for Natural Stupidity - Unknown On Thu, Jul 9, 2020 at 1:25 PM Jesse 1 Robinson wrote: > One call to your program, or one call to RACF? > > . > . > J.O.Skip Robinson > Southern California Edison Company > Electric Dragon Team Paddler > SHARE MVS Program Co-Manager > 323-715-0595 Mobile > 626-543-6132 Office ⇐=== NEW > robin...@sce.com > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of David Spiegel > Sent: Thursday, July 9, 2020 1:30 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: (External):Re: ISPF 3.4 DSLIST questions > > CAUTION EXTERNAL EMAIL > > Hi Skip, > My program does it in one call. > > Regards, > David > > On 2020-07-09 00:20, Jesse 1 Robinson wrote: > > My experience with RACF echoes Bob Bridges, as does the excellent code > sample from David Spiegel. A single call directly to RACF returns a yes/no > for the level of access queried in that call. > > > > Ages ago I worked in an ASM2 shop. As I recall, ASM2 allowed a single > call to determine the highest level of access allowed. In any case, it's a > shame that RACF requires multiple calls. David's code appears to do that > but masks it for the user. > > > > . > > . > > J.O.Skip Robinson > > Southern California Edison Company > > Electric Dragon Team Paddler > > SHARE MVS Program Co-Manager > > 323-715-0595 Mobile > > 626-543-6132 Office ⇐=== NEW > > robin...@sce.com > > > > -Original Message- > > From: IBM Mainframe Discussion List On > > Behalf Of Mike Hochee > > Sent: Wednesday, July 8, 2020 9:07 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: (External):Re: ISPF 3.4 DSLIST questions > > > > CAUTION EXTERNAL EMAIL > > > > Hi Bob, > > > > If was unfamiliar with assembler, I would not start by attempting to use > RACROUTE macros, as the combination of the two is a lot to chew on IMO. > > > > RACSEQ is a TSO command/utility for RACF written by Bruce wells of IBM > > some years ago. Documentation and assembler source are available > > here... > > https://eur06.safelinks.protection.outlook.com/?url=ftp%3A%2F%2Fftp.ww > > w.ibm.com%2Fs390%2Fzos%2Fracf%2Fracseq%2FracseqReadMe.pdf&data=02% > > 7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435a > > aaa%7C1%7C0%7C637298652463812056&sdata=eEwr70f%2BfqMkQRw60AnpP > > PIXMcSfXd0BZUtBrqf0a8s%3D&reserved=0 It is certainly callable > > from Rexx and is something you can customize if desired. Rather than > > RACROUTE, the program makes use of the RACF R_admin callable service. > > RACF callable service functionality may map more closely to the kind > > of permission/resource related questions you posed. The RACF callable > > services are documented here... > > https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww- > > 01.ibm.com%2Fservers%2Fresourcelink%2Fsvc00100.nsf%2Fpages%2FzOSV2R3sa > > 232293%2F%24file%2Fichd100_v2r3.pdf&data=02%7C01%7C%7Cc1ba10f375ae > > 4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C6372 > > 98652463812056&sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1KOK > > Ck%3D&reserved=0 > > > > HTH, > > Mike > > > > -Original Message- > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > > On Behalf Of Bob Bridges > > Sent: Wednesday, July 8, 2020 7:04 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: ISPF 3.4 DSLIST questions > > > > Caution! This message was sent from outside your organization. > > > > I've been doing mainframe security for a few decades now, but I've never > learned IBM's version of assembler (I still have ambitions of doing that > eventually) so I may be mistaken about how RACROUTE works. But my > impression is that the question the OS asks the security system might look > like this: "About resource HLQ.XYZ in class DATASET, does ABC have > UPDATE access to it?" In other words, the question specifies the class, > the resource name, the user's ID and the level of access (READ or > whatever), and the answer is a simple Yes or No (or in rare cases "I can't > tell"). > > > > Am I mistaken in that? If not, then how do you learn what access ABC > has to HLQ.XYZ without asking once for READ, once for UPDATE and so on? > > > > --- > > Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 > > > > /* People don't really want to go back to a time when the world was > > simpler. They want to go back to a time when they didn't understand > > how complicated the world has a
Silly ISMF question
I am running ISMF to get a list of volumes (2.1) and many volumes are missing from the list. I ran thru all of the options and don't see any filters. What obvious thing am I doing wrong? It worked a few days ago, when I set SMS as the source of the list. I reset it to physical but still only SMS. -- 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
Re: [External] Silly ISMF question
Obvious questions would be 1) do you have some kind of filter on screens 2 or 3 of the selection criteria? 2) old CDS name? 3) using a saved list instead of generating a new one for the source? If none of these things are it, may I suggest showing us your volume selection entry panel? Rex -Original Message- From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen Sent: Thursday, July 9, 2020 2:35 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [External] Silly ISMF question I am running ISMF to get a list of volumes (2.1) and many volumes are missing from the list. I ran thru all of the options and don't see any filters. What obvious thing am I doing wrong? It worked a few days ago, when I set SMS as the source of the list. I reset it to physical but still only SMS. -- 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 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
Re: ISPF 3.4 DSLIST questions
Deepest apologies to David Spiegel. And to IBM. I never noticed the ACCESS option on the RACROUTE macro even though it's been there for a long time. RACF 1.9 is pretty hoary. So David's program is a nifty way to get the highest level of access allowed with a single call to RACF. I'm not sure what OP's requirement is for various users. A lot of RACF inquiries are based on the current (issuing) user unless some other user's ACEE is specified. That generally requires running APF authorized. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Lou Losee Sent: Thursday, July 9, 2020 11:58 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: ISPF 3.4 DSLIST questions CAUTION EXTERNAL EMAIL One call to RACF - according to the description for the STATUS=ACCESS keyword on the RACROUTE REQUEST=AUTH macro in the RACROUTE manual: ACCESS - The request is simply to return the user's highest current access to the resource specified. Upon successful completion, the user's access is returned in the RACF reason code. No auditing is done for this request. Note: 1. If the ATTR= keyword is specified along with STATUS=ACCESS, the ATTR= keyword is ignored. 2. To use the STATUS=ACCESS keyword, you must specify RELEASE=1.9 or later. Lou -- Artificial Intelligence is no match for Natural Stupidity - Unknown On Thu, Jul 9, 2020 at 1:25 PM Jesse 1 Robinson wrote: > One call to your program, or one call to RACF? > > . > . > J.O.Skip Robinson > Southern California Edison Company > Electric Dragon Team Paddler > SHARE MVS Program Co-Manager > 323-715-0595 Mobile > 626-543-6132 Office ⇐=== NEW > robin...@sce.com > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of David Spiegel > Sent: Thursday, July 9, 2020 1:30 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: (External):Re: ISPF 3.4 DSLIST questions > > CAUTION EXTERNAL EMAIL > > Hi Skip, > My program does it in one call. > > Regards, > David > > On 2020-07-09 00:20, Jesse 1 Robinson wrote: > > My experience with RACF echoes Bob Bridges, as does the excellent > > code > sample from David Spiegel. A single call directly to RACF returns a > yes/no for the level of access queried in that call. > > > > Ages ago I worked in an ASM2 shop. As I recall, ASM2 allowed a > > single > call to determine the highest level of access allowed. In any case, > it's a shame that RACF requires multiple calls. David's code appears > to do that but masks it for the user. > > > > . > > . > > J.O.Skip Robinson > > Southern California Edison Company > > Electric Dragon Team Paddler > > SHARE MVS Program Co-Manager > > 323-715-0595 Mobile > > 626-543-6132 Office ⇐=== NEW > > robin...@sce.com > > > > -Original Message- > > From: IBM Mainframe Discussion List On > > Behalf Of Mike Hochee > > Sent: Wednesday, July 8, 2020 9:07 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: (External):Re: ISPF 3.4 DSLIST questions > > > > CAUTION EXTERNAL EMAIL > > > > Hi Bob, > > > > If was unfamiliar with assembler, I would not start by attempting to > > use > RACROUTE macros, as the combination of the two is a lot to chew on IMO. > > > > RACSEQ is a TSO command/utility for RACF written by Bruce wells of > > IBM some years ago. Documentation and assembler source are available > > here... > > https://eur06.safelinks.protection.outlook.com/?url=ftp%3A%2F%2Fftp. > > ww > > w.ibm.com%2Fs390%2Fzos%2Fracf%2Fracseq%2FracseqReadMe.pdf&data=0 > > 2% > > 7C01%7C%7Cc1ba10f375ae4291954408d823bf7269%7C84df9e7fe9f640afb435aaa > > aa > > aaa%7C1%7C0%7C637298652463812056&sdata=eEwr70f%2BfqMkQRw60An > > pP > > PIXMcSfXd0BZUtBrqf0a8s%3D&reserved=0 It is certainly callable > > from Rexx and is something you can customize if desired. Rather > > than RACROUTE, the program makes use of the RACF R_admin callable service. > > RACF callable service functionality may map more closely to the kind > > of permission/resource related questions you posed. The RACF > > callable services are documented here... > > https://eur06.safelinks.protection.outlook.com/?url=https%3A%2F%2Fww > > w- > > 01.ibm.com%2Fservers%2Fresourcelink%2Fsvc00100.nsf%2Fpages%2FzOSV2R3 > > sa > > 232293%2F%24file%2Fichd100_v2r3.pdf&data=02%7C01%7C%7Cc1ba10f375 > > ae > > 4291954408d823bf7269%7C84df9e7fe9f640afb435%7C1%7C0%7C63 > > 72 > > 98652463812056&sdata=Pr3%2Ba4ktBbxfWgtzqsaVCF%2BvXMSMovGYt42sT1K > > OK > > Ck%3D&reserved=0 > > > > HTH, > > Mike > > > > -Original Message- > > From: IBM Mainframe Discussion List > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bob Bridges > > Sent: Wednesday, July 8, 2020 7:04 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: ISPF 3.4 DSLIST questions > > > > Caution! This message was sent from outside your organization. > > >
Re: [External] Silly ISMF question
No, no and no Panel Defaults Utilities Scroll Help ss VOLUME SELECTION ENTRY PANEL Page 1 of 3 Command ===> Select Source to Generate Volume List . . 2 (1 - Saved list, 2 - New list)1 Generate from a Saved List Query Name To List Name . . Save or Retrieve2 Generate a New List from Criteria Below Specify Source of the New List . . 1 (1 - Physical, 2 - SMS) Optionally Specify One or More: Enter "/" to select option Generate Exclusive list Type of Volume List . . . 1 (1-Online,2-Not Online,3-Either) Volume Serial Number . . * (fully or partially specified) Device Type . . . . . . .(fully or partially specified) Device Number . . . . . .(fully specified) To Device Number . . .(for range of devices) Acquire Physical Data . . Y (Y or N) Acquire Space Data . . . Y (Y or N) Storage Group Name . . . * (fully or partially specified) CDS Name . . . . . . . 'ACTIVE' (fully specified or 'Active') Use ENTER to Perform Selection; Use DOWN Command to View next Selection Panel; Use HELP Command for Help; Use END Command to Exit. On Thu, 9 Jul 2020 20:03:33 + "Pommier, Rex" wrote: :>Obvious questions would be :> :>1) do you have some kind of filter on screens 2 or 3 of the selection criteria? :>2) old CDS name? :>3) using a saved list instead of generating a new one for the source? :> :>If none of these things are it, may I suggest showing us your volume selection entry panel? :> :>Rex :> :>-Original Message- :>From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen :>Sent: Thursday, July 9, 2020 2:35 PM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: [External] Silly ISMF question :> :>I am running ISMF to get a list of volumes (2.1) and many volumes are missing from the list. I ran thru all of the options and don't see any filters. :> :>What obvious thing am I doing wrong? It worked a few days ago, when I set SMS as the source of the list. I reset it to physical but still only SMS. -- 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
potential catalog search error - shown by IGGCSI00
While I’m waiting on my sysprog and IBM to finish scratching their heads I thought I’d ask if anyone had run into and corrected a similar situation. And many thanks to Kirk Wolf for patiently helping isolate where the issue seems to be. Situation : On one particular LPAR I cannot retrieve a dataset via SFTP and also cannot find the specific dataset with sys1.samplib(iggcsirx). I used Co:Z SFTP to “put” the dataset to the LPAR; I can use regular FTP to “get” the dataset; I can edit the dataset in ISPF; from my Windows workstation using SFTP I can see the dataset when I issue the “ls” command but when I “get” the dataset I get a “dataset not found” error. Same result when using Filezilla – when connecting to FTP I can “put” and “get” with no difficulty but when using SFTP I can “put”, see the dataset in the listing on the mainframe, but I can’t “get” the dataset. Frustrating ! On TSO with the sys1.samplib(iggcsirx) REXX using the specific name as the filter key - CCTSD02.TRIM.TXT - yields nothing but wild-carding the filter key - CCTSD02.TRIM.TXT.** - returns the catalog information as expected. I have verified that this is the same behavior for any dataset on the LPAR – you must wild-card the name in order to get the catalog info returned. There is also a user-started SAP process integration task using plain FTP and IGGCSI00 that fails unless the dataset name is wild-carded On a second LPAR on the same CEC that shares the user catalogs, the REXX returns the catalog information in both scenarios ( with and without the wild-card ). This makes me think that there is something uniquely set/broken on my problem LPAR but I am at a loss as to where to look now. On a second box with multiple z/OS 2.2 and 2.3 LPARS, the REXX also works as expected with and without the wild-card. Any ideas ? Thanks, Bruce Bruce Lightsey Database Manager MS Department of Information Technology Services 601-432-8144 | www.its.ms.gov DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [External] Silly ISMF question
I'm not seeing anything abnormal either. Is there any pattern to the missing volumes? All on a certain LCU or LCUs? Certain vol-ser patterns? Do you still have the missing volumes if you switch back to an SMS view instead of a physical view? You said in your original post that you are seeing SMS, is that as "I only see SMS managed disk and no non-SMS disk."? Rex -Original Message- From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen Sent: Thursday, July 9, 2020 3:22 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] Silly ISMF question No, no and no Panel Defaults Utilities Scroll Help ss VOLUME SELECTION ENTRY PANEL Page 1 of 3 Command ===> Select Source to Generate Volume List . . 2 (1 - Saved list, 2 - New list)1 Generate from a Saved List Query Name To List Name . . Save or Retrieve2 Generate a New List from Criteria Below Specify Source of the New List . . 1 (1 - Physical, 2 - SMS) Optionally Specify One or More: Enter "/" to select option Generate Exclusive list Type of Volume List . . . 1 (1-Online,2-Not Online,3-Either) Volume Serial Number . . * (fully or partially specified) Device Type . . . . . . .(fully or partially specified) Device Number . . . . . .(fully specified) To Device Number . . .(for range of devices) Acquire Physical Data . . Y (Y or N) Acquire Space Data . . . Y (Y or N) Storage Group Name . . . * (fully or partially specified) CDS Name . . . . . . . 'ACTIVE' (fully specified or 'Active') Use ENTER to Perform Selection; Use DOWN Command to View next Selection Panel; Use HELP Command for Help; Use END Command to Exit. On Thu, 9 Jul 2020 20:03:33 + "Pommier, Rex" wrote: :>Obvious questions would be :> :>1) do you have some kind of filter on screens 2 or 3 of the selection criteria? :>2) old CDS name? :>3) using a saved list instead of generating a new one for the source? :> :>If none of these things are it, may I suggest showing us your volume selection entry panel? :> :>Rex :> :>-Original Message- :>From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen :>Sent: Thursday, July 9, 2020 2:35 PM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: [External] Silly ISMF question :> :>I am running ISMF to get a list of volumes (2.1) and many volumes are missing from the list. I ran thru all of the options and don't see any filters. :> :>What obvious thing am I doing wrong? It worked a few days ago, when I set SMS as the source of the list. I reset it to physical but still only SMS. -- 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 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
Re: potential catalog search error - shown by IGGCSI00
Using ISPF 3.4 with PF10 and starting with CCTSD02.** (and / on Display Catalog Name), check for items catalogued in more than 1 catalog or in other catalogs than where they should be. Maybe the Catalog Alias is pointing wrong? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: potential catalog search error - shown by IGGCSI00 [EXTERNAL]
This all sounds like similar behavior of the option in 3.4 called "Include Additional Qualifiers". If you don't set the option on you have to wild card your dataset list. With the option set on you don't have to use wild card to get a dataset list. All the code I've ever written using IGGCSI00 I've had to use wild cards to get the list of datasets I wanted. In the manual they talk about how the use of wild cards or no wild cards will affect the output from IGGCSI00. Thanks.. Paul Feller GTS Mainframe Technical Support -Original Message- From: IBM Mainframe Discussion List On Behalf Of Bruce Lightsey Sent: Thursday, July 09, 2020 3:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: potential catalog search error - shown by IGGCSI00 [EXTERNAL] While I’m waiting on my sysprog and IBM to finish scratching their heads I thought I’d ask if anyone had run into and corrected a similar situation. And many thanks to Kirk Wolf for patiently helping isolate where the issue seems to be. Situation : On one particular LPAR I cannot retrieve a dataset via SFTP and also cannot find the specific dataset with sys1.samplib(iggcsirx). I used Co:Z SFTP to “put” the dataset to the LPAR; I can use regular FTP to “get” the dataset; I can edit the dataset in ISPF; from my Windows workstation using SFTP I can see the dataset when I issue the “ls” command but when I “get” the dataset I get a “dataset not found” error. Same result when using Filezilla – when connecting to FTP I can “put” and “get” with no difficulty but when using SFTP I can “put”, see the dataset in the listing on the mainframe, but I can’t “get” the dataset. Frustrating ! On TSO with the sys1.samplib(iggcsirx) REXX using the specific name as the filter key - CCTSD02.TRIM.TXT - yields nothing but wild-carding the filter key - CCTSD02.TRIM.TXT.** - returns the catalog information as expected. I have verified that this is the same behavior for any dataset on the LPAR – you must wild-card the name in order to get the catalog info returned. There is also a user-started SAP process integration task using plain FTP and IGGCSI00 that fails unless the dataset name is wild-carded On a second LPAR on the same CEC that shares the user catalogs, the REXX returns the catalog information in both scenarios ( with and without the wild-card ). This makes me think that there is something uniquely set/broken on my problem LPAR but I am at a loss as to where to look now. On a second box with multiple z/OS 2.2 and 2.3 LPARS, the REXX also works as expected with and without the wild-card. Any ideas ? Thanks, Bruce Bruce Lightsey Database Manager MS Department of Information Technology Services 601-432-8144 | https://urldefense.proofpoint.com/v2/url?u=http-3A__www.its.ms.gov&d=DwIGaQ&c=9g4MJkl2VjLjS6R4ei18BA&r=eUhu3PeeWy6RTndlJVKembFjFsvwCa8eeU_gm45NyOc&m=yQ_O6gYQZatAmk6Zs4DxQjbCNjxCuMqyqBDw7Xlhy5w&s=JrIRHIrdY02BprhEP7j2JeskQTv6oePFPV0mhXYhJws&e= DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Please note: This message originated outside your organization. Please use caution when opening links or attachments. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IFG0EX0B to increase secondary allocation
I don't follow. I understand the JFCNWRIT flag, as it's documented. I don't know why you would set it in the first place if you don't have a good reason for it. But where did this undocumented flag that you're now setting come from and how does it relate to JFCNWRIT? sas On Thu, Jul 9, 2020 at 1:40 PM PINION, RICHARD W. wrote: > I'd like to take this opportunity to thank Sri Kolusu, of IBM, for taking > the time > to help with the open exit IFG0EX0B, in regards to IEBGENER/ICEGENER and > DF/SORT. > He has spent the last few days researching and testing. > > He came up with a solution, and the exit is now working with > IEBGENER/ICEGENER > and DF/SORT. Below is the solution he came up with. > > "And the reason as to why the increased secondary quantity in the 3.4 is > because you haven't forced the modified JFCB writeback into the DSCB > > There's a long discussion of RDJFCB in DFSMSdfp Advanced Services. > > Tip: If you set the bit JFCNWRIT in the JFCBTSDM field to 1 before you > issue the OPEN macro instruction, the JFCB is not written back at the > conclusion of open processing. OPEN TYPE=J normally moves your program's > modified copy of the JFCB, to replace the system copy. To ensure that this > move is done, your program must set bit zero of the JFCBMASK+4 field to 1. > IBM recommends not setting on JFCNWRIT. > > So I would add the flag to set jfcbmask+4 bit 0 to 1 when the secondary > gets modified. > > Here is the modified code at label STSQTY (in blue color) > > STSQTY EQU * STORE SECONDARY QTY >STCM RODD,7,JFCBSQTY >OI JFCBMASK+4,X'80'REQUEST JFCB WRITEBACK >LA RINCODE,MODJFCB JFCB MODIFIED >RETSQTY EQU * RETURN FROM SQTY >BR RET RETURN " > > 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: IFG0EX0B to increase secondary allocation
That's what I got from Sri. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Steve Smith Sent: Thursday, July 9, 2020 5:21 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IFG0EX0B to increase secondary allocation [External Email. Exercise caution when clicking links or opening attachments.] I don't follow. I understand the JFCNWRIT flag, as it's documented. I don't know why you would set it in the first place if you don't have a good reason for it. But where did this undocumented flag that you're now setting come from and how does it relate to JFCNWRIT? sas On Thu, Jul 9, 2020 at 1:40 PM PINION, RICHARD W. wrote: > I'd like to take this opportunity to thank Sri Kolusu, of IBM, for > taking the time to help with the open exit IFG0EX0B, in regards to > IEBGENER/ICEGENER and DF/SORT. > He has spent the last few days researching and testing. > > He came up with a solution, and the exit is now working with > IEBGENER/ICEGENER and DF/SORT. Below is the solution he came up with. > > "And the reason as to why the increased secondary quantity in the 3.4 > is because you haven't forced the modified JFCB writeback into the > DSCB > > There's a long discussion of RDJFCB in DFSMSdfp Advanced Services. > > Tip: If you set the bit JFCNWRIT in the JFCBTSDM field to 1 before you > issue the OPEN macro instruction, the JFCB is not written back at the > conclusion of open processing. OPEN TYPE=J normally moves your > program's modified copy of the JFCB, to replace the system copy. To > ensure that this move is done, your program must set bit zero of the > JFCBMASK+4 field to 1. > IBM recommends not setting on JFCNWRIT. > > So I would add the flag to set jfcbmask+4 bit 0 to 1 when the > secondary gets modified. > > Here is the modified code at label STSQTY (in blue color) > > STSQTY EQU * STORE SECONDARY QTY >STCM RODD,7,JFCBSQTY >OI JFCBMASK+4,X'80'REQUEST JFCB WRITEBACK >LA RINCODE,MODJFCB JFCB MODIFIED >RETSQTY EQU * RETURN FROM SQTY >BR RET RETURN " > > 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IFG0EX0B to increase secondary allocation
>>But where did this undocumented flag that you're now setting come from and how does it relate to JFCNWRIT? Steve, Looks like you skipped over "There's a long discussion of RDJFCB in DFSMSdfp Advanced Services." If you read the "Reading and Modifying a Job File Control Block (RDJFCB Macro)" section in the DFSMSdfp Advanced Services manual you would find the recommendation. Here is the link for V2R3 pdf https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3sc236861/$file/idas300_v2r3.pdf The Tip is documented on Page 255 under the "Reading and Modifying a Job File Control Block (RDJFCB Macro)" section OP wanted to get his IFG0EX0B exit working and I just helped to debug and make it work. Thanks, Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List wrote on 07/09/2020 02:21:03 PM: > From: Steve Smith > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 07/09/2020 02:21 PM > Subject: [EXTERNAL] Re: IFG0EX0B to increase secondary allocation > Sent by: IBM Mainframe Discussion List > > I don't follow. I understand the JFCNWRIT flag, as it's documented. I > don't know why you would set it in the first place if you don't have a good > reason for it. But where did this undocumented flag that you're now > setting come from and how does it relate to JFCNWRIT? > > sas > > > On Thu, Jul 9, 2020 at 1:40 PM PINION, RICHARD W. > wrote: > > > I'd like to take this opportunity to thank Sri Kolusu, of IBM, for taking > > the time > > to help with the open exit IFG0EX0B, in regards to IEBGENER/ICEGENER and > > DF/SORT. > > He has spent the last few days researching and testing. > > > > He came up with a solution, and the exit is now working with > > IEBGENER/ICEGENER > > and DF/SORT. Below is the solution he came up with. > > > > "And the reason as to why the increased secondary quantity in the 3.4 is > > because you haven't forced the modified JFCB writeback into the DSCB > > > > There's a long discussion of RDJFCB in DFSMSdfp Advanced Services. > > > > Tip: If you set the bit JFCNWRIT in the JFCBTSDM field to 1 before you > > issue the OPEN macro instruction, the JFCB is not written back at the > > conclusion of open processing. OPEN TYPE=J normally moves your program's > > modified copy of the JFCB, to replace the system copy. To ensure that this > > move is done, your program must set bit zero of the JFCBMASK+4 field to 1. > > IBM recommends not setting on JFCNWRIT. > > > > So I would add the flag to set jfcbmask+4 bit 0 to 1 when the secondary > > gets modified. > > > > Here is the modified code at label STSQTY (in blue color) > > > > STSQTY EQU * STORE SECONDARY QTY > >STCM RODD,7,JFCBSQTY > >OI JFCBMASK+4,X'80'REQUEST JFCB WRITEBACK > >LA RINCODE,MODJFCB JFCB MODIFIED > >RETSQTY EQU * RETURN FROM SQTY > >BR RET RETURN " > > > > 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 > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: potential catalog search error - shown by IGGCSI00
Increase the region on the job(s) doing the retrieval. CSI returns the data in a buffer in *YOUR* private storage, not his. Depending on the amount of data returned by the request you might/might not receive a correct answer. The results can range from success to "not found" (your case) or S878 abends. HTH, -Original Message- From: IBM Mainframe Discussion List On Behalf Of Bruce Lightsey Sent: Thursday, July 9, 2020 3:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: potential catalog search error - shown by IGGCSI00 [CAUTION: This Email is from outside the Organization. Unless you trust the sender, Don’t click links or open attachments as it may be a Phishing email, which can steal your Information and compromise your Computer.] While I’m waiting on my sysprog and IBM to finish scratching their heads I thought I’d ask if anyone had run into and corrected a similar situation. And many thanks to Kirk Wolf for patiently helping isolate where the issue seems to be. Situation : On one particular LPAR I cannot retrieve a dataset via SFTP and also cannot find the specific dataset with sys1.samplib(iggcsirx). I used Co:Z SFTP to “put” the dataset to the LPAR; I can use regular FTP to “get” the dataset; I can edit the dataset in ISPF; from my Windows workstation using SFTP I can see the dataset when I issue the “ls” command but when I “get” the dataset I get a “dataset not found” error. Same result when using Filezilla – when connecting to FTP I can “put” and “get” with no difficulty but when using SFTP I can “put”, see the dataset in the listing on the mainframe, but I can’t “get” the dataset. Frustrating ! On TSO with the sys1.samplib(iggcsirx) REXX using the specific name as the filter key - CCTSD02.TRIM.TXT - yields nothing but wild-carding the filter key - CCTSD02.TRIM.TXT.** - returns the catalog information as expected. I have verified that this is the same behavior for any dataset on the LPAR – you must wild-card the name in order to get the catalog info returned. There is also a user-started SAP process integration task using plain FTP and IGGCSI00 that fails unless the dataset name is wild-carded On a second LPAR on the same CEC that shares the user catalogs, the REXX returns the catalog information in both scenarios ( with and without the wild-card ). This makes me think that there is something uniquely set/broken on my problem LPAR but I am at a loss as to where to look now. On a second box with multiple z/OS 2.2 and 2.3 LPARS, the REXX also works as expected with and without the wild-card. Any ideas ? Thanks, Bruce Bruce Lightsey Database Manager MS Department of Information Technology Services 601-432-8144 | https://apc01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.its.ms.gov%2F&data=02%7C01%7Callan.staller%40HCL.COM%7Cfcb9a060c223460e884608d824494fa3%7C189de737c93a4f5a8b686f4ca9941912%7C0%7C0%7C637299244596160894&sdata=hol%2Bhz9iqcXZKQ5pC6mPBIpDehrI5sDz6mrvYzUMyUA%3D&reserved=0 DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ::DISCLAIMER:: The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only. E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. The e mail and its contents (with or without referred errors) shall therefore not attach any liability on the originator or HCL or its affiliates. Views or opinions, if any, presented in this email are solely those of the author and may not necessarily reflect the views or opinions of HCL or its affiliates. Any form of reproduction, dissemination, copying, disclosure, modification, distribution and / or publication of this message without the prior written consent of authorized representative of HCL is strictly prohibited. If you have received this email in error please delete it and notify the sender immediately. Before opening any email and/or attachments, ple
Re: potential catalog search error - shown by IGGCSI00
How is CCTSD02 defined in each master catalog? Are you using MLA? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Bruce Lightsey [bruce.light...@its.ms.gov] Sent: Thursday, July 9, 2020 4:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: potential catalog search error - shown by IGGCSI00 While I’m waiting on my sysprog and IBM to finish scratching their heads I thought I’d ask if anyone had run into and corrected a similar situation. And many thanks to Kirk Wolf for patiently helping isolate where the issue seems to be. Situation : On one particular LPAR I cannot retrieve a dataset via SFTP and also cannot find the specific dataset with sys1.samplib(iggcsirx). I used Co:Z SFTP to “put” the dataset to the LPAR; I can use regular FTP to “get” the dataset; I can edit the dataset in ISPF; from my Windows workstation using SFTP I can see the dataset when I issue the “ls” command but when I “get” the dataset I get a “dataset not found” error. Same result when using Filezilla – when connecting to FTP I can “put” and “get” with no difficulty but when using SFTP I can “put”, see the dataset in the listing on the mainframe, but I can’t “get” the dataset. Frustrating ! On TSO with the sys1.samplib(iggcsirx) REXX using the specific name as the filter key - CCTSD02.TRIM.TXT - yields nothing but wild-carding the filter key - CCTSD02.TRIM.TXT.** - returns the catalog information as expected. I have verified that this is the same behavior for any dataset on the LPAR – you must wild-card the name in order to get the catalog info returned. There is also a user-started SAP process integration task using plain FTP and IGGCSI00 that fails unless the dataset name is wild-carded On a second LPAR on the same CEC that shares the user catalogs, the REXX returns the catalog information in both scenarios ( with and without the wild-card ). This makes me think that there is something uniquely set/broken on my problem LPAR but I am at a loss as to where to look now. On a second box with multiple z/OS 2.2 and 2.3 LPARS, the REXX also works as expected with and without the wild-card. Any ideas ? Thanks, Bruce Bruce Lightsey Database Manager MS Department of Information Technology Services 601-432-8144 | www.its.ms.gov DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@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: IFG0EX0B to increase secondary allocation
Well, actually I have read that section, although some time ago. I am very surprised to see that Richard Pinion's post was a direct quote from there! Sorry for assuming it So I still have the same question, I just don't hope much for an answer, as it would presumably have to be answered by whoever wrote that part of the manual. That sentence about "must set bit zero of the JFCBMASK+4 field to 1" is a non-sequitur in the middle of the discussion of JFCNWRIT. Again, I'm familiar with JFCNWRIT (and the fact it has a negative name, which is bad form). I have programs that set that when I don't want write-back, and I leave it when I do. I must have overlooked that part about the random bit in JFCBMASK before, but it sure isn't explained. sas On Thu, Jul 9, 2020 at 6:29 PM Sri h Kolusu wrote: > >>But where did this undocumented flag that you're now setting come from > and how does it relate to JFCNWRIT? > > Steve, > > Looks like you skipped over "There's a long discussion of RDJFCB in > DFSMSdfp Advanced Services." > > If you read the "Reading and Modifying a Job File Control Block (RDJFCB > Macro)" section in the DFSMSdfp Advanced Services manual you would find the > recommendation. > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IFG0EX0B to increase secondary allocation
I want to say - Sri - Thank You for your above and beyond help on ALL the list’s. Your mentor would be very proud indeed! Big shoes to fill and you have done an amazing job! Best Regards, Doug Shupe Stay Safe >> On Jul 9, 2020, at 18:29, Sri h Kolusu wrote: > >> >>> But where did this undocumented flag that you're now setting come from > and how does it relate to JFCNWRIT? > > Steve, > > Looks like you skipped over "There's a long discussion of RDJFCB in > DFSMSdfp Advanced Services." > > If you read the "Reading and Modifying a Job File Control Block (RDJFCB > Macro)" section in the DFSMSdfp Advanced Services manual you would find the > recommendation. > > Here is the link for V2R3 pdf > > https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3sc236861/$file/idas300_v2r3.pdf > > The Tip is documented on Page 255 under the "Reading and Modifying a Job > File Control Block (RDJFCB Macro)" section > > OP wanted to get his IFG0EX0B exit working and I just helped to debug and > make it work. > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > IBM Mainframe Discussion List wrote on > 07/09/2020 02:21:03 PM: > >> From: Steve Smith >> To: IBM-MAIN@LISTSERV.UA.EDU >> Date: 07/09/2020 02:21 PM >> Subject: [EXTERNAL] Re: IFG0EX0B to increase secondary allocation >> Sent by: IBM Mainframe Discussion List >> >> I don't follow. I understand the JFCNWRIT flag, as it's documented. I >> don't know why you would set it in the first place if you don't have a > good >> reason for it. But where did this undocumented flag that you're now >> setting come from and how does it relate to JFCNWRIT? >> >> sas >> >> >>> On Thu, Jul 9, 2020 at 1:40 PM PINION, RICHARD W. >> >>> wrote: >>> I'd like to take this opportunity to thank Sri Kolusu, of IBM, for > taking >>> the time >>> to help with the open exit IFG0EX0B, in regards to IEBGENER/ICEGENER > and >>> DF/SORT. >>> He has spent the last few days researching and testing. >>> He came up with a solution, and the exit is now working with >>> IEBGENER/ICEGENER >>> and DF/SORT. Below is the solution he came up with. >>> "And the reason as to why the increased secondary quantity in the 3.4 > is >>> because you haven't forced the modified JFCB writeback into the DSCB >>> There's a long discussion of RDJFCB in DFSMSdfp Advanced Services. >>> Tip: If you set the bit JFCNWRIT in the JFCBTSDM field to 1 before you >>> issue the OPEN macro instruction, the JFCB is not written back at the >>> conclusion of open processing. OPEN TYPE=J normally moves your > program's >>> modified copy of the JFCB, to replace the system copy. To ensure that > this >>> move is done, your program must set bit zero of the JFCBMASK+4 field to > 1. >>> IBM recommends not setting on JFCNWRIT. >>> So I would add the flag to set jfcbmask+4 bit 0 to 1 when the secondary >>> gets modified. >>> Here is the modified code at label STSQTY (in blue color) >>> STSQTY EQU * STORE SECONDARY QTY >>> STCM RODD,7,JFCBSQTY >>> OI JFCBMASK+4,X'80'REQUEST JFCB WRITEBACK >>> LA RINCODE,MODJFCB JFCB MODIFIED >>> RETSQTY EQU * RETURN FROM SQTY >>> BR RET RETURN " >>> 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 > > -- > 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
COBOL 6.3 compiler options question
>Can somebody give me a definitive definition of the NOJTC and JTC compiler = >options in 6.3? I'm not seeing it in the COBOL reference or any COBOL manu= >al for that matter, yet it shows up on the option list when we compile a pr= >ogram: > >NOFLAGSTD =20 > HGPR(PRESERVE) =20 >NOINITCHECK =20 >NOINITIAL =20 > INLINE =20 > INTDATE(ANSI) =20 >NOJTC =20 > LANGUAGE(EN)=20 > LINECOUNT(60) =20 Rex, et al, Sorry about that! JTC is an option that we are working on and not ready to ship, but we accidentally externalized JTC in the listing. If you apply the latest maintenance to your compiler it will go away! Cheers, TomR >> COBOL is the Language of the Future! << -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SuperWylbur Users
The Wylbur source that I had was all ALC. That is not ALC.
As I recall, the V7 source that we had at ACS, was the OBS/WYLBUR
source that was pretty close to what came from Stanford.
The V8.1 source was just before the dispatch/task control changes
were done, and the SVC99 work.
The V9 source had the multiple TCBs (similar to what CICS/TS
would have) and SVC99. The V9.5 code had the re-write of the JES2
SRB code (what I did to make it easier to handle multiple
version/release/modlevels of JES2), and some upgrades to JES3 and
all zap maint was forced into the source (because no one had done
that before).
So, what you have does not look like anything I recall for
WYLBUR, nor does it look like anything I had from Stanford when I
tried to resurrect WYLBUR.
Regards,
Steve Thompson
On 7/9/20 9:23 AM, DAL POS Raphael wrote:
Hi list,
Wilbur source is not that "trashed".
After uploading it to USS I can access the code in a perfectly readable way
using ISPF Edit :
EDIT /u/sys56/WYLORV/Mainframe/GG.PUB/WINGS.COMMANDS Columns 1 00
Command ===> Scroll ===> C
** * Top of Data **
01 ;
02 ; Wings - ALLOCATE command
03 ;
04 xproc () begin
05
06declare number x.pathno
07declare string open_str
08declare string open_opt
09declare string wing_path
10declare string msg xmsg pmsg
11declare string rc cr
12declare boolean debug
13cr = SHEX('0D') ; CR CHARACTER
14
15
16 ;***debug: set true
17 debug=false
I use ISPF 3.17 to access the directory. Edit the member on the displayed list.
Just that you must specify ASCII on the Edit Entry panel:
Data Encoding
1 1. ASCII
2. UTF-8
Furthermore you can use CUT and PASTE to copy it to a regular PDS.
Ciao,
--
Raphael Dal Pos / z/OS Support
Generali Shared Services S.c.a.r.l.
GSS\CIN-MF (Central Infrastructure Mainframe)
11-17, Avenue François Mitterrand
93200 Saint Denis / France
Wilo W 03 B1 029C
raphael.dal...@generali.com +(33)1-58-38-59-67
or mobile +(33)6.24.33.20.87
--
"MVS: Guilty, until proven innocent !!" RDP 2009
-Message d'origine-
De : IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] De la part
de Tony Harminc
Envoyé : jeudi 9 juillet 2020 01:33
À : IBM-MAIN@LISTSERV.UA.EDU
Objet : Re: SuperWylbur Users
On Wed, 8 Jul 2020 at 14:38, Farley, Peter x23353
wrote:
Do you know of a specific program or macro in the package that exhibits this
failure? Or have a link to any public discussion of the issue that describes
the mis-translations?
I DL'd the tgz file directly from Stanford and browsed a few sources at random, but I
didn't see any "weird" characters. One of the mail-related scripts I reviewed
seemed to have legitimate square bracket pairs, so maybe it isn't that particular issue?
I did much the same, and noticed that in the listing files there seems
to have been some post processing done to (among other things)
generate text boxes For example, in
Mainframe\GS.MIL\MILTEN.SOURCE\MSVC there is a line starting with *box
which in the matching listing Assemblies\Milten\MIL#MSVC.txt generates
a box made mostly of X'FE' for the horizontal lines, 9F for the
vertical, and the four corners are BF, DC, BE, and BB. This is neither
ASCII nor EBCDIC in any dialect I recognize, but all the box
characters have been uniquely translated, so that may well also be
true for any unusual characters in the actual source lines.
I doubt that the long-standing claim that the Wylbur source is trashed
is completely invented, but things certainly *look* salvageable at
first glance.
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
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Any interest in PSD I/O for REXX?
I think you'd be disappointed in FAMS, I still don't think it would help. We all wonder why it's a secret, because there ain't that much to it. IEBCOPY and the LISTDSI command pretty much expose all there is. After looking at your old program, I'd give it at least 50-50 odds for working with PDSEs. I think your worst case would be to abandon QSAM fiddling and just provide GET/PUT functions. You could probably make that much more seamless in REXX than in PL/I. sas On Mon, Jul 6, 2020 at 10:40 PM Seymour J Metz wrote: > My STOWBLDL routine at http://mason.gmu.edu/~smetz3/source/STOWBLDL.ASM > has code to quiesce a QSAM DCB before going to a new member and reprime > buffering afterward; this requires dealing with fields in the SAM-E IOB > extension and the SAM-E Interrupt Control Block. I assume that I would need > FAMS to do the equivalent for PDSE. > > > -- > 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
Re: ISPF 3.4 DSLIST questions
Ah, of course you're right, I'd forgotten that. In ACF2 and Top Secret you can have UPDATE without READ, for example - it's needed only rarely, but it's possible with those two - not in RACF. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* Lord, before I commit a sin, it seems to me so shallow that I may wade through it dry-shod from any guiltiness; but when I have committed it, it often seems so deep that I cannot escape without drowning. -Thomas Fuller (1608-1661) */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Thursday, July 9, 2020 06:44 That's close. But the access is "hierarchical" ALTER access implies CONTROL access implies UPDATE access implies READ access. So if you want to know a person's access, you'd start at the most powerful and go downward. --- On Wed, Jul 8, 2020 at 6:04 PM Bob Bridges wrote: > I've been doing mainframe security for a few decades now, but I've never > learned IBM's version of assembler (I still have ambitions of doing that > eventually) so I may be mistaken about how RACROUTE works. But my > impression is that the question the OS asks the security system might look > like this: "About resource HLQ.XYZ in class DATASET, does ABC have > UPDATE access to it?" In other words, the question specifies the class, > the resource name, the user's ID and the level of access (READ or > whatever), and the answer is a simple Yes or No (or in rare cases "I can't > tell"). > > Am I mistaken in that? If not, then how do you learn what access ABC has > to HLQ.XYZ without asking once for READ, once for UPDATE and so on? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Any interest in PSD I/O for REXX?
On Thu, 9 Jul 2020 22:47:20 -0400, Steve Smith wrote: >I think you'd be disappointed in FAMS, I still don't think it would help. >We all wonder why it's a secret, because there ain't that much to it. >IEBCOPY and the LISTDSI command pretty much expose all there is. > NFS (only, AFAIK) reveals that FAMS maintains high-resolution timestamps, independent of ISPF. I wonder why that's (almost) a secret; why LISTDSI doesn't make them accessible? >After looking at your old program, I'd give it at least 50-50 odds for >working with PDSEs. I think your worst case would be to abandon QSAM >fiddling and just provide GET/PUT functions. You could probably make that >much more seamless in REXX than in PL/I. > What would substitute for BLDL/FIND/STOW? >On Mon, Jul 6, 2020 at 10:40 PM Seymour J Metz wrote: > >> My STOWBLDL routine at http://mason.gmu.edu/~smetz3/source/STOWBLDL.ASM >> has code to quiesce a QSAM DCB before going to a new member and reprime >> buffering afterward; this requires dealing with fields in the SAM-E IOB >> extension and the SAM-E Interrupt Control Block. I assume that I would need >> FAMS to do the equivalent for PDSE. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF 3.4 DSLIST questions
As a novice sysprog, I was asked to write an app (CLIST in those days) that would enable a user to update a file but not read it. (!) Easy peasy in ASM2. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Bob Bridges Sent: Thursday, July 9, 2020 8:20 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: ISPF 3.4 DSLIST questions CAUTION EXTERNAL EMAIL Ah, of course you're right, I'd forgotten that. In ACF2 and Top Secret you can have UPDATE without READ, for example - it's needed only rarely, but it's possible with those two - not in RACF. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* Lord, before I commit a sin, it seems to me so shallow that I may wade through it dry-shod from any guiltiness; but when I have committed it, it often seems so deep that I cannot escape without drowning. -Thomas Fuller (1608-1661) */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Thursday, July 9, 2020 06:44 That's close. But the access is "hierarchical" ALTER access implies CONTROL access implies UPDATE access implies READ access. So if you want to know a person's access, you'd start at the most powerful and go downward. --- On Wed, Jul 8, 2020 at 6:04 PM Bob Bridges wrote: > I've been doing mainframe security for a few decades now, but I've > never learned IBM's version of assembler (I still have ambitions of > doing that > eventually) so I may be mistaken about how RACROUTE works. But my > impression is that the question the OS asks the security system might > look like this: "About resource HLQ.XYZ in class DATASET, does ABC > have UPDATE access to it?" In other words, the question specifies the > class, the resource name, the user's ID and the level of access (READ > or whatever), and the answer is a simple Yes or No (or in rare cases > "I can't tell"). > > Am I mistaken in that? If not, then how do you learn what access ABC > has to HLQ.XYZ without asking once for READ, once for UPDATE and so on? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Any interest in PSD I/O for REXX?
The QSAM fiddling is what makes GET/PUT work with multiple members. I'm fairly confident that with z/OS versions of IGGIOBEX , IGGICQE and possibly SAMB the existing code would work in z/OS, but that would only be for PDS. Refitting the code for enterprise PL/I would require knowledge of how files are passed and mappings for th DCLB and FCB, but all of the interfaces that I would need to do it for REXX are well documented. So my questions are whether there is enough interest to justify doing it and whether efficiency is important enough to justify using QSAM with games or whether to just do the whole thing with BPAM. If the latter, it might be asier to just add a write routine to the existing read routine on the CBTTAPE. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Steve Smith [sasd...@gmail.com] Sent: Thursday, July 9, 2020 10:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Any interest in PSD I/O for REXX? I think you'd be disappointed in FAMS, I still don't think it would help. We all wonder why it's a secret, because there ain't that much to it. IEBCOPY and the LISTDSI command pretty much expose all there is. After looking at your old program, I'd give it at least 50-50 odds for working with PDSEs. I think your worst case would be to abandon QSAM fiddling and just provide GET/PUT functions. You could probably make that much more seamless in REXX than in PL/I. sas On Mon, Jul 6, 2020 at 10:40 PM Seymour J Metz wrote: > My STOWBLDL routine at http://mason.gmu.edu/~smetz3/source/STOWBLDL.ASM > has code to quiesce a QSAM DCB before going to a new member and reprime > buffering afterward; this requires dealing with fields in the SAM-E IOB > extension and the SAM-E Interrupt Control Block. I assume that I would need > FAMS to do the equivalent for PDSE. > > > -- > 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
