The following CL commands define the configuration for the system that is identified as DETROIT (system B in Figure 7). The example shows the commands as used within a CL program; the configuration can also be performed using the configuration menus.
/*********************************************************************/
/* */
/* MODULE: DETRINT LIBRARY: PUBSCFGS */
/* */
/* LANGUAGE: CL */
/* */
/* FUNCTION: CONFIGURES APPN NETWORK: */
/* */
/* */
/* NEWYORK /_______\ DETROIT /_______\ CHICAGO */
/* \ / \ / */
/* */
/* (THIS IS DETROIT TO NEWYORK AND CHICAGO) */
/* */
/* */
/* */
/*********************************************************************/
PGM
/* Change network attributes for DETROIT */
CHGNETA LCLNETID(NEWNET) LCLCPNAME(DETROIT)
LCLLOCNAME(DETROIT) NODETYPE(*NETNODE)
/*********************************************************************/
/* DETROIT TO NEWYORK */
/*********************************************************************/
/* Create line description for DETROIT to NEWYORK */
CRTLINSDLC LIND(NEWYORK) RSRCNAME(LIN012)
/* Create controller description for DETROIT to
NEWYORK */
CRTCTLAPPC CTLD(NEWYORK) LINKTYPE(*SDLC) LINE(NEWYORK)
RMTNETID(NEWNET) RMTCPNAME(NEWYORK)
STNADR(01) NODETYPE(*ENDNODE)
/*********************************************************************/
/* DETROIT TO CHICAGO */
/*********************************************************************/
/* Create line description for DETROIT to CHICAGO */
CRTLINSDLC LIND(CHICAGO) RSRCNAME(LIN031)
/* Create controller description for DETROIT to
CHICAGO */
CRTCTLAPPC CTLD(CHICAGO) LINKTYPE(*SDLC) LINE(CHICAGO)
RMTNETID(APPN) RMTCPNAME(CHICAGO)
STNADR(01) NODETYPE(*NETNODE)
ENDPGM