> Tech > Créer le programme Big Brother

Créer le programme Big Brother

Tech - Par iTPro - Publié le 24 juin 2010
email

Les programmes Big Brother et Little Sister sont indépendants des versions d'OS/400. Pour créer ces programmes et leurs objets associés, if faut effectuer les opérations suivantes :

1. Création de la file d'attente des messages INACTMSGQ dans la bibliothèque QUSRSYS.

CRTMSGQ MSGQ(QUSRSYS/INACTMSGQ) TEXT('Inactive user message queue ')

Créer le programme Big Brother

2. Modification des valeurs système QINACTITV et QINACTMSGQ en utilisez soit WRKSYSVAL
ou directement CHGSYSVAL.

3. Modification de la valeur du délai d’inactivité imparti. La valeur par défaut
est *NONE.

CHGSYSVAL SYSVAL(QINACTITV) VALUE(‘120’)

4. Modification de la valeur de la file d’attente des messages des travaux inactifs.
La valeur par défaut est *ENDJOB.

CHGSYSVAL SYSVAL(QINACTMSGQ) VALUE(‘ INACTMSGQ QUSRSYS’)

5. Compilation des fichiers physiques, du source RPG et du source CL soit en utilisant
PDM (Program Development Manager) ou directement sur une ligne de commandes.

6. Création des fichiers physiques en remplaçant MyLib par le nom de la bibliothèque
choisie.

CRTPF FILE(MyLib/PLILSIS) SRCFILE(MyLib/QDDSSRC)

CRTPF FILE(MyLib/PSIGOFF) SRCFILE(MyLib/QDDSSRC)

7. Avec MyLib dans votre liste de bibliothèque, création du programme RPG RLILSIS
:

CRTRPGPGM PGM(MyLib/RLILSIS) SRCFILE(MyLib/QRPGSRC)

8. Créez le programme CL CBIGBRO.

CRTCLPGM PGM(MyLib/CBIGBRO) SRCFILE(MyLib/QCLSRC)

9. Ajout des commandes suivantes dans votre programme de démarrage :

/* START INACTIVITY MONITOR */
QSYS/SBMJOB CMD(CALL PGM(MyLib/CBIGBRO)) JOB(INACTIMER) JOBD(QDFTJOBD) +
JOBQ(QCTL) PRTDEV(*CURRENT)
MONMSG MSGID(CPF1338)

Pour commencer à  utiliser l’utilitaire Big Brother immédiatement, il convient
d’exécuter le CL décrit dans l’étape 9. On peut également ajouter cette commande
au programme de démarrage. La valeur du paramètre système QSTRUPPGM indique le
nom et l’emplacement du programme de démarrage. En cas de redémarrage de CBIGBRO,
il faut s’assurer que les messages placés dans la file d’attente des messages
INACTMSGQ aient été préalablement supprimés.

Téléchargez gratuitement cette ressource

Comment sécuriser la Digital Workplace ?

Comment sécuriser la Digital Workplace ?

Avec le recours généralisé au télétravail, les entreprises ont ouvert davantage leur SI. En dépit des précautions prises, elles ont mécaniquement élargi leur surface d’exposition aux risques. Découvrez 5 axes à ne pas négliger dans ce Top 5 Sécurité du Télétravail.

Tech - Par iTPro - Publié le 24 juin 2010