On 2020-09-03 10:31, David Crayford wrote:
Rob is the SDSF architect so you may want to heed his advice!
If I would heed advice, I wouldn't still be hitchhiking, as a 60-year old, even
now, in the midst of a pandemic. So, again I will ignore this suggestion. ;)
It's my understanding that Doug's ISFPCU41 panel and REXX panel exit was for
highlighting syslog. Most of that stuff is in native SDSF now so you don't need
customization.
No, it wasn't just the syslog (Doug's panel) or isn't (SDSF), just logged on to
a 2.4 system for a few seconds, and yes, SDSF uses a few more colours, but
Doug's panel/exit went a lot further, highlighting JCL and allowing user defined
customization, like:
/***********************************************************************
* Specific keywords to highlight *
***********************************************************************/
call add "CPU,20,W" /* JES messages */
call add "TYPE:,14,W" /* SCLM listing */
call add "Return Code,16,Y" /* COBOL listing */
call add "No Statements Flagged in this Assembly,,g" /* Asm listing */
call add "Top of Data,,b" /* General */
call add "BOTTOM OF DATA,,b" /* General */
call add "JES2 JOB STATISTICS,,W" /* JES listing */
/***********************************************************************
* Calls to 'addp' specify strings that are to be highlighted after all *
* other highlighting is complete. Use this to force highlights of *
* specific strings in all cases. For example, any reference to the *
* current user id. Semantics are the same as for add. *
***********************************************************************/
call addp userid() || ",,Y" /* General highlighting of userid */
/***********************************************************************
* Calls to 'addt' specify a string, and an optional color to be used *
* to highlight from the start of the string to the end of the screen *
* line in the specified color. *
***********************************************************************/
call addt "IKT100,W"
call addt "J E S 2 ,W"
call addt "** ASMA,R" /* Asm listing */
call addt " //,G" /* Part of jcl coloring */
call addt " //*,T" /* Part of jcl coloring */
call addt " XX,Y" /* Part of jcl coloring */
call addt " XX*,B" /* Part of jcl coloring */
call addt "IEFC653I,P" /* Jcl substitution message */
call addt "ICH70001I,W" /* Last access */
call addt "IEF212I,y"
call addt "IEF272I,y"
call addt "IEF142I,G"
call addt "IEF450I,y"
call addt "IEF472I,y" /* Abend/Completion code */
call addt "SYSTEM COMPLETION CODE,y"
call addt "IEF125I,W" /* Logon */
call addt "IEF126I,W" /* Logoff */
call addt "IEB147I,P" /* end of job highest retcode iebcopy */
call addt "DFH5109,P" /* end of job highest retcode dfhcsdup */
call addt "ICH408I,R" /* RACF failures */
call addt "IEC331I,R" /* Severe catalog errors */
call addt "IEC332I,R" /* Severe catalog errors */
call addt "IEC333I,R" /* Severe catalog errors */
call addt "IEW2008I,Y"
call addt "IEE600I,Y" /* Reply to xx is; */
call addt "IGYDS,Y"
/***********************************************************************
* Calls to 'addn' specify a string, and an optional color to be used *
* to highlight from the start of the string to the end of the screen *
* line in the specifiied color. All numbers must be zero in the string *
* to enable number data to be recognized for all numbers so that *
* things like timestamps and jobids can be shown. *
***********************************************************************/
call addn "00.00.00 JOB00000 ,U"
call addn "COND CODE 0000,Y"
call addn "NC0000000 ,w,56" /* Commands in syslog */
call addn "SC ,w,56"
call addn "==000000==,Y"
call addn " *00 ,Y"
/***********************************************************************
* Calls to 'addq' specify a string, And an optional color to be used *
* to highlight from the string in the specifed color. All numbers must *
* be zero in the string to enable number data to be recognized for all *
* numbers so that things like error messages can be shown. *
***********************************************************************/
call addq "IBM0000I S,r" /* Enterprise PL/I */
call addq "IBM0000I E,R"
call addq "IBM0000I W,Y"
call addq "IBM0000I I,W"
call addq "IEL0000I S,r" /* OS PL/I */
call addq "IEL0000I E,R"
call addq "IEL0000I W,Y"
call addq "IEL0000I I,W"
/***********************************************************************
* Calls to 'addj' are jcl verbs to be highlighted in red if they are *
* found after a // or XX. *
***********************************************************************/
call addj "CNTL DLM EXEC JOB SET"
call addj "COMMAND ELSE IF OUTPUT THEN"
call addj "DATA ENDCNTL INCLUDE PEND XMIT"
call addj "DD ENDIF JCLLIB PROC"
/* ====================== End of Customization ====================== */
FWIW, I have two versions of Doug's panel, one from 2006-05-17 and one from
2007-07-19, with minimal changes, and my own version that adds the above PL/I
error-message highlighting, colours &SYSUID, sets the screen name in the SWAPBAR
and red-lights excessive CPU or elapsed time. I'm not sure on which of those two
DN versions it's based.
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
On 2020-09-03 9:10 PM, Robert Prins wrote:
On 2020-09-03 09:10, Rob Scott wrote:
Can I strongly advise that you do not modify the ISFPCU41 panel.
I hope you don't mind me ignoring that advice. ;)
But don't worry, the changed panel is in my own panel library, which is
allocated in front of the IBM supplied ones, with the original one.
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.
In which case we might have to start from the original new panel again. I
already mentioned that Doug's version is old, at least a decade, and that the
addition of a lot more attribute characters on the current panel makes his
copy look very weird on z/OS 2.4.
If there is functionality that you require in SDSF, please consider raising
an RFE.
And how long would I have to hold my breath?
Anyway, it's not very different from using the modified ISREDDE2 panel and
accompanying USRHILIT REXX exec from CBT967 to add highlighting for a heap of
other languages to the ISPF editor. For what it's worth, that modified
ISREDDE2 could be changed to use panel REXX making it completely self-
>> contained!
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
