Configure system B (Los Angeles) as end node

The following CL commands define the configuration for the system that is identified as LOSANGEL (System B). The example shows the commands as used within a CL program; the configuration can also be performed using the configuration menus.

Note:
Read the code disclaimer information for important legal information.
/*********************************************************************/
/*                                                                   */
/*  MODULE:  LANYAPPN                  LIBRARY:  PUBSCFGS            */
/*                                                                   */
/*  LANGUAGE:  CL                                                    */
/*                                                                   */
/*  FUNCTION:  CONFIGURES APPN ENDNODES AS FOLLOWS:                  */
//*                                                                   */
/*             NEWYORK /_______\  LOSANGEL                           */
/*                     \       /                                     */
/*                                                                   */
/*              (THIS IS LOSANGEL TO NEWYORK)                        */
/*                                                                   */
/*********************************************************************/
PGM
/*********************************************************************/
/*                          LOSANGEL TO NEWYORK                      */
/*********************************************************************/
             /* Change network attributes for LOSANGEL  */
             CHGNETA    LCLNETID(APPN) LCLCPNAME(LOSANGEL)
                          LCLLOCNAME(LOSANGEL) NODETYPE(*ENDNODE)
             /* Create line description for LOSANGEL to NEWYORK */
             CRTLINSDLC LIND(NEWYORK) RSRCNAME(LIN012)
             /* Create controller description for LOSANGEL to
                                                        NEWYORK */
             CRTCTLAPPC CTLD(NEWYORK) LINKTYPE(*SDLC) LINE(NEWYORK)
                          RMTNETID(APPN) RMTCPNAME(NEWYORK)
                          STNADR(01) NODETYPE(*CALC)
ENDPGM