PGM PARM(&FIC &BIB)  /* AFFICHAGE D'UN FICHIER         PGM CPP CMD3  */
DCL &FIC *CHAR 10    /* NOM DU FICHIER                               */
DCL &BIB *CHAR 10    /* NOM DE LA BIBLIOTHEQUE                       */
DSPPFM &BIB/&FIC
MONMSG MSGID(CPF0000) EXEC(DO)
  SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG)                            +
  MSGDTA('Fichier' *bcat &fic *bcat                                  +
         'inexistant dans la bibliothèque' *bcat &bib)               +
  MSGTYPE(*ESCAPE)
ENDDO
ENDPGM