The following CL commands define the configuration for the system that is identified as CHICAGO (system C in Figure 6). The example shows the commands as used within a CL program; the configuration can also be performed using the configuration menus.
/*********************************************************************/
/* */
/* MODULE: CHNYCHLA LIBRARY: PUBSCFGS */
/* */
/* LANGUAGE: CL */
/* */
/* FUNCTION: CONFIGURES APPN NETWORK: */
/* */
/* */
/* NEWYORK /_______\ CHICAGO /_______\ LOSANGEL */
/* \ / \ / */
/* */
/* (THIS IS CHICAGO TO NEWYORK AND LOSANGEL) */
/* */
/* */
/* */
/*********************************************************************/
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 LOSANGEL */
/*********************************************************************/
/* Create line description for CHICAGO to LOSANGEL */
CRTLINSDLC LIND(LOSANGEL) RSRCNAME(LIN031)
/* Create controller description for CHICAGO to
LOSANGEL */
CRTCTLAPPC CTLD(LOSANGEL) LINKTYPE(*SDLC) LINE(LOSANGEL)
RMTNETID(APPN) RMTCPNAME(LOSANGEL)
STNADR(01) NODETYPE(*ENDNODE)
ENDPGM