The following CL commands are used to define the configuration for the system that is identified as MPLS (NN2 in Figure 8). The example shows these commands as used within a CL program; the configuration can also be performed using the configuration menus.
/*********************************************************************/
/* */
/* MODULE: MPLS LIBRARY: PUBSCFGS */
/* */
/* LANGUAGE: CL */
/* */
/* FUNCTION: CONFIGURES APPN NETWORK: */
/* */
/* THIS IS: MPLS TO NEWYORK (switched) */
/* MPLS TO CHICAGO (nonswitched) */
/* MPLS TO CHICAGO (switched) */
/* MPLS TO LOSANGEL (switched) */
/* MPLS TO PURCH (LAN) */
/* MPLS TO DISTRIB (LAN) */
/* MPLS TO PAYROLL (LAN) */
/* */
/* */
/*********************************************************************/
PGM
/* Change network attributes for MPLS */
CHGNETA LCLNETID(APPN) LCLCPNAME(MPLS)
LCLLOCNAME(MPLS) NODETYPE(*NETNODE)
/*********************************************************************/
/* MPLS TO NEWYORK (switched) */
/*********************************************************************/
/* Create switched line description for MPLS to NEWYORK */
CRTLINSDLC LIND(NEWYORK) RSRCNAME(LIN021) CNN(*SWTPP)
AUTOANS(*NO) STNADR(01) COSTCNN(128)
COSTBYTE(128)
/* Create controller description for MPLS to NEWYORK */
CRTCTLAPPC CTLD(NEWYORK) LINKTYPE(*SDLC) SWITCHED(*YES)
SWTLINLST(NEWYORK) RMTNETID(APPN)
RMTCPNAME(NEWYORK) INLCNN(*DIAL)
CNNNBR(2125551234) STNADR(01)
NODETYPE(*ENDNODE) CPSSN(*NO)
/*********************************************************************/
/* MPLS TO CHICAGO (nonswitched) */
/*********************************************************************/
/* Create line description for MPLS to CHICAGO */
CRTLINSDLC LIND(CHICAGOL) RSRCNAME(LIN022)
/* Create controller description for MPLS to CHICAGO */
CRTCTLAPPC CTLD(CHICAGOL) LINKTYPE(*SDLC) LINE(CHICAGOL)
RMTNETID(APPN) RMTCPNAME(CHICAGO)
STNADR(01) NODETYPE(*NETNODE)
/*********************************************************************/
/* MPLS TO CHICAGO (switched) */
/*********************************************************************/
/* Create switched line description for MPLS to CHICAGO */
CRTLINSDLC LIND(CHICAGOS) RSRCNAME(LIN031) CNN(*SWTPP)
AUTOANS(*NO) STNADR(01) COSTCNN(128)
COSTBYTE(128)
/* Create controller description for MPLS TO CHICAGO */
CRTCTLAPPC CTLD(CHICAGOS) LINKTYPE(*SDLC) SWITCHED(*YES)
SWTLINLST(CHICAGOS) RMTNETID(APPN)
RMTCPNAME(CHICAGO) INLCNN(*ANS)
CNNNBR(3125551111) STNADR(01) TMSGRPNBR(3)
NODETYPE(*NETNODE)
/*********************************************************************/
/* MPLS TO LOSANGEL (switched) */
/*********************************************************************/
/* Create switched line description for MPLS TO LOSANGEL*/
CRTLINSDLC LIND(LOSANGEL) RSRCNAME(LIN032) CNN(*SWTPP)
AUTOANS(*NO) STNADR(01) COSTCNN(128)
COSTBYTE(128)
/* Create controller description for MPLS TO LOSANGEL */
CRTCTLAPPC CTLD(LOSANGEL) LINKTYPE(*SDLC) SWITCHED(*YES)
SWTLINLST(LOSANGEL) RMTNETID(APPN)
RMTCPNAME(LOSANGEL) INLCNN(*DIAL)
CNNNBR(2135553333) STNADR(01) CPSSN(*NO)
/*********************************************************************/
/* MPLS TO LAN (LAN) */
/*********************************************************************/
/* Create LAN line description for MPLS to LAN */
CRTLINTRN LIND(MPLSTRN) RSRCNAME(LIN011)
ADPTADR(400000000002)
/* Create controller description for MPLS to PURCH */
CRTCTLAPPC CTLD(PURCH) LINKTYPE(*LAN) SWITCHED(*YES)
SWTLINLST(MPLSTRN) RMTNETID(APPN)
RMTCPNAME(PURCH) ADPTADR(400000000003)
MINSWTSTS(*VRYON) SWTDSC(*NO)
/* Create controller description for MPLS to DISTRIB */
CRTCTLAPPC CTLD(DISTRIB) LINKTYPE(*LAN) SWITCHED(*YES)
SWTLINLST(MPLSTRN) RMTNETID(APPN)
RMTCPNAME(DISTRIB) ADPTADR(400000000004)
MINSWTSTS(*VRYON) SWTDSC(*NO)
/* Create controller description for MPLS to PAYROLL */
CRTCTLAPPC CTLD(PAYROLL) LINKTYPE(*LAN) SWITCHED(*YES)
SWTLINLST(MPLSTRN) ADPTADR(400000000005)
RMTNETID(*NONE) RMTCPNAME(PAYROLL)
NODETYPE(*LENNODE)
ENDPGM