IBM Mainframe Forum

Good Afternoon.
Rexx panels working fine. When panel loads, the Cursor starts wherever it has been defined.
Question: Is it possible to set the Cursor starting position, based on a condition ?
When I execute the code below, the value of B1 changes (Field1 or Field2) onscreen, however,
the actual blinking Cursor always stays on the topmost screen field.
- Thank you for your help.

)ATTR
)INIT"
VGET (A1 B1 Field1 Field2) PROFILE "
)PROC"
IF (&A1 = TEST)"
.CURSOR = Field1"
&B1 = .CURSOR"
IF (&A1 ¬= TEST)"
.CURSOR = Field2"
&B1 = .CURSOR"
VPUT (A1 B1 Field1 Field2) PROFILE "
&PFKEY = .PFKEY"
)END"

Richard Pearl wrote:Rexx panels working fine.

REXX panels do not exist! Use correct terminology!

Good Afternoon,
My Rexx program (which displays a panel) is working fine....

- Thank you for the correction.

Now, if you could post, in tags, your entire panel, then we would have something to work with...

1. Use )INIT section to decide stuff before the screen gets displayed.
2. Use )PROC section to do stuff after the user presses action key.

So, move your .cursor statement to )INIT

I had tried that, but it does not work either.
The value of .cursor does change correctly, because field B1 displays the cursor value onscreen.
However, the cursor itself does not move to a different location onscreen.
In other words - the value for B1 may show "Field1", but the cursor is still on "Field2".

Thank you.

From one of my execs:

Still no luck - sent you entire program 75 lines code.
Thanks for help.

Instead of setting to a constant value, use a variable instead.

and in the )PROC section, decide what to set &mycsr to.

Eureka ! It worked !
Big THANK YOU Pedro - have a great day.