*CURS-FIELD

, ,
1

Hello -

We are trying to use this function to work so that when the ENTER (or PF1) key is pressed an appropriate Help routine is invoked. We’ve tried it in a DECIDE statement as well as an IF statement. Not all of the fields are I/O.
Can anyone provide sample code that works?
Thanks,
Richard

2

Not sure exactly what you want to do. Here is some code that works:

input 3/10 ‘enter #a here==>’ #a (he=‘help01’)
8/10 ‘enter #b here==>’ #b (he=‘help02’)
*
if *curs-field = pos (#a)
reinput using help mark field *#a
end-if
if *curs-field = pos (#b)
reinput using help mark field *#b
end-if

steve

3

Thanks Steve!
It appears that the use of a Control Variable at the statement (map) level negates the functionality of the *CUR-FIELD. Is there a way to get around this?
Richard

4

Hi Richard;

Not sure what you mean.
The following works fine

define data local
1 #a (a3)
1 #b (a3)
1 #c (c)
end-define
*
input (cv=#c) 3/10 ‘#a==>’ #a (he=‘help102’)
6/10 ‘#b==>’ #b (he=‘help103’)

rest of program as above.

steve