Sous Fichier dans une WINDOW

[Sthot]

Bonjour,

Avant de faire un EXFMT d'un sous-fichier, je fait un write d'un format qui va occuper le bas de l'écran ou j'affiche les F3=Fin, F12=Retour ou encore toutes touches de fonction utiles. (classique ..)

Mais comment afficher les touches de fonctions quand le sous fichier est dans une WINDOW, ou dit autrement, quand mon format est de type WDWSLF et non plus SFL.

Merci d'avance.

[FORMULARY]

C'est assez simple, mais il faut le manier avec douceur

Tu crées un format FMTBAS en fenêtre et tu y place les touches de fonction

Tu crées un format FMTSFL type WDWSFL avec FMTCTL en contrôleur

Dans les mots-clés du contrôleur, tu indiques FMTBAS comme fenêtre de référence et surtout tu indiques OVERLAY dans le format de contrôle.

Au niveau du RPG, rien de changé :
Write FMTBAS
Write FMTSFL en boucle
Exfmt FMTCTL

[Sthot]

Merci pour ton aide,

Peux tu être plus précis quand tu écris "tu indiques FMTBAS comme fenêtre de référence"...

[FORMULARY]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
A          R ECRBAS
A                                      WINDOW(2 2 10 10) 
A                                  9  1'F3=Exit' COLOR(BLU)
A*
A          R ECRSFL                    SFL
A            FLD001         1   B  3  1              
A            FLD002         8   O  3  3              
A*
A          R ECRCTL                    SFLCTL(ECRSFL)
A                                      OVERLAY        
A                                      SFLDSP         
A                                      SFLDSPCTL      
A                                      SFLSIZ(0020)   
A                                      SFLPAG(0005)   
A                                      WINDOW(ECRBAS) 
A            FLD003        10A  O  1  1

ECRBAS a une définition de fenêtre de 10 lignes de 10 caractères.
ECRCTL utilise la fenêtre ECRBAS pour s'y afficher
Note: Il faut bien sûr avoir fait un write ECRBAS avant de pouvoir afficher ECRCTL

[Sthot]

WINDOW(ECRBAS)

Je ne connaissais pas cette possibilité.
Merci beaucoup.