Re: EDIT MACRO REQUEST
On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark wrote: >I would like to check each member of a PDS and if it is empty (0 Lines) - I >would like to add a line with the text of *NONE*. > What requirement does this satisfy? After you do this, how will you know whether a member containing the "*NONE*" line was initially empty or initially contained exactly that line? Otherwise, I concur with Schmitt, Michael's suggestion. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EDIT MACRO REQUEST
On Tue, 9 Jan 2024 23:31:10 +, Schmitt, Michael wrote: >3. LMMLIST LIST STATS(YES) to create a list of the members, with statistics > While LMMLIST rc = 0 > If ZLCNORC = 0 > LMPUT to write your NONE line Of course, that assumes that there *are* already statistics. If the member has no statistics, you'll have to read it to find out if it has any records. ¬R -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EDIT MACRO REQUEST
On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark wrote: > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX) You don't want to start and stop ISPF for each member (ISPSTART). There are far better methods to process specific members or all members >I would like to check each member of a PDS and if it is empty (0 Lines) > I would like to add a line with the text of *NONE*. I don't have access to a system and I'm doing this from memory, so this might not be quite right ADDRESS ISREDIT "MACRO (PARM1,PARM2,...)" "(LINES) = LINENUM .ZLAST" if lines = 0 then do "LINE_AFTER .ZFIRST = 'NONE'" "SAVE" end "END" >I would like to do this in batch using this format: There are many ways to skin this cat. Your job would work but you might not have considered some alternatives. such as LMMLIST to get member list Interactive ISPF 3.4 using E /(*) MACRO(EMPTREXX) Interactive ISPF 3.4 using M for member list. First use E line command MACRO(EMPTREXX). Subsequent members use = to repeat. If ISPF stats exist, then you can sort on lines and issue command for those with 0 lines. Forget ISPF and use REXX. Certainly better than stopping and starting ISPF for each member. SYSOUTTRAP LISTDS MEMBERS to get the member list. For each desired member, ALLOC, EXECIO DISKR, EXECIO DISKW. FREE. I'm sure there are more. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EDIT MACRO REQUEST
I wonder why I didn't get the original request. I'm going to be THAT GUY who responds by not answering your question, and instead point out that there are way more efficient ways to do this than by starting up ISPF once per member. For example, you can start ISPF once with an exec that opens the library once, then iterates through the members. If you only want to process specific members, you can still have the list in a file that you read, then process each one. Starting up ISPF is slow, and so it opening and closing the PDS once per member. For example: 1. LMINIT ENQ(SHRW) to generate a data id for the library 2. LMOPEN to open for output 3. LMMLIST LIST STATS(YES) to create a list of the members, with statistics While LMMLIST rc = 0 If ZLCNORC = 0 LMPUT to write your NONE line LMMLIST again 4. LMMLIST FREE 5. LMCLOSE 6. LMFREE -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mark Zelden Sent: Tuesday, January 9, 2024 4:54 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: EDIT MACRO REQUEST On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark wrote: >I would like to check each member of a PDS and if it is empty (0 Lines) - I >would like to add a line with the text of *NONE*. > >I would like to do this in batch using this format: > >//TSOBTCH1 EXEC PGM=IKJEFT01 >//SYSTSPRT DD SYSOUT=* >//SYSLIST DD SYSOUT=* >//ISPLOGDD DSN=&ISPLOG, >// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), >// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) >//ISPPROF DD DSN=&ISPPROF, >// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), >// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) >//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR >//ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR >//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR >//ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR >//ISPTABL DD DSN=XX.ISPF.ISPTLIB,DISP=SHR >//SYSPROC DD DSN=XX.CLIST,DISP=SHR >//SYSTSIN DD * > PROFILE PREFIX(XX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX) > Etc.. > >EMPTREXX - would be the ISREDIT Macro to perform the task. > >Any help would be appreciated. > >Thank You Not sure what part you need help with. Probably the EMPTREXX, which I will leave to someone else to help you with as I don't have time, but if you need help with the "EDITREXX" part, see "EDMACALL" on my web site / CBT file 434. URL of my web site below. The source code has a simple example of an edit macro. Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EDIT MACRO REQUEST
I have the EDITREXX part. That works. Only need help with the EMPTREXX issue. Thanks -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mark Zelden Sent: Tuesday, January 09, 2024 4:54 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: EDIT MACRO REQUEST CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? Were you expecting this email? If not, report it using the Report Phishing Button! On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark wrote: >I would like to check each member of a PDS and if it is empty (0 Lines) - I >would like to add a line with the text of *NONE*. > >I would like to do this in batch using this format: > >//TSOBTCH1 EXEC PGM=IKJEFT01 >//SYSTSPRT DD SYSOUT=* >//SYSLIST DD SYSOUT=* >//ISPLOGDD DSN=&ISPLOG, >// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), >// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) >//ISPPROF DD DSN=&ISPPROF, >// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), >// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) >//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR >//ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR >//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR >//ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR >//ISPTABL DD DSN=XX.ISPF.ISPTLIB,DISP=SHR >//SYSPROC DD DSN=XX.CLIST,DISP=SHR >//SYSTSIN DD * > PROFILE PREFIX(XX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX) >Etc.. > >EMPTREXX - would be the ISREDIT Macro to perform the task. > >Any help would be appreciated. > >Thank You Not sure what part you need help with. Probably the EMPTREXX, which I will leave to someone else to help you with as I don't have time, but if you need help with the "EDITREXX" part, see "EDMACALL" on my web site / CBT file 434. URL of my web site below. The source code has a simple example of an edit macro. Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EDIT MACRO REQUEST
On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark wrote: >I would like to check each member of a PDS and if it is empty (0 Lines) - I >would like to add a line with the text of *NONE*. > >I would like to do this in batch using this format: > >//TSOBTCH1 EXEC PGM=IKJEFT01 >//SYSTSPRT DD SYSOUT=* >//SYSLIST DD SYSOUT=* >//ISPLOGDD DSN=&ISPLOG, >// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), >// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) >//ISPPROF DD DSN=&ISPPROF, >// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), >// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) >//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR >//ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR >//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR >//ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR >//ISPTABL DD DSN=XX.ISPF.ISPTLIB,DISP=SHR >//SYSPROC DD DSN=XX.CLIST,DISP=SHR >//SYSTSIN DD * > PROFILE PREFIX(XX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX) > ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX) > Etc.. > >EMPTREXX - would be the ISREDIT Macro to perform the task. > >Any help would be appreciated. > >Thank You Not sure what part you need help with. Probably the EMPTREXX, which I will leave to someone else to help you with as I don't have time, but if you need help with the "EDITREXX" part, see "EDMACALL" on my web site / CBT file 434. URL of my web site below. The source code has a simple example of an edit macro. Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
EDIT MACRO REQUEST
I would like to check each member of a PDS and if it is empty (0 Lines) - I would like to add a line with the text of *NONE*. I would like to do this in batch using this format: //TSOBTCH1 EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSLIST DD SYSOUT=* //ISPLOGDD DSN=&ISPLOG, // DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), // DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) //ISPPROF DD DSN=&ISPPROF, // DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)), // DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) //ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR //ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR //ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR //ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR //ISPTABL DD DSN=XX.ISPF.ISPTLIB,DISP=SHR //SYSPROC DD DSN=XX.CLIST,DISP=SHR //SYSTSIN DD * PROFILE PREFIX(XX) ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX) ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX) ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX) Etc.. EMPTREXX - would be the ISREDIT Macro to perform the task. Any help would be appreciated. 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: How to remove highlighting of a FIND/SEEK result in an EDIT MACRO
/* REXX */ Address isredit "macro" "seek 'macro' " "resert find" Gary, I think you mean "reset find" On Wed, Jan 4, 2023 at 10:31 AM Gary Freestone wrote: > This macro works fine. I ran it on itself and the cursor was left at the > start of the first occurrence of macro but macro was not highlighted. > > /* REXX */ > Address isredit > "macro" > "seek 'macro' " > "resert find" > > Regards, > Gary > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of > Bob Bridges > Sent: Sunday, 1 January 2023 11:39 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ISPF: How to remove highlighting of a FIND/SEEK result in an > EDIT MACRO > > I don't think I've ever run across this. The Edit Macro manual says this > about RESET FIND: > > "Turns off highlighting of FIND strings until the next FIND, RFIND, CHANGE, > or RCHANGE command. However, SEEK and EXCLUDE do not return the > highlighting > of FIND strings in this manner. > > "RESET with no operands has the same effect on highlighted FIND strings as > RESET FIND." > > I think it's saying "you can't get there from here". Maybe there's a > workaround, but I don't see it here. > > --- > Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 > > /* Do you know what constitutes a "hate crime"? Put your thinking caps on. > What tools do we need to determine whether a crime was motivated by hate or > prejudice? Answer: We need thought police. -from "See, I Told You So" by > Rush Limbaugh */ > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of > Binyamin Dissen > Sent: Saturday, December 31, 2022 17:50 > > I have an EDIT MACRO that is doing a SEEK (but the same results with FIND). > > There does not seem to be an obvious way to reset the high-lit result. > > I tried RESET FIND and RESET with no luck. > > What obvious command am I missing? > > -- > 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 > -- Wayne V. Bickerdike -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF: How to remove highlighting of a FIND/SEEK result in an EDIT MACRO
This macro works fine. I ran it on itself and the cursor was left at the start of the first occurrence of macro but macro was not highlighted. /* REXX */ Address isredit "macro" "seek 'macro' " "resert find" Regards, Gary -Original Message- From: IBM Mainframe Discussion List On Behalf Of Bob Bridges Sent: Sunday, 1 January 2023 11:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF: How to remove highlighting of a FIND/SEEK result in an EDIT MACRO I don't think I've ever run across this. The Edit Macro manual says this about RESET FIND: "Turns off highlighting of FIND strings until the next FIND, RFIND, CHANGE, or RCHANGE command. However, SEEK and EXCLUDE do not return the highlighting of FIND strings in this manner. "RESET with no operands has the same effect on highlighted FIND strings as RESET FIND." I think it's saying "you can't get there from here". Maybe there's a workaround, but I don't see it here. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* Do you know what constitutes a "hate crime"? Put your thinking caps on. What tools do we need to determine whether a crime was motivated by hate or prejudice? Answer: We need thought police. -from "See, I Told You So" by Rush Limbaugh */ -Original Message- From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen Sent: Saturday, December 31, 2022 17:50 I have an EDIT MACRO that is doing a SEEK (but the same results with FIND). There does not seem to be an obvious way to reset the high-lit result. I tried RESET FIND and RESET with no luck. What obvious command am I missing? -- 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: How to remove highlighting of a FIND/SEEK result in an EDIT MACRO
On Sun, 1 Jan 2023 00:49:52 +0200, Binyamin Dissen wrote: >I have an EDIT MACRO that is doing a SEEK (but the same results with FIND). >There does not seem to be an obvious way to reset the high-lit result. > Why is highlighting undesirable? Terminal sensitivity? BTW, I'm suddenly curious: Does FIND NEXT work correctly with Hebrew text? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF: How to remove highlighting of a FIND/SEEK result in an EDIT MACRO
I don't think I've ever run across this. The Edit Macro manual says this about RESET FIND: "Turns off highlighting of FIND strings until the next FIND, RFIND, CHANGE, or RCHANGE command. However, SEEK and EXCLUDE do not return the highlighting of FIND strings in this manner. "RESET with no operands has the same effect on highlighted FIND strings as RESET FIND." I think it's saying "you can't get there from here". Maybe there's a workaround, but I don't see it here. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* Do you know what constitutes a "hate crime"? Put your thinking caps on. What tools do we need to determine whether a crime was motivated by hate or prejudice? Answer: We need thought police. -from "See, I Told You So" by Rush Limbaugh */ -Original Message- From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen Sent: Saturday, December 31, 2022 17:50 I have an EDIT MACRO that is doing a SEEK (but the same results with FIND). There does not seem to be an obvious way to reset the high-lit result. I tried RESET FIND and RESET with no luck. What obvious command am I missing? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ISPF: How to remove highlighting of a FIND/SEEK result in an EDIT MACRO
I have an EDIT MACRO that is doing a SEEK (but the same results with FIND). There does not seem to be an obvious way to reset the high-lit result. I tried RESET FIND and RESET with no luck. What obvious command am I missing? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Clist question - edit macro
Thanks. But I didn’t want to re-event the process wheel. After many internet searches, I found an example to do it. ISREDIT (ROW,COL) = CURSOR ISREDIT (DDATA) = LINE &ROW SET CUSER = &SUBSTR(&COL+9:&COL+17,&STR(&DDATA)) ISREDIT CHANGE <> &CUSER FIRST Ms Terri E Shaffer Senior Systems Engineer, z/OS Support: ACIWorldwide – Telecommuter H(412-766-2697) C(412-519-2592) terri.shaf...@aciworldwide.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Paul Gilmartin Sent: Wednesday, September 21, 2022 10:54 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Clist question - edit macro EXTERNAL EMAIL: Do not click links or open attachments unless you know the content is safe. On Wed, 21 Sep 2022 13:04:37 +, Shaffer, Terri wrote: > > So I need to change an edit macro to add a function, and most I have figured > reading the RTFM, except for this one, if its possible. > >If this was REXX, and not in a MACRO, I have done this 100 times, >however. > Rather than CLIST could you write your MACRO inREXX, which is well supported for that purpose? I realize there are environmental constraints: existing code base, company policy, etc. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN [https://go.aciworldwide.com/rs/030-ROK-804/images/aci-footer.jpg] <http://www.aciworldwide.com> This email message and any attachments may contain confidential, proprietary or non-public information. The information is intended solely for the designated recipient(s). If an addressing or transmission error has misdirected this email, please notify the sender immediately and destroy this email. Any review, dissemination, use or reliance upon this information by unintended recipients is prohibited. Any opinions expressed in this email are those of the author personally. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Clist question - edit macro
On Wed, 21 Sep 2022 13:04:37 +, Shaffer, Terri wrote: > > So I need to change an edit macro to add a function, and most I have figured > reading the RTFM, except for this one, if its possible. > >If this was REXX, and not in a MACRO, I have done this 100 times, >however. > Rather than CLIST could you write your MACRO inREXX, which is well supported for that purpose? I realize there are environmental constraints: existing code base, company policy, etc. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Clist question - edit macro
Hi, So I need to change an edit macro to add a function, and most I have figured reading the RTFM, except for this one, if its possible. If this was REXX, and not in a MACRO, I have done this 100 times, however. So I am doing this to find the string, which it does, add I do adds with line_after to insert lines, but what I need is, if its actually coded, need what its set to?. ISREDIT FIND 'DFLTUSER=' 1 FIRST But then is it possible to pull the next 8 characters after DFLTUSER= and put in a variable to use? SET DUSER = &SUBSTR(9:17,.ZCSR) Sortof like this but not really? Then I can use this to change/add what I need ISREDIT CHANGE <> &DUSER FIRST Normally I would just read lines and interrogate for what I need, but I am not sure what I can do after a marco FIND command? I would think this would be easy, maybe I just need a vacation. Can someone enlighten me? Ms Terri E Shaffer Senior Systems Engineer, z/OS Support: ACIWorldwide - Telecommuter H(412-766-2697) C(412-519-2592) terri.shaf...@aciworldwide.com [https://go.aciworldwide.com/rs/030-ROK-804/images/aci-footer.jpg] <http://www.aciworldwide.com> This email message and any attachments may contain confidential, proprietary or non-public information. The information is intended solely for the designated recipient(s). If an addressing or transmission error has misdirected this email, please notify the sender immediately and destroy this email. Any review, dissemination, use or reliance upon this information by unintended recipients is prohibited. Any opinions expressed in this email are those of the author personally. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
At least in z/OS 2.4, the documentation states that you can't issue a line command from a macro. RFE? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Weizman arbel Sent: Sunday, September 19, 2021 4:12 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command I remembered that (:) prefix command line (primary command) can execute line command Command ===> :hx Command ===> :i Command ===> :r etc ... https://www.ibm.com/docs/en/zos/2.1.0?topic=commands-line You can enter edit line commands as primary commands on the command line by prefixing them with a colon (:) and placing the cursor on the target line. For example, if you enter :D3 on the command line and move your cursor to line 12 of the file, the three lines 12, 13, and 14 are deleted from the file. This technique is normally used for PF key assignments. address isredit ":HX" Does not work Because it is Not an edit command How to push command to ZCMD ? I tried address ispexec "control errors return" Mycmd = ':HX' "DISPLAY COMMAND(Mycmd)" It does not work -- 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 edit macro "HX" line command
I remembered that (:) prefix command line (primary command) can execute line command Command ===> :hx Command ===> :i Command ===> :r etc ... https://www.ibm.com/docs/en/zos/2.1.0?topic=commands-line You can enter edit line commands as primary commands on the command line by prefixing them with a colon (:) and placing the cursor on the target line. For example, if you enter :D3 on the command line and move your cursor to line 12 of the file, the three lines 12, 13, and 14 are deleted from the file. This technique is normally used for PF key assignments. address isredit ":HX" Does not work Because it is Not an edit command How to push command to ZCMD ? I tried address ispexec "control errors return" Mycmd = ':HX' "DISPLAY COMMAND(Mycmd)" It does not work -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
Sloppy coding then but it answers the original "is there is a way to execute "HX" line command from edit macro ? " Pick a different label name and add smarts for determining the line number. Hank -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
That code has nothing to do with edit line commands. Your LABEL command assigns a label that (minus the period) happens to have the same spelling as the HX edit line command. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Hank Oerlemans [03c4d8bf55f3-dmarc-requ...@listserv.ua.edu] Sent: Friday, September 10, 2021 12:48 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command /* Rexx */ Address isredit "macro" "label 4 = .HX" "FLIP .HX" flips line 4. Hank -- 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 edit macro "HX" line command
/* Rexx */ Address isredit "macro" "label 4 = .HX" "FLIP .HX" flips line 4. Hank -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
I, D, C, CC, RR and DD are not ISREDIT commands or assignment statements. The issue is whether there is a way to issue line commands from an EDIT macro, not whether you can issuethem from a keyboard. There is an ISREDIT INSERT command that has the same effect as an I line command, but they are different commands. I wouldn't be surprised, however, if they shared some code. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Thursday, September 9, 2021 3:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command well, i conciser them line commands since I position my cursor on a line and use 'I', 'D', 'C' 'CC' 'RR' 'DD'.etc Carmen On 9/9/2021 1:57 PM, Seymour J Metz wrote: > ISREDIT commands and assignment statements like DELETE, INSERT, LABEL, > LINE_AFTER, LINE_BEFORE and SHIFT foo are not line commands. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > Carmen Vitullo [cvitu...@hughes.net] > Sent: Thursday, September 9, 2021 1:55 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ispf edit macro "HX" line command > > I'll have to believe you didn't find it, but I've used edit line > commands in macros, like insert, repeat,copy, delete, and assign a label > to a line, range(s) > > if I made an assumption HX is valid then that was a bad assumption > > > Carmen > > On 9/9/2021 12:49 PM, Seymour J Metz wrote: >> I checked Edit assignment statements" and "Chapter 11. Edit macro commands >> and assignment statements" in z/OS 2.4 ISPF Edit and Edit Macros, >> SC19-3621-40, and couldn't find any way for an edit macro to issue a line >> command. What did you do with the variable CMD to treat its value as a line >> command? >> >> >> -- >> Shmuel (Seymour J.) Metz >> http://mason.gmu.edu/~smetz3 >> >> ____ >> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of >> Carmen Vitullo [cvitu...@hughes.net] >> Sent: Thursday, September 9, 2021 11:35 AM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: ispf edit macro "HX" line command >> >> IIRC yes, then followed by an ISREDIT command to issue the line command, >> but again without testing and having the time to test I'm not 100% sure >> >> I made an assumption the OP had an alternate solution. >> >> Carmen >> >> >> On 9/9/2021 10:12 AM, Seymour J Metz wrote: >>>> ISREDIT (CMD) = 'HX' should work -I've not tested >>> Doesn't that just set the variable CMD to the VALUE HX? >>> >>> >>> -- >>> Shmuel (Seymour J.) Metz >>> http://mason.gmu.edu/~smetz3 >>> >>> >>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of >>> Carmen Vitullo [cvitu...@hughes.net] >>> Sent: Tuesday, September 7, 2021 10:12 AM >>> To: IBM-MAIN@LISTSERV.UA.EDU >>> Subject: Re: ispf edit macro "HX" line command >>> >>> Like I said I never used this line command, my syntax was not correct >>> but a quick check; >>> >>> ISREDIT (CMD) = 'HX' should work -I've not tested >>> >>> you need to have the cursor positioned to where you need first. >>> >>> I have some examples that position the cursor and perform some tasks but >>> none that would help you here >>> >>> the IBM doc would be helpful for review >>> >>> Carmen >>> >>> On 9/5/2021 3:27 AM, Weizman arbel wrote: >>>>> I do not understand your response, you asked; >>>> I asked about line commnad >>>> >>>>> ISREDIT HX .ZCSR >>>> There was a suggestion >>>> and my response was >>>> that is a line command And it does not work. >>>> Sorry for the misunderstanding >>>> >>>> I did not know the option >>>> "quote original message" >>>> and It's tapping me to comment >>>> >>>> >>>> >>>> >>>> >>>> On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo >>>> wrote: >>>
Re: ispf edit macro "HX" line command
Actually they are: https://www.ibm.com/docs/en/zos/2.2.0?topic=macros-performing-line-command-functions Here's the HEX command edit macro: https://www.ibm.com/docs/en/zos/2.2.0?topic=statements-hexset-query-hexadecimal-mode Joe On Thu, Sep 9, 2021 at 2:02 PM Carmen Vitullo wrote: > well, i conciser them line commands since I position my cursor on a line > and use 'I', 'D', 'C' 'CC' 'RR' 'DD'.etc > > Carmen > > On 9/9/2021 1:57 PM, Seymour J Metz wrote: > > ISREDIT commands and assignment statements like DELETE, INSERT, LABEL, > LINE_AFTER, LINE_BEFORE and SHIFT foo are not line commands. > > > > > > -- > > Shmuel (Seymour J.) Metz > > http://mason.gmu.edu/~smetz3 > > > > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on > behalf of Carmen Vitullo [cvitu...@hughes.net] > > Sent: Thursday, September 9, 2021 1:55 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: ispf edit macro "HX" line command > > > > I'll have to believe you didn't find it, but I've used edit line > > commands in macros, like insert, repeat,copy, delete, and assign a label > > to a line, range(s) > > > > if I made an assumption HX is valid then that was a bad assumption > > > > > > Carmen > > > > On 9/9/2021 12:49 PM, Seymour J Metz wrote: > >> I checked Edit assignment statements" and "Chapter 11. Edit macro > commands and assignment statements" in z/OS 2.4 ISPF Edit and Edit Macros, > SC19-3621-40, and couldn't find any way for an edit macro to issue a line > command. What did you do with the variable CMD to treat its value as a line > command? > >> > >> > >> -- > >> Shmuel (Seymour J.) Metz > >> http://mason.gmu.edu/~smetz3 > >> > >> > >> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on > behalf of Carmen Vitullo [cvitu...@hughes.net] > >> Sent: Thursday, September 9, 2021 11:35 AM > >> To: IBM-MAIN@LISTSERV.UA.EDU > >> Subject: Re: ispf edit macro "HX" line command > >> > >> IIRC yes, then followed by an ISREDIT command to issue the line command, > >> but again without testing and having the time to test I'm not 100% sure > >> > >> I made an assumption the OP had an alternate solution. > >> > >> Carmen > >> > >> > >> On 9/9/2021 10:12 AM, Seymour J Metz wrote: > >>>> ISREDIT (CMD) = 'HX' should work -I've not tested > >>> Doesn't that just set the variable CMD to the VALUE HX? > >>> > >>> > >>> -- > >>> Shmuel (Seymour J.) Metz > >>> http://mason.gmu.edu/~smetz3 > >>> > >>> > >>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on > behalf of Carmen Vitullo [cvitu...@hughes.net] > >>> Sent: Tuesday, September 7, 2021 10:12 AM > >>> To: IBM-MAIN@LISTSERV.UA.EDU > >>> Subject: Re: ispf edit macro "HX" line command > >>> > >>> Like I said I never used this line command, my syntax was not correct > >>> but a quick check; > >>> > >>> ISREDIT (CMD) = 'HX' should work -I've not tested > >>> > >>> you need to have the cursor positioned to where you need first. > >>> > >>> I have some examples that position the cursor and perform some tasks > but > >>> none that would help you here > >>> > >>> the IBM doc would be helpful for review > >>> > >>> Carmen > >>> > >>> On 9/5/2021 3:27 AM, Weizman arbel wrote: > >>>>> I do not understand your response, you asked; > >>>> I asked about line commnad > >>>> > >>>>> ISREDIT HX .ZCSR > >>>> There was a suggestion > >>>> and my response was > >>>> that is a line command And it does not work. > >>>> Sorry for the misunderstanding > >>>> > >>>> I did not know the option > >>>> "quote original message" > >>>> and It's tapping me to comment > >>>> > >>>> > >>>> > >>>> > >>>> >
Re: ispf edit macro "HX" line command
Answering myself, IBM doc at 2.1 and I'm pretty sure 2.4 see's these commands as edit line commands https://www.ibm.com/docs/en/zos/2.1.0?topic=reference-edit-line-commands <https://www.ibm.com/docs/en/zos/2.1.0?topic=reference-edit-line-commands> HX being one edit and edit macro line command On 9/9/2021 2:01 PM, Carmen Vitullo wrote: well, i conciser them line commands since I position my cursor on a line and use 'I', 'D', 'C' 'CC' 'RR' 'DD'.etc Carmen On 9/9/2021 1:57 PM, Seymour J Metz wrote: ISREDIT commands and assignment statements like DELETE, INSERT, LABEL, LINE_AFTER, LINE_BEFORE and SHIFT foo are not line commands. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Thursday, September 9, 2021 1:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command I'll have to believe you didn't find it, but I've used edit line commands in macros, like insert, repeat,copy, delete, and assign a label to a line, range(s) if I made an assumption HX is valid then that was a bad assumption Carmen On 9/9/2021 12:49 PM, Seymour J Metz wrote: I checked Edit assignment statements" and "Chapter 11. Edit macro commands and assignment statements" in z/OS 2.4 ISPF Edit and Edit Macros, SC19-3621-40, and couldn't find any way for an edit macro to issue a line command. What did you do with the variable CMD to treat its value as a line command? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Thursday, September 9, 2021 11:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command IIRC yes, then followed by an ISREDIT command to issue the line command, but again without testing and having the time to test I'm not 100% sure I made an assumption the OP had an alternate solution. Carmen On 9/9/2021 10:12 AM, Seymour J Metz wrote: ISREDIT (CMD) = 'HX' should work -I've not tested Doesn't that just set the variable CMD to the VALUE HX? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Tuesday, September 7, 2021 10:12 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command Like I said I never used this line command, my syntax was not correct but a quick check; ISREDIT (CMD) = 'HX' should work -I've not tested you need to have the cursor positioned to where you need first. I have some examples that position the cursor and perform some tasks but none that would help you here the IBM doc would be helpful for review Carmen On 9/5/2021 3:27 AM, Weizman arbel wrote: I do not understand your response, you asked; I asked about line commnad ISREDIT HX .ZCSR There was a suggestion and my response was that is a line command And it does not work. Sorry for the misunderstanding I did not know the option "quote original message" and It's tapping me to comment On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: I do not understand your response, you asked; there is a way to execute "HX" line command >from edit macro ? ISREDIT HX .ZCSR - is a line command now you are asking command line ? so ISREDIT (CMD) - 'HEX' Carmen On 9/2/2021 10:14 AM, Weizman arbel wrote: ISREDIT HX .ZCSR should work this is command line and there is Does not exist HX in command line (the command is hex on / hex off) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be
Re: ispf edit macro "HX" line command
well, i conciser them line commands since I position my cursor on a line and use 'I', 'D', 'C' 'CC' 'RR' 'DD'.etc Carmen On 9/9/2021 1:57 PM, Seymour J Metz wrote: ISREDIT commands and assignment statements like DELETE, INSERT, LABEL, LINE_AFTER, LINE_BEFORE and SHIFT foo are not line commands. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Thursday, September 9, 2021 1:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command I'll have to believe you didn't find it, but I've used edit line commands in macros, like insert, repeat,copy, delete, and assign a label to a line, range(s) if I made an assumption HX is valid then that was a bad assumption Carmen On 9/9/2021 12:49 PM, Seymour J Metz wrote: I checked Edit assignment statements" and "Chapter 11. Edit macro commands and assignment statements" in z/OS 2.4 ISPF Edit and Edit Macros, SC19-3621-40, and couldn't find any way for an edit macro to issue a line command. What did you do with the variable CMD to treat its value as a line command? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Thursday, September 9, 2021 11:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command IIRC yes, then followed by an ISREDIT command to issue the line command, but again without testing and having the time to test I'm not 100% sure I made an assumption the OP had an alternate solution. Carmen On 9/9/2021 10:12 AM, Seymour J Metz wrote: ISREDIT (CMD) = 'HX' should work -I've not tested Doesn't that just set the variable CMD to the VALUE HX? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Tuesday, September 7, 2021 10:12 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command Like I said I never used this line command, my syntax was not correct but a quick check; ISREDIT (CMD) = 'HX' should work -I've not tested you need to have the cursor positioned to where you need first. I have some examples that position the cursor and perform some tasks but none that would help you here the IBM doc would be helpful for review Carmen On 9/5/2021 3:27 AM, Weizman arbel wrote: I do not understand your response, you asked; I asked about line commnad ISREDIT HX .ZCSR There was a suggestion and my response was that is a line command And it does not work. Sorry for the misunderstanding I did not know the option "quote original message" and It's tapping me to comment On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: I do not understand your response, you asked; there is a way to execute "HX" line command >from edit macro ? ISREDIT HX .ZCSR - is a line command now you are asking command line ? so ISREDIT (CMD) - 'HEX' Carmen On 9/2/2021 10:14 AM, Weizman arbel wrote: ISREDIT HX .ZCSR should work this is command line and there is Does not exist HX in command line (the command is hex on / hex off) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAI
Re: ispf edit macro "HX" line command
ISREDIT commands and assignment statements like DELETE, INSERT, LABEL, LINE_AFTER, LINE_BEFORE and SHIFT foo are not line commands. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Thursday, September 9, 2021 1:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command I'll have to believe you didn't find it, but I've used edit line commands in macros, like insert, repeat,copy, delete, and assign a label to a line, range(s) if I made an assumption HX is valid then that was a bad assumption Carmen On 9/9/2021 12:49 PM, Seymour J Metz wrote: > I checked Edit assignment statements" and "Chapter 11. Edit macro commands > and assignment statements" in z/OS 2.4 ISPF Edit and Edit Macros, > SC19-3621-40, and couldn't find any way for an edit macro to issue a line > command. What did you do with the variable CMD to treat its value as a line > command? > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > Carmen Vitullo [cvitu...@hughes.net] > Sent: Thursday, September 9, 2021 11:35 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ispf edit macro "HX" line command > > IIRC yes, then followed by an ISREDIT command to issue the line command, > but again without testing and having the time to test I'm not 100% sure > > I made an assumption the OP had an alternate solution. > > Carmen > > > On 9/9/2021 10:12 AM, Seymour J Metz wrote: >>> ISREDIT (CMD) = 'HX' should work -I've not tested >> Doesn't that just set the variable CMD to the VALUE HX? >> >> >> -- >> Shmuel (Seymour J.) Metz >> http://mason.gmu.edu/~smetz3 >> >> >> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of >> Carmen Vitullo [cvitu...@hughes.net] >> Sent: Tuesday, September 7, 2021 10:12 AM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: ispf edit macro "HX" line command >> >> Like I said I never used this line command, my syntax was not correct >> but a quick check; >> >> ISREDIT (CMD) = 'HX' should work -I've not tested >> >> you need to have the cursor positioned to where you need first. >> >> I have some examples that position the cursor and perform some tasks but >> none that would help you here >> >> the IBM doc would be helpful for review >> >> Carmen >> >> On 9/5/2021 3:27 AM, Weizman arbel wrote: >>>> I do not understand your response, you asked; >>> I asked about line commnad >>> >>>> ISREDIT HX .ZCSR >>> There was a suggestion >>> and my response was >>> that is a line command And it does not work. >>> Sorry for the misunderstanding >>> >>> I did not know the option >>> "quote original message" >>> and It's tapping me to comment >>> >>> >>> >>> >>> >>> On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo >>> wrote: >>> >>>> I do not understand your response, you asked; >>>> >>>> there is a way to execute "HX" line command >>> >from edit macro ? >>>> ISREDIT HX .ZCSR >>>> >>>> - is a line command >>>> >>>> now you are asking command line ? >>>> so >>>> ISREDIT (CMD) - 'HEX' >>>> >>>> Carmen >>>> >>>> On 9/2/2021 10:14 AM, Weizman arbel wrote: >>>>> ISREDIT HX .ZCSR should work >>>>> >>>>> this is command line >>>>> and there is Does not exist HX in command line (the command is hex on / >>>>> hex off) >>>>> >>>>> -- >>>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>>> send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN >>>>> >>>> -- >>>> /I am not bound to win, but I am bound to be true. I am not bound to >>>> succeed, but I am bound to live by the light that I have. I must stand >>>> with anybody that stands right, and stand with him while he is right, >>>> and
Re: ispf edit macro "HX" line command
Would you mind posting the code? Thanks. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Thursday, September 9, 2021 2:13 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command long before edit CUT and PASTE were readily available in ISPF I picked up a rexx exec from some toolbox online, I don't recall where, but cut and paste were a good example of using edit line commands in a macro On 9/9/2021 12:49 PM, Seymour J Metz wrote: > I checked Edit assignment statements" and "Chapter 11. Edit macro commands > and assignment statements" in z/OS 2.4 ISPF Edit and Edit Macros, > SC19-3621-40, and couldn't find any way for an edit macro to issue a line > command. What did you do with the variable CMD to treat its value as a line > command? > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > Carmen Vitullo [cvitu...@hughes.net] > Sent: Thursday, September 9, 2021 11:35 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ispf edit macro "HX" line command > > IIRC yes, then followed by an ISREDIT command to issue the line command, > but again without testing and having the time to test I'm not 100% sure > > I made an assumption the OP had an alternate solution. > > Carmen > > > On 9/9/2021 10:12 AM, Seymour J Metz wrote: >>> ISREDIT (CMD) = 'HX' should work -I've not tested >> Doesn't that just set the variable CMD to the VALUE HX? >> >> >> -- >> Shmuel (Seymour J.) Metz >> http://mason.gmu.edu/~smetz3 >> >> >> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of >> Carmen Vitullo [cvitu...@hughes.net] >> Sent: Tuesday, September 7, 2021 10:12 AM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: ispf edit macro "HX" line command >> >> Like I said I never used this line command, my syntax was not correct >> but a quick check; >> >> ISREDIT (CMD) = 'HX' should work -I've not tested >> >> you need to have the cursor positioned to where you need first. >> >> I have some examples that position the cursor and perform some tasks but >> none that would help you here >> >> the IBM doc would be helpful for review >> >> Carmen >> >> On 9/5/2021 3:27 AM, Weizman arbel wrote: >>>> I do not understand your response, you asked; >>> I asked about line commnad >>> >>>> ISREDIT HX .ZCSR >>> There was a suggestion >>> and my response was >>> that is a line command And it does not work. >>> Sorry for the misunderstanding >>> >>> I did not know the option >>> "quote original message" >>> and It's tapping me to comment >>> >>> >>> >>> >>> >>> On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo >>> wrote: >>> >>>> I do not understand your response, you asked; >>>> >>>> there is a way to execute "HX" line command >>> >from edit macro ? >>>> ISREDIT HX .ZCSR >>>> >>>> - is a line command >>>> >>>> now you are asking command line ? >>>> so >>>> ISREDIT (CMD) - 'HEX' >>>> >>>> Carmen >>>> >>>> On 9/2/2021 10:14 AM, Weizman arbel wrote: >>>>> ISREDIT HX .ZCSR should work >>>>> >>>>> this is command line >>>>> and there is Does not exist HX in command line (the command is hex on / >>>>> hex off) >>>>> >>>>> -- >>>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>>> send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN >>>>> >>>> -- >>>> /I am not bound to win, but I am bound to be true. I am not bound to >>>> succeed, but I am bound to live by the light that I have. I must stand >>>> with anybody that stands right, and stand with him while he is right, >>>> and part with him when he goes wrong. *Abraham Lincoln*/ >>>> >>>> ---
Re: ispf edit macro "HX" line command
my explanation was lost in the post, but before CUT and PASTE were available in ISPF I picked up that rexx from some MVS toolkit, it has some examples of using edit line commands in an edit macro, from that example I have used the line command in other macros when needed. Carmen On 9/9/2021 1:13 PM, Carmen Vitullo wrote: -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
/* REXX ***/ /*** */ /*** ISPF/PDF edit macro to write lines from a file to the user */ /*** PROFILE pool for later inclusion by the PASTE macro. */ /*** */ /*** To run: */ /*** Enter CUT on the COMMAND line and use the C or M line commands */ /*** (in any form) to select the lines to be cut.*/ /*** */ /*** If the M line command is used, the lines will be deleted. */ /*** */ /*** A parameter of R or REPLACE can be specified to replace any */ /*** previously CUT lines (that have not yet been PASTEd) with the */ /*** newly selected lines. Otherwise, the selected lines will be*/ /*** added to any previously CUT lines. */ /*** */ /*** An arbitrary limit of 1000 lines is set in the macro but this */ /*** can be changed by providing a new limit on the macro call. */ /*** For example, to process up to 2000 lines enter CUT 2000 on the */ /*** COMMAND line. Be aware that each line gets stored in your */ /*** PROFILE.*/ /*** */ /**/ Trace Address ISPEXEC 'ISREDIT MACRO (PARM1) NOPROCESS' parm1 = translate(parm1) If parm1 = '?' Then Do Call help Exit End If parm1 ^= ' ' & parm1 ^= 'R' & parm1 ^= 'REPLACE' Then Do If datatype(parm1,w) = 1 & parm1 > 0 Then Do /* set new limit for maximum number of lines cut to profile */ cutlimit = parm1 'VPUT (CUTLIMIT) PROFILE' End Else Do zedsmsg = 'Invalid parameter' msg = 'Use a whole number > 0, ? for help,' zedlmsg = msg 'R or REPLACE to replace previous lines' 'SETMSG MSG(ISRZ001)' Exit 12 End End /* Process line commands, check if C or M was specified */ 'ISREDIT PROCESS RANGE C M' Select When rc = 0 Then Do 'ISREDIT (CMD) = RANGE_CMD' /* Get the command*/ 'ISREDIT (LINE1) = LINENUM .ZFRANGE' /* Get first line in range*/ 'ISREDIT (LINE2) = LINENUM .ZLRANGE' /* Get last line in range */ linestocut = line2 - line1 + 1 End When rc <= 4 Then /* No C or M entered */ Do zedsmsg = 'Enter "C"/"M" line cmd' zedlmsg = 'CUT requires a "C" or "M" line command' 'SETMSG MSG(ISRZ001)' Exit 12 End Otherwise /* Line command conflict - Edit will create message*/ Exit 12 End /* Get the number of lines that have been cut but not pasted,*/ /* initialize to zero if first time. */ 'VGET (CUTCNTMX) PROFILE' If rc ^= 0 Then cutcntmx = 0 /* Get the maximum number of lines to be stored in the profile, */ /* initialize to 1000 if first time. */ 'VGET (CUTLIMIT) PROFILE' If rc ^= 0 Then Do cutlimit = 1000 'VPUT (CUTLIMIT) PROFILE' End If parm1 = 'R' | parm1 = 'REPLACE' Then Do If linestocut < cutcntmx Then Do /* delete variables that will not be overwritten */ 'VGET (ZENVIR) SHARED' Do i = 1 to cutcntmx by 1 'VERASE (CL'i') PROFILE' End End cutcntmx = 0 End cutcntmxsave = cutcntmx /* Check to see if the limit will be exceeded by storing the lines */ /* into the profile. */ count = cutcntmx + linestocut If count > cutlimit Then Do zedsmsg = '> 'cutlimit 'lines to cut' zedlmsg = 'Reduce the range or change limit with CUT 'count 'SETMSG MSG(ISRZ001)' Exit 12 End /* cut the lines to the profile */ cutcnt = cutcntmx Do i = line1 to line2 cutcnt = cutcnt + 1 'ISREDIT (CL'cutcnt') = LINE' i Interpret "CL"cutcnt"= Strip(CL"cutcnt",'T')" 'VPUT (CL'cutcnt') PROFILE' End /* Put the number of lines cut into the profile for use by PASTE */ 'VPUT (CUTCNT) PROFILE' /* If the number of lines cut this time is greater than the maximum */ /* cut, then save the new maxi
Re: ispf edit macro "HX" line command
I'll have to believe you didn't find it, but I've used edit line commands in macros, like insert, repeat,copy, delete, and assign a label to a line, range(s) if I made an assumption HX is valid then that was a bad assumption Carmen On 9/9/2021 12:49 PM, Seymour J Metz wrote: I checked Edit assignment statements" and "Chapter 11. Edit macro commands and assignment statements" in z/OS 2.4 ISPF Edit and Edit Macros, SC19-3621-40, and couldn't find any way for an edit macro to issue a line command. What did you do with the variable CMD to treat its value as a line command? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Thursday, September 9, 2021 11:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command IIRC yes, then followed by an ISREDIT command to issue the line command, but again without testing and having the time to test I'm not 100% sure I made an assumption the OP had an alternate solution. Carmen On 9/9/2021 10:12 AM, Seymour J Metz wrote: ISREDIT (CMD) = 'HX' should work -I've not tested Doesn't that just set the variable CMD to the VALUE HX? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Tuesday, September 7, 2021 10:12 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command Like I said I never used this line command, my syntax was not correct but a quick check; ISREDIT (CMD) = 'HX' should work -I've not tested you need to have the cursor positioned to where you need first. I have some examples that position the cursor and perform some tasks but none that would help you here the IBM doc would be helpful for review Carmen On 9/5/2021 3:27 AM, Weizman arbel wrote: I do not understand your response, you asked; I asked about line commnad ISREDIT HX .ZCSR There was a suggestion and my response was that is a line command And it does not work. Sorry for the misunderstanding I did not know the option "quote original message" and It's tapping me to comment On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: I do not understand your response, you asked; there is a way to execute "HX" line command >from edit macro ? ISREDIT HX .ZCSR - is a line command now you are asking command line ? so ISREDIT (CMD) - 'HEX' Carmen On 9/2/2021 10:14 AM, Weizman arbel wrote: ISREDIT HX .ZCSR should work this is command line and there is Does not exist HX in command line (the command is hex on / hex off) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- 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 -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -
Re: ispf edit macro "HX" line command
I checked Edit assignment statements" and "Chapter 11. Edit macro commands and assignment statements" in z/OS 2.4 ISPF Edit and Edit Macros, SC19-3621-40, and couldn't find any way for an edit macro to issue a line command. What did you do with the variable CMD to treat its value as a line command? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Thursday, September 9, 2021 11:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command IIRC yes, then followed by an ISREDIT command to issue the line command, but again without testing and having the time to test I'm not 100% sure I made an assumption the OP had an alternate solution. Carmen On 9/9/2021 10:12 AM, Seymour J Metz wrote: >> ISREDIT (CMD) = 'HX' should work -I've not tested > Doesn't that just set the variable CMD to the VALUE HX? > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > Carmen Vitullo [cvitu...@hughes.net] > Sent: Tuesday, September 7, 2021 10:12 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ispf edit macro "HX" line command > > Like I said I never used this line command, my syntax was not correct > but a quick check; > > ISREDIT (CMD) = 'HX' should work -I've not tested > > you need to have the cursor positioned to where you need first. > > I have some examples that position the cursor and perform some tasks but > none that would help you here > > the IBM doc would be helpful for review > > Carmen > > On 9/5/2021 3:27 AM, Weizman arbel wrote: >>> I do not understand your response, you asked; >> I asked about line commnad >> >>> ISREDIT HX .ZCSR >> There was a suggestion >> and my response was >> that is a line command And it does not work. >> Sorry for the misunderstanding >> >> I did not know the option >> "quote original message" >> and It's tapping me to comment >> >> >> >> >> >> On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo >> wrote: >> >>> I do not understand your response, you asked; >>> >>> there is a way to execute "HX" line command >> >from edit macro ? >>> ISREDIT HX .ZCSR >>> >>> - is a line command >>> >>> now you are asking command line ? >>> so >>> ISREDIT (CMD) - 'HEX' >>> >>> Carmen >>> >>> On 9/2/2021 10:14 AM, Weizman arbel wrote: >>>> ISREDIT HX .ZCSR should work >>>> >>>> this is command line >>>> and there is Does not exist HX in command line (the command is hex on / >>>> hex off) >>>> >>>> -- >>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>> send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN >>>> >>> -- >>> /I am not bound to win, but I am bound to be true. I am not bound to >>> succeed, but I am bound to live by the light that I have. I must stand >>> with anybody that stands right, and stand with him while he is right, >>> and part with him when he goes wrong. *Abraham Lincoln*/ >>> >>> -- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN >> -- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > -- > /I am not bound to win, but I am bound to be true. I am not bound to > succeed, but I am bound to live by the light that I have. I must stand > with anybody that stands right, and stand with him while he is right, > and part with him when he goes wrong. *Abraham Lincoln*/ > > -- > 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 instructio
Re: ispf edit macro "HX" line command
IIRC yes, then followed by an ISREDIT command to issue the line command, but again without testing and having the time to test I'm not 100% sure I made an assumption the OP had an alternate solution. Carmen On 9/9/2021 10:12 AM, Seymour J Metz wrote: ISREDIT (CMD) = 'HX' should work -I've not tested Doesn't that just set the variable CMD to the VALUE HX? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Tuesday, September 7, 2021 10:12 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command Like I said I never used this line command, my syntax was not correct but a quick check; ISREDIT (CMD) = 'HX' should work -I've not tested you need to have the cursor positioned to where you need first. I have some examples that position the cursor and perform some tasks but none that would help you here the IBM doc would be helpful for review Carmen On 9/5/2021 3:27 AM, Weizman arbel wrote: I do not understand your response, you asked; I asked about line commnad ISREDIT HX .ZCSR There was a suggestion and my response was that is a line command And it does not work. Sorry for the misunderstanding I did not know the option "quote original message" and It's tapping me to comment On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: I do not understand your response, you asked; there is a way to execute "HX" line command >from edit macro ? ISREDIT HX .ZCSR - is a line command now you are asking command line ? so ISREDIT (CMD) - 'HEX' Carmen On 9/2/2021 10:14 AM, Weizman arbel wrote: ISREDIT HX .ZCSR should work this is command line and there is Does not exist HX in command line (the command is hex on / hex off) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- 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 -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
> ISREDIT (CMD) = 'HX' should work -I've not tested Doesn't that just set the variable CMD to the VALUE HX? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Carmen Vitullo [cvitu...@hughes.net] Sent: Tuesday, September 7, 2021 10:12 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command Like I said I never used this line command, my syntax was not correct but a quick check; ISREDIT (CMD) = 'HX' should work -I've not tested you need to have the cursor positioned to where you need first. I have some examples that position the cursor and perform some tasks but none that would help you here the IBM doc would be helpful for review Carmen On 9/5/2021 3:27 AM, Weizman arbel wrote: >> I do not understand your response, you asked; > I asked about line commnad > >> ISREDIT HX .ZCSR > There was a suggestion > and my response was > that is a line command And it does not work. > Sorry for the misunderstanding > > I did not know the option > "quote original message" > and It's tapping me to comment > > > > > > On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: > >> I do not understand your response, you asked; >> >> there is a way to execute "HX" line command > >from edit macro ? >> ISREDIT HX .ZCSR >> >> - is a line command >> >> now you are asking command line ? >> so >> ISREDIT (CMD) - 'HEX' >> >> Carmen >> >> On 9/2/2021 10:14 AM, Weizman arbel wrote: >>> ISREDIT HX .ZCSR should work >>> >>> this is command line >>> and there is Does not exist HX in command line (the command is hex on / hex >>> off) >>> >>> -- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN >>> >> -- >> /I am not bound to win, but I am bound to be true. I am not bound to >> succeed, but I am bound to live by the light that I have. I must stand >> with anybody that stands right, and stand with him while he is right, >> and part with him when he goes wrong. *Abraham Lincoln*/ >> >> -- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- 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 edit macro "HX" line command
My understanding of the OP's initial request was the ability to display a line in hex from within an edit macro, which is probably doing a lot more than just the hex display as it is very easy to do the HX on the line while in edit/view. Unfortunately there are a very limited number of line command options while in edit - unfortunately none of the enhanced edit line commands. This was my solution (reposting for fun) which can then be included in the OP's edit macro: /* -- REXX - * | ISPF Edit Macro to display the requested record in hex in | | an infoline. (Note: no validation is performed) | | | | Syntax: EHEX line| | | | Where EHEX is the macro name (change as you wish) | | line is a record number | | | | Sample: EHEX 4 | * - */ Address ISREdit 'Macro (line)' '(data) = line' line hex = c2x(data) parse value '' with hextop hexbot do i = 1 to length(hex) by 2 hextop = hextop''substr(hex,i,1) hexbot = hexbot''substr(hex,i+1,1) end 'line_after' line '= infoline (hexbot)' 'line_after' line '= infoline (hextop)' Lionel B. Dyck <>< Website: https://www.lbdsoftware.com Github: https://github.com/lbdyck “Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are.” - - - John Wooden -Original Message- From: IBM Mainframe Discussion List On Behalf Of Carmen Vitullo Sent: Tuesday, September 7, 2021 9:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command Like I said I never used this line command, my syntax was not correct but a quick check; ISREDIT (CMD) = 'HX' should work -I've not tested you need to have the cursor positioned to where you need first. I have some examples that position the cursor and perform some tasks but none that would help you here the IBM doc would be helpful for review Carmen On 9/5/2021 3:27 AM, Weizman arbel wrote: >> I do not understand your response, you asked; > I asked about line commnad > >> ISREDIT HX .ZCSR > There was a suggestion > and my response was > that is a line command And it does not work. > Sorry for the misunderstanding > > I did not know the option > "quote original message" > and It's tapping me to comment > > > > > > On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: > >> I do not understand your response, you asked; >> >> there is a way to execute "HX" line command > >from edit macro ? >> ISREDIT HX .ZCSR >> >> - is a line command >> >> now you are asking command line ? >> so >> ISREDIT (CMD) - 'HEX' >> >> Carmen >> >> On 9/2/2021 10:14 AM, Weizman arbel wrote: >>> ISREDIT HX .ZCSR should work >>> >>> this is command line >>> and there is Does not exist HX in command line (the command is hex >>> on / hex off) >>> >>> >>> -- For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email tolists...@listserv.ua.edu with the message: INFO >>> IBM-MAIN >>> >> -- >> /I am not bound to win, but I am bound to be true. I am not bound to >> succeed, but I am bound to live by the light that I have. I must >> stand with anybody that stands right, and stand with him while he is >> right, and part with him when he goes wrong. *Abraham Lincoln*/ >> >> - >> - For IBM-MAIN subscribe / signoff / archive access instructions, >> send email tolists...@listserv.ua.edu with the message: INFO >> IBM-MAIN >
Re: ispf edit macro "HX" line command
Like I said I never used this line command, my syntax was not correct but a quick check; ISREDIT (CMD) = 'HX' should work -I've not tested you need to have the cursor positioned to where you need first. I have some examples that position the cursor and perform some tasks but none that would help you here the IBM doc would be helpful for review Carmen On 9/5/2021 3:27 AM, Weizman arbel wrote: I do not understand your response, you asked; I asked about line commnad ISREDIT HX .ZCSR There was a suggestion and my response was that is a line command And it does not work. Sorry for the misunderstanding I did not know the option "quote original message" and It's tapping me to comment On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: I do not understand your response, you asked; there is a way to execute "HX" line command >from edit macro ? ISREDIT HX .ZCSR - is a line command now you are asking command line ? so ISREDIT (CMD) - 'HEX' Carmen On 9/2/2021 10:14 AM, Weizman arbel wrote: ISREDIT HX .ZCSR should work this is command line and there is Does not exist HX in command line (the command is hex on / hex off) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email tolists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
>I do not understand your response, you asked; I asked about line commnad >ISREDIT HX .ZCSR There was a suggestion and my response was that is a line command And it does not work. Sorry for the misunderstanding I did not know the option "quote original message" and It's tapping me to comment On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo wrote: >I do not understand your response, you asked; > >there is a way to execute "HX" line command >from edit macro ? >ISREDIT HX .ZCSR > >- is a line command > >now you are asking command line ? >so >ISREDIT (CMD) - 'HEX' > >Carmen > >On 9/2/2021 10:14 AM, Weizman arbel wrote: >> ISREDIT HX .ZCSR should work >> >> this is command line >> and there is Does not exist HX in command line (the command is hex on / hex >> off) >> >> -- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> >-- >/I am not bound to win, but I am bound to be true. I am not bound to >succeed, but I am bound to live by the light that I have. I must stand >with anybody that stands right, and stand with him while he is right, >and part with him when he goes wrong. *Abraham Lincoln*/ > >-- >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 edit macro "HX" line command
I do not understand your response, you asked; there is a way to execute "HX" line command from edit macro ? ISREDIT HX .ZCSR - is a line command now you are asking command line ? so ISREDIT (CMD) - 'HEX' Carmen On 9/2/2021 10:14 AM, Weizman arbel wrote: ISREDIT HX .ZCSR should work this is command line and there is Does not exist HX in command line (the command is hex on / hex off) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
ISPF does not have an equivalent to SET PENDING in XEDIT. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Weizman arbel [wwar...@gmail.com] Sent: Thursday, September 2, 2021 7:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ispf edit macro "HX" line command hi, there is a way to execute "HX" line command from edit macro ? -- 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 edit macro "HX" line command
ISREDIT HX .ZCSR should work this is command line and there is Does not exist HX in command line (the command is hex on / hex off) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
So I understand it's impossible execute "HX" line command from edit macro I know the way to do it myself in the code -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
you can use the HX command, like a shift ( ) or a I (insert) the result is that one line in HEX format. I don't know what the reasoning is for turning on HEX for one line but it is possible. ISREDIT HX .ZCSR should work, I don't have time to test but the OP can Carmen On 9/2/2021 9:24 AM, Lionel B. Dyck wrote: You can turn HEX ON or OFF in an Edit macro but you can't do it for a specific record. You can do it yourself in your edit macro and insert the hex info as a note or message line below the real record. I cobbled this together - it is a quick/dirty example of an edit command that will add message lines below the request line with the hex values in a vertical format: /* rexx */ Address ISREdit 'Macro (line)' '(data) = line' line hex = c2x(data) parse value '' with hextop hexbot do i = 1 to length(hex) by 2 hextop = hextop''substr(hex,i,1) hexbot = hexbot''substr(hex,i+1,1) end 'line_after' line '= infoline (hexbot)' 'line_after' line '= infoline (hextop)' The results of using it with EHEX 3 - I named my test macro ehex 😊 03 'Macro (line)' == 447D889944989857444 == 00D413960D3955DD000 04 '(data) = line' line 05 hex = c2x(data) Hope this helps Lionel B. Dyck <>< Website: https://www.lbdsoftware.com Github: https://github.com/lbdyck “Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are.” - - - John Wooden -Original Message- From: IBM Mainframe Discussion List On Behalf Of Richards, Robert B. (CTR) Sent: Thursday, September 2, 2021 7:50 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command Can you tell us what you are trying to accomplish? That may help us determine if HX is the best way or the use of HEX ON and proceeding to use ISREDIT commands from there. Bob -Original Message- From: IBM Mainframe Discussion List On Behalf Of Weizman arbel Sent: Thursday, September 2, 2021 7:36 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ispf edit macro "HX" line command hi, there is a way to execute "HX" line command from edit macro ? -- 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 -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ispf edit macro "HX" line command
You can turn HEX ON or OFF in an Edit macro but you can't do it for a specific record. You can do it yourself in your edit macro and insert the hex info as a note or message line below the real record. I cobbled this together - it is a quick/dirty example of an edit command that will add message lines below the request line with the hex values in a vertical format: /* rexx */ Address ISREdit 'Macro (line)' '(data) = line' line hex = c2x(data) parse value '' with hextop hexbot do i = 1 to length(hex) by 2 hextop = hextop''substr(hex,i,1) hexbot = hexbot''substr(hex,i+1,1) end 'line_after' line '= infoline (hexbot)' 'line_after' line '= infoline (hextop)' The results of using it with EHEX 3 - I named my test macro ehex 😊 03 'Macro (line)' == 447D889944989857444 == 00D413960D3955DD000 04 '(data) = line' line 05 hex = c2x(data) Hope this helps Lionel B. Dyck <>< Website: https://www.lbdsoftware.com Github: https://github.com/lbdyck “Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are.” - - - John Wooden -Original Message- From: IBM Mainframe Discussion List On Behalf Of Richards, Robert B. (CTR) Sent: Thursday, September 2, 2021 7:50 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ispf edit macro "HX" line command Can you tell us what you are trying to accomplish? That may help us determine if HX is the best way or the use of HEX ON and proceeding to use ISREDIT commands from there. Bob -Original Message- From: IBM Mainframe Discussion List On Behalf Of Weizman arbel Sent: Thursday, September 2, 2021 7:36 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ispf edit macro "HX" line command hi, there is a way to execute "HX" line command from edit macro ? -- 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: ispf edit macro "HX" line command
Can you tell us what you are trying to accomplish? That may help us determine if HX is the best way or the use of HEX ON and proceeding to use ISREDIT commands from there. Bob -Original Message- From: IBM Mainframe Discussion List On Behalf Of Weizman arbel Sent: Thursday, September 2, 2021 7:36 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ispf edit macro "HX" line command hi, there is a way to execute "HX" line command from edit macro ? -- 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 edit macro "HX" line command
I don't have any example, I've never used the hex line command but I bet if you can use a shift left or right line command you can use the HX line command. after setting your cursor to the required line ISREDIT HX .ZCSR - 'MAY' work Carmen On 9/2/2021 6:35 AM, Weizman arbel wrote: hi, there is a way to execute "HX" line command from edit macro ? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- /I am not bound to win, but I am bound to be true. I am not bound to succeed, but I am bound to live by the light that I have. I must stand with anybody that stands right, and stand with him while he is right, and part with him when he goes wrong. *Abraham Lincoln*/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ispf edit macro "HX" line command
hi, there is a way to execute "HX" line command from edit macro ? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
> When all vendor extensions fail, as a last resort, try the ANSI standard. Which says: 5.3.4 Other_negators A configuration may have a category of characters in source programs called other_negators. Other_negators are determined by the configuration. Only the following characters represent possible characters of this category. The glyphs used to represent them in this document are also shown: – ^ circumflex accent, caret; – ¬ not sign. without specifying the code page. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu] Sent: Sunday, May 30, 2021 1:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression On Sat, 29 May 2021 20:15:17 -0700, Charles Mills wrote: >That's why we get the big bucks. > Ah! EBCDIC belongs top the Full Employment Program for coders! On Sun, 30 May 2021 15:48:01 +, Seymour J Metz wrote: >> That's not cheating; > >Of course it is cheating; it's not a faithful representation of the original >program, and it may even break the code. > When all vendor extensions fail, as a last resort, try the ANSI standard. >> On LISTSERV WWW, 'C2AC'. > >I have no idea where the C2 is coming from; the AC is correct. > https://secure-web.cisco.com/1r8RtNoGC7MN4DzWahrzTCgqvQQWwTaG07pE9-yDSK7DSp1gCnjuJVB3CB_-wI6XkYuF2vMKPereGKi7n1RjDvthXeSrWtF52AlTgv1XaPWlNukYvcUT9i3jMf01xySURS9LVK_tNg5NCbSXZ08gHlNv0srsgOXjbxRblMucAu69SAf_O_4diZPm45oez_opk2AvsVSqEBeFdJC839PpZdkedd2jDBauPiomu8C1NIfR9zx0-ijmZ7-WpiDQS_AWA2YZYoI9RjlJdMqkzORLn7tBR7IPbmJjWvLCsB_msuPx5NyXlrEuhPstdSQxV8bjn9Ax_B2qLF5og-Wqo0it7FnvdxAAX78to4DY9tjoxJYppzXlWf-0WyVzxxqA5cXqh-StEM0lIf2ah2XAZk4DfmtGNrv7siYSx2QkoJd7J6DPPNQ0q1YQYQABHOgxNQNH0/https%3A%2F%2Fwww.utf8-chartable.de%2F > >On Su , 30 May 2021 01:03:04 +, Seymour J Metz wrote: > >>> I tate EBCDIC issue, it's a multiple code page set issue!. Pop quiz: when >>> using REXX on a PC, is ¬ 'AA'X or 'AC'X? And, yes, you can cheat and use \ >> It's uncharacteristic that you hold Windows as an exemplar. -- 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 Edit Macro Regular Expression
On Sat, 29 May 2021 20:15:17 -0700, Charles Mills wrote: >That's why we get the big bucks. > Ah! EBCDIC belongs top the Full Employment Program for coders! On Sun, 30 May 2021 15:48:01 +, Seymour J Metz wrote: >> That's not cheating; > >Of course it is cheating; it's not a faithful representation of the original >program, and it may even break the code. > When all vendor extensions fail, as a last resort, try the ANSI standard. >> On LISTSERV WWW, 'C2AC'. > >I have no idea where the C2 is coming from; the AC is correct. > https://www.utf8-chartable.de/ > >On Su , 30 May 2021 01:03:04 +, Seymour J Metz wrote: > >>> I tate EBCDIC issue, it's a multiple code page set issue!. Pop quiz: when >>> using REXX on a PC, is ¬ 'AA'X or 'AC'X? And, yes, you can cheat and use \ >> It's uncharacteristic that you hold Windows as an exemplar. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
> That's not cheating; Of course it is cheating; it's not a faithful representation of the original program, and it may even break the code. > On LISTSERV WWW, 'C2AC'. I have no idea where the C2 is coming from; the AC is correct. > In Regina Ref.: Try each of AA and AC on both OOREXX and Regina. This insanity inspired me to writ a TRYNOT script: /* Test whether REXX recognizes all of the logical not characters */ Nots = '\' 'aa'x 'ac'x do 3 parse var Nots Not Nots say 'Trying' Not c2x(Not) interpret 'compare = a' Not'= b' say Not 'recognized' end It's a throwaway; otherwise I would have intercepted the error and written my own message. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu] Sent: Saturday, May 29, 2021 11:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression On Sun, 30 May 2021 01:03:04 +, Seymour J Metz wrote: >> I hate EBCDIC issue, it's a multiple code page set issue!. Pop quiz: when >> using REXX on a PC, is � 'AA'X or 'AC'X? And, yes, you can cheat and use \ > That's not cheating; it's USASCII. Porrtable. >... so you don't have to care which code page and which interpreter, but why >should you have to? And what if you want to download exist REXX code from, >e.g., z/OS, zVM? > In your email I see: Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable ...is =AC... On LISTSERV WWW, 'C2AC'. In Regina Ref.: 2.5.4.1 Negators Some of the above comparisons can be negated by prefixing a negator character. Regina supports the following characters as negators: \ Backslash (ANSI Standard) ^ Caret ~ Tilde ¬ Logical Not Again, 'C2AC'x. And when I paste it into a script I get a syntax error: Error 13 running "/proc/4320/fd/pipe:[9516]", line 1: Invalid character in program Error 13.1: Invalid character in program "('c2'X)" -- 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 Edit Macro Regular Expression
Hi Seann, Thank you! Regards, David On 2021-05-30 06:06, Sean Gleann wrote: David: "...I still would like to know how to display which codepage I am using" I can't see that anyone else has said this, so I might be repeating something... In PCOMM, start up a session, and you should see a menu bar at the top, where one of the options is 'Communication'. Click on that, then 'Configuration', then 'Session Parameters'. The value given in the 'Host Code-page' drop-down is what you're looking for, I think. Regards Sean On Sun, 30 May 2021 at 04:15, Charles Mills wrote: That's why we get the big bucks. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Seymour J Metz Sent: Saturday, May 29, 2021 6:03 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression I hate EBCDIC issue, it's a multiple code page set issue!. Pop quiz: when using REXX on a PC, is ¬ 'AA'X or 'AC'X? And, yes, you can cheat and use \ so you don't have to care which code page and which interpreter, but why should you have to? And what if you want to download exist REXX code from, e.g., z/OS, zVM? -- 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: ISPF Edit Macro Regular Expression
David: "...I still would like to know how to display which codepage I am using" I can't see that anyone else has said this, so I might be repeating something... In PCOMM, start up a session, and you should see a menu bar at the top, where one of the options is 'Communication'. Click on that, then 'Configuration', then 'Session Parameters'. The value given in the 'Host Code-page' drop-down is what you're looking for, I think. Regards Sean On Sun, 30 May 2021 at 04:15, Charles Mills wrote: > That's why we get the big bucks. > > Charles > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Seymour J Metz > Sent: Saturday, May 29, 2021 6:03 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ISPF Edit Macro Regular Expression > > > I hate EBCDIC issue, it's a multiple code page set issue!. Pop quiz: when > using REXX on a PC, is ¬ 'AA'X or 'AC'X? And, yes, you can cheat and use \ > so you don't have to care which code page and which interpreter, but why > should you have to? And what if you want to download exist REXX code from, > e.g., z/OS, zVM? > > -- > 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 Edit Macro Regular Expression
That's why we get the big bucks. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Seymour J Metz Sent: Saturday, May 29, 2021 6:03 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression > I hate EBCDIC issue, it's a multiple code page set issue!. Pop quiz: when using REXX on a PC, is ¬ 'AA'X or 'AC'X? And, yes, you can cheat and use \ so you don't have to care which code page and which interpreter, but why should you have to? And what if you want to download exist REXX code from, e.g., z/OS, zVM? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
On Sun, 30 May 2021 01:03:04 +, Seymour J Metz wrote: >> I hate EBCDIC issue, it's a multiple code page set issue!. Pop quiz: when >> using REXX on a PC, is � 'AA'X or 'AC'X? And, yes, you can cheat and use \ > That's not cheating; it's USASCII. Porrtable. >... so you don't have to care which code page and which interpreter, but why >should you have to? And what if you want to download exist REXX code from, >e.g., z/OS, zVM? > In your email I see: Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable ...is =AC... On LISTSERV WWW, 'C2AC'. In Regina Ref.: 2.5.4.1 Negators Some of the above comparisons can be negated by prefixing a negator character. Regina supports the following characters as negators: \ Backslash (ANSI Standard) ^ Caret ~ Tilde ¬ Logical Not Again, 'C2AC'x. And when I paste it into a script I get a syntax error: Error 13 running "/proc/4320/fd/pipe:[9516]", line 1: Invalid character in program Error 13.1: Invalid character in program "('c2'X)" -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
tThe bottom half of the screen looks like a hex dump of the inbound data stream (Query Reply) for a Read Partition - Query. The code page is transmitted in binary, not as an EBCDIC character string. '0417'X is 1047 decimal. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tom Brennan [t...@tombrennansoftware.com] Sent: Saturday, May 29, 2021 1:10 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression Hi Greg, That's probably what I'm thinking of, or maybe in the back of my mind it was something under ISPF written by Doug Nadel. I forgot! But I just tried your program and I see my current code page 1047 showing up as 0417 hex - highlighted at the bottom of this image: http://secure-web.cisco.com/1aq8MAQ0mqu9RGkYOrJk8scEZiaEFfjCb-C8VQUdMPQlP49OoBM2Y8vmQ_IYYCZ3wBiGnZmMXhfuWqeuB5tBygpvGfX73OAM1ZY3kTOTvehwJPP-BCkBbhWBAxPGYWN9sJnQheD6qc2pm1bb9GTuW8x5vrSaoKaa07FuJKVlwLgttBL00_mGHseMubvpJ8qH0b6VzBgrsjiXGYquBN1el5SMS6UjcopIDp33lr9TgILxBwhq6ImJwPImny0YNIvn68p3XrbL6Wf1I3Ey28KO4-IzBnvL_mluzM9mYVHLPODfldoxuonVSpDZwkueiH7GUiKbPTvoMfcDvGunUcH41jTjK0xq9kuvAlP64S-odpGCznwAIh7zTx7HJO1XjW0OLk4VqpiIF3CPt5nPJlwwxXXYYN4PiXQmf8xoMsUZEwgyEw3H06t0ujLA_s8paXWOM/http%3A%2F%2Fwww.mildredbrennan.com%2Fmvs%2Ftermtest.png Tom On 5/28/2021 9:12 PM, Greg Price wrote: > > Tom, > Might that have been TERMTEST from CBT file 134/135 ? > Cheers, > Greg > -- 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 Edit Macro Regular Expression
> I hate EBCDIC issue, it's a multiple code page set issue!. Pop quiz: when > using REXX on a PC, is ¬ 'AA'X or 'AC'X? And, yes, you can cheat and use \ > so you don't have to care which code page and which interpreter, but why > should you have to? And what if you want to download exist REXX code from, > e.g., z/OS, zVM? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu] Sent: Friday, May 28, 2021 7:50 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression (This thread would better go on ISPF-L.) On Fri, 28 May 2021 13:27:23 -0400, David Spiegel wrote: > >I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular >Expression. >... >I turned HEX ON so that my square brackets can be displayed. (I used >x'AD' and x'BD'). > This sucks! Metacharacters in macros are interpreted according to the CCSID of the attached terminal; 1047 if in background. It implies that the author of a macro must publish a variant for each supported terminal type and thee user must adjust SYSEXEC for the terminal in use. Does any IBM representative care to defend this design? Better there should be a PRAGMA CCSID command to specify the interpretation of metacharacters. Better still, the macro should be loaded from zFS tagged with CCSID. Even 1208. I hate EBCDIC! -- 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 Edit Macro Regular Expression
Nice! I like the SYMSET character map too. For me, hex is no problem - I still have a couple of Casio CM-100 calculators from the 1980's, which are far above any others I used in ease of use. http://edspi31415.blogspot.com/2017/02/retro-review-casio-cm-100-computer-math.html On 5/29/2021 6:56 AM, Greg Price wrote: On 5/28/2021 10:10 PM, Tom Brennan wrote: I see my current code page 1047 showing up as 0417 hex - highlighted at the bottom of this image: http://www.mildredbrennan.com/mvs/termtest.png Right... Well done to spot it there! SYMSET0 should break that out (still in hex sorry to say) on the second screen line so it's a bit clearer to see. I get CGCSGID=02B9-0417 for SYMSET0 and CGCSGID=03C3-0136 for SYMSET1 which is the APL or graphic character set. Greg -- 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 Edit Macro Regular Expression
On 5/28/2021 10:10 PM, Tom Brennan wrote: I see my current code page 1047 showing up as 0417 hex - highlighted at the bottom of this image: http://www.mildredbrennan.com/mvs/termtest.png Right... Well done to spot it there! SYMSET0 should break that out (still in hex sorry to say) on the second screen line so it's a bit clearer to see. I get CGCSGID=02B9-0417 for SYMSET0 and CGCSGID=03C3-0136 for SYMSET1 which is the APL or graphic character set. Greg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
Hi Greg, That's probably what I'm thinking of, or maybe in the back of my mind it was something under ISPF written by Doug Nadel. I forgot! But I just tried your program and I see my current code page 1047 showing up as 0417 hex - highlighted at the bottom of this image: http://www.mildredbrennan.com/mvs/termtest.png Tom On 5/28/2021 9:12 PM, Greg Price wrote: Tom, Might that have been TERMTEST from CBT file 134/135 ? Cheers, Greg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
On 29/05/2021 7:30 am, Tom Brennan wrote: But years ago I remember a bit of free code that displayed many more terminal characteristics. I'm not talking ISPF terminal types (I'd recommend using type 3 with PCOMM, some others tell ISPF to sends graphic characters to the screen). I'm talking about things like screen x/y size, color options, whether it can do underlining, character sets, etc. Tom, Might that have been TERMTEST from CBT file 134/135 ? Cheers, Greg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
(This thread would better go on ISPF-L.) On Fri, 28 May 2021 13:27:23 -0400, David Spiegel wrote: > >I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular >Expression. >... >I turned HEX ON so that my square brackets can be displayed. (I used >x'AD' and x'BD'). > This sucks! Metacharacters in macros are interpreted according to the CCSID of the attached terminal; 1047 if in background. It implies that the author of a macro must publish a variant for each supported terminal type and thee user must adjust SYSEXEC for the terminal in use. Does any IBM representative care to defend this design? Better there should be a PRAGMA CCSID command to specify the interpretation of metacharacters. Better still, the macro should be loaded from zFS tagged with CCSID. Even 1208. I hate EBCDIC! -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
In addition to what you can get from TSO and ISPF, you can use TPG to write a WSF datastream. Read Partition - Query will give you the basics. Of course, that's overkill if all you want is the screen geometry. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Tom Brennan Sent: Friday, May 28, 2021 5:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression There is a variable. I found this old panel of mine: ** * Top of Data * 01 )BODY 02 %CCSID is &ztermcid 03 )END ** Bottom of Data *** But years ago I remember a bit of free code that displayed many more terminal characteristics. I'm not talking ISPF terminal types (I'd recommend using type 3 with PCOMM, some others tell ISPF to sends graphic characters to the screen). I'm talking about things like screen x/y size, color options, whether it can do underlining, character sets, etc. Somebody wrote such a thing and I just forgot who/where/what. And that code may have worked outside of ISPF, since any program doing TPUT/TGET can ask the terminal for its characteristics and dump them out to the screen or whatever. On 5/28/2021 11:57 AM, Seymour J Metz wrote: > There's probably a dialog variable for it, but I don't recall. Meanwhile, > what happens with teminal type 4 and 6? > > If you manually start ISPF from the READY prompt, you can specify a codepage > on ISPSTART. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > David Spiegel [dspiegel...@hotmail.com] > Sent: Friday, May 28, 2021 2:01 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: ISPF Edit Macro Regular Expression > > Hi R'Shmuel AMV"SH, > I am using PCOMM. > How do I display the Code Page? > > ISPF Option 0: > Log/List Function keys Colors Environ Workstation Identifier Help > ss > ISPF Settings > Command ===> > > Options Print Graphics > Enter "/" to select optionFamily printer type 2 >Command line at bottom Device name . . . . > / Panel display CUA mode Aspect ratio . . . 0 > / Long message in pop-up > / Tab to action bar choices >Tab to point-and-shoot fields General > / Restore TEST/TRACE options Input field pad . . B >Session Manager mode Command delimiter . ; > / Jump from leader dots >Edit PRINTDS Command > / Always show split line >Enable EURO sign > > Member list options > Enter "/" to select option > / Scroll member list >Allow empty member list >Allow empty member list (nomatch) > / Empty member list for edit only > > Terminal Characteristics > Screen format 3 1. Data2. Std 3. Max 4. Part > > Terminal Type 31. 3277 2. 3277A 3. 3278 4. 3278A > 5. 3290A 6. 3278T 7. 3278CF 8. 3277KN > 9. 3278KN10. 3278AR11. 3278CY 12. 3278HN > 13. 3278HO14. 3278IS15. 3278L2 16. BE163 > 17. BE190 18. 3278TH19. 3278CU 20. DEU78 > 21. DEU78A22. DEU78T23. DEU90A 24. SW116 > 25. SW131 26. SW500 27. 3278GR 28. 3278L1 > 29. OTHER > > > Regards, > David > > On 2021-05-28 13:49, Seymour J Metz wrote: >> What code pages are you using and what does ISPF show under option 0? >> >> https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htm&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=XMqut0VkUqEx3ZZ%2BZv0x6JhS66IclZN1N7uwhaLo928%3D&reserved=0 >> "In codepage 037, the left bracket character [ is X'BA', the right bracket >> character ] is X'BB'. However, in code pages 1047 and 939, the left bracket >> character [ is X'AD', the right bracket character ] is X'BD'." >> >> >> >> -- >>
Re: ISPF Edit Macro Regular Expression
There is a variable. I found this old panel of mine: ** * Top of Data * 01 )BODY 02 %CCSID is &ztermcid 03 )END ** Bottom of Data *** But years ago I remember a bit of free code that displayed many more terminal characteristics. I'm not talking ISPF terminal types (I'd recommend using type 3 with PCOMM, some others tell ISPF to sends graphic characters to the screen). I'm talking about things like screen x/y size, color options, whether it can do underlining, character sets, etc. Somebody wrote such a thing and I just forgot who/where/what. And that code may have worked outside of ISPF, since any program doing TPUT/TGET can ask the terminal for its characteristics and dump them out to the screen or whatever. On 5/28/2021 11:57 AM, Seymour J Metz wrote: There's probably a dialog variable for it, but I don't recall. Meanwhile, what happens with teminal type 4 and 6? If you manually start ISPF from the READY prompt, you can specify a codepage on ISPSTART. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of David Spiegel [dspiegel...@hotmail.com] Sent: Friday, May 28, 2021 2:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression Hi R'Shmuel AMV"SH, I am using PCOMM. How do I display the Code Page? ISPF Option 0: Log/List Function keys Colors Environ Workstation Identifier Help ss ISPF Settings Command ===> Options Print Graphics Enter "/" to select optionFamily printer type 2 Command line at bottom Device name . . . . / Panel display CUA mode Aspect ratio . . . 0 / Long message in pop-up / Tab to action bar choices Tab to point-and-shoot fields General / Restore TEST/TRACE options Input field pad . . B Session Manager mode Command delimiter . ; / Jump from leader dots Edit PRINTDS Command / Always show split line Enable EURO sign Member list options Enter "/" to select option / Scroll member list Allow empty member list Allow empty member list (nomatch) / Empty member list for edit only Terminal Characteristics Screen format 3 1. Data2. Std 3. Max 4. Part Terminal Type 31. 3277 2. 3277A 3. 3278 4. 3278A 5. 3290A 6. 3278T 7. 3278CF 8. 3277KN 9. 3278KN10. 3278AR11. 3278CY 12. 3278HN 13. 3278HO14. 3278IS15. 3278L2 16. BE163 17. BE190 18. 3278TH19. 3278CU 20. DEU78 21. DEU78A22. DEU78T23. DEU90A 24. SW116 25. SW131 26. SW500 27. 3278GR 28. 3278L1 29. OTHER Regards, David On 2021-05-28 13:49, Seymour J Metz wrote: What code pages are you using and what does ISPF show under option 0? https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htm&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=XMqut0VkUqEx3ZZ%2BZv0x6JhS66IclZN1N7uwhaLo928%3D&reserved=0 "In codepage 037, the left bracket character [ is X'BA', the right bracket character ] is X'BB'. However, in code pages 1047 and 939, the left bracket character [ is X'AD', the right bracket character ] is X'BD'." -- Shmuel (Seymour J.) Metz https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=3qlObBaE0LnaMhGs57%2BI3aqdvUv5Qdo0SkdZIXw8qtI%3D&reserved=0 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of David Spiegel [dspiegel...@hotmail.com] Sent: Friday, May 28, 2021 1:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ISPF Edit Macro Regular Expression Hi, I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular Expression. I'm getting a ISRE997 on this line: "ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3 7CEDCCCE4CCDC4D7ACDDD
Re: ISPF Edit Macro Regular Expression
4 and 6 look weird. On 2021-05-28 14:57, Seymour J Metz wrote: There's probably a dialog variable for it, but I don't recall. Meanwhile, what happens with teminal type 4 and 6? If you manually start ISPF from the READY prompt, you can specify a codepage on ISPSTART. -- Shmuel (Seymour J.) Metz https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C2425f20fbce34c88a69b08d9220a7b7e%7C84df9e7fe9f640afb435%7C1%7C0%7C637578250693252217%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=o%2FHWj%2BqGcjkPjDJ9SDk6qnlIW5B4jO5ojPHXZbUE8V4%3D&reserved=0 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of David Spiegel [dspiegel...@hotmail.com] Sent: Friday, May 28, 2021 2:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression Hi R'Shmuel AMV"SH, I am using PCOMM. How do I display the Code Page? ISPF Option 0: Log/List Function keys Colors Environ Workstation Identifier Help ss ISPF Settings Command ===> Options Print Graphics Enter "/" to select optionFamily printer type 2 Command line at bottom Device name . . . . / Panel display CUA mode Aspect ratio . . . 0 / Long message in pop-up / Tab to action bar choices Tab to point-and-shoot fields General / Restore TEST/TRACE options Input field pad . . B Session Manager mode Command delimiter . ; / Jump from leader dots Edit PRINTDS Command / Always show split line Enable EURO sign Member list options Enter "/" to select option / Scroll member list Allow empty member list Allow empty member list (nomatch) / Empty member list for edit only Terminal Characteristics Screen format 3 1. Data2. Std 3. Max 4. Part Terminal Type 31. 3277 2. 3277A 3. 3278 4. 3278A 5. 3290A 6. 3278T 7. 3278CF 8. 3277KN 9. 3278KN10. 3278AR11. 3278CY 12. 3278HN 13. 3278HO14. 3278IS15. 3278L2 16. BE163 17. BE190 18. 3278TH19. 3278CU 20. DEU78 21. DEU78A22. DEU78T23. DEU90A 24. SW116 25. SW131 26. SW500 27. 3278GR 28. 3278L1 29. OTHER Regards, David On 2021-05-28 13:49, Seymour J Metz wrote: What code pages are you using and what does ISPF show under option 0? https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htm&data=04%7C01%7C%7C2425f20fbce34c88a69b08d9220a7b7e%7C84df9e7fe9f640afb435%7C1%7C0%7C637578250693252217%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=nF5yi9%2FkJHnG68RRv4eyYtoxp4Kl902gjnZqt726L4s%3D&reserved=0 "In codepage 037, the left bracket character [ is X'BA', the right bracket character ] is X'BB'. However, in code pages 1047 and 939, the left bracket character [ is X'AD', the right bracket character ] is X'BD'." -- Shmuel (Seymour J.) Metz https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C2425f20fbce34c88a69b08d9220a7b7e%7C84df9e7fe9f640afb435%7C1%7C0%7C637578250693252217%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=o%2FHWj%2BqGcjkPjDJ9SDk6qnlIW5B4jO5ojPHXZbUE8V4%3D&reserved=0 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of David Spiegel [dspiegel...@hotmail.com] Sent: Friday, May 28, 2021 1:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ISPF Edit Macro Regular Expression Hi, I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular Expression. I'm getting a ISRE997 on this line: "ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3 7CEDCCCE4CCDC4D7ACD775B774F444 F92954930695409DD12345678912345678923456789CBBDDF03000 I turned HEX ON so that my square brackets can be displayed. (I used x'AD' and x'BD'). I am trying to find the next JCL Statement with a valid label (i.e. an Alphabetic or National Character in Column 3). Ideally I would like to start my search at column 1 and FIND // followed Alphabetic/National in Column 3), Please help. Thanks and regards, David ---
Re: ISPF Edit Macro Regular Expression
There's probably a dialog variable for it, but I don't recall. Meanwhile, what happens with teminal type 4 and 6? If you manually start ISPF from the READY prompt, you can specify a codepage on ISPSTART. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of David Spiegel [dspiegel...@hotmail.com] Sent: Friday, May 28, 2021 2:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression Hi R'Shmuel AMV"SH, I am using PCOMM. How do I display the Code Page? ISPF Option 0: Log/List Function keys Colors Environ Workstation Identifier Help ss ISPF Settings Command ===> Options Print Graphics Enter "/" to select optionFamily printer type 2 Command line at bottom Device name . . . . / Panel display CUA mode Aspect ratio . . . 0 / Long message in pop-up / Tab to action bar choices Tab to point-and-shoot fields General / Restore TEST/TRACE options Input field pad . . B Session Manager mode Command delimiter . ; / Jump from leader dots Edit PRINTDS Command / Always show split line Enable EURO sign Member list options Enter "/" to select option / Scroll member list Allow empty member list Allow empty member list (nomatch) / Empty member list for edit only Terminal Characteristics Screen format 3 1. Data2. Std 3. Max 4. Part Terminal Type 31. 3277 2. 3277A 3. 3278 4. 3278A 5. 3290A 6. 3278T 7. 3278CF 8. 3277KN 9. 3278KN10. 3278AR11. 3278CY 12. 3278HN 13. 3278HO14. 3278IS15. 3278L2 16. BE163 17. BE190 18. 3278TH19. 3278CU 20. DEU78 21. DEU78A22. DEU78T23. DEU90A 24. SW116 25. SW131 26. SW500 27. 3278GR 28. 3278L1 29. OTHER Regards, David On 2021-05-28 13:49, Seymour J Metz wrote: > What code pages are you using and what does ISPF show under option 0? > > https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htm&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=XMqut0VkUqEx3ZZ%2BZv0x6JhS66IclZN1N7uwhaLo928%3D&reserved=0 > "In codepage 037, the left bracket character [ is X'BA', the right bracket > character ] is X'BB'. However, in code pages 1047 and 939, the left bracket > character [ is X'AD', the right bracket character ] is X'BD'." > > > > -- > Shmuel (Seymour J.) Metz > https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=3qlObBaE0LnaMhGs57%2BI3aqdvUv5Qdo0SkdZIXw8qtI%3D&reserved=0 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > David Spiegel [dspiegel...@hotmail.com] > Sent: Friday, May 28, 2021 1:27 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: ISPF Edit Macro Regular Expression > > Hi, > I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular > Expression. > I'm getting a ISRE997 on this line: > "ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3 > 7CEDCCCE4CCDC4D7ACD775B774F444 > F92954930695409DD12345678912345678923456789CBBDDF03000 > > I turned HEX ON so that my square brackets can be displayed. (I used > x'AD' and x'BD'). > I am trying to find the next JCL Statement with a valid label (i.e. an > Alphabetic or National Character in Column 3). > Ideally I would like to start my search at column 1 and FIND // > followed Alphabetic/National in Column 3), > > Please help. > > Thanks and regards, > David > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > -
Re: ISPF Edit Macro Regular Expression
Hi R'Shmuel AMV"SH. I changed the brackets to x'BA' and x'BB'. Now, it works. Thank you! I still would like to know how to display which codepage I am using. Any ideas? Thanks and regards, David On 2021-05-28 13:49, Seymour J Metz wrote: What code pages are you using and what does ISPF show under option 0? https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htm&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=XMqut0VkUqEx3ZZ%2BZv0x6JhS66IclZN1N7uwhaLo928%3D&reserved=0 "In codepage 037, the left bracket character [ is X'BA', the right bracket character ] is X'BB'. However, in code pages 1047 and 939, the left bracket character [ is X'AD', the right bracket character ] is X'BD'." -- Shmuel (Seymour J.) Metz https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=3qlObBaE0LnaMhGs57%2BI3aqdvUv5Qdo0SkdZIXw8qtI%3D&reserved=0 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of David Spiegel [dspiegel...@hotmail.com] Sent: Friday, May 28, 2021 1:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ISPF Edit Macro Regular Expression Hi, I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular Expression. I'm getting a ISRE997 on this line: "ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3 7CEDCCCE4CCDC4D7ACD775B774F444 F92954930695409DD12345678912345678923456789CBBDDF03000 I turned HEX ON so that my square brackets can be displayed. (I used x'AD' and x'BD'). I am trying to find the next JCL Statement with a valid label (i.e. an Alphabetic or National Character in Column 3). Ideally I would like to start my search at column 1 and FIND // followed Alphabetic/National in Column 3), Please help. Thanks and regards, David -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN . -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
Hi R'Shmuel AMV"SH, I am using PCOMM. How do I display the Code Page? ISPF Option 0: Log/List Function keys Colors Environ Workstation Identifier Help ss ISPF Settings Command ===> Options Print Graphics Enter "/" to select option Family printer type 2 Command line at bottom Device name . . . . / Panel display CUA mode Aspect ratio . . . 0 / Long message in pop-up / Tab to action bar choices Tab to point-and-shoot fields General / Restore TEST/TRACE options Input field pad . . B Session Manager mode Command delimiter . ; / Jump from leader dots Edit PRINTDS Command / Always show split line Enable EURO sign Member list options Enter "/" to select option / Scroll member list Allow empty member list Allow empty member list (nomatch) / Empty member list for edit only Terminal Characteristics Screen format 3 1. Data 2. Std 3. Max 4. Part Terminal Type 3 1. 3277 2. 3277A 3. 3278 4. 3278A 5. 3290A 6. 3278T 7. 3278CF 8. 3277KN 9. 3278KN 10. 3278AR 11. 3278CY 12. 3278HN 13. 3278HO 14. 3278IS 15. 3278L2 16. BE163 17. BE190 18. 3278TH 19. 3278CU 20. DEU78 21. DEU78A 22. DEU78T 23. DEU90A 24. SW116 25. SW131 26. SW500 27. 3278GR 28. 3278L1 29. OTHER Regards, David On 2021-05-28 13:49, Seymour J Metz wrote: What code pages are you using and what does ISPF show under option 0? https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htm&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=XMqut0VkUqEx3ZZ%2BZv0x6JhS66IclZN1N7uwhaLo928%3D&reserved=0 "In codepage 037, the left bracket character [ is X'BA', the right bracket character ] is X'BB'. However, in code pages 1047 and 939, the left bracket character [ is X'AD', the right bracket character ] is X'BD'." -- Shmuel (Seymour J.) Metz https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=3qlObBaE0LnaMhGs57%2BI3aqdvUv5Qdo0SkdZIXw8qtI%3D&reserved=0 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of David Spiegel [dspiegel...@hotmail.com] Sent: Friday, May 28, 2021 1:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ISPF Edit Macro Regular Expression Hi, I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular Expression. I'm getting a ISRE997 on this line: "ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3 7CEDCCCE4CCDC4D7ACD775B774F444 F92954930695409DD12345678912345678923456789CBBDDF03000 I turned HEX ON so that my square brackets can be displayed. (I used x'AD' and x'BD'). I am trying to find the next JCL Statement with a valid label (i.e. an Alphabetic or National Character in Column 3). Ideally I would like to start my search at column 1 and FIND // followed Alphabetic/National in Column 3), Please help. Thanks and regards, David -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN . -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Edit Macro Regular Expression
What code pages are you using and what does ISPF show under option 0? https://www.ibm.com/support/knowledgecenter/en/SSZJDU_6.2.0/com.ibm.itnetviewforzos.doc_6.2/dqd_custocbe_codepage.htm "In codepage 037, the left bracket character [ is X'BA', the right bracket character ] is X'BB'. However, in code pages 1047 and 939, the left bracket character [ is X'AD', the right bracket character ] is X'BD'." -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of David Spiegel [dspiegel...@hotmail.com] Sent: Friday, May 28, 2021 1:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ISPF Edit Macro Regular Expression Hi, I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular Expression. I'm getting a ISRE997 on this line: "ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3 7CEDCCCE4CCDC4D7ACD775B774F444 F92954930695409DD12345678912345678923456789CBBDDF03000 I turned HEX ON so that my square brackets can be displayed. (I used x'AD' and x'BD'). I am trying to find the next JCL Statement with a valid label (i.e. an Alphabetic or National Character in Column 3). Ideally I would like to start my search at column 1 and FIND // followed Alphabetic/National in Column 3), Please help. Thanks and regards, David -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ISPF Edit Macro Regular Expression
Hi, I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular Expression. I'm getting a ISRE997 on this line: "ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3 7CEDCCCE4CCDC4D7ACD775B774F444 F92954930695409DD12345678912345678923456789CBBDDF03000 I turned HEX ON so that my square brackets can be displayed. (I used x'AD' and x'BD'). I am trying to find the next JCL Statement with a valid label (i.e. an Alphabetic or National Character in Column 3). Ideally I would like to start my search at column 1 and FIND // followed Alphabetic/National in Column 3), Please help. Thanks and regards, David -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Edit Macro
Huh! I looked for it, and missed it anyway. Sorry, all. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* Where there’s marriage without love, there will be love without marriage. -Poor Richard */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Thursday, August 6, 2020 22:38 > It was mentioned and addressed: --- On Thu, 6 Aug 2020 20:51:42 -0400, Bob Bridges wrote: >No one else has mentioned it, so I may be all wet, but don't you have to >have an ISPF environment to run an ISPF Edit macro? IKJEFT01 won't do >itI thought. --- On Thu, 6 Aug 2020 22:40:40 +, Steely.Mark wrote: >... >//SYSTSIN DD * >PROFILE PREFIX(xx) >ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) >/* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Edit Macro
On Thu, 6 Aug 2020, at 23:40, Steely.Mark wrote: > //SYSTSIN DD * > PROFILE PREFIX(xx) > ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) So the command being issued once ispf is up is %EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1) > Here is EDITREX1: > PARSE ARG filename macro1 macro2 so, filename will be XXX0111.DATA(DATAXX) macro1 will be- macro2 will beEICUPDT PARM(1) And it will not work. Either you need to change the parse statement to take account of the "-" in the incoming argument string, or you need to leave it out of the arguments. Either way you should do some basic sanity checking of the values of filename, macro1 and macro2 before you use them. > ADDRESS ISPEXEC "EDIT DATASET('"filename"') MACRO("macro1") "macro2 > I added macro2 to accept the parm value. > This is the results: > >>O> "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) > PARM(1)" <---This is the last line that the trace produced I don't see how it's possible for the code you posted to have produced that error. Why did the "-" in the original ISPSTART command vanish? -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Edit Macro
On Thu, 6 Aug 2020 20:51:42 -0400, Bob Bridges wrote: >No one else has mentioned it, so I may be all wet, but don't you have to >have an ISPF environment to run an ISPF Edit macro? IKJEFT01 won't do >itI thought. > It was mentioned and addressed: On Thu, 6 Aug 2020 22:40:40 +, Steely.Mark wrote: >... >//SYSTSIN DD * >PROFILE PREFIX(xx) >ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) >/* -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Edit Macro
You are correct; you have to call an EDIT macro from within EDIT. However, you can write a macro that tests how it was invoked and behaves accordingly. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Bob Bridges Sent: Thursday, August 6, 2020 8:51 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Edit Macro No one else has mentioned it, so I may be all wet, but don't you have to have an ISPF environment to run an ISPF Edit macro? IKJEFT01 won't do itI thought. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* Never dare your little brother to paint the family car. -from "Deep Thoughts From Kids" contest, ages 4-15 years */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steely.Mark Sent: Thursday, August 6, 2020 18:36 I have this edit macro EICUPDT: * Top of Data ISREDIT MACRO (NUM1) ISREDIT COPY EICLIST 20 20 BEFORE 1 ISREDIT COPY EICLIST &NUM1 &NUM1 BEFORE 1 EXIT: + EXIT CODE(0) Bottom of Data ** When I am in a edit member session and I enter this command "EICUPDT 3" from the command line the Macro works as expected. All this does is copy 2 lines from EICLIST. It always copies line 20 but I supply a number for the other line to copy. I am trying to execute this in batch. I have done this in the past but I never needed to pass a parm. //TSOBTCH1 EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* ... //SYSTSIN DD * PROFILE PREFIX(xx) ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) /* //* Here is EDITREX1: * Top of Data * /* REXX */ TRACE IR /* -- */ /* All REXX reserved words are shown in CAPS and all user */ /* defined variables are shown in 'lower case'. */ /* -- */ PARSE ARG filename macro1 macro2 ADDRESS ISPEXEC "EDIT DATASET('"filename"') MACRO("macro1") "macro2 Bottom of Data *** I added macro2 to accept the parm value. This is the results: >O> "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) PARM(1)" <---This is the last line that the trace produced ISRP124 Macro parameter error -/-The parameter specified by PARM keyword of the EDIT service could not be resolved. READY I have tried several different ways. Too many to show here. Any help would be appreciated. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Edit Macro
No one else has mentioned it, so I may be all wet, but don't you have to have an ISPF environment to run an ISPF Edit macro? IKJEFT01 won't do itI thought. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* Never dare your little brother to paint the family car. -from "Deep Thoughts From Kids" contest, ages 4-15 years */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steely.Mark Sent: Thursday, August 6, 2020 18:36 I have this edit macro EICUPDT: * Top of Data ISREDIT MACRO (NUM1) ISREDIT COPY EICLIST 20 20 BEFORE 1 ISREDIT COPY EICLIST &NUM1 &NUM1 BEFORE 1 EXIT: + EXIT CODE(0) Bottom of Data ** When I am in a edit member session and I enter this command "EICUPDT 3" from the command line the Macro works as expected. All this does is copy 2 lines from EICLIST. It always copies line 20 but I supply a number for the other line to copy. I am trying to execute this in batch. I have done this in the past but I never needed to pass a parm. //TSOBTCH1 EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* ... //SYSTSIN DD * PROFILE PREFIX(xx) ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) /* //* Here is EDITREX1: * Top of Data * /* REXX */ TRACE IR /* -- */ /* All REXX reserved words are shown in CAPS and all user */ /* defined variables are shown in 'lower case'. */ /* -- */ PARSE ARG filename macro1 macro2 ADDRESS ISPEXEC "EDIT DATASET('"filename"') MACRO("macro1") "macro2 Bottom of Data *** I added macro2 to accept the parm value. This is the results: >O> "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) PARM(1)" <---This is the last line that the trace produced ISRP124 Macro parameter error -/-The parameter specified by PARM keyword of the EDIT service could not be resolved. READY I have tried several different ways. Too many to show here. Any help would be appreciated. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Edit Macro
So, you would do it like this: ISPEXEC EDIT DSN(BLAHBLAH) MACRO(START) In START: ISREDIT MACRO ISREDIT EICUPDT 5 ISREDIT END The initial macro has to call the EICUPDT macro. Joe On Thu, Aug 6, 2020 at 6:48 PM Joe Monk wrote: > It is a REQUIREMENT that when you run ISREDIT in BATCH, the INPUT TO > ISREDIT MUST BE SUPPLIED BY A MACRO. > > So, when your REXX exec launches ISREDIT, it must supply all of the input > to ISREDIT VIA A MACRO. > > Joe > > On Thu, Aug 6, 2020 at 6:18 PM Steely.Mark > wrote: > >> Thanks for the ISREDIT END suggestion. >> >> I did add that - but the process is not executing the macro. >> >> So that is not the problem. >> >> Thanks >> >> >> >> -Original Message- >> From: IBM Mainframe Discussion List On Behalf >> Of Joe Monk >> Sent: Thursday, August 06, 2020 5:57 PM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Edit Macro >> >> ATTENTION: This e-mail came from an external source. Do not open >> attachments or click on links from unknown or unexpected emails. >> >> >> Well... >> >> The first thing youve got to do is fix your edit macro. When you run an >> edit macro in batch, it has to end with "ISREDIT END". >> >> So, you might have two different versions, one for batch and one for >> online. >> >> Second, when you run ISREDIT in batch, you have to use a macro to supply >> the input. So, you'll probably need to rethink how youre invoking ISREDIT >> in batch. >> >> Joe >> >> >> >> On Thu, Aug 6, 2020 at 5:40 PM Steely.Mark >> wrote: >> >> > Send again hope it keeps the formatting. >> > >> > I have this edit macro EICUPDT: >> > >> > * Top of Data ISREDIT MACRO >> > (NUM1) ISREDIT COPY EICLIST 20 20 BEFORE 1 ISREDIT COPY EICLIST &NUM1 >> > &NUM1 BEFORE 1 >> > EXIT: + >> > EXIT CODE(0) >> > Bottom of Data ** >> > >> > When I am in a edit member session and I enter this command "EICUPDT 3" >> > from the command line the Macro works as expected. All this does is >> > copy 2 lines from EICLIST. It always copies line 20 but I supply a >> > number for the other line to copy. >> > >> > I am trying to execute this in batch. I have done this in the past but >> > I never needed to pass a parm. >> > >> > //TSOBTCH1 EXEC PGM=IKJEFT01 >> > //SYSTSPRT DD SYSOUT=* >> > ... >> > //SYSTSIN DD * >> > PROFILE PREFIX(xx) >> > ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) >> > /* >> > //* >> > >> > Here is EDITREX1: >> > * Top of Data >> > * >> > /* REXX */ >> > TRACE IR >> > /* -- >> > */ >> > /* All REXX reserved words are shown in CAPS and all user */ >> > /* defined variables are shown in 'lower case'. */ >> > /* -- >> > */ PARSE ARG filename macro1 macro2 ADDRESS ISPEXEC "EDIT >> > DATASET('"filename"') MACRO("macro1") "macro2 >> > Bottom of Data >> > *** >> > >> > I added macro2 to accept the parm value. >> > >> > This is the results: >> > >> >>O> "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) >> > PARM(1)" <---This is the last line that the trace produced >> > ISRP124 Macro parameter error -/-The parameter specified by PARM >> > keyword of the EDIT service could not be resolved. >> > READY >> > >> > I have tried several different ways. Too many to show here. >> > >> > Any help would be appreciated. >> > >> > Thank You >> > *** Disclaimer *** >> > This communication (including all attachments) is solely for the use >> > of the person to whom it is addressed and is a confidential AAA >> communication. >> > If you are not the intended recipient, any use, distribution, >> > printing, or copying is prohibited. If you received this email in >> > error, please immediately delete it and notify the sender. >> > >> > ---
Re: Edit Macro
It is a REQUIREMENT that when you run ISREDIT in BATCH, the INPUT TO ISREDIT MUST BE SUPPLIED BY A MACRO. So, when your REXX exec launches ISREDIT, it must supply all of the input to ISREDIT VIA A MACRO. Joe On Thu, Aug 6, 2020 at 6:18 PM Steely.Mark wrote: > Thanks for the ISREDIT END suggestion. > > I did add that - but the process is not executing the macro. > > So that is not the problem. > > Thanks > > > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of Joe Monk > Sent: Thursday, August 06, 2020 5:57 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Edit Macro > > ATTENTION: This e-mail came from an external source. Do not open > attachments or click on links from unknown or unexpected emails. > > > Well... > > The first thing youve got to do is fix your edit macro. When you run an > edit macro in batch, it has to end with "ISREDIT END". > > So, you might have two different versions, one for batch and one for > online. > > Second, when you run ISREDIT in batch, you have to use a macro to supply > the input. So, you'll probably need to rethink how youre invoking ISREDIT > in batch. > > Joe > > > > On Thu, Aug 6, 2020 at 5:40 PM Steely.Mark > wrote: > > > Send again hope it keeps the formatting. > > > > I have this edit macro EICUPDT: > > > > * Top of Data ISREDIT MACRO > > (NUM1) ISREDIT COPY EICLIST 20 20 BEFORE 1 ISREDIT COPY EICLIST &NUM1 > > &NUM1 BEFORE 1 > > EXIT: + > > EXIT CODE(0) > > Bottom of Data ** > > > > When I am in a edit member session and I enter this command "EICUPDT 3" > > from the command line the Macro works as expected. All this does is > > copy 2 lines from EICLIST. It always copies line 20 but I supply a > > number for the other line to copy. > > > > I am trying to execute this in batch. I have done this in the past but > > I never needed to pass a parm. > > > > //TSOBTCH1 EXEC PGM=IKJEFT01 > > //SYSTSPRT DD SYSOUT=* > > ... > > //SYSTSIN DD * > > PROFILE PREFIX(xx) > > ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) > > /* > > //* > > > > Here is EDITREX1: > > * Top of Data > > * > > /* REXX */ > > TRACE IR > > /* -- > > */ > > /* All REXX reserved words are shown in CAPS and all user */ > > /* defined variables are shown in 'lower case'. */ > > /* -- > > */ PARSE ARG filename macro1 macro2 ADDRESS ISPEXEC "EDIT > > DATASET('"filename"') MACRO("macro1") "macro2 > > Bottom of Data > > *** > > > > I added macro2 to accept the parm value. > > > > This is the results: > > > >>O> "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) > > PARM(1)" <---This is the last line that the trace produced > > ISRP124 Macro parameter error -/-The parameter specified by PARM > > keyword of the EDIT service could not be resolved. > > READY > > > > I have tried several different ways. Too many to show here. > > > > Any help would be appreciated. > > > > Thank You > > *** Disclaimer *** > > This communication (including all attachments) is solely for the use > > of the person to whom it is addressed and is a confidential AAA > communication. > > If you are not the intended recipient, any use, distribution, > > printing, or copying is prohibited. If you received this email in > > error, please immediately delete it and notify the sender. > > > > -- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > *** Disclaimer *** > This communication (including all attachments) is solely for the use of > the person to whom it is addressed and is a confidential AAA communication. > If you are not the intended recipient, any use, distribution, printing, or > copying is prohibited. If you received this email in error, please > immediately delete it and notify the sender. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Edit Macro
Thanks for the ISREDIT END suggestion. I did add that - but the process is not executing the macro. So that is not the problem. Thanks -Original Message- From: IBM Mainframe Discussion List On Behalf Of Joe Monk Sent: Thursday, August 06, 2020 5:57 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Edit Macro ATTENTION: This e-mail came from an external source. Do not open attachments or click on links from unknown or unexpected emails. Well... The first thing youve got to do is fix your edit macro. When you run an edit macro in batch, it has to end with "ISREDIT END". So, you might have two different versions, one for batch and one for online. Second, when you run ISREDIT in batch, you have to use a macro to supply the input. So, you'll probably need to rethink how youre invoking ISREDIT in batch. Joe On Thu, Aug 6, 2020 at 5:40 PM Steely.Mark wrote: > Send again hope it keeps the formatting. > > I have this edit macro EICUPDT: > > * Top of Data ISREDIT MACRO > (NUM1) ISREDIT COPY EICLIST 20 20 BEFORE 1 ISREDIT COPY EICLIST &NUM1 > &NUM1 BEFORE 1 > EXIT: + > EXIT CODE(0) > Bottom of Data ** > > When I am in a edit member session and I enter this command "EICUPDT 3" > from the command line the Macro works as expected. All this does is > copy 2 lines from EICLIST. It always copies line 20 but I supply a > number for the other line to copy. > > I am trying to execute this in batch. I have done this in the past but > I never needed to pass a parm. > > //TSOBTCH1 EXEC PGM=IKJEFT01 > //SYSTSPRT DD SYSOUT=* > ... > //SYSTSIN DD * > PROFILE PREFIX(xx) > ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) > /* > //* > > Here is EDITREX1: > * Top of Data > * > /* REXX */ > TRACE IR > /* -- > */ > /* All REXX reserved words are shown in CAPS and all user */ > /* defined variables are shown in 'lower case'. */ > /* -- > */ PARSE ARG filename macro1 macro2 ADDRESS ISPEXEC "EDIT > DATASET('"filename"') MACRO("macro1") "macro2 > Bottom of Data > *** > > I added macro2 to accept the parm value. > > This is the results: > >>O> "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) > PARM(1)" <---This is the last line that the trace produced > ISRP124 Macro parameter error -/-The parameter specified by PARM > keyword of the EDIT service could not be resolved. > READY > > I have tried several different ways. Too many to show here. > > Any help would be appreciated. > > Thank You > *** Disclaimer *** > This communication (including all attachments) is solely for the use > of the person to whom it is addressed and is a confidential AAA communication. > If you are not the intended recipient, any use, distribution, > printing, or copying is prohibited. If you received this email in > error, please immediately delete it and notify the sender. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN *** Disclaimer *** This communication (including all attachments) is solely for the use of the person to whom it is addressed and is a confidential AAA communication. If you are not the intended recipient, any use, distribution, printing, or copying is prohibited. If you received this email in error, please immediately delete it and notify the sender. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Edit Macro
Well... The first thing youve got to do is fix your edit macro. When you run an edit macro in batch, it has to end with "ISREDIT END". So, you might have two different versions, one for batch and one for online. Second, when you run ISREDIT in batch, you have to use a macro to supply the input. So, you'll probably need to rethink how youre invoking ISREDIT in batch. Joe On Thu, Aug 6, 2020 at 5:40 PM Steely.Mark wrote: > Send again hope it keeps the formatting. > > I have this edit macro EICUPDT: > > * Top of Data > ISREDIT MACRO (NUM1) > ISREDIT COPY EICLIST 20 20 BEFORE 1 > ISREDIT COPY EICLIST &NUM1 &NUM1 BEFORE 1 > EXIT: + > EXIT CODE(0) > Bottom of Data ** > > When I am in a edit member session and I enter this command "EICUPDT 3" > from the command line the Macro works as expected. All this does is copy 2 > lines from EICLIST. It always copies line 20 but I supply a number for the > other line to copy. > > I am trying to execute this in batch. I have done this in the past but I > never needed to pass a parm. > > //TSOBTCH1 EXEC PGM=IKJEFT01 > //SYSTSPRT DD SYSOUT=* > ... > //SYSTSIN DD * > PROFILE PREFIX(xx) > ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) > /* > //* > > Here is EDITREX1: > * Top of Data * > /* REXX */ > TRACE IR > /* -- */ > /* All REXX reserved words are shown in CAPS and all user */ > /* defined variables are shown in 'lower case'. */ > /* -- */ > PARSE ARG filename macro1 macro2 > ADDRESS ISPEXEC "EDIT DATASET('"filename"') MACRO("macro1") "macro2 > Bottom of Data *** > > I added macro2 to accept the parm value. > > This is the results: > >>O> "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) > PARM(1)" <---This is the last line that the trace produced > ISRP124 Macro parameter error -/-The parameter specified by PARM > keyword of the EDIT service could not be resolved. > READY > > I have tried several different ways. Too many to show here. > > Any help would be appreciated. > > Thank You > *** Disclaimer *** > This communication (including all attachments) is solely for the use of > the person to whom it is addressed and is a confidential AAA communication. > If you are not the intended recipient, any use, distribution, printing, or > copying is prohibited. If you received this email in error, please > immediately delete it and notify the sender. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Edit Macro
Send again hope it keeps the formatting. I have this edit macro EICUPDT: * Top of Data ISREDIT MACRO (NUM1) ISREDIT COPY EICLIST 20 20 BEFORE 1 ISREDIT COPY EICLIST &NUM1 &NUM1 BEFORE 1 EXIT: + EXIT CODE(0) Bottom of Data ** When I am in a edit member session and I enter this command "EICUPDT 3" from the command line the Macro works as expected. All this does is copy 2 lines from EICLIST. It always copies line 20 but I supply a number for the other line to copy. I am trying to execute this in batch. I have done this in the past but I never needed to pass a parm. //TSOBTCH1 EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* ... //SYSTSIN DD * PROFILE PREFIX(xx) ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) /* //* Here is EDITREX1: * Top of Data * /* REXX */ TRACE IR /* -- */ /* All REXX reserved words are shown in CAPS and all user */ /* defined variables are shown in 'lower case'. */ /* -- */ PARSE ARG filename macro1 macro2 ADDRESS ISPEXEC "EDIT DATASET('"filename"') MACRO("macro1") "macro2 Bottom of Data *** I added macro2 to accept the parm value. This is the results: >O> "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) PARM(1)" <---This is the last line that the trace produced ISRP124 Macro parameter error -/-The parameter specified by PARM keyword of the EDIT service could not be resolved. READY I have tried several different ways. Too many to show here. Any help would be appreciated. Thank You *** Disclaimer *** This communication (including all attachments) is solely for the use of the person to whom it is addressed and is a confidential AAA communication. If you are not the intended recipient, any use, distribution, printing, or copying is prohibited. If you received this email in error, please immediately delete it and notify the sender. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Edit Macro
I have this edit macro EICUPDT: * Top of Data ISREDIT MACRO (NUM1) ISREDIT COPY EICLIST 20 20 BEFORE 1 ISREDIT COPY EICLIST &NUM1 &NUM1 BEFORE 1 EXIT: + EXIT CODE(0) Bottom of Data ** When I am in a edit member session and I enter this command "EICUPDT 3" from the command line the Macro works as expected. All this does is copy 2 lines from EICLIST. It always copies line 20 but I supply a number for the other line to copy. I am trying to execute this in batch. I have done this in the past but I never needed to pass a parm. //TSOBTCH1 EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* ... //SYSTSIN DD * PROFILE PREFIX(xx) ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1)) /* //* Here is EDITREX1: * Top of Data * /* REXX */ TRACE IR /* -- */ /* All REXX reserved words are shown in CAPS and all user */ /* defined variables are shown in 'lower case'. */ /* -- */ PARSE ARG filename macro1 macro2 ADDRESS ISPEXEC "EDIT DATASET('"filename"') MACRO("macro1") "macro2 Bottom of Data *** I added macro2 to accept the parm value. This is the results: >O> "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) PARM(1)" <---This is the last line that the trace produced ISRP124 Macro parameter error -/-The parameter specified by PARM keyword of the EDIT service could not be resolved. READY I have tried several different ways. Too many to show here. Any help would be appreciated. Thank You *** Disclaimer *** This communication (including all attachments) is solely for the use of the person to whom it is addressed and is a confidential AAA communication. If you are not the intended recipient, any use, distribution, printing, or copying is prohibited. If you received this email in error, please immediately delete it and notify the sender. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [ISPF-L] "macro_msg" edit macro command not working for "COMPARE" command?
On Tue, 4 Feb 2020, at 16:31, Robert Prins wrote: > On 2020-02-04 14:39, Jeremy Nicoll wrote: > > That's confusing. Earlier you implied it was the execs (ie the logic, I > > assumed) > > that was changing. Now you say it's the data. Have you got both logic and > > data > > in the same file(s)? > > 1) An input file, subject to frequent changes (at least once per month), > processed by a handful of execs/edit macros > > 2) A handful of execs/edit macros that process the input file, with > some of them using some (potentially new, last new keyword was > added on 2018-07-31) keywords from 1) > > 3) A "master" exec/edit macro that reads 1), and updates the keyword tables > inside the "handful of others" > > > Why don't you leave the execs alone and make them read their data from > > external files, and just change those? > > If my uncle had been a woman, she'd my aunt... OK, fair enough... and if you were designing it now you'd probably choose a different structure. Couldn't the table inside the execs, that gets changed every so often, be put in a rexx external function, called by every exec/macro that needs to access the data? Or be vput into application profile variables, or even an ispf table? Whether that's practical depends on the size of the table(s), I suppose. > > I suppose I'd have chosen to read the existing definitons first and only > > call an > > edit macro to update them if they needed to change. > > Same difference, but in that case you would have to open the "handful > of others" potentially twice! So what? -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [ISPF-L] "macro_msg" edit macro command not working for "COMPARE" command?
On 2020-02-04 14:39, Jeremy Nicoll wrote: On Tue, 4 Feb 2020, at 13:19, Robert Prins wrote: On 2020-02-04 10:56, Jeremy Nicoll wrote: On Tue, 4 Feb 2020, at 11:44, Robert Prins wrote: It also updates the change-logs in each of the affected execs, and as we keep a few generations of older versions around, it's irritating that compares show that the change-log has been updated, but that there are no other changes. So "it also updates the change-logs in each of the affected execs" statement is incorrect. They weren't 'affected execs'. Why on earth are you updating change-logs with (in effect) "no change" statements? Why don't you stop inserting pointless change-log entries ... then you won't have the 'compare' problem? The input file for the affected execs does change, but the changes may not affect all of the REXX execs/edit macros that are used to process its contents. The "master" exec/edit macro (it's both) just extracts all the relevant data, and passes it on to the various per-exec/edit macro subroutines. It has no clue whether the data to be processed by any of these other exec/edit macros has changed. That's confusing. Earlier you implied it was the execs (ie the logic, I assumed) that was changing. Now you say it's the data. Have you got both logic and data in the same file(s)? 1) An input file, subject to frequent changes (at least once per month), processed by a handful of execs/edit macros 2) A handful of execs/edit macros that process the input file, with some of them using some (potentially new, last new keyword was added on 2018-07-31) keywords from 1) 3) A "master" exec/edit macro that reads 1), and updates the keyword tables inside the "handful of others" Why don't you leave the execs alone and make them read their data from external files, and just change those? If my uncle had been a woman, she'd my aunt... The code in some of the "handful of others" goes back to 1992, the "master" exec was added as a quick hack in 2005, as manually updating the "handful of others" was error-prone. The, until yesterday, code would willy-nilly copy the new data, whether changed or not, into the member, and update the change-log. What I wanted to do was to just insert the data, do a "COMPARE *", and then either do a "cancel", if there were no changes... I suppose I'd have chosen to read the existing definitons first and only call an edit macro to update them if they needed to change. Same difference, but in that case you would have to open the "handful of others" potentially twice! Robert -- Robert AH Prins robert(a)prino(d)org The hitchhiking grandfather - https://prino.neocities.org/indez.html Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [ISPF-L] "macro_msg" edit macro command not working for "COMPARE" command?
On Tue, 4 Feb 2020, at 13:19, Robert Prins wrote: > On 2020-02-04 10:56, Jeremy Nicoll wrote: > > On Tue, 4 Feb 2020, at 11:44, Robert Prins wrote: > > > >> It also updates the change-logs in each of the affected execs, and as > >> we keep a few generations of older versions around, it's irritating > >> that compares show that the change-log has been updated, but > >> that there are no other changes. > > > > So "it also updates the change-logs in each of the affected execs" > > statement is incorrect. They weren't 'affected execs'. > > > > Why on earth are you updating change-logs with (in effect) "no change" > > statements? > > > > Why don't you stop inserting pointless change-log entries ... then you > > won't have the 'compare' problem? > > The input file for the affected execs does change, but the changes may not > affect all of the REXX execs/edit macros that are used to process its > contents. > The "master" exec/edit macro (it's both) just extracts all the relevant data, > and passes it on to the various per-exec/edit macro subroutines. It has no > clue > whether the data to be processed by any of these other exec/edit macros has > changed. That's confusing. Earlier you implied it was the execs (ie the logic, I assumed) that was changing. Now you say it's the data. Have you got both logic and data in the same file(s)? Why don't you leave the execs alone and make them read their data from external files, and just change those? > The, until yesterday, code would willy-nilly copy the new data, whether > changed > or not, into the member, and update the change-log. What I wanted to do was > to > just insert the data, do a "COMPARE *", and then either do a "cancel", if > there > were no changes... I suppose I'd have chosen to read the existing definitons first and only call an edit macro to update them if they needed to change. -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [ISPF-L] "macro_msg" edit macro command not working for "COMPARE" command?
On 2020-02-04 10:56, Jeremy Nicoll wrote: On Tue, 4 Feb 2020, at 11:44, Robert Prins wrote: It also updates the change-logs in each of the affected execs, and as we keep a few generations of older versions around, it's irritating that compares show that the change-log has been updated, but that there are no other changes. So "it also updates the change-logs in each of the affected execs" statement is incorrect. They weren't 'affected execs'. Why on earth are you updating change-logs with (in effect) "no change" statements? Why don't you stop inserting pointless change-log entries ... then you won't have the 'compare' problem? The input file for the affected execs does change, but the changes may not affect all of the REXX execs/edit macros that are used to process its contents. The "master" exec/edit macro (it's both) just extracts all the relevant data, and passes it on to the various per-exec/edit macro subroutines. It has no clue whether the data to be processed by any of these other exec/edit macros has changed. The, until yesterday, code would willy-nilly copy the new data, whether changed or not, into the member, and update the change-log. What I wanted to do was to just insert the data, do a "COMPARE *", and then either do a "cancel", if there were no changes, or call a common subroutine to update the change-log. Given that the "COMPARE" command doesn't seem to return its messages in the designated variables, I have for now resorted to comparing every line of the block-of-lines-to-be-replaced with its new version, and only when that tells me that there are any changes I will replace the old lines with the new ones, and update the change-log. Robert -- Robert AH Prins robert(a)prino(d)org The hitchhiking grandfather - https://prino.neocities.org/indez.html Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [ISPF-L] "macro_msg" edit macro command not working for "COMPARE" command?
On Tue, 4 Feb 2020, at 11:44, Robert Prins wrote: > It also updates the change-logs in each of the affected execs, and as > we keep a few generations of older versions around, it's irritating > that compares show that the change-log has been updated, but > that there are no other changes. So "it also updates the change-logs in each of the affected execs" statement is incorrect. They weren't 'affected execs'. Why on earth are you updating change-logs with (in effect) "no change" statements? Why don't you stop inserting pointless change-log entries ... then you won't have the 'compare' problem? -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [ISPF-L] "macro_msg" edit macro command not working for "COMPARE" command?
On 2020-02-03 21:52, Bob Bridges wrote: I've never used the COMPARE command. (Never used MACRO_MSG, either.) What message were you expecting from COMPARE? "Files are the same" or of course the message that tells me they're not. It would allow me to cancel the update that in fact isn't an update, there's a "master" REXX exec that fires off updates of a lot of other execs and edit macros if some key file is changed. It also updates the change-logs in each of the affected execs, and as we keep a few generations of older versions around, it's irritating that compares show that the change-log has been updated, but that there are no other changes. For now I've worked around it by comparing the (relatively) small number of lines-to-be changed with what's already there, and cancelling the update if they are the same. Robert -- Robert AH Prins robert(a)prino(d)org The hitchhiking grandfather - https://prino.neocities.org/indez.html Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html > -Original Message- From: ispf-l-l...@nd.edu [mailto:ispf-l-l...@nd.edu] On Behalf Of Robert Prins Sent: Monday, February 3, 2020 09:11 I've been using this for ages, and in case you've never heard of it: MACRO_MSG Set or Query the Macro Message switch The MACRO_MSG assignment statement sets or retrieves the value of the macro_msg switch, which controls whether macro processing delivers ISPF messages to the macro. Syntax >>--ISREDIT--(varname)-- = --MACRO_MSG-->< +-ON--+ >>--ISREDIT--MACRO_MSG-- = --+-+>< +-OFF-+ varname The name of a variable containing the setting of MACRO_MSG. ON ISPF messages generated by macro commands are formatted. OFF ISPF messages are not formatted. Description The MACRO_MSG assignment statement sets a switch for subsequent macro processing. When set ON, any message that is generated by a macro command is formatted and made available in variables in ZEDILMSG, ZEDISMSG, and ZEDMSGNO. This is a diagnostic switch and should only be used to extract messages as required. Macros that perform operations on many edit lines may experience a performance degradation if this switch is ON. Return codes 0 Normal completion 20 Severe error I now wanted to use it to get at the message set by the "COMPARE" command, as that just returns RC=0, no matter (differences or no differences) what, but in this case all three above mentioned variables come back as 8-character blank strings. Am I doing something wrong, or is this a bug? Replies please to IBM-MAIN only (I cross-posted this also to ISPF-L) -- Robert AH Prins robert.ah.prins(a)gmail.com The hitchhiking grandfather - https://prino.neocities.org/indez.html Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [ISPF-L] "macro_msg" edit macro command not working for "COMPARE" command?
I've never used the COMPARE command. (Never used MACRO_MSG, either.) What message were you expecting from COMPARE? --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* By 2005 or so, it will be clear that the Internet's impact on the economy has been no greater than the fax machine's. -Paul Krugman, Nobel-prize-winning economist in 1998 */ -Original Message- From: ispf-l-l...@nd.edu [mailto:ispf-l-l...@nd.edu] On Behalf Of Robert Prins Sent: Monday, February 3, 2020 09:11 I've been using this for ages, and in case you've never heard of it: MACRO_MSG Set or Query the Macro Message switch The MACRO_MSG assignment statement sets or retrieves the value of the macro_msg switch, which controls whether macro processing delivers ISPF messages to the macro. Syntax >>--ISREDIT--(varname)-- = --MACRO_MSG-->< +-ON--+ >>--ISREDIT--MACRO_MSG-- = --+-+>< +-OFF-+ varname The name of a variable containing the setting of MACRO_MSG. ON ISPF messages generated by macro commands are formatted. OFF ISPF messages are not formatted. Description The MACRO_MSG assignment statement sets a switch for subsequent macro processing. When set ON, any message that is generated by a macro command is formatted and made available in variables in ZEDILMSG, ZEDISMSG, and ZEDMSGNO. This is a diagnostic switch and should only be used to extract messages as required. Macros that perform operations on many edit lines may experience a performance degradation if this switch is ON. Return codes 0 Normal completion 20 Severe error I now wanted to use it to get at the message set by the "COMPARE" command, as that just returns RC=0, no matter (differences or no differences) what, but in this case all three above mentioned variables come back as 8-character blank strings. Am I doing something wrong, or is this a bug? Replies please to IBM-MAIN only (I cross-posted this also to ISPF-L) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
"macro_msg" edit macro command not working for "COMPARE" command?
I've been using this for ages, and in case you've never heard of it: MACRO_MSG Set or Query the Macro Message switch The MACRO_MSG assignment statement sets or retrieves the value of the macro_msg switch, which controls whether macro processing delivers ISPF messages to the macro. Syntax >>--ISREDIT--(varname)-- = --MACRO_MSG-->< +-ON--+ >>--ISREDIT--MACRO_MSG-- = --+-+>< +-OFF-+ varname The name of a variable containing the setting of MACRO_MSG. ON ISPF messages generated by macro commands are formatted. OFF ISPF messages are not formatted. Description The MACRO_MSG assignment statement sets a switch for subsequent macro processing. When set ON, any message that is generated by a macro command is formatted and made available in variables in ZEDILMSG, ZEDISMSG, and ZEDMSGNO. This is a diagnostic switch and should only be used to extract messages as required. Macros that perform operations on many edit lines may experience a performance degradation if this switch is ON. Return codes 0 Normal completion 20 Severe error I now wanted to use it to get at the message set by the "COMPARE" command, as that just returns RC=0, no matter (differences or no differences) what, but in this case all three above mentioned variables come back as 8-character blank strings. Am I doing something wrong, or is this a bug? Replies please to IBM-MAIN only (I cross-posted this also to ISPF-L) Robert -- Robert AH Prins robert.ah.prins(a)gmail.com The hitchhiking grandfather - https://prino.neocities.org/indez.html Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF edit macro behaivor in SDSF
Thanks Rob, the top of my rexx is basically the same as your test and seemed to behave the same as mine. But your suggestion prodded me in the right direction to an explanation of whats going on. What I discovered, is in the PFKey settings used in SDSF EDIT, 'ISF Keylist ISFEDKEY' I had the PFkeys set to: PF22 . . ;CA E PF23 . . ;CA V Once I removed the ';' from the beginning of the command all is well and working correctly. I thought at one time, the prefix ';' was needed on a pfkey to simulate the command preserving the cursor position, but apparently that isn't needed any more. Seems like it was initially needed for the QW clist to allow point and shoot at message numbers. Further, I don't find any reference to the prefix ';' in ISPF User's Guide Vol II. The only special characters shown there are ':' and '>'.Could this have changed sometime in the last (cough cough) years? Dana On Fri, 29 Mar 2019 14:07:12 +, Rob Scott wrote: > >I would double-check your REXX exec code - perhaps paste to the forum? > >"SE" and "SJ" use ISPF "EDIF" services - pretty much all SDSF does is supply >the data for the "get first/next" record request from EDIF. > >I have just executed the following simple REXX EDIT macro in SDSF SJ and SE in >2.2 and 2.3 and the results were as expected: > >address ISREDIT "MACRO" >address ISREDIT "(CURROW CURCOL) = CURSOR " >address ISREDIT "(CURLINE) = LINE "CURROW >say currow >say curline > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF edit macro behaivor in SDSF
Dana I would double-check your REXX exec code - perhaps paste to the forum? "SE" and "SJ" use ISPF "EDIF" services - pretty much all SDSF does is supply the data for the "get first/next" record request from EDIF. I have just executed the following simple REXX EDIT macro in SDSF SJ and SE in 2.2 and 2.3 and the results were as expected: address ISREDIT "MACRO" address ISREDIT "(CURROW CURCOL) = CURSOR " address ISREDIT "(CURLINE) = LINE "CURROW say currow say curline Rob Scott Rocket Software. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Dana Mitchell Sent: Friday, March 29, 2019 1:15 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ISPF edit macro behaivor in SDSF I have an edit macro that I've used in one form or another for many years, it's my version of the point and shoot edit. Place the cursor on a dataset name in a jcl member for instance, hit the PFK set to ';CA' and you are taken to edit of that dataset. It discerns the dataset name by doing a ISREDIT "(lne,col) = CURSOR" and parsing out the dataset name you are pointing at. I'm not sure when I first noticed it, but it appears to not operate correctly in SDSF (z/OS 2.2 currently) edit of JCL or output from the SJ or SE line command. The row and column returned are of the first non-blank character of the next line, someone pressed enter before invoking the macro, which usually with a JCL listing, just happens to be a '/' so you end up with a 'z/OS UNIX Directory List' of the root. I don't find any mention of any restrictions on edit macros in the SDSF FM. Anybody else tried this? is it pmr time? Dana -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ISPF edit macro behaivor in SDSF
I have an edit macro that I've used in one form or another for many years, it's my version of the point and shoot edit. Place the cursor on a dataset name in a jcl member for instance, hit the PFK set to ';CA' and you are taken to edit of that dataset. It discerns the dataset name by doing a ISREDIT "(lne,col) = CURSOR" and parsing out the dataset name you are pointing at. I'm not sure when I first noticed it, but it appears to not operate correctly in SDSF (z/OS 2.2 currently) edit of JCL or output from the SJ or SE line command. The row and column returned are of the first non-blank character of the next line, someone pressed enter before invoking the macro, which usually with a JCL listing, just happens to be a '/' so you end up with a 'z/OS UNIX Directory List' of the root. I don't find any mention of any restrictions on edit macros in the SDSF FM. Anybody else tried this? is it pmr time? Dana -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EDIT Macro
On Mon, 8 Oct 2018 22:16:16 +, Steely.Mark wrote: >I have a JCL Check product that uses an EDIT Macro to check the JCL. This EDIT >Macro has been copied under different member names through the years. The >customers uses whatever process was provided when hired. > What language? Assembler, PL/I, CLIST, Rexx, other (specify)? >The question is can I call another edit macro within another edit macro. > >Ex. JJ1 JJ2 JJ3 are all exactly the same. >How can I leave JJ1 alone and have JJ2 & JJ3 call JJ1. > >The manuals were not very informative. > >I tried EXEC 'aaa.aaa.aaa(JJ1)'Cant exec an edit macro that way. > If Rexx, you can use CALL or a function reference, but JJ1 must use PARSE ARG X rather than ADDRESS XEDIT MACRO (X). >I really don't want to use PDS ALIAS technique. > You will need either to change JJ1 to use PARSE or use aliases. I have written eclectic code that tries MACRO, then falls back to PARSE on failure. Hmmm. If JJ2 and JJ3 address no EDIT commands before CALL JJ1, the MACRO command may work as desired. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EDIT Macro
I really don't want to do that but may be the only option. Thanks -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Monday, October 08, 2018 5:41 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: EDIT Macro A more simple solution is to create an ALIAS for the main entry JJ Then create an ALIAS JJ1, JJ2, JJ3 all pointing to JJ Lizette > -Original Message- > From: IBM Mainframe Discussion List On Behalf Of > Steely.Mark > Sent: Monday, October 08, 2018 3:16 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: EDIT Macro > > I have a JCL Check product that uses an EDIT Macro to check the JCL. This > EDIT Macro has been copied under different member names through the years. > The customers uses whatever process was provided when hired. > > The question is can I call another edit macro within another edit macro. > > Ex. JJ1 JJ2 JJ3 are all exactly the same. > How can I leave JJ1 alone and have JJ2 & JJ3 call JJ1. > > The manuals were not very informative. > > I tried EXEC 'aaa.aaa.aaa(JJ1)'Cant exec an edit macro that way. > > I really don't want to use PDS ALIAS technique. > > Any help would be appreciated. > > Thank You > > > *** Disclaimer *** > This communication (including all attachments) is solely for the use of the > person to whom it is addressed and is a confidential AAA communication. If > you are not the intended recipient, any use, distribution, printing, or > copying is prohibited. If you received this email in error, please > immediately delete it and notify the sender. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN *** Disclaimer *** This communication (including all attachments) is solely for the use of the person to whom it is addressed and is a confidential AAA communication. If you are not the intended recipient, any use, distribution, printing, or copying is prohibited. If you received this email in error, please immediately delete it and notify the sender. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: EDIT Macro
A more simple solution is to create an ALIAS for the main entry JJ Then create an ALIAS JJ1, JJ2, JJ3 all pointing to JJ Lizette > -Original Message- > From: IBM Mainframe Discussion List On Behalf Of > Steely.Mark > Sent: Monday, October 08, 2018 3:16 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: EDIT Macro > > I have a JCL Check product that uses an EDIT Macro to check the JCL. This > EDIT Macro has been copied under different member names through the years. > The customers uses whatever process was provided when hired. > > The question is can I call another edit macro within another edit macro. > > Ex. JJ1 JJ2 JJ3 are all exactly the same. > How can I leave JJ1 alone and have JJ2 & JJ3 call JJ1. > > The manuals were not very informative. > > I tried EXEC 'aaa.aaa.aaa(JJ1)'Cant exec an edit macro that way. > > I really don't want to use PDS ALIAS technique. > > Any help would be appreciated. > > Thank You > > > *** Disclaimer *** > This communication (including all attachments) is solely for the use of the > person to whom it is addressed and is a confidential AAA communication. If > you are not the intended recipient, any use, distribution, printing, or > copying is prohibited. If you received this email in error, please > immediately delete it and notify the sender. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
EDIT Macro
I have a JCL Check product that uses an EDIT Macro to check the JCL. This EDIT Macro has been copied under different member names through the years. The customers uses whatever process was provided when hired. The question is can I call another edit macro within another edit macro. Ex. JJ1 JJ2 JJ3 are all exactly the same. How can I leave JJ1 alone and have JJ2 & JJ3 call JJ1. The manuals were not very informative. I tried EXEC 'aaa.aaa.aaa(JJ1)' Cant exec an edit macro that way. I really don't want to use PDS ALIAS technique. Any help would be appreciated. Thank You *** Disclaimer *** This communication (including all attachments) is solely for the use of the person to whom it is addressed and is a confidential AAA communication. If you are not the intended recipient, any use, distribution, printing, or copying is prohibited. If you received this email in error, please immediately delete it and notify the sender. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: :Re: Message IRX0006I running an edit macro CLIST
I had not checked before, but there's nothing there. . . 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 [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Dan D Sent: Friday, September 01, 2017 12:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: :Re: Message IRX0006I running an edit macro CLIST Hi Skip, Have you checked the ISPF command table for your command? =3.9 then change the table to ISP. We have quite a few CLISTs there ... WHOAMI3 SELECT CMD(%WHOAMI) Then a WHOAMI CLIST that checks for ISPF and pops up a window with user info. If it's not within ISPF it just WRITES the info. As it can run outside ISPF it can't have an ISREDIT statement. Dan D. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: :Re: Message IRX0006I running an edit macro CLIST
Hi Skip, Have you checked the ISPF command table for your command? =3.9 then change the table to ISP. We have quite a few CLISTs there ... WHOAMI3 SELECT CMD(%WHOAMI) Then a WHOAMI CLIST that checks for ISPF and pops up a window with user info. If it's not within ISPF it just WRITES the info. As it can run outside ISPF it can't have an ISREDIT statement. Dan D. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Message IRX0006I running an edit macro CLIST
Ah yes, that makes sense. I did not realise that ISPEXEC SELECT PGM(J00YCKAL) PARM(JLRCL) actually processed the dataset being edited. So ISREDIT MACRO is required in that case. Cheers, CP On 29/08/2017 17:54, Jesse 1 Robinson wrote: > I have no stake in defending the JEM CLIST, but AFAIK 'ISREDIT MACRO' is > required in order to run it from the command line with just 'jem'. For better > or for worse, that's how people use the product. You're in edit on a JCL > member. Before submitting, you execute JEM to increase your chances of > getting a clean run. It does more than check JCL syntax. It also tries to > check that data sets referred to actually exist and that in general the logic > flow is at least superficially valid. Invoked as simply as possible. > > PROC is not required for this function. Up to now, PROC never got in the way > of successful execution. > > . > . > 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 [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of CM Poncelet > Sent: Monday, August 28, 2017 6:04 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: (External):Re: :Re: Message IRX0006I running an edit macro CLIST > > FWIW > > The oddity is that there are *no* edit macro statements after "ISREDIT MACRO > (PARMSTR)". So why is an edit macro declared in the Clist? > > E.g. "ISPEXEC SELECT PGM(J00YCKAL) PARM(JLRCL)" etc.can be issued directly > from the Clist proc and does not need an edit macro to do that. > > Sure, edit macros are normally invoked from the command line in edit mode. > But they can also be invoked by Clist and REXX procs, and then not from the > command line. So if JEM is a Clist that in turn invokes an edit macro, then > 'TSO JEM + any parms' would be used to invoke JEM as a Clist (and ISPF option > 6 could invoke it simply as 'JEM + any parms'). So, is JEM meant to be > invoked as a Clist ("PROC 0 ...") or as an edit macro ("ISREDIT MACRO > ()")? > > I give up. > > Cheers, CP > > > On 28/08/2017 15:52, Jesse 1 Robinson wrote: >> That is exactly the case. Like most (maybe all) edit macros), JEM is >> executed directly on the command line. Running it as TSO command (tso >> jem) would fail to establish the proper connection to ISPF. I tried >> that and got >> >> EDIT MACRO ERROR >> EDIT MACRO INITIALIZATION FAILURE. CHECK EDIT MACRO CLIST. >> >> I did not see Paul Feller's post except as quoted by CM Poncelet. As CM >> notes, there are two parms: DSJNAME and PARMSTR. It seems odd that one is >> defined on the PROC statement and the other on the ISREDIT MACRO statement, >> but that's the way it's supplied to the customer. >> >> I have no problem learning that an old loophole has been closed. But closed >> is closed, and what fails in one place should fail everywhere with the fix >> is place. The person who first reported the problem here is a true mainframe >> veteran. He uses JEM more than anyone else I know. >> . >> . >> 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 [mailto:IBM-MAIN@LISTSERV.UA.EDU] >> On Behalf Of Lizette Koehler >> Sent: Sunday, August 27, 2017 8:31 PM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: (External):Re: Message IRX0006I running an edit macro CLIST >> >> Typically the user is EDITing a PDS Member with JCL and enters JEM on >> the command line >> >> Lizette >> >> >>> -Original Message- >>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] >>> On Behalf Of CM Poncelet >>> Sent: Sunday, August 27, 2017 7:11 PM >>> To: IBM-MAIN@LISTSERV.UA.EDU >>> Subject: Re: Message IRX0006I running an edit macro CLIST >>> >>> There are two parms for this Clist: DSJNAME and PARMSTR. How is JEM invoked? >>> (E.g. it could be invoked as "TSO JEM HLQ.DSJN1.THEREST MACPARM2".) >>> >>> On 27/08/2017 18:25, Feller, Paul wrote: >>>> One last comment. We run the same software and have not had an >>>> issue in >>> three different SYSPLEX environme
Re: Message IRX0006I running an edit macro CLIST
I have no stake in defending the JEM CLIST, but AFAIK 'ISREDIT MACRO' is required in order to run it from the command line with just 'jem'. For better or for worse, that's how people use the product. You're in edit on a JCL member. Before submitting, you execute JEM to increase your chances of getting a clean run. It does more than check JCL syntax. It also tries to check that data sets referred to actually exist and that in general the logic flow is at least superficially valid. Invoked as simply as possible. PROC is not required for this function. Up to now, PROC never got in the way of successful execution. . . 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 [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of CM Poncelet Sent: Monday, August 28, 2017 6:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: :Re: Message IRX0006I running an edit macro CLIST FWIW The oddity is that there are *no* edit macro statements after "ISREDIT MACRO (PARMSTR)". So why is an edit macro declared in the Clist? E.g. "ISPEXEC SELECT PGM(J00YCKAL) PARM(JLRCL)" etc.can be issued directly from the Clist proc and does not need an edit macro to do that. Sure, edit macros are normally invoked from the command line in edit mode. But they can also be invoked by Clist and REXX procs, and then not from the command line. So if JEM is a Clist that in turn invokes an edit macro, then 'TSO JEM + any parms' would be used to invoke JEM as a Clist (and ISPF option 6 could invoke it simply as 'JEM + any parms'). So, is JEM meant to be invoked as a Clist ("PROC 0 ...") or as an edit macro ("ISREDIT MACRO ()")? I give up. Cheers, CP On 28/08/2017 15:52, Jesse 1 Robinson wrote: > That is exactly the case. Like most (maybe all) edit macros), JEM is > executed directly on the command line. Running it as TSO command (tso > jem) would fail to establish the proper connection to ISPF. I tried > that and got > > EDIT MACRO ERROR > EDIT MACRO INITIALIZATION FAILURE. CHECK EDIT MACRO CLIST. > > I did not see Paul Feller's post except as quoted by CM Poncelet. As CM > notes, there are two parms: DSJNAME and PARMSTR. It seems odd that one is > defined on the PROC statement and the other on the ISREDIT MACRO statement, > but that's the way it's supplied to the customer. > > I have no problem learning that an old loophole has been closed. But closed > is closed, and what fails in one place should fail everywhere with the fix is > place. The person who first reported the problem here is a true mainframe > veteran. He uses JEM more than anyone else I know. > . > . > 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 [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Lizette Koehler > Sent: Sunday, August 27, 2017 8:31 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: (External):Re: Message IRX0006I running an edit macro CLIST > > Typically the user is EDITing a PDS Member with JCL and enters JEM on > the command line > > Lizette > > >> -Original Message- >> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] >> On Behalf Of CM Poncelet >> Sent: Sunday, August 27, 2017 7:11 PM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Message IRX0006I running an edit macro CLIST >> >> There are two parms for this Clist: DSJNAME and PARMSTR. How is JEM invoked? >> (E.g. it could be invoked as "TSO JEM HLQ.DSJN1.THEREST MACPARM2".) >> >> On 27/08/2017 18:25, Feller, Paul wrote: >>> One last comment. We run the same software and have not had an >>> issue in >> three different SYSPLEX environments. I looked to the most recent >> versions of the software we have. The JEM CLIST is shipped that way from >> the vendor. >> Very interesting. >>> >>> BROWSESYSI.JOBSCAN.R790.AJJSCLST.HS(JEM) - 01. Line 00 Col 001 >> 080 >>> Command ===> Scroll ===> >> CSR >>> * Top of Data >> * >>> PROC 0 DJSNAME(X.X) >>> CONTROL END(ENDO) NOMSG NOFLUSH >>> /*CONTROL END(ENDO) MSG LIST CONLIST SYMLIST NOFLUSH /*S80725*/ >>>
Re: :Re: Message IRX0006I running an edit macro CLIST
On Tue, 29 Aug 2017 04:37:19 +0100, CM Poncelet wrote: > >... made the "ISREDIT MACRO (PARMSTR)" statement wholly irrelevant >(because no actual *edit* commands then followed it). All the commands >that *did* follow it could be issued in native Clist or REXX, without a >preceding "ISREDIT MACRO" statement. > But you might risk a "NOT AN EDIT MACRO" error in its absence. >BTW I use "ADDRESS" only for "ADDRESS IPCS", to avoid having to juggle >between "ADDRESS TSO/MVS/ISREDIT/ISPEXEC/whatever-else". > Does this make me the opposite extreme? In a 432-line Rexx EXEC: 509 $ grep -i address ... address 'ISREDIT' 'MACRO (Arg1)' /* Use Edit macro argument */ address 'ISPEXEC' 'VGET (ZSCREENI) SHARED' address 'SYSCALL' address 'SDSF' address 'SYSCALL' 'open (G.9LOG)' , address 'SYSCALL' 'pipe G.9PIPE.' address 'SYSCALL' address 'SYSCALL' address 'SYSCALL' address 'TSO' 'RECEIVE INDD('arg( 1 )')'; end address 'MVS' 'EXECIO 1 DISKW' G.9CTRL '( finis stem Content.' address 'MVS' 'EXECIO 2 DISKW' G.9IEBOUT '(finis stem Header.' address 'ATTCHMVS' 'IEBGENER PARM1 PARM2' address 'SYSCALL' address 'SYSCALL' 'mkdir (Head) 777' /* less umask */ address 'SYSCALL' 'strerror (errno) (errnojr) emsg.' ... ? (Mr. Natural sez, Use the right tool for the job.) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: :Re: Message IRX0006I running an edit macro CLIST
*Any* commands that can be issued in a Clist or REXX proc (e.g. "ISPEXEC SELECT PGM(J00YCKAL) PARM(JLRCL)" etc.)can also be issued in an edit macro. But *only edit* statements (e.g. "EXCLUDE ALL P'¬'" then "CHANGE ALL P'.' ' ' NX" etc.) can be issued in edit macros. The point I was making was that *no* edit commands (that could be issued *only* in edit macros) were being issued after the "ISREDIT MACRO (PARMSTR)" - which thus made the "ISREDIT MACRO (PARMSTR)" statement wholly irrelevant (because no actual *edit* commands then followed it). All the commands that *did* follow it could be issued in native Clist or REXX, without a preceding "ISREDIT MACRO" statement. BTW I use "ADDRESS" only for "ADDRESS IPCS", to avoid having to juggle between "ADDRESS TSO/MVS/ISREDIT/ISPEXEC/whatever-else". Cheers, CP On 29/08/2017 02:13, Paul Gilmartin wrote: > On Tue, 29 Aug 2017 02:04:25 +0100, CM Poncelet wrote: > >> FWIW >> >> The oddity is that there are *no* edit macro statements after "ISREDIT >> MACRO (PARMSTR)". So why is an edit macro declared in the Clist? >> >> E.g. "ISPEXEC SELECT PGM(J00YCKAL) PARM(JLRCL)" etc.can be issued >> directly from the Clist proc and does not need an edit macro to do that. >> >> Sure, edit macros are normally invoked from the command line in edit >> mode. But they can also be invoked by Clist and REXX procs, and then not > >from the command line. So if JEM is a Clist that in turn invokes an edit >> macro, then 'TSO JEM + any parms' would be used to invoke JEM as a Clist >> (and ISPF option 6 could invoke it simply as 'JEM + any parms'). So, is >> JEM meant to be invoked as a Clist ("PROC 0 ...") or as an edit macro >> ("ISREDIT MACRO ()")? >> >> I give up. >> > In Rexx, I have done in at least one case: > address 'ISREDIT' 'MACRO (Arg1)' /* Use Edit macro argument */ > if RC<>0 then Arg1 = arg( 1 ) /* else use Rexx argument. */ > > ... This works in Edit as a macro (just for convenience; it depends on no > ISREDIT commands), TSO READY, IRXJCL, and OMVS, with no code changes. > > -- 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: :Re: Message IRX0006I running an edit macro CLIST
On Tue, 29 Aug 2017 02:04:25 +0100, CM Poncelet wrote: >FWIW > >The oddity is that there are *no* edit macro statements after "ISREDIT >MACRO (PARMSTR)". So why is an edit macro declared in the Clist? > >E.g. "ISPEXEC SELECT PGM(J00YCKAL) PARM(JLRCL)" etc.can be issued >directly from the Clist proc and does not need an edit macro to do that. > >Sure, edit macros are normally invoked from the command line in edit >mode. But they can also be invoked by Clist and REXX procs, and then not >from the command line. So if JEM is a Clist that in turn invokes an edit >macro, then 'TSO JEM + any parms' would be used to invoke JEM as a Clist >(and ISPF option 6 could invoke it simply as 'JEM + any parms'). So, is >JEM meant to be invoked as a Clist ("PROC 0 ...") or as an edit macro >("ISREDIT MACRO ()")? > >I give up. > In Rexx, I have done in at least one case: address 'ISREDIT' 'MACRO (Arg1)' /* Use Edit macro argument */ if RC<>0 then Arg1 = arg( 1 ) /* else use Rexx argument. */ ... This works in Edit as a macro (just for convenience; it depends on no ISREDIT commands), TSO READY, IRXJCL, and OMVS, with no code changes. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: :Re: Message IRX0006I running an edit macro CLIST
FWIW The oddity is that there are *no* edit macro statements after "ISREDIT MACRO (PARMSTR)". So why is an edit macro declared in the Clist? E.g. "ISPEXEC SELECT PGM(J00YCKAL) PARM(JLRCL)" etc.can be issued directly from the Clist proc and does not need an edit macro to do that. Sure, edit macros are normally invoked from the command line in edit mode. But they can also be invoked by Clist and REXX procs, and then not from the command line. So if JEM is a Clist that in turn invokes an edit macro, then 'TSO JEM + any parms' would be used to invoke JEM as a Clist (and ISPF option 6 could invoke it simply as 'JEM + any parms'). So, is JEM meant to be invoked as a Clist ("PROC 0 ...") or as an edit macro ("ISREDIT MACRO ()")? I give up. Cheers, CP On 28/08/2017 15:52, Jesse 1 Robinson wrote: > That is exactly the case. Like most (maybe all) edit macros), JEM is executed > directly on the command line. Running it as TSO command (tso jem) would fail > to establish the proper connection to ISPF. I tried that and got > > EDIT MACRO ERROR > EDIT MACRO INITIALIZATION FAILURE. CHECK EDIT MACRO CLIST. > > I did not see Paul Feller's post except as quoted by CM Poncelet. As CM > notes, there are two parms: DSJNAME and PARMSTR. It seems odd that one is > defined on the PROC statement and the other on the ISREDIT MACRO statement, > but that's the way it's supplied to the customer. > > I have no problem learning that an old loophole has been closed. But closed > is closed, and what fails in one place should fail everywhere with the fix is > place. The person who first reported the problem here is a true mainframe > veteran. He uses JEM more than anyone else I know. > . > . > 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 [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Lizette Koehler > Sent: Sunday, August 27, 2017 8:31 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: (External):Re: Message IRX0006I running an edit macro CLIST > > Typically the user is EDITing a PDS Member with JCL and enters JEM on the > command line > > Lizette > > >> -Original Message- >> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] >> On Behalf Of CM Poncelet >> Sent: Sunday, August 27, 2017 7:11 PM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Message IRX0006I running an edit macro CLIST >> >> There are two parms for this Clist: DSJNAME and PARMSTR. How is JEM invoked? >> (E.g. it could be invoked as "TSO JEM HLQ.DSJN1.THEREST MACPARM2".) >> >> On 27/08/2017 18:25, Feller, Paul wrote: >>> One last comment. We run the same software and have not had an >>> issue in >> three different SYSPLEX environments. I looked to the most recent >> versions of the software we have. The JEM CLIST is shipped that way from >> the vendor. >> Very interesting. >>> >>> BROWSESYSI.JOBSCAN.R790.AJJSCLST.HS(JEM) - 01. Line 00 Col 001 >> 080 >>> Command ===> Scroll ===> >> CSR >>> * Top of Data >> * >>> PROC 0 DJSNAME(X.X) >>> CONTROL END(ENDO) NOMSG NOFLUSH >>> /*CONTROL END(ENDO) MSG LIST CONLIST SYMLIST NOFLUSH /*S80725*/ >>> ISREDIT MACRO (PARMSTR) >>> >>> IF &DJSNAME = &STR(X.X) THEN + >>> DO >>> ISPEXEC SETMSG MSG(JM022R)/*JTE30780*/ >>> GOTO ENDING >>> ENDO >>> >>> /* ALLOCATE RUN CONTROL LIBRARY >>>ISPEXEC SELECT PGM(J00YCKAL) PARM(JLRCL) /*JTE30780*/ >>>IF &LASTCC NE 0 THEN + >>> DO >>>SET &RCLALC = 'N' /*813647 */ >>>ALLOC DDN(JLRCL) DSN('&DJSNAME..SJJSPARM') SHR >>> ENDO >>> >>> /* CALL THE JEM SUPERVISOR >>> ISPEXEC SELECT PGM(J0AYEMU) PARM(PR(E) &PARMSTR) >>> /*JTE30780*/ >>> >>> ENDING: + >>> ISPEXEC VGET (ZSPLIT) >>> IF &STR(&ZSPLIT) = &STR(YES