PGM
             DCLF CPYDSPBLD
             DCL &FLAG *CHAR 1
             DCL &JOBQ *CHAR 10
             DCL &RT   *CHAR 3
             RTVDTAARA  DTAARA(*LDA (211 1)) RTNVAR(&FLAG)
 /* TELEMIROIR DEJA INITIALISE  */
             IF (&FLAG = '1') DO
 /* LECTURE ECRAN BIDON */
             SNDRCVF
             IF &IN24 GOTO ARRET
             IF         COND(&IN23 *OR (&CODE ^= ' ')) THEN(DO)
             /*  F23 OU  CODE <> ' ' ==> ACTION */
             CALL       PGM(CPYDSPG1) PARM(&RT)
             IF (&RT = '*LR') DO
 /* ARRET DEMANDé */
 ARRET:      CHGDTAARA  DTAARA(*LDA (211 1)) VALUE('0')
             SNDPGMMSG  MSG('/* Arret du télémiroir demandé */') +
                          TOPGMQ(*EXT) MSGTYPE(*RQS)
             ENDCPYDSP
             RETURN
             ENDDO
             ELSE DO  /* NE PAS COPIER CET ECRAN */
             CALL       PGM(QSNDDTAQ) PARM('CPYDTAQ' 'AF4TOOL' +
                          X'00003F' 'NON')
             ENDDO
             ENDDO
             ENDDO
             ELSE DO
/* TELEMIROIR NON INITIALISE ==> INITIALISATION */
             CHGDTAARA  DTAARA(*LDA (211 1)) VALUE('1')
             SNDPGMMSG  MSG('/* Démarrage du télémiroir demandé */') +
                          TOPGMQ(*EXT) MSGTYPE(*RQS)
             RTVDTAARA  DTAARA(*LDA (212 10)) RTNVAR(&JOBQ)
             STRCPYDSP  JOBQ(&JOBQ)
             ENDDO
             ENDPGM