Configuration Passthru (Pasthru) sur AS400
Cas concrêt
On veut relier trois systèmes AS001, AS002, AS003. Ci-dessous tâches sur AS002. Remarque : le plus souvent on conserve le nom réseau par défaut APPN fourni par IBM.
Support ANYNET
Verifier que le support ANYNET est actif (ALWANYNET=*YES) : commande DSPNETA
… Support AnyNet admis . . . . . . . . . . . . . . : *YES
Modification :
CHGNETA ALWANYNET(*YES)
Configuration TCP/IP
CFGTCP option 1 (interfaces TCP/IP)
Work with TCP/IP Interfaces
Système: AS002
Type options, press Enter.
1=Add 2=Change 4=Remove 5=Display 9=Start 10=End
Internet Subnet Line Line
Opt Address Mask Description Type
10.33.43.182 255.0.0.0 ETHERNET *ELAN
127.0.0.1 255.0.0.0 *LOOPBACK *NONE
CFGTCP option 2 (passerelle)
Work with TCP/IP Routes
Systèm
Type options, press Enter.
1=Add 2=Change 4=Remove 5=Display
Route Subnet Next Preferred
Opt Destination Mask Hop Interface
*DFTROUTE *NONE 10.33.42.1 *NONE
CFGCTCP option 10 (table HOSTS). Ajouter les entrées correspondant aux autres machines. Noter les extensions .APPN.SNA.IBM.COM : - APPN est le RMTNETID du systeme cible - SNA.IBM.COM obligatoire
Work with TCP/IP Host Table Entries
Type options, press Enter.
1=Add 2=Change 4=Remove 5=Display 7=Rename
Internet Host
Opt Address Name
10.33.43.182 AS002.MONORG.FR
AS002
10.100.1.1 AS001
AS001.MONORG.FR
AS001.APPN.SNA.IBM.COM
92.92.1.14 AS003
AS003.APPN.SNA.IBM.COM
127.0.0.1 LOOPBACK
LOCALHOST
Configuration APPN
Gérer les lieux éloignés
Ajouter une nouvelle entrée dans les définitions de systèmes connus par l’AS/400.
Ceci se fait via des listes de configuration. Commande : WRKCFGL, sélectionner *APPNRMT ou directement : CHGCFGL *APPNRMT :
Modifier liste configuration CH
10/11/01 11
Liste de configuration : QAPPNRMT
Type de liste de
configuration . . . . : *APPNRMT
Texte . . . . . . . . . :
Indiquez vos modifications, puis appuyez sur ENTREE.
-----------------------------Lieux éloignés APPN------------------------
ID Point de ID rés
Lieu éloigné Lieu contrôle point de Mot de passe Lieu
éloigné réseau local éloigné contrôle du lieu prot
AS001 APPN AS002 TCPIP APPN *NO
AS003 APPN AS002 TCPIP APPN *NO
Créer un controleur APPC
CRTCTLAPPC XXXXX LINKTYPE(*ANYNW) RMTNETID(APPN) RMTCPNAME(AS001).
Par défaut, il sera actif au démarrage du système. A la création, il faut le démarrer manuellement : WRKCFGSTS *CTL XXXXX STATUS(*ACTIVE)
Travailler en passe-système
Ouverture
Ouverture d’une session en passthru (exemple) : STRPASTHR AS003. L’ouverture de la session crée automatiquement une unité.
Contrôle
Affichage/contrôle sur AS001 : WRKCFGSTS *CTL XXXXX. On voit l’unité AS00300 active, et la session de l’utilisateur MULTRIX connecté en pasthru sous le mode BLANK.
Gestion de l'état de la configuration
A partir de . . . . . __________ Caractères de début
Opt Description Etat -----------Travail------------
XXXXX ACTIVE
AS001 HORS FONCTION
AS00300 ACTIVE
BLANK ACTIVE/SOURCE UBL2 MULTRIX 368034
CTL01 ACTIVE
PRT01 EN INSTANCE
DSP02 EN INSTANCE
Arrêt
Sur le système distant, fin de la session passthru : ENDPASTHR. Ou encore : SIGNOFF ENDCNN(*YES).
Récupération des intructions de configuration
La commande RTVCFGSRC permet de sortir les commandes de configuration dans un fichier source, ce qui permet d’avoir un CL de (ré)génération de la configuration. Exemple : RTVCFGSRC XXXXX *ALL SRCFILE(MA_BIBLIO/QCLSRC) donne un membre source XXXXX du type de celui-ci :
0000.02 CRTCTLAPPC CTLD(XXXXX) LINKTYPE(*ANYNW) ONLINE(*YES) +
0000.03 APPN(*YES) RMTNETID(*NETATR) RMTCPNAME(TCPIP) +
0000.04 NODETYPE(*LENNODE) HPR(*YES) HPRPTHSWT(*NO) TMSGRPNBR(1) +
0000.05 AUTOCRTDEV(*ALL) AUTODLTDEV(1440) USRDFN1(*LIND) +
0000.06 USRDFN2(*LIND) USRDFN3(*LIND) CMNRCYLMT(2 5) TEXT(*BLANK)
0000.07 CRTDEVAPPC DEVD(AS001) LOCADR(00) RMTLOCNAME(AS001) +
0000.08 ONLINE(*YES) LCLLOCNAME(AS002) RMTNETID(*NETATR) +
0000.09 CTL(XXXXX) MODE(*NETATR) MSGQ(*LIBL/QSYSOPR) +
0000.10 APPN(*YES) SNGSSN(*NO)
0000.11 CRTDEVAPPC DEVD(AS003) LOCADR(00) RMTLOCNAME(AS003) ONLINE(*NO) +
0000.12 LCLLOCNAME(AS002) RMTNETID(*NETATR) CTL(XXXXX) +
0000.13 MODE(*NETATR) MSGQ(*LIBL/QSYSOPR) APPN(*YES) SNGSSN(*NO) +
0000.14 TEXT('CREE AUTOMATIQUEMENT PAR SYSTEME')