Cursorpositionierung auf Subfile bei SFLSIZ = SFLPAG

[harkne]

Habe ich mir fast gedacht.

Vielen Dank

[B.Hauser]

Wenn Du lediglich den Cursor dahin setzen willst, wo er gestanden hat, bevor das Programm für die Auswahl aufgerufen wurde, brauchst Du gar nichts zu rechnen.

In der Datei-Status-Dateinstruktur für Display auf Stelle 370 (Zeile), 371 (Spalte) ist binär hinterlegt auf welcher Position der Cursor steht.
Um den Cursor wieder dahin zu setzen, müssen lediglich diese beiden Felder in die Cursor-Location-Felder umgeladen werden.

FDSPFSFL   CF   E             WORKSTN INFDS(DspfSDS) UsrOpn
F                                     SFile(SFLFMT1: S1RSF)          
D DspfSDS         DS                   
D  DDSRow               370    370I 0   
D  DDSCol               371    371I 0                  
 /Free
  ......
    //Verarbeitung Auswahl
    C1CSZE = DDSCol;      
    C1CSSP = DDSRow;     
    Exfmt SFLCTLFMT
 /End-Free