Cursorpositionierung auf Subfile bei SFLSIZ = SFLPAG

[harkne]

Hallo zusammen,

ich habe eine Subfile mit nur Ausgabefeldern und einem Auswahlfeld. Bei Subfiles mit SFLSIZ > SFLPAG habe ich mit SFLRCDNBR(CURSOR) gearbeitet und die Recordnumber dann entsprechend gefüllt. Leider kann ich bei SFLSIZ = SFLPAG kein SFLRCDNBR(CURSOR) angeben. Hat jemand eine andere Lösung als eine Bezugszahl ?
Ich möchte eigentlich nur erreichen dass der Cursor auf dem Auswahlfeld stehen bleibt bei dem der User eine Auswahl eingegeben hat.

Vielen Dank für die Hilfe

[Fuerchau]

Da hilft dann nur Rechnen:
Per CSRLOC kann der Cursor explizit gesetzt werden.
Allerdings gilt das dann für jede Ausgabe.
Bei Änderung des Formates muss auch neu gerechnet werden.
Da ist eine Bezugszahl schon einfacher.

[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