Configuring end node A (Purchasing)

These CL commands are used to define the configuration for the system identified as PURCH (ENA). The example shows these commands as used within a CL program. You can also perform the configuration using the configuration menus.

Note: By using the following code examples, you agree to the terms of the Code license and disclaimer information.
/*********************************************************************/
/*                                                                   */
/*  MODULE:  PURCH                     LIBRARY:  PUBSCFGS            */
/*                                                                   */
/*  LANGUAGE:  CL                                                    */
/*                                                                   */
/*  FUNCTION:  CONFIGURES APPN NETWORK:                              */
/*                                                                   */
/*             THIS IS: PURCH TO MPLS    (LAN)                       */
/*                      PURCH TO DISTRIB (LAN)                       */
/*                                                                   */
/*                                                                   */
/*********************************************************************/
PGM
/*********************************************************************/
             /* Change network attributes for PURCH */
             CHGNETA    LCLNETID(APPN) LCLCPNAME(PURCH)
                          LCLLOCNAME(PURCH) NODETYPE(*ENDNODE)
                          NETSERVER((APPN MPLS))
             /* Create remote configuration list for PURCH */
             CRTCFGL    TYPE(*APPNRMT) APPNRMTE((NEWYORK APPN
                        PURCH NEWYORK APPN 3BD29F *YES *NO *NO *NO
                        'RMT LOC OF PURCH')
                        (LOSANGEL APPN
                        PURCH LOSANGEL APPN 3BD29F *YES *NO *NO *NO
                        'RMT LOC OF PURCH'))
             /* Create LAN line description for PURCH to LAN    */
             CRTLINTRN LIND(MPLSTRN) RSRCNAME(LIN031)
                          ADPTADR(400000000003)
             /* Create controller description for PURCH to MPLS */
             CRTCTLAPPC CTLD(MPLS) LINKTYPE(*LAN) SWITCHED(*YES)
                          SWTLINLST(MPLSTRN) RMTNETID(APPN)
                          RMTCPNAME(MPLS) ADPTADR(400000000002)
                          MINSWTSTS(*VRYON) SWTDSC(*NO)
                          NODETYPE(*NETNODE)
             /* Create controller description for PURCH to DISTRIB */
             CRTCTLAPPC CTLD(DISTRIB) LINKTYPE(*LAN) SWITCHED(*YES)
                          SWTLINLST(MPLSTRN) RMTNETID(APPN)
                          RMTCPNAME(DISTRIB) ADPTADR(400000000004)
                          MINSWTSTS(*VRYON) SWTDSC(*NO)
ENDPGM