The following CL commands are used to define the configuration for the system named as CHICAGO (NN1). The example shows the commands as used within a CL program; the configuration can also be done using the configuration menus.
/*********************************************************************/
/* */
/* MODULE: CHICAGO LIBRARY: PUBSCFGS */
/* */
/* LANGUAGE: CL */
/* */
/* FUNCTION: CONFIGURES APPN NETWORK: */
/* */
/* THIS IS: CHICAGO TO NEWYORK (nonswitched) */
/* CHICAGO TO MPLS (nonswitched) */
/* CHICAGO TO MPLS (switched) */
/* */
/* */
/* */
/* */
/*********************************************************************/
PGM
/* Change network attributes for CHICAGO */
CHGNETA LCLNETID(APPN) LCLCPNAME(CHICAGO)
LCLLOCNAME(CHICAGO) NODETYPE(*NETNODE)
/*********************************************************************/
/* CHICAGO TO NEWYORK */
/*********************************************************************/
/* Create line description for CHICAGO to NEWYORK */
CRTLINSDLC LIND(NEWYORK) RSRCNAME(LIN012)
/* Create controller description for CHICAGO to
NEWYORK */
CRTCTLAPPC CTLD(NEWYORK) LINKTYPE(*SDLC) LINE(NEWYORK)
RMTNETID(APPN) RMTCPNAME(NEWYORK)
STNADR(01) NODETYPE(*ENDNODE)
/*********************************************************************/
/* CHICAGO TO MPLS (nonswitched) */
/*********************************************************************/
/* Create nonswitched line description for CHICAGO to MPLS */
CRTLINSDLC LIND(MPLSL) RSRCNAME(LIN021)
/* Create controller description for CHICAGO to MPLS */
CRTCTLAPPC CTLD(MPLSL) LINKTYPE(*SDLC) LINE(MPLSL)
RMTNETID(APPN) RMTCPNAME(MPLS)
STNADR(01) NODETYPE(*NETNODE)
/*********************************************************************/
/* CHICAGO TO MPLS (switched) */
/*********************************************************************/
/* Create switched line description for CHICAGO to MPLS */
CRTLINSDLC LIND(MPLSS) RSRCNAME(LIN022) CNN(*SWTPP)
STNADR(01) AUTOANS(*NO) COSTCNN(128)
COSTBYTE(128)
/* Create controller description for CHICAGO to MPLS */
CRTCTLAPPC CTLD(MPLSS) LINKTYPE(*SDLC) SWITCHED(*YES)
SWTLINLST(MPLSS) RMTNETID(APPN)
RMTCPNAME(MPLS) INLCNN(*DIAL)
CNNNBR(6125551111) STNADR(01)
TMSGRPNBR(3) NODETYPE(*NETNODE)
ENDPGM