RE: How to set the cursor position

Changed the title because of my spelling mistake.

Thanks, I learnt a new keyword.

But it seems to be a little simpler :
I already had this :
A RTNCSRLOC(*WINDOW &LINE &COLUMN)

This is to tell the RPG pgm where the cursor is when the user hits the function key.

So I added this :
A CSRLOC(&LINE &COLUMN)

(without the indicator, same field names) to set the position of the cursor before displaying the screen.

Then in the rpg :

Line=7;
Column=8;
Exfmt screen;

-----Message d'origine-----
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de ssc1478

Screen 1 line x, column y
F20 goes to data entry screen, first field at line x1, column y1.
F12 returns from the procedure.
Screen 1 line x1, column y1

How do I get the cursor back to its original line and column?

It's been a long time since I did any dspf programming. I
know this worked years ago when I wrote it but no guarantees.

You need this in the control record in the dspf source:
A RTNCSRLOC(&CSRRCD &CSRFLD)

A 43 CSRLOC(CSRROW CSRCOL)

A CSRFLD 10A H

A CSRRCD 10A H

A CSRROW 3S 0H

A CSRCOL 3S 0H

In the rpg pgm you need get the cursor position:

Ddspfds ds

D csrPos 370 371b 0

and before displaying the next screen:
csrrow = %div(csrpos:256);

csrcol = %rem(csrpos:256);

csrloc = *on;