/**************************************************************/
 /*  CE PROGRAMME PERMET D'AVOIR LA MAIN MEME QUAND VOTRE      */
 /*   ECRAN EST "ENTREE VERROUILLEE"                           */
 /*                                                            */
 /* POUR CELA FAIRE "APPEL SYSTEME", PUIS                      */
 /* 5_'*'_tomsgq(cmd)___________   ==> ECRAN DES COMMANDES     */
 /* 5_'dspjob'_tomsgq(cmd)______   ==> POUR PASSER UNE CDE     */
 /**************************************************************/
             PGM
 /**************************************************************/
 /*  MISE EN PLACE MESSAGE QUEUE                               */
 /**************************************************************/
             CRTMSGQ    MSGQ(QTEMP/CMD)
             CHGMSGQ    MSGQ(QTEMP/CMD) DLVRY(*BREAK) PGM(CMDBRK)
             ENDPGM