Le web de Dominique Guebey – IBM AS/400 iSeries

Page : http://www.dg77.net/tekno/as400/as400net.htm


   D o m i n i q u e   G u e b e y    J u n g l e     IBM AS/400 iSeries

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