Fehlermeldungen:Cursor Position

[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