Cursorposition setzen

[Mr.iSeries]

Hallo,
anbei RPG III-Anweisungen und DDS-Zeilen für das Cursor ermitteln und setzen:
C*
C* Unterroutine GETLOC FÜR 24 x 80
C* Cursor-Pos aus Dateistatusdatenstruktur lesen
C* C*
C* CURSOR POSITION BESTIMMEN
FN3XDSPF CF E WORKSTN KINFDS INFDS
IINFDS DS
I B 370 3710CURSOR
C EXFMTN3X01
C CURSOR DIV 256 ROW 30
C MVR COL 30
C*
C* CURSOR POSITIONIEREN MIT DDS
A R FMT01 RTNCRSLOC(&CSRRCD +
A &CSRFLD +
A &CSRPOS)
A 05 CSRLOC(ROW COL)
A CSRRCD 10A H
A CSRFLD 10A H
A CSRPOS 4S0 H
A ROW 3S0 H
A COL 3S0 H
A OPTION 1A B 1 2
A CUSNBR 7S0 B 1 5

Gruß Holger

[Dieser Beitrag wurde von holly am 22. August 2002 editiert.]

OK Fehler lag hier

Hätt da aber noch ne Frage...
Hab mir ein Beispielprogramm gemacht und klappt soweit ganz gut...
Wenn ich z.b. auf 7/28 bin will ich dass das Programm auf das Feld darunter sprint... jedoch ist auf Zeile 7 rechts daneben noch ein Feld...hier springt er natürlich zuerst hin... habe abgefragt wenn der cursor auf 7/28 ist dann setze ich eine Bezugszahl die ich beim Feld darunter bei CHECK(PC) gesetzt habe...
Das Problem ist natürlich dass zuerst die Datenfreigabetaste gedrückt werden muss sonst wird ja die Steuerung nicht an das Programm übergeben.

Gibt es noch eine andere Möglichkeit dass zuerst auf dem Feld darunter positioniert wird ohne dass ich Datenfreigabe drücke?