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')