I don't want to exclude anything that wasn't already excuded except for the lines that don't match, and I don't want to show anything that wasn't already shown.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Randy Baumgarte <[email protected]> Sent: Tuesday, February 4, 2025 1:44 PM To: [email protected] Subject: Re: Idea received: Provide a negative exclude command for EDIT and VIEW External Message: Use Caution Don't know if it helps, but here is a macro that Mark Zelden wrote years ago. I have it in my clist library as INCL, so I can just do an INCL <word> /* REXX */ /* */ /* AUTHOR: MARK ZELDEN */ /* */ /*********************************************************/ /* Updated on 01/20/2006 to add "HIDE EXCLUDED" for */ /* z/OS 1.6 (ISPF 5.6) and above. */ /* Remove if you like to see excluded lines or issue */ /* "RESET HIDE" after you run the macro. */ /*********************************************************/ /* Trace ?R */ Address ISREDIT "MACRO (parm col1 col2)" /* Address ISPEXEC "CONTROL ERRORS RETURN" */ /* check for numeric column numbers */ If col1 <> '' then do If Datatype(col1,Number) <> 1 then do zedsmsg = 'START COLUMN NOT NUMERIC' zedlmsg = 'THE STARTING COLUMN FOR THE', 'SEARCH MUST BE NUMERIC.' Address ISPEXEC "SETMSG MSG(ISRZ001)" /* msg - with alarm */ Exit 12 End If col2 = '' then col2 = col1 End If col2 <> '' then do If Datatype(col2,Number) <> 1 then do zedsmsg = 'END COLUMN NOT NUMERIC' zedlmsg = 'THE ENDING COLUMN FOR THE', 'SEARCH MUST BE NUMERIC.' Address ISPEXEC "SETMSG MSG(ISRZ001)" /* msg - with alarm */ Exit 12 End If col2 < col1 then do zedsmsg = 'END COL < START COL' zedlmsg = 'THE ENDING COLUMN MUST BE GREATER THAN OR', 'EQUAL TO THE STARTING COLUMN.' Address ISPEXEC "SETMSG MSG(ISRZ001)" /* msg - with alarm */ Exit 12 End If Length(Strip(Translate(parm,'','"'''''))) , > COL2-COL1+1 then do zedsmsg = 'PARM TOO LONG' zedlmsg = 'THE STRING WILL NOT FIT BETWEEN THE', 'SPECIFIED COLUMNS.' Address ISPEXEC "SETMSG MSG(ISRZ001)" /* msg - with alarm */ Exit 12 End "(width) = DATA_WIDTH " /* length of line */ width = Format(width) /* remove leading zeros */ If col1 < 1 | col2 < 1 | col1 > width | col2 > width then do zedsmsg = 'INVALID COLUMN NUMBER' zedlmsg = 'ALL COLUMN SPECIFICATIONS MUST BE' , 'BETWEEN 1 AND' width Address ISPEXEC "SETMSG MSG(ISRZ001)" /* msg - with alarm */ Exit 12 End End parmck = Translate(parm) If parmck = 'X' | parmck = 'NX' | parmck = '*' , | parmck = '/*' then parm = "'" ||parm|| "'" "SEEK "parm col1 col2" FIRST" If rc = 0 then do "EXCLUDE ALL" "FIND "parm col1 col2" ALL" "SEEK "parm col1 col2" ALL" "(count,lines) = SEEK_COUNTS" Address ISPEXEC "VGET ZENVIR" If Substr(ZENVIR,6,3) >= 5.5 then "HIDE EXCLUDED" count = Format(count) lines = Format(lines) Upper parm zedsmsg = count' "'parm'" FOUND' zedlmsg = 'THE STRING "'parm'" WAS FOUND 'count' TIMES', 'ON 'lines' LINES.' Address ISPEXEC "SETMSG MSG(ISRZ000)" /* msg - no alarm */ Exit 0 End Else do Upper parm zedsmsg = 'STRING NOT FOUND' zedlmsg = 'THE STRING "'parm'" WAS NOT FOUND IN THE FILE.' "RESET" Address ISPEXEC "SETMSG MSG(ISRZ001)" /* msg - with alarm */ Exit 12 End -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Seymour J Metz Sent: Tuesday, February 4, 2025 12:44 PM To: [email protected] Subject: [EXTERNAL] Re: Idea received: Provide a negative exclude command for EDIT and VIEW Other than the fact that it breaks the visibility status, nothing. I want to exclude the non-matches without making previously excluded lines visible. Or are there now PUSH/POP VISIBILITY commands? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Farley, Peter <[email protected]> Sent: Tuesday, February 4, 2025 12:33 PM To: [email protected] Subject: Re: Idea received: Provide a negative exclude command for EDIT and VIEW External Message: Use Caution Really? What is so hard about EXCLUDE . . . followed by FLIP? I use that frequently myself. From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Seymour J Metz Sent: Tuesday, February 4, 2025 12:27 PM To: [email protected] Subject: Fw: Idea received: Provide a negative exclude command for EDIT and VIEW FYI ________________________________________ From: IBM Z Hardware Ideas Portal <[email protected]> Sent: Tuesday, February 4, 2025 12:24 PM To: Seymour J Metz Subject: Idea received: Provide a negative exclude command for EDIT and VIEW External Message: Use Caution [IBM Z Hardware and Operating Systems Ideas Portal] Thank you for submitting your idea: ZOS-I-4413 Provide a negative exclude command for EDIT and VIEW Provide e an NEXCLUDE command similar to FIND and EXCLUDE that excludes all lines in the specified range that do not match the specified picture, regex or string in the specied columns. View idea <https://ibm-z-hardware-and-operating-systems.ideas.ibm.com/ideas/ZOS-I-4413 <https://ibm-z-hardware-and-operating-systems.ideas.ibm.com/ideas/ZOS-I-4413 >> You're receiving notifications because you created this idea. This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
