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
