Posizionamento cursore video

Nelle Mappe Video senza SubFile spesso può risultare utile e comodo lasciare inalterato il posizionamento del Cursore rispetto a dove è stato impostato dall’Utente.
Per ottenere questo risultato è sufficiente attivare la gestione di CSRLOC e RTNCSRLOC condividendo l’utilizzo delle stesse variabili come riportato di seguito.

• DSPF
    CSRLOC(RTROW RTCOL)            
    RTNCSRLOC(*MOUSE &RTROW &RTCOL)
• RPGLE
    C                   IF        WRKERR <> *BLANK
    C                   EVAL      RTROW = 0
    C                   EVAL      RTCOL = 0
    C                   ENDIF
    C                   WRITE     T01      
    C                   WRITE     P01      
    C                   EXFMT     D01      

E’ importante valorizzare con Zero le variabili RTROW, RTCOL in tutti quei casi in cui si vuole che il Cursore venga posizionato in base all’attivazione di DSPATR(PC).

Casi in cui può essere utile:

• In tutti casi in cui da una Mappa Video si passa ad una successiva e poi si torna alla mappa Video di partenza.