PGM PARM(&MSG &L &C &ATR &STOP &WAIT &NBS)
DCL &MSG *CHAR 80
DCL &L *CHAR 2
DCL &C *CHAR 2
DCL &ATR *CHAR 12
DCL &STOP *CHAR 1
DCL &WAIT *CHAR 1
DCL &NBS *CHAR 2
DCL &LIGNE *DEC (2 0)
DCL &COLONNE *DEC (2 0)
DCL &SECONDE *DEC (2 0)
DCL &LG *DEC (2 0) VALUE(80)
MONMSG CPF0000
BOUCLE: IF (%SST(&MSG &LG 1) *NE ' ') GOTO SUITE
IF (&LG = 1) GOTO FIN
CHGVAR &LG (&LG - 1)
GOTO BOUCLE
SUITE: CHGVAR &LIGNE &L
CHGVAR &COLONNE &C
CHGVAR &SECONDE &NBS
OVRDSPF FILE(DISPLAYW) TOFILE(DISPLAYD) LVLCHK(*NO)
CALL PGM(DISPLAYG) PARM(&MSG &LG &LIGNE &COLONNE +
&ATR &STOP &WAIT &SECONDE)
DLTOVR USRDFN
FIN: ENDPGM
| 
| 
