The following example program shows the CL commands that are used to define the configuration for the system that is identified as MPLS (NN2 in Figure 5). 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 CHICAGO (nonswitched) */
/* MPLS TO CHICAGO (switched) */
/* */
/* */
/*********************************************************************/
PGM
/* Change network attributes for MPLS */
CHGNETA LCLNETID(APPN) LCLCPNAME(MPLS) +
LCLLOCNAME(MPLS) NODETYPE(*NETNODE)
/*********************************************************************/
/* 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)
/* 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)
ENDPGM