Mehrere Bezugszahlen auf *off in Free RPG

[B.Hauser]

Nachtrag: ich glaube die Birgitta hatte da mal ein pdf "RPG ohne Bezugszahlen"

Das stimmt, allerdings kann man dies nur zum setzen der Farben, Underline und Protect verwenden.

Für's (freie) Positionieren (z.B. bei Fehler-Prüfung) muss man entweder weiterhin Bezugszahlen verwenden oder sich die Position über das API QDFRTVFD (Retrieve File Description) ermitteln.

Und für die Subfile-Steuerung gibt es keine andere Möglichkeit als Bezugszahlen.

Was den MOVEA angeht, würde ich das Ganze (sofern *IN-Bezugszahlen verwendet werden) wie folgt lösen:

D IndPtr          S               *   inz(%Addr(*In))    
                                                         
D                 DS                  BASED(IndPtr)  
 * Bezugszahl 60 - 62
D IndGrp1                60     62
 * Bezugszahl 70 - 79                       
D IndGrp2                70     79
 *-----------------------------------------------------
 /Free
     IndGrp1 = *Zeros;
     IndGrp2 = *All'1';
 /End-Free 

Birgitta