The following CL commands are used to define the configuration for the system identified as PURCH (ENA 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: PURCH LIBRARY: PUBSCFGS */
/* */
/* LANGUAGE: CL */
/* */
/* FUNCTION: CONFIGURES APPN NETWORK: */
/* */
/* THIS IS: PURCH TO MPLS (LAN) */
/* PURCH TO DISTRIB (LAN) */
/* */
/* */
/*********************************************************************/
PGM
/*********************************************************************/
/* Change network attributes for PURCH */
CHGNETA LCLNETID(APPN) LCLCPNAME(PURCH)
LCLLOCNAME(PURCH) NODETYPE(*ENDNODE)
NETSERVER((APPN MPLS))
/* Create remote configuration list for PURCH */
CRTCFGL TYPE(*APPNRMT) APPNRMTE((NEWYORK APPN
PURCH NEWYORK APPN 3BD29F *YES *NO *NO *NO
'RMT LOC OF PURCH')
(LOSANGEL APPN
PURCH LOSANGEL APPN 3BD29F *YES *NO *NO *NO
'RMT LOC OF PURCH'))
/* Create LAN line description for PURCH to LAN */
CRTLINTRN LIND(MPLSTRN) RSRCNAME(LIN031)
ADPTADR(400000000003)
/* Create controller description for PURCH 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 PURCH to DISTRIB */
CRTCTLAPPC CTLD(DISTRIB) LINKTYPE(*LAN) SWITCHED(*YES)
SWTLINLST(MPLSTRN) RMTNETID(APPN)
RMTCPNAME(DISTRIB) ADPTADR(400000000004)
MINSWTSTS(*VRYON) SWTDSC(*NO)
ENDPGM