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

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

 

Copyright © 1995,2009 VOLUBIS