Tester l’existence d’un membre de fichier en RPGLE avec un programme de service

Installation

  • Le programme exemple EXPMBR0001 utilisent des programmes de services et des clauses COPY qui doivent êtres installés. Ils sont décrits dans cet article :
  • Installation du programme fournit :
    • Indique MYBIB comme bibliothèque par défaut (le répertoire de liage MYBNDDIR est normalement dedans, si vous avez installé les programmes de services).
    • Copie du source QRPGLESRC_RPGLE_EXPMBR0001.txt dans MYBIB/QRPGLESRC sous le nom EXPMBR0001 et le type RPGLE.
    • Compilation via la commande CRTBNDRPG PGM(MYBIB/EXPMBR0001) SRCFILE(MYBIB/QRPGLESRC) SRCMBR(EXPMBR0001) DBGVIEW(*SOURCE) OUTPUT(*PRINT) REPLACE(*YES)

Utilisation

  • Lancez le prgramme test avec un un fichier/bibliothèque/membre qui n’existe pas via la commande : CALL PGM(EXPMBR0001) PARM(‘QRPGLESRC’ ‘MYBIB’ ‘EXISTEPAS’) pour déclencher l’affichage d’une erreur.
Print Friendly, PDF & Email

Attachments