++USERMOD(M023201) /* EDM1102 - UPDATE SGIEC0DT */.
++VER(Z038) FMID(EDM1102) PRE(UZ33147).
++MACUPD(SGIEC0DT).
./ CHANGE NAME=SGIEC0DT
.DD      AIF   (&TYPE(13) NE 1).DE    3330-11                    MVS38J 17656600
.DE      AIF   (&TYPE(14) NE 1).DF    3380                       MVS38J 17705038
         SPACE 2                                           3380  MVS38J 17710038
*--------------------------------------------------------- 3380  MVS38J 17712038
*  USER MOD TO SUPPORT 3380 DEVICES                        3380  MVS38J 17713038
*  SEE AMODGEN(SGIEC0DT) AND SYM6-1(IHADVCT)               3380  MVS38J 17714038
*--------------------------------------------------------- 3380  MVS38J 17715038
Z14&SYSNDX DS  0F     DVC                                  3380  MVS38J 17716038
   DC    AL2(886)     CYL   #CYLS/DEV INCLUDING ALTERNATES  +00  MVS38J 17717038
   DC    AL2(15)      TRK   #TRKS/CYL                       +02  MVS38J 17718038
   DC    AL2(47968)   TRKLN #BYTES/TRK WITH STANDARD R0     +04  MVS38J 17719038
   DC    AL2(256)     OVH1  MODULO: OVERHEAD VALUE 1        +06  MVS38J 17720038
   DC    AL1(0)       OVNK  OVERHEAD DECREMENT NON-KEYED    +08  MVS38J 17721038
   DC    AL1(16)      FLAGS FLAG (MODULO, NO TOL)           +09  MVS38J 17722038
   DC    AL2(267)     OVH2  MODULO: OVERHEAD VALUE 2        +0A  MVS38J 17723038
   DC    AL2(15)      ALT   #ALTERNATE TRACKS/DEV           +0C  MVS38J 17724038
*  RPS DATA    -------------------------------------------       MVS38J 17725038
   DC    AL2(1248)    OVR0  R0 OVERHEAD                     +0E  MVS38J 17726038
   DC    AL1(221)     SECT  #SECTORS IN FULL TRACK          +10  MVS38J 17727038
   DC    AL1(214)     DSECT #DATA SECTORS                   +11  MVS38J 17728038
   DC    AL2(224)     BPSEC #BYTES/SECTOR                   +12  MVS38J 17729038
*  MODULO DATA -------------------------------------------       MVS38J 17730038
   DC    AL2(32)      MOD1  MODULO FACTOR                   +14  MVS38J 17731038
*  LOCAL MODS  -------------------------------------------       MVS38J 17732038
   DC    AL2(0)             SPARE                           +16  MVS38J 17733038
   DC    V(UTRKCALC)        IEC0SCR1 zap support            +18  MVS38J 17734038
*--------------------------------------------------------- 3380  MVS38J 17735038
         SPACE 2                                                 MVS38J 17750038
.DF      AIF   (&TYPE(15) NE 1).DEVT   3390                      MVS38J 17750138
         SPACE 2                                           3390  MVS38J 17750238
*--------------------------------------------------------- 3390  MVS38J 17750338
*  USER MOD TO SUPPORT 3390 DEVICES                        3390  MVS38J 17750438
*  SEE AMODGEN(SGIEC0DT) AND SYM6-1(IHADVCT)               3390  MVS38J 17750538
*--------------------------------------------------------- 3390  MVS38J 17750638
Z15&SYSNDX DS  0F     DVC                                  3390  MVS38J 17750738
   DC    AL2(1113)    CYL   #CYLS/DEV INCLUDING ALTERNATES  +00  MVS38J 17750838
   DC    AL2(15)      TRK   #TRKS/CYL                       +02  MVS38J 17750938
   DC    AL2(58786)   TRKLN #BYTES/TRK WITH STANDARD R0     +04  MVS38J 17751038
   DC    AL2(0)       OVH1  MODULO: OVERHEAD VALUE 1        +06  MVS38J 17751138
   DC    AL1(0)       OVNK  OVERHEAD DECREMENT NON-KEYED    +08  MVS38J 17751238
   DC    AL1(16)      FLAGS FLAG (MODULO, NO TOL)           +09  MVS38J 17751338
   DC    AL2(0)       OVH2  MODULO: OVERHEAD VALUE 2        +0A  MVS38J 17751438
   DC    AL2(15)      ALT   #ALTERNATE TRACKS/DEV           +0C  MVS38J 17751538
*  RPS DATA    -------------------------------------------       MVS38J 17751638
   DC    AL2(1428)    OVR0  R0 OVERHEAD                     +0E  MVS38J 17751738
   DC    AL1(224)     SECT  #SECTORS IN FULL TRACK          +10  MVS38J 17751838
   DC    AL1(0)       DSECT #DATA SECTORS                   +11  MVS38J 17751938
   DC    AL2(272)     BPSEC #BYTES/SECTOR                   +12  MVS38J 17752038
*  MODULO DATA -------------------------------------------       MVS38J 17752138
   DC    AL2(34)      MOD1  MODULO FACTOR                   +14  MVS38J 17752238
*  LOCAL MODS  -------------------------------------------       MVS38J 17752338
   DC    AL2(0)             SPARE                           +16  MVS38J 17752438
   DC    V(UTRKCALC)        IEC0SCR1 zap support            +18  MVS38J 17752538
*--------------------------------------------------------- 3390  MVS38J 17752638
