PGM        PARM(&CMD)
             DCL &CMD *CHAR 256
             DCL &JOB *CHAR 10
             MONMSG CPF1907 EXEC(GOTO TRAITEMENT)
             MONMSG CPF0000
             RTVJOBA    JOB(&JOB)
             CRTDTAARA  DTAARA(AF4TOOL/CPYDSPTMP) TYPE(*CHAR) +
                          LEN(10) VALUE(&JOB) TEXT('Data area +
                          temporaire')
              MONMSG CPF1023 EXEC(DO)
               RTVDTAARA  DTAARA(CPYDSPTMP (1 10)) RTNVAR(&JOB)
               SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                            MSGDTA('Télémiroir multiple déja +
                            initialisé pour écran. ' *CAT &JOB *TCAT +
                            '.ENDCPYDSP pour arreter.') +
                            MSGTYPE(*ESCAPE)
              ENDDO
             INZCPYDSP
             MONMSG     MSGID(CPF9898) EXEC(RETURN)
             CHGDTAARA  DTAARA(*LDA (211 1)) VALUE('0')
             SETATNPGM  PGM(AF4TOOL/CPYDSPC0)
             SNDPGMMSG  MSG('/* CPYDSP initialisé, appuyez sur ATTN +
                          pour démarrer le télémiroir */') +
                          TOPGMQ(*EXT) MSGTYPE(*RQS)
             SNDPGMMSG  MSG('/*  et attendez le message de +
                          confirmation du CPYSCN système.....  */') +
                          TOPGMQ(*EXT) MSGTYPE(*RQS)
 TRAITEMENT: CALL       PGM(QCMDEXC) PARM(&CMD 256)
             ENDPGM