++USERMOD(M023204) /* EDM1102 - UPDATE SGIGG500 */.
++VER(Z038) FMID(EDM1102).
++MACUPD(SGIGG500).
./ CHANGE NAME=SGIGG500
.D5      ANOP                                                    MVS38J 10599650
         AIF ('&UNITNUC' NE '3380').D3390 +3380 ??               MVS38J 10599660
&BLKSIZ  SETA 19069                       +SET MAX BLKSIZE       MVS38J 10599670
         AGO  .D6                         +  GET OUT             MVS38J 10599680
.D3390   AIF  ('&UNITNUC' NE '3390').D3340                       MVS38J 10599690
&BLKSIZE SETA 32760                       +SET MAX BLKSIZE       MVS38J 10599700
         AGO  .D6                                                MVS38J 10599702
.D3340   ANOP                                                    MVS38J 10599820
         AIF ('&UNIT' NE '3380').N3380    +3380 ??               MVS38J 12420000
         MNOTE *,'SGIGG500 - 3380 untested - MVS38J'             MVS38J 12421000
         CONVERT TO=EBCDIC,DIGITS=1,VALUE=0E                     MVS38J 12422000
&LINE    SETC '&LINE'.'&EBCDIC'           +  YES - APPEND X'0E'  MVS38J 12423000
         AGO  .END                        +         AND LEAVE    MVS38J 12424000
.N3380   ANOP                             +  NO - CHECK NEXT     MVS38J 12425000
         AIF ('&UNIT' NE '3390').N3390    3390?                  MVS38J 12430000
         MNOTE *,'SGIGG500 - 3390 untested - MVS38J'             MVS38J 12431000
         CONVERT TO=EBCDIC,DIGITS=1,VALUE=0F                     MVS38J 12432000
&LINE    SETC '&LINE'.'&EBCDIC'           yes, append x'0F'      MVS38J 12433000
         AGO  .END                                               MVS38J 12434000
.N3390   ANOP                                                    MVS38J 12435000
