Iseries navigator - User Define server

Définir ses propres serveurs IP

Avec Iseries Navigator

Commencons par définir un nouveau serveur défini par l'utilisateur (Réseau/serveurs)

Cela lance un assistant

Indiquez ici, la chiane que devra fournir un job pour prétendre "appartenir" à ce serveur

la valeur (précédée de *) avec laquelle le serveur peut être lancé par STRTCPSVR

Puis le nom du programme à appeller pour le lancer

Le serveur doit-il démarrer en même temps qu'IP ?

et cliquez sur Terminer sur cet ècran récapitulatif.

Ensuite il vous faut écrir le code qui permet de se déclarer membre de ce serveur (utilisation de l'API QWTCHGJB/clé 1911)

ici le nom de serveur est un paramètre

 
 DJOBC0200_data    DS                                               
 D nbr_de_cle                    10I 0 inz(1)                       
 D lg_totale                     10I 0 inz(%size(JOBC0200_data))    
 D cle                           10I 0 inz(1911)                    
 D type_donnees                   1    inz('C')                     
 D reserve                        3    inz('   ')                   
 D srv_type_lg                   10I 0 inz(%size(srv_type_data))    
 D srv_type_data                 30                                 
 DERRDS            DS                                               
 D lg_fournie                    10I 0                              
 D lg_retour                     10I 0                              
 D MSGID                          7                                 
 D reste                          1                                 
                                                                   
 Dsrv_type_parm    S                   like(srv_type_data)  
 DQWTCHGJB         PR                  EXTPGM('QWTCHGJB')            
 D job                           26    const                         
 D jobint                        16    const                         
 D format                         8    const                         
 D jobinfo                       40    const                         
 D erreur                        16    const                         
                                                                     
 C     *entry        plist                                           
 C                   parm                    srv_type_parm           
  /free                                                              
   srv_type_data = srv_type_parm;                                    
   QWTCHGJB ('*' : ' ' : 'JOBC0200' : JOBC0200_data : errds);        
   *inlr = *on;                                                      
  /end-free

Ce programme peut être déclaré en tant que procédure cataloguée afin d'être appelé depuis une application type Web ou client/ serveur

CREATE PROCEDURE QGPL/CHGSRVTYPE(IN srv_type CHAR (30 )) LANGUAGE RPGLE
NOT DETERMINISTIC CONTAINS SQL EXTERNAL NAME
AF400/CHGSRVTYPE PARAMETER STYLE GENERAL

un programme contenant cette instruction CALL CHGSRVTYPE PARM('MYSQL') a comme résultat

que le serveur soit considéré comme démarré (au moins un job actif)
que la liste des jobs apparait dans cette fenêtre