The following CL commands are used to define the configuration for the system that is identified as NEWYORK. The example shows the commands used within a CL program; the configuration can also be performed using the configuration menus.
/*********************************************************************/
/* */
/* MODULE: NEWYORK LIBRARY: PUBSCFGS */
/* */
/* LANGUAGE: CL */
/* */
/* FUNCTION: CONFIGURES APPN NETWORK: */
/* */
/* THIS IS: NEWYORK TO CHICAGO (nonswitched) */
/* NEWYORK TO MPLS (switched) */
/* */
/* */
/* */
/*********************************************************************/
PGM
/*********************************************************************/
/* NEWYORK TO CHICAGO (nonswitched) */
/*********************************************************************/
/* Change network attributes for NEWYORK */
CHGNETA LCLNETID(APPN) LCLCPNAME(NEWYORK)
LCLLOCNAME(NEWYORK) NODETYPE(*ENDNODE)
NETSERVER((APPN CHICAGO) (APPN MPLS))
/* Create remote configuration list for NEWYORK to
Los Angeles */
CRTCFGL TYPE(*APPNRMT) APPNRMTE((LOSANGEL APPN
NEWYORK LOSANGEL APPN 3BD29F *YES *NO *NO *NO
'RMT LOC of NEWYORK'))
/* Create nonswitched line description for NEWYORK to */
CHICAGO CRTLINSDLC LIND(CHICAGOL) RSRCNAME(LIN011)
/* Create controller description for NEWYORK to
CHICAGO */
CRTCTLAPPC CTLD(CHICAGOL) LINKTYPE(*SDLC) LINE(CHICAGOL)
RMTNETID(APPN) RMTCPNAME(CHICAGO)
STNADR(01) NODETYPE(*NETNODE)
/*********************************************************************/
/* NEWYORK TO MPLS (switched) */
/*********************************************************************/
/* Create switched line description NEWYORK to MPLS */
CRTLINSDLC LIND(MPLSS) RSRCNAME(LIN012) CNN(*SWTPP)
AUTOANS(*NO) STNADR(01) COSTCNN(128)
COSTBYTE(128)
/* Create controller description for NEWYORK to MPLS */
CRTCTLAPPC CTLD(MPLSS) LINKTYPE(*SDLC) SWITCHED(*YES)
SWTLINLST(MPLSS) RMTNETID(APPN)
RMTCPNAME(MPLS) INLCNN(*ANS)
CNNNBR(6125551234) STNADR(01)
CPSSN(*NO) NODETYPE(*NETNODE)
ENDPGM