Exemple code RPG pour rafraîchir automatiquement un écran

RPG (3 et 4, free), CL, SQL, etc...
Répondre
cimmelé
Messages : 34
Enregistré le : mer. 28 mars 2007, 21:57:59
Localisation : Rennes(35)
Contact :

Exemple code RPG pour rafraîchir automatiquement un écran

Message par cimmelé »

Pour rafraîchir automatiquement un écran et permettre une entrée au clavier (pour interrompre le programme)

Dans le CLP

/* 60 est l'intervalle de rafraichissement */
OVRDSPF FILE(VSU021AD) WAITRCD(60)

Dans le DSPF (au niveau du fichier écran)

/* 34 est l'indicateur qui conditionne l'affichage du SFL (dans le cas d'une utilisation avec un SFL */
A 34 INVITE

Dans le RPG

FVSU021AD CF E WORKSTN
F INFDS(£INFDS)
F SFILE(F02E:£LIG2)
F MAXDEV(*FILE)


C do *hival

.... Chargement

C write fo2
C move '1' *in34
C write f02c // Utiliser le nom du FORMAT
C read vsu021ad 40 // Utiliser le nom du FICHIER
C // *in40 = lecture effectuée automatiquement
C move '0' *in34

C if *inkc
C leave
C endif

C enddo

C eval *inlr = *on

Répondre