++USERMOD(M024305) /* EDS1102 - UPDATE UNITNAME */.
++VER(Z038) FMID(EDS1102) PRE(UZ23290 M023302).
++MACUPD(UNITNAME).
./ CHANGE NAME=UNITNAME
         AIF    ('&NAME' EQ '3375').VIOGNRC  3375, VIO=YES       MVS38J 16670038
