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.]