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