/>    Dmpclpgm /* Program dump */
        Monmsg CPF0000
    Sndpgmmsg Msg(‘Error occurred in program.’)
        Monmsg CPF0000
Return

ou

Error:
    Rcvmsg Msgtype(*Last) Msg(&Msg)
        Monmsg CPF0000
    Sndpgmmsg Msg(&Msg)
        Monmsg CPF0000
Return

Bien entendu, pour instaurer un mécanisme de traitement d’erreurs standard, il faudra une commande MONMSG globale juste après les déclarations. Par exemple :

MONMSG CPF0000 Exec(Goto Error)

Habituez-vous à appliquer ces conseils dans vos programmes CP En respectant les bons standards et les meilleures pratiques, vos programmes auront un aspect plus professionnel, seront plus faciles à lire, à comprendre et à maintenir. De plus, les autres programmeurs appelés à travailler avec vos programmes ou à les maintenir, vous en sauront gré