Voici comment savoir si un utilisateur est inscrit à SNA utilisé par exemple si vous voulez lancer un rtvdskinf qui requiert ce droit.

PGM PARM(&USR)                                                  

/* SAVOIR SI  UN UTILISATEUR EST ISNCRIT À SNADIRE */           

DCL &USR *CHAR 10                                               

DCL &NBR *DEC (10 0)                                            

DLTF QTEMP/WAOKP08A                                             

MONMSG CPF0000                                                  

             CPYF       FROMFILE(QUSRSYS/QAOKP08A) +            

                          TOFILE(QTEMP/WAOKP08A) CRTFILE(*YES) +

                          INCREL((*IF WOS8UDSC *EQ &USR))       

                          MONMSG CPF0000                        

             RTVMBRD    FILE(QTEMP/WAOKP08A) NBRCURRCD(&NBR)    

                          MONMSG CPF0000 EXEC(GOTO PASOK)       

             IF         COND(&NBR > 0) THEN(DO)                 

             CHGVAR &USR 'OK'                                   

             ENDDO                                              

             ELSE  DO                                           

 PASOK:      CHGVAR &USR 'PASOK'                                

             ENDDO                                              

 ENDPGM                                                         

Remarques :

pour inscrire quelqu'un à sna adddire

vous devez être *secadm et vous-même inscrit dans la directory

par défaut qsecofr est inscrit