Example 3: Completing cross-zone updates

If SMP/E could not complete cross-zone updates for APPLY or RESTORE processing, you may need to use UCLIN to make the remaining changes. (SMP/E issues messages and reports to tell you what cross-zone work you may need to finish.) Here are some examples of using UCLIN to change XZLMOD subentries in MOD entries. Make sure to check the messages and reports to determine whether any additional changes are needed for cross-zone subentries in LMOD entries or TARGETZONE entries.

Adding XZLMOD subentries: This example adds LMOD IEANUC01 to the IGCXXX MOD entry in zone IMS1. If this MOD entry previously had no XZLMOD subentries, SMP/E automatically sets XZLMODP to indicate that the MOD entry now contains XZLMOD subentries.

SET BDY(IMS1)                /* set to IMS zone               */.
UCLIN                        /* start UCLIN processing        */.
ADD MOD(IGCXXX)              /* identify MOD entry            */
   XZLMOD((IEANUC01,ZOSZNA))  /* add load module from zone ZOSZNA */.
ENDUCL                       /* end UCLIN processing          */.

Replacing XZLMOD subentries: This example replaces all the XZLMOD subentries in MOD entry ISPLINK with two XZLMOD subentries. If this MOD entry previously had no XZLMOD subentries, SMP/E automatically sets XZLMODP to indicate that the MOD entry now contains XZLMOD subentries.

SET BDY(ZOSZNA)                /* set to first zone.            */.
UCLIN                        /* start UCLIN processing        */.
REP MOD(ISPLINK)             /* identify MOD entry            */
    XZLMOD((CICSDIAG,CICS1)  /* replace list with two values  */
           (IMSDIAG1,IMS1))  /*                               */.
ENDUCL                       /* end UCLIN processing          */.

Deleting XZLMOD subentries: This example deletes an XZLMOD subentry from the ISPLINK subentry. If this causes the XZLMOD subentry list to become empty, SMP/E automatically turns XZLMODP off to indicate that the MOD entry no longer contains XZLMOD subentries.

SET BDY(ZOSZNB)                /* set to second zone.           */.
UCLIN                        /* start UCLIN processing        */.
DEL MOD(ISPLINK)             /* identify MOD entry            */
    XZLMOD((IMSDIAG2,IMS1))  /* delete IMSDIAG2 reference     */.
ENDUCL                       /* end UCLIN processing          */.