Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ISREDIT - How to find the HILITE profile attribute ?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
PANIGRAHI,DEVA

New User


Joined: 20 Aug 2012
Posts: 3
Location: India

PostPosted: Tue Aug 21, 2012 11:32 am    Post subject: ISREDIT - How to find the HILITE profile attribute ?
Reply with quote

Hi All,
I am writing one ISREDIT macro in REXX to comment code depending on the type (JCL/COBOL/ASM...).
To get the type of the source, i am trying to find the HILITE attribute that we get in PROFILE and accordingly comment it.
I went through the ISREDIT manual, and could not get any such command to retrieve it.
Below are the two approach i have followed -
- In view/edit session, enter the command PROF and then find the HILITE attribute through ZSCREENI variable.
- Tried below piece of code
address ispexec
"isredit macro"
"vget (ZAPPLID)"
"TBGET "zapplid"EDIT"
zedpflg2=x2c(b2x(zedpflg2))
zedpflg3=x2c(b2x(zedpflg3)) /* convert language byte to binary */
bits. = ''
bits.32 = 'COLOR'
bits.16 = 'DOLOGIC'
bits.8 = 'IFLOGIC'
bits.4 = 'PAREN'
bits.2 = 'FIND'
bits.1 = 'CURSOR'
status = ''
Do a=0 to 4
ln=c2d(bitand(zedpflg2,d2c(2**a))) /* convert each bit to a number*/
status=status bits.ln
End
langs='OFF AUTO ASM PLI COBOL PASCAL C BOOK REXX PANEL SKEL JCL DTL OTHER DEFAULT PLX IDL'
ln=c2d(bitand(zedpflg3,'0F'x)) /* mask off high order bits */
If '00'x=bitand(zedpflg2,'20'x) Then ln=0
Say space(word(langs,ln+1) status)

But this is not working, when we do HI AUTO.

Please suggest
Back to top
View user's profile Send private message

prino

Senior Member


Joined: 07 Feb 2009
Posts: 1018
Location: Oostende, Belgium

PostPosted: Tue Aug 21, 2012 12:13 pm    Post subject:
Reply with quote

It's not possible, the HI AUTO language is not stored anywhere.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2038
Location: Silicon Valley

PostPosted: Tue Aug 21, 2012 10:20 pm    Post subject: Reply to: ISREDIT - How to find the HILITE profile attribute
Reply with quote

Quote:
- In view/edit session, enter the command PROF and then find the HILITE attribute through ZSCREENI variable.


What were the results for this effort?
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1018
Location: Oostende, Belgium

PostPosted: Tue Aug 21, 2012 10:40 pm    Post subject:
Reply with quote

It will contain "HILITE AUTO", and it will not work in an initial macro.

In a grey past, on the long defunct mvsHelp site, Doug Nadel already mentioned that the "HILITE AUTO" setting dynamically determines the language. If you want to emulate this, read the help screens behind the HI function to determine how to do it.

You can try it yourself by adding a /* REXX */ comment to JCL, or a *process; statement to a COBOL program, the highlighting will change.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts find RACF group for access to spooled... jzhardy JCL & VSAM 1 Mon May 08, 2017 11:46 am
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us