Example: Change the network attributes (Chicago) in two-system network

Use the Change Network Attributes (CHGNETA) command to set the attributes for the system within the network. The following attributes are defined for the CHICAGO system, and these attributes apply to all connections in the network for this network node.

Note:

Read the code disclaimer information for important legal information.

/*******************************************************************/
/*                                                                 */
/*  MODULE:  CHICAGO                   LIBRARY:  PUBSCFGS          */
/*                                                                 */
/*  LANGUAGE:  CL                                                  */
/*                                                                 */
/*  FUNCTION:  CONFIGURES APPN NETWORK:                            */
/*                                                                 */
/*             THIS IS: 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 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) +
                       AUTOANS(*NO) STNADR(01)
          /* 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

LCLNETID(APPN): The name of the local network is APPN. The remote system (MPLS in the example program, NN2 in Figure 5) must specify this name as the remote network identifier (RMTNETID) on the CRTCTLAPPC command.
LCLCPNAME(CHICAGO): The name assigned to the local control point is CHICAGO. The remote systems specify this name as the remote control point name (RMTCPNAME) on the CRTCTLAPPC command.
LCLLOCNAME(CHICAGO): The default local location name is CHICAGO. This name will be used for the device description that is created by the APPN support.
NODETYPE(*NETNODE): The local system (CHICAGO) is an APPN network node.