| 
Exemples de configuration
Exemple de configuration d'une liaison APPC AS/400 - AS/400 sur
liaison SDLC commutée autodial.
Définitions AS/400 A:
CRTLINSDLC LIND(LINSDLCA)
RSRCNAME(LINxxx)
CNN(*SWTPP)
EXCHID(056FFFFF) Equivalent de l'ID NUM et l'ID BLOCK
DE LA MACRO PU DE VTAM
Composé de 8 digits hexadécimaux
3 pour le bloc (056 pour un AS400)
et 5 pour le nom.
LINESPEED(2400)
SWTCNN(*DIAL)
AUTODIAL(*YES)
DIALCMD(*V25BIS)
STNADR(B1)
TEXT('Ligne commutée SDLC pour AS/400 A')
|
|
Exemples de configuration
CRTCTLAPPC CTLD(CTLSDLCA)
LINKTYPE(*SDLC)
SWITCHED(*YES)
APPN(*NO)
SWTLINLST(LINSDLCA)
RMTNETID(*NONE)
EXCHID(056EEEEE) 056 pour un AS400
022 pour un S/38
03E pour un S/36
050 pour un PC
CNNNBR(:12345678)
STNADR(B1)
TEXT('contrôleur APPC via ligne commutée SDLC AS A')
|
|
Exemples de configuration
CRTDEVAPPC DEVD(DEVSDLCA)
RMTLOCNAME(AS400B)
LCLLOCNAME(AS400A)
RMTNETID(*NONE)
CTL(CTLSDLCA)
MODE(BLANK)
APPN(*NO)
TEXT('Unité APPC sur contrôleur APPC AS A')
|
|
Exemples de configuration
Définitions AS/400 B:
CRTLINSDLC LIND(LINSDLCB)
RSRCNAME(LINxxx)
CNN(*SWTPP)
EXCHID(056EEEEE)
LINESPEED(2400)
SWNCNN(*ANS)
AUTOANS(*YES)
STNADR(B1)
TEXT('Ligne commutée SDLC pour AS/400 B')
|
|
Exemples de configuration
CRTCTLAPPC CTLD(CTLSDLCB)
LINKTYPE(*SDLC)
SWITCHED(*YES)
APPN(*NO)
SWTLINLST(LINSDLCB)
RMTNETID(*NONE)
EXCHID(056FFFFF)
INLCNN(*ANS)
STNADR(B1)
TEXT('contrôleur APPC via ligne commutée SDLC AS B')
|
|
Exemples de configuration
CRTDEVAPPC DEVD(DEVSDLCB)
RMTLOCNAME(AS400A)
LCLLOCNAME(AS400B)
RMTNETID(*NONE)
CTL(CTLSDLCB)
MODE(BLANK)
APPN(*NO)
TEXT('Unité APPC sur contrôleur APPC AS B')
|
|
Correspondance des paramètres: AS/400 A AS/400 B CRTLINSDLC CRTLINSDLC ---LIND(LINSDLCA) LIND(LINSDLCB)-------- ! CNN(*SWTPP)-------->2 2<---CNN(*SWTPP) ! ! EXCHID(056FFFFF)--->3 4<---EXCHID(056EEEEE) ! ! LINESPEED(2400)---->5 5<---LINESPEED(2400) ! ! SWTCNN(*DIAL)------>6 6<---SWTCNN(*ANS) ! ! AUTOANS(*NO)------->7 7<---AUTOANS(*YES) ! ! AUTODIAL(*YES)----->8 8<---AUTODIAL(*NO) ! ! SNTADR(B1)--------->1 1<---STNADR(B1) ! ! ! CRTCTLAPPC CRTCTLAPPC ! !--CTLD(CTLSDLCA) CTLD(CTLSDLCB)------ ! !! LINKTYPE(*SDLC)---->9 9<---LINKTYPE(*SDLC) ! ! !! SWITCHED(*YES)----->2 2<---SWITCHED(*YES) ! ! !! APPN(*NO)---------->10 10<---APPN(*NO) ! ! -!-SWTLINLST(LINSDLCA) SWTLINLST(LINSDLCB)!-- ! EXCHID(056EEEEE)--->4 3<---EXCHID(056FFFFF) ! ! CNNNBR(12345678) 6<---INLCNN(*ANS) ! ! STNADR(B1)--------->1 1<---STNADR(B1) ! |
|
! ! ! ! ! ! CRTDEVAPPC CRTDEVAPPC ! ! DEVD(DEVSDLCA) DEVD(DEVSDLCB) ! ! RMTLOCNAME(AS400B)->11 12<---RMTLOCNAME(AS400A) ! ! LCLLOCNAME(AS400A)->12 11<---LCLLOCNAME(AS400B) ! --CTL(CTLSDLCA) CTL(CTLSDLCB)------- MODE(BLANK)-------->13 13<---MODE(BLANK) APPN(*NO)---------->10 10<---APPN(*NO) |
|
Exemples de configuration
Exemple de configuration d'une liaison APPC AS/400 - AS/400 sur
liaison SDLC louée point à point.
Définitions AS/400 A:
CRTLINSDLC LIND(LINSDLCA)
RSRCNAME(LINxxx)
EXCHID(05600401)
LINESPEED(9600)
TEXT('Ligne louée SDLC point à point pour AS/400 A')
CRTCTLAPPC CTLD(CTLSDLCA)
LINKTYPE(*SDLC)
APPN(*NO)
LINE(LINSDLCA)
RMTNETID(*NONE)
EXCHID(05600400)
STNADR(C1)
TEXT('contrôleur APPC via ligne louée SDLC AS A')
|
|
Exemples de configuration
CRTDEVAPPC DEVD(DEVSDLCA)
RMTLOCNAME(AS400B)
LCLLOCNAME(AS400A)
RMTNETID(*NONE)
CTL(CTLSDLCA)
MODE(BLANK)
APPN(*NO)
TEXT('Unité APPC sur contrôleur APPC AS A')
Définitions AS/400 B:
CRTLINSDLC LIND(LINSDLCB)
RSRCNAME(LINxxx)
EXCHID(05600400)
LINESPEED(9600)
TEXT('Ligne louée SDLC point à point pour AS/400 B')
|
|
Exemples de configuration
CRTCTLAPPC CTLD(CTLSDLCB)
LINKTYPE(*SDLC)
APPN(*NO)
LINE(LINSDLCB)
RMTNETID(*NONE)
EXCHID(05600401)
STNADR(C1)
TEXT('contrôleur APPC via ligne louée SDLC AS B')
CRTDEVAPPC DEVD(DEVSDLCB)
RMTLOCNAME(AS400A)
LCLLOCNAME(AS400B)
RMTNETID(*NONE)
CTL(CTLSDLCB)
MODE(BLANK)
APPN(*NO)
TEXT('Unité APPC sur contrôleur APPC AS B')
|
|
Correspondance des paramètres: AS/400 A AS/400 B CRTLINSDLC CRTLINSDLC ---LIND(LINSDLCA) LIND(LINSDLCB)-------- ! EXCHID(05600401)--->1 2<---EXCHID(05600400) ! ! ! CRTCTLAPPC CRTCTLAPPC ! !--CTLD(CTLSDLCA) CTLD(CTLSDLCB)------ ! -!-LINE(LINSDLCA) LINE(LINSDLCB)-----!-- ! EXCHID(05600400)--->2 1<---EXCHID(05600401) ! ! STNADR(C1)--------->3 3<---STNADR(C1) ! ! ! CRTDEVAPPC CRTDEVAPPC ! ! DEVD(DEVSDLCA) DEVD(DEVSDLCB) ! ! RMTLOCNAME(AS400B)->4 5<---RMTLOCNAME(AS400A) ! ! LCLLOCNAME(AS400A)->5 4<---LCLLOCNAME(AS400B) ! --CTL(CTLSDLCA) CTL(CTLSDLCB)------- MODE(BLANK)-------->6 6<---MODE(BLANK) |
|
Exemples de configuration Fin Exemple de configuration d'une liaison APPC AS/400 - AS/400 sur liaison X25. Définitions AS/400 A: CRTLINX25 LIND(LINX25A) RSRCNAME(LINxxx) LGLCHLE((001 *SVCBOTH) (002 *SVCBOTH) (003 *SVCBOTH)) Permet de définir les voies logiques dans l'ordre croissant des numéros. Les types de voies doivent être dans cet ordre : 1/ CVP = *PVC 2/ CVC entrants = *SCVIN 3/ CVC mixtes = *SVCBOTH 4/ CVC sortants = *SVCOUT |
|
Exemples de configuration
NETADR(193000604) abonnement (adresse
CNNINIT(*LOCAL) AS/400)
EXCHID(056FFFFF)
DFTWDWSIZE(x) abonnement
ADRINSERT(*NO)
IDLTMR(x) abonnement
FRAMERTY(x) abonnement
TEXT('Ligne X.25 pour AS/400 A')
CRTCTLAPPC CTLD(CTLX25A)
LINKTYPE(*X25)
SWITCHED(*YES)
APPN(*NO)
SWTLINLST(LINX25A)
RMTNETID(*NONE)
EXCHID(056EEEEE)
CNNNBR(193130148) abonnement (adresse AS
NETLVL(1984) 1980,1984,1988 éloigné)
LGLCHLID(001) N° voie logique
TEXT('contrôleur APPC via ligne X.25 AS A')
|
|
Exemples de configuration
CRTDEVAPPC DEVD(DEVX25A)
RMTLOCNAME(AS400B)
LCLLOCNAME(AS400A)
RMTNETID(*NONE)
CTL(CTLX25A)
MODE(BLANK)
APPN(*NO)
TEXT('Unité APPC sur contrôleur APPC AS A')
|
|
Exemples de configuration
Définitions AS/400 B:
CRTLINX25 LIND(LINX25B)
RSRCNAME(LINxxx)
LGLCHLE((001 *PVC) (002 *SVCBOTH) (003 *SVCBOTH))
NETADR(193130148)
CNNINIT(*LOCAL)
EXCHID(056EEEEE)
DFTWDWSIZE(x) abonnement
ADRINSERT(*NO)
IDLTMR(x) abonnement
FRAMERTY(x) abonnement
TEXT('Ligne X.25 pour AS/400 B')
|
|
Exemples de configuration
CRTCTLAPPC CTLD(CTLX25B)
LINKTYPE(*X25)
SWITCHED(*YES)
APPN(*NO)
SWTLINLST(LINX25B)
RMTNETID(*NONE)
EXCHID(056FFFFF)
CNNNBR(193000604) abonnement (adresse AS
NETLVL(1984) éloigné)
TEXT('contrôleur APPC via ligne X.25 AS B')
CRTDEVAPPC DEVD(DEVX25B)
RMTLOCNAME(AS400A)
LCLLOCNAME(AS400B)
RMTNETID(*NONE)
CTL(CTLX25B)
MODE(BLANK)
APPN(*NO)
TEXT('Unité APPC sur contrôleur APPC AS B')
|
|
Correspondance des paramètres: AS/400 A AS/400 B CRTLINX25 CRTLINX25 ---LIND(LINX25A) LIND(LINX25B)--------- ! NETADR(193000604)-->2 3<---NETADR(193130148) ! ! EXCHID(056FFFFF)--->1 4<---EXCHID(056EEEEE) ! ! ! CRTCTLAPPC CRTCTLAPPC ! !--CTLD(CTLX25A) CTLD(CTLX25B)------- ! -!-SWTLINLST(LINX25A) SWTLINLST(LINX25B)-!-- ! EXCHID(056EEEEE)--->4 1<---EXCHID(056FFFFF) ! ! CNNNBR(193130148)-->3 2<---CNNNBR(193000604) ! ! ! CRTDEVAPPC CRTDEVAPPC ! ! DEVD(DEVX25A) DEVD(DEVX25B) ! ! RMTLOCNAME(AS400B)->8 7<---RMTLOCNAME(AS400A) ! ! LCLLOCNAME(AS400A)->7 8<---LCLLOCNAME(AS400B) ! --CTL(CTLX25A) CTL(CTLX25B)-------- MODE(BLANK)-------->9 9<---MODE(BLANK) |
|
Fin Correspondance entre les numéros d'appel CVC Transpac AS/400 (A): LIND paramètre NETADR(aaaaaaaaa) adresse locale (A) CTLD paramètre CNNNBR(bbbbbbbbb) adresse à appeler (B) AS/400 (B): LIND paramètre NETADR(bbbbbbbbb) adresse locale (B) CTLD paramètre CNNNBR(aaaaaaaaa) adresse à appeler (A) Ainsi, lorsque l'AS/400 (A) appelle le numéro de (B) CNNNBR(bbbbbbbbb) son adresse NETADR(aaaaaaaaa) est envoyée à l'AS/400 (B) qui cherchera dans la liste de ses contrôleurs celui ayant ce numéro. Remarque: ne pas oublier ADRINSERT(*NO) au niveau de la ligne (non supporté par Transpac). |
|
Paramètres liés à l'abonnement TRANSPAC : ----------------------------------------- Le temps correspond au paramètre IDLTMR (1 = 0,1 seconde). En cas de problème réseau ce sont les temps d'attente avant envoi. La taille fenêtre paquet se code dans le paramètre DFTWDWSIZE, la taille paquet dans le paramètre DFTPKTSIZE (128 par défaut). |
|
Exemples de configuration Fin Fin Exemple de liaison APPC entre deux AS/400 via une liaison X21 (NUMERIS) Note: cette configuration passe par l'intermédiaire d'un adaptateur 7820 Depuis La V2R10 , et modèles D il est possible d'utiliser directement un contrôleur RNIS (ISDN en anglais) Configuration sur le système A : -------------------------------- CRTLINSDLC LIND(LINX21A) RSRCNAME(LINxxx) ROLE(*PRI) INTERFACE(*X21) CNN(*SWTPP) EXCHID(056systa) NRZI(*NO) LINESPEED(64000) AUTODIAL(*YES) CALLNBR(aaaaaaaa) DUPLEX(*FULL) |
|
Exemples de configuration Fin CRTCTLAPPC CTLD(CTLX21A) LINKTYPE(*SDLC) SWITCHED(*YES) APPN(*NO) SWTLINLST(LINX21A) RMTNETID(*NONE) EXCHID(056systb) CNNNBR(bbbbbbbbxy) Note: les numéros d'abonnement sont suivis, dans les descriptions de contrôleurs, des valeurs xy qui sont: x le numéro de la prise utilisée par le 7820 y la position de l'interface sur le 7820 (1 ou 2) ROLE(*SEC) STNADR(01) DSCTMR(3) |
|
Exemples de configuration Fin CRTDEVAPPC DEVD(DEVX21A) RMTLOCNAME(locb) LCLLOCNAME(loca) RMTNETID(*NONE) CTL(CTLX21A) MODE(mode) APPN(*NO) |
|
Exemples de configuration Fin Configuration sur le système B : -------------------------------- CRTLINSDLC LIND(LINX21B) RSRCNAME(LINxxx) ROLE(*SEC) INTERFACE(*X21) CNN(*SWTPP) EXCHID(056systb) NRZI(*NO) LINESPEED(64000) AUTODIAL(*YES) CALLNBR(bbbbbbbb) STNADR(01) DUPLEX(*FULL) |
|
Exemples de configuration Fin CRTCTLAPPC CTLD(CTLX21B) LINKTYPE(*SDLC) SWITCHED(*YES) APPN(*NO) SWTLINLST(LINX21B) RMTNETID(*NONE) EXCHID(056systa) CNNNBR(aaaaaaaaxy) cf note ROLE(*PRI) STNADR(01) DSCTMR(3) CRTDEVAPPC DEVD(DEVX21) RMTLOCNAME(locb) LCLLOCNAME(loca) RMTNETID(*NONE) CTL(CTLX21B) MODE(BLANK) APPN(*NO) |
