++USERMOD(M023302) /* EDS1102 - UPDATE UNITNAME */.
++VER(Z038) FMID(EDS1102) PRE(UZ23290).
++MACUPD(UNITNAME).
./ CHANGE NAME=UNITNAME
.*               ASMF ONLY ALLOWS 2 CONTINUATIONS                MVS38J 16640038
         AIF    ('&NAME' EQ '3380').VIOGNRC  3380, VIO=YES       MVS38J 16650038
         AIF    ('&NAME' EQ '3390').VIOGNRC  3390, VIO=YES       MVS38J 16660038
.VIOGNRC ANOP                                                    MVS38J 16950038
