++USERMOD(M023402) /* FDS1122 - REPLACE SGIDSP03 */.
++VER(Z038) FMID(FDS1122) PRE(UZ90058).
++MAC(SGIDSP03).
         MACRO                                                   MVS38J 01000038
         SGIDSP03 &ID=,&UNIT=                                    MVS38J 01100038
.*******   *                                                     MVS38J 01200038
.*******   *MODS MARCH 2001 JIM MORRISON MVS38J (MVS38J)         MVS38J 01300038
.*******   *MODS Jan 2002   Jim Morrison MVS38J                  MVS38J 01400038
.*******   *DATE WRITTEN : 86-04-29                              MVS38J 01500038
.*******   *AUTHOR       : BERTUS                                MVS38J 01600038
.*******   *FUNCTION     : REPLACEMENT FOR DUMMY SGIDSP03        MVS38J 01700038
.*******   *               IN MVS 3.8 TO SUPPORT 3380 SYSGENS    MVS38J 01800038
.*******   *LIBRARY      : AGENLIB                               MVS38J 01900038
.*******   *DEPENDENCIES : GLOBAL SYSGEN VARIABLES (SGGBLPAK)    MVS38J 02000038
.*******   *               OLD SYSGEN DIT GEN      (SGDITGBL)    MVS38J 02100038
.*******   *PARAMETERS   : UNIT   = DEVICE TYPE                  MVS38J 02200038
.*******   *               ID     = MAC ID FOR MNOTES            MVS38J 02300038
         LCLC  &NUCM                       +NUCLEUS MODULES      MVS38J 02400038
         COPY  SGGBLPAK                    +GET GLOBAL VARS      MVS38J 02500038
         AIF   ('&UNIT' EQ '3380').G3380   +GEN 3380 CALL??      MVS38J 02600038
         AGO   .EXIT001                    +  NEITHER - GET OUT  MVS38J 02700038
.G3380   ANOP                                                    MVS38J 02800038
&SGDITXA(&SGCNTRA(3)) SETA 103             +SET DIT INDEX        MVS38J 02900038
         AIF  (&SGGENDB(103)).EXIT001    +GET OUT IF DONE BEFORE MVS38J 03000038
&SGGENDB(103) SETB 1                       +SHOW DONE            MVS38J 03100038
&NUCM    SETC 'USRDDT00,IECVXDAS,IECVXDAT,IECVXDAU,IECVOTBL'     MVS38J 03200038
         SGDITGBL NUCDLB=AOSC5,SENSE=32,ERPMOD=IECLMSGD,         MVS38J+03300038
               ERPDLB=AOSC5,                                     MVS38J+03400038
               STATBL=0,PREFTBL=290,                             MVS38J+03500038
               DDTMOD=UDDT3380,                                  MVS38J+03600038
               NUCMOD=&NUCM,                                     MVS38J+03700038
               UCBTYPE=3010200E,GENERIC=3380                     MVS38J 03800038
.EXIT001 ANOP                                                    MVS38J 03900038
         MEXIT                                                   MVS38J 04000038
         MEND                                                    MVS38J 04100038
