Discussion :

[JEDI1970]

Bonjour,

J'ai besoin dans une appli de savoir si un sous système est actuellement ACTIF. Est ce que quelqu'un connaitrait une telle commande ?

J'ai toujours la solution de faire un DSPSBS *print et d'analyser le spool, mais ca me semble un peu lours juste pour récupérer son état...

[jump400]

Bonjour,

L'API : QWDRSBSD permet de récupérer des infos sur un ou plusieurs SBS, dont l'état

http://publib.boulder.ibm.com/infoce...s/qwdrsbsd.htm

[Mercure]

Fais simplement appel à l'API QWCLASBS. Cette API liste dans un user space la liste de tous les sous-systèmes ACTIFS.

[JEDI1970]

Merci pour vos réponse, je n'ai plus qu'a me mettre aux API

Je vais chercher un exemple pour voir comment on s'en sert.

[Mercure]

Tu peux regarder ici, rechercher "QWCLASBS" et copier le code qui s'y rapporte si le coeur t'en dit.

[jump400]

Pour l'API : QWDRSBSD, voici un petit CL qui envoie un message avec l'info (*ACTIVE, *INACTIVE ou *NOTFOUND si le sbs n'est pas trouvé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
             PGM        PARM(&SBSNAME &SBSLIB)                       
                                                                     
             DCL        VAR(&SBSNAME) TYPE(*CHAR) LEN(10)            
             DCL        VAR(&SBSLIB) TYPE(*CHAR) LEN(10)             
             DCL        VAR(&SBSQUAL) TYPE(*CHAR) LEN(20)            
             DCL        VAR(&RCV_LEN) TYPE(*CHAR) LEN(4)             
             DCL        VAR(&RECEIVER) TYPE(*CHAR) LEN(200)          
             DCL        VAR(&STATUS) TYPE(*CHAR) STG(*DEFINED) +     
                          LEN(10) DEFVAR(&RECEIVER 29)               
                                                                     
             IF         COND(&SBSLIB *EQ ' ') THEN(CHGVAR +          
                          VAR(&SBSLIB) VALUE('*LIBL'))               
             CHGVAR     VAR(%BIN(&RCV_LEN)) VALUE(200)               
             CHGVAR     VAR(&SBSQUAL) VALUE(&SBSNAME *CAT &SBSLIB)   
                                                                     
             CALL       PGM(QWDRSBSD) PARM(&RECEIVER &RCV_LEN +      
                          'SBSI0100' &SBSQUAL X'00000000')           
             MONMSG     MSGID(CPF1608) EXEC(CHGVAR VAR(&STATUS) +    
                          VALUE('*NOTFOUND'))                        
 
             SNDPGMMSG  MSG(&STATUS)     
                                           
FIN:                                       
     ENDPGM

[JEDI1970]

Merci a vous , mon pb est résolu et en plus j'ai pu voir comment on utilise les API.