Can I strongly advise that you do not modify the ISFPCU41 panel.

There could be changes to the SDSF ISPF interface that would make any 
modifications you make to this panel very difficult (or impossible) to 
implement into the next release of SDSF.

If there is functionality that you require in SDSF, please consider raising an 
RFE.

Rob Scott
Rocket Software

From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of 
Robert Prins
Sent: 02 September 2020 21:04
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: A little magic from Doug Nadel

EXTERNAL EMAIL



On 2020-09-02 16:16, Tom Conley wrote:
> On 9/2/2020 11:30 AM, David Crayford wrote:
>> On 2020-09-03 1:47 AM, Robert Prins wrote:
>>>> This seems to go hand-in-hand with HILITE.  Does it understand that
>>>> PL/I has no reserved words and that any of the above might be merely
>>>> identifiers?
>>>
>>> ISPF HILITE is just that highlight. It do\es not do any parsing of the
>>> language. I think EDOEND predated HILITE, and it also has an option to just
>>> show all "myproc: proc;" ... 'end myproc;' statements
>>
>> You can customize ISPF highlight code. Check out ISP.SISPSAMP(ISRPXASM)
>>
> I just updated ISRPXASM to add about 70 new COBOL and 140 new PL/I keywords.
> You can grab FILE967 at www.cbttape.org<http://www.cbttape.org>.  Lots of 
> other goodies in there.

You might also want to add ISFPCU41, Doug's version of the SDSF output panel
with lots of customizable highlighting. It will need work, as the Doug's version
dates back to a time where there were a hell of a lot less attribute characters
on the panel.

I might still have a version of one of Doug's originals (there were several),
mine is working on z/OS 1.10 (and pretty screwed up on 2.4), and includes some
additional code to highlight PL/I error messages and to add the (abbreviated)
SDSF function onto the SWAPBAR:

zscrname = word('SDSF ISF@ST ISF@O ISF@DA ISF@H ISF@I',
'ISF@LOG ISF@SR ISF@MAS ISF@JC ISF@SE',
'ISF@PS ISF@INI ISF@PR ISF@PUN',
'ISF@RDR ISF@LIN ISF@NOD ISF@SO ISF@ULG',,
wordpos(display, 'STATUS OUTPUT DA HELD INPUT',
'SYSLOG SYSTEM MAS JOB SCHEDULING',
'PROCESS INITIATOR PRINTER PUNCH',
'READER LINE NODE SPOOL ULOG') + 1)

You can see how backlevel it is...

Robert
--
Robert AH Prins
robert.ah.prins(a)gmail.com
The hitchhiking grandfather - 
https://prino.neocities.org/indez.html<https://prino.neocities.org/indez.html>
Some REXX code for use on z/OS - 
https://prino.neocities.org/zOS/zOS-Tools.html<https://prino.neocities.org/zOS/zOS-Tools.html>

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu<mailto: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

Reply via email to