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

How to get the line from ISPF Panel


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

New User


Joined: 23 Jun 2011
Posts: 6
Location: China

PostPosted: Sat Jul 16, 2011 4:25 pm
Reply with quote

Hi,

I am looking for a way to get a line when cursor is placed on any ISPF Panel. I tired to code an ISPF Edit Marco. I'm using the following code in REXX.

"ISREDIT (CURRLINE) = LINE .ZCSR".

But it appears that the ISPF Edit Marco can not support ISPF Panel. Because, it is working well when the cursor is placed on the dataset in View/Edit mode. But nothng will be returned when the cursor is placed on the ISPF Panel. I would like to know whether there is another way to get the line from ISPF Panel ?
Back to top
View user's profile Send private message
prino

Senior Member


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

PostPosted: Sat Jul 16, 2011 5:16 pm
Reply with quote

Which PHB gave you this requirement????
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Sat Jul 16, 2011 5:32 pm
Reply with quote

An EDIT macro is an EDIT macro and can only be used in EDIT. There may be some ISPF panel variables that hold the current cursor position which you could then use to find which field in the panel your cursor is in then read the variable associated with that field.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Sat Jul 16, 2011 7:02 pm
Reply with quote

an <edit> macro supporting panels would not be an <edit> macro any longer...
it would be a <panel> <macro> icon_cool.gif
Back to top
View user's profile Send private message
Martin Han

New User


Joined: 23 Jun 2011
Posts: 6
Location: China

PostPosted: Sat Jul 16, 2011 7:17 pm
Reply with quote

Thanks Prino & Nic..

The requirement raised from business side.. they probably have no much technical knowledge when considering the requirement. but we do not need to care about this too much..

I also checked the Dialog Developer’s Guide and Reference to find the ISPF Panel variables that hold the current cursor/line. but nothing found for valuable information.

Much appreciate if you can provide some samples or some link for related manual.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Sat Jul 16, 2011 7:44 pm
Reply with quote

Quote:
but we do not need to care about this too much..


You should, how are You going to defend yourself from stupid requirements like this one ?

here is the link to the mother of all IBM manuals
www-03.ibm.com/systems/z/os/zos/bkserv/index.html

You are free to waste Your time on an impossible requirement,
do not expect we waste our on it,
remember, answering is
on voluntary basis
our own time
interest of the topic

well, the requirement puts the topic pretty low in the answering list icon_cool.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA

PostPosted: Sat Jul 16, 2011 8:14 pm
Reply with quote

Quote:
The requirement raised from business side.. they probably have no much technical knowledge when considering the requirement. but we do not need to care about this too much..
This is, quite possibly, the single worst statement I have ever read on this forum. If YOU don't need to care too much about the technical requirements, who does? As a professional IT person, part of YOUR responsibility is to explain when requirements are given that cannot be implemented or would cost too much to implement. If you don't do that, you are not doing your job.

I recommend we lock this topic since it is obvious that there's no need to care about it any longer.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Sat Jul 16, 2011 9:00 pm
Reply with quote

Quote:
I recommend we lock this topic since it is obvious that there's no need to care about it any longer.


It does serve the purpose of being
a good example
of a
bad example
Back to top
View user's profile Send private message
Martin Han

New User


Joined: 23 Jun 2011
Posts: 6
Location: China

PostPosted: Sat Jul 16, 2011 9:10 pm
Reply with quote

Sorry for

I’ve got the answer for my question. 'it is very hard/ impossible to be implemented"

I have discussed the requirement with business side again. And SORRY for I caused the misunderstanding for the communication. I just afraid to cuase more confusion if I specify more business requrement. I agree with you I should consider whether the requirement can be implemented or not.

Thanks alot.
Back to top
View user's profile Send private message
Martin Han

New User


Joined: 23 Jun 2011
Posts: 6
Location: China

PostPosted: Sun Jul 17, 2011 6:37 am
Reply with quote

Hi,

I found some valuable information in IBM manuals that the system variables, ZSCREENI,ZSCREENC, can captured the current screen and cursor. I'm using the following code and it is working fine to get the information from ISPF Panel.

Code:
Address ISPEXEC
'VGET (ZSCREENI,ZSCREENC,ZENVIR)'
SQLCODE = Substr(ZSCREENI,ZSCREENC+1,3)   


Thanks a lot
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Sun Jul 17, 2011 9:36 am
Reply with quote

Good to hear it is working for you - thank you for letting us know icon_smile.gif

d
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 Write line by line from two files DFSORT/ICETOOL 7
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Looking for a little history of ISPF ... TSO/ISPF 5
No new posts Adding QMF and SPUFI to the ISPF menu DB2 20
No new posts Reading dataset in Python - New Line ... All Other Mainframe Topics 22
Search our Forums:

Back to Top