Bonjour à tous
Afficher un écran depuis un programme CL
/*=================================================*/
/* AFFICHAGE D'UN ECRAN DANS UN CL */
/*=================================================*/
/* DECLARATION DU FICHIER ECRAN */
DCLF FILE(FICHECRAN)
AFFICH:
/* AFFICHAGE DU FORMAT LECTURE/ECRITURE */
SNDRCVF RCDFMT(FORMAT)
/* FIN DE TRAVAIL PAR F3 */
IF COND(&IN03) THEN(DO)
GOTO FIN
ENDDO
/* RETOUR AFFICHAGE */
GOTO CMDLBL(AFFICH)
FIN: ENDPGM