++USERMOD(M023100) /* EBB1102 - UPDATE SGIFB600 */.
++VER(Z038) FMID(EBB1102) PRE(UZ57342).
++MACUPD(SGIFB600).
./ CHANGE NAME=SGIFB600
         AIF   ('&RESTYPE' EQ '3380').D3380 +3380 ??             MVS38J 03930038
         AIF   ('&RESTYPE' EQ '3390').D3390 +3390 ??             MVS38J 03940038
.D3390   ANOP                             +TRACK ALLOC PRMS      MVS38J 04500038
         MNOTE *,'SGIFB600 - D3390 probably wrong - MVS38J'      MVS38J 04500538
&B       SETA  80                         + DEVICES/TRACK        MVS38J 04501038
&C       SETA  03                         + 125K                 MVS38J 04502038
&D       SETA  02                         + RMS/SER1             MVS38J 04503038
&G       SETA  03                         + FRAMES               MVS38J 04504038
         AGO   .LOOP                      +                      MVS38J 04505038
.D3380   ANOP                             +TRACK ALLOC PRMS      MVS38J 04550038
&B       SETA  80                         + DEVICES/TRACK        MVS38J 04551038
&C       SETA  03                         + 125K                 MVS38J 04552038
&D       SETA  02                         + RMS/SER1             MVS38J 04553038
&G       SETA  03                         + FRAMES               MVS38J 04554038
         AGO   .LOOP                      +                      MVS38J 04555038
