++USERMOD(M024207) /* EDM1102 - UPDATE SGIGG500 */.
++VER(Z038) FMID(EDM1102) PRE(M023204).
++MACUPD(SGIGG500).
./ CHANGE NAME=SGIGG500
         AIF   ('&UNITNUC' NE '3340').D3375                      MVS38J 10599830
.D3375   AIF   ('&UNITNUC' NE '3375').D59                        MVS38J 10614000
&BLKSIZE SETA  32760                       +SET MAX BLKSIZE      MVS38J 10614100
         AGO   .D6                                               MVS38J 10614200
         AIF ('&UNIT' NE '3375').N3375    +3375 ??               MVS38J 12440000
         MNOTE *,'SGIGG500 - 3375 sysres untested - MVS38J'      MVS38J 12441000
         CONVERT TO=EBCDIC,DIGITS=1,VALUE=0C                     MVS38J 12442000
&LINE    SETC '&LINE'.'&EBCDIC'           +  YES - APPEND X'0C'  MVS38J 12443000
         AGO  .END                        +         AND LEAVE    MVS38J 12444000
.N3375   ANOP                             +  NO - CHECK NEXT     MVS38J 12445000
