The following CL commands are used to define the configuration for the system that is identified as DISTRIB (ENB in the figure). The example shows these commands as used within a CL program; the configuration can also be performed using the configuration menus.
/*********************************************************************/
/* */
/* MODULE: DISTRIB LIBRARY: PUBSCFGS */
/* */
/* LANGUAGE: CL */
/* */
/* FUNCTION: CONFIGURES APPN NETWORK: */
/* */
/* THIS IS: DISTRIB TO MPLS (LAN) */
/* DISTRIB TO PURCH (LAN) */
/* */
/* */
/*********************************************************************/
PGM
/*********************************************************************/
/* Change network attributes for DISTRIB */
CHGNETA LCLNETID(APPN) LCLCPNAME(DISTRIB)
LCLLOCNAME(DISTRIB) NODETYPE(*ENDNODE)
NETSERVER((APPN MPLS))
/*********************************************************************/
/* DISTRIB TO LAN (LAN) */
/*********************************************************************/
/* Create LAN line description for DISTRIB to LAN */
CRTLINTRN LIND(MPLSTRN) RSRCNAME(LIN031)
ADPTADR(400000000004)
/* Create controller description for DISTRIB to MPLS */
CRTCTLAPPC CTLD(MPLS) LINKTYPE(*LAN) SWITCHED(*YES)
SWTLINLST(MPLSTRN) RMTNETID(APPN)
RMTCPNAME(MPLS) ADPTADR(400000000002)
MINSWTSTS(*VRYON) SWTDSC(*NO)
NODETYPE(*NETNODE)
/* Create controller description for DISTRIB to PURCH */
CRTCTLAPPC CTLD(PURCH) LINKTYPE(*LAN) SWITCHED(*YES)
SWTLINLST(MPLSTRN) RMTNETID(APPN)
RMTCPNAME(PURCH) ADPTADR(400000000003)
MINSWTSTS(*VRYON) SWTDSC(*NO)
ENDPGM