Pointers Query in Rexx 1

[rajesh082]

Can we use Pointers in Rexx?

I am trying to write a code in which on occurence of specific conditions I want to Display a map. The cursor is relocated to a specific field depending on the condition, but the value of the field should not be lost.

To relocate the cursor I am using the following fragment of code:-
"DISPLAY PANEL (JCLSUB) CURSOR("Curs")"

Here the variable Curs contains the value of the field where I want to relocate the cursor.

For this I am moving the field value to a temp variable, dropping the value of the field, Assigning the value of Field to Curs and then again moving the value of Temp variable to field.

e.g:-
Suppose I want to relocate the cursor to field A which has got a value of 'Alpha'

TempV = A
Drop A
Curs = A
A = TempV
"DISPLAY PANEL (JCLSUB) CURSOR("Curs")".

Is there any better way to do this?

 

[rexxhead]

CURS = A" raises "NOVALUE" (if enabled) because you just dropped A. Why not

Curs  = "A"
"DISPLAY PANEL (JCLSUB) CURSOR("Curs")"

and dispense with all the shifting and shuffling?


Frank Clarke
Support the Troops:
-- Bring them home.

http://www.RonPaul2008.com