IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Doug Nadel's SDSF highlighting code


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Thu Jul 30, 2009 11:41 am
Reply with quote

If like me, you are using this gem, you might want to make a small but useful change to the /* Highlight real dsnames in jcl (Dsn= Only) */ section, from
Code:
If position > 0 & substr(line,position + ln,1) <> "&" Then

to
Code:
if position > 0 &,                                 
  (substr(line, position + ln, 1) <> '&' |,       
   substr(line, position + ln, 7) = '&SYSUID') then

The effect of this change is that it will also hilight datasets starting with &SYSUID, which are not temporary datasets.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
Search our Forums:

Back to Top