Fehlermeldungen:Cursor Position

[tarkusch]

Hallo,

wollte die Cursor Position sauber programmieren, stosse aber immer auf folgende Fehler: *RNF0312/ *RNF5377.

A** DDS Angaben
A RTNCSRLOC(&RCD &FLD)
A RTNCSRLOC(*MOUSE &ROW &COL)
A 31 CSRLOC(OUTROW OUTCOL)
A OVERLAY
A RCD 10A H
A FLD 10A H
A ROW 3S 0H
A COL 3S 0H
A OUTROW 3S 0H
A OUTCOL 3S 0H

D* DATENSTRUKTUR FÜR FUNKTIONSTASTEN
D INFODS DS
D CURLOC 370 371

477 if *inkd = *on;
478 OUTROW = (CURLOC:256);
======> abbb
*RNF0312 20 a 021700 Rechte runde Klammer erwartet, aber nicht gefunden.
*RNF5377 20 b 021700 Ende des Ausdrucks erwartet.
479 OUTCOL = %Rem(%INT(CURLOC) : 60);
480 *IN31 = *ON;


Wenn ich die Klammern ganz weglasse kommt die Fehlermeldung:

478 OUTROW = CURLOC:256;
======> a
*RNF5377 20 a 021700 Ende des Ausdrucks erwartet.

Ist das so sauber programmiert?


Gruß

Tarki

[EFueloep]

Ich nehme an mit der Operation:

OUTROW = (CURLOC:256);soll eine Divison ausgeführt werden?

Dies müßte aber korrekt:


OUTROW = (CURLOC/256);sein.

Das Zeichen ':' ist kein Expression Operator.

[camouflage]

Wird ein lustiges Resultat geben, wenn das Feld alpha definiert ist.... ;-)

Grundsätzlich würde ich eh auf die Definition (Länge/Typ)der Felder achten!

[EFueloep]

Stimmt; das Feld CURLOC ist character.

Laut Info Center enthält es:


Cursor location (line and position). Updated on input operations that are not subfile operations that return data to the program. For example, hex 0102 means line 1, position 2. Line 10, position 33 would be hex 0A21.Du mußt also diesen Inhalt von Hex auf Numeric umrechnen.

So ähnlich wie z.B.:



D CHROW DS
D NUMROW 1 2B 0
D CHPOS DS
D NUMPOS 1 2B 0

C EVAL NUMROW = 0
C EVAL NUMPOS = 0
C EVAL %subst(CHROW:2:1) = %subst(CURLOC:1:1)
C EVAL %subst(CHPOS:2:1) = %subst(CURLOC:2:1)
Dann müßte der Inhalt von NUMROW und NUMPOS den numerischen Wert der Cursorposition enthalten.
Ich habe dies aber jetzt nicht ausprobiert.

[tarkusch]

Habe es nun wie folgt dank eurer Hilfe umgesetzt:

D CURLOC 370 371B 0
OUTROW = (CURLOC/256);
OUTCOL = %Rem(%INT(CURLOC) : 256);
*IN31 = *ON;

[christian_lettner]

So sollte es noch einfacher gehen.



d InfoDs ds
d DsRow 370 370I 0
d DsCol 371 371I 0

c eval OutRow = dsRow
c eval OutCol = dsCol


mfg Christian