PGM
             DCL        VAR(&ATNPGM) TYPE(*CHAR) LEN(10)
             DCL        VAR(&ECRAN) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOBDA) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)
             RTVJOBA    JOB(&JOB)
             RTVDTAARA  DTAARA(AF4TOOL/CPYDSPTMP) RTNVAR(&JOBDA)
             MONMSG     MSGID(CPF1015) EXEC(SNDPGMMSG MSGID(CPF9898) +
                          MSGF(QCPFMSG) MSGDTA('Télémiroir multiple +
                          non initialié') MSGTYPE(*ESCAPE))
             IF         COND(&JOB ^= &JOBDA) THEN(SNDPGMMSG +
                          MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Télémiroir multiple non initialié +
                          à partir de cet écran.') MSGTYPE(*ESCAPE))
             RTVUSRPRF  ATNPGM(&ATNPGM)
             CALL CPYDSPG2
             RTVDTAARA  DTAARA(*LDA (201 10)) RTNVAR(&ECRAN)
             ENDCPYSCN  SRCDEV(&ECRAN)
              MONMSG CPF0000
             DLTDTAARA  DTAARA(AF4TOOL/CPYDSPTMP)
              MONMSG CPF0000
             SETATNPGM  PGM(&ATNPGM)
             ENDPGM