/*                                                                     */
   /* PGM appellé par CGI, chargé de mettre en place *LIBL                */
   /*                                                                     */
   /*     puis appel du pgm RPG de traitement                             */
   /*                                                                     */
   /*                                                                     */
PGM
DCL &EXISTE *LGL
             ADDLIBLE   WWWCGI
                 MONMSG CPF2103 EXEC(CHGVAR &EXISTE '1')
             CALL       PGM(WWWCGI/SIGNATUR)
             IF (*NOT &EXISTE) RMVLIBLE WWWCGI
ENDPGM