The following CL commands are used to define the configuration for the system identified as PAYROLL (LENN1 in Figure 8). The example shows these commands as used within a CL program; the configuration can also be performed using the configuration menus.
/*********************************************************************/ /* */ /* MODULE: PAYROLL LIBRARY: PUBSCFGS */ /* */ /* LANGUAGE: CL */ /* */ /* FUNCTION: CONFIGURES APPN NETWORK: */ /* */ /* THIS IS: PAYROLL TO MPLS (LAN) */ /* PAYROLL TO NEWYORK (LAN) */ /* PAYROLL TO LOSANGEL (LAN) */ /* */ /*********************************************************************/ PGM /*********************************************************************/ /* Create LAN line description for PAYROLL to LAN */ CRTLINTRN LIND(MPLSTRN) RSRCNAME(LIN011) ADPTADR(400000000005) /* Create controller description for PAYROLL to MPLS */ CRTCTLAPPC CTLD(MPLS) LINKTYPE(*LAN) SWITCHED(*YES) SWTLINLST(MPLSTRN) RMTNETID(APPN) RMTCPNAME(MPLS) ADPTADR(400000000002) APPN(*NO) /* Create device description for NEWYORK */ CRTDEVAPPC DEVD(NEWYORK) LOCADR(00) RMTLOCNAME(NEWYORK) LCLLOCNAME(PAYROLL) APPN(*NO) CTL(MPLS) MODE(BLANK #BATCH) /* Create device description for LOSANGEL */ CRTDEVAPPC DEVD(LOSANGEL) LOCADR(00) RMTLOCNAME(LOSANGEL) LCLLOCNAME(PAYROLL) APPN(*NO) CTL(MPLS) MODE(BLANK #BATCH) /* Create device description for MPLS */ CRTDEVAPPC DEVD(MPLS) LOCADR(00) RMTLOCNAME(MPLS) LCLLOCNAME(PAYROLL) APPN(*NO) CTL(MPLS) MODE(BLANK #BATCH) ENDPGM