++ USERMOD(TNIP800) /* REWORK(20061130) */                 .
++ VER (Z038)
   FMID(EBB1102)
 /*
   PROBLEM DESCRIPTION(S):
     TNIP800 -
       Add support for user-defined system parameter PRISUB=
       to define primary subsystem name.

   COMPONENT: 5752-SC1B6-EBB1102
              5752-SC1C8-EBB1102

   APARS FIXED: TNIP800

   SPECIAL CONDITIONS:
     ACTION:  An IPL is required to after installation of
       this user modification.

   COMMENTS:
     LAST CHANGE:  2006/11/30

     This usermod makes the following changes:

       IEAVNP03 - modified to use IEAPPNIP macro to build system
                  parameters table

       IEAPPNIP - new macro to define system parameters and generate
                  system parameters table

       IEAPMNIP - IBM private macro to map parameter lists for NIP
                  service calls

       IEAVNPF1 - New RIM to set primary subsystem name from PRISUB=
                  parameter

       IEAVNIPM - modified to add new RIM IEAVNPF1 to the list of RIMs
                  to be called

       IEFJSINT - modified to use primary subsystem name set by IEAVNPF1

     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:

     MACROS
       IEAPMNIP
       IEAPPNIP
       IEAVNIPM
       IEAVNPF1
       IEAVNP03
       IEFJSINT

 */.
++ JCLIN.
++ SRC      (IEAVNP03) DISTLIB(ASAMPLIB) SYSLIB(SAMPLIB ).
++ MAC      (IEAPPNIP) DISTLIB(AMACLIB ) SYSLIB(MACLIB  )
++ MAC      (IEAPMNIP) DISTLIB(AMACLIB ) SYSLIB(MACLIB  )
++ SRC      (IEAVNPF1) DISTLIB(ASAMPLIB) SYSLIB(SAMPLIB ).
++ SRC      (IEAVNIPM) DISTLIB(ASAMPLIB) SYSLIB(SAMPLIB ).
++ ZAP      (IEFJSINT) DISTLIB(AOSB3   ).