* Ce pgm permet de déterminer si l’instance en cours est WEBFACING *
* Utiliser la commande CRTRPGMOD pour créer le module *
* Utiliser la commande (CRTPGM) avec le mot-clé BNDSRVPGM *
* pour lié le module RPG avec le programme de service QSYS/QQFENV *
*————————————————————————*
* PA1=’O’ Si on est dans l’environnement WEBFACING *
*————————————————————————*
DQQFENV PR 10I 0 EXTPROC(‘QqfEnvironment’)
DRC S 10I 0
C *ENTRY PLIST
C PARM PA1 1
C EVAL RC = QQFENV
C IF RC = 1
C EVAL PA1 = ‘O’
C ENDIF
C EVAL *INLR = *ON