Re: Rocket Vim fileencoding (was: ... ASCII ...)
On Thu, 10 Feb 2022 07:15:55 +0800, David Crayford wrote: > Have you played with Vim ":set fileencoding=..."? It works splendidly on Linux. >> It might be useful for generating tests or with such as: >> : w ! iconv -f IBM-1047 -t UTF-8 >codes > >I just tried it and it works. Rockets Vim port is surprisingly good. We >also have emacs and a lot of our young guys use that. I like Vim because >it's the default editor on *nix sysems and it's always there. > Which did you try? :set fileencoding= or : w ! iconv -f IBM-1047 -t UTF-8? The latter is outside Vim's control, of course. >I couldn't imagine using ISPF to edit Unix files but customers do it >which is why I'm researching this EBCDIC issue. > UNIX or CKD; if they're IBM-1047, ISPF is in its element. >I would avoid tagging files UTF-8. For text conversion to work in the >shell you need to set _BPXK_AUTOCVT=ALL, at which point almost all >programs that use enhanced ASCII >will break. That includes Python, Git, all of Rockets ported tools suite! > The important part of USASCII is a subset of UTF-8, so not much might break. I once ran a UTF-8 file through "iconv -f ISO859-1 -t IBM-1047". z/OS server undid the translation and it appeared intact on my UTF-8 desktop. Vim might operate similarly with autoconversion. What is Vim's internal character set? On either Linux or Mac it's very UTF-8 savvy. In a string such as " aπz " the l and h commands move one character, not one octet. But field width specifications such as for printf() count octets, not characters. Ugh! And while Linux Vim lets me write a buffer in IBM-1047, it doesn't work to re-edit it -- I have to iconv it to UTF-8 before editing. Is there a technique I don't know? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rocket Vim fileencoding (was: ... ASCII ...)
On 9/2/22 9:40 pm, Paul Gilmartin wrote: On Wed, 9 Feb 2022 15:20:52 +0800, David Crayford wrote: On 9/2/22 12:48 pm, Paul Gilmartin wrote: ... I ran Vim on z/OS. It's part of the Rocket Ported Tools suite. It's uses enhanced ASCII like all of the ported tools. Have you played with Vim ":set fileencoding=..."? It works splendidly on Linux. It might be useful for generating tests or with such as: : w ! iconv -f IBM-1047 -t UTF-8 >codes I just tried it and it works. Rockets Vim port is surprisingly good. We also have emacs and a lot of our young guys use that. I like Vim because it's the default editor on *nix sysems and it's always there. Its mode of operation takes some learning but it's worth it. I couldn't imagine using ISPF to edit Unix files but customers do it which is why I'm researching this EBCDIC issue. No need. I'm convinced that ISPF edit does not support any codepage other than 1047. I've opened a case with IBM to confirm. Pretty shabby implementation if that's true. It used to support UTF-8. Regression. But my recollection might not be probative. I would avoid tagging files UTF-8. For text conversion to work in the shell you need to set _BPXK_AUTOCVT=ALL, at which point almost all programs that use enhanced ASCII will break. That includes Python, Git, all of Rockets ported tools suite! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Fwd: Log4j hearing: 'Open source is not the problem'
https://www.networkworld.com/article/3649003/log4j-hearing-open-source-is-not-the-problem.html marktre...@gmail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to calculate MIPS or SU's from user CPU time statistics?
I pulled this up this morning to reply but Scott's reply is excellent. I talk with clients, vendors and consultants often about trying to quantify savings in workload license changes with four-hour rolling averages, and that is a hard thing to do and harder to explain to management. You may reduce a peak, but as Scott wrote, the latent demand or other factors in the workload just move the peak. At many sites the monthly 4HRA peaks are not predictable. Al Sherkow I/S Management Strategies, ltd. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to calculate MIPS or SU's from user CPU time statistics?
Presumably what management really would like to know is how many dollars (euros, whatever currency you're working in) was saved. How you go about calculating that depends... If you're under Tailored Fit Pricing with IBM your IBM software bill is based on the CPU time you consume over the year. You should have two numbers from IBM the: the baseline cost per "MSU" (really MSU hour) and the lower (50%?) incremental cost per MSU that kicks in after you've reached your baseline for the year. Note that TFP contracts are individually negotiated but my understanding is that in most contracts, reducing your MSU-hours consumed below the annual baseline won't reduce the actual money you're committed to send to IBM. But you could still argue that the value of MSU-hours saved is that baseline cost per MSU. Converting from CPU time to MSU-hours is relatively straight-forward: MSU-hours consumed = (MSU Rating of Machine / GPs of the machine) * CPU-seconds / 3600 If your TFP agreement says that you pay $x / MSU for your baseline and $y / MSU for your incremental beyond the baseline, multiply by the appropriate number depending on whether you're going to be above or below the baseline for the year. (Recognizing that if you're below, you may not actually be reducing the money sent to IBM.) That's one of TFP's selling points: you can more directly relate CPU consumption to your software costs. If you don't have TFP you're most likely under WLC (Workload License Charges) and your IBM MLC software bill is based on the peak rolling 4 hour average for the month. If that's the case, you first have to determine if you reduced that peak. If you didn't, you didn't save anything. If you did, then you need to find your incremental MLC cost per MSU. That is not the average cost/MSU. Your IBM MLC rep should be able to help with this. There may be an argument to be made that if you removed workload from your peak, but the peak didn't go down because other latent demand immediately consumed that capacity, well presumably there was some business value in that other work getting done sooner. (If there wasn't then think about whether that work needs to run in the peak!) If you're not under TFP, separate from MLC, your IBM IPLA/PPA software is likely not based on the R4HA and is likely based on some amount of paid-for capacity (which could be less than your hardware capacity). Typically, reducing your usage won't reduce those (usually annual) maintenance charges until/unless you give back some of your purchased license capacity. But then you'll have to re-purchase that license capacity if you need it back in the future. ISV software costs are of course dependent on your software contracts. You may possibly have a combination of all 3 of the aforementioned models. Then there's the whole hardware cost point of view too. For many customers this is somewhat abstract and is something along the lines of "if we're reducing our utilization maybe we can delay an eventual hardware upgrade". Putting a dollar value on that may be... difficult. But if you're regularly doing Capacity On Demand to add more capacity, and you've enabled efficiencies that have let you avoid a COD event, then the savings from that should be fairly obviously the cost of that COD that you avoided. Understanding the real dollar impact of tuning efforts is important but obviously requires knowledge of how your billing is arranged. We've seen customers who've saved significant real dollars from tuning to avoid COD or reducing their peak utilization under R4HA. But we've also seen customers who've not saved real dollars at all because they were paying for the R4HA peak and they were only affecting things that were off-peak. For customers trying to move workload off from the mainframe, it can sometimes be hard to reduce mainframe costs until they've moved off really significant amounts of workload. (Notice I didn't use the word "savings" in the previous sentence: whether the mainframe is cheaper or more expensive than the environment they're moving too is a yet deeper discussion!) Scott Chapman -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TWS //*%OPC and "IF"
looks like there are TWS variables for just what you need Variable name Description CDATE Current date CTIME Current time OCDATE Occurrence input arrival date OCFRSTC First calendar day in month of the occurrence input arrival date OCFRSTW First work day in the month of the occurrence input arrival date OCFRSTWYFirst work day in the year of the occurrence input arrival date OCLASTC Last calendar day in the month of the occurrence input arrival date OCLASTW Last work day in the month of the occurrence input arrival date OCLASTWYLast work day in the year of the occurrence input arrival date OCTIME Occurrence input arrival time (hours and minutes) OPIADATEOperation input arrival date (if blank, this takes the value of the occurrence input arrival date) OPIATIMEOperation input arrival time (if blank, this takes the value of the occurrence input arrival time) OPLSDATEOperation latest start date OPLSTIMEOperation latest start time -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OA55379 - zOS 2.4
Hi Mark, This completion of the multi-write CI's is included in base 2.4, there is nothing special you have to do. Max Smith - DFSMS Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TWS //*%OPC and "IF"
On Wed, 9 Feb 2022 14:26:54 +0100, Radoslaw Skorupka wrote: >I need to schedule some job under TWS vel IWS vel ZWS. > >The job contain full month concatenation of daily datasets. >//INPUT DD DISP=SHR,DSN=HLQ.Y2022.D0101 >// DD DISP=SHR,DSN=HLQ.Y2022.D0102 >// DD DISP=SHR,DSN=HLQ.Y2022.D0103 >... >// DD DISP=SHR,DSN=HLQ.Y2022.D0131 > > >The problem is number of days in a month. >Sometimes it is 31, 30 or 28 (and 29) days. >I would comment out last DD using some variable. >Something like the following: >//*%OPC IF month =02 then MYVAR=** ELSE MYVAR='' >the DD: >//%MYVAR DD DISP=SHR,DSN=HLQ.Y2022.D0131 >will be commented or not. >It can be IF or CASE or anything. > >Or maybe there is other way to do that? > > I have a DFDSS backup job that uses this. Here you go. //P0DPDBKP JOB (DP,8715),'DAILY DP BACKUP',CLASS=P,MSGCLASS=Y //*%OPC SCAN //*** //* CURRENT DESCRIPTION: * //* CDAY=DAY WITHIN THE WEEK, 1=MONDAY * //* CDD=DAY WITHIN THE MONTH, 1=1ST OF MONTH * //* CDDD=DAY WITHIN THE YEAR, 1=1ST DAY OF YEAR* //*** //* TEST FOR DAILY //*%OPC BEGIN ACTION=INCLUDE,PHASE=SUBMIT, //*%OPC COMP=((),(),()) // EXEC DP#BKP,FREQ=DAILY //*%OPC END ACTION=INCLUDE //* TEST FOR WEEKLY //*%OPC BEGIN ACTION=INCLUDE,PHASE=SUBMIT, //*%OPC COMP=((),(),()) // EXEC DP#BKP,FREQ=WEEKLY //*%OPC END ACTION=INCLUDE //* TEST FOR MONTHLY //*%OPC BEGIN ACTION=INCLUDE,PHASE=SUBMIT, //*%OPC COMP=((),()) // EXEC DP#BKP,FREQ=MONTHLY //*%OPC END ACTION=INCLUDE //* TEST FOR YEARLY //*%OPC BEGIN ACTION=INCLUDE,PHASE=SUBMIT, //*%OPC COMP=() //EXEC DP#BKP,FREQ=YEARLY //*%OPC END ACTION=INCLUDE -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TWS //*%OPC and "IF"
On Wed, 9 Feb 2022 14:26:54 +0100, Radoslaw Skorupka wrote: >I need to schedule some job under TWS vel IWS vel ZWS. > >The job contain full month concatenation of daily datasets. >//INPUT DD DISP=SHR,DSN=HLQ.Y2022.D0101 >// DD DISP=SHR,DSN=HLQ.Y2022.D0102 >// DD DISP=SHR,DSN=HLQ.Y2022.D0103 >... >// DD DISP=SHR,DSN=HLQ.Y2022.D0131 > /* Rexx */ trace N signal on novalue B = date( 'Base' ) parse value date( 'Standard', B, 'Base' ) with . 5 M0 7 . do I = B-31 to B+31 DDD = right( date( 'Days', I, 'Base' ), 3, 0 ) parse value date( 'Standard', I, 'Base' ) with 5 MM 7 . if MM<>M0 then iterate I say 'DSN=HLQ.Y''.D'DDD end I -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OA55379 - zOS 2.4
Not unless there is an FMID that supersedes the APAR. Otherwise it only means that the correcting PTF is not installed or perhaps not available yet. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Mark Jacobs [0224d287a4b1-dmarc-requ...@listserv.ua.edu] Sent: Wednesday, February 9, 2022 8:37 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: OA55379 - zOS 2.4 If there's no PTF for the APAR in z/OS 2.4 it implies that the support is in the base level of 2.4 and above. There's nothing for you to do. Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://secure-web.cisco.com/1AlqIBRjiwInsE1NYIWuemrdg1mva_H_Uw43tllFA3D5OygcfCCJi2_EZMSp-05WZ1p2XzJtoKd889SY0YfjQSt2qo99Ev7DiS-mb0nm3N2JQX2xUfS66S_FpDFIJrQcVQpqqbl_yFO39M2O1j-jNxi_Pcs8orQ-ZnumOZb9BJEQkC0IsnjJQgxpJT0Yj4F7WEJStYI4qzoqdezCfYp4je-bZ1bpPDYSOgyJiTN_P6IfxgaKZTcWIRKl-txtJrx4tOGFH3P0q-CWNZaB1ZeuJIbVZa3EmKb0U7NR0kdm47eIlr-hj32n24ACI9SwKO4Zv75PCgKBHaVL9SuQob4QR24tOEFG3IPcqgE4aQCK1vy08FANrSJ3kvlrviTXbnzKWBJs94QJPjRHjNILzcuJyoqYGkV4pgQPiRdztmNWQ9b2oPpZr5OVBIWFeSD9kSmuy/https%3A%2F%2Fapi.protonmail.ch%2Fpks%2Flookup%3Fop%3Dget%26search%3Dmarkjacobs%40protonmail.com --- Original Message --- On Tuesday, February 8th, 2022 at 11:21 PM, Peter wrote: > 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: Rocket Vim fileencoding (was: ... ASCII ...)
ISPF 3.17 should (and does) support ascii and utf8. best regards, René. > On 9 Feb 2022, at 14:40, Paul Gilmartin > <000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > > On Wed, 9 Feb 2022 15:20:52 +0800, David Crayford wrote: > >> On 9/2/22 12:48 pm, Paul Gilmartin wrote: ... I ran Vim on z/OS. It's part of the Rocket Ported Tools suite. It's uses enhanced ASCII like all of the ported tools. >>> Have you played with Vim ":set fileencoding=..."? It works >>> splendidly on Linux. >> > It might be useful for generating tests or with such as: >: w ! iconv -f IBM-1047 -t UTF-8 >codes > >> No need. I'm convinced that ISPF edit does not support any codepage >> other than 1047. I've opened a case with IBM to confirm. Pretty shabby >> implementation if that's true. >> > It used to support UTF-8. Regression. But my recollection might not be > probative. > > -- > 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
Rocket Vim fileencoding (was: ... ASCII ...)
On Wed, 9 Feb 2022 15:20:52 +0800, David Crayford wrote: >On 9/2/22 12:48 pm, Paul Gilmartin wrote: >>> ... >>> I ran Vim on z/OS. It's part of the Rocket Ported Tools suite. It's uses >>> enhanced ASCII like all of the ported tools. >>> >> Have you played with Vim ":set fileencoding=..."? It works >> splendidly on Linux. > It might be useful for generating tests or with such as: : w ! iconv -f IBM-1047 -t UTF-8 >codes >No need. I'm convinced that ISPF edit does not support any codepage >other than 1047. I've opened a case with IBM to confirm. Pretty shabby >implementation if that's true. > It used to support UTF-8. Regression. But my recollection might not be probative. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OA55379 - zOS 2.4
If there's no PTF for the APAR in z/OS 2.4 it implies that the support is in the base level of 2.4 and above. There's nothing for you to do. Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com --- Original Message --- On Tuesday, February 8th, 2022 at 11:21 PM, Peter wrote: > 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
TWS //*%OPC and "IF"
I need to schedule some job under TWS vel IWS vel ZWS. The job contain full month concatenation of daily datasets. //INPUT DD DISP=SHR,DSN=HLQ.Y2022.D0101 // DD DISP=SHR,DSN=HLQ.Y2022.D0102 // DD DISP=SHR,DSN=HLQ.Y2022.D0103 ... // DD DISP=SHR,DSN=HLQ.Y2022.D0131 The problem is number of days in a month. Sometimes it is 31, 30 or 28 (and 29) days. I would comment out last DD using some variable. Something like the following: //*%OPC IF month =02 then MYVAR=** ELSE MYVAR='' the DD: //%MYVAR DD DISP=SHR,DSN=HLQ.Y2022.D0131 will be commented or not. It can be IF or CASE or anything. Or maybe there is other way to do that? (No, I it has to be full month, I cannot change naming convention, etc.) -- Radoslaw Skorupka Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN