Récup position du curseur sur DSPF

[fspiecart]

Bonjour,
Quelqu'un saurait-il récupérer la position du curseur sur un écran vert ? (pas dans un S/file )
Merci

[Mercure]

Voici les exemples que donne Birgitta Hauser, une grande "Gouroute" de l'iSeries.

1. DDS

Code :

1
2
3
4
5
6
7
8
 
A                                      RTNCSRLOC(&R1RCDN &R1FELD)  
A                                      CSRLOC(R1CSROW  R1CSCOL)   
....
A            R1RCDN        10A  H      TEXT('Record Format')                
A            R1FELD        10A  H      TEXT('Field')                       
A            R1CSROW        3S 0H      TEXT('Row to position')
A            R1CSCOL        3S 0H      TEXT('Column to position')

2. RPG IV
Les coordonnées courantes (ligne et colonne du curseur) sont placées aux positions binaires 370-371 de l'INFDS associée à l'écran.

Code :

1
2
3
4
5
6
7
8
9
FMONECRAN  CF   E             WORKSTN INFSR(*PSSR)  
F                                     INFDS(SAVINF)
*------------------------------------------------------------------
D SAVINF          DS        
D  FKey                 369    369          
D  CsrRow               370    370I 0       
D  CSrCol               371    371I 0     
*------------------------------------------------------------------ 
...