Fehlermeldungen:Cursor Position

[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