pgm parm(&code &zdaq0100)
dcl &code *char 1 /* code retours */
dcl &Zon700 *char 700 /* variable attendu */
dcl &user *char 10
/* extraction du profil utilisateur */
chgvar &user %sst(&zon700 1 10)
/* test sur le user */
/* exemple profil de groupe ou ??? */
/* positionnement du code retours à 1 pour annuler la demande de connexion
*/
Si ok chgvar &code '0'

Si non ok chgvar &code '1'

endpgm

Compiler le programme

puis

ADDEXITPGM EXITPNT(QIBM_QTMF_SVR_LOGON) FORMAT(TCPL0100) PGMNBR(1) PGM(MAB

IB/FTPCON) TEXT('surveillance FTP')

PLB