|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||kkkkkkkk||jjjjjjjj|

//SYSGEN1 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
//JOBCAT DD  DISP=SHR,DSN=SYS1.VMASTCAT
//LPA1 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT  DD    SYSOUT=A
//LPALIB DD DSN=SYS1.LPALIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=U,BLKSIZE=19069),SPACE=(CYL,(30,1,360))
//SYSIN DD *
  DEFINE   CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.LPALIB)   -
            VOL (MVSRES)    DEVT (3350))
/*
//SG2 EXEC ASMS,OBJ=OBJPDS01,MOD=IEFWMAS1,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
DEVNAMET CSECT
         SGIEF010                                                      X
               3,3350,X'3050',X'200B',                           XXXXXXXX
               5,3330,X'3050',X'2009',                           XXXXXXXX
               6,3340,X'3040',X'200A',                           XXXXXXXX
               7,2314,X'30C0',X'2008',                           XXXXXXXX
               17,3400-6,X'3210',X'8003',                           XXXXXXXX
               19,3211,X'1080',X'0809',                           XXXXXXXX
               20,1403,X'1000',X'0808',                           XXXXXXXX
               27,2540,X'1000',X'0801',                           XXXXXXXX
               28,2540-2,X'1000',X'0802',                           XXXXXXXX
               31,3215,X'1000',X'0823',                           XXXXXXXX
               37,3277-2,X'1200',X'1009',                           XXXXXXXX
               LAST
         DC    F'25'
 SGIEF011 3,3
 SGIEF011 5,5
 SGIEF011 6,6
 SGIEF011 7,7
 SGIEF011 17,17
 SGIEF011 19,19
 SGIEF011 20,20
 SGIEF011 27,27
 SGIEF011 28,28
 SGIEF011 31,31
 SGIEF011 37,37
         DC    CL8'2400-3'
         DC    XL4'34008001'
         DC    CL8'3400-3'
         DC    XL4'34008003'
         DC    CL8'3400-5'
         DC    XL4'32008003'
 SGIEF013 8,17,17,17,                                             XXXXXXXXX
               17,17,17,17,                                        XXXXXXXXX
               17,0,0,0,                                        XXXXXXXXX
               0,0,0,0,                                        XXXXXXXXX
               0
 SGIEF011 0,0,TAPE
 SGIEF013 16,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 32,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 48,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 64,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 80,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 96,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF011 0,0,SYSDA
 SGIEF013 16,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 32,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 48,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 64,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 80,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 96,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF011 0,0,DISK
 SGIEF013 16,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 32,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 48,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 64,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 80,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 96,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF011 0,0,SYSSQ
 SGIEF013 4,3,3,3,                                             XXXXXXXXX
               3,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF011 0,0,SYSVIO
 SGIEF013 4,3,3,3,                                             XXXXXXXXX
               3,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF011 0,0,VIO
 SGIEF013 16,6,6,6,                                             XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6
 SGIEF013 32,6,6,6,                                             XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6
 SGIEF013 48,6,6,6,                                             XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6
 SGIEF011 0,0,PAGE
 SGIEF013 16,7,7,7,                                             XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7
 SGIEF013 32,7,7,7,                                             XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7
 SGIEF013 48,7,7,7,                                             XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7
 SGIEF011 0,0,SORT
 SGIEF013 16,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF011 0,0,WORK
 SGIEF013 16,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 24,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF011 0,0,SPOOL
 SGIEF013 8,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF011 0,0,TSO
 END
/*
//SG3 EXEC ASMS,OBJ=OBJPDS01,MOD=IEFDEVPT,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
IEFDEVPT CSECT
DVPTLEN  DC    H'10'
DVPTSIZE DC    H'306'
DVPTDEV  DC    H'260'
DVPT2321 DC    H'0'
DVPT     DC    F'0'
     DC  X'304FC001FFC03FFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFC03'
     DC  X'FFFFFFFFFFFFFFFFFFFFC000'
     END
/*
//SG4 EXEC ASMS,OBJ=OBJPDS01,MOD=IEFWMSKA,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
DEVMASKT CSECT
          DC    H'25'
         DC    H'26'
         SGIEF010                                                      X
               3,3350,X'3050',X'200B',                           XXXXXXXX
               5,3330,X'3050',X'2009',                           XXXXXXXX
               6,3340,X'3040',X'200A',                           XXXXXXXX
               7,2314,X'30C0',X'2008',                           XXXXXXXX
               17,3400-6,X'3210',X'8003',                           XXXXXXXX
               19,3211,X'1080',X'0809',                           XXXXXXXX
               20,1403,X'1000',X'0808',                           XXXXXXXX
               27,2540,X'1000',X'0801',                           XXXXXXXX
               28,2540-2,X'1000',X'0802',                           XXXXXXXX
               31,3215,X'1000',X'0823',                           XXXXXXXX
               37,3277-2,X'1200',X'1009',                           XXXXXXXX
               LAST
 SGIEF012 19,8,                                                  XXXXXXXX
               3000000000C000000000000000000003000000000000000000000C00X
               000000000000000000000000
 SGIEF012 31,2,                                                  XXXXXXXX
               00400001000000000000000000000000000000000000000000000000X
               000000000000000000000000
 SGIEF012 27,4,                                                  XXXXXXXX
               00080000000020000000000000000000008000000000000000000002X
               000000000000000000000000
 SGIEF012 28,4,                                                  XXXXXXXX
               00040000000010000000000000000000004000000000000000000001X
               000000000000000000000000
 SGIEF012 20,8,                                                  XXXXXXXX
               0003000000000C000000000000000000003000000000000000000000X
               C00000000000000000000000
 SGIEF012 37,34,                                                  XXXXXXXX
               0000C000FF00000000000000000003FC0000000000000000000FF000X
               00000000000000003FC00000
 SGIEF012 7,48,                                                  XXXXXXXX
               00000000000003FFFC00000000000000000FFFF00000000000000000X
               3FFFC0000000000000000000
 SGIEF012 3,48,                                                  XXXXXXXX
               000000000000000003FFFC00000000000000000FFFF0000000000000X
               00003FFFC000000000000000
 SGIEF012 5,48,                                                  XXXXXXXX
               0000000000000000000003FFFC00000000000000000FFFF000000000X
               000000003FFFC00000000000
 SGIEF012 6,48,                                                  XXXXXXXX
               00000000000000000000000003FFFC00000000000000000FFFF00000X
               0000000000003FFFC0000000
 SGIEF012 17,8,                                                  XXXXXXXX
               00000000000000000000000000000000000000000000000000000000X
               0000000000000000003FC000
        DC        F'8'
        DC        XL4'34008001'
   DC  X'00000000000000000000000000000000000000000000000000000000'
   DC  X'0000000000000000003FC000'
        DC        F'8'
        DC        XL4'34008003'
   DC  X'00000000000000000000000000000000000000000000000000000000'
   DC  X'0000000000000000003FC000'
        DC        F'8'
        DC        XL4'32008003'
   DC  X'00000000000000000000000000000000000000000000000000000000'
   DC  X'0000000000000000003FC000'
 SGIEF013 8,17,17,17,                                             XXXXXXXXX
               17,17,17,17,                                        XXXXXXXXX
               17,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF012 0,8,                                                      XXXX
               00000000000000000000000000000000000000000000000000000000X
               0000000000000000003FC000
 SGIEF013 16,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 32,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 48,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 64,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 80,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 96,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF012 0,96,                                                      XXXX
               000000000000000003FFFFFFFC0000000000000FFFFFFFF000000000X
               00003FFFFFFFC00000000000
 SGIEF013 16,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 32,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 48,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 64,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 80,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 96,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF012 0,96,                                                      XXXX
               000000000000000003FFFFFFFC0000000000000FFFFFFFF000000000X
               00003FFFFFFFC00000000000
 SGIEF013 16,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 32,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 48,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 64,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 80,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF013 96,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF012 0,96,                                                      XXXX
               000000000000000003FFFFFFFC0000000000000FFFFFFFF000000000X
               00003FFFFFFFC00000000000
 SGIEF013 4,3,3,3,                                             XXXXXXXXX
               3,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF012 0,4,                                                      XXXX
               00000000000000000202000000000000000000080800000000000000X
               000000000000000000000000
 SGIEF013 4,3,3,3,                                             XXXXXXXXX
               3,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF012 0,4,                                                      XXXX
               00000000000000000202000000000000000000080800000000000000X
               000000000000000000000000
 SGIEF013 16,6,6,6,                                             XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6
 SGIEF013 32,6,6,6,                                             XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6
 SGIEF013 48,6,6,6,                                             XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6,6,6,6,                                        XXXXXXXXX
               6
 SGIEF012 0,48,                                                      XXXX
               00000000000000000000000003FFFC00000000000000000FFFF00000X
               0000000000003FFFC0000000
 SGIEF013 16,7,7,7,                                             XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7
 SGIEF013 32,7,7,7,                                             XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7
 SGIEF013 48,7,7,7,                                             XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7,7,7,7,                                        XXXXXXXXX
               7
 SGIEF012 0,48,                                                      XXXX
               00000000000003FFFC00000000000000000FFFF00000000000000000X
               3FFFC0000000000000000000
 SGIEF013 16,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3
 SGIEF012 0,16,                                                      XXXX
               000000000000000003FC0000000000000000000FF000000000000000X
               000000000000000000000000
 SGIEF013 16,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF013 24,5,5,5,                                             XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF012 0,24,                                                      XXXX
               0000000000000000000003FC0000000000000000000FF00000000000X
               000000003FC0000000000000
 SGIEF013 8,3,3,3,                                             XXXXXXXXX
               3,3,3,3,                                        XXXXXXXXX
               3,5,5,5,                                        XXXXXXXXX
               5,5,5,5,                                        XXXXXXXXX
               5
 SGIEF012 0,8,                                                      XXXX
               000000000000000000000000000000000000000FF000000000000000X
               000000000000000000000000
 SGIEF013 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 SGIEF012 0,192,                                                      XXXX
               00000000000003FFFFFFFFFFFFFFFC00000FFFFFFFFFFFFFFFF00000X
               3FFFFFFFFFFFFFFFC0000000
          END
/*
//SG5 EXEC ASMS,OBJ=OBJPDS01,MOD=IEFEDTTB,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
         SGIEF010                                                      X
               3,3350,X'3050',X'200B',                           XXXXXXXX
               5,3330,X'3050',X'2009',                           XXXXXXXX
               6,3340,X'3040',X'200A',                           XXXXXXXX
               7,2314,X'30C0',X'2008',                           XXXXXXXX
               17,3400-6,X'3210',X'8003',                           XXXXXXXX
               19,3211,X'1080',X'0809',                           XXXXXXXX
               20,1403,X'1000',X'0808',                           XXXXXXXX
               27,2540,X'1000',X'0801',                           XXXXXXXX
               28,2540-2,X'1000',X'0802',                           XXXXXXXX
               31,3215,X'1000',X'0823',                           XXXXXXXX
               37,3277-2,X'1200',X'1009',                           XXXXXXXX
               LAST
 SGIEF018  TYP=G,1,3
 SGIEF018 1,2,TYP=E
 SGIEF018 1,3,TYP=E
 SGIEF018 1,4,TYP=E
 SGIEF018 1,5,TYP=E
 SGIEF018 1,6,TYP=E
 SGIEF018 1,9,TYP=E
 SGIEF018  1,3,70,320,TYP=D
 SGIEF018  TYP=G,2,3
 SGIEF018 2,2,TYP=E
 SGIEF018 2,3,TYP=E
 SGIEF018 2,4,TYP=E
 SGIEF018 2,9,TYP=E
 SGIEF018  2,3,71,321,TYP=D
 SGIEF018  2,3,72,322,TYP=D
 SGIEF018  2,3,73,323,TYP=D
 SGIEF018  2,3,74,324,TYP=D
 SGIEF018  2,3,75,325,TYP=D
 SGIEF018  2,3,76,326,TYP=D
 SGIEF018  2,3,77,327,TYP=D
 SGIEF018  TYP=G,3,3
 SGIEF018 3,2,TYP=E
 SGIEF018 3,3,TYP=E
 SGIEF018 3,4,TYP=E
 SGIEF018 3,5,TYP=E
 SGIEF018 3,6,TYP=E
 SGIEF018  3,3,78,328,TYP=D
 SGIEF018  3,3,164,584,TYP=D
 SGIEF018  TYP=G,4,3
 SGIEF018 4,2,TYP=E
 SGIEF018 4,3,TYP=E
 SGIEF018 4,4,TYP=E
 SGIEF018  4,3,79,329,TYP=D
 SGIEF018  4,3,80,330,TYP=D
 SGIEF018  4,3,81,331,TYP=D
 SGIEF018  4,3,82,332,TYP=D
 SGIEF018  4,3,83,333,TYP=D
 SGIEF018  4,3,84,334,TYP=D
 SGIEF018  4,3,85,335,TYP=D
 SGIEF018  4,3,165,585,TYP=D
 SGIEF018  4,3,166,586,TYP=D
 SGIEF018  4,3,167,587,TYP=D
 SGIEF018  4,3,168,588,TYP=D
 SGIEF018  4,3,169,589,TYP=D
 SGIEF018  4,3,170,590,TYP=D
 SGIEF018  4,3,171,591,TYP=D
 SGIEF018  4,3,242,832,TYP=D
 SGIEF018  4,3,243,833,TYP=D
 SGIEF018  4,3,244,834,TYP=D
 SGIEF018  4,3,245,835,TYP=D
 SGIEF018  4,3,246,836,TYP=D
 SGIEF018  4,3,247,837,TYP=D
 SGIEF018  4,3,248,838,TYP=D
 SGIEF018  4,3,249,839,TYP=D
 SGIEF018  4,3,250,840,TYP=D
 SGIEF018  4,3,251,841,TYP=D
 SGIEF018  4,3,252,842,TYP=D
 SGIEF018  4,3,253,843,TYP=D
 SGIEF018  4,3,254,844,TYP=D
 SGIEF018  4,3,255,845,TYP=D
 SGIEF018  4,3,256,846,TYP=D
 SGIEF018  4,3,257,847,TYP=D
 SGIEF018  TYP=G,5,3
 SGIEF018 5,2,TYP=E
 SGIEF018 5,3,TYP=E
 SGIEF018 5,4,TYP=E
 SGIEF018 5,5,TYP=E
 SGIEF018 5,6,TYP=E
 SGIEF018 5,9,TYP=E
 SGIEF018 5,11,TYP=E
 SGIEF018  5,3,156,576,TYP=D
 SGIEF018  TYP=G,6,3
 SGIEF018 6,2,TYP=E
 SGIEF018 6,3,TYP=E
 SGIEF018 6,4,TYP=E
 SGIEF018 6,9,TYP=E
 SGIEF018 6,11,TYP=E
 SGIEF018  6,3,157,577,TYP=D
 SGIEF018  6,3,158,578,TYP=D
 SGIEF018  6,3,159,579,TYP=D
 SGIEF018  6,3,160,580,TYP=D
 SGIEF018  6,3,161,581,TYP=D
 SGIEF018  6,3,162,582,TYP=D
 SGIEF018  6,3,163,583,TYP=D
 SGIEF018  TYP=G,7,5
 SGIEF018 7,2,TYP=E
 SGIEF018 7,3,TYP=E
 SGIEF018 7,4,TYP=E
 SGIEF018 7,10,TYP=E
 SGIEF018  7,5,86,336,TYP=D
 SGIEF018  7,5,87,337,TYP=D
 SGIEF018  7,5,88,338,TYP=D
 SGIEF018  7,5,89,339,TYP=D
 SGIEF018  7,5,90,340,TYP=D
 SGIEF018  7,5,91,341,TYP=D
 SGIEF018  7,5,92,342,TYP=D
 SGIEF018  7,5,93,343,TYP=D
 SGIEF018  7,5,172,592,TYP=D
 SGIEF018  7,5,173,593,TYP=D
 SGIEF018  7,5,174,594,TYP=D
 SGIEF018  7,5,175,595,TYP=D
 SGIEF018  7,5,176,596,TYP=D
 SGIEF018  7,5,177,597,TYP=D
 SGIEF018  7,5,178,598,TYP=D
 SGIEF018  7,5,179,599,TYP=D
 SGIEF018  7,5,258,848,TYP=D
 SGIEF018  7,5,259,849,TYP=D
 SGIEF018  7,5,260,850,TYP=D
 SGIEF018  7,5,261,851,TYP=D
 SGIEF018  7,5,262,852,TYP=D
 SGIEF018  7,5,263,853,TYP=D
 SGIEF018  7,5,264,854,TYP=D
 SGIEF018  7,5,265,855,TYP=D
 SGIEF018  TYP=G,8,5
 SGIEF018 8,2,TYP=E
 SGIEF018 8,3,TYP=E
 SGIEF018 8,4,TYP=E
 SGIEF018  8,5,94,344,TYP=D
 SGIEF018  8,5,95,345,TYP=D
 SGIEF018  8,5,96,346,TYP=D
 SGIEF018  8,5,97,347,TYP=D
 SGIEF018  8,5,98,348,TYP=D
 SGIEF018  8,5,99,349,TYP=D
 SGIEF018  8,5,100,350,TYP=D
 SGIEF018  8,5,101,351,TYP=D
 SGIEF018  8,5,180,600,TYP=D
 SGIEF018  8,5,181,601,TYP=D
 SGIEF018  8,5,182,602,TYP=D
 SGIEF018  8,5,183,603,TYP=D
 SGIEF018  8,5,184,604,TYP=D
 SGIEF018  8,5,185,605,TYP=D
 SGIEF018  8,5,186,606,TYP=D
 SGIEF018  8,5,187,607,TYP=D
 SGIEF018  8,5,266,856,TYP=D
 SGIEF018  8,5,267,857,TYP=D
 SGIEF018  8,5,268,858,TYP=D
 SGIEF018  8,5,269,859,TYP=D
 SGIEF018  8,5,270,860,TYP=D
 SGIEF018  8,5,271,861,TYP=D
 SGIEF018  8,5,272,862,TYP=D
 SGIEF018  8,5,273,863,TYP=D
 SGIEF018  TYP=G,9,6
 SGIEF018 9,7,TYP=E
 SGIEF018  9,6,102,352,TYP=D
 SGIEF018  9,6,103,353,TYP=D
 SGIEF018  9,6,104,354,TYP=D
 SGIEF018  9,6,105,355,TYP=D
 SGIEF018  9,6,106,356,TYP=D
 SGIEF018  9,6,107,357,TYP=D
 SGIEF018  9,6,108,358,TYP=D
 SGIEF018  9,6,109,359,TYP=D
 SGIEF018  9,6,110,360,TYP=D
 SGIEF018  9,6,111,361,TYP=D
 SGIEF018  9,6,112,362,TYP=D
 SGIEF018  9,6,113,363,TYP=D
 SGIEF018  9,6,114,364,TYP=D
 SGIEF018  9,6,115,365,TYP=D
 SGIEF018  9,6,116,366,TYP=D
 SGIEF018  9,6,117,367,TYP=D
 SGIEF018  9,6,188,608,TYP=D
 SGIEF018  9,6,189,609,TYP=D
 SGIEF018  9,6,190,610,TYP=D
 SGIEF018  9,6,191,611,TYP=D
 SGIEF018  9,6,192,612,TYP=D
 SGIEF018  9,6,193,613,TYP=D
 SGIEF018  9,6,194,614,TYP=D
 SGIEF018  9,6,195,615,TYP=D
 SGIEF018  9,6,196,616,TYP=D
 SGIEF018  9,6,197,617,TYP=D
 SGIEF018  9,6,198,618,TYP=D
 SGIEF018  9,6,199,619,TYP=D
 SGIEF018  9,6,200,620,TYP=D
 SGIEF018  9,6,201,621,TYP=D
 SGIEF018  9,6,202,622,TYP=D
 SGIEF018  9,6,203,623,TYP=D
 SGIEF018  9,6,274,864,TYP=D
 SGIEF018  9,6,275,865,TYP=D
 SGIEF018  9,6,276,866,TYP=D
 SGIEF018  9,6,277,867,TYP=D
 SGIEF018  9,6,278,868,TYP=D
 SGIEF018  9,6,279,869,TYP=D
 SGIEF018  9,6,280,870,TYP=D
 SGIEF018  9,6,281,871,TYP=D
 SGIEF018  9,6,282,872,TYP=D
 SGIEF018  9,6,283,873,TYP=D
 SGIEF018  9,6,284,874,TYP=D
 SGIEF018  9,6,285,875,TYP=D
 SGIEF018  9,6,286,876,TYP=D
 SGIEF018  9,6,287,877,TYP=D
 SGIEF018  9,6,288,878,TYP=D
 SGIEF018  9,6,289,879,TYP=D
 SGIEF018  TYP=G,10,7
 SGIEF018 10,8,TYP=E
 SGIEF018  10,7,54,304,TYP=D
 SGIEF018  10,7,55,305,TYP=D
 SGIEF018  10,7,56,306,TYP=D
 SGIEF018  10,7,57,307,TYP=D
 SGIEF018  10,7,58,308,TYP=D
 SGIEF018  10,7,59,309,TYP=D
 SGIEF018  10,7,60,310,TYP=D
 SGIEF018  10,7,61,311,TYP=D
 SGIEF018  10,7,62,312,TYP=D
 SGIEF018  10,7,63,313,TYP=D
 SGIEF018  10,7,64,314,TYP=D
 SGIEF018  10,7,65,315,TYP=D
 SGIEF018  10,7,66,316,TYP=D
 SGIEF018  10,7,67,317,TYP=D
 SGIEF018  10,7,68,318,TYP=D
 SGIEF018  10,7,69,319,TYP=D
 SGIEF018  10,7,140,560,TYP=D
 SGIEF018  10,7,141,561,TYP=D
 SGIEF018  10,7,142,562,TYP=D
 SGIEF018  10,7,143,563,TYP=D
 SGIEF018  10,7,144,564,TYP=D
 SGIEF018  10,7,145,565,TYP=D
 SGIEF018  10,7,146,566,TYP=D
 SGIEF018  10,7,147,567,TYP=D
 SGIEF018  10,7,148,568,TYP=D
 SGIEF018  10,7,149,569,TYP=D
 SGIEF018  10,7,150,570,TYP=D
 SGIEF018  10,7,151,571,TYP=D
 SGIEF018  10,7,152,572,TYP=D
 SGIEF018  10,7,153,573,TYP=D
 SGIEF018  10,7,154,574,TYP=D
 SGIEF018  10,7,155,575,TYP=D
 SGIEF018  10,7,226,816,TYP=D
 SGIEF018  10,7,227,817,TYP=D
 SGIEF018  10,7,228,818,TYP=D
 SGIEF018  10,7,229,819,TYP=D
 SGIEF018  10,7,230,820,TYP=D
 SGIEF018  10,7,231,821,TYP=D
 SGIEF018  10,7,232,822,TYP=D
 SGIEF018  10,7,233,823,TYP=D
 SGIEF018  10,7,234,824,TYP=D
 SGIEF018  10,7,235,825,TYP=D
 SGIEF018  10,7,236,826,TYP=D
 SGIEF018  10,7,237,827,TYP=D
 SGIEF018  10,7,238,828,TYP=D
 SGIEF018  10,7,239,829,TYP=D
 SGIEF018  10,7,240,830,TYP=D
 SGIEF018  10,7,241,831,TYP=D
 SGIEF018  TYP=G,11,17
 SGIEF018 11,1,TYP=E
 SGIEF018  11,17,298,1152,TYP=D
 SGIEF018  11,17,299,1153,TYP=D
 SGIEF018  11,17,300,1154,TYP=D
 SGIEF018  11,17,301,1155,TYP=D
 SGIEF018  11,17,302,1156,TYP=D
 SGIEF018  11,17,303,1157,TYP=D
 SGIEF018  11,17,304,1158,TYP=D
 SGIEF018  11,17,305,1159,TYP=D
 SGIEF018  TYP=G,12,19
 SGIEF018  12,19,2,2,TYP=D
 SGIEF018  12,19,3,3,TYP=D
 SGIEF018  12,19,40,258,TYP=D
 SGIEF018  12,19,41,259,TYP=D
 SGIEF018  12,19,126,514,TYP=D
 SGIEF018  12,19,127,515,TYP=D
 SGIEF018  12,19,212,770,TYP=D
 SGIEF018  12,19,213,771,TYP=D
 SGIEF018  TYP=G,13,20
 SGIEF018  13,20,14,14,TYP=D
 SGIEF018  13,20,15,15,TYP=D
 SGIEF018  13,20,52,270,TYP=D
 SGIEF018  13,20,53,271,TYP=D
 SGIEF018  13,20,138,526,TYP=D
 SGIEF018  13,20,139,527,TYP=D
 SGIEF018  13,20,224,782,TYP=D
 SGIEF018  13,20,225,783,TYP=D
 SGIEF018  TYP=G,14,27
 SGIEF018  14,27,12,12,TYP=D
 SGIEF018  14,27,50,268,TYP=D
 SGIEF018  14,27,136,524,TYP=D
 SGIEF018  14,27,222,780,TYP=D
 SGIEF018  TYP=G,15,28
 SGIEF018  15,28,13,13,TYP=D
 SGIEF018  15,28,51,269,TYP=D
 SGIEF018  15,28,137,525,TYP=D
 SGIEF018  15,28,223,781,TYP=D
 SGIEF018  TYP=G,16,31
 SGIEF018  16,31,9,9,TYP=D
 SGIEF018  16,31,31,31,TYP=D
 SGIEF018  TYP=G,17,37
 SGIEF018  17,37,16,16,TYP=D
 SGIEF018  17,37,17,17,TYP=D
 SGIEF018  17,37,32,192,TYP=D
 SGIEF018  17,37,33,193,TYP=D
 SGIEF018  17,37,34,194,TYP=D
 SGIEF018  17,37,35,195,TYP=D
 SGIEF018  17,37,36,196,TYP=D
 SGIEF018  17,37,37,197,TYP=D
 SGIEF018  17,37,38,198,TYP=D
 SGIEF018  17,37,39,199,TYP=D
 SGIEF018  17,37,118,448,TYP=D
 SGIEF018  17,37,119,449,TYP=D
 SGIEF018  17,37,120,450,TYP=D
 SGIEF018  17,37,121,451,TYP=D
 SGIEF018  17,37,122,452,TYP=D
 SGIEF018  17,37,123,453,TYP=D
 SGIEF018  17,37,124,454,TYP=D
 SGIEF018  17,37,125,455,TYP=D
 SGIEF018  17,37,204,704,TYP=D
 SGIEF018  17,37,205,705,TYP=D
 SGIEF018  17,37,206,706,TYP=D
 SGIEF018  17,37,207,707,TYP=D
 SGIEF018  17,37,208,708,TYP=D
 SGIEF018  17,37,209,709,TYP=D
 SGIEF018  17,37,210,710,TYP=D
 SGIEF018  17,37,211,711,TYP=D
 SGIEF018  17,37,290,960,TYP=D
 SGIEF018  17,37,291,961,TYP=D
 SGIEF018  17,37,292,962,TYP=D
 SGIEF018  17,37,293,963,TYP=D
 SGIEF018  17,37,294,964,TYP=D
 SGIEF018  17,37,295,965,TYP=D
 SGIEF018  17,37,296,966,TYP=D
 SGIEF018  17,37,297,967,TYP=D
 SGIEF014  TYP=G,3350
 SGIEF014  TYP=G,3330
 SGIEF014  TYP=G,3340
 SGIEF014 TYP=G,3350
 SGIEF014 TYP=G,3330
 SGIEF014 TYP=G,3340
 SGIEF014 TYP=G,2314
 SGIEF014 TYP=G,3400-6
 SGIEF014 TYP=G,3211
 SGIEF014 TYP=G,1403
 SGIEF014 TYP=G,2540
 SGIEF014 TYP=G,2540-2
 SGIEF014 TYP=G,3215
 SGIEF014 TYP=G,3277-2
 SGIEF014  TYP=E,TAPE
 SGIEF014  TYP=E,SYSDA
 SGIEF014  TYP=E,DISK
 SGIEF014  TYP=E,SYSSQ
 SGIEF014  TYP=E,SYSVIO
 SGIEF014  TYP=E,VIO
 SGIEF014  TYP=E,PAGE
 SGIEF014  TYP=E,SORT
 SGIEF014  TYP=E,WORK
 SGIEF014  TYP=E,SPOOL
 SGIEF014  TYP=E,TSO
 SGIEF014  TYP=GG,2400-3,X'34008001'
 SGIEF015 TYP=GG,N=0,G=17
 SGIEF014  TYP=GG,3400-3,X'34008003'
 SGIEF015 TYP=GG,N=0,G=17
 SGIEF014  TYP=GG,3400-5,X'32008003'
 SGIEF015 TYP=GG,N=0,G=17
 SGIEF015 TYP=L,N=SYSALLDA,G=1
 SGIEF015 TYP=L,N=SYSALLDA,G=2
 SGIEF015 TYP=L,N=SYSALLDA,G=3
 SGIEF015 TYP=L,N=SYSALLDA,G=4
 SGIEF015 TYP=L,N=SYSALLDA,G=5
 SGIEF015 TYP=L,N=SYSALLDA,G=6
 SGIEF015 TYP=L,N=SYSALLDA,G=7
 SGIEF019 SYSVIO
 SGIEF019 VIO
 SGIEF014
 SGIEF016    SYSGEN
 SGIEF017
 END
/*
//SG6 EXEC ASMS,OBJ=OBJPDS01,MOD=IEFSGOPT,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
    SGIEF002  1,0,1
    END
/*
//SG7 EXEC ASMS,OBJ=OBJPDS01,MOD=DCM010,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
DCM010    CSECT
         ENTRY DCM011
DCM011 EQU   *
         IEECDCM DEVICE=D
         END
/*
//SG8 EXEC ASMS,OBJ=OBJPDS01,MOD=IEFSDPPT,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
         SGIEF0PT
         END
/*
//SG9 EXEC ASMS,OBJ=OBJPDS01,MOD=IEFYRCDS,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
 SGIEF060 NE=(0000000000000000000,                                     X
               000000000000000000,                             XXXXXXXXXXXXXXXX
               00000000000)                                           X
    END
/*
//SG10 EXEC ASMS,OBJ=OBJPDS01,MOD=IKJEFLP0,CLASS=A
//SYSLIB DD DSN=SYS1.AMODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.ATSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSN=SYS1.AMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSIN  DD  *
      PRINT  ON,NODATA
         SGIKJ0LP 0,5000,4
         END
/*
//LPA11 EXEC PGM=IEBCOPY,REGION=512K,COND=(8,LT)
//SYSUT3 DD DSN=&SYSUT3,SPACE=(1700,(10,5)),UNIT=SYSDA
//SYSUT4 DD DSN=&SYSUT4,SPACE=(460,(30,24)),UNIT=SYSDA
//SYSPRINT DD SPACE=(3630,(500,100),RLSE),
//    DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),SYSOUT=A
//LPALIB DD DISP=OLD,DSN=SYS1.LPALIB,UNIT=3350,
//        VOL=(,RETAIN,SER=MVSRES)
//ALPALIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ALPALIB
//LPALIBA DD DISP=SHR,DSNAME=SYS2.LPALIB
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//AOSA0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSA0
//AOSB0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB0
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOSCA DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSCA
//AOSCE DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSCE
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSC5
//AOSC6 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSC6
//AOSD0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSD0
//AOSD7 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSD7
//AOSD8 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSD8
//AOSG0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSG0
//AOST3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST3
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//AOS06 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS06
//AOS11 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS11
//AOS12 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS12
//AOS20 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS20
//AOS21 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS21
//AOS24 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS24
//SYSIN DD *
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=3350
         SELECT MEMBER=IECLMSGD
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=3330
         SELECT MEMBER=IECLMSGD
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=3340
         SELECT MEMBER=IECLMSGD
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=2314
         SELECT MEMBER=IECLMSGD
      COPY OUTDD=LPALIB,INDD=AOSCA        DEVICE=3400-6
         SELECT MEMBER=IGE0000I
         SELECT MEMBER=IGE0100I
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=3400-6
         SELECT MEMBER=IECLMSGT
      COPY OUTDD=LPALIB,INDD=AOSCA        DEVICE=3211
         SELECT MEMBER=IGE0000G
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=3211
         SELECT MEMBER=IECLMSGU
      COPY OUTDD=LPALIB,INDD=AOSCA        DEVICE=1403
         SELECT MEMBER=IGE0000G
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=1403
         SELECT MEMBER=IECLMSGU
      COPY OUTDD=LPALIB,INDD=AOSCA        DEVICE=2540
         SELECT MEMBER=IGE0001C
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=2540
         SELECT MEMBER=IECLMSGU
      COPY OUTDD=LPALIB,INDD=AOSCA        DEVICE=2540-2
         SELECT MEMBER=IGE0001C
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=2540-2
         SELECT MEMBER=IECLMSGU
      COPY OUTDD=LPALIB,INDD=AOSCA        DEVICE=3215
         SELECT MEMBER=IGE0000D
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=3215
         SELECT MEMBER=IECLMSGU
      COPY OUTDD=LPALIB,INDD=AOSG0        DEVICE=3277-2
         SELECT MEMBER=IGE0010E
  COPY OUTDD=LPALIB,INDD=AOSC5            DEVICE=3277-2
         SELECT MEMBER=IECLMSGG
 COPY OUTDD=LPALIB,INDD=AOSD0
 SELECT MEMBER=(IGCT0018,IGCT0021,IGCT002D)
 SELECT MEMBER=(IGCT002E,IGCT006H,IGCT0069)
 SELECT MEMBER=(IGCT1081,IGCT010E,IGG020T1)
 SELECT MEMBER=(IGC0010E)
 SELECT MEMBER=(IGG019AA,IGG019AB,IGG019AC,IGG019AD)
 SELECT MEMBER=(IGG019AF,IGG019AG,IGG019AI,IGG019AJ)
 SELECT MEMBER=(IGG019AK,IGG019AL,IGG019AM,IGG019AN)
 SELECT MEMBER=(IGG019AQ,IGG019AR,IGG019AT,IGG019AV)
 SELECT MEMBER=(IGG019AW,IGG019AX)
 SELECT MEMBER=(IGG019BA,IGG019BB,IGG019BD,IGG019BE)
 SELECT MEMBER=(IGG019BF,IGG019BG,IGG019BI,IGG019BL)
 SELECT MEMBER=(IGG019BM,IGG019BN,IGG019BO,IGG019BP)
 SELECT MEMBER=(IGG019BQ)
 SELECT MEMBER=(IGG019CA,IGG019CB,IGG019CC)
 SELECT MEMBER=(IGG019CE,IGG019CF,IGG019CH)
 SELECT MEMBER=(IGG019CL,IGG019CM,IGG019CN,IGG019CO)
 SELECT MEMBER=(IGG019CP,IGG019CQ,IGG019CR,IGG019CS)
 SELECT MEMBER=(IGG019CT,IGG019CX,IGG019CY,IGG019CZ)
 SELECT MEMBER=(IGG019C0,IGG019C1,IGG019C3)
 SELECT MEMBER=(IGG019C4)
 SELECT MEMBER=(IGG019EI,IGG019EJ)
 SELECT MEMBER=(IGG019FB,IGG019FD,IGG019FF,IGG019FG)
 SELECT MEMBER=(IGG019FJ,IGG019FL,IGG019JD)
 SELECT MEMBER=(IFG0559C,IGGMSG01,IGGMSG02)
 SELECT MEMBER=(IGG019FP)
 SELECT MEMBER=(IGG019HT)
 SELECT MEMBER=(IGG019TC)
 SELECT MEMBER=(IGC0002E,IGC0002D)
 SELECT MEMBER=(IGC0006I)
 SELECT MEMBER=(IGG019AE,IGG019BC,IGG019BH,IGG019BK)
 SELECT MEMBER=(IGG019CG,IGG019CI,IGG019CJ,IGG019CU)
 SELECT MEMBER=(IGG019CW)
 SELECT MEMBER=(IGG019TW)
 SELECT MEMBER=(IGG0199F,IGG0199G,IGG0199W,IGG0198L)
 SELECT MEMBER=(IGG019DJ,IGG019DK,IGG019AH,IGG0201W)
 SELECT MEMBER=(IGG020FC)
 SELECT MEMBER=(IECQBFG1,IECBBFB1,IGG019B0)
 SELECT MEMBER=(IGG019FR,IGG019FS)
 COPY OUTDD=LPALIB,INDD=AOSC5
 SELECT MEMBER=(IGC0008H)
 SELECT MEMBER=(IEAVTMTR,IEAVTMTC)
 SELECT MEMBER=(IEAVTSDR)
 SELECT MEMBER=((IEAVSTA0,IGC0006{))
 SELECT MEMBER=((IEAVXDOM,IGC0008G))
 SELECT MEMBER=(IEAVVRP2,IEAVMNTR)
 SELECT MEMBER=(IGARPT01)
 COPY OUTDD=LPALIB,INDD=AOSD0
 SELECT MEMBER=(IGC0010C)
 COPY OUTDD=LPALIB,INDD=AOSG0
 SELECT MEMBER=(IGG0203Z,IGG0213Z)
 SELECT MEMBER=(IGC0007C,IGC0007D,IGC0007E)
 SELECT MEMBER=(IGC0107C,IGC0107D)
 SELECT MEMBER=(IGG019OA,IGG019OB,IGG019OC)
 SELECT MEMBER=(IGG019OE,IGG019OJ)
 SELECT MEMBER=(IGG0193Y,IGG0203Y)
 COPY OUTDD=LPALIB,INDD=AOSD7
 SELECT MEMBER=(IGG019KG)
 SELECT MEMBER=(IGG019KU,IGG0193A)
 SELECT MEMBER=(IGG019JA)
 SELECT MEMBER=(IGG0203A,IGG019DC)
 SELECT MEMBER=(IGG019BR,IGG019BS,IGG019BT)
 SELECT MEMBER=(IGG019BU,IGG019BV)
 SELECT MEMBER=(IGG019KH)
 SELECT MEMBER=(IGC0005C,IGC0005G)
 SELECT MEMBER=(IGG019LC,IGG019LI)
 SELECT MEMBER=(IGG019LE)
 SELECT MEMBER=(IGG019DA,IGG019DB,IGG019DD)
 SELECT MEMBER=(IGCT005G)
 COPY OUTDD=LPALIB,INDD=AOSD8
 SELECT MEMBER=(IGG0202B,IGG0202C)
 SELECT MEMBER=(IGC0005D)
 SELECT MEMBER=(IGG019GG,IGG019HA,IGG019JH)
 SELECT MEMBER=(IGG019JG)
 SELECT MEMBER=(IGG0192A,IGG0192B,IGG01921,IGG01920,IGG0202D,IGG0192C)
 SELECT MEMBER=(IGG01922)
 SELECT MEMBER=(IGG0192D,IGG0192E,IGG0192F,IGG0192G)
 SELECT MEMBER=(IGG0192U,IGG0192R,IGG0192S,IGG0192V,IGG0192T)
 SELECT MEMBER=(IGG019GA,IGG019GB,IGG019GC,IGG019GD,IGG019GE,IGG019GF)
 SELECT MEMBER=(IGG019IA,IGG019IB,IGG019IE,IGG019IF)
 SELECT MEMBER=(IGG0202N)
 SELECT MEMBER=(IGG0202I,IGG0202J,IGG0202K,IGG0202L,IGG0202M,IGG02028)
 SELECT MEMBER=(IGG019HB,IGG019HD,IGG019HF,IGG019HG)
 SELECT MEMBER=(IGG01924,IGG01928,IGG01929)
 SELECT MEMBER=(IGG02029,IGG019HL,IGG019HN)
 SELECT MEMBER=(IGG019HH,IGG019HI,IGG019HJ,IGG019HK)
 SELECT MEMBER=(IGG0195D,IGG0195G,IGG0196D,IGG0196G)
 SELECT MEMBER=(IGG0196C)
 SELECT MEMBER=(IGG0195T,IGG0195U,IGG019I1,IGG019I2)
 SELECT MEMBER=(IGG0192H,IGG0192P,IGG0192I,IGG0192K,IGG0192L,IGG0192M)
 SELECT MEMBER=(IGG0192Q,IGG0192N,IGG0192O,IGG0192J,IGG0202A,IGG019JU)
 SELECT MEMBER=(IGG0192W,IGG0192X,IGG0192Z,IGG01950)
 SELECT MEMBER=(IGG019JX,IGG019J0)
 SELECT MEMBER=(IGG019J3,IGG019JV,IGG019H3)
 SELECT MEMBER=(IGG019JW,IGG019G0,IGG019G1,IGG019G2,IGG019G3,IGG019G4)
 SELECT MEMBER=(IGG019G5,IGG019G6,IGG019G7,IGG019G8,IGG019G9)
 SELECT MEMBER=(IGG019GO,IGG019GN)
 SELECT MEMBER=(IGG019IN,IGG019IO,IGG019I9)
 SELECT MEMBER=(IGG019GW,IGG019GZ)
 SELECT MEMBER=(IGG019IZ,IGG019JC)
 SELECT MEMBER=(IGG019JI,IGG019JJ,IGG019JK,IGG019JL,IGG019JM,IGG019JN)
 SELECT MEMBER=(IGG019JO,IGG019JP,IGG019JQ,IGG019JR)
 SELECT MEMBER=(IGG019JS,IGG019JT,IGG019HP)
 COPY OUTDD=LPALIB,INDD=AOSU0
 SELECT MEMBER=(IGC0008B,IGC0108B,IGC0208B,IGG019P8,IGG019P9)
 SELECT MEMBER=(IGC0008F,IGG0860A,IGG0860B,IGG0860C,IGG0860D)
 SELECT MEMBER=(IGG086AE,IGC0308B,IGG019C8,IGG019FT,IGG019P7)
 SELECT MEMBER=(IGC0508B)
 COPY OUTDD=LPALIB,INDD=AOSC6
 SELECT MEMBER=(IGC0506C,IGC0N06C,IGC0G95B,IGC0G05B)
 SELECT MEMBER=(IGC0H05B,IGC0I05B,IGC0K05B,IGC0L05B,IGC0M05B)
 SELECT MEMBER=(IGC0N05B,IGC0P05B,IGC0Q05B,IGC0S05B,IGC0W05B)
 SELECT MEMBER=(IGC0R05B,IGC0T05B,IGC0U05B,IGG019SI)
 SELECT MEMBER=((IHJACP00,IGC0006C),(IHJACP01,IGC0106C))
 SELECT MEMBER=((IHJACP02,IGC0206C),(IHJACP20,IGC0A06C))
 SELECT MEMBER=((IHJACP50,IGC0Q06C),(IHJARS00,IGC0005B))
 SELECT MEMBER=((IHJACP25,IGC0D06C),(IHJACP70,IGC0S06C))
 SELECT MEMBER=((IHJARS01,IGC0205B),(IHJARS60,IGC0V05B))
 SELECT MEMBER=((IHJQCP30,IGC0F06C),(IHJQCP31,IGC0G06C))
 SELECT MEMBER=((IHJQCP32,IGC0H06C),(IHJQRS20,IGC0505B))
 SELECT MEMBER=((IHJQRS21,IGC0605B),(IHJQRS22,IGC0705B))
 SELECT MEMBER=((IHJQRS23,IGC0805B),(IHJQRS24,IGC0905B))
 COPY OUTDD=LPALIB,INDD=AOST3
 SELECT MEMBER=(IGG019TX)
 SELECT MEMBER=(IGG019TY,IGG019TZ,IGG019T3,IGG019T4)
 SELECT MEMBER=(IGG019T5,IGG019T6,IGG019T7,IGG019T8)
 SELECT MEMBER=(IGG0196S,IEDAY3,IEEDAY3)
 COPY OUTDD=LPALIB,INDD=AOSD0
 SELECT MEMBER=(IGC0009H,IGC0109H,IGC0209H)
 COPY OUTDD=LPALIB,INDD=AOS11
 SELECT MEMBER=(AHLREADR,AHLVCON,AHLVCOFF)
 SELECT MEMBER=(IGC0F05A)
 COPY OUTDD=LPALIB,INDD=AOS12
 SELECT MEMBER=(AMDSYS00,AMDSYS01,AMDSYS02)
 SELECT MEMBER=(AMDSYS03,AMDSYS04,AMDSYS05)
 SELECT MEMBER=(AMDSYS06)
    COPY OUTDD=LPALIB,INDD=AOST4
    SELECT MEMBER=(IKJEFF02)
 COPY OUTDD=LPALIB,INDD=AOSU0
 SELECT MEMBER=(IGC0003I)
 COPY OUTDD=LPALIB,INDD=AOS20
 SELECT MEMBER=(IGC0006F,IGC0106F,IGC0206F)
 SELECT MEMBER=(IGC0306F,IGC0406F,IGC0506F)
 SELECT MEMBER=(IGC0606F,IGC0706F,IGC0806F)
 SELECT MEMBER=(IGC0906F,IGC0A06F,IGC0B06F)
 SELECT MEMBER=(IGC0C06F,IGC0D06F,IGC0E06F)
 SELECT MEMBER=(IGC0F06F)
 SELECT MEMBER=(IGC1006F,IGC1106F,IGC1206F)
 SELECT MEMBER=(IGC1306F,IGC1406F)
 SELECT MEMBER=(IGE0004A)
 SELECT MEMBER=(IGE0104A,IGE0204A,IGE0304A)
 SELECT MEMBER=(IGE0404A,IGE0504A,IGE0604A)
 SELECT MEMBER=(IGE0704A,IGE0804A,IGE0904A)
 SELECT MEMBER=(IGE0004B,IGE0104B,IGE0204B)
 SELECT MEMBER=(IGE0304B,IGE0404B,IGE0504B)
 SELECT MEMBER=(IGE0604B,IGE0704B,IGE0804B)
 SELECT MEMBER=(IGE0004C,IGE0104C,IGE0204C)
 SELECT MEMBER=(IGE0304C,IGE0404C,IGE0504C)
 SELECT MEMBER=(IGE0604C,IGE0704C,IGE0804C)
 SELECT MEMBER=(IGE0904B,IGE0904C)
 SELECT MEMBER=(IGG019LP)
 SELECT MEMBER=(IGG019PA,IGG019PI,IGG019PK)
 SELECT MEMBER=(IGG019MD,IGG019ME,IGG019MF)
 SELECT MEMBER=(IGG019MI,IGG019MJ,IGG019MK)
 SELECT MEMBER=(IGG019ML,IGG019MN,IGG019MP)
 SELECT MEMBER=(IGG019MT,IGG019MU,IGG019MV)
 SELECT MEMBER=(IGG019MW,IGG019MX,IGG019MY)
 SELECT MEMBER=(IGG019MZ,IGG019M0,IGG019M1)
 SELECT MEMBER=(IGG019M2,IGG019M3,IGG019M4)
 SELECT MEMBER=(IGG019M5,IGG019M6)
 SELECT MEMBER=(IGG019PB,IGG019PC)
 SELECT MEMBER=(IGG019PE,IGG019PF,IGG019PG)
 SELECT MEMBER=(IGG019PH,IGG019PL,IGG019PM)
 SELECT MEMBER=(IGG019PN,IGG019PO,IGG019PP)
 SELECT MEMBER=(IGG019PQ,IGG019UP)
 SELECT MEMBER=(IGG0193M,IGG0193Q,IGG0193S)
 SELECT MEMBER=(IGG0194N,IGG0194P,IGG0194Q)
 SELECT MEMBER=(IGG0203M)
 COPY OUTDD=LPALIB,INDD=AOS21
 SELECT MEMBER=((IEDQEB,IGC0010B))
 SELECT MEMBER=(IEDQOT01)
 SELECT MEMBER=(IGCAA10D,IGCAB10D,IGCAC10D)
 SELECT MEMBER=(IGCAD10D,IGCAE10D,IGCAF10D)
 SELECT MEMBER=(IGCAG10D,IGCAL10D,IGCAT10D)
 SELECT MEMBER=(IGCA010D,IGCA110D,IGCA210D)
 SELECT MEMBER=(IGCA310D,IGCA410D,IGCA510D)
 SELECT MEMBER=(IGCA610D,IGCA710D,IGCA810D)
 SELECT MEMBER=(IGCA910D)
 SELECT MEMBER=(IGCC010D,IGCC110D,IGCI210D)
 SELECT MEMBER=(IGCDB10D,IGCDL10D,IGCDM10D)
 SELECT MEMBER=(IGCI310D,IGCMZ10D)
 SELECT MEMBER=(IGCMB10D,IGCMD10D,IGCME10D)
 SELECT MEMBER=(IGCMF10D,IGCMG10D,IGCMH10D)
 SELECT MEMBER=(IGCMI10D,IGCMK10D,IGCML10D)
 SELECT MEMBER=(IGCMN10D,IGCMP10D)
 SELECT MEMBER=(IGCMV10D,IGCMY10D,IGCN010D)
 SELECT MEMBER=(IGCN410D,IGCN510D)
 SELECT MEMBER=(IGCSW10D)
 SELECT MEMBER=(IGCVA10D,IGCVI10D)
 SELECT MEMBER=(IGC0G10D,IGC0H10D)
 SELECT MEMBER=(IGC0I10D,IGC0J10D)
 SELECT MEMBER=(IGC0K10D,IGC0L10D,IGC0N10D)
 SELECT MEMBER=(IGCDC10D,IGCDD10D)
 SELECT MEMBER=(IGCD010D,IGCD110D,IGCD210D)
 SELECT MEMBER=(IGCD310D,IGCD410D,IGCD510D)
 SELECT MEMBER=(IGCD610D,IGCD710D,IGCD810D)
 SELECT MEMBER=(IGCD910D)
 SELECT MEMBER=(IGCFA10D,IGCFB10D)
 SELECT MEMBER=(IGCFC10D,IGCFE10D,IGCFF10D)
 SELECT MEMBER=(IGCFG10D,IGCFH10D,IGCFI10D)
 SELECT MEMBER=(IGCFJ10D,IGCFK10D,IGCFL10D)
 SELECT MEMBER=(IGCFP10D,IGCFQ10D,IGCFR10D)
 SELECT MEMBER=(IGCH010D,IGCI010D,IGCI110D)
 SELECT MEMBER=(IGCMA10D)
 SELECT MEMBER=(IGCMM10D)
 SELECT MEMBER=(IGCMR10D,IGCMS10D,IGCMT10D)
 SELECT MEMBER=(IGCMU10D)
 SELECT MEMBER=(IGCM010D,IGCM110D,IGCM210D)
 SELECT MEMBER=(IGCM310D)
 SELECT MEMBER=(IGCM410D,IGCM510D,IGCM610D)
 SELECT MEMBER=(IGCM710D,IGCM810D,IGCM910D)
 SELECT MEMBER=(IGCR010D,IGCT010D)
 SELECT MEMBER=(IGCT110D,IGCT210D)
 SELECT MEMBER=(IGCVE10D,IGCVF10D)
 SELECT MEMBER=(IGCVG10D)
 SELECT MEMBER=(IGCVK10D)
 SELECT MEMBER=(IGCV010D,IGCV110D,IGCV210D)
 SELECT MEMBER=(IGCV310D,IGCV410D,IGCV510D)
 SELECT MEMBER=(IGCV610D,IGCV710D)
 SELECT MEMBER=(IGCV810D,IGCV910D)
 SELECT MEMBER=(IGCZ010D,IGCZ110D)
 SELECT MEMBER=(IGC0A10D,IGC0B10D,IGC0C10D)
 SELECT MEMBER=(IGC0D10D,IGC0E10D)
 SELECT MEMBER=(IGC0010D,IGC0110D)
 SELECT MEMBER=(IGC0210D)
 SELECT MEMBER=(IGC0310D,IGC0410D,IGC0510D)
 SELECT MEMBER=(IGC0610D,IGC0710D,IGC0810D)
 SELECT MEMBER=(IGC0910D)
 SELECT MEMBER=(IGE0004G)
 SELECT MEMBER=(IGE0004I)
 SELECT MEMBER=(IGE0104G)
 SELECT MEMBER=(IGE0204G)
 SELECT MEMBER=(IGE0304G,IGE0404G,IGE0504G)
 SELECT MEMBER=(IGE0604G,IGE0804G,IGE0904G)
 SELECT MEMBER=(IGE0904I)
 SELECT MEMBER=(IGE0004H,IGE0104H,IGE0204H)
 SELECT MEMBER=(IGE0404H,IGE0504H,IGE0804H)
 SELECT MEMBER=(IGE0904H)
 SELECT MEMBER=(IGG01930,IGG01931)
 SELECT MEMBER=(IGG01933,IGG01934,IGG01935)
 SELECT MEMBER=(IGG01936,IGG01937,IGG01938)
 SELECT MEMBER=(IGG01939,IGG01940,IGG01941)
 SELECT MEMBER=(IGG01942,IGG01943,IGG01944)
 SELECT MEMBER=(IGG01945,IGG01946)
 SELECT MEMBER=(IGG01948,IGG01949,IGG0194B)
 SELECT MEMBER=(IGG0198B)
 SELECT MEMBER=(IGG0198D,IGG0198E)
 SELECT MEMBER=(IGG0203B)
 SELECT MEMBER=(IGG02030,IGG02035,IGG02036)
 SELECT MEMBER=(IGG02041,IGG02046)
 COPY OUTDD=LPALIB,INDD=AOS20
 SELECT MEMBER=(IGE0004D)
 COPY OUTDD=LPALIB,INDD=AOS24
 SELECT MEMBER=(ISTAICPT)
 SELECT MEMBER=(ISTAICTN)
 SELECT MEMBER=(ISTAUCAG)
 SELECT MEMBER=(ISTAUCAT)
 SELECT MEMBER=(ISTSEC01)
 SELECT MEMBER=(ISTSEC10)
 SELECT MEMBER=(ISTSEC21)
 SELECT MEMBER=(ISTSEC30)
 SELECT MEMBER=(ISTSEC40)
 SELECT MEMBER=(ISTSEC51)
 SELECT MEMBER=(ISTDCC00)
 SELECT MEMBER=(ISTDCC02)
 SELECT MEMBER=(ISTDCC10)
 SELECT MEMBER=(ISTDCC11)
 SELECT MEMBER=(ISTDCC12)
 SELECT MEMBER=(ISTDCC13)
 SELECT MEMBER=(ISTDCC20)
 SELECT MEMBER=(ISTDCC21)
 SELECT MEMBER=(ISTDCC22)
 SELECT MEMBER=(ISTDCC23)
 SELECT MEMBER=(ISTDCC24)
 SELECT MEMBER=(ISTDCC25)
 SELECT MEMBER=(ISTDCC30)
 SELECT MEMBER=(ISTDCC31)
 SELECT MEMBER=(ISTDCC32)
 SELECT MEMBER=(ISTDCC35)
 SELECT MEMBER=(ISTDCC40)
 SELECT MEMBER=(ISTDCC41)
 SELECT MEMBER=(ISTDCC42)
 SELECT MEMBER=(ISTDCC50)
 SELECT MEMBER=(ISTDCC51)
 SELECT MEMBER=(ISTDCC60)
 SELECT MEMBER=(ISTDCC61)
 SELECT MEMBER=(ISTDCC80)
 SELECT MEMBER=(ISTDCC81)
 SELECT MEMBER=(ISTDCC85)
 SELECT MEMBER=(ISTRCC21)
 SELECT MEMBER=(ISTRCC22)
 SELECT MEMBER=(ISTRCC23)
 SELECT MEMBER=(ISTRCC26)
 SELECT MEMBER=(ISTRCC30)
 SELECT MEMBER=(ISTRCC51)
 SELECT MEMBER=(ISTRCC52)
 SELECT MEMBER=(ISTRCC53)
 SELECT MEMBER=(ISTRCC54)
 SELECT MEMBER=(ISTRCC63)
 SELECT MEMBER=(ISTRCC65)
 SELECT MEMBER=(ISTRCC80)
 SELECT MEMBER=(ISTRCC81)
 SELECT MEMBER=(ISTRCFY0)
 SELECT MEMBER=(ISTCFMTM)
 SELECT MEMBER=(ISTCFCMM)
 SELECT MEMBER=(ISTINCLM)
 SELECT MEMBER=(ISTINCSH)
 SELECT MEMBER=(ISTINCW3)
 SELECT MEMBER=(ISTNMCCA)
 SELECT MEMBER=(ISTNMCCB)
 SELECT MEMBER=(ISTNMCCF)
 SELECT MEMBER=(ISTNMCCI)
 SELECT MEMBER=(ISTNMCCO)
 SELECT MEMBER=(ISTNMCCR)
 SELECT MEMBER=(ISTNMCCS)
 SELECT MEMBER=(ISTNMCCT)
 SELECT MEMBER=(ISTNMCCZ)
 SELECT MEMBER=(ISTNMC1S)
 SELECT MEMBER=(ISTNMC2S)
 SELECT MEMBER=(ISTNMC3S)
 SELECT MEMBER=(ISTNMC4S)
 SELECT MEMBER=(ISTNMC5S)
 SELECT MEMBER=(ISTNMC6S)
 SELECT MEMBER=(ISTNMC7S)
 SELECT MEMBER=(ISTNMC9P)
 SELECT MEMBER=(ISTNMC4P)
 SELECT MEMBER=(ISTNMC5P)
 SELECT MEMBER=(ISTNMC6P)
 SELECT MEMBER=(ISTNMC7P)
 SELECT MEMBER=(ISTNMC8P)
 SELECT MEMBER=(ISTOCMDC)
 SELECT MEMBER=(ISTOCCDF)
 SELECT MEMBER=(ISTOCCSA)
 SELECT MEMBER=(ISTAPC11)
 SELECT MEMBER=(ISTAPC12)
 SELECT MEMBER=(ISTAPC23)
 SELECT MEMBER=(ISTAPC25)
 SELECT MEMBER=(ISTAPC31)
 SELECT MEMBER=(ISTAPC32)
 SELECT MEMBER=(ISTAPC33)
 SELECT MEMBER=(ISTAPC34)
 SELECT MEMBER=(ISTAPC35)
 SELECT MEMBER=(ISTAPC36)
 SELECT MEMBER=(ISTAPC37)
 SELECT MEMBER=(ISTAPC38)
 SELECT MEMBER=(ISTAPC41)
 SELECT MEMBER=(ISTAPC51)
 SELECT MEMBER=(ISTAPC52)
 SELECT MEMBER=(ISTAPC53)
 SELECT MEMBER=(ISTAPC54)
 SELECT MEMBER=(ISTAPC55)
 SELECT MEMBER=(ISTAPC56)
 SELECT MEMBER=(ISTAPC57)
 SELECT MEMBER=(ISTAPC58)
 SELECT MEMBER=(ISTAPC59)
 SELECT MEMBER=(ISTAPC61)
 SELECT MEMBER=(ISTAPC62)
 SELECT MEMBER=(ISTAPC63)
 SELECT MEMBER=(ISTAPC64)
 SELECT MEMBER=(ISTAPC66)
 SELECT MEMBER=(ISTAPM69)
 SELECT MEMBER=(ISTAPC83)
 SELECT MEMBER=(ISTAPC84)
 SELECT MEMBER=(ISTESC01)
 SELECT MEMBER=(ISTESC02)
 SELECT MEMBER=(ISTORFBA)
 SELECT MEMBER=(ISTORFBD)
 SELECT MEMBER=(ISTORFBF)
 SELECT MEMBER=(ISTORFID)
 SELECT MEMBER=(ISTORFPR)
 SELECT MEMBER=(ISTORFRA)
 SELECT MEMBER=(ISTORFBQ)
 SELECT MEMBER=(ISTORFSR)
 SELECT MEMBER=(ISTRACCA)
 SELECT MEMBER=(ISTRACTB)
 SELECT MEMBER=(ISTPATCH)
 SELECT MEMBER=(AMDUSRFD)
 SELECT MEMBER=(ISTSDCAL)
 SELECT MEMBER=(ISTSDCCA)
 SELECT MEMBER=(ISTSDCCD)
 SELECT MEMBER=(ISTSDCCF)
 SELECT MEMBER=(ISTSDCCN)
 SELECT MEMBER=(ISTSDCCR)
 SELECT MEMBER=(ISTSDCOD)
 SELECT MEMBER=(ISTYCLUS)
 SELECT MEMBER=(ISTYCONT)
 SELECT MEMBER=(ISTYPSOL)
 SELECT MEMBER=(ISTYSSCP)
 SELECT MEMBER=(ISTYTCM1)
 SELECT MEMBER=(ISTYTCM2)
 SELECT MEMBER=(ISTYTCM3)
 SELECT MEMBER=(ISTDVCBA)
 SELECT MEMBER=(ISTDVCRC)
 SELECT MEMBER=(ISTZAF0A)
 SELECT MEMBER=(ISTZAF0B)
 SELECT MEMBER=(ISTZAF1A)
 SELECT MEMBER=(ISTZAF1B)
 SELECT MEMBER=(ISTZAF1R)
 SELECT MEMBER=(ISTZBFAA)
 SELECT MEMBER=(ISTZBFAB)
 SELECT MEMBER=(ISTZBFAE)
 SELECT MEMBER=(ISTZBFAG)
 SELECT MEMBER=(ISTZBFAI)
 SELECT MEMBER=(ISTZBFAL)
 SELECT MEMBER=(ISTZBFAM)
 SELECT MEMBER=(ISTZBFAR)
 SELECT MEMBER=(ISTZBFBA)
 SELECT MEMBER=(ISTZBFBB)
 SELECT MEMBER=(ISTZBFBR)
 SELECT MEMBER=(ISTZBFBI)
 SELECT MEMBER=(ISTZBFCB)
 SELECT MEMBER=(ISTZBFDI)
 SELECT MEMBER=(ISTZBFDR)
 SELECT MEMBER=(ISTZBFEB)
 SELECT MEMBER=(ISTZBFFA)
 SELECT MEMBER=(ISTZBFFB)
 SELECT MEMBER=(ISTZBFGA)
 SELECT MEMBER=(ISTZBFGB)
 SELECT MEMBER=(ISTZBFHA)
 SELECT MEMBER=(ISTZBFHB)
 SELECT MEMBER=(ISTZBFIA)
 SELECT MEMBER=(ISTZBFID)
 SELECT MEMBER=(ISTZBFIB)
 SELECT MEMBER=(ISTZBFIF)
 SELECT MEMBER=(ISTZBFSC)
 SELECT MEMBER=(ISTZBFNB)
 SELECT MEMBER=(ISTZBFND)
 SELECT MEMBER=(ISTZBFNE)
 SELECT MEMBER=(ISTZBFPB)
 SELECT MEMBER=(ISTZBFXA)
 SELECT MEMBER=(ISTZBFX0)
 SELECT MEMBER=(ISTZBF0A)
 SELECT MEMBER=(ISTZBF0B)
 SELECT MEMBER=(ISTZBF0L)
 SELECT MEMBER=(ISTZBMJA)
 SELECT MEMBER=(ISTZCFAI)
 SELECT MEMBER=(ISTZCFBI)
 SELECT MEMBER=(ISTZCFCI)
 SELECT MEMBER=(ISTZCF0A)
 SELECT MEMBER=(ISTZCF0B)
 SELECT MEMBER=(ISTZCF1A)
 SELECT MEMBER=(ISTZCF1B)
 SELECT MEMBER=(ISTZDFE0)
 SELECT MEMBER=(ISTZDFKA)
 SELECT MEMBER=(ISTZDFKB)
 SELECT MEMBER=(ISTZDFL0)
 SELECT MEMBER=(ISTZDFWB)
 SELECT MEMBER=(ISTZDFWR)
 SELECT MEMBER=(ISTZGFAB)
 SELECT MEMBER=(ISTZGFBB)
 SELECT MEMBER=(ISTZGF0A)
 SELECT MEMBER=(ISTZGF0B)
 SELECT MEMBER=(ISTZGF1A)
 SELECT MEMBER=(ISTZHFAN)
 SELECT MEMBER=(ISTZIFAA)
 SELECT MEMBER=(ISTZIFAB)
 SELECT MEMBER=(ISTZIFBB)
 SELECT MEMBER=(ISTZIFBI)
 SELECT MEMBER=(ISTZIFCB)
 SELECT MEMBER=(ISTZIFCI)
 SELECT MEMBER=(ISTZIFDB)
 SELECT MEMBER=(ISTZIFEB)
 SELECT MEMBER=(ISTZIFGB)
 SELECT MEMBER=(ISTZIFHB)
 SELECT MEMBER=(ISTZIFIB)
 SELECT MEMBER=(ISTZIFID)
 SELECT MEMBER=(ISTZIFJB)
 SELECT MEMBER=(ISTZIFKB)
 SELECT MEMBER=(ISTZIFKG)
 SELECT MEMBER=(ISTZIFLB)
 SELECT MEMBER=(ISTZIFMB)
 SELECT MEMBER=(ISTZIFNA)
 SELECT MEMBER=(ISTZIFNB)
 SELECT MEMBER=(ISTZIFOA)
 SELECT MEMBER=(ISTZIFOB)
 SELECT MEMBER=(ISTZIFOE)
 SELECT MEMBER=(ISTZIFSB)
 SELECT MEMBER=(ISTZIFSC)
 SELECT MEMBER=(ISTZIFSG)
 SELECT MEMBER=(ISTZIFTB)
 SELECT MEMBER=(ISTZIFUB)
 SELECT MEMBER=(ISTZIFVB)
 SELECT MEMBER=(ISTZIFWB)
 SELECT MEMBER=(ISTZIFX0)
 SELECT MEMBER=(ISTZIF0B)
 SELECT MEMBER=(ISTZIF1B)
 SELECT MEMBER=(ISTZIMQA)
 SELECT MEMBER=(ISTZJFAB)
 SELECT MEMBER=(ISTZJFBB)
 SELECT MEMBER=(ISTZJFCB)
 SELECT MEMBER=(ISTZJF0B)
 SELECT MEMBER=(ISTZKFBB)
 SELECT MEMBER=(ISTZKFBN)
 SELECT MEMBER=(ISTZKFCB)
 SELECT MEMBER=(ISTZRM01)
 SELECT MEMBER=(ISTZKFCN)
          COPY  INDD=ALPALIB,OUTDD=LPALIB
          COPY  OUTDD=LPALIB,INDD=LPALIBA
          SELECT MEMBER=IGC0023A
          SELECT MEMBER=IGC0023B
          SELECT MEMBER=IGC0023C
          SELECT MEMBER=IGC0023D
          SELECT MEMBER=IGC0024A
          SELECT MEMBER=IGC0024B
          SELECT MEMBER=IGC0024C
          SELECT MEMBER=IGC0024D
          SELECT MEMBER=IGC0024G
          SELECT MEMBER=IGC0024H
/*
//SG12 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOS00 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS00
//AOS21 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS21
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSC5
//AOSCE DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSCE
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//SYSLIN DD *
 INCLUDE AOSB3(IEE0003D)
 INCLUDE AOSB3(IEE0303D)
 INCLUDE AOSB3(IEE5403D)
 INCLUDE AOSB3(IEE0403D)
 INCLUDE AOSB3(IEE0503D)
 INCLUDE AOSB3(IEE0603D)
 INCLUDE AOSC5(IEE6503D)
 INCLUDE AOSC5(IEE6603D)
 INCLUDE AOSB3(IEE7703D)
 INCLUDE AOSB3(IEE7803D)
 INCLUDE AOSB3(IEE6903D)
 INCLUDE AOSB3(IEE6303D)
 INCLUDE AOSB3(IEE6403D)
 INCLUDE AOSB3(IEE3203D)
 INCLUDE AOSB3(IEE4703D)
 INCLUDE AOSB3(IEE4303D)
 INCLUDE AOS21(IED1303D)
 INCLUDE AOSB3(IEE5103D)
 INCLUDE AOSB3(IEE5503D)
 INCLUDE AOSB3(IEE7503D)
 INCLUDE AOSB3(IEE6703D)
 INCLUDE AOSB3(IEE6803D)
 INCLUDE AOSB3(IEE8B03D)
 INCLUDE AOSB3(IEE5903D)
 INCLUDE AOSB3(IEE5603D)
 INCLUDE AOSB3(IEE0703D)
 INCLUDE AOSB3(IEE1403D)
 INCLUDE AOSB3(IEE4103D)
 INCLUDE AOSB3(IEE7203D)
 INCLUDE AOSB3(IEE5703D)
 INCLUDE AOSB3(IEE0803D)
 INCLUDE AOSB3(IEE3503D)
 INCLUDE AOSB3(IEE1603D)
 INCLUDE AOSB3(IEE9403D)
 INCLUDE AOSC5(IEAVEMRQ)
 INCLUDE AOSC5(IEAVVRP1)
 INCLUDE AOSCE(IGF2503D)
 INCLUDE AOSCE(IGF2603D)
 INCLUDE AOSB3(IEE7103D)
 INCLUDE AOSB3(IEE3703D)
 INCLUDE AOST4(IKJ5803D)
 INCLUDE AOSB3(IEE2903D)
 INCLUDE AOSC5(IEEMB815)
 INCLUDE AOSC5(IEE8603D)
 INCLUDE AOSB3(ISTCFF3D)
 INCLUDE AOSCE(IGFDE0)
 INCLUDE AOSCE(IGFDE1)
 INCLUDE AOSCE(IGFDV1)
 ORDER IEE0003D
 ORDER IEE0303D
 ORDER IEE5403D
 ORDER IEE0403D
 ORDER IEE7503D
 ORDER IEE5603D
 ORDER IEE5903D
 ORDER IEE6703D
 ORDER IEE7703D
 ORDER IEE6803D
 ORDER IEE6903D
 ORDER IEE6303D
 ORDER IEE6403D
 ALIAS IGG2103D,IGC0503D,IEE2103D,IEE0503D
 ALIAS IEE7603D
 ENTRY IEE0003D
 NAME IGC0003D(R)
 INCLUDE AOSB3(IEE3603D)
 INCLUDE AOSB3(IEE3303D)
 INCLUDE AOSB3(IEE2303D)
 INCLUDE AOSB3(IEE4203D)
 INCLUDE AOSB3(IEE4403D)
 INCLUDE AOSB3(IEE3103D)
 INCLUDE AOSB3(IEE4603D)
 INCLUDE AOSB3(IEE4903D)
 INCLUDE AOSB3(IEE4803D)
 INCLUDE AOSB3(IEE7303D)
 INCLUDE AOSB3(IEECB904)
 ORDER IEE3103D
 ENTRY IEE3603D
 NAME IEE3603D(R)
 INCLUDE AOSB3(IEEMB813)
 NAME IEEMB813(R)
 INCLUDE AOSB3(IEE00110)
 ALIAS IGC00110
 NAME IGC0011{(R)
 INCLUDE AOSB3(IEECB866)
 ENTRY  IEECB866
 NAME   IEECB866(R)
 INCLUDE AOSB3(IEE70110)
 INCLUDE AOSB3(IEE90110)
 ENTRY IEE70110
 NAME IEE70110(R)
 INCLUDE AOSB3(IEECB900)
 INCLUDE AOSB3(IEECB901)
 ENTRY IEECB900
 NAME IEECB900(R)
 INCLUDE AOSB3(IEEMB804)
 NAME IGC0003F(R)
 INCLUDE AOS00(IEEMB830)
 INCLUDE AOS00(IEEMB827)
 ENTRY IEEMB830
 NAME IGC0008C(R)
 INCLUDE AOSB3(IEEPALTR)
 NAME IEEPALTR(R)
 INCLUDE AOSB3(IEEMB879)
 INCLUDE AOSB3(IEEMB880)
 ENTRY IEEMB879
 NAME  IEEMB879(R)
 INCLUDE AOSC5(IEE10110)
 NAME IGC10110(R)
 INCLUDE AOSC5(IEE20110)
 NAME IGC20110(R)
 INCLUDE AOSC5(IEE21110)
 NAME IGC21110(R)
 INCLUDE AOSC5(IEE22110)
 NAME IGC22110(R)
 INCLUDE AOSC5(IEE23110)
 NAME IGC23110(R)
 INCLUDE AOSC5(IEE40110)
 NAME IGC40110(R)
/*
//SG13 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT,SIZE=(512K,100K)',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOSA0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSA0
//SYSLIN DD *
 INCLUDE SYSPUNCH(IEFWMAS1)
 NAME DEVNAMET(R)
 INCLUDE SYSPUNCH(IEFDEVPT)
 NAME IEFDEVPT(R)
 INCLUDE SYSPUNCH(IEFWMSKA)
 NAME DEVMASKT(R)
 INCLUDE SYSPUNCH(IEFEDTTB)
 ENTRY EDTTAB
 NAME IEFEDTTB(R)
      INCLUDE SYSPUNCH(IEFSGOPT)
      INCLUDE SYSPUNCH(IEFYRCDS)
      INCLUDE AOSB3(IEFRPREP)
      INCLUDE AOSB3(IEFXVNSL)
       INCLUDE AOSB3(IEFTB721)
       INCLUDE AOSB3(IEFTB722)
       INCLUDE AOSB3(IEFTB720)
       INCLUDE AOSB3(IEFTB723)
       INCLUDE AOSB3(IEFACTRT)
      INCLUDE AOSB3(IEFAB4DC)
      INCLUDE AOSB3(IEFAB4DD)
      INCLUDE AOSB3(IEFAB4DE)
      INCLUDE AOSB3(IEFAB4E0)
      INCLUDE AOSB3(IEFAB4E1)
      INCLUDE AOSB3(IEFAB4E2)
      INCLUDE AOSB3(IEFAB4E3)
      INCLUDE AOSB3(IEFAB4E4)
      INCLUDE AOSB3(IEFAB4E6)
      INCLUDE AOSB3(IEFAB4E7)
      INCLUDE AOSB3(IEFAB4E8)
      INCLUDE AOSB3(IEFAB4E9)
      INCLUDE AOSB3(IEFAB4EA)
      INCLUDE AOSB3(IEFAB4EB)
      INCLUDE AOSB3(IEFAB4EC)
      INCLUDE AOSB3(IEFAB4ED)
      INCLUDE AOSB3(IEFAB4EE)
      INCLUDE AOSB3(IEFAB4EF)
      INCLUDE AOSB3(IEFAB4F0)
      INCLUDE AOSB3(IEFAB4F1)
      INCLUDE AOSB3(IEFAB4F2)
      INCLUDE AOSB3(IEFAB4F3)
      INCLUDE AOSB3(IEFAB4F4)
      INCLUDE AOSB3(IEFAB4F5)
      INCLUDE AOSB3(IEFAB4F6)
      INCLUDE AOSB3(IEFAB4F7)
      INCLUDE AOSB3(IEFAB4F8)
      INCLUDE AOSB3(IEFAB4F9)
      INCLUDE AOSB3(IEFAB4FA)
      INCLUDE AOSB3(IEFAB4FC)
      INCLUDE AOSB3(IEFAB4FD)
      INCLUDE AOSB3(IEFAB4FE)
      INCLUDE AOSB3(IEEAB400)
      INCLUDE AOSB3(IEEAB401)
      INCLUDE AOSB3(IEFAB4M4)
      INCLUDE AOSB3(IEFAB4M5)
      INCLUDE AOSB3(IEFAB4M6)
      INCLUDE AOSB3(IEFAB4M7)
      INCLUDE AOSB3(IEFAB4M9)
      INCLUDE AOSB3(IEFAB4UV)
      INCLUDE AOSB3(IEFAB421)
      INCLUDE AOSB3(IEFAB422)
      INCLUDE AOSB3(IEFAB423)
      INCLUDE AOSB3(IEFAB424)
      INCLUDE AOSB3(IEFAB425)
      INCLUDE AOSB3(IEFAB426)
      INCLUDE AOSB3(IEFAB427)
      INCLUDE AOSB3(IEFAB428)
      INCLUDE AOSB3(IEFAB430)
      INCLUDE AOSB3(IEFAB431)
      INCLUDE AOSB3(IEFAB432)
      INCLUDE AOSB3(IEFAB433)
      INCLUDE AOSB3(IEFAB434)
      INCLUDE AOSB3(IEFAB435)
      INCLUDE AOSB3(IEFAB436)
      INCLUDE AOSB3(IEFAB440)
      INCLUDE AOSB3(IEFAB441)
      INCLUDE AOSB3(IEFAB442)
      INCLUDE AOSB3(IEFAB445)
      INCLUDE AOSA0(IDACAT11)
      INCLUDE AOSA0(IDACAT12)
      INCLUDE AOSB3(IEFAB451)
      INCLUDE AOSB3(IEFAB452)
      INCLUDE AOSB3(IEFAB453)
      INCLUDE AOSB3(IEFAB454)
      INCLUDE AOSB3(IEFAB455)
      INCLUDE AOSB3(IEFAB456)
      INCLUDE AOSB3(IEFAB457)
      INCLUDE AOSB3(IEFAB458)
      INCLUDE AOSB3(IEFAB459)
      INCLUDE AOSB3(IEFAB461)
      INCLUDE AOSB3(IEFAB463)
      INCLUDE AOSB3(IEFAB464)
      INCLUDE AOSB3(IEFAB466)
      INCLUDE AOSB3(IEFAB469)
      INCLUDE AOSB3(IEFAB470)
      INCLUDE AOSB3(IEFAB471)
      INCLUDE AOSB3(IEFAB472)
      INCLUDE AOSB3(IEFAB473)
      INCLUDE AOSB3(IEFAB474)
      INCLUDE AOSB3(IEFAB475)
      INCLUDE AOSB3(IEFAB476)
      INCLUDE AOSB3(IEFAB477)
      INCLUDE AOSB3(IEFAB478)
      INCLUDE AOSB3(IEFAB479)
      INCLUDE AOSB3(IEFAB480)
      INCLUDE AOSB3(IEFAB481)
      INCLUDE AOSB3(IEFAB485)
      INCLUDE AOSB3(IEFAB486)
      INCLUDE AOSB3(IEFAB487)
      INCLUDE AOSB3(IEFAB488)
      INCLUDE AOSB3(IEFAB489)
      INCLUDE AOSB3(IEFAB48A)
      INCLUDE AOSB3(IEFAB490)
      INCLUDE AOSB3(IEFAB491)
      INCLUDE AOSB3(IEFAB492)
      INCLUDE AOSB3(IEFAB493)
      INCLUDE AOSB3(IEFAB494)
      INCLUDE AOSB3(IEFAB495)
      INCLUDE AOSB3(IEFAB496)
      INCLUDE AOSB3(IEFAB498)
      INCLUDE AOSB3(IEFAB499)
      INCLUDE AOSB3(IEFAB49A)
      INCLUDE AOSB3(IEFAB49B)
      INCLUDE AOSB3(IEFAB49C)
      INCLUDE AOSB3(IEFAB4A0)
      INCLUDE AOSB3(IEFAB4A2)
      INCLUDE AOSB3(IEFAB4A3)
      INCLUDE AOSB3(IEFAB4A4)
      INCLUDE AOSB3(IEFAB4A6)
      INCLUDE AOSB3(IEFAB4A8)
      INCLUDE AOSB3(IEFAB4B0)
      INCLUDE AOSB3(IEFAB4B2)
      INCLUDE AOSB3(IEFAB4SF)
      INCLUDE AOSB3(IEFDB4A0)
      INCLUDE AOSB3(IEFDB4A1)
      INCLUDE AOSB3(IEFDB4FA)
      INCLUDE AOSB3(IEFDB4FB)
      INCLUDE AOSB3(IEFDB4FC)
      INCLUDE AOSB3(IEFDB4FD)
      INCLUDE AOSB3(IEFDB4FE)
      INCLUDE AOSB3(IEFDB4FF)
      INCLUDE AOSB3(IEFDB4F9)
      INCLUDE AOSB3(IEFDB4F8)
      INCLUDE AOSB3(IEFDB400)
      INCLUDE AOSB3(IEFDB401)
      INCLUDE AOSB3(IEFDB402)
      INCLUDE AOSB3(IEFDB403)
      INCLUDE AOSB3(IEFDB410)
      INCLUDE AOSB3(IEFDB411)
      INCLUDE AOSB3(IEFDB412)
      INCLUDE AOSB3(IEFDB413)
      INCLUDE AOSB3(IEFDB414)
      INCLUDE AOSB3(IEFDB417)
      INCLUDE AOSB3(IEFDB418)
      INCLUDE AOSB3(IEFDB450)
      INCLUDE AOSB3(IEFDB460)
      INCLUDE AOSB3(IEFDB470)
      INCLUDE AOSB3(IEFDB480)
      INCLUDE AOSB3(IEFDB481)
      INCLUDE AOSB3(IEFDB490)
      INCLUDE AOSB3(IEFBB401)
      INCLUDE AOSB3(IEFBB402)
      INCLUDE AOSB3(IEFBB404)
      INCLUDE AOSB3(IEFBB410)
      INCLUDE AOSB3(IEFBB412)
      INCLUDE AOSB3(IEFBB414)
      INCLUDE AOSB3(IEFBB416)
      INCLUDE AOSB3(IEFBB4M1)
      INCLUDE AOSB3(IEFBB4M2)
      INCLUDE AOSB3(IEFBB4M3)
      INCLUDE AOSB3(IEFBB4M4)
      INCLUDE AOSB3(IEFBB4M5)
      ORDER IEFDB400
      ORDER IEFDB401
      ORDER IEFAB4F7(P)
      ORDER IEFAB4F6
      ORDER IEFDB4FF
      ORDER IEFDB4FC
      ORDER IEFDB4FA
      ORDER IEFDB410(P)
      ORDER IEFDB412
      ORDER IEFDB411
      ORDER IEFAB4DC
      ORDER IEFDB417
      ORDER IEFAB4E9
      ORDER IEFAB445
      ORDER IEFDB413
      ORDER IEFDB414
      ORDER IEFDB418
      ORDER IEFDB4FE
      ORDER IEFDB4F9
      ORDER IEFDB4F8
      ORDER IEFDB4FD
      ORDER IEFDB480
      ORDER IEFDB481
      ORDER IEFDB4A0
      ORDER IEFDB4A1
      ORDER IEFDB470
      ORDER IEFDB450
      ORDER IEFDB460
      ORDER IEFDB490
      ORDER IEFBB401
      ORDER IEFAB4FE
      ORDER IEFBB402
      ORDER IEFBB404
      ORDER IEFBB4M3
      ORDER IEFAB451
      ORDER IEFAB452
      ORDER IEFAB453
      ORDER IEFAB470
      ORDER IEFAB454
      ORDER IEFAB457
      ORDER IEFAB464
      ORDER IEFAB459
      ORDER IEFAB421
      ORDER IEFAB427
      ORDER IEFAB431
      ORDER IEFAB423
      ORDER IEFAB424
      ORDER IEFAB425
      ORDER IEFAB426
      ORDER IEFAB430
      ORDER IEFAB433
      ORDER IEFAB436(P)
      ORDER IEFAB440(P)
      ORDER IEFAB4F0
      ORDER IEFAB434(P)
      ORDER IEFAB428
      ORDER IEFAB4FC
      ORDER IEFAB435(P)
      ORDER IEFAB441
      ORDER IEFAB442
      ORDER IEFAB432
      ORDER IEFAB490
      ORDER IEFAB4F3
      ORDER IEFAB4FD
      ORDER IEFAB471(P)
      ORDER IEFAB4FA(P)
      ORDER IEFAB473(P)
      ORDER IEFAB4M5
      ORDER IEFAB4F9
      ORDER IEFAB4F8
      ORDER IEFAB475
      ORDER IEFAB476
      ORDER IEFAB480
      ORDER IEFAB4F2(P)
      ORDER IEFAB492
      ORDER IEFAB493
      ORDER IEFAB494(P)
      ORDER IEFAB495
      ORDER IEFBB410(P)
      ORDER IEFBB412
      ORDER IEFBB414
      ORDER IEFBB416
      ORDER IEFAB4EC
      ORDER IEFAB4A0
      ORDER IEFAB4A2(P)
      ORDER IEFAB4SF
      ORDER IEFAB4A4(P)
      ORDER IEFAB4A6
      ORDER IEFAB4A8
 ALIAS IGC0009I
 ALIAS IEFAB4DC
 ALIAS IEFBB410
 ALIAS IEFAB49C
 ALIAS IEFAB4F5
 ALIAS IEFAB4F4
 ALIAS IEFAB4UV
 ALIAS IEFAB445
 ALIAS IEFAB4EC
 ALIAS IEFAB4SF
 ENTRY IEFBB401
 NAME  IEFW21SD(R)
 INCLUDE AOSB3(IEFAB4E5)
 INCLUDE AOSB3(IEFAB4F6)
 CHANGE IEFBR14(IEFAB4E1)
 INCLUDE AOSB3(IEFBR14)
 INCLUDE AOSB3(IEFAB4FA)
 INCLUDE AOSB3(IEFAB498)
 ENTRY IEFAB4E5
 NAME  IEFAB4E5(R)
/*
//SG14 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOS00 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS00
//SYSLIN DD *
 INCLUDE AOSB3(IEFJRECM)
 INCLUDE AOSB3(IEFISEXR)
 ORDER IEFJRECM
 ORDER IEFISEXR
 ENTRY IEFJRECM
 NAME  IEFJRECM(R)
 INCLUDE AOSB3(IEFIRECM)
 INCLUDE AOSB3(IEFISEXR)
 ORDER IEFIRECM
 ORDER IEFISEXR
 ENTRY IEFIRECM
 NAME  IEFIRECM(R)
 INCLUDE AOS00(IEEMB829)
 INCLUDE AOS00(IEEMB828)
 INCLUDE AOS00(IEEMB825)
 INCLUDE AOS00(IEEMB826)
 INCLUDE AOS00(IEEMB827)
 INCLUDE AOS00(IEFU29)
 ORDER IEEMB829
 ORDER IEFU29
 ORDER IEEMB828
 ORDER IEEMB825
 ORDER IEEMB826
 ORDER IEEMB827
 ENTRY IEEMB829
 NAME  IEEMB829(R)
 INCLUDE AOS00(IEFU83)
 ENTRY IEFU83
 NAME IEFU83(R)
 INCLUDE AOSB3(IEECB800)
 INCLUDE AOSB3(IEECB801)
 ENTRY IEECB800
 NAME IEECB800(R)
 INCLUDE AOSB3(IEECB860)
 NAME IEECB860(R)
 INCLUDE AOSB3(IEESB665)
 NAME IEESB665(R)
/*
//SG15 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSC5(IEAVRTOD)
 ALIAS IEAVRINT,IEAVRSSC
 ALIAS IEAVRCAN,IEAVRNOT
 NAME  IEAVRTOD(R)
 INCLUDE AOSB3(IEEVWAIT)
 NAME IEEVWAIT(R)
 INCLUDE AOSB3(IEEVSTAR,IEEVJCL)
 ENTRY IEEVSTAR
 NAME IEEVSTAR(R)
 INCLUDE AOSB3(IEEPRWI2)
 NAME IEEPRWI2(R)
 INCLUDE AOSB3(IEEVMNT1)
 INCLUDE AOSB3(IEEVJCL)
 ENTRY IEEVMNT1
 NAME IEEVMNT1(R)
 INCLUDE AOSB3(IEEVMNT2)
 INCLUDE AOSB3(IEEVSMSG)
 ENTRY IEEVMNT2
 NAME IEEVMNT2(R)
 INCLUDE AOSB3(IEEMB810)
 NAME IEEMB810(R)
 INCLUDE AOSB3(IEEMB811)
 INCLUDE AOSB3(IEEMB876)
 ENTRY IEEMB811
 NAME IEEMB811(R)
 INCLUDE AOSB3(IEEMB812)
 INCLUDE AOSC5(IRBMFANL,IRARMIPS)
 ORDER IEEMB812(P)
 ORDER IRBMFANL
 ORDER IRARMIPS(P)
 ENTRY IEEMB812
 NAME IEEMB812(R)
 INCLUDE AOSB3(IEESB605)
 INCLUDE AOSB3(IEESB601)
 INCLUDE AOSB3(IEFAB4F6)
 INCLUDE AOSB3(IEFAB4FC)
 INCLUDE AOSB3(IEFJSWT)
 INCLUDE AOSB3(IEEVSMSG)
 ORDER IEESB605
 ORDER IEFJSWT
 ORDER IEESB601
 ORDER IEFAB4FC
 ORDER IEEVSMSG
 ENTRY IEESB605
 ALIAS IEEVIC,IEEVICER
 NAME  IEESB605(R)
 INCLUDE AOSB3(IEESB670)
 NAME  IEESB670(R)
 INCLUDE AOSB3(IEEMB808)
 INCLUDE AOSB3(IEEMB809)
 INCLUDE AOSB3(IEEMB816)
 ORDER IEEMB808(P)
 ORDER IEEMB809
 ORDER IEEMB816
 ALIAS IEEMB809
 ENTRY IEEMB808
 NAME  IEEMB808(R)
 INCLUDE AOSB3(IEFVHA)
 INCLUDE AOSB3(IEFVHC,IEFVHCB)
 INCLUDE AOSB3(IEFVINE,IEFVHM,IEFVHL)
 INCLUDE AOSB3(IEFVINA)
 INCLUDE AOSB3(IEFVIND)
 INCLUDE AOSB3(IEFVINB)
 INCLUDE AOSB3(IEFVINC)
 INCLUDE AOSB3(IEFVHEB)
 INCLUDE AOSB3(IEFNB9CR)
 INCLUDE AOSB3(IEFNB9CT)
 INCLUDE AOSB3(IEFVFA,IEFVFB)
 INCLUDE AOSB3(IEFVGM)
 INCLUDE AOSB3(IEFVHQ)
 INCLUDE AOSB3(IEFVHR)
 INCLUDE AOSB3(IEFVHF)
 INCLUDE AOSB3(IEFVH1)
 INCLUDE AOSB3(IEZNCODE)
 INCLUDE AOSB3(IEZDCODE)
 INCLUDE AOSB3(IEFVGM90)
 ENTRY IEFVH1
 NAME IEFVH1(R)
 INCLUDE AOSB3(IEFVHE)
 INCLUDE AOSB3(IEFVJA,IEFVEA,IEFVGK,IEFVGT)
 INCLUDE AOSB3(IEFVDA,IEFVGI,IEFVGS,IEFVDBSD)
 INCLUDE AOSB3(IEFVHH)
 INCLUDE AOSB3(IEFVGM)
 INCLUDE AOSB3(IEFVHQ)
 INCLUDE AOSB3(IEFVHR)
 INCLUDE AOSB3(IEFVHN)
 INCLUDE AOSB3(IEFNB903)
 INCLUDE AOSB3(IEFNB901)
 INCLUDE AOSB3(IEFNB9IR)
 INCLUDE AOSB3(IEFNB9IT)
 ENTRY IEFNB903
 NAME IEFNB903(R)
 INCLUDE AOSB3(IEFNB902)
 NAME IEFVAMP(R)
/*
//SG16 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOSA1 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSA1
//SYSLIN DD *
 INCLUDE AOSB3(IEFBR14)
 NAME IEFBR14(R)
 INCLUDE AOSB3(IEFIB600)
 INCLUDE AOSB3(IEFIB645)
 INCLUDE AOSB3(IEFIB605,IEFXB601)
 INCLUDE AOSB3(IEFXB603,IEFXB609)
 INCLUDE AOSA1(IDAVBPJ2,IDDWIMRG)
 ORDER IEFIB600
 ORDER IEFIB605
 ORDER IEFXB601
 ORDER IDAVBPJ2,IDDWIMRG
 ORDER IEFIB645
 ORDER IEFXB603,IEFXB609
 ALIAS IEFXB603
 ENTRY IEFIB600
 NAME IEFIB600(R)
 INCLUDE AOSB3(IEFXB602)
 ALIAS IEF602
 NAME IEFXB602(R)
      INCLUDE AOSB3(IEFXB610)
 NAME  IEFXB610(R)
 INCLUDE AOSB3(IEEXEDNA)
 ENTRY IEEXEDNA
 NAME IEEXEDNA(R)
/*
//SG17 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT,AC=1',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//SYSLIN DD *
      INCLUDE AOSB3(IEFRSTRT)
 ALIAS IEFSMR
 NAME  IEFRSTRT(R)
/*
//SG18 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//SYSLIN DD *
 INCLUDE AOSB3(IEEPRTN2)
 ALIAS IEERGN
 NAME IEEPRTN(R)
      INCLUDE AOSB3(IEFJSREQ)
 NAME  IEFJSREQ(R)
      INCLUDE AOSB3(IEFJSDTN)
 NAME  IEFJSDTN(R)
      INCLUDE AOSB3(IEFJRASP)
 NAME  IEFJRASP(R)
      INCLUDE AOSB3(IEFJDSNA)
 NAME  IEFJDSNA(R)
      INCLUDE AOSB3(IEFJJTRM)
 NAME  IEFJJTRM(R)
 INCLUDE AOSB3(IEFJJOBS)
 INCLUDE AOSB3(IEFJCNTL)
 INCLUDE AOSB3(IEFJWTOM)
 INCLUDE AOSB3(IEFJJCLS)
 INCLUDE AOSB3(IEFJCDLT)
 INCLUDE AOSB3(IEFJACTL)
 INCLUDE AOSB3(IEFJREAD)
 INCLUDE AOSB3(IEFJWRTE)
 INCLUDE AOSB3(IEFJDIRD)
 INCLUDE AOSB3(IEFJDWRT)
 ORDER IEFJJOBS
 ORDER IEFJJCLS
 ORDER IEFJCNTL
 ORDER IEFJCDLT
 ORDER IEFJACTL
 ORDER IEFJREAD
 ORDER IEFJWRTE
 ORDER IEFJDWRT
 ORDER IEFJWTOM
 ORDER IEFJDIRD
 ENTRY IEFJJOBS
 NAME  IEFJSUBI(R)
 INCLUDE SYSPUNCH(IEFSDPPT)
 INCLUDE AOSB3(IEFIIC)
 INCLUDE AOSB3(IEFSD160)
 INCLUDE AOSB3(IEFIB620)
 INCLUDE AOSB3(IEFIB621)
 INCLUDE AOSB3(IEFI922B)
 INCLUDE AOSB3(IEFIB650)
 INCLUDE AOSB3(IEFSD161)
 INCLUDE AOSB3(IEFDSTBL)
 INCLUDE AOSB3(IEFDSLST)
 INCLUDE AOSB3(IEFICPUA)
 INCLUDE AOSB3(IEFIMASK)
 INCLUDE AOSB3(IEFSD101)
 INCLUDE AOSB3(IEFSMFIE)
 INCLUDE AOSB3(IEFUJI)
 INCLUDE AOSB3(IEFUSI)
 INCLUDE AOSB3(IEFSD102)
 INCLUDE AOSB3(IEFSD162)
 INCLUDE AOSB3(IEFICATL)
 INCLUDE AOSB3(IEFQB585)
 INCLUDE AOSB3(IEFXB604)
 INCLUDE AOSB3(IEFXB500)
 INCLUDE AOSB3(IEFSD103)
 INCLUDE AOSB3(IEFSD263)
 INCLUDE AOSB3(IEFAB820)
 INCLUDE AOSB3(IEFIB660)
 INCLUDE AOSB3(IEFUTL)
 INCLUDE AOSB3(IEFSD164)
 INCLUDE AOSB3(IEFSD166)
 ORDER IEFIIC
 ORDER IEFSD060
 ORDER IEFIB620
 ORDER IEFIB621
 ORDER IEFI922B
 ORDER IEFIB650
 ORDER IEFSD061
 ORDER IEFDSTBL
 ORDER IEFDSLST
 ORDER IEFICPUA
 ORDER IEFIMASK
 ORDER IEFSD101
 ORDER IEFSMFIE
 ORDER IEFUJI
 ORDER IEFUSI
 ORDER IEFSDPPT
 ORDER IEFSD102
 ORDER IEFSD062
 ORDER IEFICATL
 ORDER IEFQB585
 ORDER IEFXB604
 ORDER IEFXB500
 ORDER IEFSD103
 ORDER IEFSD263
 ORDER IEFAB820
 ORDER IEFIB660
 ORDER IEFUTL
 ORDER IEFSD064
 ORDER IEFSD066
 ALIAS IEFIIC
 ENTRY IEFSD060
 NAME IEFSD060(R)
 INCLUDE AOSB3(IEFUJV)
 NAME IEFUJV(R)
 INCLUDE AOSB3(IEFQB550,IEFQB555)
 INCLUDE AOSB3(IEFQB580)
 INCLUDE AOSB3(IEFXB500)
 ORDER IEFQB550(P)
 ORDER IEFQB555
 ORDER IEFQB580
 ORDER IEFXB500
 ALIAS IEFQB555,IEFQB580
 ALIAS IEFXB500
 ENTRY IEFQB550
 NAME IEFQB550(R)
 INCLUDE AOSB3(IEFQB585)
 ALIAS IEFQBVMS,IEFQMLK1
 ALIAS IEFQMSSS,IEFQMRAW
 ALIAS IEFQAGST,IEFQASGN
 ALIAS IEFQDELQ,IEFQDELE
 ALIAS IEFQASGQ
 ENTRY IEFQB585
 NAME IEFQB585(R)
 INCLUDE AOSB3(IEFVGM1)
 NAME IEFVGM1(R)
 INCLUDE AOSB3(IEFVGM2)
 NAME IEFVGM2(R)
 INCLUDE AOSB3(IEFVGM3)
 NAME IEFVGM3(R)
 INCLUDE AOSB3(IEFVGM4)
 NAME IEFVGM4(R)
 INCLUDE AOSB3(IEFVGM5)
 NAME IEFVGM5(R)
 INCLUDE AOSB3(IEFVGM6)
 NAME IEFVGM6(R)
 INCLUDE AOSB3(IEFVGM7)
 NAME IEFVGM7(R)
 INCLUDE AOSB3(IEFVGM8)
 NAME IEFVGM8(R)
 INCLUDE AOSB3(IEFVGM9)
 NAME IEFVGM9(R)
 INCLUDE AOSB3(IEFVGM10)
 NAME IEFVGM10(R)
 INCLUDE AOSB3(IEFVGM11)
 NAME IEFVGM11(R)
 INCLUDE AOSB3(IEFVGM12)
 NAME IEFVGM12(R)
 INCLUDE AOSB3(IEFVGM13)
 NAME IEFVGM13(R)
 INCLUDE AOSB3(IEFVGM14)
 NAME IEFVGM14(R)
 INCLUDE AOSB3(IEFVGM15)
 NAME IEFVGM15(R)
 INCLUDE AOSB3(IEFVGM16)
 NAME IEFVGM16(R)
 INCLUDE AOSB3(IEFVGM17)
 NAME IEFVGM17(R)
 INCLUDE AOSB3(IEFVGM18)
 NAME IEFVGM18(R)
 INCLUDE AOSB3(IEFVGM19)
 NAME IEFVGM19(R)
 INCLUDE AOSB3(IEFVGM67)
 NAME IEFVGM67(R)
 INCLUDE AOSB3(IEFVGM70)
 NAME IEFVGM70(R)
 INCLUDE AOSB3(IEFVGM71)
 NAME IEFVGM71(R)
 INCLUDE AOSB3(IEFVGM76)
 NAME IEFVGM76(R)
 INCLUDE AOSB3(IEFVGM78)
 NAME IEFVGM78(R)
/*
//SG19 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,REUS,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//*WARNING MSG IEW0461 EXPECTED FOR USER EXIT MODULE IKJEFLD
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//* MSG IEW0461 EXPECTED FOR IKJEGSCD AND IKJEGSCU
//SYSLIN DD *
 INCLUDE SYSPUNCH(IKJEFLP0)
 INCLUDE AOST4(IKJEFLA,IKJEFLB,IKTLOGFF)
 INCLUDE AOST4(IKTIIOM,IKTXINIT,IKJEFLC)
 INCLUDE AOST4(IKJEFLCM,IKJEFLE,IKJEFLEA)
 INCLUDE AOST4(IKTXLOG,IKTLOGR,IKTRPLXT)
 INCLUDE AOST4(IKJEFLG,IKJEFLGB,IKJEFLGH)
 INCLUDE AOST4(IKJEFLH,IKJEFLI,IKJEFLJ)
 INCLUDE AOST4(IKJEFLK,IKJEFLL,IKJEFLLM)
 INCLUDE AOST4(IKJEFLGN,IKJEFLPA)
 INCLUDE AOST4(IKJEFLS,IKJEFLGM)
 ORDER   IKJEFLA(P),IKJEFLB,IKTLOGFF,IKTIIOM
 ORDER   IKTXINIT,IKTRPLXT,IKJEFLEA
 ORDER   IKTXLOG,IKTLOGR
 ORDER   IKJEFLC,IKJEFLCM
 ORDER   IKJEFLE,IKJEFLG,IKJEFLGB
 ORDER   IKJEFLGH,IKJEFLGN,IKJEFLH,IKJEFLI
 ORDER   IKJEFLJ,IKJEFLK,IKJEFLL,IKJEFLLM
 ORDER   IKJEFLPA,IKJEFLS,IKJEFLP0
 ORDER   IKJEFLGM
 ENTRY   IKJEFLA
 ALIAS   IKJEFLC,IKJLB1,IKJLJ1,IKJLM1,IKJLK1
 ALIAS   IKJEFLES
 NAME    IKJEFLA(R)
    INCLUDE AOST4(IKJEFLF)
    INCLUDE AOST4(IKJL4T00)
 ENTRY IKJEFLF
 NAME  IKJEFLF(R)
    INCLUDE AOST4(IKJEFP00,IKJEFP10,IKJEFP20)
    INCLUDE AOST4(IKJEFP03)
    ENTRY IKJPARS
 NAME IKJPARS(R)
    INCLUDE AOST4(IKJEFP60)
    ENTRY IKJPARS2
 NAME IKJPARS2(R)
    INCLUDE AOST4(IKJEFP30,IKJEFP40)
    ENTRY IKJSCAN
 NAME IKJSCAN(R)
    ORDER IKJEFT30,IKJEFT35,IKJEFT40,IKJEFT45
    ORDER IKJEFT52,IKJEFT53,IKJEFT54,IKJEFT55
    ORDER IKJEFT56,IKJRBBMC,IKJCT433,IKJCT434
    ORDER IKJCT436
    INCLUDE AOST4(IKJEFT30,IKJEFT35,IKJEFT40)
    INCLUDE AOST4(IKJEFT45,IKJEFT52,IKJEFT53)
    INCLUDE AOST4(IKJEFT54,IKJEFT55,IKJEFT56)
    INCLUDE AOST4(IKJRBBMC)
    INCLUDE AOST4(IKJCT433,IKJCT434,IKJCT436)
    ALIAS IKJGETL,IKJPUTL,IKJSTCK
    ENTRY IKJPTGT
 NAME IKJPTGT(R)
    INCLUDE AOST4(IEFDB4D0)
    ALIAS IKJDAIR,IKJEFD00
    ENTRY IEFDB4D0
 NAME IEFDB4D0(R)
    INCLUDE AOST4(IKJEFT02,IKJEFT03,IKJEFT06)
    INCLUDE AOST4(IKJEFTNS,IKJEFT08)
    INCLUDE AOST4(IKJEFTE2,IKJEFTE8)
    ORDER IKJEFT02(P)
    ORDER IKJEFTNS
    ORDER IKJEFTE2
    ORDER IKJEFT03
    ORDER IKJEFT06
    ORDER IKJEFT08
    ORDER IKJEFTE8
    ENTRY IKJEFT02
    ALIAS IKJEFT03
    ALIAS IKJEFT0B
    NAME IKJEFT02(R)
    INCLUDE AOST4(IKJEFT01,IKJEFT06)
    INCLUDE AOST4(IKJEFTSC)
    ORDER IKJEFT01(P)
    ORDER IKJEFT06
    ALIAS IKJEFT0A
    ENTRY IKJEFT01
    SETCODE AC(1)
 NAME IKJEFT01(R)
    INCLUDE AOST4(IKJEFT04)
    INCLUDE AOST4(IKJEFT05,IKJEFT06)
    ORDER IKJEFT04(P)
    ORDER IKJEFT05
    ORDER IKJEFT06
    ENTRY IKJEFT04
    ALIAS IKJEFT05
    ALIAS IKJEFT0D
    ALIAS IKJEFT0E
    NAME IKJEFT04(R)
    INCLUDE AOST4(IKJEFT06,IKJEFT07)
    ORDER IKJEFT07(P)
    ORDER IKJEFT06
    ENTRY IKJEFT07
    NAME IKJEFT07(R)
    INCLUDE AOST4(IKJEFT09)
    ENTRY IKJEFT09
    NAME IKJEFT09(R)
    INCLUDE AOST4(IKJEFF00)
    INCLUDE AOST4(IKJEFF77)
    ENTRY IKJEFF00
 NAME IGC0010{(R)
    INCLUDE AOST4(IKJEFF76)
    INCLUDE AOST4(IKJEFF20)
    ENTRY IKJEFF76
    SETCODE AC(1)
 NAME IKJEFF76(R)
    INCLUDE AOST4(IKJCB831)
    ALIAS GENTRANS
 NAME IKJCB831(R)
 INCLUDE ACMDLIB(IGC0006A)
 INCLUDE ACMDLIB(IKJEGSTA)
 INCLUDE ACMDLIB(IGC0009G)
 INCLUDE ACMDLIB(IKJEGMSG)
 INCLUDE ACMDLIB(IKJEGIO)
 ORDER IGC0006A(P)
 ENTRY IGC0006A
 ALIAS IGC0009G
 NAME IGC0006A(R)
 INCLUDE AOST4(IGX00026)
 ENTRY IGX00026
 NAME IGX00026(R)
 INCLUDE AOST4(IGX00027)
 ENTRY IGX00027
 NAME IGX00027(R)
 INCLUDE AOST4(IKJTTRM0)
 ENTRY IKJTTRM0
 NAME IKJTTRM0(R)
/*
//SG20 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSC5(IEEVDEV)
 NAME IEEVDEV(R)
 ORDER IEEVWKUP(P),IEEVCPU,IEECLEAN
 INCLUDE AOSC5(IEEVWKUP)
 INCLUDE AOSC5(IEEVCPU)
 INCLUDE AOSC5(IEECLEAN)
 ALIAS IEEVWKUP
 ALIAS IEEVDSS
 ALIAS IEEVCH
 ENTRY IEEVCPU
 NAME IEEVCPU(R)
 INCLUDE AOSC5(IEEVPTH)
 NAME IEEVPTH(R)
 ORDER IEEVALST(P),IEEMPVST
 INCLUDE AOSC5(IEEVALST)
 INCLUDE AOSC5(IEEMPVST)
 ENTRY IEEMPVST
 NAME IEEMPVST(R)
 INCLUDE AOSC5(IEEMPS03)
 NAME IEEMPS03(R)
 INCLUDE AOSC5(IEEMPDM)
 NAME IEEMPDM(R)
/*
//SG21 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//AOSCE DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSCE
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSB3
//SYSLIN DD *
 ORDER IEAVAD00(P),IEAVAD03(P)
 ORDER IEAVAD01(P),IEAVAD0B
 ORDER IEAVAD02(P),IEAVAD05,IEAVAD09,IEAVADFM
 ORDER IEAVAD06(P),IEAVAD07,IEAVAD08
 ORDER IEAVAD11(P),IEAVAD31,IEAVAD51,IEAVAD71,IEAVAD0A
 ORDER IEAVAD0E(P),IEAVAD0F,IEAVAD10
 ORDER IEAVAD0C(P),IEAVAD0D
 ORDER IEAVTSDG(P),IEAVTSDC,IEAVTSSE
 ORDER IEAVTSDL(P),IEAVTSDF
 ORDER IEAVTSDT(P),IEAVTSDH,IEAVTSDU
 ORDER IEAVTSDO,IEAVTSDW
 INCLUDE AOSC5(IEAVTSDG,IEAVTSDC,IEAVTSDL)
 INCLUDE AOSC5(IEAVTSDF,IEAVTSDT,IEAVTSDH)
 INCLUDE AOSC5(IEAVTSDO,IEAVTSDW,IEAVTSDU)
 INCLUDE AOSC5(IEAVAD01,IEAVAD02,IEAVAD03)
 INCLUDE AOSC5(IEAVAD05,IEAVAD06,IEAVAD07,IEAVAD08)
 INCLUDE AOSC5(IEAVAD0A,IEAVAD0B,IEAVAD0C)
 INCLUDE AOSC5(IEAVAD0D,IEAVAD00,IEAVAD11,IEAVAD31)
 INCLUDE AOSC5(IEAVAD51,IEAVAD71)
 INCLUDE AOSC5(IEAVAD0E,IEAVAD0F,IEAVAD10)
 INCLUDE AOSC5(IEAVAD09,IEAVADFM)
 INCLUDE AOSC5(IEAVTSSE)
 ALIAS IEAVTSDT
 ALIAS IEAVTSDA
 ENTRY IEAVAD00
 NAME IGC0005A(R)
 INCLUDE AOSC5(IEECB910,IEECB911,IEECB912)
 ENTRY IEECB910
 NAME IEECB910(R)
 INCLUDE AOSC5(IEAVADUS)
 ENTRY IEAVADUS
 NAME IGC0905A(R)
 INCLUDE AOSC5(IEAVTRET)
 INCLUDE AOSCE(IGFPWMSG)
 ENTRY IEAVTRET
 NAME IEAVTRET(R)
 INCLUDE AOSC5(IEAVTSSD)
 ENTRY IEAVTSSD
 NAME IEAVTSSD(R)
 INCLUDE AOSC5(IEECB905)
 INCLUDE AOSC5(IEECB906)
 INCLUDE AOSC5(IEECB907)
 INCLUDE AOSC5(IEECB908)
 INCLUDE AOSC5(IEECB909)
 INCLUDE AOSC5(IEECB914)
 INCLUDE AOSC5(IEECB915)
 ALIAS IEECB907
 ALIAS IEECB914
 ENTRY IEECB905
 NAME IEECB905(R)
 ORDER IEAVTSLP(P),IEAVTSLB,IEAVTSLE
 ORDER IEAVTSL1,IEAVTSL2,IEAVTSLS,IEAVTSLR
 ORDER IEAVTGLB,IEAVTSIG
 ORDER IEAVTADR,IEAVTJBN,IEAVTLCL
 INCLUDE AOSC5(IEAVTSLP)
 INCLUDE AOSC5(IEAVTSLB,IEAVTSLE)
 INCLUDE AOSC5(IEAVTSL1,IEAVTSL2,IEAVTSLS)
 INCLUDE AOSC5(IEAVTSLR,IEAVTGLB,IEAVTSIG)
 INCLUDE AOSC5(IEAVTADR,IEAVTJBN,IEAVTLCL)
 ALIAS IEAVTADR
 ALIAS IEAVTGLB
 ALIAS IEAVTJBN
 ENTRY IEAVTSLP
 NAME IEAVTSLP(R)
 INCLUDE AOSC5(IEAVID00)
 ENTRY IGC041
 NAME IGC0004A(R)
 INCLUDE AOSC5(IEAVEMCR,IEAVEMIN)
 INCLUDE AOSB3(IEESB606)
 ALIAS IEEVEMCR
 ENTRY IEAVEMCR
 NAME IEAVEMCR(R)
 INCLUDE AOSC5(ILRTMRLG,ILRSAV,ILRACT)
 INCLUDE AOSC5(ILRRLG,ILRVSAMI,ILRTMI01)
 ALIAS ILRSAV,ILRACT,ILRRLG,ILRVSAMI
 ALIAS ILRTMI01,ILRTMRLG
 ENTRY ILRTMRLG
 NAME ILRGROUP(R)
/*
//SG22 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//AOS21 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOS21
//AOST3 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOST3
//SYSLIN DD *
 INCLUDE AOSC5(IEAVTRT2,IEAVTAS1,IEAVTAS2)
 INCLUDE AOSC5(IEAVTAS3,IEAVTSKT,IEAVTMMT)
 INCLUDE AOSC5(IEAVTABD,IEAVTRML,IEAVTMRM)
 INCLUDE AOSC5(IEAVTRTC,IEAVTRTE)
 INCLUDE AOSC5(IEAVEMDL,IEAVTPMT)
 INCLUDE AOS21(IEDQOT01)
 INCLUDE AOST3(IEDAY8,IKTAY8)
 INCLUDE AOSC5(IEAVAR07)
 ALIAS IEDAY802
 ENTRY IEAVTRT2
 NAME IGC0001C(R)
/*
//SG23 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSB3
//SYSLIN DD *
 INCLUDE AOSC5(IEAVAX00)
 ENTRY IGC0009F
 NAME IGC0009F(R)
 INCLUDE AOSC5(IEAVAR00,IEAVAR01,IEAVAR03)
 INCLUDE AOSC5(IEAVAR04,IEAVAR05)
 INCLUDE AOSC5(IEAVAR06)
 ALIAS IEAVAR06
 ENTRY IEAVAR00
 NAME IEAVAR00(R)
 ORDER IEAVMWSV(P),IEAVMDSV,IEAVMQWR
 ORDER IEAVMDOM,IEAVSTAA
 INCLUDE AOSC5(IEAVMDSV,IEAVMQWR,IEAVMWSV)
 INCLUDE AOSC5(IEAVSTAA,IEAVMDOM)
 ALIAS IEAVSTAA
 ALIAS IEAVMQWR
 ALIAS IEECMENQ
 ENTRY IEAVMQWR
 NAME IEAVCTSK(R)
 ORDER IEAVVWTO(P),IEAVMWTO,IGC0203E,IEECVXIT
 INCLUDE AOSC5(IEAVMWTO,IEAVVWTO)
 INCLUDE AOSB3(IGC0203E)
 INCLUDE AOSC5(IEECVXIT)
 ENTRY IEAVVWTO
 NAME IGC0003E(R)
 INCLUDE AOSC5(IEAVMFRR)
 ALIAS IEAVMEST
 NAME IEAVMFRR(R)
 INCLUDE AOSC5(IEAVMED2)
 ALIAS IEECVPRG
 NAME IEAVMED2(R)
/*
//SG24 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,REFR,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSC5(IGX00013)
 INCLUDE AOSC5(IRBMFFUR)
 INCLUDE AOSC5(IRBMFSDE)
 INCLUDE AOSC5(IRBMFTMA)
 INCLUDE AOSC5(IRBMFIOI)
 ENTRY IGX00013
 NAME IGX00013(R)
 INCLUDE AOSC5(IEAVTB00)
 ALIAS IEAVSPIE
 ALIAS IEAVSPI
 ALIAS IGC0001D
 ENTRY IGC00040
 NAME IGC0004{(R)
/*
//SG25 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,REFR,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSC5(IEAVEAT0)
 ENTRY IGC0004B
 NAME IGC0004B(R)
 INCLUDE AOSC5(IEAVRT01)
 NAME IGC0001A(R)
 INCLUDE AOSC5(IEAVRT00)
 ALIAS IGC0004G
 NAME IGC0004F(R)
/*
//SG26 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSC5(IEAV1443)
 INCLUDE AOSC5(IEECVET1)
 INCLUDE AOSC5(IEECVET2)
 INCLUDE AOSC5(IEECVET3)
 INCLUDE AOSC5(IEECVET4)
 INCLUDE AOSC5(IEECVET6)
 INCLUDE AOSC5(IEECVET7)
 INCLUDE AOSC5(IEECVET8)
 INCLUDE AOSC5(IEECVET9)
 INCLUDE AOSC5(IEECVETA)
 INCLUDE AOSC5(IEECVETC)
 INCLUDE AOSC5(IEECVETD)
 INCLUDE AOSC5(IEECVETE)
 INCLUDE AOSC5(IEECVETF)
 INCLUDE AOSC5(IEECVETG)
 INCLUDE AOSC5(IEECVETH)
 INCLUDE AOSC5(IEECVETJ)
 INCLUDE AOSC5(IEECVETK)
 INCLUDE AOSC5(IEECVETP)
 INCLUDE AOSC5(IEECVETQ)
 INCLUDE AOSC5(IEECVETR)
 INCLUDE AOSC5(IEECVETU)
 INCLUDE AOSC5(IEECVETV)
 INCLUDE AOSC5(IEECVETW)
 INCLUDE AOSC5(IEECVFT1)
 INCLUDE AOSC5(IEECVFT2)
 INCLUDE AOSC5(IEECVFTA)
 INCLUDE AOSC5(IEECVFTB)
 INCLUDE AOSC5(IEECVFTD)
 INCLUDE AOSC5(IEECVFTG)
 INCLUDE AOSC5(IEECVFTL)
 INCLUDE AOSC5(IEECVFTM)
 INCLUDE AOSC5(IEECVFTN)
 INCLUDE AOSC5(IEECVFTO)
 INCLUDE AOSC5(IEECVFTP)
 INCLUDE AOSC5(IEECVFTQ)
 INCLUDE AOSC5(IEECVFTT)
 INCLUDE AOSC5(IEECVFTR)
 INCLUDE AOSC5(IEAVVCTR,IEAV1052,IEAVSWCH)
 ALIAS IGC0107B
 ALIAS IGC5107B,IGC5W07B
 ALIAS IGC0I07B,IGC0407B
 ENTRY IEAVVCTR
 NAME IGC0007B(R)
/*
//SG27 EXEC LINKS,
// PARM='NCAL,LIST,XREF',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//SYSLIN DD *
  ALIAS DCM011
  INCLUDE SYSPUNCH(DCM010)
  NAME DCM010(R)
/*
//SG28 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSD7  DD  DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSD7
//AOSD0  DD  DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSD0
//SYSLIN DD *
 INCLUDE AOSD7(IGCT005C,IGCT105C)
 ENTRY IGCT005C
 NAME IGCT005C(R)
 INCLUDE AOSD7(IGG019KA,IGG019KE,IGG019KC,IGG019KQ)
 INCLUDE AOSD7(IGG019KI,IGG019KK,IGG019KF,IGG019KW)
 ENTRY IGG019KA
 NAME IGG019KA(R)
 INCLUDE AOSD7(IGG019KJ,IGG019KC,IGG019KQ)
 INCLUDE AOSD7(IGG019KR,IGG019KW)
 ENTRY IGG019KJ
 NAME IGG019KJ(R)
 INCLUDE AOSD7(IGG019KO,IGG019LA)
 ENTRY IGG019KO
 NAME IGG019KO(R)
 INCLUDE AOSD7(IGG019KM,IGG019KY)
 ENTRY IGG019KM
 NAME IGG019KM(R)
 INCLUDE AOSD7(IGG019KN,IGG019KY)
 ENTRY IGG019KN
 NAME IGG019KN(R)
 INCLUDE AOSD7(IGG0191L,IGG0191M,IGG0199L)
 ORDER   IGG0191L(P),IGG0191M,IGG0199L
 ALIAS   IGG0191M,IGG0199L
 ENTRY   IGG0191L               EXPECT IEW046I MESSAGES FOR:           *
                                IGG0196M
 NAME    IGG0191L(R)
 INCLUDE AOSD0(IGG0191A,IGG0196I,IGG0196A)
 ORDER   IGG0191A(P),IGG0196I,IGG0196A
 ALIAS   IGG0196I,IGG0196A
 INCLUDE AOSD0(IGG0196Q)
 ORDER   IGG0196Q
 ALIAS   IGG0196Q
 INCLUDE AOSD0(IGG0191N)
 ORDER   IGG0191N(P)
 ALIAS   IGG0191N
 INCLUDE AOSD0(IGG0191Y,IGG0191B,IGG0196B)
 ORDER   IGG0191Y(P),IGG0191B,IGG0196B
 ALIAS   IGG0191Y,IGG0191B,IGG0196B
 INCLUDE AOSD0(IGG0191I,IGG0193I)
 ORDER   IGG0191I,IGG0193I
 ALIAS   IGG0191I,IGG0193I
 INCLUDE AOSD0(IGG0191T,IGG0191U,IGG0191V)
 ORDER   IGG0191T(P),IGG0191U,IGG0191V
 ALIAS   IGG0191T,IGG0191U,IGG0191V
 INCLUDE AOSD0(IGG0197U,IGG0197E,IGG0197F)
 ORDER   IGG0197U(P),IGG0197E,IGG0197F
 ALIAS   IGG0197U,IGG0197E,IGG0197F
 ENTRY   IGG0191A               EXPECT IEW046I MESSAGES FOR:           *
                                IGG0196M,IGG01911,IGG0197L,IGG0191D,   *
                                IGG0191G,IGG0191S,IGG0191J,IGG0191K,   *
                                IGG0191L,IGG0191P,IGG0191Q,IGG0191R,   *
                                IGG0196S,IGG0197A,IGG0197C,IGG0191W,   *
                                IGG0191X,IGG0197N,IGG0197V,IGG0196R
 NAME    IGG0191A(R)
 INCLUDE AOSD0(IGG01911,IGG0191C,IGG01918)
 ORDER   IGG01911(P),IGG0191C,IGG01918
 ALIAS   IGG0191C,IGG01918
 INCLUDE AOSD0(IGG0191S,IGG0191H,IGG0199K,IGG0191R)
 ORDER   IGG0191S(P),IGG0191H,IGG0199K,IGG0191R
 ALIAS   IGG0191S,IGG0191H,IGG0199K,IGG0191R
 INCLUDE AOSD0(IGG0191X,IGG0191Q,IGG01916)
 ORDER   IGG0191X(P),IGG0191Q,IGG01916
 ALIAS   IGG0191X,IGG0191Q,IGG01916
 INCLUDE AOSD0(IGG01992,IGG01994)
 ORDER   IGG01992,IGG01994
 ALIAS   IGG01992,IGG01994
 INCLUDE AOSD0(IGG0191W,IGG0191K,IGG01913)
 ORDER   IGG0191W(P),IGG0191K,IGG01913
 ALIAS   IGG0191W,IGG0191K,IGG01913
 INCLUDE AOSD0(IGG01919,IGG01926)
 ORDER   IGG01919,IGG01926
 ALIAS   IGG01919,IGG01926
 ENTRY   IGG01911               EXPECT IEW046I MESSAGES FOR:           *
                                IGG0196M,IGG0191G,IGG0191J,IGG0191D
 NAME    IGG01911(R)
 INCLUDE AOSD0(IGG0191D,IGG0199O,IGG0191O)
 ORDER   IGG0191D(P),IGG0199O,IGG0191O
 ALIAS   IGG0199O,IGG0191O
 INCLUDE AOSD0(IGG0191G,IGG0196K,IGG01910,IGG01917)
 ORDER   IGG0191G(P),IGG0196K,IGG01910,IGG01917
 ALIAS   IGG0191G,IGG0196K,IGG01910,IGG01917
 INCLUDE AOSD0(IGG0191J,IGG0196L,IGG01915)
 ORDER   IGG0191J(P),IGG0196L,IGG01915
 ALIAS   IGG0191J,IGG0196L,IGG01915
 INCLUDE AOSD0(IGG01991,IGG01993)
 ORDER   IGG01991,IGG01993
 ALIAS   IGG01991,IGG01993
 INCLUDE AOSD0(IGG0191P,IGG0196P,IGG0191Z)
 ORDER   IGG0191P(P),IGG0196P,IGG0191Z
 ALIAS   IGG0191P,IGG0196P,IGG0191Z
 INCLUDE AOSD0(IGG01923,IGG01912)
 ORDER   IGG01923,IGG01912
 ALIAS   IGG01923,IGG01912
 ENTRY   IGG0191D               EXPECT IEW046I MESSAGES FOR:           *
                                IGG0196M,IGG01911,IGG01918
 NAME    IGG0191D(R)
 INCLUDE AOSD0(IGG019CD)
 ALIAS   IGG019TD
 NAME    IGG019CD(R)
 INCLUDE AOSD0(IGG019CV)
 ALIAS   IGG019TV
 NAME    IGG019CV(R)
 INCLUDE AOSD0(IGG019C2)
 ALIAS   IGG019T2
 NAME    IGG019C2(R)
 INCLUDE AOSD0(IGC0002A,IGG0210A,IGG021AB)
 ORDER   IGC0002A(P),IGG0210A,IGG021AB
 ENTRY   IGC0002A
 NAME    IGC0002A(R)
 INCLUDE AOSD0(IGC0006H,IGC0106H,IGC0206H,IGC0306H)
 INCLUDE AOSD0(IGC0406H,IGC0506H,IGC0606H,IGC0706H)
 INCLUDE AOSD0(IGC0806H,IGC0906H)
 ORDER   IGC0006H(P),IGC0906H,IGC0206H
 ORDER   IGC0106H,IGC0506H
 ORDER   IGC0306H(P),IGC0406H,IGC0606H
 ORDER   IGC0706H,IGC0806H
 ENTRY   IGC0006H
 NAME    IGC0006H(R)
 INCLUDE AOSD0(IGG0201A,IGG0201B,IGG0201X)
 INCLUDE AOSD0(IGG0201Y,IGG0201Z)
 ORDER   IGG0201Z(P),IGG0201Y,IGG0201B
 ALIAS   IGG0201Y,IGG0201B
 ORDER   IGG0201A(P),IGG0201X
 ALIAS   IGG0201A,IGG0201X
 ENTRY   IGG0201Z               EXPECT IEW046I MESSAGES FOR:           *
                                IGG0201P,IGG0206M
 NAME    IGG0201Z(R)
 INCLUDE AOSD0(IGC0008A,IGG08101,IGG08102,IGG08103)
 INCLUDE AOSD0(IGG08104,IGG08110,IGG08111,IGG08112)
 INCLUDE AOSD0(IGG08113,IGG08114,IGG08115)
 INCLUDE AOSD0(IGG08116,IGG08117)
 ORDER   IGC0008A(P),IGG08101,IGG08102
 ALIAS   IGG08101,IGG08102
 ORDER   IGG08103,IGG08104
 ALIAS   IGG08103,IGG08104
 ORDER   IGG08110(P),IGG08111
 ALIAS   IGG08110,IGG08111
 ORDER   IGG08112,IGG08113
 ALIAS   IGG08112,IGG08113
 ORDER   IGG08114,IGG08115
 ALIAS   IGG08114,IGG08115
 ORDER   IGG08116,IGG08117
 ALIAS   IGG08116,IGG08117
 ENTRY   IGC0008A
 NAME    IGC0008A(R)
/*
//SG29 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOST3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST3
//SYSLIN DD *
 ORDER IEDAYQT(P),IEDAYGP,IEDAYII,IEDAYOO,IEDAYAA
 ORDER IEDAYLL,IEDAY88,IEDAYHH
 INCLUDE AOST3(IEDAYQT)
 INCLUDE AOST3(IEDAY88)
 INCLUDE AOST3(IEDAYAA)
 INCLUDE AOST3(IEDAYHH)
 INCLUDE AOST3(IEDAYII)
 INCLUDE AOST3(IEDAYLL)
 INCLUDE AOST3(IEDAYOO)
 INCLUDE AOST3(IEDAYGP)
 ENTRY   IEDAYQT           FIRST ENTRY POINT
 ALIAS   IEDAYQT           FIRST ENTRY POINT
 ALIAS   IEDAYQT1          SECOND ENTRY POINT
 ALIAS   IEDAYTPQ          THIRD ENTRY POINT
 NAME    IGC0010A(R)       ALL 8 MODULES IN THIS MEMBER NAME
 INCLUDE AOST3(IEDAY1,IEDAY2)
 ENTRY IEDAY1
 NAME  IGCMC10D(R)
 INCLUDE AOST3(IGC0009C,IGG09300,IGG09301)
 INCLUDE AOST3(IGG09302,IGG09303)
 INCLUDE AOST3(IKT0009C,IKTVTGET,IKTVTPUT,IKTASTPT)
 INCLUDE AOST3(IKTXMTPT,IKT93EST)
 ENTRY IGC0009C
 NAME IGC0009C(R)
 INCLUDE AOST3(IGC0009D,IGG0940A,IGG0940B,IGG0940C)
 INCLUDE AOST3(IGG0940D,IGG0940E,IGG0940G,IGG09400)
 INCLUDE AOST3(IGG09402,IGG09403,IGG09404,IGG09405)
 INCLUDE AOST3(IGG09406,IGG09407,IGG09408,IGG09409)
 INCLUDE AOST3(IGG0940H,IGG09411)
 INCLUDE AOST3(IGG09414)
 INCLUDE AOST3(IKT0940A,IKT0940C,IKT0940D,IKT0940E)
 INCLUDE AOST3(IKT0940F,IKT09401,IKT09404,IKT09405)
 INCLUDE AOST3(IKT09409,IKT09412,IKT09413,IKT09414)
 INCLUDE AOST3(IKT0009D)
 ENTRY IGC0009D
 NAME IGC0009D(R)
 INCLUDE AOST3(IKTQMIN)
 ENTRY IKTQMIN,IKTQMOUT
 ALIAS IKTQMOUT
 NAME  IKTQMIN(R)
 INCLUDE AOST3(IKTEXIT,IKTIOFRR,IKTIST00)
 ENTRY IKTEXIT,IKTIOFRR
 ALIAS IKTEXIT,IKTIOFRR,IKTIST00
 NAME IKTIOM00(R)
 INCLUDE AOST3(IKTTIMRT,IKTTOMRT)
 ENTRY IKTTIMRT,IKTTOMRT
 ALIAS IKTTIMRT,IKTTOMRT
 NAME  IKTIOM01(R)
 INCLUDE AOST3(IKTIMIDS,IKTOMIDS)
 INCLUDE AOST3(IKTATTN,IKT3270I,IKT3270O)
 ENTRY IKTIMIDS,IKTOMIDS
 ALIAS IKTIMIDS,IKTOMIDS
 ALIAS IKTATTN,IKT3270I,IKT3270O
 NAME  IKTIOM02(R)
 INCLUDE AOST3(IKTIMLU2,IKTOMLU2)
 ENTRY IKTIMLU2,IKTOMLU2
 ALIAS IKTIMLU2,IKTOMLU2
 NAME  IKTIOM03(R)
 INCLUDE AOST3(IKTTOMJR)
 ENTRY IKTTOMJR
 NAME  IKTTOMJR(R)
 INCLUDE AOST3(IKTASCII)
 ENTRY IKTASCII
 NAME  IKTASCII(R)
 INCLUDE AOST3(IKTLTERM)
 ENTRY IKTLTERM
 ALIAS IKTTPEND
 NAME  IKTLTERM(R)
 INCLUDE AOST3(IKTMSGS)
 ENTRY IKTMSGS
 NAME  IKTMSGS(R)
/*
//SG30 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REFR,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//SYSLIN DD *
  ENTRY IKJEHDEF
  INCLUDE ACMDLIB(IKJEHDEF,IKJEHCIR)
  ALIAS IKJDFLT,IKJEHCIR
  NAME IKJEHDEF(R)
/*
//SG31 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSD0 DD DSN=SYS1.AOSD0,DISP=SHR
//SYSLIN DD *
         ENTRY IFG0RR0A                 EXPECT IEW046I MESSAGES FOR -  C
                                        IDAOCEA1, IGG0213Z, IGG020T1,  C
                                        IGG0202B, IGG020FC, HASPXSUB,  C
                                        IFG0553B, IFG0202E, IFG0554T
         ORDER IFG0RR0F(P)
         ORDER IFG0RR0A
         ORDER IFG0RR0B(P)
         ORDER IFG0RR0E(P)
         INCLUDE AOSD0(IFG0RR0A)
         INCLUDE AOSD0(IFG0RR0B)
         INCLUDE AOSD0(IFG0RR0E)
         INCLUDE AOSD0(IFG0RR0F)
         ALIAS IFG0RR0F
         NAME IFG0RR0A(R)
         ENTRY IFG0TC0A                 EXPECT IEW046I MESSAGES FOR -  C
                                        IDAVBPS2, IGG0202C, IDACAT13,  C
                                        IDAOCEA2, IGG0203Z
         ORDER IFG0TC0A(P)
         INCLUDE AOSD0(IFG0TC0A)
         ALIAS IFG0TC4A
         NAME IFG0TC0A(R)
         ENTRY IFG019RA                 EXPECT IEW046I MESSAGES FOR -  C
                                        IFG0RR0A, IFG0RR0F, IFG0TC0A,  C
                                        IFG0TC4A, IFG019TR
         ORDER IFG019RA(P)
         INCLUDE AOSD0(IFG019RA)
         NAME IFG019RA(R)
         ENTRY IFG019TR
         ORDER IFG019TR(P)
         INCLUDE AOSD0(IFG019TR)
         ALIAS IFG020TR,IFG023TR,IFG055TR
         NAME IFG019TR(R)
         ENTRY IFG0190P                 EXPECT IEW046I MESSAGES FOR -  C
                                        IFG0199B, IFG0198N, IFG0209B,  C
                                        IFG0202L, IFG0239B, IFG0232Z,  C
                                        IFG0559B, IFG0552X
         ORDER IFG0190P(P)
         ORDER IFG0200P
         ORDER IFG0230P
         ORDER IFG0550P
         ORDER IGG0196M
         INCLUDE AOSD0(IFG0190P)
         INCLUDE AOSD0(IFG0200P)
         ALIAS IFG0200P,IGG0206M
         INCLUDE AOSD0(IFG0230P)
         ALIAS IFG0230P
         INCLUDE AOSD0(IFG0550P)
         ALIAS IFG0550P
         INCLUDE AOSD0(IGG0196M)
         ALIAS IGG0196M
         NAME IFG0190P(R)
         ENTRY IFG0194A                 EXPECT IEW046I MESSAGES FOR -  C
                                        IFG0190P, IFG0554T, IFG0550P,  C
                                        IFG0195T, IFG0554P, IFG0193C,  C
                                        OMODVOL1, EMODVOL1, IFG0195A,  C
                                        IFG0198N, IFG0EX0A
         ORDER IFG0194A(P)
         ORDER IFG0194C(P)
         ORDER IFG0194F(P)
         ORDER IFG0194J(P)
         ORDER IFG0193D(P)
         ORDER IFG0193E
         ORDER IFG0195G
         INCLUDE AOSD0(IFG0194A)
         ALIAS IFG0204A,IFG0554A
         INCLUDE AOSD0(IFG0194C)
         ALIAS IFG0554C
         INCLUDE AOSD0(IFG0194F)
         ALIAS IFG0554F
         INCLUDE AOSD0(IFG0194J)
         ALIAS IFG0194J,IFG0204J,IFG0554J
         INCLUDE AOSD0(IFG0193D)
         ALIAS IGG0190A,IGG0550P
         INCLUDE AOSD0(IFG0193E)
         INCLUDE AOSD0(IFG0195G)
         ALIAS IFG0195G
         NAME IFG0194A(R)
         ENTRY IFG0199B                 EXPECT IEW046I MESSAGES FOR -  C
                                        IFG0196V, IFG0200W, IFG0559C
         ORDER IFG0199B(P)
         ORDER IFG0199D
         ORDER IFG0199E
         INCLUDE AOSD0(IFG0199B)
         ALIAS IFG0209B,IFG0239B,IFG0559B
         INCLUDE AOSD0(IFG0199D)
         ALIAS IFG0209D,IFG0239D,IFG0559D
         INCLUDE AOSD0(IFG0199E)
         ALIAS IFG0209E,IFG0239E,IFG0559E
         NAME IFG0199B(R)
         ENTRY IGC0001I                 EXPECT IEW046I MESSAGES FOR -  C
                                        IFG0191X, IFG0192Y, IEFAB4DC,  C
                                        IFG0190P, IFG0194A, IFG0192A,  C
                                        IFG0192I, IFG0192F, IDA0192P,  C
                                        IFG0194J, NSLOHDRI, READPSWD,  C
                                        IDA0192G, NSLOHDRO, IGG0191A,  C
                                        IGG0192A, IGG0193A, IGG0193M,  C
                                        IGG0193Y, IGG01935, IGG01930,  C
                                        IGG01946, IGG0191C, IGG0199F,  C
                                        IGG0198B, IGG019SI, IGG019JD,  C
                                        IGG0196M
         ORDER IGC0002B(P)
         ORDER IGC0001I
         ORDER IFG0193A
         ORDER IFG0195A(P)
         ORDER IFG0195B
         ORDER IFG0195C
         ORDER IFG0195D
         ORDER IFG0195H
         ORDER IFG0195J
         ORDER IFG0195K
         ORDER IFG0195N
         ORDER IFG0554L     = IFG0195F
         ORDER IFG0195T(P)
         ORDER IFG0195V
         ORDER IFG0195U
         ORDER IFG0196J(P)
         ORDER IFG0196K
         ORDER IFG0196L
         ORDER IFG0196M
         ORDER IFG0196O(P)
         ORDER IFG0555J     = IFG0196P
         ORDER IFG0196N(P)
         ORDER IFG0196Q
         ORDER IFG0196T
         ORDER IFG0196U
         ORDER IFG0196V(P)
         ORDER IGG0193K
         ORDER IFG0196W(P)
         ORDER IFG0196X
         ORDER IFG0198N
         INCLUDE AOSD0(IGC0001I)
         ALIAS IGC0101I
         INCLUDE AOSD0(IGC0002B)
         ALIAS IGC0002B
         INCLUDE AOSD0(IFG0193A)
         ALIAS IFG0193A
         INCLUDE AOSD0(IFG0195A)
         INCLUDE AOSD0(IFG0195B)
         INCLUDE AOSD0(IFG0195C)
         INCLUDE AOSD0(IFG0195D)
         ALIAS IGG0190B
         INCLUDE AOSD0(IFG0554L)
         ALIAS IFG0554L     = IFG0195F
         INCLUDE AOSD0(IFG0195H)
         INCLUDE AOSD0(IFG0195J)
         INCLUDE AOSD0(IFG0195K)
         INCLUDE AOSD0(IFG0195N)
         INCLUDE AOSD0(IFG0195T)
         ALIAS IFG0195T
         ALIAS IFG0555T
         INCLUDE AOSD0(IFG0195U)
         ALIAS IFG0195U
         INCLUDE AOSD0(IFG0195V)
         ALIAS IFG0195V
         INCLUDE AOSD0(IFG0196J)
         INCLUDE AOSD0(IFG0196K)
         INCLUDE AOSD0(IFG0196L)
         INCLUDE AOSD0(IFG0196M)
         INCLUDE AOSD0(IFG0196N)
         INCLUDE AOSD0(IFG0196O)
         ALIAS IGG0190R
         INCLUDE AOSD0(IFG0555J)
         ALIAS IFG0555J     = IFG0196P
         INCLUDE AOSD0(IFG0196Q)
         INCLUDE AOSD0(IFG0196T)
         INCLUDE AOSD0(IFG0196U)
         INCLUDE AOSD0(IFG0196V)
         ALIAS IFG0196V
         INCLUDE AOSD0(IFG0196W)
         ALIAS IGG0190S
         INCLUDE AOSD0(IFG0196X)
         INCLUDE AOSD0(IFG0198N)
         ALIAS IFG0198N
         INCLUDE AOSD0(IGG0193K)
         ALIAS IGG0193K
         NAME IGC0001I(R)
         ENTRY IGC00020                 EXPECT IEW046I MESSAGES FOR -  C
                                        IFG0200P, IFG0200N, IFG0231T,  C
                                        IFG0RR0B, IGC0101I, IFG0230P,  C
                                        NSLCTRLO, NSLETRLI, IGG020P1,  C
                                        IFG0201A, IGG0206M, IGG02029,  C
                                        IGG0202A, IGG0202I, IGG0202D,  C
                                        IGG02028, IGG0203A, IGG0201Z,  C
                                        IGG02030, IGG0201A, IGG0201D,  C
                                        IGG0203M, IGG0203Y, IGG02046,  C
                                        IGG0203B, IGG02035, IGG0201W,  C
                                        IFG0200U, IDA0192P, IFG0200T,  C
                                        IFG0200S, IFG0204A, ISTOCMDC
         ORDER IGC00020(P)
         ORDER IFG0200V
         ORDER IFG0200W
         ORDER IGG0203K
         ORDER IFG0200Y(P)
         ORDER IFG0200Z
         ORDER IFG0201R
         ORDER IFG0202A
         ORDER IFG0202B
         ORDER IFG0202C
         ORDER IFG0202D
         ORDER IFG0202E
         ORDER IFG0202F
         ORDER IFG0202H(P)
         ORDER IFG0202I
         ORDER IFG0202J(P)
         ORDER IFG0202K
         ORDER IFG0202L
         ORDER IGC0002C(P)
         ORDER IFG0232D
         ORDER IFG0232G
         ORDER IFG0232J
         ORDER IFG0232M
         ORDER IFG0232S
         ORDER IFG0232Z
         INCLUDE AOSD0(IGC00020)
         ALIAS IGC0002{,IGC01020
         INCLUDE AOSD0(IFG0200V)
         ALIAS IFG0200V
         INCLUDE AOSD0(IFG0200W)
         ALIAS IFG0200W
         INCLUDE AOSD0(IFG0200Y)
         ALIAS IGG0200F,IGG0200G
         INCLUDE AOSD0(IFG0200Z)
         INCLUDE AOSD0(IFG0201R)
         INCLUDE AOSD0(IFG0202A)
         INCLUDE AOSD0(IFG0202B)
         ALIAS IFG0232Y,IFG0556B,IGG0200B
         INCLUDE AOSD0(IFG0202C)
         INCLUDE AOSD0(IFG0202D)
         INCLUDE AOSD0(IFG0202E)
         ALIAS IFG0202E
         INCLUDE AOSD0(IFG0202F)
         INCLUDE AOSD0(IFG0202H)
         ALIAS IFG0553B
         INCLUDE AOSD0(IFG0202I)
         INCLUDE AOSD0(IFG0202J)
         INCLUDE AOSD0(IFG0202K)
         INCLUDE AOSD0(IFG0202L)
         ALIAS IFG0202L
         INCLUDE AOSD0(IGC0002C)
         ALIAS IGC0002C
         INCLUDE AOSD0(IFG0232D)
         INCLUDE AOSD0(IFG0232G)
         INCLUDE AOSD0(IFG0232J)
         INCLUDE AOSD0(IFG0232M)
         INCLUDE AOSD0(IFG0232S)
         INCLUDE AOSD0(IFG0232Z)
         ALIAS IFG0232Z
         INCLUDE AOSD0(IGG0203K)
         ALIAS IGG0203K
         NAME IGC00020(R)
         ENTRY IGC0005E                 EXPECT IEW046I MESSAGES FOR -  C
                                        IFG0550P, IFG0554J, NSLEHDRO,  C
                                        IFG0555T, NSLEHDRI, IFG0557A,  C
                                        IFG0550Y, IFG0554A, NSLETRLI,  C
                                        NSLETRLO, IFG0553B, IGC01020,  C
                                        IFG0554L, IGG0553A, IFG0555J,  C
                                        IFG0556B, IFG0RR0B
         ORDER IGC0003A(P)
         ORDER IFG0551D
         ORDER IGC0005E(P)
         ORDER IFG0551B
         ORDER IFG0552X(P)
         ORDER IFG0551F
         ORDER IFG0551H
         ORDER IFG0551L(P)
         ORDER IFG0558X
         ORDER IFG0554B
         ORDER IFG0551P(P)
         ORDER IFG0551R
         ORDER IFG0551T
         ORDER IFG0552N
         ORDER IFG0552B(P)
         ORDER IFG0552D
         ORDER IFG0552F
         ORDER IFG0552R(P)
         ORDER IFG0552T
         ORDER IFG0552V
         ORDER IFG0553F(P)
         ORDER IFG0553H
         ORDER IFG0553P(P)
         ORDER IFG0553X
         ORDER IFG0553Z
         ORDER IFG0554N(P)
         ORDER IFG0554P
         ORDER IFG0554Z
         ORDER IFG0555B
         ORDER IFG0555H(P)
         ORDER IFG0554T
         INCLUDE AOSD0(IGC0005E)
         INCLUDE AOSD0(IGC0003A)
         ALIAS IGC0003A
         INCLUDE AOSD0(IFG0551B)
         INCLUDE AOSD0(IFG0551D)
         INCLUDE AOSD0(IFG0551F)
         ALIAS IFG0551F
         INCLUDE AOSD0(IFG0551H)
         INCLUDE AOSD0(IFG0551L)
         ALIAS IFG0551N
         INCLUDE AOSD0(IFG0558X)
         INCLUDE AOSD0(IFG0551P)
         INCLUDE AOSD0(IFG0551R)
         INCLUDE AOSD0(IFG0551T)
         ALIAS IGG0550F
         INCLUDE AOSD0(IFG0552B)
         INCLUDE AOSD0(IFG0552D)
         INCLUDE AOSD0(IFG0552F)
         INCLUDE AOSD0(IFG0552N)
         ALIAS IGG0550H
         INCLUDE AOSD0(IFG0552R)
         ALIAS IGG0550B
         INCLUDE AOSD0(IFG0552T)
         INCLUDE AOSD0(IFG0552V)
         INCLUDE AOSD0(IFG0552X)
         ALIAS IFG0552X
         INCLUDE AOSD0(IFG0553F)
         INCLUDE AOSD0(IFG0553H)
         ALIAS IGG0550D
         INCLUDE AOSD0(IFG0553P)
         INCLUDE AOSD0(IFG0553X)
         INCLUDE AOSD0(IFG0553Z)
         INCLUDE AOSD0(IFG0554B)
         INCLUDE AOSD0(IFG0554N)
         INCLUDE AOSD0(IFG0554P)
         ALIAS IFG0554P
         INCLUDE AOSD0(IFG0554T)
         ALIAS IFG0554T
         INCLUDE AOSD0(IFG0554Z)
         INCLUDE AOSD0(IFG0555H)
         INCLUDE AOSD0(IFG0555B)
         NAME IGC0005E(R)
         ENTRY IGC0006D                 EXPECT IEW046I MESSAGES FOR -  C
                                        IGG0196M
         ORDER IGC0006D(P)
         INCLUDE AOSD0(IGC0006D)
         NAME IGC0006D(R)
         ENTRY IGC0010C
         ORDER IGC0010C(P)
         INCLUDE AOSD0(IGC0010C)
         NAME IGC0010C(R)
         ENTRY IMDUSRFF
         ORDER IMDUSRFF(P)
         INCLUDE AOSD0(IMDUSRFF)
         ALIAS AMDUSRFF
         ALIAS HMDUSRFF
         NAME IMDUSRFF(R)
         ENTRY EMODVOL1                 EXPECT IEW046I MESSAGES FOR -  C
                                        IGG0550P
         ORDER IFG0553C(P)
         INCLUDE AOSD0(IFG0553C)
         ALIAS IFG0553C
         NAME EMODVOL1(R)
         ENTRY OMODVOL1                 EXPECT IEW046I MESSAGES FOR -  C
                                        IGG0190A
         ORDER IFG0193C(P)
         INCLUDE AOSD0(IFG0193C)
         ALIAS IFG0193C
         NAME OMODVOL1(R)
         ENTRY READPSWD                 EXPECT IEW046I MESSAGES FOR -  C
                                        IFG0195U
         ORDER READPSWD(P)
         INCLUDE AOSD0(READPSWD)
         NAME READPSWD(R)
         ENTRY SECLOADA                 EXPECT IEW046I MESSAGES FOR -  C
                                        IFG0195V, IGG03001, IGG0290A,  C
                                        IGC0N05B
         ORDER SECLOADA(P)
         INCLUDE AOSD0(SECLOADA)
         NAME SECLOADA(R)
         ENTRY IFG0EX0A
         ORDER IFG0EX0A(P)
         INCLUDE AOSD0(IFG0EX0A)
         NAME IFG0EX0A(R)
/*
//SG32 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSD0 DD DSN=SYS1.AOSD0,DISP=SHR
//SYSLIN DD *
         ENTRY IGG026DU
         ORDER IGC0002F(P)
         ORDER IGG026DU
         INCLUDE AOSD0(IGG026DU)
         INCLUDE AOSD0(IGC0002F)
         ALIAS IGG0102F
         NAME IGC0002F(R)
         ENTRY IGC0002G
         ORDER IGC0002G(P)
         ORDER IGC0102G
         INCLUDE AOSD0(IGC0002G)
         INCLUDE AOSD0(IGC0102G)
         NAME IGC0002G(R)
         ENTRY IGG029DU                 EXPECT IEW046I MESSAGES FOR -  C
                                        IGG03001, IGG03002, IGG019EK,  C
                                        SECLOADA
         ORDER IGC0002I(P)
         ORDER IGG029DU
         ORDER IGG0290E(P)
         ORDER IGG0290A
         ORDER IGG0299A
         ORDER IGG0290B(P)
         ORDER IGG0290C
         ORDER IGG0290D
         ORDER IGG029DM
         ORDER IGG0290F(P)
         INCLUDE AOSD0(IGG029DU)
         INCLUDE AOSD0(IGC0002I)
         INCLUDE AOSD0(IGG0290A)
         ALIAS IGG0290A
         INCLUDE AOSD0(IGG0299A)
         INCLUDE AOSD0(IGG0290B)
         INCLUDE AOSD0(IGG0290C)
         INCLUDE AOSD0(IGG0290D)
         INCLUDE AOSD0(IGG029DM)
         INCLUDE AOSD0(IGG0290E)
         INCLUDE AOSD0(IGG0290F)
         ALIAS IGG0300F
         NAME IGC0002I(R)
         ENTRY IGC0003B                 EXPECT IEW046I MESSAGES FOR -  C
                                        IGG019EK, IGG0325Z
         ORDER IGC0003B(P)
         ORDER IGG0325A
         ORDER IGG0325B
         ORDER IGG0325C(P)
         ORDER IGG0325K
         ORDER IGG0325D
         ORDER IGG0325E
         ORDER IGG0325I(P)
         ORDER IGG0325G(P)
         ORDER IGG0325H
         ORDER IGG0CLF2
         ORDER IGG032I1(P)
         ORDER IGG032I2
         ORDER IGG032I3(P)
         ORDER IGG032I4
         ORDER IGG032I5
         ORDER IGG032I6(P)
         ORDER IGG032I7
         ORDER IGG032I8
         INCLUDE AOSD0(IGC0003B)
         INCLUDE AOSD0(IGG0325A)
         ALIAS IGG0325A
         INCLUDE AOSD0(IGG0325B)
         INCLUDE AOSD0(IGG0325C)
         INCLUDE AOSD0(IGG0325D)
         INCLUDE AOSD0(IGG0325E)
         INCLUDE AOSD0(IGG0325G)
         INCLUDE AOSD0(IGG0325H)
         ALIAS IGG0325H
         INCLUDE AOSD0(IGG0325I)
         INCLUDE AOSD0(IGG0325K)
         INCLUDE AOSD0(IGG032I1)
         INCLUDE AOSD0(IGG032I2)
         INCLUDE AOSD0(IGG032I3)
         INCLUDE AOSD0(IGG032I4)
         INCLUDE AOSD0(IGG032I5)
         INCLUDE AOSD0(IGG032I6)
         INCLUDE AOSD0(IGG032I7)
         INCLUDE AOSD0(IGG032I8)
         INCLUDE AOSD0(IGG0CLF2)
         NAME IGC0003B(R)
         ENTRY IGG030DU                 EXPECT IEW046I MESSAGES FOR -  C
                                        IGG0300F, SECLOADA
         ORDER IGC00030(P)
         ORDER IGG030DU
         ORDER IGG03002(P)
         ORDER IGG03001
         INCLUDE AOSD0(IGG030DU)
         INCLUDE AOSD0(IGC00030)
         ALIAS IGC0003{
         INCLUDE AOSD0(IGG03001)
         ALIAS IGG03001
         INCLUDE AOSD0(IGG03002)
         ALIAS IGG03002
         NAME IGC00030(R)
         ENTRY IGC0007H
         ORDER IGC0007H(P)
         ORDER IGC0107H
         INCLUDE AOSD0(IGC0007H)
         INCLUDE AOSD0(IGC0107H)
         NAME IGC0007H(R)
         ORDER IGG019EK(P)
         INCLUDE AOSD0(IGG019EK)
         NAME IGG019EK(R)
         ENTRY IGG020P1                 EXPECT IEW046I MESSAGES FOR -  C
                                        IGG019EK, IFG0202E
         ORDER IGG020P1(P)
         ORDER IGG020P2
         ORDER IGG020D0(P)
         ORDER IGG020D1
         ORDER IGG020P3
         INCLUDE AOSD0(IGG020P1)
         INCLUDE AOSD0(IGG020P2)
         INCLUDE AOSD0(IGG020P3)
         INCLUDE AOSD0(IGG020D0)
         INCLUDE AOSD0(IGG020D1)
         NAME IGG020P1(R)
         ENTRY IGG0325Z                 EXPECT IEW046I MESSAGES FOR -  C
                                        IGG0325A, IGG0325H, IGG0553F
         ORDER IGG0325Z(P)
         ORDER IGG0325P(P)
         ORDER IGG0325R
         ORDER IGG0325T
         ORDER IGG0325Q(P)
         ORDER IGG0325U
         ORDER IGG0325V
         ORDER IGG0325W
         INCLUDE AOSD0(IGG0325P)
         INCLUDE AOSD0(IGG0325Q)
         INCLUDE AOSD0(IGG0325R)
         INCLUDE AOSD0(IGG0325T)
         INCLUDE AOSD0(IGG0325U)
         INCLUDE AOSD0(IGG0325V)
         INCLUDE AOSD0(IGG0325W)
         INCLUDE AOSD0(IGG0325Z)
         NAME IGG0325Z(R)
         ENTRY IGG0553A                 EXPECT IEW046I MESSAGES FOR -  C
                                        IGG019EK, IFG0554P, IGG0325Z
         ORDER IGG0553A(P)
         ORDER IGG0553F
         ORDER IGG0553G
         ORDER IGG0553B
         ORDER IGG0553C(P)
         ORDER IGG0553D
         ORDER IGG0553E
         INCLUDE AOSD0(IGG0553A)
         INCLUDE AOSD0(IGG0553B)
         INCLUDE AOSD0(IGG0553C)
         INCLUDE AOSD0(IGG0553D)
         INCLUDE AOSD0(IGG0553E)
         INCLUDE AOSD0(IGG0553F)
         ALIAS IGG0553F
         INCLUDE AOSD0(IGG0553G)
         NAME IGG0553A(R)
         ENTRY IGG0CLCA
         ORDER IGG0CLCA(P)
         ORDER IGG0CLCB
         ORDER IGG0CLCC(P)
         ORDER IGG0CLCD
         ORDER IGG0CLCE(P)
         ORDER IGG0CLCF(P)
         INCLUDE AOSD0(IGG0CLCA)
         INCLUDE AOSD0(IGG0CLCB)
         INCLUDE AOSD0(IGG0CLCC)
         INCLUDE AOSD0(IGG0CLCD)
         INCLUDE AOSD0(IGG0CLCE)
         INCLUDE AOSD0(IGG0CLCF)
         ALIAS IGC0002H
         NAME IGG0CLCA(R)
/*
//SG33 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1='(',
//    MOD=IFDOLT,P2=')',OBJ=OBJPDS01,CLASS=A
//AOS06 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS06
//SYSLIN DD *
 INCLUDE AOS06(IGC0005I,IGC0505I,IGC0905I)
 ENTRY IGC0005I
 NAME IGC0005I(R)
/*
//SG34 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSCE DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.AOSCE
//SYSLIN DD *
 ORDER IGFDI0(P),IGFDI1,IGFDE0,IGFDE1
 ORDER IGFDW0(P),IGFDD0,IGFDL1,IGFDM1
 ORDER IGFDD1(P),IGFDV0,IGFDV1
 ORDER IGFDS0(P),IGFDS1,IGE0660A
 ORDER IGFDT0(P),IGFDT1,IGFDT2
 ORDER IGFDU0(P),IGFDU1
 ORDER IGFDM0(P),IGFDMTXT,IGFDR0
 INCLUDE    AOSCE(IGFDT0)
 INCLUDE    AOSCE(IGFDT1)
 INCLUDE    AOSCE(IGFDT2)
 INCLUDE    AOSCE(IGFDD0)
 INCLUDE    AOSCE(IGFDD1)
 INCLUDE    AOSCE(IGFDM0)
 INCLUDE    AOSCE(IGFDM1)
 INCLUDE    AOSCE(IGFDU0)
 INCLUDE    AOSCE(IGFDU1)
 INCLUDE    AOSCE(IGFDV0)
 INCLUDE    AOSCE(IGFDV1)
 INCLUDE    AOSCE(IGFDMTXT)
 INCLUDE    AOSCE(IGFDI0)
 ENTRY      IGFDI0
 INCLUDE    AOSCE(IGFDI1)
 INCLUDE    AOSCE(IGFDR0)
 INCLUDE    AOSCE(IGFDW0)
 INCLUDE    AOSCE(IGFDS0)
 ALIAS      IGFDS0
 INCLUDE    AOSCE(IGFDS1)
 INCLUDE    AOSCE(IGFDE0)
 INCLUDE    AOSCE(IGFDE1)
 INCLUDE    AOSCE(IGFDL1)
 INCLUDE    AOSCE(IGE0660A)
 ALIAS      IGE0660A
 NAME       IGFDI0(R)
 INCLUDE    AOSCE(IGFTMCHK)
 NAME       IGFTMCHK(R)
 INCLUDE    AOSCE(IGC0008E)
 ALIAS      IGC0408E
 NAME       IGC0008E(R)
//SG35 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSBN DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSBN
//SYSLIN DD *
 INCLUDE AOSBN(ICHRIN00)
 ALIAS IGC0013A,IGC0013B,IGC0013C
 ENTRY ICHRIN00
 NAME IGC0013{(R)
/*
//SG36 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOS11 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS11
//SYSLIN DD *
 ORDER AHLSBLOK(P),AHLSBUF
 INCLUDE AOS11(AHLSBLOK,AHLSBUF)
 ALIAS AHLSBCU1
 ALIAS AHLSFEOB
 ALIAS AHLSBUF
 ALIAS AHLSBLOK
 ENTRY AHLSBLOK
 NAME AHLWSMOD(R)
 ORDER AHLSETD(P),AHLMCER,AHLTDIR,AHLWTO
 INCLUDE AOS11(AHLSETD,AHLMCER,AHLTDIR,AHLWTO)
 ALIAS AHLMCER
 ALIAS AHLTDIR
 ALIAS AHLWTOMD
 ALIAS AHLDMPMD
 ENTRY AHLSETD
 NAME AHLSETD(R)
 INCLUDE AOS11(AHLSETEV,AHLSETMG)
 ENTRY AHLSETEV
 NAME AHLSETEV(R)
 PAGE AHLTEXT
 INCLUDE AOS11(AHLTEXT)
 ENTRY AHLTEXT
 NAME AHLTEXT(R)
 INCLUDE AOS11(AHLTFOR)
 ALIAS AHLTFRR
 ALIAS AHLTSRM
 ALIAS AHLTRNIO
 ALIAS AHLTSTAE
 ENTRY AHLTFOR
 NAME AHLTFOR(R)
 PAGE AHLTPID
 INCLUDE AOS11(AHLTPID)
 ALIAS AHLTPI
 ALIAS AHLTSRB
 ALIAS AHLTDSP
 ALIAS AHLTLSR
 ENTRY AHLTPID
 NAME AHLTPID(R)
 INCLUDE AOS11(AHLTSIO)
 ALIAS AHLTIO
 ALIAS AHLTUIO
 ALIAS AHLTSIO1
 ENTRY AHLTSIO
 NAME AHLTSIO(R)
 PAGE AHLTSVC
 INCLUDE AOS11(AHLTSVC)
 ENTRY AHLTSVC
 NAME AHLTSVC(R)
 INCLUDE AOS11(AHLTSYFL)
 ALIAS AHLFPI
 ALIAS AHLFSVC
 ALIAS AHLFIO
 ALIAS AHLFSIO
 ENTRY AHLTSYFL
 NAME AHLTSYFL(R)
 PAGE AHLTSYSM
 INCLUDE AOS11(AHLTSYSM)
 ALIAS AHLSVC
 ALIAS AHLSIO
 ALIAS AHLIO
 ALIAS AHLUIO
 ALIAS AHLEXT
 ALIAS AHLFRR
 ALIAS AHLSTAE
 ALIAS AHLPINT
 ALIAS AHLTINT
 ENTRY AHLTSYSM
 NAME AHLTSYSM(R)
 INCLUDE AOS11(AHLTUSR)
 ENTRY AHLTUSR
 NAME AHLTUSR(R)
 PAGE AHLTXSYS
 INCLUDE AOS11(AHLTXSYS)
 ALIAS AHLSRM
 ALIAS AHLSRB
 ALIAS AHLDSP
 ENTRY AHLTXSYS
 NAME AHLTXSYS(R)
 PAGE AHLTSLIP
 INCLUDE AOS11(AHLTSLIP)
 ENTRY AHLTSLIP
 NAME AHLTSLIP(R)
 INCLUDE AOS11(AHLTVTAM)
 ALIAS AHLTACFV
 ALIAS AHLACFV
 ENTRY AHLTVTAM
 NAME AHLTVTAM(R)
/*
//SG37 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,LET,SIZE=(256K,96K)',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSA0 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.AOSA0
//AOSC5 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 ORDER IGG0CLA1
 ORDER IGG0CLC9
 ORDER IGG0CLAB
 ORDER IGG0CLAT
 ORDER IGG0CLAH
 ORDER IGG0CLA3
 ORDER IGG0CLAG
 ORDER IGG0CLBI
 ORDER IGG0CLBQ
 ORDER IGG0CLBM
 ORDER IGG0CLB6
 ORDER IGG0CLA2
 ORDER IGG0CLAM
 ORDER IGG0CLAA
 ORDER IGG0CLAY
 ORDER IGG0CLAZ
 ORDER IGG0CLBA
 ORDER IGG0CLBS
 ORDER IGG0CLBT
 ORDER IGG0CLAV
 ORDER IGG0CLAX
 ORDER IGG0CLAW
 ORDER IGG0CLBW
 ORDER IGG0CLB3
 ORDER IGG0CLBV
 ORDER IGG0CLBK
 ORDER IGG0CLAP
 ORDER IGG0CLAS
 ORDER IGG0CLAE
 ORDER IGG0CLAL
 ORDER IGG0CLAN
 ORDER IGG0CLBX
 ORDER IGG0CLB0
 ORDER IGG0CLBY
 ORDER IGG0CLB9
 ORDER IGG0CLB1
 ORDER IGG0CLAJ
 ORDER IGG0CLAR
 ORDER IGG0CLAU
 ORDER IGG0CLBR
 ORDER IGG0CLBF
 ORDER IGG0CLAK
 ORDER IGG0CLA8
 ORDER IGG0CLB8
 ORDER IGG0CLAQ
 ORDER IGG0CLA6
 ORDER IGG0CLBU
 ORDER IGG0CLA5
 ORDER IGG0CLB5
 ORDER IGG0CLBG
 ORDER IGG0CLA7
 ORDER IGG0CLA4
 ORDER IGG0CLBH
 ORDER IGG0CLAO
 ORDER IGG0CLAF
 ORDER IGG0CLBL
 ORDER IGG0CLAI
 ORDER IGG0CLBN
 ORDER IGG0CLBE
 ORDER IGG0CLBD
 ORDER IGG0CLB2
 ORDER IGG0CLBB
 ORDER IGG0CLBC
 ORDER IGG0CLBP
 ORDER IGG0CLAC
 ORDER IGG0CLAD
 ORDER IGG0CLBO
 ORDER IGG0CLDA
 ORDER IGG0CLB4
 ORDER IGG0CLBJ
 ORDER IGG0CLB7
 ORDER IGG0CLBZ
 ORDER IGG0CLA9
 INCLUDE AOSA0(IGG0CLA1)
 INCLUDE AOSA0(IGG0CLC9,IGG0CLAA,IGG0CLAB,IGG0CLAC)
 INCLUDE AOSA0(IGG0CLAD,IGG0CLAE,IGG0CLAF,IGG0CLAG)
 INCLUDE AOSA0(IGG0CLAH,IGG0CLAI)
 INCLUDE AOSA0(IGG0CLAJ,IGG0CLAK,IGG0CLAL,IGG0CLAM)
 INCLUDE AOSA0(IGG0CLAN,IGG0CLAO)
 INCLUDE AOSA0(IGG0CLAP,IGG0CLAQ,IGG0CLAR)
 INCLUDE AOSA0(IGG0CLAS,IGG0CLAT,IGG0CLAU,IGG0CLAV)
 INCLUDE AOSA0(IGG0CLAW,IGG0CLAX,IGG0CLAY,IGG0CLAZ)
 INCLUDE AOSA0(IGG0CLBA,IGG0CLBB,IGG0CLBC,IGG0CLBD)
 INCLUDE AOSA0(IGG0CLBE,IGG0CLBF,IGG0CLBG,IGG0CLBH)
 INCLUDE AOSA0(IGG0CLBI)
 INCLUDE AOSA0(IGG0CLBJ,IGG0CLBK,IGG0CLBL,IGG0CLBM)
 INCLUDE AOSA0(IGG0CLBO)
 INCLUDE AOSA0(IGG0CLBN,IGG0CLBP,IGG0CLBQ,IGG0CLBR)
 INCLUDE AOSA0(IGG0CLBS,IGG0CLBT,IGG0CLBU,IGG0CLBV)
 INCLUDE AOSA0(IGG0CLBW,IGG0CLBX,IGG0CLBY,IGG0CLBZ)
 INCLUDE AOSA0(IGG0CLB0,IGG0CLB1,IGG0CLB2)
 INCLUDE AOSA0(IGG0CLB3,IGG0CLB4,IGG0CLB5)
 INCLUDE AOSA0(IGG0CLB6,IGG0CLB7,IGG0CLB8)
 INCLUDE AOSA0(IGG0CLB9,IGG0CLDA)
 INCLUDE AOSA0(IGG0CLA2,IGG0CLA3)
 INCLUDE AOSA0(IGG0CLA4,IGG0CLA5,IGG0CLA6)
 INCLUDE AOSA0(IGG0CLA7,IGG0CLA8)
 INCLUDE AOSA0(IGG0CLA9)
 INCLUDE AOSA0(IGG0CLDC,IGG0CLDD)
 ENTRY IGG0CLA1
 NAME IGG0CLA1(R)
 INCLUDE AOSA0(IFG0191X)   EXPECT IEW0461 FOR IFG0191Y,IFG0198N
 NAME IFG0191X(R)
 INCLUDE AOSA0(IFG0191Y)
 NAME IFG0191Y(R)
 INCLUDE AOSA0(IFG0200N)   EXPECT IEW0461 FOR IFG0190V,IFG0191F
 ALIAS IFG0550Y
 NAME IFG0200N(R)
 INCLUDE AOSA0(IDACAT13)
 NAME IDACAT13(R)
 ORDER IDA0192A(P)
 ORDER IDA0192F
 ORDER IDA0192B
 ORDER IDA0192Z
 ORDER IDA0192Y
 ORDER IDA0192W
 ORDER IDA0192C(P)
 ORDER IDA0192M
 ORDER IDA0192V
 ORDER IDA0192D
 ORDER IDA0192G(P)
 ORDER IDA0192P
 ORDER IDA0192S
 ORDER IDA0192I
 ORDER IDA0200S
 ORDER IDA0200T(P)
 ORDER IDA0200B
 ORDER IDA0231T(P)
 ORDER IDA0231B
 ORDER IDA0557A(P)
 ORDER IDA0C06C(P)
 ORDER IDA0I96C
 ORDER IDACKRA1
 ORDER IDA0C05B
 ORDER IDA0A05B(P)
 INCLUDE AOSA0(IDA0192A)
 INCLUDE AOSA0(IDA0192B)
 INCLUDE AOSA0(IDA0192F)
 INCLUDE AOSA0(IDA0192M)
 INCLUDE AOSA0(IDA0192W)
 INCLUDE AOSA0(IDA0192Y)
 INCLUDE AOSA0(IDA0192Z)
 INCLUDE AOSA0(IDA0200T)
 INCLUDE AOSA0(IDA0200B)
 INCLUDE AOSA0(IDA0231T)
 INCLUDE AOSA0(IDA0231B)
 INCLUDE AOSA0(IDA0557A)
 INCLUDE AOSA0(IDA0192C)
 INCLUDE AOSA0(IDA0192D)
 INCLUDE AOSA0(IDA0192G)
 INCLUDE AOSA0(IDA0192P)
 INCLUDE AOSA0(IDA0192S)
 INCLUDE AOSA0(IDA0192V)
 INCLUDE AOSA0(IDA0192I)
 INCLUDE AOSA0(IDA0200S)
  INCLUDE AOSA0(IDA0C06C,IDA0I96C)
  INCLUDE AOSA0(IDA0A05B,IDA0C05B)
  INCLUDE AOSA0(IDACKRA1)
 ALIAS IDA0C06C,IDA0I96C,IDA0A05B,IDA0C05B
 ALIAS IDA0192V,IDA0192P,IDA0192G,IDA0192Y
 ALIAS IDA0200T,IDA0231T,IDA0557A,IDA0192I
 ALIAS IDA0200S
 ALIAS IDA0192C
 ENTRY IDA0192A
 NAME IDA0192A(R)
 INCLUDE AOSA0(IFG0192A)   EXPECT IEW0461 FOR IFG0198N
 INCLUDE AOSA0(IDAICIA1)
 INCLUDE AOSA0(IDAOCEA1)
 INCLUDE AOSA0(IDAOCEA2)
 INCLUDE AOSA0(IDAOCEA4)
 ALIAS IFG0200T,IFG0231T,IFG0192Y
 ALIAS IFG0557A,IFG0192I,IFG0200S
 ALIAS IDAOCEA1,IDAOCEA2,IDAOCEA4
 ENTRY IFG0192A
 NAME IFG0192A(R)
 ORDER IDA019R1
 ORDER IDA019R4
 ORDER IDA019RZ
 ORDER IDA019R2
 ORDER IDA019RW
 ORDER IDA019R3
 ORDER IDA019RA
 ORDER IDA019RB
 ORDER IDA019RC
 ORDER IDA019R8
 ORDER IDA019RL(P)
 ORDER IDA019RM
 ORDER IDA019SA
 ORDER IDA019RX(P)
 ORDER IDA019RU
 ORDER IDA019RS(P)
 ORDER IDA019RT
 ORDER IDA019SF
 ORDER IDA019RY(P)
 ORDER IDA019RP
 ORDER IDA019RR(P)
 ORDER IDA019RQ
 ORDER IDA019RV
 ORDER IDA019S6
 ORDER IDA019RE(P)
 ORDER IDA019RH
 ORDER IDA019RF
 ORDER IDA019RI
 ORDER IDA019RN
 ORDER IDA019RJ
 ORDER IDA019RG
 ORDER IDA019RK
 ORDER IDA019R5(P)
 ORDER IDA019SE
 ORDER IDA019RO
 ORDER IDA019SN
 ORDER IDA019SG
 ORDER IDA019SH
 ORDER IDA019SL
 ORDER IDA019SM
 ORDER IDA019ST
 ORDER IDA019SU
 INCLUDE AOSA0(IDA019R1)
 INCLUDE AOSA0(IDA019R4)
 INCLUDE AOSA0(IDA019RZ)
 INCLUDE AOSA0(IDA019R2)
 INCLUDE AOSA0(IDA019RW)
 INCLUDE AOSC5(IDAM19R3)
 INCLUDE AOSA0(IDA019RA)
 INCLUDE AOSA0(IDA019RB)
 INCLUDE AOSA0(IDA019RC)
 INCLUDE AOSA0(IDA019R8)
 INCLUDE AOSA0(IDA019RL)
 INCLUDE AOSA0(IDA019RM)
 INCLUDE AOSA0(IDA019SA)
 INCLUDE AOSA0(IDA019RX)
 INCLUDE AOSA0(IDA019RU)
 INCLUDE AOSA0(IDA019RS)
 INCLUDE AOSA0(IDA019RT)
 INCLUDE AOSA0(IDA019SF)
 INCLUDE AOSA0(IDA019RY)
 INCLUDE AOSA0(IDA019RP)
 INCLUDE AOSA0(IDA019RR)
 INCLUDE AOSA0(IDA019RQ)
 INCLUDE AOSA0(IDA019RV)
 INCLUDE AOSA0(IDA019RE)
 INCLUDE AOSA0(IDA019RH)
 INCLUDE AOSA0(IDA019RF)
 INCLUDE AOSA0(IDA019RI)
 INCLUDE AOSA0(IDA019RN)
 INCLUDE AOSA0(IDA019RJ)
 INCLUDE AOSA0(IDA019RG)
 INCLUDE AOSA0(IDA019RK)
 INCLUDE AOSA0(IDA019R5)
 INCLUDE AOSA0(IDA019SE)
 INCLUDE AOSA0(IDA019RO)
 INCLUDE AOSA0(IDA019S6)
 INCLUDE AOSA0(IDA019SN)
 INCLUDE AOSA0(IDA019ST)
 INCLUDE AOSA0(IDA019SU)
 INCLUDE AOSA0(IDA019SG)
 INCLUDE AOSA0(IDA019SH)
 INCLUDE AOSA0(IDA019SL)
 INCLUDE AOSA0(IDA019SM)
 ALIAS IDA019ST
 ENTRY IDA019R1
 NAME IDA019L1(R)
 INCLUDE AOSC5(IDA121A5)
 ALIAS IDA019R7
 ENTRY IDA121A5
 NAME IDA121A5(R)
 INCLUDE AOSA0(IDA019RD)
 NAME IDA019RD(R)
 ORDER IDA019S1(P)
 ORDER IDA019S2
 ORDER IDA019R5
 INCLUDE AOSA0(IDA019S1)
 INCLUDE AOSA0(IDA019S2)
 INCLUDE AOSA0(IDA019R5)
 ENTRY IDA019S1
 NAME IDA019L2(R)
 INCLUDE AOSA0(IDA019C1)
 NAME IDA019C1(R)
 INCLUDE AOSA0(IDAIIPM1)
 NAME IDAIIPM1(R)
 INCLUDE AOSA0(IDAIIPM2)
 NAME IDAIIPM2(R)
 INCLUDE AOSA0(IDAIIPM3)
 NAME IDAIIPM3(R)
 INCLUDE AOSA0(IDAIISM1)
 NAME IDAIISM1(R)
 INCLUDE AOSA0(IDAIIFBF)
 NAME IDAIIFBF(R)
 INCLUDE AOSA0(IDA0195A)
 NAME IDA0195A(R)
/*
//SG38 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSA0 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.AOSA0
//SYSLIN DD *
 INCLUDE AOSA0(IDDWICPI,IDDWIAPP,IDDWITRM)
 INCLUDE AOSA0(IDAVBPP1,IDDWICLS,IDAVBPO1)
 INCLUDE AOSA0(IDAVBPR2,IDAVBPC1)
 INCLUDE AOSA0(IDDWIJRN,IDAVBPS1,IDDWIFRR)
 INCLUDE AOSA0(IDAVBPR1)
 ORDER IDDWIAPP,IDDWITRM,IDAVBPP1,IDDWICPI,IDAVBPO1
 ORDER IDAVBPR2,IDDWICLS,IDAVBPC1,IDDWIJRN
 ORDER IDAVBPS1,IDDWIFRR,IDAVBPR1
 ALIAS  IDAVBPP1
         ENTRY IDDWIAPP
         NAME  IDDWI(R)
//SG39 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOSB0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB0
//SYSLIN DD *
 INCLUDE AOSB0(IASXWR00,IASXSD81,IASXSD82)
 ENTRY IASXWR00
 NAME IASXWR00(R)
 INCLUDE AOSB0(IEFSD087,IEFSD088,IEFSD089)
 ENTRY IEFSD087
 NAME IEFSD087(R)
 INCLUDE AOSB0(IEFSD094,IEFSD095)
 INCLUDE AOSB0(IEFSD088,IEFSD089)
 ENTRY IEFSD094
 NAME IEFSD094(R)
 INCLUDE AOSB0(IEFSDTTE)
 ENTRY IEFSDTTE
 NAME IEFSDTTE(R)
 INCLUDE AOSB0(IEFSDXXX)
 ENTRY IEFSDXXX
 NAME IEFSDXXX(R)
/*
//SG40 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LPALIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS01,CLASS=A
//AOS26 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS26
//AOS24 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS24
//SYSLIN DD *
 INCLUDE AOS26(ISTAICCK)
 INCLUDE AOS26(ISTAICIR)
 ENTRY ISTAICIR
 ORDER ISTAICIR
 ALIAS ISTAICBE
 ALIAS CCKRIUWT
 NAME ISTAICIR(R)
 INCLUDE AOS26(ISTCSCAC)
 INCLUDE AOS26(ISTCSCAQ)
 INCLUDE AOS26(ISTCSCCL)
 INCLUDE AOS26(ISTCSCLG)
 INCLUDE AOS26(ISTCSCMR)
 INCLUDE AOS26(ISTCSCRL)
 INCLUDE AOS26(ISTCSCPS)
 ENTRY ISTCSCMR
 ORDER ISTCSCMR
 NAME ISTCSCMR(R)
 INCLUDE AOS26(ISTOCCCA)
 NAME IFG0200U(R)
 INCLUDE AOS26(ISTINCOQ)
 NAME ISTINCOQ(R)
 INCLUDE AOS26(ISTINMDD)
 ENTRY ISTINMDD
 ORDER ISTINMDD
 NAME ISTINMDD(R)
 INCLUDE AOS26(ISTOCCCC)
 INCLUDE AOS26(ISTOCCCH)
 INCLUDE AOS26(ISTOCCCL)
 INCLUDE AOS26(ISTOCCCM)
 INCLUDE AOS26(ISTOCCCN)
 INCLUDE AOS26(ISTOCCFB)
 INCLUDE AOS26(ISTOCCFD)
 INCLUDE AOS26(ISTOCCFO)
 INCLUDE AOS26(ISTOCCFR)
 INCLUDE AOS26(ISTOCCLD)
 INCLUDE AOS26(ISTOCCMD)
 INCLUDE AOS26(ISTOCCNV)
 INCLUDE AOS26(ISTOCCOD)
 INCLUDE AOS26(ISTOCCOE)
 INCLUDE AOS26(ISTOCCOF)
 INCLUDE AOS26(ISTOCCQU)
 INCLUDE AOS26(ISTOCCRD)
 INCLUDE AOS26(ISTOCCRL)
 INCLUDE AOS26(ISTOCCRT)
 INCLUDE AOS26(ISTOCCSD)
 INCLUDE AOS26(ISTOCCSL)
 INCLUDE AOS26(ISTOCCUR)
 INCLUDE AOS26(ISTOCFCX)
 INCLUDE AOS26(ISTSQC00)
 INCLUDE AOS26(ISTSQC01)
 INCLUDE AOS26(ISTSQC02)
 INCLUDE AOS26(ISTSQC03)
 INCLUDE AOS26(ISTSQC04)
 INCLUDE AOS26(ISTSQC05)
 INCLUDE AOS26(ISTSQC06)
 INCLUDE AOS26(ISTSQC07)
 INCLUDE AOS26(ISTSQC08)
 INCLUDE AOS26(ISTSQC09)
 INCLUDE AOS26(ISTSQC0A)
 INCLUDE AOS26(ISTSQC0B)
 INCLUDE AOS26(ISTSTC00)
 INCLUDE AOS26(ISTCFCPC)
 INCLUDE AOS26(ISTCFCR1)
 INCLUDE AOS26(ISTCFCS1)
 INCLUDE AOS26(ISTCFCS2)
 INCLUDE AOS26(ISTCFCRP)
 ENTRY ISTOCCRT
 ORDER ISTOCCRT
 ALIAS ISTOCFCX
 NAME ISTOCCRT(R)
 INCLUDE AOS26(ISTOCCOA)
 NAME IFG0192F(R)
 INCLUDE AOS24(ISTOCCCB)
 ALIAS ISTOCWCB
 NAME ISTOCCCB(R)
 INCLUDE AOS26(ISTOCCOB)
 INCLUDE AOS26(ISTCFCPO)
 INCLUDE AOS26(ISTOCCOC)
 ENTRY ISTOCCOB
 ALIAS ISTOCWOB
 ORDER ISTOCCOB
 NAME ISTOCCOB(R)
 INCLUDE AOS26(ISTORMRL)
 ENTRY ISTORMRL
 ORDER ISTORMRL
 NAME ISTORMRL(R)
 INCLUDE AOS26(ISTRAMA1)
 INCLUDE AOS26(ISTRAMA3)
 ENTRY ISTRAMA1
 ORDER ISTRAMA1
 NAME ISTRAMA1(R)
 INCLUDE AOS26(ISTRAMA2)
 INCLUDE AOS26(ISTRAMA4)
 ENTRY ISTRAMA2
 ORDER ISTRAMA2
 NAME ISTRAMA2(R)
 INCLUDE AOS26(ISTZPSV0)
 INCLUDE AOS26(ISTZBFMB)
 INCLUDE AOS26(ISTZDFA0)
 INCLUDE AOS26(ISTZDFH0)
 INCLUDE AOS26(ISTZDFC0)
 INCLUDE AOS26(ISTZDFD0)
 INCLUDE AOS26(ISTZBFY0)
 INCLUDE AOS26(ISTZDFPR)
 INCLUDE AOS26(ISTZDFQR)
 INCLUDE AOS26(ISTZDFXR)
 INCLUDE AOS26(ISTZDMMB)
 INCLUDE AOS26(ISTZDFB0)
 INCLUDE AOS26(ISTZDFMF)
 INCLUDE AOS26(ISTZBFOB)
 INCLUDE AOS26(ISTZDFI0)
 INCLUDE AOS26(ISTZDFF0)
 INCLUDE AOS26(ISTZDFNB)
 INCLUDE AOS26(ISTZBFZ0)
 ENTRY ISTZPSV0
 ORDER ISTZPSV0
 ORDER ISTZBFMB
 ORDER ISTZDFA0
 ORDER ISTZDFH0
 ORDER ISTZDFC0
 ORDER ISTZDFD0
 ORDER ISTZBFY0
 NAME ISTZPSVB(R)
 INCLUDE AOS26(ISTZBM0J)
 NAME IGE0010F(R)
 INCLUDE AOS26(ISTZBM0K)
 NAME IGE0004{(R)
 INCLUDE AOS26(ISTZEMAA)
 INCLUDE AOS26(ISTZEMEA)
 INCLUDE AOS26(ISTZEMFA)
 INCLUDE AOS26(ISTZEMTA)
 INCLUDE AOS26(ISTZEFBA)
 INCLUDE AOS26(ISTZDFK0)
 INCLUDE AOS26(ISTZFMTA)
 INCLUDE AOS26(ISTZFMFA)
 INCLUDE AOS26(ISTZFFEA)
 INCLUDE AOS26(ISTZFFXA)
 INCLUDE AOS26(ISTZFMUA)
 INCLUDE AOS26(ISTZLFV0)
 ENTRY ISTZLFV0
 ORDER ISTZLFV0
 NAME ISTZLFVA(R)
 INCLUDE AOS26(ISTZEMAB)
 INCLUDE AOS26(ISTZEMBB)
 INCLUDE AOS26(ISTZFMEB)
 INCLUDE AOS26(ISTZFFCB)
 INCLUDE AOS26(ISTZFSV0)
 ENTRY ISTZFSV0
 ORDER ISTZFSV0
 NAME ISTZFSVB(R)
 INCLUDE AOS26(ISTZDFJ0)
 ENTRY ISTZDFJ0
 ORDER ISTZDFJ0
 NAME ISTZDFJ0(R)
 INCLUDE AOS26(ISTZLPV0)
 INCLUDE AOS26(ISTZEFDA)
 ENTRY ISTZLPV0
 ORDER ISTZLPV0
 NAME ISTZLPVA(R)
 INCLUDE AOS26(ISTZFM0A)
 NAME ISTZFM0A(R)
 INCLUDE AOS26(ISTZFM0B)
 INCLUDE AOS26(ISTZFM2B)
 INCLUDE AOS26(ISTZFM3B)
 INCLUDE AOS26(ISTZFMBB)
 ENTRY ISTZFM0B
 ORDER ISTZFM0B
 NAME ISTZCEAB(R)
 INCLUDE AOS26(ISTZFMV0)
 INCLUDE AOS26(ISTZFFDB)
 INCLUDE AOS26(ISTZFM1B)
 ENTRY ISTZFMV0
 ORDER ISTZFMV0
 NAME ISTZFMV0(R)
 INCLUDE AOS26(ISTZFMV1)
 INCLUDE AOS26(ISTZFFDF)
 INCLUDE AOS26(ISTZFM1F)
 INCLUDE AOS26(ISTZFMAF)
 ENTRY ISTZFMV1
 ORDER ISTZFMV1
 NAME ISTZFMV1(R)
 INCLUDE AOS26(ISTRAFTP)
 INCLUDE AOS26(ISTRACTL)
 ENTRY ISTRAFTP
 ORDER ISTRAFTP
 NAME ISTRAFTP(R)
/*
//SYSGEN2 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
//JOBCAT DD  DISP=SHR,DSN=SYS1.VMASTCAT
//LNK1 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT  DD    SYSOUT=A
//LINKLIB DD DSN=SYS1.LINKLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=U,BLKSIZE=19069),SPACE=(CYL,(40,1,330))
//SYSIN DD *
  DEFINE  CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.LINKLIB)    -
            VOL (MVSRES)      DEVT (3350))
/*
//SG2 EXEC ASMS,OBJ=OBJPDS02,MOD=MSTRJCL,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
         SGIEE0MS   JES2
         END
/*
//SG3 EXEC ASMS,OBJ=OBJPDS02,MOD=IEFJESNM,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
         SGIEF0SS   JES2
         END
/*
//SG4 EXEC ASMS,OBJ=OBJPDS02,MOD=IEEMB850,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
 SGIEE00V 100
 END
/*
//SG5 EXEC ASMS,OBJ=OBJPDS02,MOD=HEWLF064,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
  TITLE  'HEWLFDEF    EDITOR DEFAULT SIZE PARAMETERS'
  SGHEW011 VAL1=196608,VAL2=65536
  IHBRELNO
  END
/*
//LNK6 EXEC PGM=IEBCOPY,REGION=512K,COND=(8,LT)
//SYSUT3 DD DSN=&SYSUT3,SPACE=(1700,(10,5)),UNIT=SYSDA
//SYSUT4 DD DSN=&SYSUT4,SPACE=(460,(30,24)),UNIT=SYSDA
//SYSPRINT DD SPACE=(3630,(500,100),RLSE),
//    DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),SYSOUT=A
//LINKLIB DD DSNAME=SYS1.LINKLIB,DISP=OLD,
//     UNIT=3350,VOL=(,RETAIN,SER=MVSRES)
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOSCE DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSCE
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSC5
//AOSD0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSD0
//AOSG0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSG0
//AOST3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST3
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//AOS00 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS00
//AOS05 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS05
//AOS07 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS07
//AOS11 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS11
//AOS12 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS12
//AOS20 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS20
//AOS21 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS21
//AOS26 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS26
//SYSIN DD *
 COPY OUTDD=LINKLIB,INDD=AOS12
 SELECT MEMBER=(AMAPTFLE,HMAPTFLE,IMAPTFLE,AMAPTF01,AMAPTF02)
 SELECT MEMBER=(AMASPZAP,IMASPZAP)
 SELECT MEMBER=(AMDPRLPA,AMDPRQCB,AMDPRDPS)
 SELECT MEMBER=(AMDPRFDS)
 SELECT MEMBER=(AMDPRFXT,AMDPRPMS,AMDPRNUC)
 SELECT MEMBER=(AMDPRFUB,AMDPRPCR)
 SELECT MEMBER=(AMDPRPJB,AMDPRMST,AMDPRLOD)
 SELECT MEMBER=(AMDPRCVT,AMDPRECT)
 SELECT MEMBER=(AMDPRFAR,AMDPRGCD,AMDPRSUM)
 SELECT MEMBER=(AMDPROOT)
 SELECT MEMBER=(AMDSAPRO)
 COPY OUTDD=LINKLIB,INDD=AOS05
 SELECT MEMBER=(HEWLDRGO,IEWLDRGO,LOADER)    LOADER IS ALIAS
 COPY OUTDD=LINKLIB,INDD=AOS21
 SELECT MEMBER=(IEDAYZZ)
 SELECT MEMBER=(IEDBSM,IEDIAA,IEDIAB)
 SELECT MEMBER=(IEDKHISC,IEDNLT)
 SELECT MEMBER=(IEDNMG,IEDNTR)
 SELECT MEMBER=(IEDPMD)
 SELECT MEMBER=(IEDQCA)
 SELECT MEMBER=(IEDQDA)
 SELECT MEMBER=(IEDQEC,IEDQES,IEDQET,IEDQEW)
 SELECT MEMBER=(IEDQE1,IEDQE2,IEDQE3,IEDQE4)
 SELECT MEMBER=(IEDQE6,IEDQE8)
 SELECT MEMBER=(IEDQFE10,IEDQFE20,IEDQFE30)
 SELECT MEMBER=(IEDQFW,IEDQGQ)
 SELECT MEMBER=(IEDQHI)
 SELECT MEMBER=(IEDQNA2)
 SELECT MEMBER=(IEDQNB,IEDQNB02,IEDQNB05)
 SELECT MEMBER=(IEDQND,IEDQNF,IEDQNG)
 SELECT MEMBER=(IEDQNH,IEDQNJ,IEDQNK,IEDQNM)
 SELECT MEMBER=(IEDQNO,IEDQNP,IEDQNQ,IEDQNR)
 SELECT MEMBER=(IEDQNS,IEDQNT)
 SELECT MEMBER=(IEDQNU,IEDQNV,IEDQNW,IEDQNX)
 SELECT MEMBER=(IEDQOA,IEDQOB)
 SELECT MEMBER=(IEDQWA,IEDQWAA,IEDQWAB)
 SELECT MEMBER=(IEDQWAJ,IEDQWB,IEDQWB1)
 SELECT MEMBER=(IEDQWA1)
 SELECT MEMBER=(IEDQWB2,IEDQWC,IEDQWC1)
 SELECT MEMBER=(IEDQWC2,IEDQWD)
 SELECT MEMBER=(IEDQWE,IEDQWE1)
 SELECT MEMBER=(IEDQWEC,IEDQWE2,IEDQWF)
 SELECT MEMBER=(IEDQWF1,IEDQWH)
 SELECT MEMBER=(IEDQWI,IEDQWI1)
 SELECT MEMBER=(IEDQWIA,IEDQWID,IEDQWIE)
 SELECT MEMBER=(IEDQWI5U,IEDQWI7,IEDQWI8)
 SELECT MEMBER=(IEDQWI9,IEDQWJ,IEDQWJ1)
 SELECT MEMBER=(IEDQWJ2)
 SELECT MEMBER=(IEDQWK,IEDQWK1)
 SELECT MEMBER=(IEDQWL,IEDQWL1,IEDQWL2)
 SELECT MEMBER=(IEDQWL3,IEDQWM2)
 SELECT MEMBER=((IEDQWN,IEDQW35,R))
 SELECT MEMBER=(IEDQWO)
 SELECT MEMBER=((IEDQWP,IEDQW39,R))
 SELECT MEMBER=(IEDQWP1,IEDQWP2)
 SELECT MEMBER=((IEDQWQ,IEDQW37,R))
 SELECT MEMBER=((IEDQWR,IEDQW28,R))
 SELECT MEMBER=((IEDQWS,IEDQW36,R))
 SELECT MEMBER=(IEDQWAC,IEDQW21)
 SELECT MEMBER=((IEDQWX,IEDQW41,R))
 SELECT MEMBER=((IEDQWY,IEDQW16,R))
 SELECT MEMBER=(IEDQW42,IEDQW43)
 SELECT MEMBER=(IEDQW44,IEDQW47)
 SELECT MEMBER=(IEDQXA,IEDQXB,IEDQXC)
 SELECT MEMBER=(IGCFD10D)
 SELECT MEMBER=(IEDQW25,IEDQW33)
 COPY OUTDD=LINKLIB,INDD=AOSCE
 SELECT MEMBER=IGFC60
 SELECT MEMBER=IGFC70
 SELECT MEMBER=IGFC80
 SELECT MEMBER=IGFCIC
    COPY OUTDD=LINKLIB,INDD=ACMDLIB
    SELECT MEMBER=(IKJEFF18)
    SELECT MEMBER=(IKJEFF10)
    COPY OUTDD=LINKLIB,INDD=AOST4
    SELECT MEMBER=(IKJEFF53)
    SELECT MEMBER=(IKJEFF19)
    SELECT MEMBER=(IKJEFT25)
 COPY OUTDD=LINKLIB,INDD=AOSC5
 SELECT MEMBER=(IEAVVINT,IEAVMWTL)
 SELECT MEMBER=(IEAXPSIM,IEAXPDXR,IEAXPALL)
 SELECT MEMBER=(IEAVTMSI)
 COPY OUTDD=LINKLIB,INDD=AOSC5
 SELECT MEMBER=(IQADVM00)
 COPY OUTDD=LINKLIB,INDD=AOSC5
 SELECT MEMBER=(IEECVGCI)
 COPY OUTDD=LINKLIB,INDD=AOSG0
 SELECT MEMBER=(IFFANA,ANLZ,IGG019OK)
 SELECT MEMBER=(IFFCAN01,IFFCAN02,IFFCAN03)
/*
//SG7 EXEC LINKS,
// PARM='NCAL,LIST,XREF',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOS03 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.AOS03
//SYSLIN DD *
  INCLUDE  AOS03(IFOX0A,IFOX0B)
  ENTRY  IFOX0A01
  ALIAS  ASMBLR,IEUASM
  NAME  IFOX00(R)
  INCLUDE  AOS03(IFOX0C)
  ENTRY IFOX0C01
  NAME  IFOX01(R)
  INCLUDE  AOS03(IFOX0D,IFOX0J)
  ENTRY IFOX0D01
  NAME  IFOX02(R)
  INCLUDE  AOS03(IFOX0E)
  ENTRY  IFOX0E01
  NAME  IFOX03(R)
  INCLUDE  AOS03(IFOX0F)
  ENTRY IFOX0F01
  NAME  IFOX04(R)
  INCLUDE  AOS03(IFOX0G)
  ENTRY IFOX0G01
  NAME  IFOX05(R)
  INCLUDE  AOS03(IFOX0H)
  ENTRY IFOX0H01
  NAME  IFOX06(R)
  INCLUDE  AOS03(IFOX0I)
  ENTRY IFOX0I01
  NAME  IFOX07(R)
  INCLUDE  AOS03(IFNX1A,IFNX1J,IFNX1K,IFNX1S)
  ENTRY  IFNX1A01
  NAME  IFOX11(R)
  INCLUDE  AOS03(IFNX2A)
  ENTRY IFNX2A01
  NAME  IFOX21(R)
  INCLUDE  AOS03(IFNX3A,IFNX3B,IFNX3K,IFNX3N)
  ENTRY  IFNX3A01
  NAME  IFOX31(R)
  INCLUDE  AOS03(IFNX4D,IFNX4E,IFNX4M,IFNX4S,IFNX4V)
  ENTRY  IFNX4M01
  NAME  IFOX41(R)
  INCLUDE  AOS03(IFNX4E,IFNX4N,IFNX4S,IFNX4T,IFNX4V)
  ENTRY  IFNX4T01
  NAME  IFOX42(R)
  INCLUDE  AOS03(IFNX5A,IFNX5C,IFNX5D,IFNX5F)
  INCLUDE  AOS03(IFNX5L,IFNX5M,IFNX5P,IFNX5V)
  ENTRY  IFNX5C01
  NAME  IFOX51(R)
  INCLUDE  AOS03(IFNX6A)
  ENTRY IFNX6A01
  NAME  IFOX61(R)
  INCLUDE  AOS03(IFNX6B,IFNX6C)
  ENTRY  IFNX6B01
  NAME  IFOX62(R)
/*
//SG8 EXEC LINKS,
// PARM='NCAL,LIST,XREF,OVLY,XCAL,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOS04 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS04
//SYSLIN DD *
 INCLUDE AOS04(HEWLFROU,HEWLFAPT,HEWLFINT,HEWLFOPT)
 INCLUDE AOS04(HEWLFINP,HEWLFESD,HEWLFEND,HEWLFSYM)
 INCLUDE AOS04(HEWLFRCG,HEWLFSCN,HEWLFRAT,HEWLFIDR)
 INCLUDE AOS04(HEWLFINC,HEWLFMAP,HEWLFADA)
 INCLUDE AOS04(HEWLFENT,HEWLFENS,HEWLFOUT,HEWLFREL)
 INCLUDE AOS04(HEWLFSCD,HEWLFFNL,HEWLFBTP)
 INCLUDE SYSPUNCH(HEWLF064)
 INSERT HEWLFROU,HEWLFAPT,HEWLFDEF
 OVERLAY ONE  *** VALID EXCLUSIVE CALL TO HEWLFINP ***
 INSERT HEWLFINT,HEWLFOPT
 OVERLAY ONE **VALID EXCL. CALLS TO HEWLFADA,IEWLCFNI,HEWLFADA
 INSERT HEWLFINP,HEWLFESD,HEWLFEND,HEWLFSYM,HEWLFRCG
 INSERT HEWLFSCN,HEWLFRAT,HEWLFTXT,HEWLFINC,HEWLFIDR
 OVERLAY ONE
 INSERT HEWLFMAP
 OVERLAY TWO **VALID EXCL. CALLS TO HEWLFFNL,HEWLFSCD,HEWLFFNL
 INSERT HEWLFADA,HEWLFENT,HEWLFENS,HEWLFOUT
 OVERLAY TWO   *** VALID EXCLUSIVE CALL TO HEWLFFNL ***
 INSERT HEWLFREL,HEWLFSCD,HEWLFSIO
 OVERLAY TWO   *** VALID EXCLUSIVE CALL TO HEWLENAM ***
 INSERT HEWLFFNL,HEWLFBTP
 ENTRY HEWLFROU
 ALIAS IEWL
 ALIAS IEWLF440
 ALIAS IEWLF880
 ALIAS IEWLF128
 ALIAS HEWL
 ALIAS LINKEDIT
 NAME HEWLF064(R)
/*
//SG9 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,REFR,REUS,OL',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOS05  DD DSNAME=SYS1.AOS05,DISP=SHR,VOLUME=(,RETAIN)
//SYSLIN DD *
 INCLUDE AOS05(HEWLDIOC,HEWLDREL,HEWLDLIB,HEWLDIDY)
 ENTRY HEWLIOCA
 ALIAS IEWLOAD
 ALIAS IEWLOADR
 ALIAS HEWLOAD
 NAME HEWLOADR(R)
/*
//SG10 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//AOSA0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSA0
//SYSLIN DD *
 INCLUDE AOSA0(IGG0CLA0)
 ENTRY IGG0CLA0
 NAME IGG0CLA0(R)
 SETCODE AC(1)
 INCLUDE AOSU0(IDCEX01,IDCTP01,IDCSA01,IDCSA02)
 INCLUDE AOSU0(IDCSA03,IDCIO01,IDCIO02,IDCIO03)
 INCLUDE AOSU0(IDCTP04,IDCTP05,IDCEX02,IDCEX03)
 INCLUDE AOSU0(IDCSA05,IDCTP06)
 INCLUDE AOSU0(IDCSA06,IDCSA07,IDCSA08)
 INCLUDE AOSU0(IDCSA09,IDCSA10,IDCIO05)
 ENTRY IDCSA01
 ALIAS IDCSATO
 NAME IDCAMS(R)
 INCLUDE AOSU0(IDCRI01,IDCRI02,IDCRI03)
 ENTRY IDCRI01
 NAME IDCRI01(R)
 INCLUDE AOSU0(IDCIO04)
 NAME IDCIO04(R)
 INCLUDE AOSU0(IDCRI04)
 NAME IDCRI04(R)
 INCLUDE AOSU0(IDCRIKT)
 NAME IDCRIKT(R)
 INCLUDE AOSU0(IDCDB01)
 NAME IDCDB01(R)
 INCLUDE AOSU0(IDCDB02)
 NAME IDCDB02(R)
 INCLUDE AOSU0(IDCAL01)
 NAME IDCAL01(R)
 INCLUDE AOSU0(IDCRP01)
 NAME IDCRP01(R)
 INCLUDE AOSU0(IDCDE01,IDCDE02,IDCDE03)
 ENTRY IDCDE01
 NAME IDCDE01(R)
 INCLUDE AOSU0(IDCDL01)
 NAME IDCDL01(R)
 INCLUDE AOSU0(IDCLC01,IDCLC02)
 ENTRY IDCLC01
 NAME IDCLC01(R)
 INCLUDE AOSU0(IDCMP01)
 NAME IDCMP01(R)
 INCLUDE AOSU0(IDCPM01)
 NAME IDCPM01(R)
 INCLUDE AOSU0(IDCPR01)
 NAME IDCPR01(R)
 INCLUDE AOSU0(IDCXP01)
 NAME IDCXP01(R)
 INCLUDE AOSU0(IDCVY01)
 NAME IDCVY01(R)
 INCLUDE AOSU0(IDCCC01)
 NAME IDCCC01(R)
 INCLUDE AOSU0(IDACAT21)
 NAME IDACAT21(R)
 INCLUDE AOSU0(IDCCDAL)
 NAME IDCCDAL(R)
 INCLUDE AOSU0(IDCCDRP)
 NAME IDCCDRP(R)
 INCLUDE AOSU0(IDCCDDE)
 NAME IDCCDDE(R)
 INCLUDE AOSU0(IDCCDDL)
 NAME IDCCDDL(R)
 INCLUDE AOSU0(IDCCDLC)
 NAME IDCCDLC(R)
 INCLUDE AOSU0(IDCCDMP)
 NAME IDCCDMP(R)
 INCLUDE AOSU0(IDCCDPM)
 NAME IDCCDPM(R)
 INCLUDE AOSU0(IDCCDPR)
 NAME IDCCDPR(R)
 INCLUDE AOSU0(IDCCDXP)
 NAME IDCCDXP(R)
 INCLUDE AOSU0(IDCCDVY)
 NAME IDCCDVY(R)
 INCLUDE AOSU0(IDCCDCC)
 NAME IDCCDCC(R)
 INCLUDE AOSU0(IDCRILT)
 INCLUDE AOSU0(IDCRIFF)
 ORDER IDCRILT,IDCRIFF
 NAME IDCRILT(R)
 INCLUDE AOSU0(IDCTSAL0)
 NAME IDCTSAL0(R)
 INCLUDE AOSU0(IDCTSDE0)
 NAME IDCTSDE0(R)
 INCLUDE AOSU0(IDCTSDL0)
 NAME IDCTSDL0(R)
 INCLUDE AOSU0(IDCTSEX0)
 NAME IDCTSEX0(R)
 INCLUDE AOSU0(IDCTSIO0)
 NAME IDCTSIO0(R)
 INCLUDE AOSU0(IDCTSLC0)
 NAME IDCTSLC0(R)
 INCLUDE AOSU0(IDCTSLC1)
 NAME IDCTSLC1(R)
 INCLUDE AOSU0(IDCTSMP0)
 NAME IDCTSMP0(R)
 INCLUDE AOSU0(IDCTSPR0)
 NAME IDCTSPR0(R)
 INCLUDE AOSU0(IDCTSRI0)
 NAME IDCTSRI0(R)
 INCLUDE AOSU0(IDCTSRI1)
 NAME IDCTSRI1(R)
 INCLUDE AOSU0(IDCTSSA0)
 NAME IDCTSSA0(R)
 INCLUDE AOSU0(IDCTSTP0)
 NAME IDCTSTP0(R)
 INCLUDE AOSU0(IDCTSTP1)
 NAME IDCTSTP1(R)
 INCLUDE AOSU0(IDCTSTP6)
 NAME IDCTSTP6(R)
 INCLUDE AOSU0(IDCTSUV0)
 NAME IDCTSUV0(R)
 INCLUDE AOSU0(IDCTSXP0)
 NAME IDCTSXP0(R)
 INCLUDE AOSU0(IDCTSCC0)
 NAME IDCTSCC0(R)
 INCLUDE AOSU0(IDCCDCK)
 NAME IDCCDCK(R)
 INCLUDE AOSU0(IDCCK01)
 NAME IDCCK01(R)
 INCLUDE AOSU0(IDCTSCK0)
 NAME IDCTSCK0(R)
 INCLUDE AOSU0(IDCCDBI)
 NAME IDCCDBI(R)
 INCLUDE AOSU0(IDCBI01)
 NAME IDCBI01(R)
 INCLUDE AOSU0(IDCTSBI0)
 NAME IDCTSBI0(R)
 INCLUDE AOSU0(IDCCDLR)
 NAME IDCCDLR(R)
 INCLUDE AOSU0(IDCLR01)
 INCLUDE AOSU0(IDCLR02)
 INCLUDE AOSU0(IDCRC04)
 ENTRY IDCLR01
 NAME IDCLR01(R)
 INCLUDE AOSU0(IDCTSLR0)
 NAME IDCTSLR0(R)
 INCLUDE AOSU0(IDCTSLR1)
 NAME IDCTSLR1(R)
 INCLUDE AOSU0(IDCCDRC)
 NAME IDCCDRC(R)
 INCLUDE AOSU0(IDCRC01)
 INCLUDE AOSU0(IDCRC02)
 INCLUDE AOSU0(IDCRC03)
 INCLUDE AOSU0(IDCRC04)
 ENTRY IDCRC01
 NAME IDCRC01(R)
 INCLUDE AOSU0(IDCTSRC0)
 NAME IDCTSRC0(R)
 INCLUDE AOSU0(IDCCDRM)
 NAME IDCCDRM(R)
 INCLUDE AOSU0(IDCRM01)
 NAME IDCRM01(R)
 INCLUDE AOSU0(IDCCDRS)
 NAME IDCCDRS(R)
 INCLUDE AOSU0(IDCRS01)
 INCLUDE AOSU0(IDCRS02)
 INCLUDE AOSU0(IDCRS03)
 INCLUDE AOSU0(IDCRS04)
 INCLUDE AOSU0(IDCRS05)
 INCLUDE AOSU0(IDCRS06)
 INCLUDE AOSU0(IDCRS07)
 ENTRY IDCRS01
 NAME IDCRS01(R)
 INCLUDE AOSU0(IDCTSRS0)
 NAME IDCTSRS0(R)
/*
//SG11 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REUS,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1='(',
//    MOD=IEHDASDR,P2=')',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEHDASDR)
 SETCODE AC(1)
 NAME IEHDASDR(R)
 INCLUDE AOSU0(IEHDASDS,IEHDCONS)
 ENTRY IEHDASDS
 NAME IEHDASDS(R)
 INCLUDE AOSU0(IEHDPRNT,IEHDDATE)
 ENTRY IEHDPRNT
 NAME IEHDPRNT(R)
 INCLUDE AOSU0(IEHDMSGB,IEHDMSGS)
 ENTRY IEHDMSGB
 NAME IEHDMSGB(R)
 INCLUDE AOSU0(IEHDSCAN)
 NAME IEHDSCAN(R)
 INCLUDE AOSU0(IEHDREST,IEHDINIT)
 INCLUDE AOSU0(IEHDRVID)
 ENTRY IEHDINIT
 NAME IEHDREST(R)
 INCLUDE AOSU0(IEHDDUMP,IEHDEXCP,IEHDDOIO)
 ENTRY IEHDDUMP
 NAME IEHDDUMP(R)
 INCLUDE AOSU0(IEHDAOUT)
 NAME IEHDAOUT(R)
 INCLUDE AOSU0(IEHDANAL)
 NAME IEHDANAL(R)
 INCLUDE AOSU0(IEHDVTOC)
 NAME IEHDVTOC(R)
 INCLUDE AOSU0(IEHDLABL)
 NAME IEHDLABL(R)
 INCLUDE AOSU0(IEHDGETA)
 NAME IEHDGETA(R)
 INCLUDE AOSU0(IEHDPASS)
 NAME IEHDPASS(R)
 INCLUDE AOSU0(IEHDRCVR)
 NAME IEHDRCVR(R)
 INCLUDE AOSU0(IEHDIPLI)
 NAME IEHDIPLI(R)
/*
//SG12 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEHATLAS,IEHMESS)
 ENTRY  IEHATLAS
 SETCODE AC(1)
 NAME   IEHATLAS(R)
 INCLUDE AOSU0(IAPCNTRL,IAPBLDIO,IAPCHKIO,IAPTIMER)
 INCLUDE AOSU0(IAPABNAP,IAPPFXAP)
 ENTRY  IAPCNTRL
 ALIAS  IAPTIMER
 SETCODE AC(1)
 NAME   IAPAP100(R)
/*
//SG13 EXEC LINKS,
// PARM='NCAL,LIST,XREF,OVLY,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1='(',
//    MOD=IEBPTPCH,P2=')',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEBPPUN1,IEBPPMSG)
 INCLUDE AOSU0(IEBPPAL1,IEBCCS02)
 INCLUDE AOSU0(IEBPPCH1)
 ENTRY PRPCH
 NAME    IEBPTPCH(R)
 INCLUDE AOSU0(IEBGENRT,IEBGMESG)
 INCLUDE AOSU0(IEBCCS02,IEBGSCAN)
 INCLUDE AOSU0(IEBGENR3,IEBCONP2,IEBCONH2)
 INCLUDE AOSU0(IEBCONZ2,IEBEDIT2,IEBLENP2)
 INCLUDE AOSU0(IEBMOVE2)
 INCLUDE AOSU0(IEBGENS3)
 INCLUDE AOSU0(IEBGEN03)
 ENTRY IEBGENER
 NAME    IEBGENER(R)
 INCLUDE AOSU0(IEBCROOT,IEBCOMPM,IEBCULET)
 INCLUDE AOSU0(IEBCCS02,IEBCANAL)
 INCLUDE AOSU0(IEBCMAIN,IEBCQSAM)
 ENTRY   COMPARE
 NAME    IEBCOMPR(R)
 INCLUDE AOSU0(IEBUPDTE,IEBUPLOG,IEBUPDT2,IEBUPXIT)
 INCLUDE AOSU0(IEBUPNIT)
 INCLUDE AOSU0(IEBASCAN,IEBBSCAN)
 ENTRY IEBUPDTE
 NAME IEBUPDTE(R)
 INCLUDE AOSU0(IEBDSCPY,IEBVMS)
 INCLUDE AOSU0(IEBDV1,IEBLDUL)
 INCLUDE AOSU0(IEBSCN)
 INCLUDE AOSU0(IEBVCT)
 INCLUDE AOSU0(IEBIOE)
 INCLUDE AOSU0(IEBRSAM,IEBCNVT,IEBDRD)
 INCLUDE AOSU0(IEBWSAM,IEBDSU)
 INCLUDE AOSU0(IEBWSU,IEBDWR)
 INCLUDE AOSU0(IEBBAM)
 INCLUDE AOSU0(IEBVDM)
 INCLUDE AOSU0(IEBDRB)
 INCLUDE AOSU0(IEBMCM)
 INCLUDE AOSU0(IEBVTT)
 INCLUDE AOSU0(IEBVTM)
 ORDER IEBDSMCA(P)
 INSERT IEBDSMCA
 INSERT IEBDSCP2
 INSERT IEBVMTXT
 INSERT IEBDV1MG
 INSERT IEBIOEMG
 INSERT IEBWSUMG
 INSERT IEBDSCPY,IEBVMS,IEBDV1
 OVERLAY 1
 INSERT IEBLDUL
 OVERLAY 1
 INSERT IEBSCN
 OVERLAY 1
 INSERT IEBVCT
 OVERLAY 1
 INSERT IEBIOE
 OVERLAY 1
 INSERT IEBRSAM,IEBCNVT,IEBDRD
 OVERLAY 2
 INSERT IEBWSAM,IEBDSU
 OVERLAY 2
 INSERT IEBWSU,IEBDWR
 OVERLAY 3
 INSERT IEBBAM
 OVERLAY 3
 INSERT IEBVDM
 OVERLAY 3
 INSERT IEBDRB
 OVERLAY 3
 INSERT IEBMCM
 OVERLAY 3
 INSERT IEBVTT
 OVERLAY 3
 INSERT IEBVTM
 ENTRY IEBDSCPY
 SETCODE AC(1)
 NAME    IEBCOPY(R)
/*
//SG14 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REUS,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEHMVESU)
 NAME       IEHMVESU(R)
 INCLUDE AOSU0(IEHMVESI)
 NAME       IEHMVESI(R)
 INCLUDE AOSU0(IEHMVESH)
 NAME       IEHMVESH(R)
 INCLUDE AOSU0(IEHMVESO)
 NAME       IEHMVESO(R)
 INCLUDE AOSU0(IEHMVESP)
 NAME       IEHMVESP(R)
 INCLUDE AOSU0(IEHMVESC)
 NAME       IEHMVESC(R)
 INCLUDE AOSU0(IEHMVESK)
 NAME       IEHMVESK(R)
 INCLUDE AOSU0(IEHMVESR)
 NAME       IEHMVESR(R)
 INCLUDE AOSU0(IEHMVESJ)
 NAME       IEHMVESJ(R)
/*
//SG15 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REUS',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1='(',
//    MOD=IEHMVXSF,P2=')',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEHMVXSF,IEHMVSSF)
 ENTRY   IEHMVXSF
 NAME    IEHMVXSF(R)
 INCLUDE AOSU0(IEHMVSRX,IEHMVSRM,IEHMVSSY)
 INCLUDE AOSU0(IEHMVMSY)
 ENTRY   IEHMVESY
 NAME    IEHMVESY(R)
 INCLUDE AOSU0(IEHMVSSX,IEHMVSRY,IEHMVSTC)
 INCLUDE AOSU0(IEHMVMRY)
 ENTRY   IEHMVESY
 NAME    IEHMVESV(R)
 INCLUDE AOSU0(IEHMVSRV,IEHMVSRZ,IEHMVSRK)
 INCLUDE AOSU0(IEHMVMRZ)
 ENTRY   IEHMVESZ
 NAME    IEHMVESX(R)
 INCLUDE AOSU0(IEHMVSSZ,IEHMVSSV)
 INCLUDE AOSU0(IEHMVMRZ)
 ENTRY   IEHMVESZ
 NAME    IEHMVESZ(R)
 INCLUDE AOSU0(IEHMVSRD,IEHMVSRM)
 ENTRY   IEHMVERD
 NAME    IEHMVERD(R)
 INCLUDE AOSU0(IEHMVSRA,IEHMVSRK)
 ENTRY   IEHMVERA
 NAME    IEHMVERA(R)
 INCLUDE AOSU0(IEHMVSTA,IEHMVSRK,IEHMVSRM)
 INCLUDE AOSU0(IEHMVMTA)
 ENTRY   IEHMVETA
 NAME    IEHMVETA(R)
 INCLUDE AOSU0(IEHMVSTL,IEHMVSRK,IEHMVSRM)
 INCLUDE AOSU0(IEHMVMTL)
 ENTRY   IEHMVETL
 NAME    IEHMVETL(R)
 INCLUDE AOSU0(IEHMVSSS)
 ENTRY   IEHMVESS
 NAME    IEHMVESS(R)
 INCLUDE AOSU0(IEHMVETG)
 ENTRY IEHMVETG
 NAME IEHMVETG(R)
 INCLUDE AOSU0(IEHMVESM)
 ENTRY IEHMVESM
 NAME IEHMVESM(R)
 INCLUDE AOSU0(IEHMVESL)
 ENTRY IEHMVESL
 NAME IEHMVESL(R)
 INCLUDE AOSU0(IEHMVETJ)
 ENTRY IEHMVETJ
 NAME IEHMVETJ(R)
 INCLUDE AOSU0(IEHMVESQ,IEHMVMSQ)
 ENTRY IEHMVESQ
 NAME IEHMVESQ(R)
 INCLUDE AOSU0(IEHMVESN,IEHMVMSN)
 ENTRY IEHMVESN
 NAME IEHMVESN(R)
 INCLUDE AOSU0(IEHMVESA)
 ENTRY IEHMVESA
 NAME IEHMVESA(R)
/*
//SG16 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEHMVXSE)
 ALIAS      IEHMVESE
 NAME       IEHMVXSE(R)
 INCLUDE AOSU0(IEHMVEST)
 NAME       IEHMVEST(R)
 INCLUDE AOSU0(IEHMOVE)
 ENTRY IEHMVESD
 SETCODE AC(1)
 NAME       IEHMOVE(R)
/*
//SG17 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEBISAM)
 NAME IEBISAM(R)
 INCLUDE AOSU0(IEBISU,IEBISSO)
 ENTRY IEBISU
 NAME IEBISU(R)
 INCLUDE AOSU0(IEBISL,IEBISSI)
 ENTRY IEBISL
 NAME IEBISL(R)
 INCLUDE AOSU0(IEBISF,IEBISMES)
 ENTRY IEBISF
 NAME IEBISF(R)
 INCLUDE AOSU0(IEBISC)
 NAME IEBISC(R)
 INCLUDE AOSU0(IEBISPL)
 NAME IEBISPL(R)
/*
//SG18 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEBDG)
 NAME IEBDG(R)
 INCLUDE AOSU0(IEBDGCUP)
 NAME IEBDGCUP(R)
 INCLUDE AOSU0(IEBFDANL)
 NAME IEBFDANL(R)
 INCLUDE AOSU0(IEBFDTBL)
 NAME IEBFDTBL(R)
 INCLUDE AOSU0(IEBCRANL)
 NAME IEBCRANL(R)
 INCLUDE AOSU0(IEBCREAT)
 NAME IEBCREAT(R)
 INCLUDE AOSU0(IEBDGMSG)
 NAME IEBDGMSG(R)
/*
//SG19 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(ICKAA01)
 INCLUDE AOSU0(ICKAN01)
 INCLUDE AOSU0(ICKAN02)
 INCLUDE AOSU0(ICKAN03)
 INCLUDE AOSU0(ICKBI01)
 INCLUDE AOSU0(ICKBM01)
 INCLUDE AOSU0(ICKCDAN)
 INCLUDE AOSU0(ICKCDBI)
 INCLUDE AOSU0(ICKCDIN)
 INCLUDE AOSU0(ICKCDIT)
 INCLUDE AOSU0(ICKCDRF)
 INCLUDE AOSU0(ICKCDTR)
 INCLUDE AOSU0(ICKDV00)
 INCLUDE AOSU0(ICKDV01)
 INCLUDE AOSU0(ICKDV02)
 INCLUDE AOSU0(ICKDV03)
 INCLUDE AOSU0(ICKDV04)
 INCLUDE AOSU0(ICKDV13)
 INCLUDE AOSU0(ICKEX01)
 INCLUDE AOSU0(ICKIN01)
 INCLUDE AOSU0(ICKIN02)
 INCLUDE AOSU0(ICKIO01)
 INCLUDE AOSU0(ICKIO02)
 INCLUDE AOSU0(ICKIT01)
 INCLUDE AOSU0(ICKPP01)
 INCLUDE AOSU0(ICKRF01)
 INCLUDE AOSU0(ICKRIKT)
 INCLUDE AOSU0(ICKRILT)
 INCLUDE AOSU0(ICKRI01)
 INCLUDE AOSU0(ICKRI02)
 INCLUDE AOSU0(ICKRP01)
 INCLUDE AOSU0(ICKSA01)
 INCLUDE AOSU0(ICKSA02)
 INCLUDE AOSU0(ICKSA03)
 INCLUDE AOSU0(ICKSA04)
 INCLUDE AOSU0(ICKSA05)
 INCLUDE AOSU0(ICKSA08)
 INCLUDE AOSU0(ICKSA10)
 INCLUDE AOSU0(ICKSD01)
 INCLUDE AOSU0(ICKSD02)
 INCLUDE AOSU0(ICKTA01)
 INCLUDE AOSU0(ICKTP01)
 INCLUDE AOSU0(ICKTP05)
 INCLUDE AOSU0(ICKTR01)
 INCLUDE AOSU0(ICKTR02)
 INCLUDE AOSU0(ICKTSAN0)
 INCLUDE AOSU0(ICKTSBI0)
 INCLUDE AOSU0(ICKTSCC0)
 INCLUDE AOSU0(ICKTSDV0)
 INCLUDE AOSU0(ICKTSEF0)
 INCLUDE AOSU0(ICKTSEF1)
 INCLUDE AOSU0(ICKTSEX0)
 INCLUDE AOSU0(ICKTSIO0)
 INCLUDE AOSU0(ICKTSRI0)
 INCLUDE AOSU0(ICKTSSA0)
 INCLUDE AOSU0(ICKTSTP1)
 INCLUDE AOSU0(ICKTSUV0)
 INCLUDE AOSU0(ICKUSER1)
 INCLUDE AOSU0(ICKVA01)
 INCLUDE AOSU0(ICKVLBL)
 INCLUDE AOSU0(ICKVV01)
 INCLUDE AOSU0(ICKWI01)
 INCLUDE AOSU0(ICKWL01)
 INCLUDE AOSU0(ICKWV01)
 ENTRY ICKSA01
 SETCODE AC(1)
 NAME ICKDSF(R)
/*
//SG20 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSC5 DD DSNAME=SYS1.AOSC5,VOLUME=(,RETAIN),DISP=SHR
//SYSLIN DD *
 INCLUDE AOSC5(ILROPS00)
 ENTRY ILROPS00
 NAME ILROPS00(R)
 INCLUDE AOSC5(ILRPREAD)
 ENTRY ILRPREAD
 NAME ILRPREAD(R)
 INCLUDE AOSC5(ILRPGEXP)
 ENTRY ILRPGEXP
 ALIAS IEEPGEXP
 NAME ILRPGEXP(R)
/*
//SG21 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REUS',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSC5 DD DSNAME=SYS1.AOSC5,VOLUME=(,RETAIN),DISP=SHR
//SYSLIN DD *
 INCLUDE AOSC5(ILRFMT00)
 INCLUDE AOSC5(ILRFMTPG)
 INCLUDE AOSC5(ILRFMTSW)
 INCLUDE AOSC5(ILRFMTCV)
 ENTRY ILRFMT00
 NAME ILRFMT00(R)
 INCLUDE AOSC5(ILRTMI00)
 ENTRY ILRTMI00
 NAME ILRTMI00(R)
/*
//SG22 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,DC',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEHLIST1,IEHLIST2,IEHLIST3,IEHMVSSF)
 ENTRY IEHLISTR
 NAME IEHLIST(R)
  INCLUDE AOSU0(IEHPROG1,IEHPROG2,IEHPROG3,IEHPROG4)
 INCLUDE AOSU0(IEHPROG5,IEHMVSSF)
 ENTRY IEHPROG1
 SETCODE AC(1)
  NAME IEHPROGM(R)
  INCLUDE AOSU0(IFHSTATR)
 NAME IFHSTATR(R)
 INCLUDE AOSU0(IEHINITT)
 SETCODE AC(1)
 NAME    IEHINITT(R)
 INCLUDE AOSU0(IEHPRNT)
 NAME    IEHPRNT(R)
 INCLUDE AOSU0(IEHSCAN)
 NAME    IEHSCAN(R)
/*
//SG23 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REUS,LET,DC',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1='(',
//    MOD=IEBEDIT,P2=')',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEBEDIT)
 NAME    IEBEDIT(R)
/*
//SG24 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REUS,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1='(',
//    MOD=IEBIMAGE,P2=')',OBJ=OBJPDS02,CLASS=A
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSU0
//SYSLIN DD *
 INCLUDE AOSU0(IEBIMAGE,IEBISCAN,IEBIMSGS)
 ENTRY   IEBIMAGE
 NAME    IEBIMAGE(R)
/*
//SG25 EXEC LINKS,
// PARM='NCAL,LIST,XREF',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOS12 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS12
//SYSLIN DD *
 ORDER AMDPRCTL,AMDPRCOM,AMDPRRDC,AMDPRPMG,AMDPRSEG
 ORDER AMDPREAD,AMDPRUIM
 INCLUDE AOS12(AMDPRCTL,AMDPRCOM,AMDPRRDC)
 INCLUDE AOS12(AMDPRPMG,AMDPRSEG)
 INCLUDE AOS12(AMDPREAD,AMDPRUIM)
 ENTRY AMDPRDMP
 ALIAS IMDPRDMP
 ALIAS HMDPRDMP
 NAME AMDPRDMP(R)
 INCLUDE AOS12(AMDPRFSC,AMDPRFCB)
 ENTRY AMDPRFSC
 NAME AMDPRFSR(R)
 INCLUDE AOS12(AMDPRSCN,AMDPRSN2,AMDPRSN3,AMDPRSMG,AMDPREID)
 ENTRY AMDPRSCN
 NAME AMDPRSCN(R)
 INCLUDE AOS12(AMDPRFRM,AMDPRFMG,AMDPRGET,AMDPRFLT)
 INCLUDE AOS12(AMDPREXT,AMDPRAPP,AMDPRREC)
 ENTRY AMDPRFRM
 NAME AMDPRXED(R)
 INCLUDE AOS12(AMDSALDR,AMDSAMSG)
 ENTRY AMDSALDR
 NAME AMDSALDR(R)
 INCLUDE AOS12(AMDSAPGE,AMDSAIOI,AMDSAPGI,AMDSASVI)
 INCLUDE AOS12(AMDSATXT,AMDSASIO,AMDSAWAT,AMDSATAP)
 INCLUDE AOS12(AMDSACON,AMDSAGTM,AMDSAFRM,AMDSAASM)
 INCLUDE AOS12(AMDSASIN,AMDSAUPD,AMDSATER,AMDSACSA)
 INCLUDE AOS12(AMDSAAID,AMDSAAUD,AMDSABUF,AMDSADER)
 INCLUDE AOS12(AMDSAARD,AMDSAMDM,AMDSARSM)
 INCLUDE AOS12(AMDSAGTF,AMDSAUCB,AMDSAVCK)
 ORDER AMDSAPGE
 ENTRY AMDSAPGE
 NAME AMDSAPGE(R)
/*
//SG26 EXEC LINKS,
// PARM='NCAL,LIST,XREF,AC=1',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOS11 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS11
//SYSLIN DD *
 INCLUDE AOS11(AHLGTFI,AHLSCAN,AHLTCTL1,AHLTSCN)
 INCLUDE AOS11(AHLTPMT,AHLT103,AHLTTAB,AHLTCTL2)
 ENTRY AHLGTFI
 ALIAS IHLGTF
 ALIAS HHLGTF
 NAME AHLGTF(R)
 INCLUDE AOS11(AHLWTASK,AHLWTMSG)
 ENTRY AHLWTASK
 NAME AHLWTASK(R)
 INCLUDE AOS11(AHLTMON,AHLTMMSG)
 ENTRY AHLTMON
 NAME AHLTMON(R)
 INCLUDE AOS11(AHLIWRIT,AHLWRMSG)
 ENTRY AHLIWRIT
 NAME AHLIWRIT(R)
 INCLUDE AOS11(AHLCWRIT,AHLWRMSG)
 ENTRY AHLCWRIT
 NAME AHLCWRIT(R)
 INCLUDE AOS11(AHLWWRIT,AHLWRMSG)
 ENTRY AHLWWRIT
 NAME AHLWWRIT(R)
/*
//SG27 EXEC LINKS,
// PARM='NCAL,LIST,XREF,SIZE=(512K,100K)',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//*******************************
//*                             *
//* SMP 1.4 SYSGEN MACRO        *
//*                             *
//*******************************
//AOS12    DD DSNAME=SYS1.AOS12,
//         VOLUME=(,RETAIN),DISP=SHR
//SYSLIN DD *
 ORDER HMASMDRV           SMP DRIVER FUNCTION
 ORDER HMASMDSU,HMASMDC2
 ORDER HMASMDS1,HMASMBDL
 ORDER HMASMDR1,HMASMDR2
 ORDER HMASMIO              SMP IO RTNS
 ORDER HMASMION,HMASMIO1
 ORDER HMASMEIS,HMASMRDS
 ORDER HMASMALC
 ORDER HMASMSTA           SMP STAE RTNS
 ORDER HMASMSER
 ORDER HMASMEFR           X37 RECOVERY @IR09104
 ORDER HMASMREC           SMP RECEIVE RTNS
 ORDER HMASMRCC,HMASMRCD
 ORDER HMASMRCF,HMASMRCL
 ORDER HMASMTBL           SMP ICT BUILD RTNS
 ORDER HMASMTAD,HMASMTAI
 ORDER HMASMTBM,HMASMTCL
 ORDER HMASMTSB,HMASMTEC
 ORDER HMASMTDD
 ORDER HMASMTPD               ICT PTF BUILD
 ORDER HMASMTPA,HMASMTPR
 ORDER HMASMTPC,HMASMTPL
 ORDER HMASMTP2,HMASMTPS
 ORDER HMASMTD1,HMASMTPO
 ORDER HMASMTCR,HMASMTR1
 ORDER HMASMTMJ               INLINE JCLIN
 ORDER HMASMTMD               ICT MOD BUILD
 ORDER HMASMTMS,HMASMTRM
 ORDER HMASMTM1,HMASMTM2
 ORDER HMASMTM3,HMASMTM4
 ORDER HMASMTMW,HMASMTID
 ORDER HMASMTL1               ICT LMOD BUILD
 ORDER HMASMTL2,HMASMTL3
 ORDER HMASMAAR           SMP APP/ACC/RES RTN
 ORDER HMASMDLE               DELETE RTN
 ORDER HMASMCOM,HMASMCPI      COPY INTF
 ORDER HMASMUPI               UPDATE INTF
 ORDER HMASMCMP,HMASMASI      ASSEM INTF
 ORDER HMASMCIL,HMASMLKI      COPY/LINK INTF
 ORDER HMASMPIN           X37 RECOVERY @IR09104
 ORDER HMASMULI           X37 RECOVERY @IR09104
 ORDER HMASMZAP               ZAP INTF
 ORDER HMASMCPL               COMPLETION RTNS
 ORDER HMASMCP2,HMASMPGC
 ORDER HMASMIDU,HMASMSUP
 ORDER HMASMSEC,HMASMCRW
 ORDER HMASMREJ           SMP REJECT RTNS
 ORDER HMASMRJD
 ORDER HMASMUPD           SMP JCLIN RTNS
 ORDER HMASMASM,HMASMCPY
 ORDER HMASMLKD
 ORDER HMASMBUE,HMASMBUR
 ORDER HMASMUCD           SMP UCLIN RTNS
 ORDER HMASMUC1,HMASMULK        @IR08637
 ORDER HMASMUC2                 @IR08637
 ORDER HMASMUC3,HMASMUC4
 ORDER HMASMLID           SMP LIST RTNS
 ORDER HMASMLCD,HMASMLCP
 ORDER HMASMLCC,HMASMLOG
 ORDER HMASMLC1
 ORDER HMASMFPT,HMASMFVL
 ORDER HMASMXRF,HMASMFXF
 ORDER HMASMADD                 @IR08637
 ORDER HMASMARL           SMP REPORT RTNS
 ORDER HMASMAR1,HMASMAR2
 ORDER HMASMAR3,HMASMAR4
 ORDER HMASMMPD           SMP SYSMOD PARSE
 ORDER HMASMMPE,HMASMMPH
 ORDER HMASMMPI,HMASMMPV
 ORDER HMASMMPL                              @IR18012
 ORDER HMASMMPA,HMASMMDR  R3 COMPAT PTF      @IR64329
 ORDER HMASMMSG           SMP MESSAGE RTNS
 ORDER HMASMDC1
 ORDER HMASMSUB           SMP GENERAL RTNS
 ORDER HMASMCRD,HMASMSCN
 ORDER HMASMGTA,HMASMVLU
 ORDER HMASMUXC           SMP USER EXIT INTF
 INCLUDE AOS12(HMASMDRV)           SMP DRIVER FUNCTION
 INCLUDE AOS12(HMASMDSU,HMASMDC2)
 INCLUDE AOS12(HMASMDS1,HMASMBDL)
 INCLUDE AOS12(HMASMDR1,HMASMDR2)
 INCLUDE AOS12(HMASMIO)            SMP IO RTNS
 INCLUDE AOS12(HMASMION,HMASMIO1)
 INCLUDE AOS12(HMASMEIS,HMASMRDS)
 INCLUDE AOS12(HMASMALC)
 INCLUDE AOS12(HMASMSTA)           SMP STAE RTNS
 INCLUDE AOS12(HMASMSER)
 INCLUDE AOS12(HMASMEFR)  X37 RECOVERY     @IR09104
 INCLUDE AOS12(HMASMREC)           SMP RECEIVE RTNS
 INCLUDE AOS12(HMASMRCC,HMASMRCD)
 INCLUDE AOS12(HMASMRCF,HMASMRCL)
 INCLUDE AOS12(HMASMTBL)           SMP ICT BUILD RTNS
 INCLUDE AOS12(HMASMTAD,HMASMTAI)
 INCLUDE AOS12(HMASMTBM,HMASMTCL)
 INCLUDE AOS12(HMASMTSB,HMASMTEC)
 INCLUDE AOS12(HMASMTDD)
 INCLUDE AOS12(HMASMTPD)               ICT PTF BUILD
 INCLUDE AOS12(HMASMTPA,HMASMTPR)
 INCLUDE AOS12(HMASMTPC,HMASMTPL)
 INCLUDE AOS12(HMASMTP2,HMASMTPS)
 INCLUDE AOS12(HMASMTD1,HMASMTPO)
 INCLUDE AOS12(HMASMTCR,HMASMTR1)
 INCLUDE AOS12(HMASMTMJ)               INLINE JCLIN
 INCLUDE AOS12(HMASMTMD)               ICT MOD BUILD
 INCLUDE AOS12(HMASMTMS,HMASMTRM)
 INCLUDE AOS12(HMASMTM1,HMASMTM2)
 INCLUDE AOS12(HMASMTM3,HMASMTM4)
 INCLUDE AOS12(HMASMTMW,HMASMTID)
 INCLUDE AOS12(HMASMTL1)               ICT LMOD BUILD
 INCLUDE AOS12(HMASMTL2,HMASMTL3)
 INCLUDE AOS12(HMASMAAR)           SMP APP/ACC/RES RTN
 INCLUDE AOS12(HMASMDLE)               DELETE RTN
 INCLUDE AOS12(HMASMCOM,HMASMCPI)      COPY INTF
 INCLUDE AOS12(HMASMUPI)               UPDATE INTF
 INCLUDE AOS12(HMASMCMP,HMASMASI)      ASSEM INTF
 INCLUDE AOS12(HMASMCIL,HMASMLKI)      COPY/LINK INTF
 INCLUDE AOS12(HMASMPIN)  X37 RECOVERY     @IR09104
 INCLUDE AOS12(HMASMULI)  X37 RECOVERY     @IR09104
 INCLUDE AOS12(HMASMZAP)               ZAP INTF
 INCLUDE AOS12(HMASMCPL)               COMPLETION RTNS
 INCLUDE AOS12(HMASMCP2,HMASMPGC)
 INCLUDE AOS12(HMASMIDU,HMASMSUP)
 INCLUDE AOS12(HMASMSEC,HMASMCRW)
 INCLUDE AOS12(HMASMREJ)           SMP REJECT RTNS
 INCLUDE AOS12(HMASMRJD)
 INCLUDE AOS12(HMASMUPD)           SMP JCLIN RTNS
 INCLUDE AOS12(HMASMASM,HMASMCPY)
 INCLUDE AOS12(HMASMLKD)
 INCLUDE AOS12(HMASMBUE,HMASMBUR)
 INCLUDE AOS12(HMASMUCD)           SMP UCLIN RTNS
 INCLUDE AOS12(HMASMUC1,HMASMULK)        @IR08637
 INCLUDE AOS12(HMASMUC2)                 @IR08637
 INCLUDE AOS12(HMASMUC3,HMASMUC4)
 INCLUDE AOS12(HMASMLID)           SMP LIST RTNS
 INCLUDE AOS12(HMASMLCD,HMASMLCP)
 INCLUDE AOS12(HMASMLCC,HMASMLOG)
 INCLUDE AOS12(HMASMLC1)
 INCLUDE AOS12(HMASMFPT,HMASMFVL)
 INCLUDE AOS12(HMASMXRF,HMASMFXF)
 INCLUDE AOS12(HMASMADD)                 @IR08637
 INCLUDE AOS12(HMASMARL)           SMP REPORT RTNS
 INCLUDE AOS12(HMASMAR1,HMASMAR2)
 INCLUDE AOS12(HMASMAR3,HMASMAR4)
 INCLUDE AOS12(HMASMMPD)           SMP SYSMOD PARSE
 INCLUDE AOS12(HMASMMPE,HMASMMPH)
 INCLUDE AOS12(HMASMMPI,HMASMMPV)
 INCLUDE AOS12(HMASMMPL)                   @IR18012
 INCLUDE AOS12(HMASMMPA,HMASMMDR) R3COMP PTF @IR64329
 INCLUDE AOS12(HMASMMSG)           SMP MESSAGE RTNS
 INCLUDE AOS12(HMASMDC1)
 INCLUDE AOS12(HMASMSUB)           SMP GENERAL RTNS
 INCLUDE AOS12(HMASMCRD,HMASMSCN)
 INCLUDE AOS12(HMASMGTA,HMASMVLU)
 INCLUDE AOS12(HMASMUXC)           SMP USER EXIT INTF
 ENTRY HMASMDRV
 SETCODE AC(1)
 NAME HMASMP(R)
 INCLUDE AOS12(HMASMUXD)          SMP DUMMY USER EXIT
 ENTRY HMASMUXD
 NAME HMASMUXD(R)
/*
//SG28 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOS12  DD  DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS12  SERVICE AIDS
//SYSLIN DD *
 INCLUDE  AOS12(HMBLKCTL,HMBLKOBJ,HMBLKLDM,HMBLKXRF,HMBLKIDR)
 INCLUDE  AOS12(HMBLKMSG,HMBLKERR,HMBLKSZE,HMBLKLPA)
 ENTRY  HMBLKCTL
 ALIAS  IMBLIST
 ALIAS  HMBLIST
 NAME  AMBLIST(R)
/*
//SG29 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSB3 DD DISP=SHR,VOL=(,RETAIN),DSNAME=SYS1.AOSB3
//SYSLIN DD *
 INCLUDE AOSB3(IEFBR14)
 NAME ICHSEC00(R)
/*
//SG30 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSC5(IEAVMASV)
 ALIAS IEAVTPUT
 NAME IEAVMASV(R)
 INCLUDE AOSC5(IEAVMQR0)
 NAME IEAVMQR0(R)
/*
//SG31 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,REFR,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSC5(IRBMFDCP)
 NAME IRBMFDCP(R)
 INCLUDE AOSC5(IRBMFDDP)
 NAME IRBMFDDP(R)
 INCLUDE AOSC5(IRBMFDHP)
 NAME IRBMFDHP(R)
 INCLUDE AOSC5(IRBMFDPP)
 NAME IRBMFDPP(R)
 INCLUDE AOSC5(IRBMFDWP)
 NAME IRBMFDWP(R)
 INCLUDE AOSC5(IRBMFICP)
 NAME IRBMFICP(R)
 INCLUDE AOSC5(IRBMFIHA)
 NAME IRBMFIHA(R)
 INCLUDE AOSC5(IRBMFIDV)
 NAME IRBMFIDV(R)
 INCLUDE AOSC5(IRBMFINP)
 INCLUDE AOSC5(IRBMFANL,IRBMFTTB)
 ENTRY IRBMFINP
 NAME IRBMFINP(R)
 INCLUDE AOSC5(IRBMFIPG)
 NAME IRBMFIPG(R)
 INCLUDE AOSC5(IRBMFIWK)
 NAME IRBMFIWK(R)
 INCLUDE AOSC5(IRBMFMFC)
 INCLUDE AOSC5(IRBMFDEA)
 INCLUDE AOSC5(IRBMFDTA)
 INCLUDE AOSC5(IRBMFMLN)
 SETCODE AC(1)
 ENTRY IRBMFMFC
 NAME IRBMFMFC(R)
 INCLUDE AOSC5(IRBMFTRM)
 NAME IRBMFTRM(R)
 INCLUDE AOSC5(IRBMFRGM)
 INCLUDE AOSC5(IRBMFSAR)
 INCLUDE AOSC5(IRBMFLTV)
 ENTRY IRBMFRGM
 NAME IRBMFRGM(R)
 INCLUDE AOSC5(IRBMFALL)
 NAME IRBMFALL(R)
 INCLUDE AOSC5(IRBMFCNV)
 NAME IRBMFCNV(R)
 INCLUDE AOSC5(IRBMFRCR)
 INCLUDE AOSC5(IRBMFLCV)
 ENTRY IRBMFRCR
 NAME IRBMFRCR(R)
 INCLUDE AOSC5(IRBMFRWR)
 INCLUDE AOSC5(IRBMFLWV)
 ENTRY IRBMFRWR
 NAME IRBMFRWR(R)
 INCLUDE AOSC5(IRBMFRHR)
 INCLUDE AOSC5(IRBMFLHV)
 ENTRY IRBMFRHR
 NAME IRBMFRHR(R)
 INCLUDE AOSC5(IRBMFRPR)
 INCLUDE AOSC5(IRBMFLPV)
 ENTRY IRBMFRPR
 NAME IRBMFRPR(R)
 INCLUDE AOSC5(IRBMFRDR)
 INCLUDE AOSC5(IRBMFLDV)
 ENTRY IRBMFRDR
 NAME IRBMFRDR(R)
 INCLUDE AOSC5(IRBMFMPR)
 INCLUDE AOSC5(IRBMFLMV)
 ENTRY IRBMFMPR
 NAME IRBMFMPR(R)
 INCLUDE AOSC5(IRBMFDTP)
 NAME IRBMFDTP(R)
 INCLUDE AOSC5(IRBMFDSP)
 NAME IRBMFDSP(R)
 INCLUDE AOSC5(IRBMFRSR,IRBMFLSV)
 ENTRY IRBMFRSR
 NAME IRBMFRSR(R)
 INCLUDE AOSC5(IRBMFITR)
 NAME IRBMFITR(R)
 INCLUDE AOSC5(IRBMFRTR,IRBMFLAV)
 ENTRY IRBMFRTR
 NAME IRBMFRTR(R)
 INCLUDE AOSC5(IRBMFISP)
 NAME IRBMFISP(R)
 INCLUDE AOSC5(IEAVTFSD)
 INCLUDE AOSC5(IEAVTFRD)
 INCLUDE AOSC5(IEAVTFHX)
 INCLUDE AOSC5(IEAVTFTM)
 ALIAS IEAVTFRD
 ENTRY IEAVTFSD
 NAME IEAVTFSD(R)
 INCLUDE AOSC5(IEAVTFMT,IEAFTEED,IEAFTIHS)
 INCLUDE AOSC5(IEAFTRT2,IEAFTSCB)
 ALIAS IEAFTEED,IEAFTESA,IEAFTFRR,IEAFTIHS
 ALIAS IEAFTRTC,IEAFTRT2,IEAFTSCB,IEAFTSDW
 ENTRY IEAVTFMT
 NAME IEAVTFMT(R)
 INCLUDE AOSC5(IEAVTFRT)
 NAME IEAVTFRT(R)
 INCLUDE AOSC5(IECDAFMT,IECDAFT1)
 ENTRY IECDAFMT
 NAME IECDAFMT(R)
 INCLUDE AOSC5(IECIOFMT,IECIOFT1)
 ENTRY IECIOFMT
 NAME IECIOFMT(R)
 INCLUDE AOSC5(IEEMPDEV)
 NAME IEEMPDEV(R)
/*
//SG32 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,REUS,SIZE=(500K,64K)',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOS26 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS26
//SYSLIN DD *
 INCLUDE AOS26(ISTINM01)
 INCLUDE AOS26(ISTINMAD)
 INCLUDE AOS26(ISTINMAL)
 INCLUDE AOS26(ISTINMAV)
 INCLUDE AOS26(ISTINCAW)
 INCLUDE AOS26(ISTINCA0)
 INCLUDE AOS26(ISTINCBL)
 INCLUDE AOS26(ISTINCCC)
 INCLUDE AOS26(ISTINCCF)
 INCLUDE AOS26(ISTINCCL)
 INCLUDE AOS26(ISTINCDL)
 INCLUDE AOS26(ISTINCDU)
 INCLUDE AOS26(ISTINCD0)
 INCLUDE AOS26(ISTINCD1)
 INCLUDE AOS26(ISTINCD2)
 INCLUDE AOS26(ISTINCD3)
 INCLUDE AOS26(ISTINCD4)
 INCLUDE AOS26(ISTINCD5)
 INCLUDE AOS26(ISTINCD6)
 INCLUDE AOS26(ISTINCD7)
 INCLUDE AOS26(ISTINCD8)
 INCLUDE AOS26(ISTINCD9)
 INCLUDE AOS26(ISTINCE0)
 INCLUDE AOS26(ISTINCE1)
 INCLUDE AOS26(ISTINCE2)
 INCLUDE AOS26(ISTINCE3)
 INCLUDE AOS26(ISTINCE4)
 INCLUDE AOS26(ISTINCE5)
 INCLUDE AOS26(ISTINCE6)
 INCLUDE AOS26(ISTINCE7)
 INCLUDE AOS26(ISTINCE8)
 INCLUDE AOS26(ISTINCE9)
 INCLUDE AOS26(ISTINCFS)
 INCLUDE AOS26(ISTINCFM)
 INCLUDE AOS26(ISTINCF1)
 INCLUDE AOS26(ISTINCF3)
 INCLUDE AOS26(ISTINCF4)
 INCLUDE AOS26(ISTINCF9)
 INCLUDE AOS26(ISTINCHT)
 INCLUDE AOS26(ISTINCIB)
 INCLUDE AOS26(ISTINCIO)
 INCLUDE AOS26(ISTINCIT)
 INCLUDE AOS26(ISTINCLF)
 INCLUDE AOS26(ISTINCL0)
 INCLUDE AOS26(ISTINCL1)
 INCLUDE AOS26(ISTINCL2)
 INCLUDE AOS26(ISTINCL3)
 INCLUDE AOS26(ISTINCL4)
 INCLUDE AOS26(ISTINCL5)
 INCLUDE AOS26(ISTINCL6)
 INCLUDE AOS26(ISTINCL7)
 INCLUDE AOS26(ISTINCL8)
 INCLUDE AOS26(ISTINCMD)
 INCLUDE AOS26(ISTINCMR)
 INCLUDE AOS26(ISTINCMY)
 INCLUDE AOS26(ISTINCNS)
 INCLUDE AOS26(ISTINCOE)
 INCLUDE AOS26(ISTINCOI)
 INCLUDE AOS26(ISTINCOS)
 INCLUDE AOS26(ISTINCPD)
 INCLUDE AOS26(ISTINCPH)
 INCLUDE AOS26(ISTINCQB)
 INCLUDE AOS26(ISTINCQE)
 INCLUDE AOS26(ISTINCRD)
 INCLUDE AOS26(ISTINCRF)
 INCLUDE AOS26(ISTINCRR)
 INCLUDE AOS26(ISTINCRS)
 INCLUDE AOS26(ISTINCSD)
 INCLUDE AOS26(ISTINCSM)
 INCLUDE AOS26(ISTINCST)
 INCLUDE AOS26(ISTINCS1)
 INCLUDE AOS26(ISTINCTE)
 INCLUDE AOS26(ISTINCTM)
 INCLUDE AOS26(ISTINCTR)
 INCLUDE AOS26(ISTINCUA)
 INCLUDE AOS26(ISTINCUB)
 INCLUDE AOS26(ISTINCUM)
 INCLUDE AOS26(ISTINCUQ)
 INCLUDE AOS26(ISTINCU0)
 INCLUDE AOS26(ISTINCU1)
 INCLUDE AOS26(ISTINCU2)
 INCLUDE AOS26(ISTINCU3)
 INCLUDE AOS26(ISTINCU4)
 INCLUDE AOS26(ISTINCU5)
 INCLUDE AOS26(ISTINCU6)
 INCLUDE AOS26(ISTINCU7)
 INCLUDE AOS26(ISTINCU8)
 INCLUDE AOS26(ISTINCVA)
 INCLUDE AOS26(ISTINCVI)
 INCLUDE AOS26(ISTINCVO)
 INCLUDE AOS26(ISTINCVP)
 INCLUDE AOS26(ISTINCVS)
 INCLUDE AOS26(ISTINCVX)
 INCLUDE AOS26(ISTINCV2)
 INCLUDE AOS26(ISTINCV3)
 INCLUDE AOS26(ISTINCV4)
 INCLUDE AOS26(ISTINCV5)
 INCLUDE AOS26(ISTINCV6)
 INCLUDE AOS26(ISTINCV8)
 INCLUDE AOS26(ISTINCV9)
 INCLUDE AOS26(ISTINCW0)
 INCLUDE AOS26(ISTINCW2)
 INCLUDE AOS26(ISTINCW4)
 INCLUDE AOS26(ISTINCW5)
 INCLUDE AOS26(ISTINCW6)
 INCLUDE AOS26(ISTINCW7)
 INCLUDE AOS26(ISTINCW8)
 INCLUDE AOS26(ISTINCW9)
 INCLUDE AOS26(ISTINCXR)
 INCLUDE AOS26(ISTINCX0)
 INCLUDE AOS26(ISTINCX1)
 INCLUDE AOS26(ISTINCX2)
 INCLUDE AOS26(ISTINCX3)
 INCLUDE AOS26(ISTINCX6)
 INCLUDE AOS26(ISTINCX7)
 INCLUDE AOS26(ISTINCX8)
 INCLUDE AOS26(ISTINCX9)
 INCLUDE AOS26(ISTINCY3)
 INCLUDE AOS26(ISTINCY4)
 INCLUDE AOS26(ISTINCY5)
 INCLUDE AOS26(ISTINC02)
 INCLUDE AOS26(ISTCFCDP)
 INCLUDE AOS26(ISTCFMMI)
 INCLUDE AOS26(ISTINFIC)
 INCLUDE AOS26(ISTVTLOD)
 INCLUDE AOS26(ISTINCR1)
 INCLUDE AOS26(ISTINCR2)
 INCLUDE AOS26(ISTSDCAP)
 INCLUDE AOS26(ISTSDCBU)
 INCLUDE AOS26(ISTSDCCB)
 INCLUDE AOS26(ISTSDCCL)
 INCLUDE AOS26(ISTSDCC1)
 INCLUDE AOS26(ISTSDCC2)
 INCLUDE AOS26(ISTSDCC3)
 INCLUDE AOS26(ISTSDCC4)
 INCLUDE AOS26(ISTSDCC5)
 INCLUDE AOS26(ISTSDCC7)
 INCLUDE AOS26(ISTSDCDS)
 INCLUDE AOS26(ISTSDCD1)
 INCLUDE AOS26(ISTSDCD2)
 INCLUDE AOS26(ISTSDCD3)
 INCLUDE AOS26(ISTSDCGE)
 INCLUDE AOS26(ISTSDCGP)
 INCLUDE AOS26(ISTSDCHS)
 INCLUDE AOS26(ISTSDCIN)
 INCLUDE AOS26(ISTSDCLN)
 INCLUDE AOS26(ISTSDCLP)
 INCLUDE AOS26(ISTSDCLU)
 INCLUDE AOS26(ISTSDCML)
 INCLUDE AOS26(ISTSDCMT)
 INCLUDE AOS26(ISTSDCPA)
 INCLUDE AOS26(ISTSDCPC)
 INCLUDE AOS26(ISTSDCPU)
 INCLUDE AOS26(ISTSDCP1)
 INCLUDE AOS26(ISTSDCP2)
 INCLUDE AOS26(ISTSDCP3)
 INCLUDE AOS26(ISTSDCP4)
 INCLUDE AOS26(ISTSDCP5)
 INCLUDE AOS26(ISTSDCP6)
 INCLUDE AOS26(ISTSDCRC)
 INCLUDE AOS26(ISTSDCRN)
 INCLUDE AOS26(ISTSDCRS)
 INCLUDE AOS26(ISTSDCSB)
 INCLUDE AOS26(ISTSDCSC)
 INCLUDE AOS26(ISTSDCSS)
 INCLUDE AOS26(ISTSDCSU)
 INCLUDE AOS26(ISTSDCTM)
 INCLUDE AOS26(ISTSDCVB)
 INCLUDE AOS26(ISTSDCVG)
 INCLUDE AOS26(ISTCFCR2)
 INCLUDE AOS26(ISTINCR3)
 INCLUDE AOS26(ISTINCR5)
 INCLUDE AOS26(ISTINCVN)
 INCLUDE AOS26(ISTSDCVI)
 ENTRY ISTINM01
 ORDER ISTINM01
 NAME ISTINM01(R)
 INCLUDE AOS26(ISTINCR4)
 ENTRY ISTINCR4
 ORDER ISTINCR4
 NAME ISTINCR4(R)
 INCLUDE AOS26(ISTINCR6)
 ENTRY ISTINCR6
 ORDER ISTINCR6
 NAME ISTINCR6(R)
 INCLUDE AOS26(ISTINCY0)
 INCLUDE AOS26(ISTINCY1)
 ENTRY ISTINCY0
 ORDER ISTINCY0
 ORDER ISTINCY1
 NAME ISTINCY0(R)
 INCLUDE AOS26(ISTINC05)
 INCLUDE AOS26(ISTINMN8)
 PAGE ISTINMN8
 ENTRY ISTINC05
 ORDER ISTINC05
 NAME ISTINC05(R)
 INCLUDE AOS26(ISTINFXI)
 INCLUDE AOS26(ISTINMN8)
 PAGE ISTINMN8
 ENTRY ISTINFXI
 ORDER ISTINFXI
 NAME ISTINCXI(R)
 INCLUDE AOS26(ISTINCRP)
 NAME ISTINCRP(R)
 INCLUDE AOS26(ISTINCXM)
 NAME ISTINCXM(R)
 INCLUDE AOS26(ISTINC32)
  NAME ISTINC32(R)
/*
//SG33 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,REUS',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOST3 DD DISP=SHR,DSNAME=SYS1.AOST3
//SYSLIN DD *
 INCLUDE AOST3(IKTCAS00)
 NAME  IKTCAS00(R)
 INCLUDE AOST3(IKTCAS20)
 INCLUDE AOST3(IKTCAS21)
 INCLUDE AOST3(IKTCAS22)
 INCLUDE AOST3(IKTCAS23)
 INCLUDE AOST3(IKTCAS24)
 INCLUDE AOST3(IKTCASOX)
 INCLUDE AOST3(IKTCASCX)
 ENTRY IKTCAS20
 NAME  IKTCAS20(R)
 INCLUDE AOST3(IKTCAS30)
 INCLUDE AOST3(IKTCAS31)
 INCLUDE AOST3(IKTCAS32)
 INCLUDE AOST3(IKTCAS33)
 ENTRY IKTCAS30
 NAME  IKTCAS30(R)
 INCLUDE AOST3(IKTCAS40)
 INCLUDE AOST3(IKTCAS41)
 INCLUDE AOST3(IKTCAS42)
 ENTRY IKTCAS40
 NAME  IKTCAS40(R)
 INCLUDE AOST3(IKTCAS51)
 INCLUDE AOST3(IKTCAS52)
 INCLUDE AOST3(IKTCAS53)
 INCLUDE AOST3(IKTCAS54)
 INCLUDE AOST3(IKTCAS55)
 INCLUDE AOST3(IKTCAS56)
 ENTRY IKTCAS51
 NAME  IKTCAS51(R)
/*
//SG34 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REUS,AC=1',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOS29 DD DSN=SYS1.AOS29,DISP=SHR
//SYSLIN DD *
 INCLUDE AOS29(BNGLOGR2)
 ENTRY BNGLOGER
 NAME BNGLOGER(R)
/*
//SG35 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,AC=1',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOS29 DD DSN=SYS1.AOS29,DISP=SHR
//SYSLIN DD *
 INCLUDE AOS29(BNGTDISP)
 ENTRY BNGTDISP
 NAME BNGTDISP(R)
 INCLUDE AOS29(BNGT3270)
 ENTRY BNGT3270
 NAME BNGT3270(R)
 INCLUDE AOS29(BNGTLOCL)
 ENTRY BNGTLOCL
 NAME BNGTLOCL(R)
 INCLUDE AOS29(BNGTRMOT)
 ENTRY BNGTRMOT
 NAME BNGTRMOT(R)
 INCLUDE AOS29(BNGTMENU)
 ENTRY BNGTMENU
 NAME BNGTMENU(R)
 INCLUDE AOS29(BNGTQEMF)
 ENTRY BNGTQEMF
 NAME BNGTQEMF(R)
/*
//SG36 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOS00 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS00
//AOSCE DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSCE
//SYSLIN DD *
 INCLUDE AOS00(IEEMB820)
 INCLUDE AOS00(IEEMB821)
 INCLUDE AOS00(IEEMB822)
 INCLUDE AOS00(IEEMB823)
 INCLUDE AOS00(IEEMB824)
 INCLUDE AOS00(IEEMB825)
 INCLUDE AOS00(IEEMB826)
 INCLUDE AOS00(IEEMB827)
 ENTRY IEEMB820
 NAME  IEEMB820(R)
      INCLUDE AOSB3(IEEMB803)
      INCLUDE AOSB3(IEEMB807)
      INCLUDE AOSB3(IEEMB806)
      INCLUDE AOSB3(IEEMB805)
 ENTRY IEEMB803
 NAME  IEEMB803(R)
      INCLUDE SYSPUNCH(MSTRJCL)
 NAME  MSTRJCL(R)
      INCLUDE SYSPUNCH(IEEMB850)
      INCLUDE SYSPUNCH(IEFJESNM)
      INCLUDE AOSB3(IEEVIPL)
      INCLUDE AOSB3(IEFJSINT)
 ENTRY IEEVIPL
 NAME  IEEVIPL(R)
      INCLUDE AOSB3(IEEMB860)
      INCLUDE AOSCE(ICFBIX00)
 ENTRY  IEEMB860
 NAME  IEEMB860(R)
/*
//SG37 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOS00 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS00
//SYSLIN DD *
      INCLUDE AOS00(IFASMFDP)
 SETCODE AC(1)
 NAME  IFASMFDP(R)
      INCLUDE AOSB3(IEESB601)
      INCLUDE AOSB3(IEFAB4FC)
      INCLUDE AOSB3(IEFAB4F6)
      ENTRY IEESB601
 NAME  IEESB601(R)
      INCLUDE AOSB3(IEFJSSNT)
 NAME  IEFJSSNT(R)
      INCLUDE AOSB3(IEFEB400)
      INCLUDE AOSB3(IEFEB4M1)
 ENTRY IEFEB400
 NAME  IEFEB400(R)
      INCLUDE AOSB3(IEECB806)
 ENTRY IEECB806
 NAME  IEECB806(R)
       INCLUDE AOSB3(IEEMB878)
       INCLUDE AOSB3(IEEMB814)
       INCLUDE AOSB3(IEEMB877)
 ENTRY IEEMB878
 ALIAS IEEMB814
 NAME  IEEMB878(R)
/*
//SG38 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//SYSLIN DD *
    INCLUDE ACMDLIB(IKJEFA00,IKJEFA01)
    ENTRY IKJEFA00
 NAME ACCOUNT(R)
    INCLUDE ACMDLIB(IKJEFA30,IKJEFA31,IKJEFA51)
    INCLUDE ACMDLIB(IKJEFA52,IKJEFA54)
    INCLUDE ACMDLIB(IKJEFA32,IKJEFA55)
    ENTRY IKJEFA30
 NAME IKJEFA30(R)
    INCLUDE ACMDLIB(IKJEFA40,IKJEFA41,IKJEFA42)
    INCLUDE ACMDLIB(IKJEFA52,IKJEFA51,IKJEFA55)
    ENTRY IKJEFA40
 NAME IKJEFA40(R)
    INCLUDE ACMDLIB(IKJEFA10,IKJEFA11,IKJEFA12)
    INCLUDE ACMDLIB(IKJEFA13,IKJEFA51)
    INCLUDE ACMDLIB(IKJEFA52,IKJEFA53,IKJEFA55)
    ENTRY IKJEFA10
 NAME IKJEFA10(R)
    INCLUDE ACMDLIB(IKJEFA20,IKJEFA21,IKJEFA22)
    INCLUDE ACMDLIB(IKJEFA23,IKJEFA24,IKJEFA55)
    INCLUDE ACMDLIB(IKJEFA51,IKJEFA52,IKJEFA53)
    INCLUDE ACMDLIB(IKJEFA54)
    ENTRY IKJEFA20
 NAME IKJEFA20(R)
    INCLUDE AOST4(IKJRBBCR)
    INCLUDE ACMDLIB(IKJEFA51)
    INCLUDE AOST4(IKJEFF02)
    INCLUDE AOST4(IKJRBBCM,IEEVSDIO)
    ENTRY IKJRBBCR
 NAME IKJRBBCR(R)
    INCLUDE AOST4(IKJRBBU0)
    INCLUDE AOST4(IKJRBBU1)
    INCLUDE ACMDLIB(IKJEFA51)
    INCLUDE ACMDLIB(IKJEFA52)
    INCLUDE ACMDLIB(IKJEFA53)
 ALIAS UADSREFM
 ENTRY IKJRBBU0
 NAME  IKJRBBU0(R)
    INCLUDE AOST4(IEEVSEND)
    INCLUDE AOST4(IEEVSND2,IEEVSND3)
    INCLUDE AOST4(IEEVSND4,IEEVSDIO)
    INCLUDE AOST4(IEEVSND6)
    INCLUDE AOST4(IEEVSND8,IEEVSND9)
    INCLUDE AOST4(IKJEES20)
    ENTRY IEEVSEND
 NAME IEEVSEND(R)
   INCLUDE ACMDLIB(IKJEES40)
   INCLUDE AOST4(IKJEES20)
   INCLUDE AOST4(IEEVSDIO)
   ORDER IKJEES40(P),IKJEES20,IEEVSDIO
   ENTRY IKJEES40
 NAME IKJEES40(R)
    INCLUDE AOST4(IKJEES70,IKJEES74,IKJEES75)
    ENTRY IKJEES73
 NAME IKJEES73(R)
/*
//SG39 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//SYSLIN DD *
    INCLUDE AOST4(IKJEFXSR)
 NAME IKJEFXSR(R)
/*
//SG40 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//SYSLIN DD *
    INCLUDE AOSB3(IEFBR14)
 NAME IEFBR14(R)
/*
//SG41 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,REUS,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//SYSLIN DD *
    INCLUDE ACMDLIB(IKJEFF50)
    INCLUDE ACMDLIB(IKJEFF55)
    INCLUDE AOST4(IKJEFF02)
 ALIAS IKJEFF55
 ENTRY IKJEFF50
 NAME IKJEFF50(R)
    INCLUDE ACMDLIB(IKJEFF57)
    INCLUDE AOST4(IKJEFF49)
 ENTRY IKJEFF57
 NAME IKJEFF57(R)
    INCLUDE AOST4(IKJEFF51,IKJEFF52,IKJEFF54)
    ENTRY IKJEFF51
 NAME IKJEFF51(R)
 INCLUDE AOST4(IKJCT469)
 INCLUDE AOST4(IKJCT473)
 INCLUDE AOST4(IKJCT462)
 INCLUDE AOST4(IKJCT470)
 INCLUDE AOST4(IKJCT471)
 INCLUDE AOST4(IKJCT463)
 INCLUDE AOST4(IKJCT472)
 INCLUDE AOST4(IKJCT460)
 INCLUDE AOST4(IKJCT464)
 INCLUDE AOST4(IKJCT467)
 ENTRY IKJCT469
 ALIAS IKJCT467
 NAME IKJCT469(R)
    INCLUDE AOST4(IKJEFF02)
    INCLUDE ACMDLIB(IKJEFF03)
    INCLUDE ACMDLIB(IKJEFF04)
    INCLUDE AOST4(IKJEFF15)
    INCLUDE ACMDLIB(IKJEFF05)
    INCLUDE ACMDLIB(IKJEFF07,IKJEFF08,IKJEFF09)
    INCLUDE ACMDLIB(IKJEFF13)
    INCLUDE ACMDLIB(IKJEFF16)
    ORDER IKJEFF05
    ORDER IKJEFF07
    ORDER IKJEFF09
    ORDER IKJEFF08
    ORDER IKJEFF13
    ORDER IKJEFF02
    ORDER IKJEFF03
    ORDER IKJEFF04
    ORDER IKJEFF15
    ORDER IKJEFF16
    ALIAS IKJEFF03,IKJEFF15
    ENTRY IKJEFF04
 NAME IKJEFF04(R)
/*
//SG42 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REUS,AC=1',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1='(',
//    MOD=IFDOLT,P2=')',OBJ=OBJPDS02,CLASS=A
//AOS06 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS06
//SYSLIN DD *
 INCLUDE AOS06(IFDOLT00,IFDOLT12,IFDOLT18,IFDOLT23,IFDOLT30)
 INCLUDE AOS06(IFDOLT39,IFDOLT51,IFDOLT52,IFDOLT48,IFDMSG00)
 INCLUDE AOS06(IFDOLT05,IFDOLT06,IFDMSG06,IFDOLT08)
 INCLUDE AOS06(IFDMSG08,IFDOLT09,IFDOLT10,IFDOLT11,IFDOLT13)
 INCLUDE AOS06(IFDMSG13,IFDOLT16,IFDOLT21,IFDOLT22,IFDMSG22)
 INCLUDE AOS06(IFDOLT24,IFDOLT26,IFDOLT28,IFDOLT35,IFDOLT36)
 INCLUDE AOS06(IFDOLT37,IFDMSG37,IFDOLT41,IFDOLT42,IFDOLT43)
 INCLUDE AOS06(IFDOLT44,IFDOLT46,IFDOLTAA,IFDOLTAB,IFDOLTAJ)
 INCLUDE AOS06(IFDMSGAJ)
 INCLUDE AOS06(IFDOLT59)
 ENTRY IFDOLT00
 ALIAS IFDOLT00
 NAME IFDOLT(R)
//SG43 EXEC LINKS,
// PARM='NCAL,LIST,XREF',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1='(',
//    MOD=IFDOLT,P2=')',OBJ=OBJPDS02,CLASS=A
//AOS06  DD  DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS06
//SYSLIN DD *
 INCLUDE AOS06(IFDOLT03,IFDMSG03)
 ENTRY IFDOLT03
 NAME  IFDOLT03(R)
 INCLUDE AOS06(IFDOLT04,IFDMSG04)
 ENTRY IFDOLT04
 NAME  IFDOLT04(R)
 INCLUDE AOS06(IFDOLT07,IFDMSG07)
 ENTRY IFDOLT07
 NAME  IFDOLT07(R)
 INCLUDE AOS06(IFDOLT14)
 NAME  IFDOLT14(R)
 INCLUDE AOS06(IFDOLT15)
 NAME  IFDOLT15(R)
 INCLUDE AOS06(IFDOLT17)
 NAME  IFDOLT17(R)
 INCLUDE AOS06(IFDOLT31,IFDMSG31)
 ENTRY IFDOLT31
 NAME  IFDOLT31(R)
 INCLUDE AOS06(IFDOLT32,IFDMSG32)
 ENTRY IFDOLT32
 NAME  IFDOLT32(R)
 INCLUDE AOS06(IFDOLT33,IFDMSG33)
 ENTRY IFDOLT33
 NAME  IFDOLT33(R)
 INCLUDE AOS06(IFDOLT38,IFDMSG38)
 ENTRY IFDOLT38
 NAME  IFDOLT38(R)
 INCLUDE AOS06(IFDOLT50,IFDMSG50)
 ENTRY IFDOLT50
 NAME  IFDOLT50(R)
 INCLUDE AOS06(IFDOLT53,IFDMSG53)
 ENTRY IFDOLT53
 NAME  IFDOLT53(R)
 INCLUDE AOS06(IFDOLT49)
 NAME  IFDOLT49(R)
 INCLUDE AOS06(IFDOLT57)
 NAME  IFDOLT57(R)
 INCLUDE AOS06(IFDOLT61,IFDMSG61)
 ENTRY IFDOLT61
 NAME  IFDOLT61(R)
 INCLUDE AOS06(IFDOLT62)
 NAME  IFDOLT62(R)
 INCLUDE AOS06(IFDOLT67)
 ENTRY IFDOLT67
 NAME IFDOLT67(R)
 INCLUDE AOS06(IFDOLT73,IFDMSG73)
 ENTRY IFDOLT73
 NAME  IFDOLT73(R)
 INCLUDE AOS06(IFDOLT74,IFDMSG74)
 ENTRY IFDOLT74
 NAME  IFDOLT74(R)
 INCLUDE AOS06(IFDOLT98)
 NAME  IFDOLT98(R)
 INCLUDE AOS06(IFDOLT99)
 NAME  IFDOLT99(R)
/*
//SG44 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1='(',
//    MOD=IFDOLT,P2=')',OBJ=OBJPDS02,CLASS=A
//AOS06 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS06
//SYSLIN DD *
 INCLUDE AOS06(IFDOLT58)
 NAME  IFDOLT58(R)
/*
//SG45 EXEC LINKS,
// PARM='NCAL,LIST,XREF,SIZE=(256K,128K)',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=LINKLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS02,CLASS=A
//AOSCD DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.AOSCD
//AOSC5 DD DISP=SHR,VOL=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSCD(IFCDIP00)
 SETCODE AC(1)
 NAME IFCDIP00(R)
 INCLUDE AOSCD(IFCEREP1)
 INCLUDE AOSCD(IFCIOHND)
 INCLUDE AOSCD(IFCMSG01)
 SETCODE AC(1)
 ENTRY   IFCEREP1
 NAME IFCEREP1(R)
 INCLUDE AOSCD(IFCPARM1)
 INCLUDE AOSCD(IFCPARM2)
 INCLUDE AOSCD(IFCSHARE)
 INCLUDE AOSCD(IFCDEVIC)
 ALIAS IFCPARM1
 ENTRY IFCPARM1
 NAME IFCEPARM(R)
 INCLUDE AOSCD(IFCFILT1)
 NAME IFCFILT1(R)
 INCLUDE AOSCD(IFCSYMCD)
 NAME IFCSYMCD(R)
 INCLUDE AOSCD(IFCEDSUM)
 INCLUDE AOSCD(IFCEEDIT)
 INCLUDE AOSCD(IFCESUMS)
 ENTRY   IFCEDSUM
 NAME IFCEDSUM(R)
 INCLUDE AOSCD(IFCNFPDR)
 ALIAS IFCRT017
 ALIAS IFCR2102
 NAME IFCNFPDR(R)
 INCLUDE AOSCD(IFCFRAME)
 INCLUDE AOSCD(IFCFRAMM)
 INCLUDE AOSCD(IFCFRAMC)
 ENTRY IFCFRAME
 NAME IFCFRAME(R)
 INCLUDE AOSCD(IFCFRAMS)
 NAME IFCFRAMS(R)
 INCLUDE AOSCD(IFCSDICH)
 NAME IFCSDICH(R)
 INCLUDE AOSCD(IFCTA105)
 ALIAS IFCTA1XX
 NAME IFCTA105(R)
 INCLUDE AOSCD(IFCTA201)
 ALIAS IFCTA2XX
 NAME IFCTA201(R)
 INCLUDE AOSCD(IFCTA301)
 ALIAS IFCTA3XX
 NAME IFCTA301(R)
 INCLUDE AOSCD(IFCTB105)
 ALIAS IFCTB1XX
 NAME IFCTB105(R)
 INCLUDE AOSCD(IFCTB205)
 ALIAS IFCTB2XX
 NAME IFCTB205(R)
 INCLUDE AOSCD(IFCTB305)
 ALIAS IFCTB3XX
 NAME IFCTB305(R)
 INCLUDE AOSCD(IFCTB405)
 ALIAS IFCTB4XX
 NAME IFCTB405(R)
 INCLUDE AOSCD(IFCTC104)
 ALIAS IFCTC1XX
 NAME IFCTC104(R)
 INCLUDE AOSCD(IFCTC201)
 ALIAS IFCTC202
 ALIAS IFCTC20C
 NAME IFCTC201(R)
 INCLUDE AOSCD(IFCTC205)
 ALIAS IFCTC207
 ALIAS IFCTC20B
 ALIAS IFCTC2XX
 NAME IFCTC205(R)
 INCLUDE AOSCD(IFCTC301)
 ALIAS IFCTC302
 ALIAS IFCTC30C
 NAME IFCTC301(R)
 INCLUDE AOSCD(IFCTC305)
 ALIAS IFCTC307
 ALIAS IFCTC30B
 ALIAS IFCTC3XX
 NAME IFCTC305(R)
 INCLUDE AOSCD(IFCTC401)
 ALIAS IFCTC402
 ALIAS IFCTC40C
 ALIAS IFCTC4XX
 NAME IFCTC401(R)
 INCLUDE AOSCD(IFCS3031)
 NAME IFCS3031(R)
 INCLUDE AOSCD(IFCT1107)
 ALIAS IFCT11XX
 NAME IFCT1107(R)
 INCLUDE AOSCD(IFCT1204)
 ALIAS IFCT12XX
 NAME IFCT1204(R)
 INCLUDE AOSCD(IFCT1307)
 ALIAS IFCT13XX
 NAME IFCT1307(R)
 INCLUDE AOSCD(IFCS3032)
 NAME IFCS3032(R)
 INCLUDE AOSCD(IFCT2104)
 ALIAS IFCT21XX
 NAME IFCT2104(R)
 INCLUDE AOSCD(IFCT2204)
 ALIAS IFCT22XX
 NAME IFCT2204(R)
 INCLUDE AOSCD(IFCT2305)
 ALIAS IFCT23XX
 NAME IFCT2305(R)
 INCLUDE AOSCD(IFCS3033)
 NAME IFCS3033(R)
 INCLUDE AOSCD(IFCT3102)
 ALIAS IFCT31XX
 NAME IFCT3102(R)
 INCLUDE AOSCD(IFCT3204)
 ALIAS IFCT32XX
 NAME IFCT3204(R)
 INCLUDE AOSC5(IFCERFMT)
 INCLUDE AOSC5(IFCFMTIO)
 INCLUDE AOSCD(IFCMSG01)
 ENTRY IFCERFMT
 NAME IFCERFMT(R)
 INCLUDE AOSCD(IFCTHRSH)
 NAME IFCTHRSH(R)
 INCLUDE AOSCD(IFCFILT2)
 INCLUDE AOSCD(IFCDEVIC)
 ENTRY IFCFILT2
 NAME IFCFILT2(R)
 INCLUDE AOSCD(IFCSYSUM)
 NAME IFCSYSUM(R)
 INCLUDE AOSCD(IFCFILT3)
 INCLUDE AOSCD(IFCDEVIC)
 ENTRY IFCFILT3
 NAME IFCFILT3(R)
 INCLUDE AOSCD(IFCTREND)
 NAME IFCTREND(R)
 INCLUDE AOSCD(IFCFILT4)
 NAME IFCFILT4(R)
 INCLUDE AOSCD(IFCEVENT)
 INCLUDE AOSCD(IFCDEVIC)
 ENTRY IFCEVENT
 NAME IFCEVENT(R)
 INCLUDE AOSCD(IFCOFFLD)
 INCLUDE AOSCD(IFCIOHND)
 INCLUDE AOSCD(IFCMSG01)
 INCLUDE AOSCD(IFCFILT2)
 INCLUDE AOSCD(IFCDEVIC)
 INCLUDE AOSCD(IFCSYSUM)
 ENTRY IFCOFFLD
 SETCODE AC(1)
 NAME IFCOFFLD(R)
 INCLUDE AOSCD(IFCEIPL0)
 ALIAS IFCEEOD
 NAME IFCEIPL(R)
 INCLUDE AOSCD(IFCSIPL0)
 ALIAS IFCSEOD
 NAME IFCSIPL(R)
 INCLUDE AOSCD(IFCESOFT)
 NAME IFCESOFT(R)
 INCLUDE AOSCD(IFCSSOFT)
 NAME IFCSSOFT(R)
 INCLUDE AOSCD(IFCEDDR0)
 ALIAS IFCEMIH0
 NAME IFCEDDR0(R)
 INCLUDE AOSCD(IFCE0165)
 ALIAS IFCE0168
 ALIAS IFCE3062
 NAME IFCE0165(R)
 INCLUDE AOSCD(IFCEA165)
 ALIAS IFCEA168
 NAME IFCEA165(R)
 INCLUDE AOSCD(IFCEB165)
 ALIAS IFCEB168
 NAME IFCEB165(R)
 INCLUDE AOSCD(IFCEC165)
 ALIAS IFCEC168
 NAME IFCEC165(R)
 INCLUDE AOSCD(IFCED165)
 ALIAS IFCED168
 NAME IFCED165(R)
 INCLUDE AOSCD(IFCEE165)
 ALIAS IFCEE168
 NAME IFCEE165(R)
 INCLUDE AOSCD(IFCEF165)
 ALIAS IFCEF168
 NAME IFCEF165(R)
 INCLUDE AOSCD(IFCELEX1)
 NAME IFCELEX1(R)
 INCLUDE AOSCD(IFCS0165)
 ALIAS IFCS0168
 ALIAS IFCS3062
 NAME IFCS0165(R)
 INCLUDE AOSCD(IFCE0155)
 ALIAS IFCE0158
 NAME IFCE0155(R)
 INCLUDE AOSCD(IFCEA155)
 ALIAS IFCEA158
 NAME IFCEA155(R)
 INCLUDE AOSCD(IFCEB155)
 ALIAS IFCEB158
 NAME IFCEB155(R)
 INCLUDE AOSCD(IFCEC155)
 ALIAS IFCEC158
 NAME IFCEC155(R)
 INCLUDE AOSCD(IFCED155)
 ALIAS IFCED158
 NAME IFCED155(R)
 INCLUDE AOSCD(IFCEE155)
 ALIAS IFCEE158
 NAME IFCEE155(R)
 INCLUDE AOSCD(IFCEF155)
 ALIAS IFCEF158
 NAME IFCEF155(R)
 INCLUDE AOSCD(IFCEG155)
 ALIAS IFCEG158
 NAME IFCEG155(R)
 INCLUDE AOSCD(IFCEL155)
 ALIAS IFCEL158
 NAME IFCEL155(R)
 INCLUDE AOSCD(IFCEM155)
 ALIAS IFCEM158
 NAME IFCEM155(R)
 INCLUDE AOSCD(IFCEI155)
 ALIAS IFCEI115
 ALIAS IFCEI125
 ALIAS IFCEI331
 ALIAS IFCEI341
 ALIAS IFCEI158
 ALIAS IFCEI081
 NAME IFCEI155(R)
 INCLUDE AOSCD(IFCS0155)
 ALIAS IFCS0158
 NAME IFCS0155(R)
 INCLUDE AOSCD(IFCSI155)
 ALIAS IFCSI158
 NAME IFCSI155(R)
 INCLUDE AOSCD(IFCE0135)
 ALIAS IFCE0138
 NAME IFCE0135(R)
 INCLUDE AOSCD(IFCS0135)
 ALIAS IFCSI135
 ALIAS IFCSI138
 ALIAS IFCS0138
 NAME IFCS0135(R)
 INCLUDE AOSCD(IFCEI135)
 ALIAS IFCEI138
 NAME IFCEI135(R)
 INCLUDE AOSCD(IFCE0145)
 ALIAS IFCE0148
 NAME IFCE0145(R)
 INCLUDE AOSCD(IFCETUL1)
 NAME IFCETUL1(R)
 INCLUDE AOSCD(IFCS0145)
 ALIAS IFCS0148
 NAME IFCS0145(R)
 INCLUDE AOSCD(IFCEI145)
 ALIAS IFCEI148
 NAME IFCEI145(R)
 INCLUDE AOSCD(IFCEJ145)
 NAME IFCEJ145(R)
 INCLUDE AOSCD(IFCSI145)
 ALIAS IFCSI148
 NAME IFCSI145(R)
 INCLUDE AOSCD(IFCE2860)
 NAME IFCE2860(R)
 INCLUDE AOSCD(IFCS2860)
 NAME IFCS2860(R)
 INCLUDE AOSCD(IFCE2870)
 NAME IFCE2870(R)
 INCLUDE AOSCD(IFCS2870)
 NAME IFCS2870(R)
 INCLUDE AOSCD(IFCE2880)
 NAME IFCE2880(R)
 INCLUDE AOSCD(IFCS2880)
 NAME IFCS2880(R)
 INCLUDE AOSCD(IFCEXXXX)
 NAME IFCEXXXX(R)
 INCLUDE AOSCD(IFCSXXXX)
 NAME IFCSXXXX(R)
 INCLUDE AOSCD(IFCEAXXX)
 NAME IFCEAXXX(R)
 INCLUDE AOSCD(IFCSAXXX)
 NAME IFCSAXXX(R)
 INCLUDE AOSCD(IFCEAEXX)
 NAME IFCEAEXX(R)
 INCLUDE AOSCD(IFCSAEXX)
 NAME IFCSAEXX(R)
 INCLUDE AOSCD(IFCEXXXC)
 ENTRY IFCE3330
 NAME IFCE3330(R)
 INCLUDE AOSCD(IFCENFP1)
 NAME IFCENFP1(R)
 INCLUDE AOSCD(IFCENF11)
 NAME IFCENF11(R)
 INCLUDE AOSCD(IFCENFP2)
 NAME IFCENFP2(R)
 INCLUDE AOSCD(IFCENFM3)
 NAME IFCENFM3(R)
 INCLUDE AOSCD(IFCENFH3)
 NAME IFCENFH3(R)
 INCLUDE AOSCD(IFCECUT0)
 NAME IFCECUT0(R)
 INCLUDE AOSCD(IFCEMER0)
 NAME IFCEMER0(R)
 INCLUDE AOSCD(IFCEWIN1)
 NAME IFCEWIN1(R)
 INCLUDE AOSCD(IFCEWIN2)
 NAME IFCEWIN2(R)
 INCLUDE AOSCD(IFCEMAD1)
 NAME IFCEMAD1(R)
 INCLUDE AOSCD(IFCEMER1)
 NAME IFCEMER1(R)
 INCLUDE AOSCD(IFCEWOD1)
 NAME IFCEWOD1(R)
 INCLUDE AOSCD(IFCEMER2)
 NAME IFCEMER2(R)
 INCLUDE AOSCD(IFCEMER3)
 NAME IFCEMER3(R)
 INCLUDE AOSCD(IFCEMER4)
 NAME IFCEMER4(R)
 INCLUDE AOSCD(IFCEFBA4)
 NAME IFCEFBA4(R)
 INCLUDE AOSCD(IFCEMER5)
 NAME IFCEMER5(R)
 INCLUDE AOSCD(IFCEFBA5)
 NAME IFCEFBA5(R)
 INCLUDE AOSCD(IFCE33XX)
 ALIAS IFCET014
 ALIAS IFCET017
 ALIAS IFCET018
 ALIAS IFCE2009
 ALIAS IFCE200A
 ALIAS IFCE200B
 ALIAS IFCE200C
 ALIAS IFCE200D
 ALIAS IFCE200E
 ALIAS IFCE2101
 ALIAS IFCE2102
 ENTRY IFCE33XX
 NAME IFCE33XX(R)
 INCLUDE AOSCD(IFCS33XX)
 INCLUDE AOSCD(IFCSDASD)
 ALIAS IFCST017
 ALIAS IFCS2009
 ALIAS IFCS200A
 ALIAS IFCS200B
 ALIAS IFCS200D
 ALIAS IFCS2101
 ALIAS IFCS2102
 ENTRY IFCS33XX
 NAME IFCS33XX(R)
 INCLUDE AOSCD(IFCEWHT1)
 NAME IFCEWHT1(R)
 INCLUDE AOSCD(IFCCRNDR)
 NAME IFCCRNDR(R)
 INCLUDE AOSCD(IFCRFLO1)
 NAME IFCRFLO1(R)
 INCLUDE AOSCD(IFCSCRXX)
 INCLUDE AOSCD(IFCSCRND)
 ALIAS IFCST014
 ALIAS IFCST018
 ALIAS IFCS200C
 ALIAS IFCS200E
 ENTRY IFCSCRXX
 NAME IFCSCRXX(R)
 INCLUDE AOSCD(IFCTABLE)
 NAME IFCTABLE(R)
 INCLUDE AOSCD(IFCEXXXD)
 ALIAS IFCE2007
 NAME IFCE2006(R)
 INCLUDE AOSCD(IFCET002)
 ALIAS IFCET012
 NAME IFCET002(R)
 INCLUDE AOSCD(IFCSXXXD)
 ALIAS IFCST002
 ALIAS IFCST012
 ALIAS IFCS2007
 NAME IFCS2006(R)
 INCLUDE AOSCD(IFCET005)
 ALIAS IFCET015
 NAME IFCET005(R)
 INCLUDE AOSCD(IFCETRN0)
 NAME IFCETRN0(R)
 INCLUDE AOSCD(IFCETRN1)
 NAME IFCETRN1(R)
 INCLUDE AOSCD(IFCETRN2)
 NAME IFCETRN2(R)
 INCLUDE AOSCD(IFCETRN3)
 NAME IFCETRN3(R)
 INCLUDE AOSCD(IFCETRN4)
 NAME IFCETRN4(R)
 INCLUDE AOSCD(IFCETRN5)
 NAME IFCETRN5(R)
 INCLUDE AOSCD(IFCETRN6)
 NAME IFCETRN6(R)
 INCLUDE AOSCD(IFCETRN7)
 NAME IFCETRN7(R)
 INCLUDE AOSCD(IFCETRN8)
 NAME IFCETRN8(R)
 INCLUDE AOSCD(IFCST005)
 ALIAS IFCST015
 NAME IFCST005(R)
 INCLUDE AOSCD(IFCET006)
 NAME IFCET006(R)
 INCLUDE AOSCD(IFCST006)
 NAME IFCST006(R)
 INCLUDE AOSCD(IFCET008)
 NAME IFCET008(R)
 INCLUDE AOSCD(IFCST008)
 NAME IFCST008(R)
 INCLUDE AOSCD(IFCEUKNO)
 ALIAS IFCEUCPU
 ALIAS IFCEUCCH
 ALIAS IFCEUTYP
 ALIAS IFCEUOBR
 NAME IFCEUKNO(R)
 INCLUDE AOSCD(IFCSUKNO)
 ALIAS IFCSUCPU
 ALIAS IFCSUCCH
 ALIAS IFCSUTYP
 ALIAS IFCSUOBR
 NAME IFCSUKNO(R)
 INCLUDE AOSCD(IFCEXXX0)
 ALIAS IFCE4001
 ALIAS IFCE4003
 ALIAS IFCE4004
 NAME IFCE4002(R)
 INCLUDE AOSCD(IFCSXXX0)
 ALIAS IFCS4001
 ALIAS IFCS4003
 ALIAS IFCS4004
 NAME IFCS4002(R)
 INCLUDE AOSCD(IFCEXXX1)
 ALIAS IFCE0816
 ALIAS IFCE0803
 ALIAS IFCE0804
 ALIAS IFCE0805
 ALIAS IFCE0818
 ALIAS IFCE0801
 NAME IFCE0802(R)
 INCLUDE AOSCD(IFCSXXX1)
 ALIAS IFCS0816
 ALIAS IFCS0803
 ALIAS IFCS0804
 ALIAS IFCS0805
 ALIAS IFCS0818
 ALIAS IFCS0801
 NAME IFCS0802(R)
 INCLUDE AOSCD(IFCEXXX2)
 ALIAS IFCE0822
 ALIAS IFCE0823
 ALIAS IFCE0830
 ALIAS IFCE1445
 ALIAS IFCE0820
 ALIAS IFCE1004
 ALIAS IFCE0821
 NAME IFCE0808(R)
 INCLUDE AOSCD(IFCSXXX2)
 ALIAS IFCS0822
 ALIAS IFCS0823
 ALIAS IFCS0830
 ALIAS IFCS1445
 ALIAS IFCS0820
 ALIAS IFCS1004
 ALIAS IFCS0821
 NAME IFCS0808(R)
 INCLUDE AOSCD(IFCEXXX3)
 ALIAS IFCE081D
 ALIAS IFCE081E
 ALIAS IFCE081F
 ALIAS IFCE081A
 ALIAS IFCE0810
 NAME IFCE080A(R)
 INCLUDE AOSCD(IFCSXXX3)
 ALIAS IFCS081D
 ALIAS IFCS081E
 ALIAS IFCS081F
 ALIAS IFCS081A
 ALIAS IFCS0810
 NAME IFCS080A(R)
 INCLUDE AOSCD(IFCEXXX4)
 ALIAS IFCE2004
 ALIAS IFCE2003
 ALIAS IFCE2005
 NAME IFCE2001(R)
 INCLUDE AOSCD(IFCSXXX4)
 ALIAS IFCS2004
 ALIAS IFCS2003
 ALIAS IFCS2005
 NAME IFCS2001(R)
 INCLUDE AOSCD(IFCEXXX5)
 NAME IFCE2002(R)
 INCLUDE AOSCD(IFCSXXX5)
 NAME IFCS2002(R)
 INCLUDE AOSCD(IFCEXXX6)
 NAME IFCE2008(R)
 INCLUDE AOSCD(IFCSXXX6)
 NAME IFCS2008(R)
 INCLUDE AOSCD(IFCEXXX7)
 ALIAS IFCE1007
 ALIAS IFCE2245
 ALIAS IFCE1009
 ALIAS IFCE100C
 ALIAS IFCE100A
 ALIAS IFCE100B
 ALIAS IFCE100E
 ALIAS IFCE100F
 ALIAS IFCE100D
 NAME IFCE1001(R)
 INCLUDE AOSCD(IFCSXXX7)
 ALIAS IFCS1007
 ALIAS IFCS2245
 ALIAS IFCS1009
 ALIAS IFCS100C
 ALIAS IFCS100A
 ALIAS IFCS100B
 ALIAS IFCS100E
 ALIAS IFCS100F
 ALIAS IFCS100D
 NAME IFCS1001(R)
 INCLUDE AOSCD(IFCEXXX8)
 ALIAS IFCE1008
 ALIAS IFCE081C
 NAME IFCE081B(R)
 INCLUDE AOSCD(IFCSXXX8)
 ALIAS IFCS1008
 ALIAS IFCS081C
 NAME IFCS081B(R)
 INCLUDE AOSCD(IFCEXXX9)
 ALIAS IFCE0806
 ALIAS IFCE080C
 ALIAS IFCE1003
 ALIAS IFCE1005
 ALIAS IFCE1006
 NAME IFCE1002(R)
 INCLUDE AOSCD(IFCSXXX9)
 ALIAS IFCS080C
 ALIAS IFCS0806
 ALIAS IFCS1003
 ALIAS IFCS1005
 ALIAS IFCS1006
 NAME IFCS1002(R)
 INCLUDE AOSCD(IFCEXXXA)
 ALIAS IFCE0809
 ALIAS IFCE080B
 ALIAS IFCE0844
 NAME IFCE8001(R)
 INCLUDE AOSCD(IFCSXXXA)
 ALIAS IFCS0809
 ALIAS IFCS080B
 ALIAS IFCS0844
 NAME IFCS8001(R)
 INCLUDE AOSCD(IFCENAGO)
 ENTRY   IFCENAGO
 NAME IFCE080D(R)
 INCLUDE AOSCD(IFCSNAGO)
 NAME IFCS080D(R)
 INCLUDE AOSCD(IFCEXXXE)
 NAME IFCE0817(R)
 INCLUDE AOSCD(IFCSXXXE)
 NAME IFCS0817(R)
 INCLUDE AOSCD(IFCEGUS1)
 ALIAS IFCE084C
 NAME IFCEGUS1(R)
 INCLUDE AOSCD(IFCSGUS1)
 ALIAS IFCS084C
 NAME IFCSGUS1(R)
 INCLUDE AOSCD(IFCET004)
 ALIAS IFCET010
 NAME IFCET004(R)
 INCLUDE AOSCD(IFCET003)
 ALIAS IFCET013
 NAME IFCET003(R)
 INCLUDE AOSCD(IFCST003)
 ALIAS IFCST013
 NAME IFCST003(R)
 INCLUDE AOSCD(IFCET00B)
 NAME IFCET00B(R)
 INCLUDE AOSCD(IFCST00B)
 NAME IFCST00B(R)
 INCLUDE AOSCD(IFCEXXXB)
 NAME IFCE8003(R)
 INCLUDE AOSCD(IFCSXXXB)
 NAME IFCS8003(R)
 INCLUDE AOSCD(IFCE3401)
 NAME IFCE8006(R)
 INCLUDE AOSCD(IFCET040)
 NAME IFCET040(R)
 INCLUDE AOSCD(IFCEDPA)
 NAME IFCEDPA(R)
 INCLUDE AOSCD(IFCECHAR)
 ALIAS IFCE0882
 NAME IFCECHAR(R)
 INCLUDE AOSCD(IFCSCHAR)
 ALIAS IFCS0882
 NAME IFCSCHAR(R)
 INCLUDE AOSCD(IFCEXXXG)
 ALIAS IFCEXXXG
 ALIAS IFCET00E
 NAME IFCE0842(R)
 INCLUDE AOSCD(IFCEOAK1)
 NAME IFCEOAK1(R)
 INCLUDE AOSCD(IFCEOAK2)
 NAME IFCEOAK2(R)
 INCLUDE AOSCD(IFCEOAK3)
 NAME IFCEOAK3(R)
 INCLUDE AOSCD(IFCEOAK4)
 NAME IFCEOAK4(R)
 INCLUDE AOSCD(IFCEOAK5)
 NAME IFCEOAK5(R)
 INCLUDE AOSCD(IFCSXXXG)
 ALIAS IFCSXXXG
 ALIAS IFCST00E
 NAME IFCS0842(R)
 INCLUDE AOSCD(IFCEXXXF)
 ALIAS IFCEXXXF
 NAME IFCE080E(R)
 INCLUDE AOSCD(IFCEARG1)
 NAME IFCEARG1(R)
 INCLUDE AOSCD(IFCEARG2)
 NAME IFCEARG2(R)
 INCLUDE AOSCD(IFCEARG3)
 NAME IFCEARG3(R)
 INCLUDE AOSCD(IFCEARG4)
 NAME IFCEARG4(R)
 INCLUDE AOSCD(IFCEARG5)
 NAME IFCEARG5(R)
 INCLUDE AOSCD(IFCEARG6)
 NAME IFCEARG6(R)
 INCLUDE AOSCD(IFCEARG7)
 NAME IFCEARG7(R)
 INCLUDE AOSCD(IFCET00C)
 NAME IFCET00C(R)
 INCLUDE AOSCD(IFCSXXXF)
 ALIAS IFCSXXXF
 ALIAS IFCST00C
 NAME IFCS080E(R)
 INCLUDE AOSCD(IFCEXXXH)
 ALIAS IFCE0819
 NAME IFCEXXXH(R)
 INCLUDE AOSCD(IFCET00D)
 NAME IFCET00D(R)
 INCLUDE AOSCD(IFCSXXXH)
 ALIAS IFCS0819
 ALIAS IFCST00D
 NAME IFCSXXXH(R)
 INCLUDE AOSCD(IFCE1017)
 NAME IFCE0831(R)
 INCLUDE AOSCD(IFCS1017)
 NAME IFCS0831(R)
 INCLUDE AOSCD(IFCE1018)
 NAME IFCE0832(R)
 INCLUDE AOSCD(IFCS1018)
 NAME IFCS0832(R)
 INCLUDE AOSCD(IFCE0115)
 NAME IFCE0115(R)
 INCLUDE AOSCD(IFCS0115)
 ALIAS IFCS0125
 ALIAS IFCS4331
 ALIAS IFCS4341
 ALIAS IFCS3081
 NAME IFCS0115(R)
 INCLUDE AOSCD(IFCE0125)
 ALIAS IFCE4331
 ALIAS IFCE4341
 ALIAS IFCE3081
 NAME IFCE0125(R)
 INCLUDE AOSCD(IFCSI115)
 ALIAS IFCSI125
 ALIAS IFCSI331
 ALIAS IFCSI341
 ALIAS IFCSI081
 NAME IFCSI115(R)
 INCLUDE AOSCD(IFCE5424)
 NAME IFCE0880(R)
 INCLUDE AOSCD(IFCS5424)
 NAME IFCS0880(R)
/*
//SYSGEN3 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
//JOBCAT DD  DISP=SHR,DSN=SYS1.VMASTCAT
//SVC1 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT  DD    SYSOUT=A
//SVCLIB DD DSN=SYS1.SVCLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// SPACE=(CYL,(2,1,35)),
// LABEL=EXPDT=71350,DCB=(RECFM=U,BLKSIZE=19069)
//SYSIN DD *
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.SVCLIB)     -
            VOL (MVSRES)      DEVT (3350))
/*
//SVC2 EXEC PGM=IEBCOPY,REGION=512K,COND=(8,LT)
//SYSUT3 DD DSN=&SYSUT3,SPACE=(1700,(10,5)),UNIT=SYSDA
//SYSUT4 DD DSN=&SYSUT4,SPACE=(460,(30,24)),UNIT=SYSDA
//SYSPRINT DD SPACE=(3630,(500,100),RLSE),
//    DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),SYSOUT=A
//AOSD0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSD0
//AOSU0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSU0
//AOS20 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS20
//AOS21 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS21
//SVCLIB DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,
//       DSN=SYS1.SVCLIB,DISP=OLD
//SYSIN DD *
 COPY OUTDD=SVCLIB,INDD=AOS20
 SELECT MEMBER=(IGG019MA,IGG019MB,IGG019MC)
 SELECT MEMBER=(IGG019MR,IGG019MS,IGG019PD)
 COPY OUTDD=SVCLIB,INDD=AOS21
 SELECT MEMBER=(IGG019EM)
 SELECT MEMBER=(IGG019QE)
 SELECT MEMBER=(IGG019RG,IGG019RI)
 SELECT MEMBER=(IGG019RL,IGG019RM)
 SELECT MEMBER=(IGG019TE,IGG019TH)
 SELECT MEMBER=(IGG019TI,IGG019TM)
 SELECT MEMBER=(IGG019Q0,IGG019Q1,IGG019Q2)
 SELECT MEMBER=(IGG019Q3,IGG019Q4,IGG019Q5)
 SELECT MEMBER=(IGG019Q6,IGG019Q7,IGG019Q8)
 SELECT MEMBER=(IGG019Q9)
 SELECT MEMBER=(IGG019RA,IGG019RC)
 SELECT MEMBER=(IGG019RD,IGG019RE,IGG019RF)
 SELECT MEMBER=(IGG019RK)
 SELECT MEMBER=(IGG019RN,IGG019RO,IGG019RP)
 SELECT MEMBER=(IGG019RQ,IGG019RR,IGG019RS)
 SELECT MEMBER=(IGG019RT,IGG019RU,IGG019RV)
 SELECT MEMBER=(IGG019RW,IGG019RX,IGG019RY)
 SELECT MEMBER=(IGG019RZ)
 SELECT MEMBER=(IGG019R0,IGG019R1,IGG019R2)
 SELECT MEMBER=(IGG019R3,IGG019R4,IGG019R5)
 SELECT MEMBER=(IGG019R6,IGG019R7,IGG019R8)
 SELECT MEMBER=(IGG019R9)
 COPY OUTDD=SVCLIB,INDD=AOSD0
 SELECT MEMBER=(IGG019V5,IGG019V6,IGG019V7)
 COPY OUTDD=SVCLIB,INDD=AOSU0
 SELECT MEMBER=(IGG019P2)
/*
//SVC3 EXEC PGM=IEHLIST,COND=(8,LT)
//SYSPRINT DD SYSOUT=A
//SVC DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,
//       DSN=SYS1.SVCLIB,DISP=SHR
//SYSIN  DD  *
   LISTPDS DSNAME=SYS1.SVCLIB,VOL=3350=MVSRES
/*
//SYSGEN4 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
//JOBCAT DD  DISP=SHR,DSN=SYS1.VMASTCAT
//NUC1 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT  DD    SYSOUT=A
//NUCLEUS DD DSN=SYS1.NUCLEUS,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,DCB=(RECFM=U,BLKSIZE=19069),
// SPACE=(CYL,(16,,71),,CONTIG)
//DCMLIB  DD  DSN=SYS1.DCMLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// SPACE=(CYL,(4,,35),,CONTIG),
// LABEL=EXPDT=71350,DCB=(RECFM=U,BLKSIZE=19069)
//SYSIN DD *
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.NUCLEUS)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.DCMLIB)      -
            VOL (MVSRES)     DEVT (3350))
/*
//SG2 EXEC ASMS,OBJ=OBJPDS03,MOD=IEASVC00,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
SVCTABLE   CSECT
 DS    0D
 DC V(IGC000),X'00008000'
 DC V(IGC001),B'00000000000000001000000000000000'
 DC V(IGC002),B'00000000000000001000000000000000'
 DC V(IGC003),B'00000000000000001000000000000000'
 DC V(IGC004),B'00000000000000001000000000000000'
 DC V(IGC005),B'00000000000000001000000000000000'
 DC V(IGC006),B'10000000000000001000000000000000'
 DC V(IGC007),B'10000000000000001000000000000000'
 DC V(IGC008),B'10000000000000001000000000000000'
 DC V(IGC009),B'10000000000000001000000000000000'
 DC V(IGC010),B'00000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC012),B'10000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC V(IGC015),B'00000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC018),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC037),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC043),B'00000000000000001000000000000000'
 DC V(IGC044),B'10000000000000001000000000000000'
 DC V(IGC045),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC048),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(IGCRETRN),B'00000000000000000000000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC056),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC058),B'00000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC V(IGC062),B'10000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC070),B'10000000000000001000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC079),B'00000000000000001000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC V(IGC084),B'00000000000000001000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC092),B'00000000000000001000000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC095),B'00000000000000001000000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(IGCRETRN),B'00000000000000001100000000000000'
 DC A(0),B'11000000000000001000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGC107),B'00001000000000001000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGC109),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC V(IGC111),B'10000000000000000000000000000000'
 DC V(IGC112),B'00000000000000001000000000000000'
 DC V(IGC113),B'00000000000000001000000000000000'
 DC V(IGC114),B'00000000000000001000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGC116),B'00000000000000001000000000000000'
 DC V(IGC117),B'10000000000000001000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGC119),B'00000000000000001000000000000000'
 DC V(IGC120),B'00000000000000001000000000000000'
 DC V(IGC121),B'00000000000000001000000000000000'
 DC V(IGC122),B'10000000000000000000000000000000'
 DC V(IGC123),B'10001000000000001000000000000000'
 DC V(IGC124),B'00000000000000001000000000000000'
 DC V(IGC125),B'00000000000000001000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGC201),B'00101000000000000000000000000000'
 DC V(IGC202),B'00101010000000000000000000000000'
 DC V(IGC203),B'00100000000000000000000000000000'
 DC V(IGC204),B'00100010000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGC211),B'00001000000000001000000000000000'
 DC V(IGC212),B'00001010000000001000000000000000'
 DC V(IGC213),B'00000000000000001000000000000000'
 DC V(IGC214),B'00000010000000001000000000000000'
 DC V(IGC215),B'00100010000000000000000000000000'
 DC V(IGC216),B'10000010000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGC221),B'10001000000000000000000000000000'
 DC V(IGC222),B'10001010000000000000000000000000'
 DC V(IGC223),B'10000000000000000000000000000000'
 DC V(IGC224),B'10000010000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11001010000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000010000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11001000000000000000000000000000'
 DC A(0),B'11001010000000000000000000000000'
 DC A(0),B'11000000000000000000000000000000'
 DC A(0),B'11000010000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC A(0),B'11000010000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
 DC V(IGCERROR),B'10000000000000000000000000000000'
IGCRETRN SR    15,15
         BR    14
         END
/*
//SG3 EXEC ASMS,OBJ=OBJPDS03,MOD=IEAVBK00,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
 IEAVBK HOURS=343320,                                                XXXXXXXX
               MINUTES=0,                                        XXXXXXXX
               FLAG=178,CTLFLGS=20,                              XXXXXXXX
               RPS=YES,ACR=NO,                                        XXX
               WARN=0,                                          XXXXXXXX
               STORAGE=0
        END
/*
//SG4 EXEC ASMS,OBJ=OBJPDS03,MOD=IEECVUCM,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
IEEUCMC CSECT
 IEEDUCM (010,                                                         X
               011,                                                    X
               009,                                                    X
               01F,                                                    X
               30E),                                                   X
               (51,                                                    X
               51,                                                     X
               00,                                                     X
               00,                                                     X
               01),                                                    X
               (WAXN,                                                  R
               WAXN,                                                   A
               WAXN,                                                   A
               WAXN,                                                   A
               WNXN),                                                  XXX
               (E,                                                     X
               E,                                                      X
               0,                                                      X
               0,                                                      X
               0),                                                    XX
               (F,                                                    XX
               F,                                                     XX
               F,                                                     XX
               F,                                                     XX
               F),                                                     X
               (0,                                                     X
               0,                                                      X
               0,                                                      X
               0,                                                      X
               0),                                                     X
               ROUTCD1=(FFFB,                                          E
               FFFB,                                                   R
               FFFF,                                                   R
               FFFF,                                                   R
               FFFF),                                                  A
               ALTCON1=(011,                                           C
               010,                                                    X
               01F,                                                    X
               009,                                                    X
               010),                                                   X
               AUTH1=(E0,                                              X
               E0,                                                     X
               E0,                                                     X
               E0,                                                     X
               00),                                                    X
               COMPCN1=(FFF,             @ZA51483                      X
               FFF,                                                    H
               FFF,                                                    H
               FFF,                                                    H
               FFF),                                                   O
               ALTCOM1=(FFF,                                           H
               FFF,                                                    E
               FFF,                                                    E
               FFF,                                                    E
               FFF)
 IEECUCM U,DSECT=NO,MCS=MCS,MASTCON=010,                               X
               HARDCDE=FFFF,                                           X
               OLDWCDE=FFFF,                                           X
               HARDCPY=(30E,CMDS,HCPY)
         END
/*
//SG5 EXEC ASMS,OBJ=OBJPDS03,MOD=IECZDTAB,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
 SGIEC0DT 1,0,TYPE=(0,0,0,0,0,0,0,1,1,1,1,0,0)
         END
/*
//SG6 EXEC ASMS,OBJ=OBJPDS03,MOD=IFGDEBCK,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
 SGDEBCHK DEBTSIZ=80,DEBTINC=80
 END
/*
//SG7 EXEC ASMS,OBJ=OBJPDS03,MOD=IFBCTA00,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
 SGIFB000  0000000000000000
 END
/*
//SG8 EXEC ASMS,OBJ=OBJPDS03,MOD=IEAASU00,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
   IHAPSA  DSECT=NO
         EJECT
         EXTRN IEEBA1
         EXTRN IEFDPOST
         ENTRY IECRCTBL,IECVATTN,IECVSGT
         ENTRY IECILK1,IECILK2,IECSTB,IECVCCWS
         ENTRY IECVLCH,IECILCH,IECVSLCH
         ENTRY IECVUCBM
         ACTR  10000      SET STAGE2 CTR
          AGO    .UCB1    TO FIRST UCB
.TAB1   ANOP         LOOK UP UCB TAB
UCBTAB   DS    0C         THIS IS THE LOOK UP TAB
IECILK1  DS    0C
 IECULK1 8,0,0,0,0,0,0
         AGO   .TAB2     TO NEXT CHANNEL ENTRY
.TCU1   IECULK2 4,0,0,8,1,0,1
         AGO   .TCU2       TO NEXT ENTRY
.LST1 ANOP   UCB LOOKUP ENTRY
LIST     DS    0H       THIS IS THE LIST OF UCB ADDS
IECILK2  DS    0C
         AGO   .LST2
.LST2 IECULK3 0,2,1,1,4,0,0,0,1
         AGO   .LST3    TO NEXT UCB ADD ENTRY
.UCB1 ANOP
  IECVUCB 1,002,WR,0,07,2,0,,10800809,0,0,IECVDDT8,0,0,0,0,0,002,0,0,8
         AGO   .UCB2      TO NEXT UCB
.UCX1 ANOP
  IECVUCB 1,002,WR,0,07,2,0,,10800809,0,0,IECVDDT8,0,0,0,1,0,002,0,0,8
         AGO   .UCX2  TO NEXT EXTENSION
.WK1 IECVUCBA 1,10800809,0,0,0,0,
         AGO   .WK2   TO NEXT WORK AREA
.LST3 IECULK3 2,3,2,0,0,0,0,0,1
         AGO   .LST4    TO NEXT UCB ADD ENTRY
.UCB2 ANOP
  IECVUCB 2,003,WR,1,07,3,0,,10800809,0,0,IECVDDT8,0,0,0,0,0,003,0,0,8
         AGO   .UCB3      TO NEXT UCB
.UCX2 ANOP
  IECVUCB 2,003,WR,1,07,3,0,,10800809,0,0,IECVDDT8,0,0,0,1,0,003,0,0,8
         AGO   .UCX3  TO NEXT EXTENSION
.WK2 IECVUCBA 2,10800809,0,0,0,0,
         AGO   .WK3   TO NEXT WORK AREA
.LST4 IECULK3 3,9,3,0,0,0,0,0,1
         AGO   .LST5    TO NEXT UCB ADD ENTRY
.UCB3 ANOP
  IECVUCB 3,009,UR,2,04,4,0,,10000823,0,0,IECVDDT5,0,0,0,0,0,009,0,0,0
         AGO   .UCB4      TO NEXT UCB
.UCX3 ANOP
  IECVUCB 3,009,UR,2,04,4,0,,10000823,0,0,IECVDDT5,0,0,0,1,0,009,0,0,0
         AGO   .UCX4  TO NEXT EXTENSION
.LST5 IECULK3 9,12,4,0,0,0,0,0,1
         AGO   .LST6    TO NEXT UCB ADD ENTRY
.UCB4 ANOP
  IECVUCB 4,00C,UR,3,0D,5,0,,10000801,0,0,IECVDDT5,0,0,0,0,0,00C,0,0,8
         AGO   .UCB5      TO NEXT UCB
.UCX4 ANOP
  IECVUCB 4,00C,UR,3,0D,5,0,,10000801,0,0,IECVDDT5,0,0,0,1,0,00C,0,0,8
         AGO   .UCX5  TO NEXT EXTENSION
.LST6 IECULK3 12,13,5,0,0,0,0,0,1
         AGO   .LST7    TO NEXT UCB ADD ENTRY
.UCB5 ANOP
  IECVUCB 5,00D,UR,4,0D,6,0,,10000802,0,0,IECVDDT5,0,0,0,0,0,00D,0,0,8
         AGO   .UCB6      TO NEXT UCB
.UCX5 ANOP
  IECVUCB 5,00D,UR,4,0D,6,0,,10000802,0,0,IECVDDT5,0,0,0,1,0,00D,0,0,8
         AGO   .UCX6  TO NEXT EXTENSION
.LST7 IECULK3 13,14,6,0,0,0,0,0,1
         AGO   .LST8    TO NEXT UCB ADD ENTRY
.UCB6 ANOP
  IECVUCB 6,00E,UR,5,07,7,0,,10000808,0,0,IECVDDT5,0,0,0,0,0,00E,0,0,8
         AGO   .UCB7      TO NEXT UCB
.UCX6 ANOP
  IECVUCB 6,00E,UR,5,07,7,0,,10000808,0,0,IECVDDT5,0,0,0,1,0,00E,0,0,8
         AGO   .UCX7  TO NEXT EXTENSION
.LST8 IECULK3 14,15,7,0,0,0,0,0,1
         AGO   .LST9    TO NEXT UCB ADD ENTRY
.UCB7 ANOP
  IECVUCB 7,00F,UR,6,07,8,0,,10000808,0,0,IECVDDT5,0,0,0,0,0,00F,0,0,8
         AGO   .UCB8      TO NEXT UCB
.UCX7 ANOP
  IECVUCB 7,00F,UR,6,07,8,0,,10000808,0,0,IECVDDT5,0,0,0,1,0,00F,0,0,8
         AGO   .UCX8  TO NEXT EXTENSION
.TCU2   IECULK2 32,0,1,8,0,0,0
         AGO   .TCU3       TO NEXT ENTRY
.LST9 IECULK3 15,0,8,1,32,0,0,1,0
         AGO   .LST10    TO NEXT UCB ADD ENTRY
.UCB8   ANOP       UCB ENTRY
 IECVUCB 8,010,GR,7,69,9,0,8,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB9
.UCX8    ANOP       UCB ENTRY
 IECVUCB 8,010,GR,7,69,9,0,8,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX9  TO NEXT EXTENSION
.LST10 IECULK3 0,1,9,0,32,0,0,1,0
         AGO   .LST11    TO NEXT UCB ADD ENTRY
.UCB9   ANOP       UCB ENTRY
 IECVUCB 9,011,GR,8,69,10,0,9,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB10
.UCX9    ANOP       UCB ENTRY
 IECVUCB 9,011,GR,8,69,10,0,9,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX10  TO NEXT EXTENSION
.LST11 IECULK3 1,15,10,0,32,0,0,1,0
         AGO   .LST12    TO NEXT UCB ADD ENTRY
.UCB10 ANOP
  IECVUCB 10,01F,UR,9,04,11,0,,10000823,0,0,IECVDDT5,0,0,0,0,0,01F,0,0,*
               0
         AGO   .UCB11      TO NEXT UCB
.UCX10 ANOP
  IECVUCB 10,01F,UR,9,04,11,0,,10000823,0,0,IECVDDT5,0,0,0,1,0,01F,0,0,*
               0
         AGO   .UCX11  TO NEXT EXTENSION
.TCU3   IECULK2 64,1,12,8,0,0,0
         AGO   .TCU4       TO NEXT ENTRY
.LST12 IECULK3 15,0,11,1,64,0,0,12,0
         AGO   .LST13    TO NEXT UCB ADD ENTRY
.UCB11   ANOP       UCB ENTRY
 IECVUCB 11,0C0,GR,10,69,12,0,11,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB12
.UCX11    ANOP       UCB ENTRY
 IECVUCB 11,0C0,GR,10,69,12,0,11,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX12  TO NEXT EXTENSION
.LST13 IECULK3 0,1,12,0,64,0,0,12,0
         AGO   .LST14    TO NEXT UCB ADD ENTRY
.UCB12   ANOP       UCB ENTRY
 IECVUCB 12,0C1,GR,11,69,13,0,12,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB13
.UCX12    ANOP       UCB ENTRY
 IECVUCB 12,0C1,GR,11,69,13,0,12,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX13  TO NEXT EXTENSION
.LST14 IECULK3 1,2,13,0,64,0,0,12,0
         AGO   .LST15    TO NEXT UCB ADD ENTRY
.UCB13   ANOP       UCB ENTRY
 IECVUCB 13,0C2,GR,12,69,14,0,13,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB14
.UCX13    ANOP       UCB ENTRY
 IECVUCB 13,0C2,GR,12,69,14,0,13,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX14  TO NEXT EXTENSION
.LST15 IECULK3 2,3,14,0,64,0,0,12,0
         AGO   .LST16    TO NEXT UCB ADD ENTRY
.UCB14   ANOP       UCB ENTRY
 IECVUCB 14,0C3,GR,13,69,15,0,14,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB15
.UCX14    ANOP       UCB ENTRY
 IECVUCB 14,0C3,GR,13,69,15,0,14,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX15  TO NEXT EXTENSION
.LST16 IECULK3 3,4,15,0,64,0,0,12,0
         AGO   .LST17    TO NEXT UCB ADD ENTRY
.UCB15   ANOP       UCB ENTRY
 IECVUCB 15,0C4,GR,14,69,16,0,15,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB16
.UCX15    ANOP       UCB ENTRY
 IECVUCB 15,0C4,GR,14,69,16,0,15,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX16  TO NEXT EXTENSION
.LST17 IECULK3 4,5,16,0,64,0,0,12,0
         AGO   .LST18    TO NEXT UCB ADD ENTRY
.UCB16   ANOP       UCB ENTRY
 IECVUCB 16,0C5,GR,15,69,17,0,16,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB17
.UCX16    ANOP       UCB ENTRY
 IECVUCB 16,0C5,GR,15,69,17,0,16,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX17  TO NEXT EXTENSION
.LST18 IECULK3 5,6,17,0,64,0,0,12,0
         AGO   .LST19    TO NEXT UCB ADD ENTRY
.UCB17   ANOP       UCB ENTRY
 IECVUCB 17,0C6,GR,16,69,18,0,17,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB18
.UCX17    ANOP       UCB ENTRY
 IECVUCB 17,0C6,GR,16,69,18,0,17,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX18  TO NEXT EXTENSION
.LST19 IECULK3 6,7,18,0,64,0,0,12,0
         AGO   .LST20    TO NEXT UCB ADD ENTRY
.UCB18   ANOP       UCB ENTRY
 IECVUCB 18,0C7,GR,17,69,19,0,18,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB19
.UCX18    ANOP       UCB ENTRY
 IECVUCB 18,0C7,GR,17,69,19,0,18,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX19  TO NEXT EXTENSION
.SRCH1  ANOP         CHAN SEARCH FOR MPX
    IECICS 0
         AGO   .SRCH2     TO NEXT SEARCH
.TCH1   ANOP       TCH FOR MPX
         IECXTCH 1,0,0
         AGO   .TCH2     TO NEXT TXH
.TAB2   ANOP         LOOK UP UCB TAB
 IECULK1 21,0,1,0,0,1,0
         AGO   .TAB3     TO NEXT CHANNEL ENTRY
.TCU4   IECULK2 76,12,0,21,1,0,0
         AGO   .TCU5       TO NEXT ENTRY
.LST20 IECULK3 7,2,19,1,76,0,1,0,0
         AGO   .LST21    TO NEXT UCB ADD ENTRY
.UCB19 ANOP
  IECVUCB 19,102,WR,18,07,20,1,,10800809,0,0,IECVDDT8,0,0,0,0,0,102,0,0*
               ,8
         AGO   .UCB20      TO NEXT UCB
.UCX19 ANOP
  IECVUCB 19,102,WR,18,07,20,1,,10800809,0,0,IECVDDT8,0,0,0,1,0,102,0,0*
               ,8
         AGO   .UCX20  TO NEXT EXTENSION
.WK3 IECVUCBA 19,10800809,0,0,0,0,
         AGO   .WK4   TO NEXT WORK AREA
.LST21 IECULK3 2,3,20,0,76,0,1,0,0
         AGO   .LST22    TO NEXT UCB ADD ENTRY
.UCB20 ANOP
  IECVUCB 20,103,WR,19,07,21,1,,10800809,0,0,IECVDDT8,0,0,0,0,0,103,0,0*
               ,8
         AGO   .UCB21      TO NEXT UCB
.UCX20 ANOP
  IECVUCB 20,103,WR,19,07,21,1,,10800809,0,0,IECVDDT8,0,0,0,1,0,103,0,0*
               ,8
         AGO   .UCX21  TO NEXT EXTENSION
.WK4 IECVUCBA 20,10800809,0,0,0,0,
         AGO   .WK5   TO NEXT WORK AREA
.LST22 IECULK3 3,12,21,0,76,0,1,0,0
         AGO   .LST23    TO NEXT UCB ADD ENTRY
.UCB21 ANOP
  IECVUCB 21,10C,UR,20,0D,22,1,,10000801,0,0,IECVDDT5,0,0,0,0,0,10C,0,0*
               ,8
         AGO   .UCB22      TO NEXT UCB
.UCX21 ANOP
  IECVUCB 21,10C,UR,20,0D,22,1,,10000801,0,0,IECVDDT5,0,0,0,1,0,10C,0,0*
               ,8
         AGO   .UCX22  TO NEXT EXTENSION
.LST23 IECULK3 12,13,22,0,76,0,1,0,0
         AGO   .LST24    TO NEXT UCB ADD ENTRY
.UCB22 ANOP
  IECVUCB 22,10D,UR,21,0D,23,1,,10000802,0,0,IECVDDT5,0,0,0,0,0,10D,0,0*
               ,8
         AGO   .UCB23      TO NEXT UCB
.UCX22 ANOP
  IECVUCB 22,10D,UR,21,0D,23,1,,10000802,0,0,IECVDDT5,0,0,0,1,0,10D,0,0*
               ,8
         AGO   .UCX23  TO NEXT EXTENSION
.LST24 IECULK3 13,14,23,0,76,0,1,0,0
         AGO   .LST25    TO NEXT UCB ADD ENTRY
.UCB23 ANOP
  IECVUCB 23,10E,UR,22,07,24,1,,10000808,0,0,IECVDDT5,0,0,0,0,0,10E,0,0*
               ,8
         AGO   .UCB24      TO NEXT UCB
.UCX23 ANOP
  IECVUCB 23,10E,UR,22,07,24,1,,10000808,0,0,IECVDDT5,0,0,0,1,0,10E,0,0*
               ,8
         AGO   .UCX24  TO NEXT EXTENSION
.LST25 IECULK3 14,15,24,0,76,0,1,0,0
         AGO   .LST26    TO NEXT UCB ADD ENTRY
.UCB24 ANOP
  IECVUCB 24,10F,UR,23,07,25,1,,10000808,0,0,IECVDDT5,0,0,0,0,0,10F,0,0*
               ,8
         AGO   .UCB25      TO NEXT UCB
.UCX24 ANOP
  IECVUCB 24,10F,UR,23,07,25,1,,10000808,0,0,IECVDDT5,0,0,0,1,0,10F,0,0*
               ,8
         AGO   .UCX25  TO NEXT EXTENSION
.TCU5   IECULK2 108,0,3,21,0,0,0
         AGO   .TCU6       TO NEXT ENTRY
.LST26 IECULK3 15,0,25,1,108,0,1,3,0
         AGO   .LST27    TO NEXT UCB ADD ENTRY
.UCB25 ANOP
  IECVUCB 25,130,DS,24,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,130,0,0*
               ,8
         AGO   .UCB26      TO NEXT UCB
.UCX25 ANOP
  IECVUCB 25,130,DS,24,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,130,0,0*
               ,8
         AGO   .UCX26  TO NEXT EXTENSION
.LST27 IECULK3 0,1,26,0,108,0,1,3,0
         AGO   .LST28    TO NEXT UCB ADD ENTRY
.UCB26 ANOP
  IECVUCB 26,131,DS,28,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,131,0,0*
               ,8
         AGO   .UCB27      TO NEXT UCB
.UCX26 ANOP
  IECVUCB 26,131,DS,28,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,131,0,0*
               ,8
         AGO   .UCX27  TO NEXT EXTENSION
.LST28 IECULK3 1,2,27,0,108,0,1,3,0
         AGO   .LST29    TO NEXT UCB ADD ENTRY
.UCB27 ANOP
  IECVUCB 27,132,DS,32,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,132,0,0*
               ,8
         AGO   .UCB28      TO NEXT UCB
.UCX27 ANOP
  IECVUCB 27,132,DS,32,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,132,0,0*
               ,8
         AGO   .UCX28  TO NEXT EXTENSION
.LST29 IECULK3 2,3,28,0,108,0,1,3,0
         AGO   .LST30    TO NEXT UCB ADD ENTRY
.UCB28 ANOP
  IECVUCB 28,133,DS,36,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,133,0,0*
               ,8
         AGO   .UCB29      TO NEXT UCB
.UCX28 ANOP
  IECVUCB 28,133,DS,36,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,133,0,0*
               ,8
         AGO   .UCX29  TO NEXT EXTENSION
.LST30 IECULK3 3,4,29,0,108,0,1,3,0
         AGO   .LST31    TO NEXT UCB ADD ENTRY
.UCB29 ANOP
  IECVUCB 29,134,DS,40,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,134,0,0*
               ,8
         AGO   .UCB30      TO NEXT UCB
.UCX29 ANOP
  IECVUCB 29,134,DS,40,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,134,0,0*
               ,8
         AGO   .UCX30  TO NEXT EXTENSION
.LST31 IECULK3 4,5,30,0,108,0,1,3,0
         AGO   .LST32    TO NEXT UCB ADD ENTRY
.UCB30 ANOP
  IECVUCB 30,135,DS,44,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,135,0,0*
               ,8
         AGO   .UCB31      TO NEXT UCB
.UCX30 ANOP
  IECVUCB 30,135,DS,44,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,135,0,0*
               ,8
         AGO   .UCX31  TO NEXT EXTENSION
.LST32 IECULK3 5,6,31,0,108,0,1,3,0
         AGO   .LST33    TO NEXT UCB ADD ENTRY
.UCB31 ANOP
  IECVUCB 31,136,DS,48,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,136,0,0*
               ,8
         AGO   .UCB32      TO NEXT UCB
.UCX31 ANOP
  IECVUCB 31,136,DS,48,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,136,0,0*
               ,8
         AGO   .UCX32  TO NEXT EXTENSION
.LST33 IECULK3 6,7,32,0,108,0,1,3,0
         AGO   .LST34    TO NEXT UCB ADD ENTRY
.UCB32 ANOP
  IECVUCB 32,137,DS,52,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,137,0,0*
               ,8
         AGO   .UCB33      TO NEXT UCB
.UCX32 ANOP
  IECVUCB 32,137,DS,52,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,137,0,0*
               ,8
         AGO   .UCX33  TO NEXT EXTENSION
.LST34 IECULK3 7,8,33,0,108,0,1,3,0
         AGO   .LST35    TO NEXT UCB ADD ENTRY
.UCB33 ANOP
  IECVUCB 33,138,DS,56,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,138,0,0*
               ,8
         AGO   .UCB34      TO NEXT UCB
.UCX33 ANOP
  IECVUCB 33,138,DS,56,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,138,0,0*
               ,8
         AGO   .UCX34  TO NEXT EXTENSION
.LST35 IECULK3 8,9,34,0,108,0,1,3,0
         AGO   .LST36    TO NEXT UCB ADD ENTRY
.UCB34 ANOP
  IECVUCB 34,139,DS,60,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,139,0,0*
               ,8
         AGO   .UCB35      TO NEXT UCB
.UCX34 ANOP
  IECVUCB 34,139,DS,60,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,139,0,0*
               ,8
         AGO   .UCX35  TO NEXT EXTENSION
.LST36 IECULK3 9,10,35,0,108,0,1,3,0
         AGO   .LST37    TO NEXT UCB ADD ENTRY
.UCB35 ANOP
  IECVUCB 35,13A,DS,64,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,13A,0,0*
               ,8
         AGO   .UCB36      TO NEXT UCB
.UCX35 ANOP
  IECVUCB 35,13A,DS,64,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,13A,0,0*
               ,8
         AGO   .UCX36  TO NEXT EXTENSION
.LST37 IECULK3 10,11,36,0,108,0,1,3,0
         AGO   .LST38    TO NEXT UCB ADD ENTRY
.UCB36 ANOP
  IECVUCB 36,13B,DS,68,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,13B,0,0*
               ,8
         AGO   .UCB37      TO NEXT UCB
.UCX36 ANOP
  IECVUCB 36,13B,DS,68,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,13B,0,0*
               ,8
         AGO   .UCX37  TO NEXT EXTENSION
.LST38 IECULK3 11,12,37,0,108,0,1,3,0
         AGO   .LST39    TO NEXT UCB ADD ENTRY
.UCB37 ANOP
  IECVUCB 37,13C,DS,72,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,13C,0,0*
               ,8
         AGO   .UCB38      TO NEXT UCB
.UCX37 ANOP
  IECVUCB 37,13C,DS,72,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,13C,0,0*
               ,8
         AGO   .UCX38  TO NEXT EXTENSION
.LST39 IECULK3 12,13,38,0,108,0,1,3,0
         AGO   .LST40    TO NEXT UCB ADD ENTRY
.UCB38 ANOP
  IECVUCB 38,13D,DS,76,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,13D,0,0*
               ,8
         AGO   .UCB39      TO NEXT UCB
.UCX38 ANOP
  IECVUCB 38,13D,DS,76,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,13D,0,0*
               ,8
         AGO   .UCX39  TO NEXT EXTENSION
.LST40 IECULK3 13,14,39,0,108,0,1,3,0
         AGO   .LST41    TO NEXT UCB ADD ENTRY
.UCB39 ANOP
  IECVUCB 39,13E,DS,80,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,13E,0,0*
               ,8
         AGO   .UCB40      TO NEXT UCB
.UCX39 ANOP
  IECVUCB 39,13E,DS,80,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,13E,0,0*
               ,8
         AGO   .UCX40  TO NEXT EXTENSION
.LST41 IECULK3 14,15,40,0,108,0,1,3,0
         AGO   .LST42    TO NEXT UCB ADD ENTRY
.UCB40 ANOP
  IECVUCB 40,13F,DS,84,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,13F,0,0*
               ,8
         AGO   .UCB41      TO NEXT UCB
.UCX40 ANOP
  IECVUCB 40,13F,DS,84,00,0,1,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,13F,0,0*
               ,8
         AGO   .UCX41  TO NEXT EXTENSION
.TCU6   IECULK2 140,3,4,21,0,0,0
         AGO   .TCU7       TO NEXT ENTRY
.LST42 IECULK3 15,0,41,1,140,0,1,4,0
         AGO   .LST43    TO NEXT UCB ADD ENTRY
.UCB41 ANOP
  IECVUCB 41,140,ML,88,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,140,0,*
               0,0
         AGO   .UCB42      TO NEXT UCB
.UCX41 ANOP
  IECVUCB 41,140,ML,88,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,140,0,*
               0,0
         AGO   .UCX42  TO NEXT EXTENSION
.LST43 IECULK3 0,1,42,0,140,0,1,4,0
         AGO   .LST44    TO NEXT UCB ADD ENTRY
.UCB42 ANOP
  IECVUCB 42,141,ML,92,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,141,0,*
               0,0
         AGO   .UCB43      TO NEXT UCB
.UCX42 ANOP
  IECVUCB 42,141,ML,92,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,141,0,*
               0,0
         AGO   .UCX43  TO NEXT EXTENSION
.LST44 IECULK3 1,2,43,0,140,0,1,4,0
         AGO   .LST45    TO NEXT UCB ADD ENTRY
.UCB43 ANOP
  IECVUCB 43,142,ML,96,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,142,0,*
               0,0
         AGO   .UCB44      TO NEXT UCB
.UCX43 ANOP
  IECVUCB 43,142,ML,96,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,142,0,*
               0,0
         AGO   .UCX44  TO NEXT EXTENSION
.LST45 IECULK3 2,3,44,0,140,0,1,4,0
         AGO   .LST46    TO NEXT UCB ADD ENTRY
.UCB44 ANOP
  IECVUCB 44,143,ML,100,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,143,0*
               ,0,0
         AGO   .UCB45      TO NEXT UCB
.UCX44 ANOP
  IECVUCB 44,143,ML,100,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,143,0*
               ,0,0
         AGO   .UCX45  TO NEXT EXTENSION
.LST46 IECULK3 3,4,45,0,140,0,1,4,0
         AGO   .LST47    TO NEXT UCB ADD ENTRY
.UCB45 ANOP
  IECVUCB 45,144,ML,104,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,144,0*
               ,0,0
         AGO   .UCB46      TO NEXT UCB
.UCX45 ANOP
  IECVUCB 45,144,ML,104,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,144,0*
               ,0,0
         AGO   .UCX46  TO NEXT EXTENSION
.LST47 IECULK3 4,5,46,0,140,0,1,4,0
         AGO   .LST48    TO NEXT UCB ADD ENTRY
.UCB46 ANOP
  IECVUCB 46,145,ML,108,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,145,0*
               ,0,0
         AGO   .UCB47      TO NEXT UCB
.UCX46 ANOP
  IECVUCB 46,145,ML,108,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,145,0*
               ,0,0
         AGO   .UCX47  TO NEXT EXTENSION
.LST48 IECULK3 5,6,47,0,140,0,1,4,0
         AGO   .LST49    TO NEXT UCB ADD ENTRY
.UCB47 ANOP
  IECVUCB 47,146,ML,112,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,146,0*
               ,0,0
         AGO   .UCB48      TO NEXT UCB
.UCX47 ANOP
  IECVUCB 47,146,ML,112,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,146,0*
               ,0,0
         AGO   .UCX48  TO NEXT EXTENSION
.LST49 IECULK3 6,7,48,0,140,0,1,4,0
         AGO   .LST50    TO NEXT UCB ADD ENTRY
.UCB48 ANOP
  IECVUCB 48,147,ML,116,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,147,0*
               ,0,0
         AGO   .UCB49      TO NEXT UCB
.UCX48 ANOP
  IECVUCB 48,147,ML,116,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,147,0*
               ,0,0
         AGO   .UCX49  TO NEXT EXTENSION
.LST50 IECULK3 7,8,49,0,140,0,1,4,0
         AGO   .LST51    TO NEXT UCB ADD ENTRY
.UCB49 ANOP
  IECVUCB 49,148,ML,120,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,148,0*
               ,0,0
         AGO   .UCB50      TO NEXT UCB
.UCX49 ANOP
  IECVUCB 49,148,ML,120,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,148,0*
               ,0,0
         AGO   .UCX50  TO NEXT EXTENSION
.LST51 IECULK3 8,9,50,0,140,0,1,4,0
         AGO   .LST52    TO NEXT UCB ADD ENTRY
.UCB50 ANOP
  IECVUCB 50,149,ML,124,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,149,0*
               ,0,0
         AGO   .UCB51      TO NEXT UCB
.UCX50 ANOP
  IECVUCB 50,149,ML,124,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,149,0*
               ,0,0
         AGO   .UCX51  TO NEXT EXTENSION
.LST52 IECULK3 9,10,51,0,140,0,1,4,0
         AGO   .LST53    TO NEXT UCB ADD ENTRY
.UCB51 ANOP
  IECVUCB 51,14A,ML,128,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,14A,0*
               ,0,0
         AGO   .UCB52      TO NEXT UCB
.UCX51 ANOP
  IECVUCB 51,14A,ML,128,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,14A,0*
               ,0,0
         AGO   .UCX52  TO NEXT EXTENSION
.LST53 IECULK3 10,11,52,0,140,0,1,4,0
         AGO   .LST54    TO NEXT UCB ADD ENTRY
.UCB52 ANOP
  IECVUCB 52,14B,ML,132,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,14B,0*
               ,0,0
         AGO   .UCB53      TO NEXT UCB
.UCX52 ANOP
  IECVUCB 52,14B,ML,132,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,14B,0*
               ,0,0
         AGO   .UCX53  TO NEXT EXTENSION
.LST54 IECULK3 11,12,53,0,140,0,1,4,0
         AGO   .LST55    TO NEXT UCB ADD ENTRY
.UCB53 ANOP
  IECVUCB 53,14C,ML,136,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,14C,0*
               ,0,0
         AGO   .UCB54      TO NEXT UCB
.UCX53 ANOP
  IECVUCB 53,14C,ML,136,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,14C,0*
               ,0,0
         AGO   .UCX54  TO NEXT EXTENSION
.LST55 IECULK3 12,13,54,0,140,0,1,4,0
         AGO   .LST56    TO NEXT UCB ADD ENTRY
.UCB54 ANOP
  IECVUCB 54,14D,ML,140,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,14D,0*
               ,0,0
         AGO   .UCB55      TO NEXT UCB
.UCX54 ANOP
  IECVUCB 54,14D,ML,140,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,14D,0*
               ,0,0
         AGO   .UCX55  TO NEXT EXTENSION
.LST56 IECULK3 13,14,55,0,140,0,1,4,0
         AGO   .LST57    TO NEXT UCB ADD ENTRY
.UCB55 ANOP
  IECVUCB 55,14E,ML,144,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,14E,0*
               ,0,0
         AGO   .UCB56      TO NEXT UCB
.UCX55 ANOP
  IECVUCB 55,14E,ML,144,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,14E,0*
               ,0,0
         AGO   .UCX56  TO NEXT EXTENSION
.LST57 IECULK3 14,15,56,0,140,0,1,4,0
         AGO   .LST58    TO NEXT UCB ADD ENTRY
.UCB56 ANOP
  IECVUCB 56,14F,ML,148,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,0,0,14F,0*
               ,0,0
         AGO   .UCB57      TO NEXT UCB
.UCX56 ANOP
  IECVUCB 56,14F,ML,148,00,0,1,,3070200B,136,4,IECVDDTN,0,0,0,1,0,14F,0*
               ,0,0
         AGO   .UCX57  TO NEXT EXTENSION
.TCU7   IECULK2 172,4,5,21,0,0,0
         AGO   .TCU8       TO NEXT ENTRY
.LST58 IECULK3 15,0,57,1,172,0,1,5,0
         AGO   .LST59    TO NEXT UCB ADD ENTRY
.UCB57 ANOP
  IECVUCB 57,150,ML,152,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,150,0*
               ,0,12
         AGO   .UCB58      TO NEXT UCB
.UCX57 ANOP
  IECVUCB 57,150,ML,152,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,150,0*
               ,0,12
         AGO   .UCX58  TO NEXT EXTENSION
.LST59 IECULK3 0,1,58,0,172,0,1,5,0
         AGO   .LST60    TO NEXT UCB ADD ENTRY
.UCB58 ANOP
  IECVUCB 58,151,ML,156,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,151,0*
               ,0,12
         AGO   .UCB59      TO NEXT UCB
.UCX58 ANOP
  IECVUCB 58,151,ML,156,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,151,0*
               ,0,12
         AGO   .UCX59  TO NEXT EXTENSION
.LST60 IECULK3 1,2,59,0,172,0,1,5,0
         AGO   .LST61    TO NEXT UCB ADD ENTRY
.UCB59 ANOP
  IECVUCB 59,152,ML,160,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,152,0*
               ,0,12
         AGO   .UCB60      TO NEXT UCB
.UCX59 ANOP
  IECVUCB 59,152,ML,160,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,152,0*
               ,0,12
         AGO   .UCX60  TO NEXT EXTENSION
.LST61 IECULK3 2,3,60,0,172,0,1,5,0
         AGO   .LST62    TO NEXT UCB ADD ENTRY
.UCB60 ANOP
  IECVUCB 60,153,ML,164,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,153,0*
               ,0,12
         AGO   .UCB61      TO NEXT UCB
.UCX60 ANOP
  IECVUCB 60,153,ML,164,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,153,0*
               ,0,12
         AGO   .UCX61  TO NEXT EXTENSION
.LST62 IECULK3 3,4,61,0,172,0,1,5,0
         AGO   .LST63    TO NEXT UCB ADD ENTRY
.UCB61 ANOP
  IECVUCB 61,154,ML,168,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,154,0*
               ,0,12
         AGO   .UCB62      TO NEXT UCB
.UCX61 ANOP
  IECVUCB 61,154,ML,168,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,154,0*
               ,0,12
         AGO   .UCX62  TO NEXT EXTENSION
.LST63 IECULK3 4,5,62,0,172,0,1,5,0
         AGO   .LST64    TO NEXT UCB ADD ENTRY
.UCB62 ANOP
  IECVUCB 62,155,ML,172,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,155,0*
               ,0,12
         AGO   .UCB63      TO NEXT UCB
.UCX62 ANOP
  IECVUCB 62,155,ML,172,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,155,0*
               ,0,12
         AGO   .UCX63  TO NEXT EXTENSION
.LST64 IECULK3 5,6,63,0,172,0,1,5,0
         AGO   .LST65    TO NEXT UCB ADD ENTRY
.UCB63 ANOP
  IECVUCB 63,156,ML,176,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,156,0*
               ,0,12
         AGO   .UCB64      TO NEXT UCB
.UCX63 ANOP
  IECVUCB 63,156,ML,176,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,156,0*
               ,0,12
         AGO   .UCX64  TO NEXT EXTENSION
.LST65 IECULK3 6,7,64,0,172,0,1,5,0
         AGO   .LST66    TO NEXT UCB ADD ENTRY
.UCB64 ANOP
  IECVUCB 64,157,ML,180,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,157,0*
               ,0,12
         AGO   .UCB65      TO NEXT UCB
.UCX64 ANOP
  IECVUCB 64,157,ML,180,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,157,0*
               ,0,12
         AGO   .UCX65  TO NEXT EXTENSION
.LST66 IECULK3 7,8,65,0,172,0,1,5,0
         AGO   .LST67    TO NEXT UCB ADD ENTRY
.UCB65 ANOP
  IECVUCB 65,158,ML,184,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,158,0*
               ,0,12
         AGO   .UCB66      TO NEXT UCB
.UCX65 ANOP
  IECVUCB 65,158,ML,184,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,158,0*
               ,0,12
         AGO   .UCX66  TO NEXT EXTENSION
.LST67 IECULK3 8,9,66,0,172,0,1,5,0
         AGO   .LST68    TO NEXT UCB ADD ENTRY
.UCB66 ANOP
  IECVUCB 66,159,ML,188,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,159,0*
               ,0,12
         AGO   .UCB67      TO NEXT UCB
.UCX66 ANOP
  IECVUCB 66,159,ML,188,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,159,0*
               ,0,12
         AGO   .UCX67  TO NEXT EXTENSION
.LST68 IECULK3 9,10,67,0,172,0,1,5,0
         AGO   .LST69    TO NEXT UCB ADD ENTRY
.UCB67 ANOP
  IECVUCB 67,15A,ML,192,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,15A,0*
               ,0,12
         AGO   .UCB68      TO NEXT UCB
.UCX67 ANOP
  IECVUCB 67,15A,ML,192,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,15A,0*
               ,0,12
         AGO   .UCX68  TO NEXT EXTENSION
.LST69 IECULK3 10,11,68,0,172,0,1,5,0
         AGO   .LST70    TO NEXT UCB ADD ENTRY
.UCB68 ANOP
  IECVUCB 68,15B,ML,196,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,15B,0*
               ,0,12
         AGO   .UCB69      TO NEXT UCB
.UCX68 ANOP
  IECVUCB 68,15B,ML,196,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,15B,0*
               ,0,12
         AGO   .UCX69  TO NEXT EXTENSION
.LST70 IECULK3 11,12,69,0,172,0,1,5,0
         AGO   .LST71    TO NEXT UCB ADD ENTRY
.UCB69 ANOP
  IECVUCB 69,15C,ML,200,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,15C,0*
               ,0,12
         AGO   .UCB70      TO NEXT UCB
.UCX69 ANOP
  IECVUCB 69,15C,ML,200,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,15C,0*
               ,0,12
         AGO   .UCX70  TO NEXT EXTENSION
.LST71 IECULK3 12,13,70,0,172,0,1,5,0
         AGO   .LST72    TO NEXT UCB ADD ENTRY
.UCB70 ANOP
  IECVUCB 70,15D,ML,204,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,15D,0*
               ,0,12
         AGO   .UCB71      TO NEXT UCB
.UCX70 ANOP
  IECVUCB 70,15D,ML,204,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,15D,0*
               ,0,12
         AGO   .UCX71  TO NEXT EXTENSION
.LST72 IECULK3 13,14,71,0,172,0,1,5,0
         AGO   .LST73    TO NEXT UCB ADD ENTRY
.UCB71 ANOP
  IECVUCB 71,15E,ML,208,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,15E,0*
               ,0,12
         AGO   .UCB72      TO NEXT UCB
.UCX71 ANOP
  IECVUCB 71,15E,ML,208,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,15E,0*
               ,0,12
         AGO   .UCX72  TO NEXT EXTENSION
.LST73 IECULK3 14,15,72,0,172,0,1,5,0
         AGO   .LST74    TO NEXT UCB ADD ENTRY
.UCB72 ANOP
  IECVUCB 72,15F,ML,212,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,0,0,15F,0*
               ,0,12
         AGO   .UCB73      TO NEXT UCB
.UCX72 ANOP
  IECVUCB 72,15F,ML,212,00,0,1,,30702009,136,0,IECVDDTL,0,0,0,1,0,15F,0*
               ,0,12
         AGO   .UCX73  TO NEXT EXTENSION
.TCU8   IECULK2 204,5,6,21,0,0,0
         AGO   .TCU9       TO NEXT ENTRY
.LST74 IECULK3 15,0,73,1,204,0,1,6,0
         AGO   .LST75    TO NEXT UCB ADD ENTRY
.UCB73 ANOP
  IECVUCB 73,160,ML,216,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,160,0*
               ,0,12
         AGO   .UCB74      TO NEXT UCB
.UCX73 ANOP
  IECVUCB 73,160,ML,216,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,160,0*
               ,0,12
         AGO   .UCX74  TO NEXT EXTENSION
.LST75 IECULK3 0,1,74,0,204,0,1,6,0
         AGO   .LST76    TO NEXT UCB ADD ENTRY
.UCB74 ANOP
  IECVUCB 74,161,ML,220,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,161,0*
               ,0,12
         AGO   .UCB75      TO NEXT UCB
.UCX74 ANOP
  IECVUCB 74,161,ML,220,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,161,0*
               ,0,12
         AGO   .UCX75  TO NEXT EXTENSION
.LST76 IECULK3 1,2,75,0,204,0,1,6,0
         AGO   .LST77    TO NEXT UCB ADD ENTRY
.UCB75 ANOP
  IECVUCB 75,162,ML,224,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,162,0*
               ,0,12
         AGO   .UCB76      TO NEXT UCB
.UCX75 ANOP
  IECVUCB 75,162,ML,224,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,162,0*
               ,0,12
         AGO   .UCX76  TO NEXT EXTENSION
.LST77 IECULK3 2,3,76,0,204,0,1,6,0
         AGO   .LST78    TO NEXT UCB ADD ENTRY
.UCB76 ANOP
  IECVUCB 76,163,ML,228,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,163,0*
               ,0,12
         AGO   .UCB77      TO NEXT UCB
.UCX76 ANOP
  IECVUCB 76,163,ML,228,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,163,0*
               ,0,12
         AGO   .UCX77  TO NEXT EXTENSION
.LST78 IECULK3 3,4,77,0,204,0,1,6,0
         AGO   .LST79    TO NEXT UCB ADD ENTRY
.UCB77 ANOP
  IECVUCB 77,164,ML,232,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,164,0*
               ,0,12
         AGO   .UCB78      TO NEXT UCB
.UCX77 ANOP
  IECVUCB 77,164,ML,232,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,164,0*
               ,0,12
         AGO   .UCX78  TO NEXT EXTENSION
.LST79 IECULK3 4,5,78,0,204,0,1,6,0
         AGO   .LST80    TO NEXT UCB ADD ENTRY
.UCB78 ANOP
  IECVUCB 78,165,ML,236,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,165,0*
               ,0,12
         AGO   .UCB79      TO NEXT UCB
.UCX78 ANOP
  IECVUCB 78,165,ML,236,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,165,0*
               ,0,12
         AGO   .UCX79  TO NEXT EXTENSION
.LST80 IECULK3 5,6,79,0,204,0,1,6,0
         AGO   .LST81    TO NEXT UCB ADD ENTRY
.UCB79 ANOP
  IECVUCB 79,166,ML,240,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,166,0*
               ,0,12
         AGO   .UCB80      TO NEXT UCB
.UCX79 ANOP
  IECVUCB 79,166,ML,240,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,166,0*
               ,0,12
         AGO   .UCX80  TO NEXT EXTENSION
.LST81 IECULK3 6,7,80,0,204,0,1,6,0
         AGO   .LST82    TO NEXT UCB ADD ENTRY
.UCB80 ANOP
  IECVUCB 80,167,ML,244,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,167,0*
               ,0,12
         AGO   .UCB81      TO NEXT UCB
.UCX80 ANOP
  IECVUCB 80,167,ML,244,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,167,0*
               ,0,12
         AGO   .UCX81  TO NEXT EXTENSION
.LST82 IECULK3 7,8,81,0,204,0,1,6,0
         AGO   .LST83    TO NEXT UCB ADD ENTRY
.UCB81 ANOP
  IECVUCB 81,168,ML,248,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,168,0*
               ,0,12
         AGO   .UCB82      TO NEXT UCB
.UCX81 ANOP
  IECVUCB 81,168,ML,248,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,168,0*
               ,0,12
         AGO   .UCX82  TO NEXT EXTENSION
.LST83 IECULK3 8,9,82,0,204,0,1,6,0
         AGO   .LST84    TO NEXT UCB ADD ENTRY
.UCB82 ANOP
  IECVUCB 82,169,ML,252,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,169,0*
               ,0,12
         AGO   .UCB83      TO NEXT UCB
.UCX82 ANOP
  IECVUCB 82,169,ML,252,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,169,0*
               ,0,12
         AGO   .UCX83  TO NEXT EXTENSION
.LST84 IECULK3 9,10,83,0,204,0,1,6,0
         AGO   .LST85    TO NEXT UCB ADD ENTRY
.UCB83 ANOP
  IECVUCB 83,16A,ML,256,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,16A,0*
               ,0,12
         AGO   .UCB84      TO NEXT UCB
.UCX83 ANOP
  IECVUCB 83,16A,ML,256,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,16A,0*
               ,0,12
         AGO   .UCX84  TO NEXT EXTENSION
.LST85 IECULK3 10,11,84,0,204,0,1,6,0
         AGO   .LST86    TO NEXT UCB ADD ENTRY
.UCB84 ANOP
  IECVUCB 84,16B,ML,260,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,16B,0*
               ,0,12
         AGO   .UCB85      TO NEXT UCB
.UCX84 ANOP
  IECVUCB 84,16B,ML,260,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,16B,0*
               ,0,12
         AGO   .UCX85  TO NEXT EXTENSION
.LST86 IECULK3 11,12,85,0,204,0,1,6,0
         AGO   .LST87    TO NEXT UCB ADD ENTRY
.UCB85 ANOP
  IECVUCB 85,16C,ML,264,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,16C,0*
               ,0,12
         AGO   .UCB86      TO NEXT UCB
.UCX85 ANOP
  IECVUCB 85,16C,ML,264,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,16C,0*
               ,0,12
         AGO   .UCX86  TO NEXT EXTENSION
.LST87 IECULK3 12,13,86,0,204,0,1,6,0
         AGO   .LST88    TO NEXT UCB ADD ENTRY
.UCB86 ANOP
  IECVUCB 86,16D,ML,268,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,16D,0*
               ,0,12
         AGO   .UCB87      TO NEXT UCB
.UCX86 ANOP
  IECVUCB 86,16D,ML,268,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,16D,0*
               ,0,12
         AGO   .UCX87  TO NEXT EXTENSION
.LST88 IECULK3 13,14,87,0,204,0,1,6,0
         AGO   .LST89    TO NEXT UCB ADD ENTRY
.UCB87 ANOP
  IECVUCB 87,16E,ML,272,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,16E,0*
               ,0,12
         AGO   .UCB88      TO NEXT UCB
.UCX87 ANOP
  IECVUCB 87,16E,ML,272,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,16E,0*
               ,0,12
         AGO   .UCX88  TO NEXT EXTENSION
.LST89 IECULK3 14,15,88,0,204,0,1,6,0
         AGO   .LST90    TO NEXT UCB ADD ENTRY
.UCB88 ANOP
  IECVUCB 88,16F,ML,276,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,0,0,16F,0*
               ,0,12
         AGO   .UCB89      TO NEXT UCB
.UCX88 ANOP
  IECVUCB 88,16F,ML,276,00,0,1,,3060200A,136,0,IECVDDTM,0,0,0,1,0,16F,0*
               ,0,12
         AGO   .UCX89  TO NEXT EXTENSION
.TCU9   IECULK2 236,6,12,21,0,0,0
         AGO   .TCU10       TO NEXT ENTRY
.LST90 IECULK3 15,0,89,1,236,0,1,12,0
         AGO   .LST91    TO NEXT UCB ADD ENTRY
.UCB89   ANOP       UCB ENTRY
 IECVUCB 89,1C0,GR,280,69,26,1,89,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB90
.UCX89    ANOP       UCB ENTRY
 IECVUCB 89,1C0,GR,280,69,26,1,89,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX90  TO NEXT EXTENSION
.LST91 IECULK3 0,1,90,0,236,0,1,12,0
         AGO   .LST92    TO NEXT UCB ADD ENTRY
.UCB90   ANOP       UCB ENTRY
 IECVUCB 90,1C1,GR,281,69,27,1,90,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB91
.UCX90    ANOP       UCB ENTRY
 IECVUCB 90,1C1,GR,281,69,27,1,90,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX91  TO NEXT EXTENSION
.LST92 IECULK3 1,2,91,0,236,0,1,12,0
         AGO   .LST93    TO NEXT UCB ADD ENTRY
.UCB91   ANOP       UCB ENTRY
 IECVUCB 91,1C2,GR,282,69,28,1,91,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB92
.UCX91    ANOP       UCB ENTRY
 IECVUCB 91,1C2,GR,282,69,28,1,91,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX92  TO NEXT EXTENSION
.LST93 IECULK3 2,3,92,0,236,0,1,12,0
         AGO   .LST94    TO NEXT UCB ADD ENTRY
.UCB92   ANOP       UCB ENTRY
 IECVUCB 92,1C3,GR,283,69,29,1,92,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB93
.UCX92    ANOP       UCB ENTRY
 IECVUCB 92,1C3,GR,283,69,29,1,92,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX93  TO NEXT EXTENSION
.LST94 IECULK3 3,4,93,0,236,0,1,12,0
         AGO   .LST95    TO NEXT UCB ADD ENTRY
.UCB93   ANOP       UCB ENTRY
 IECVUCB 93,1C4,GR,284,69,30,1,93,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB94
.UCX93    ANOP       UCB ENTRY
 IECVUCB 93,1C4,GR,284,69,30,1,93,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX94  TO NEXT EXTENSION
.LST95 IECULK3 4,5,94,0,236,0,1,12,0
         AGO   .LST96    TO NEXT UCB ADD ENTRY
.UCB94   ANOP       UCB ENTRY
 IECVUCB 94,1C5,GR,285,69,31,1,94,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB95
.UCX94    ANOP       UCB ENTRY
 IECVUCB 94,1C5,GR,285,69,31,1,94,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX95  TO NEXT EXTENSION
.LST96 IECULK3 5,6,95,0,236,0,1,12,0
         AGO   .LST97    TO NEXT UCB ADD ENTRY
.UCB95   ANOP       UCB ENTRY
 IECVUCB 95,1C6,GR,286,69,32,1,95,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB96
.UCX95    ANOP       UCB ENTRY
 IECVUCB 95,1C6,GR,286,69,32,1,95,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX96  TO NEXT EXTENSION
.LST97 IECULK3 6,7,96,0,236,0,1,12,0
         AGO   .LST98    TO NEXT UCB ADD ENTRY
.UCB96   ANOP       UCB ENTRY
 IECVUCB 96,1C7,GR,287,69,33,1,96,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB97
.UCX96    ANOP       UCB ENTRY
 IECVUCB 96,1C7,GR,287,69,33,1,96,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX97  TO NEXT EXTENSION
.TCH2    ANOP   TEST CHANNEL
    IECXTCH 2,1,(1,0,0,0,0,                                           *****
               0,0,0,0,0,0,                                          ******
               0,0,0,0)
         AGO   .TCH3      TO NEXT TCH MOD
.SRCH2  ANOP       CHANNEL SEARCH MOD2
               IECICS 1,                                          **********
               (1,                                                 ********
               1,1,                                                    *
               0)
         AGO   .SRCH3     TO NEXT CHAN SRCH MOD
.TAB3   ANOP         LOOK UP UCB TAB
 IECULK1 34,1,2,0,0,1,0
         AGO   .TAB4     TO NEXT CHANNEL ENTRY
.TCU10   IECULK2 248,12,0,34,1,0,0
         AGO   .TCU11       TO NEXT ENTRY
.LST98 IECULK3 7,2,97,1,248,0,2,0,0
         AGO   .LST99    TO NEXT UCB ADD ENTRY
.UCB97 ANOP
  IECVUCB 97,202,WR,288,07,34,2,,10800809,0,0,IECVDDT8,0,0,0,0,0,202,0,*
               0,8
         AGO   .UCB98      TO NEXT UCB
.UCX97 ANOP
  IECVUCB 97,202,WR,288,07,34,2,,10800809,0,0,IECVDDT8,0,0,0,1,0,202,0,*
               0,8
         AGO   .UCX98  TO NEXT EXTENSION
.WK5 IECVUCBA 97,10800809,0,0,0,0,
         AGO   .WK6   TO NEXT WORK AREA
.LST99 IECULK3 2,3,98,0,248,0,2,0,0
         AGO   .LST100    TO NEXT UCB ADD ENTRY
.UCB98 ANOP
  IECVUCB 98,203,WR,289,07,35,2,,10800809,0,0,IECVDDT8,0,0,0,0,0,203,0,*
               0,8
         AGO   .UCB99      TO NEXT UCB
.UCX98 ANOP
  IECVUCB 98,203,WR,289,07,35,2,,10800809,0,0,IECVDDT8,0,0,0,1,0,203,0,*
               0,8
         AGO   .UCX99  TO NEXT EXTENSION
.WK6 IECVUCBA 98,10800809,0,0,0,0,
         AGO   .WK7   TO NEXT WORK AREA
.LST100 IECULK3 3,12,99,0,248,0,2,0,0
         AGO   .LST101    TO NEXT UCB ADD ENTRY
.UCB99 ANOP
  IECVUCB 99,20C,UR,290,0D,36,2,,10000801,0,0,IECVDDT5,0,0,0,0,0,20C,0,*
               0,8
         AGO   .UCB100      TO NEXT UCB
.UCX99 ANOP
  IECVUCB 99,20C,UR,290,0D,36,2,,10000801,0,0,IECVDDT5,0,0,0,1,0,20C,0,*
               0,8
         AGO   .UCX100  TO NEXT EXTENSION
.LST101 IECULK3 12,13,100,0,248,0,2,0,0
         AGO   .LST102    TO NEXT UCB ADD ENTRY
.UCB100 ANOP
  IECVUCB 100,20D,UR,291,0D,37,2,,10000802,0,0,IECVDDT5,0,0,0,0,0,20D,0*
               ,0,8
         AGO   .UCB101      TO NEXT UCB
.UCX100 ANOP
  IECVUCB 100,20D,UR,291,0D,37,2,,10000802,0,0,IECVDDT5,0,0,0,1,0,20D,0*
               ,0,8
         AGO   .UCX101  TO NEXT EXTENSION
.LST102 IECULK3 13,14,101,0,248,0,2,0,0
         AGO   .LST103    TO NEXT UCB ADD ENTRY
.UCB101 ANOP
  IECVUCB 101,20E,UR,292,07,38,2,,10000808,0,0,IECVDDT5,0,0,0,0,0,20E,0*
               ,0,8
         AGO   .UCB102      TO NEXT UCB
.UCX101 ANOP
  IECVUCB 101,20E,UR,292,07,38,2,,10000808,0,0,IECVDDT5,0,0,0,1,0,20E,0*
               ,0,8
         AGO   .UCX102  TO NEXT EXTENSION
.LST103 IECULK3 14,15,102,0,248,0,2,0,0
         AGO   .LST104    TO NEXT UCB ADD ENTRY
.UCB102 ANOP
  IECVUCB 102,20F,UR,293,07,39,2,,10000808,0,0,IECVDDT5,0,0,0,0,0,20F,0*
               ,0,8
         AGO   .UCB103      TO NEXT UCB
.UCX102 ANOP
  IECVUCB 102,20F,UR,293,07,39,2,,10000808,0,0,IECVDDT5,0,0,0,1,0,20F,0*
               ,0,8
         AGO   .UCX103  TO NEXT EXTENSION
.TCU11   IECULK2 280,0,3,34,0,0,0
         AGO   .TCU12       TO NEXT ENTRY
.LST104 IECULK3 15,0,103,1,280,0,2,3,0
         AGO   .LST105    TO NEXT UCB ADD ENTRY
.UCB103 ANOP
  IECVUCB 103,230,DS,294,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,230,0*
               ,0,8
         AGO   .UCB104      TO NEXT UCB
.UCX103 ANOP
  IECVUCB 103,230,DS,294,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,230,0*
               ,0,8
         AGO   .UCX104  TO NEXT EXTENSION
.LST105 IECULK3 0,1,104,0,280,0,2,3,0
         AGO   .LST106    TO NEXT UCB ADD ENTRY
.UCB104 ANOP
  IECVUCB 104,231,DS,298,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,231,0*
               ,0,8
         AGO   .UCB105      TO NEXT UCB
.UCX104 ANOP
  IECVUCB 104,231,DS,298,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,231,0*
               ,0,8
         AGO   .UCX105  TO NEXT EXTENSION
.LST106 IECULK3 1,2,105,0,280,0,2,3,0
         AGO   .LST107    TO NEXT UCB ADD ENTRY
.UCB105 ANOP
  IECVUCB 105,232,DS,302,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,232,0*
               ,0,8
         AGO   .UCB106      TO NEXT UCB
.UCX105 ANOP
  IECVUCB 105,232,DS,302,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,232,0*
               ,0,8
         AGO   .UCX106  TO NEXT EXTENSION
.LST107 IECULK3 2,3,106,0,280,0,2,3,0
         AGO   .LST108    TO NEXT UCB ADD ENTRY
.UCB106 ANOP
  IECVUCB 106,233,DS,306,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,233,0*
               ,0,8
         AGO   .UCB107      TO NEXT UCB
.UCX106 ANOP
  IECVUCB 106,233,DS,306,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,233,0*
               ,0,8
         AGO   .UCX107  TO NEXT EXTENSION
.LST108 IECULK3 3,4,107,0,280,0,2,3,0
         AGO   .LST109    TO NEXT UCB ADD ENTRY
.UCB107 ANOP
  IECVUCB 107,234,DS,310,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,234,0*
               ,0,8
         AGO   .UCB108      TO NEXT UCB
.UCX107 ANOP
  IECVUCB 107,234,DS,310,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,234,0*
               ,0,8
         AGO   .UCX108  TO NEXT EXTENSION
.LST109 IECULK3 4,5,108,0,280,0,2,3,0
         AGO   .LST110    TO NEXT UCB ADD ENTRY
.UCB108 ANOP
  IECVUCB 108,235,DS,314,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,235,0*
               ,0,8
         AGO   .UCB109      TO NEXT UCB
.UCX108 ANOP
  IECVUCB 108,235,DS,314,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,235,0*
               ,0,8
         AGO   .UCX109  TO NEXT EXTENSION
.LST110 IECULK3 5,6,109,0,280,0,2,3,0
         AGO   .LST111    TO NEXT UCB ADD ENTRY
.UCB109 ANOP
  IECVUCB 109,236,DS,318,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,236,0*
               ,0,8
         AGO   .UCB110      TO NEXT UCB
.UCX109 ANOP
  IECVUCB 109,236,DS,318,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,236,0*
               ,0,8
         AGO   .UCX110  TO NEXT EXTENSION
.LST111 IECULK3 6,7,110,0,280,0,2,3,0
         AGO   .LST112    TO NEXT UCB ADD ENTRY
.UCB110 ANOP
  IECVUCB 110,237,DS,322,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,237,0*
               ,0,8
         AGO   .UCB111      TO NEXT UCB
.UCX110 ANOP
  IECVUCB 110,237,DS,322,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,237,0*
               ,0,8
         AGO   .UCX111  TO NEXT EXTENSION
.LST112 IECULK3 7,8,111,0,280,0,2,3,0
         AGO   .LST113    TO NEXT UCB ADD ENTRY
.UCB111 ANOP
  IECVUCB 111,238,DS,326,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,238,0*
               ,0,8
         AGO   .UCB112      TO NEXT UCB
.UCX111 ANOP
  IECVUCB 111,238,DS,326,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,238,0*
               ,0,8
         AGO   .UCX112  TO NEXT EXTENSION
.LST113 IECULK3 8,9,112,0,280,0,2,3,0
         AGO   .LST114    TO NEXT UCB ADD ENTRY
.UCB112 ANOP
  IECVUCB 112,239,DS,330,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,239,0*
               ,0,8
         AGO   .UCB113      TO NEXT UCB
.UCX112 ANOP
  IECVUCB 112,239,DS,330,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,239,0*
               ,0,8
         AGO   .UCX113  TO NEXT EXTENSION
.LST114 IECULK3 9,10,113,0,280,0,2,3,0
         AGO   .LST115    TO NEXT UCB ADD ENTRY
.UCB113 ANOP
  IECVUCB 113,23A,DS,334,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,23A,0*
               ,0,8
         AGO   .UCB114      TO NEXT UCB
.UCX113 ANOP
  IECVUCB 113,23A,DS,334,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,23A,0*
               ,0,8
         AGO   .UCX114  TO NEXT EXTENSION
.LST115 IECULK3 10,11,114,0,280,0,2,3,0
         AGO   .LST116    TO NEXT UCB ADD ENTRY
.UCB114 ANOP
  IECVUCB 114,23B,DS,338,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,23B,0*
               ,0,8
         AGO   .UCB115      TO NEXT UCB
.UCX114 ANOP
  IECVUCB 114,23B,DS,338,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,23B,0*
               ,0,8
         AGO   .UCX115  TO NEXT EXTENSION
.LST116 IECULK3 11,12,115,0,280,0,2,3,0
         AGO   .LST117    TO NEXT UCB ADD ENTRY
.UCB115 ANOP
  IECVUCB 115,23C,DS,342,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,23C,0*
               ,0,8
         AGO   .UCB116      TO NEXT UCB
.UCX115 ANOP
  IECVUCB 115,23C,DS,342,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,23C,0*
               ,0,8
         AGO   .UCX116  TO NEXT EXTENSION
.LST117 IECULK3 12,13,116,0,280,0,2,3,0
         AGO   .LST118    TO NEXT UCB ADD ENTRY
.UCB116 ANOP
  IECVUCB 116,23D,DS,346,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,23D,0*
               ,0,8
         AGO   .UCB117      TO NEXT UCB
.UCX116 ANOP
  IECVUCB 116,23D,DS,346,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,23D,0*
               ,0,8
         AGO   .UCX117  TO NEXT EXTENSION
.LST118 IECULK3 13,14,117,0,280,0,2,3,0
         AGO   .LST119    TO NEXT UCB ADD ENTRY
.UCB117 ANOP
  IECVUCB 117,23E,DS,350,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,23E,0*
               ,0,8
         AGO   .UCB118      TO NEXT UCB
.UCX117 ANOP
  IECVUCB 117,23E,DS,350,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,23E,0*
               ,0,8
         AGO   .UCX118  TO NEXT EXTENSION
.LST119 IECULK3 14,15,118,0,280,0,2,3,0
         AGO   .LST120    TO NEXT UCB ADD ENTRY
.UCB118 ANOP
  IECVUCB 118,23F,DS,354,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,23F,0*
               ,0,8
         AGO   .UCB119      TO NEXT UCB
.UCX118 ANOP
  IECVUCB 118,23F,DS,354,00,0,2,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,23F,0*
               ,0,8
         AGO   .UCX119  TO NEXT EXTENSION
.TCU12   IECULK2 312,3,4,34,0,0,0
         AGO   .TCU13       TO NEXT ENTRY
.LST120 IECULK3 15,0,119,1,312,0,2,4,0
         AGO   .LST121    TO NEXT UCB ADD ENTRY
.UCB119 ANOP
  IECVUCB 119,240,ML,358,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,240,*
               0,0,0
         AGO   .UCB120      TO NEXT UCB
.UCX119 ANOP
  IECVUCB 119,240,ML,358,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,240,*
               0,0,0
         AGO   .UCX120  TO NEXT EXTENSION
.LST121 IECULK3 0,1,120,0,312,0,2,4,0
         AGO   .LST122    TO NEXT UCB ADD ENTRY
.UCB120 ANOP
  IECVUCB 120,241,ML,362,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,241,*
               0,0,0
         AGO   .UCB121      TO NEXT UCB
.UCX120 ANOP
  IECVUCB 120,241,ML,362,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,241,*
               0,0,0
         AGO   .UCX121  TO NEXT EXTENSION
.LST122 IECULK3 1,2,121,0,312,0,2,4,0
         AGO   .LST123    TO NEXT UCB ADD ENTRY
.UCB121 ANOP
  IECVUCB 121,242,ML,366,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,242,*
               0,0,0
         AGO   .UCB122      TO NEXT UCB
.UCX121 ANOP
  IECVUCB 121,242,ML,366,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,242,*
               0,0,0
         AGO   .UCX122  TO NEXT EXTENSION
.LST123 IECULK3 2,3,122,0,312,0,2,4,0
         AGO   .LST124    TO NEXT UCB ADD ENTRY
.UCB122 ANOP
  IECVUCB 122,243,ML,370,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,243,*
               0,0,0
         AGO   .UCB123      TO NEXT UCB
.UCX122 ANOP
  IECVUCB 122,243,ML,370,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,243,*
               0,0,0
         AGO   .UCX123  TO NEXT EXTENSION
.LST124 IECULK3 3,4,123,0,312,0,2,4,0
         AGO   .LST125    TO NEXT UCB ADD ENTRY
.UCB123 ANOP
  IECVUCB 123,244,ML,374,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,244,*
               0,0,0
         AGO   .UCB124      TO NEXT UCB
.UCX123 ANOP
  IECVUCB 123,244,ML,374,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,244,*
               0,0,0
         AGO   .UCX124  TO NEXT EXTENSION
.LST125 IECULK3 4,5,124,0,312,0,2,4,0
         AGO   .LST126    TO NEXT UCB ADD ENTRY
.UCB124 ANOP
  IECVUCB 124,245,ML,378,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,245,*
               0,0,0
         AGO   .UCB125      TO NEXT UCB
.UCX124 ANOP
  IECVUCB 124,245,ML,378,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,245,*
               0,0,0
         AGO   .UCX125  TO NEXT EXTENSION
.LST126 IECULK3 5,6,125,0,312,0,2,4,0
         AGO   .LST127    TO NEXT UCB ADD ENTRY
.UCB125 ANOP
  IECVUCB 125,246,ML,382,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,246,*
               0,0,0
         AGO   .UCB126      TO NEXT UCB
.UCX125 ANOP
  IECVUCB 125,246,ML,382,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,246,*
               0,0,0
         AGO   .UCX126  TO NEXT EXTENSION
.LST127 IECULK3 6,7,126,0,312,0,2,4,0
         AGO   .LST128    TO NEXT UCB ADD ENTRY
.UCB126 ANOP
  IECVUCB 126,247,ML,386,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,247,*
               0,0,0
         AGO   .UCB127      TO NEXT UCB
.UCX126 ANOP
  IECVUCB 126,247,ML,386,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,247,*
               0,0,0
         AGO   .UCX127  TO NEXT EXTENSION
.LST128 IECULK3 7,8,127,0,312,0,2,4,0
         AGO   .LST129    TO NEXT UCB ADD ENTRY
.UCB127 ANOP
  IECVUCB 127,248,ML,390,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,248,*
               0,0,0
         AGO   .UCB128      TO NEXT UCB
.UCX127 ANOP
  IECVUCB 127,248,ML,390,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,248,*
               0,0,0
         AGO   .UCX128  TO NEXT EXTENSION
.LST129 IECULK3 8,9,128,0,312,0,2,4,0
         AGO   .LST130    TO NEXT UCB ADD ENTRY
.UCB128 ANOP
  IECVUCB 128,249,ML,394,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,249,*
               0,0,0
         AGO   .UCB129      TO NEXT UCB
.UCX128 ANOP
  IECVUCB 128,249,ML,394,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,249,*
               0,0,0
         AGO   .UCX129  TO NEXT EXTENSION
.LST130 IECULK3 9,10,129,0,312,0,2,4,0
         AGO   .LST131    TO NEXT UCB ADD ENTRY
.UCB129 ANOP
  IECVUCB 129,24A,ML,398,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,24A,*
               0,0,0
         AGO   .UCB130      TO NEXT UCB
.UCX129 ANOP
  IECVUCB 129,24A,ML,398,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,24A,*
               0,0,0
         AGO   .UCX130  TO NEXT EXTENSION
.LST131 IECULK3 10,11,130,0,312,0,2,4,0
         AGO   .LST132    TO NEXT UCB ADD ENTRY
.UCB130 ANOP
  IECVUCB 130,24B,ML,402,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,24B,*
               0,0,0
         AGO   .UCB131      TO NEXT UCB
.UCX130 ANOP
  IECVUCB 130,24B,ML,402,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,24B,*
               0,0,0
         AGO   .UCX131  TO NEXT EXTENSION
.LST132 IECULK3 11,12,131,0,312,0,2,4,0
         AGO   .LST133    TO NEXT UCB ADD ENTRY
.UCB131 ANOP
  IECVUCB 131,24C,ML,406,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,24C,*
               0,0,0
         AGO   .UCB132      TO NEXT UCB
.UCX131 ANOP
  IECVUCB 131,24C,ML,406,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,24C,*
               0,0,0
         AGO   .UCX132  TO NEXT EXTENSION
.LST133 IECULK3 12,13,132,0,312,0,2,4,0
         AGO   .LST134    TO NEXT UCB ADD ENTRY
.UCB132 ANOP
  IECVUCB 132,24D,ML,410,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,24D,*
               0,0,0
         AGO   .UCB133      TO NEXT UCB
.UCX132 ANOP
  IECVUCB 132,24D,ML,410,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,24D,*
               0,0,0
         AGO   .UCX133  TO NEXT EXTENSION
.LST134 IECULK3 13,14,133,0,312,0,2,4,0
         AGO   .LST135    TO NEXT UCB ADD ENTRY
.UCB133 ANOP
  IECVUCB 133,24E,ML,414,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,24E,*
               0,0,0
         AGO   .UCB134      TO NEXT UCB
.UCX133 ANOP
  IECVUCB 133,24E,ML,414,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,24E,*
               0,0,0
         AGO   .UCX134  TO NEXT EXTENSION
.LST135 IECULK3 14,15,134,0,312,0,2,4,0
         AGO   .LST136    TO NEXT UCB ADD ENTRY
.UCB134 ANOP
  IECVUCB 134,24F,ML,418,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,0,0,24F,*
               0,0,0
         AGO   .UCB135      TO NEXT UCB
.UCX134 ANOP
  IECVUCB 134,24F,ML,418,00,0,2,,3070200B,136,4,IECVDDTN,0,0,0,1,0,24F,*
               0,0,0
         AGO   .UCX135  TO NEXT EXTENSION
.TCU13   IECULK2 344,4,5,34,0,0,0
         AGO   .TCU14       TO NEXT ENTRY
.LST136 IECULK3 15,0,135,1,344,0,2,5,0
         AGO   .LST137    TO NEXT UCB ADD ENTRY
.UCB135 ANOP
  IECVUCB 135,250,ML,422,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,250,*
               0,0,12
         AGO   .UCB136      TO NEXT UCB
.UCX135 ANOP
  IECVUCB 135,250,ML,422,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,250,*
               0,0,12
         AGO   .UCX136  TO NEXT EXTENSION
.LST137 IECULK3 0,1,136,0,344,0,2,5,0
         AGO   .LST138    TO NEXT UCB ADD ENTRY
.UCB136 ANOP
  IECVUCB 136,251,ML,426,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,251,*
               0,0,12
         AGO   .UCB137      TO NEXT UCB
.UCX136 ANOP
  IECVUCB 136,251,ML,426,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,251,*
               0,0,12
         AGO   .UCX137  TO NEXT EXTENSION
.LST138 IECULK3 1,2,137,0,344,0,2,5,0
         AGO   .LST139    TO NEXT UCB ADD ENTRY
.UCB137 ANOP
  IECVUCB 137,252,ML,430,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,252,*
               0,0,12
         AGO   .UCB138      TO NEXT UCB
.UCX137 ANOP
  IECVUCB 137,252,ML,430,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,252,*
               0,0,12
         AGO   .UCX138  TO NEXT EXTENSION
.LST139 IECULK3 2,3,138,0,344,0,2,5,0
         AGO   .LST140    TO NEXT UCB ADD ENTRY
.UCB138 ANOP
  IECVUCB 138,253,ML,434,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,253,*
               0,0,12
         AGO   .UCB139      TO NEXT UCB
.UCX138 ANOP
  IECVUCB 138,253,ML,434,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,253,*
               0,0,12
         AGO   .UCX139  TO NEXT EXTENSION
.LST140 IECULK3 3,4,139,0,344,0,2,5,0
         AGO   .LST141    TO NEXT UCB ADD ENTRY
.UCB139 ANOP
  IECVUCB 139,254,ML,438,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,254,*
               0,0,12
         AGO   .UCB140      TO NEXT UCB
.UCX139 ANOP
  IECVUCB 139,254,ML,438,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,254,*
               0,0,12
         AGO   .UCX140  TO NEXT EXTENSION
.LST141 IECULK3 4,5,140,0,344,0,2,5,0
         AGO   .LST142    TO NEXT UCB ADD ENTRY
.UCB140 ANOP
  IECVUCB 140,255,ML,442,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,255,*
               0,0,12
         AGO   .UCB141      TO NEXT UCB
.UCX140 ANOP
  IECVUCB 140,255,ML,442,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,255,*
               0,0,12
         AGO   .UCX141  TO NEXT EXTENSION
.LST142 IECULK3 5,6,141,0,344,0,2,5,0
         AGO   .LST143    TO NEXT UCB ADD ENTRY
.UCB141 ANOP
  IECVUCB 141,256,ML,446,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,256,*
               0,0,12
         AGO   .UCB142      TO NEXT UCB
.UCX141 ANOP
  IECVUCB 141,256,ML,446,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,256,*
               0,0,12
         AGO   .UCX142  TO NEXT EXTENSION
.LST143 IECULK3 6,7,142,0,344,0,2,5,0
         AGO   .LST144    TO NEXT UCB ADD ENTRY
.UCB142 ANOP
  IECVUCB 142,257,ML,450,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,257,*
               0,0,12
         AGO   .UCB143      TO NEXT UCB
.UCX142 ANOP
  IECVUCB 142,257,ML,450,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,257,*
               0,0,12
         AGO   .UCX143  TO NEXT EXTENSION
.LST144 IECULK3 7,8,143,0,344,0,2,5,0
         AGO   .LST145    TO NEXT UCB ADD ENTRY
.UCB143 ANOP
  IECVUCB 143,258,ML,454,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,258,*
               0,0,12
         AGO   .UCB144      TO NEXT UCB
.UCX143 ANOP
  IECVUCB 143,258,ML,454,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,258,*
               0,0,12
         AGO   .UCX144  TO NEXT EXTENSION
.LST145 IECULK3 8,9,144,0,344,0,2,5,0
         AGO   .LST146    TO NEXT UCB ADD ENTRY
.UCB144 ANOP
  IECVUCB 144,259,ML,458,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,259,*
               0,0,12
         AGO   .UCB145      TO NEXT UCB
.UCX144 ANOP
  IECVUCB 144,259,ML,458,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,259,*
               0,0,12
         AGO   .UCX145  TO NEXT EXTENSION
.LST146 IECULK3 9,10,145,0,344,0,2,5,0
         AGO   .LST147    TO NEXT UCB ADD ENTRY
.UCB145 ANOP
  IECVUCB 145,25A,ML,462,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,25A,*
               0,0,12
         AGO   .UCB146      TO NEXT UCB
.UCX145 ANOP
  IECVUCB 145,25A,ML,462,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,25A,*
               0,0,12
         AGO   .UCX146  TO NEXT EXTENSION
.LST147 IECULK3 10,11,146,0,344,0,2,5,0
         AGO   .LST148    TO NEXT UCB ADD ENTRY
.UCB146 ANOP
  IECVUCB 146,25B,ML,466,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,25B,*
               0,0,12
         AGO   .UCB147      TO NEXT UCB
.UCX146 ANOP
  IECVUCB 146,25B,ML,466,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,25B,*
               0,0,12
         AGO   .UCX147  TO NEXT EXTENSION
.LST148 IECULK3 11,12,147,0,344,0,2,5,0
         AGO   .LST149    TO NEXT UCB ADD ENTRY
.UCB147 ANOP
  IECVUCB 147,25C,ML,470,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,25C,*
               0,0,12
         AGO   .UCB148      TO NEXT UCB
.UCX147 ANOP
  IECVUCB 147,25C,ML,470,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,25C,*
               0,0,12
         AGO   .UCX148  TO NEXT EXTENSION
.LST149 IECULK3 12,13,148,0,344,0,2,5,0
         AGO   .LST150    TO NEXT UCB ADD ENTRY
.UCB148 ANOP
  IECVUCB 148,25D,ML,474,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,25D,*
               0,0,12
         AGO   .UCB149      TO NEXT UCB
.UCX148 ANOP
  IECVUCB 148,25D,ML,474,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,25D,*
               0,0,12
         AGO   .UCX149  TO NEXT EXTENSION
.LST150 IECULK3 13,14,149,0,344,0,2,5,0
         AGO   .LST151    TO NEXT UCB ADD ENTRY
.UCB149 ANOP
  IECVUCB 149,25E,ML,478,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,25E,*
               0,0,12
         AGO   .UCB150      TO NEXT UCB
.UCX149 ANOP
  IECVUCB 149,25E,ML,478,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,25E,*
               0,0,12
         AGO   .UCX150  TO NEXT EXTENSION
.LST151 IECULK3 14,15,150,0,344,0,2,5,0
         AGO   .LST152    TO NEXT UCB ADD ENTRY
.UCB150 ANOP
  IECVUCB 150,25F,ML,482,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,0,0,25F,*
               0,0,12
         AGO   .UCB151      TO NEXT UCB
.UCX150 ANOP
  IECVUCB 150,25F,ML,482,00,0,2,,30702009,136,0,IECVDDTL,0,0,0,1,0,25F,*
               0,0,12
         AGO   .UCX151  TO NEXT EXTENSION
.TCU14   IECULK2 376,5,6,34,0,0,0
         AGO   .TCU15       TO NEXT ENTRY
.LST152 IECULK3 15,0,151,1,376,0,2,6,0
         AGO   .LST153    TO NEXT UCB ADD ENTRY
.UCB151 ANOP
  IECVUCB 151,260,ML,486,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,260,*
               0,0,12
         AGO   .UCB152      TO NEXT UCB
.UCX151 ANOP
  IECVUCB 151,260,ML,486,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,260,*
               0,0,12
         AGO   .UCX152  TO NEXT EXTENSION
.LST153 IECULK3 0,1,152,0,376,0,2,6,0
         AGO   .LST154    TO NEXT UCB ADD ENTRY
.UCB152 ANOP
  IECVUCB 152,261,ML,490,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,261,*
               0,0,12
         AGO   .UCB153      TO NEXT UCB
.UCX152 ANOP
  IECVUCB 152,261,ML,490,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,261,*
               0,0,12
         AGO   .UCX153  TO NEXT EXTENSION
.LST154 IECULK3 1,2,153,0,376,0,2,6,0
         AGO   .LST155    TO NEXT UCB ADD ENTRY
.UCB153 ANOP
  IECVUCB 153,262,ML,494,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,262,*
               0,0,12
         AGO   .UCB154      TO NEXT UCB
.UCX153 ANOP
  IECVUCB 153,262,ML,494,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,262,*
               0,0,12
         AGO   .UCX154  TO NEXT EXTENSION
.LST155 IECULK3 2,3,154,0,376,0,2,6,0
         AGO   .LST156    TO NEXT UCB ADD ENTRY
.UCB154 ANOP
  IECVUCB 154,263,ML,498,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,263,*
               0,0,12
         AGO   .UCB155      TO NEXT UCB
.UCX154 ANOP
  IECVUCB 154,263,ML,498,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,263,*
               0,0,12
         AGO   .UCX155  TO NEXT EXTENSION
.LST156 IECULK3 3,4,155,0,376,0,2,6,0
         AGO   .LST157    TO NEXT UCB ADD ENTRY
.UCB155 ANOP
  IECVUCB 155,264,ML,502,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,264,*
               0,0,12
         AGO   .UCB156      TO NEXT UCB
.UCX155 ANOP
  IECVUCB 155,264,ML,502,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,264,*
               0,0,12
         AGO   .UCX156  TO NEXT EXTENSION
.LST157 IECULK3 4,5,156,0,376,0,2,6,0
         AGO   .LST158    TO NEXT UCB ADD ENTRY
.UCB156 ANOP
  IECVUCB 156,265,ML,506,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,265,*
               0,0,12
         AGO   .UCB157      TO NEXT UCB
.UCX156 ANOP
  IECVUCB 156,265,ML,506,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,265,*
               0,0,12
         AGO   .UCX157  TO NEXT EXTENSION
.LST158 IECULK3 5,6,157,0,376,0,2,6,0
         AGO   .LST159    TO NEXT UCB ADD ENTRY
.UCB157 ANOP
  IECVUCB 157,266,ML,510,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,266,*
               0,0,12
         AGO   .UCB158      TO NEXT UCB
.UCX157 ANOP
  IECVUCB 157,266,ML,510,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,266,*
               0,0,12
         AGO   .UCX158  TO NEXT EXTENSION
.LST159 IECULK3 6,7,158,0,376,0,2,6,0
         AGO   .LST160    TO NEXT UCB ADD ENTRY
.UCB158 ANOP
  IECVUCB 158,267,ML,514,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,267,*
               0,0,12
         AGO   .UCB159      TO NEXT UCB
.UCX158 ANOP
  IECVUCB 158,267,ML,514,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,267,*
               0,0,12
         AGO   .UCX159  TO NEXT EXTENSION
.LST160 IECULK3 7,8,159,0,376,0,2,6,0
         AGO   .LST161    TO NEXT UCB ADD ENTRY
.UCB159 ANOP
  IECVUCB 159,268,ML,518,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,268,*
               0,0,12
         AGO   .UCB160      TO NEXT UCB
.UCX159 ANOP
  IECVUCB 159,268,ML,518,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,268,*
               0,0,12
         AGO   .UCX160  TO NEXT EXTENSION
.LST161 IECULK3 8,9,160,0,376,0,2,6,0
         AGO   .LST162    TO NEXT UCB ADD ENTRY
.UCB160 ANOP
  IECVUCB 160,269,ML,522,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,269,*
               0,0,12
         AGO   .UCB161      TO NEXT UCB
.UCX160 ANOP
  IECVUCB 160,269,ML,522,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,269,*
               0,0,12
         AGO   .UCX161  TO NEXT EXTENSION
.LST162 IECULK3 9,10,161,0,376,0,2,6,0
         AGO   .LST163    TO NEXT UCB ADD ENTRY
.UCB161 ANOP
  IECVUCB 161,26A,ML,526,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,26A,*
               0,0,12
         AGO   .UCB162      TO NEXT UCB
.UCX161 ANOP
  IECVUCB 161,26A,ML,526,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,26A,*
               0,0,12
         AGO   .UCX162  TO NEXT EXTENSION
.LST163 IECULK3 10,11,162,0,376,0,2,6,0
         AGO   .LST164    TO NEXT UCB ADD ENTRY
.UCB162 ANOP
  IECVUCB 162,26B,ML,530,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,26B,*
               0,0,12
         AGO   .UCB163      TO NEXT UCB
.UCX162 ANOP
  IECVUCB 162,26B,ML,530,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,26B,*
               0,0,12
         AGO   .UCX163  TO NEXT EXTENSION
.LST164 IECULK3 11,12,163,0,376,0,2,6,0
         AGO   .LST165    TO NEXT UCB ADD ENTRY
.UCB163 ANOP
  IECVUCB 163,26C,ML,534,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,26C,*
               0,0,12
         AGO   .UCB164      TO NEXT UCB
.UCX163 ANOP
  IECVUCB 163,26C,ML,534,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,26C,*
               0,0,12
         AGO   .UCX164  TO NEXT EXTENSION
.LST165 IECULK3 12,13,164,0,376,0,2,6,0
         AGO   .LST166    TO NEXT UCB ADD ENTRY
.UCB164 ANOP
  IECVUCB 164,26D,ML,538,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,26D,*
               0,0,12
         AGO   .UCB165      TO NEXT UCB
.UCX164 ANOP
  IECVUCB 164,26D,ML,538,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,26D,*
               0,0,12
         AGO   .UCX165  TO NEXT EXTENSION
.LST166 IECULK3 13,14,165,0,376,0,2,6,0
         AGO   .LST167    TO NEXT UCB ADD ENTRY
.UCB165 ANOP
  IECVUCB 165,26E,ML,542,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,26E,*
               0,0,12
         AGO   .UCB166      TO NEXT UCB
.UCX165 ANOP
  IECVUCB 165,26E,ML,542,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,26E,*
               0,0,12
         AGO   .UCX166  TO NEXT EXTENSION
.LST167 IECULK3 14,15,166,0,376,0,2,6,0
         AGO   .LST168    TO NEXT UCB ADD ENTRY
.UCB166 ANOP
  IECVUCB 166,26F,ML,546,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,0,0,26F,*
               0,0,12
         AGO   .UCB167      TO NEXT UCB
.UCX166 ANOP
  IECVUCB 166,26F,ML,546,00,0,2,,3060200A,136,0,IECVDDTM,0,0,0,1,0,26F,*
               0,0,12
         AGO   .UCX167  TO NEXT EXTENSION
.TCU15   IECULK2 408,6,12,34,0,0,0
         AGO   .TCU16       TO NEXT ENTRY
.LST168 IECULK3 15,0,167,1,408,0,2,12,0
         AGO   .LST169    TO NEXT UCB ADD ENTRY
.UCB167   ANOP       UCB ENTRY
 IECVUCB 167,2C0,GR,550,69,40,2,167,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB168
.UCX167    ANOP       UCB ENTRY
 IECVUCB 167,2C0,GR,550,69,40,2,167,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX168  TO NEXT EXTENSION
.LST169 IECULK3 0,1,168,0,408,0,2,12,0
         AGO   .LST170    TO NEXT UCB ADD ENTRY
.UCB168   ANOP       UCB ENTRY
 IECVUCB 168,2C1,GR,551,69,41,2,168,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB169
.UCX168    ANOP       UCB ENTRY
 IECVUCB 168,2C1,GR,551,69,41,2,168,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX169  TO NEXT EXTENSION
.LST170 IECULK3 1,2,169,0,408,0,2,12,0
         AGO   .LST171    TO NEXT UCB ADD ENTRY
.UCB169   ANOP       UCB ENTRY
 IECVUCB 169,2C2,GR,552,69,42,2,169,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB170
.UCX169    ANOP       UCB ENTRY
 IECVUCB 169,2C2,GR,552,69,42,2,169,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX170  TO NEXT EXTENSION
.LST171 IECULK3 2,3,170,0,408,0,2,12,0
         AGO   .LST172    TO NEXT UCB ADD ENTRY
.UCB170   ANOP       UCB ENTRY
 IECVUCB 170,2C3,GR,553,69,43,2,170,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB171
.UCX170    ANOP       UCB ENTRY
 IECVUCB 170,2C3,GR,553,69,43,2,170,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX171  TO NEXT EXTENSION
.LST172 IECULK3 3,4,171,0,408,0,2,12,0
         AGO   .LST173    TO NEXT UCB ADD ENTRY
.UCB171   ANOP       UCB ENTRY
 IECVUCB 171,2C4,GR,554,69,44,2,171,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB172
.UCX171    ANOP       UCB ENTRY
 IECVUCB 171,2C4,GR,554,69,44,2,171,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX172  TO NEXT EXTENSION
.LST173 IECULK3 4,5,172,0,408,0,2,12,0
         AGO   .LST174    TO NEXT UCB ADD ENTRY
.UCB172   ANOP       UCB ENTRY
 IECVUCB 172,2C5,GR,555,69,45,2,172,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB173
.UCX172    ANOP       UCB ENTRY
 IECVUCB 172,2C5,GR,555,69,45,2,172,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX173  TO NEXT EXTENSION
.LST174 IECULK3 5,6,173,0,408,0,2,12,0
         AGO   .LST175    TO NEXT UCB ADD ENTRY
.UCB173   ANOP       UCB ENTRY
 IECVUCB 173,2C6,GR,556,69,46,2,173,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB174
.UCX173    ANOP       UCB ENTRY
 IECVUCB 173,2C6,GR,556,69,46,2,173,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX174  TO NEXT EXTENSION
.LST175 IECULK3 6,7,174,0,408,0,2,12,0
         AGO   .LST176    TO NEXT UCB ADD ENTRY
.UCB174   ANOP       UCB ENTRY
 IECVUCB 174,2C7,GR,557,69,47,2,174,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB175
.UCX174    ANOP       UCB ENTRY
 IECVUCB 174,2C7,GR,557,69,47,2,174,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX175  TO NEXT EXTENSION
.TCH3    ANOP   TEST CHANNEL
    IECXTCH 3,1,(0,1,0,0,0,                                           *****
               0,0,0,0,0,0,                                          ******
               0,0,0,0)
         AGO   .TCH4      TO NEXT TCH MOD
.SRCH3  ANOP       CHANNEL SEARCH MOD3
               IECICS 2,                                          **********
               (2,                                                 ********
               1,1,                                                    *
               0)
         AGO   .SRCH4     TO NEXT CHAN SRCH MOD
.TAB4   ANOP         LOOK UP UCB TAB
 IECULK1 47,2,3,0,0,1,0
         AGO   .TAB5     TO NEXT CHANNEL ENTRY
.TCU16   IECULK2 420,12,0,47,1,0,0
         AGO   .TCU17       TO NEXT ENTRY
.LST176 IECULK3 7,2,175,1,420,0,3,0,0
         AGO   .LST177    TO NEXT UCB ADD ENTRY
.UCB175 ANOP
  IECVUCB 175,302,WR,558,07,48,3,,10800809,0,0,IECVDDT8,0,0,0,0,0,302,0*
               ,0,8
         AGO   .UCB176      TO NEXT UCB
.UCX175 ANOP
  IECVUCB 175,302,WR,558,07,48,3,,10800809,0,0,IECVDDT8,0,0,0,1,0,302,0*
               ,0,8
         AGO   .UCX176  TO NEXT EXTENSION
.WK7 IECVUCBA 175,10800809,0,0,0,0,
         AGO   .WK8   TO NEXT WORK AREA
.LST177 IECULK3 2,3,176,0,420,0,3,0,0
         AGO   .LST178    TO NEXT UCB ADD ENTRY
.UCB176 ANOP
  IECVUCB 176,303,WR,559,07,49,3,,10800809,0,0,IECVDDT8,0,0,0,0,0,303,0*
               ,0,8
         AGO   .UCB177      TO NEXT UCB
.UCX176 ANOP
  IECVUCB 176,303,WR,559,07,49,3,,10800809,0,0,IECVDDT8,0,0,0,1,0,303,0*
               ,0,8
         AGO   .UCX177  TO NEXT EXTENSION
.WK8 IECVUCBA 176,10800809,0,0,0,0,
         AGO   .WK9   TO NEXT WORK AREA
.LST178 IECULK3 3,12,177,0,420,0,3,0,0
         AGO   .LST179    TO NEXT UCB ADD ENTRY
.UCB177 ANOP
  IECVUCB 177,30C,UR,560,0D,50,3,,10000801,0,0,IECVDDT5,0,0,0,0,0,30C,0*
               ,0,8
         AGO   .UCB178      TO NEXT UCB
.UCX177 ANOP
  IECVUCB 177,30C,UR,560,0D,50,3,,10000801,0,0,IECVDDT5,0,0,0,1,0,30C,0*
               ,0,8
         AGO   .UCX178  TO NEXT EXTENSION
.LST179 IECULK3 12,13,178,0,420,0,3,0,0
         AGO   .LST180    TO NEXT UCB ADD ENTRY
.UCB178 ANOP
  IECVUCB 178,30D,UR,561,0D,51,3,,10000802,0,0,IECVDDT5,0,0,0,0,0,30D,0*
               ,0,8
         AGO   .UCB179      TO NEXT UCB
.UCX178 ANOP
  IECVUCB 178,30D,UR,561,0D,51,3,,10000802,0,0,IECVDDT5,0,0,0,1,0,30D,0*
               ,0,8
         AGO   .UCX179  TO NEXT EXTENSION
.LST180 IECULK3 13,14,179,0,420,0,3,0,0
         AGO   .LST181    TO NEXT UCB ADD ENTRY
.UCB179 ANOP
  IECVUCB 179,30E,UR,562,07,52,3,,10000808,0,0,IECVDDT5,0,0,0,0,0,30E,0*
               ,0,8
         AGO   .UCB180      TO NEXT UCB
.UCX179 ANOP
  IECVUCB 179,30E,UR,562,07,52,3,,10000808,0,0,IECVDDT5,0,0,0,1,0,30E,0*
               ,0,8
         AGO   .UCX180  TO NEXT EXTENSION
.LST181 IECULK3 14,15,180,0,420,0,3,0,0
         AGO   .LST182    TO NEXT UCB ADD ENTRY
.UCB180 ANOP
  IECVUCB 180,30F,UR,563,07,53,3,,10000808,0,0,IECVDDT5,0,0,0,0,0,30F,0*
               ,0,8
         AGO   .UCB181      TO NEXT UCB
.UCX180 ANOP
  IECVUCB 180,30F,UR,563,07,53,3,,10000808,0,0,IECVDDT5,0,0,0,1,0,30F,0*
               ,0,8
         AGO   .UCX181  TO NEXT EXTENSION
.TCU17   IECULK2 452,0,3,47,0,0,0
         AGO   .TCU18       TO NEXT ENTRY
.LST182 IECULK3 15,0,181,1,452,0,3,3,0
         AGO   .LST183    TO NEXT UCB ADD ENTRY
.UCB181 ANOP
  IECVUCB 181,330,DS,564,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,330,0*
               ,0,8
         AGO   .UCB182      TO NEXT UCB
.UCX181 ANOP
  IECVUCB 181,330,DS,564,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,330,0*
               ,0,8
         AGO   .UCX182  TO NEXT EXTENSION
.LST183 IECULK3 0,1,182,0,452,0,3,3,0
         AGO   .LST184    TO NEXT UCB ADD ENTRY
.UCB182 ANOP
  IECVUCB 182,331,DS,568,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,331,0*
               ,0,8
         AGO   .UCB183      TO NEXT UCB
.UCX182 ANOP
  IECVUCB 182,331,DS,568,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,331,0*
               ,0,8
         AGO   .UCX183  TO NEXT EXTENSION
.LST184 IECULK3 1,2,183,0,452,0,3,3,0
         AGO   .LST185    TO NEXT UCB ADD ENTRY
.UCB183 ANOP
  IECVUCB 183,332,DS,572,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,332,0*
               ,0,8
         AGO   .UCB184      TO NEXT UCB
.UCX183 ANOP
  IECVUCB 183,332,DS,572,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,332,0*
               ,0,8
         AGO   .UCX184  TO NEXT EXTENSION
.LST185 IECULK3 2,3,184,0,452,0,3,3,0
         AGO   .LST186    TO NEXT UCB ADD ENTRY
.UCB184 ANOP
  IECVUCB 184,333,DS,576,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,333,0*
               ,0,8
         AGO   .UCB185      TO NEXT UCB
.UCX184 ANOP
  IECVUCB 184,333,DS,576,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,333,0*
               ,0,8
         AGO   .UCX185  TO NEXT EXTENSION
.LST186 IECULK3 3,4,185,0,452,0,3,3,0
         AGO   .LST187    TO NEXT UCB ADD ENTRY
.UCB185 ANOP
  IECVUCB 185,334,DS,580,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,334,0*
               ,0,8
         AGO   .UCB186      TO NEXT UCB
.UCX185 ANOP
  IECVUCB 185,334,DS,580,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,334,0*
               ,0,8
         AGO   .UCX186  TO NEXT EXTENSION
.LST187 IECULK3 4,5,186,0,452,0,3,3,0
         AGO   .LST188    TO NEXT UCB ADD ENTRY
.UCB186 ANOP
  IECVUCB 186,335,DS,584,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,335,0*
               ,0,8
         AGO   .UCB187      TO NEXT UCB
.UCX186 ANOP
  IECVUCB 186,335,DS,584,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,335,0*
               ,0,8
         AGO   .UCX187  TO NEXT EXTENSION
.LST188 IECULK3 5,6,187,0,452,0,3,3,0
         AGO   .LST189    TO NEXT UCB ADD ENTRY
.UCB187 ANOP
  IECVUCB 187,336,DS,588,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,336,0*
               ,0,8
         AGO   .UCB188      TO NEXT UCB
.UCX187 ANOP
  IECVUCB 187,336,DS,588,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,336,0*
               ,0,8
         AGO   .UCX188  TO NEXT EXTENSION
.LST189 IECULK3 6,7,188,0,452,0,3,3,0
         AGO   .LST190    TO NEXT UCB ADD ENTRY
.UCB188 ANOP
  IECVUCB 188,337,DS,592,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,337,0*
               ,0,8
         AGO   .UCB189      TO NEXT UCB
.UCX188 ANOP
  IECVUCB 188,337,DS,592,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,337,0*
               ,0,8
         AGO   .UCX189  TO NEXT EXTENSION
.LST190 IECULK3 7,8,189,0,452,0,3,3,0
         AGO   .LST191    TO NEXT UCB ADD ENTRY
.UCB189 ANOP
  IECVUCB 189,338,DS,596,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,338,0*
               ,0,8
         AGO   .UCB190      TO NEXT UCB
.UCX189 ANOP
  IECVUCB 189,338,DS,596,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,338,0*
               ,0,8
         AGO   .UCX190  TO NEXT EXTENSION
.LST191 IECULK3 8,9,190,0,452,0,3,3,0
         AGO   .LST192    TO NEXT UCB ADD ENTRY
.UCB190 ANOP
  IECVUCB 190,339,DS,600,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,339,0*
               ,0,8
         AGO   .UCB191      TO NEXT UCB
.UCX190 ANOP
  IECVUCB 190,339,DS,600,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,339,0*
               ,0,8
         AGO   .UCX191  TO NEXT EXTENSION
.LST192 IECULK3 9,10,191,0,452,0,3,3,0
         AGO   .LST193    TO NEXT UCB ADD ENTRY
.UCB191 ANOP
  IECVUCB 191,33A,DS,604,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,33A,0*
               ,0,8
         AGO   .UCB192      TO NEXT UCB
.UCX191 ANOP
  IECVUCB 191,33A,DS,604,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,33A,0*
               ,0,8
         AGO   .UCX192  TO NEXT EXTENSION
.LST193 IECULK3 10,11,192,0,452,0,3,3,0
         AGO   .LST194    TO NEXT UCB ADD ENTRY
.UCB192 ANOP
  IECVUCB 192,33B,DS,608,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,33B,0*
               ,0,8
         AGO   .UCB193      TO NEXT UCB
.UCX192 ANOP
  IECVUCB 192,33B,DS,608,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,33B,0*
               ,0,8
         AGO   .UCX193  TO NEXT EXTENSION
.LST194 IECULK3 11,12,193,0,452,0,3,3,0
         AGO   .LST195    TO NEXT UCB ADD ENTRY
.UCB193 ANOP
  IECVUCB 193,33C,DS,612,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,33C,0*
               ,0,8
         AGO   .UCB194      TO NEXT UCB
.UCX193 ANOP
  IECVUCB 193,33C,DS,612,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,33C,0*
               ,0,8
         AGO   .UCX194  TO NEXT EXTENSION
.LST195 IECULK3 12,13,194,0,452,0,3,3,0
         AGO   .LST196    TO NEXT UCB ADD ENTRY
.UCB194 ANOP
  IECVUCB 194,33D,DS,616,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,33D,0*
               ,0,8
         AGO   .UCB195      TO NEXT UCB
.UCX194 ANOP
  IECVUCB 194,33D,DS,616,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,33D,0*
               ,0,8
         AGO   .UCX195  TO NEXT EXTENSION
.LST196 IECULK3 13,14,195,0,452,0,3,3,0
         AGO   .LST197    TO NEXT UCB ADD ENTRY
.UCB195 ANOP
  IECVUCB 195,33E,DS,620,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,33E,0*
               ,0,8
         AGO   .UCB196      TO NEXT UCB
.UCX195 ANOP
  IECVUCB 195,33E,DS,620,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,33E,0*
               ,0,8
         AGO   .UCX196  TO NEXT EXTENSION
.LST197 IECULK3 14,15,196,0,452,0,3,3,0
         AGO   .LST198    TO NEXT UCB ADD ENTRY
.UCB196 ANOP
  IECVUCB 196,33F,DS,624,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,0,0,33F,0*
               ,0,8
         AGO   .UCB197      TO NEXT UCB
.UCX196 ANOP
  IECVUCB 196,33F,DS,624,00,0,3,,30E02008,32,0,IECVDDTJ,0,0,0,1,0,33F,0*
               ,0,8
         AGO   .UCX197  TO NEXT EXTENSION
.TCU18   IECULK2 484,3,4,47,0,0,0
         AGO   .TCU19       TO NEXT ENTRY
.LST198 IECULK3 15,0,197,1,484,0,3,4,0
         AGO   .LST199    TO NEXT UCB ADD ENTRY
.UCB197 ANOP
  IECVUCB 197,340,ML,628,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,340,*
               0,0,0
         AGO   .UCB198      TO NEXT UCB
.UCX197 ANOP
  IECVUCB 197,340,ML,628,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,340,*
               0,0,0
         AGO   .UCX198  TO NEXT EXTENSION
.LST199 IECULK3 0,1,198,0,484,0,3,4,0
         AGO   .LST200    TO NEXT UCB ADD ENTRY
.UCB198 ANOP
  IECVUCB 198,341,ML,631,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,341,*
               0,0,0
         AGO   .UCB199      TO NEXT UCB
.UCX198 ANOP
  IECVUCB 198,341,ML,631,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,341,*
               0,0,0
         AGO   .UCX199  TO NEXT EXTENSION
.LST200 IECULK3 1,2,199,0,484,0,3,4,0
         AGO   .LST201    TO NEXT UCB ADD ENTRY
.UCB199 ANOP
  IECVUCB 199,342,ML,634,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,342,*
               0,0,0
         AGO   .UCB200      TO NEXT UCB
.UCX199 ANOP
  IECVUCB 199,342,ML,634,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,342,*
               0,0,0
         AGO   .UCX200  TO NEXT EXTENSION
.LST201 IECULK3 2,3,200,0,484,0,3,4,0
         AGO   .LST202    TO NEXT UCB ADD ENTRY
.UCB200 ANOP
  IECVUCB 200,343,ML,637,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,343,*
               0,0,0
         AGO   .UCB201      TO NEXT UCB
.UCX200 ANOP
  IECVUCB 200,343,ML,637,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,343,*
               0,0,0
         AGO   .UCX201  TO NEXT EXTENSION
.LST202 IECULK3 3,4,201,0,484,0,3,4,0
         AGO   .LST203    TO NEXT UCB ADD ENTRY
.UCB201 ANOP
  IECVUCB 201,344,ML,640,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,344,*
               0,0,0
         AGO   .UCB202      TO NEXT UCB
.UCX201 ANOP
  IECVUCB 201,344,ML,640,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,344,*
               0,0,0
         AGO   .UCX202  TO NEXT EXTENSION
.LST203 IECULK3 4,5,202,0,484,0,3,4,0
         AGO   .LST204    TO NEXT UCB ADD ENTRY
.UCB202 ANOP
  IECVUCB 202,345,ML,643,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,345,*
               0,0,0
         AGO   .UCB203      TO NEXT UCB
.UCX202 ANOP
  IECVUCB 202,345,ML,643,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,345,*
               0,0,0
         AGO   .UCX203  TO NEXT EXTENSION
.LST204 IECULK3 5,6,203,0,484,0,3,4,0
         AGO   .LST205    TO NEXT UCB ADD ENTRY
.UCB203 ANOP
  IECVUCB 203,346,ML,646,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,346,*
               0,0,0
         AGO   .UCB204      TO NEXT UCB
.UCX203 ANOP
  IECVUCB 203,346,ML,646,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,346,*
               0,0,0
         AGO   .UCX204  TO NEXT EXTENSION
.LST205 IECULK3 6,7,204,0,484,0,3,4,0
         AGO   .LST206    TO NEXT UCB ADD ENTRY
.UCB204 ANOP
  IECVUCB 204,347,ML,649,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,347,*
               0,0,0
         AGO   .UCB205      TO NEXT UCB
.UCX204 ANOP
  IECVUCB 204,347,ML,649,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,347,*
               0,0,0
         AGO   .UCX205  TO NEXT EXTENSION
.LST206 IECULK3 7,8,205,0,484,0,3,4,0
         AGO   .LST207    TO NEXT UCB ADD ENTRY
.UCB205 ANOP
  IECVUCB 205,348,ML,652,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,348,*
               0,0,0
         AGO   .UCB206      TO NEXT UCB
.UCX205 ANOP
  IECVUCB 205,348,ML,652,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,348,*
               0,0,0
         AGO   .UCX206  TO NEXT EXTENSION
.LST207 IECULK3 8,9,206,0,484,0,3,4,0
         AGO   .LST208    TO NEXT UCB ADD ENTRY
.UCB206 ANOP
  IECVUCB 206,349,ML,655,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,349,*
               0,0,0
         AGO   .UCB207      TO NEXT UCB
.UCX206 ANOP
  IECVUCB 206,349,ML,655,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,349,*
               0,0,0
         AGO   .UCX207  TO NEXT EXTENSION
.LST208 IECULK3 9,10,207,0,484,0,3,4,0
         AGO   .LST209    TO NEXT UCB ADD ENTRY
.UCB207 ANOP
  IECVUCB 207,34A,ML,658,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,34A,*
               0,0,0
         AGO   .UCB208      TO NEXT UCB
.UCX207 ANOP
  IECVUCB 207,34A,ML,658,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,34A,*
               0,0,0
         AGO   .UCX208  TO NEXT EXTENSION
.LST209 IECULK3 10,11,208,0,484,0,3,4,0
         AGO   .LST210    TO NEXT UCB ADD ENTRY
.UCB208 ANOP
  IECVUCB 208,34B,ML,661,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,34B,*
               0,0,0
         AGO   .UCB209      TO NEXT UCB
.UCX208 ANOP
  IECVUCB 208,34B,ML,661,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,34B,*
               0,0,0
         AGO   .UCX209  TO NEXT EXTENSION
.LST210 IECULK3 11,12,209,0,484,0,3,4,0
         AGO   .LST211    TO NEXT UCB ADD ENTRY
.UCB209 ANOP
  IECVUCB 209,34C,ML,664,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,34C,*
               0,0,0
         AGO   .UCB210      TO NEXT UCB
.UCX209 ANOP
  IECVUCB 209,34C,ML,664,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,34C,*
               0,0,0
         AGO   .UCX210  TO NEXT EXTENSION
.LST211 IECULK3 12,13,210,0,484,0,3,4,0
         AGO   .LST212    TO NEXT UCB ADD ENTRY
.UCB210 ANOP
  IECVUCB 210,34D,ML,667,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,34D,*
               0,0,0
         AGO   .UCB211      TO NEXT UCB
.UCX210 ANOP
  IECVUCB 210,34D,ML,667,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,34D,*
               0,0,0
         AGO   .UCX211  TO NEXT EXTENSION
.LST212 IECULK3 13,14,211,0,484,0,3,4,0
         AGO   .LST213    TO NEXT UCB ADD ENTRY
.UCB211 ANOP
  IECVUCB 211,34E,ML,670,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,34E,*
               0,0,0
         AGO   .UCB212      TO NEXT UCB
.UCX211 ANOP
  IECVUCB 211,34E,ML,670,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,34E,*
               0,0,0
         AGO   .UCX212  TO NEXT EXTENSION
.LST213 IECULK3 14,15,212,0,484,0,3,4,0
         AGO   .LST214    TO NEXT UCB ADD ENTRY
.UCB212 ANOP
  IECVUCB 212,34F,ML,673,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,0,0,34F,*
               0,0,0
         AGO   .UCB213      TO NEXT UCB
.UCX212 ANOP
  IECVUCB 212,34F,ML,673,00,0,3,,3050200B,136,4,IECVDDTN,0,0,0,1,0,34F,*
               0,0,0
         AGO   .UCX213  TO NEXT EXTENSION
.TCU19   IECULK2 516,4,5,47,0,0,0
         AGO   .TCU20       TO NEXT ENTRY
.LST214 IECULK3 15,0,213,1,516,0,3,5,0
         AGO   .LST215    TO NEXT UCB ADD ENTRY
.UCB213 ANOP
  IECVUCB 213,350,ML,676,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,350,*
               0,0,12
         AGO   .UCB214      TO NEXT UCB
.UCX213 ANOP
  IECVUCB 213,350,ML,676,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,350,*
               0,0,12
         AGO   .UCX214  TO NEXT EXTENSION
.LST215 IECULK3 0,1,214,0,516,0,3,5,0
         AGO   .LST216    TO NEXT UCB ADD ENTRY
.UCB214 ANOP
  IECVUCB 214,351,ML,679,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,351,*
               0,0,12
         AGO   .UCB215      TO NEXT UCB
.UCX214 ANOP
  IECVUCB 214,351,ML,679,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,351,*
               0,0,12
         AGO   .UCX215  TO NEXT EXTENSION
.LST216 IECULK3 1,2,215,0,516,0,3,5,0
         AGO   .LST217    TO NEXT UCB ADD ENTRY
.UCB215 ANOP
  IECVUCB 215,352,ML,682,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,352,*
               0,0,12
         AGO   .UCB216      TO NEXT UCB
.UCX215 ANOP
  IECVUCB 215,352,ML,682,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,352,*
               0,0,12
         AGO   .UCX216  TO NEXT EXTENSION
.LST217 IECULK3 2,3,216,0,516,0,3,5,0
         AGO   .LST218    TO NEXT UCB ADD ENTRY
.UCB216 ANOP
  IECVUCB 216,353,ML,685,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,353,*
               0,0,12
         AGO   .UCB217      TO NEXT UCB
.UCX216 ANOP
  IECVUCB 216,353,ML,685,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,353,*
               0,0,12
         AGO   .UCX217  TO NEXT EXTENSION
.LST218 IECULK3 3,4,217,0,516,0,3,5,0
         AGO   .LST219    TO NEXT UCB ADD ENTRY
.UCB217 ANOP
  IECVUCB 217,354,ML,688,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,354,*
               0,0,12
         AGO   .UCB218      TO NEXT UCB
.UCX217 ANOP
  IECVUCB 217,354,ML,688,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,354,*
               0,0,12
         AGO   .UCX218  TO NEXT EXTENSION
.LST219 IECULK3 4,5,218,0,516,0,3,5,0
         AGO   .LST220    TO NEXT UCB ADD ENTRY
.UCB218 ANOP
  IECVUCB 218,355,ML,691,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,355,*
               0,0,12
         AGO   .UCB219      TO NEXT UCB
.UCX218 ANOP
  IECVUCB 218,355,ML,691,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,355,*
               0,0,12
         AGO   .UCX219  TO NEXT EXTENSION
.LST220 IECULK3 5,6,219,0,516,0,3,5,0
         AGO   .LST221    TO NEXT UCB ADD ENTRY
.UCB219 ANOP
  IECVUCB 219,356,ML,694,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,356,*
               0,0,12
         AGO   .UCB220      TO NEXT UCB
.UCX219 ANOP
  IECVUCB 219,356,ML,694,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,356,*
               0,0,12
         AGO   .UCX220  TO NEXT EXTENSION
.LST221 IECULK3 6,7,220,0,516,0,3,5,0
         AGO   .LST222    TO NEXT UCB ADD ENTRY
.UCB220 ANOP
  IECVUCB 220,357,ML,697,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,357,*
               0,0,12
         AGO   .UCB221      TO NEXT UCB
.UCX220 ANOP
  IECVUCB 220,357,ML,697,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,357,*
               0,0,12
         AGO   .UCX221  TO NEXT EXTENSION
.LST222 IECULK3 7,8,221,0,516,0,3,5,0
         AGO   .LST223    TO NEXT UCB ADD ENTRY
.UCB221 ANOP
  IECVUCB 221,358,ML,700,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,358,*
               0,0,12
         AGO   .UCB222      TO NEXT UCB
.UCX221 ANOP
  IECVUCB 221,358,ML,700,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,358,*
               0,0,12
         AGO   .UCX222  TO NEXT EXTENSION
.LST223 IECULK3 8,9,222,0,516,0,3,5,0
         AGO   .LST224    TO NEXT UCB ADD ENTRY
.UCB222 ANOP
  IECVUCB 222,359,ML,703,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,359,*
               0,0,12
         AGO   .UCB223      TO NEXT UCB
.UCX222 ANOP
  IECVUCB 222,359,ML,703,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,359,*
               0,0,12
         AGO   .UCX223  TO NEXT EXTENSION
.LST224 IECULK3 9,10,223,0,516,0,3,5,0
         AGO   .LST225    TO NEXT UCB ADD ENTRY
.UCB223 ANOP
  IECVUCB 223,35A,ML,706,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,35A,*
               0,0,12
         AGO   .UCB224      TO NEXT UCB
.UCX223 ANOP
  IECVUCB 223,35A,ML,706,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,35A,*
               0,0,12
         AGO   .UCX224  TO NEXT EXTENSION
.LST225 IECULK3 10,11,224,0,516,0,3,5,0
         AGO   .LST226    TO NEXT UCB ADD ENTRY
.UCB224 ANOP
  IECVUCB 224,35B,ML,709,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,35B,*
               0,0,12
         AGO   .UCB225      TO NEXT UCB
.UCX224 ANOP
  IECVUCB 224,35B,ML,709,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,35B,*
               0,0,12
         AGO   .UCX225  TO NEXT EXTENSION
.LST226 IECULK3 11,12,225,0,516,0,3,5,0
         AGO   .LST227    TO NEXT UCB ADD ENTRY
.UCB225 ANOP
  IECVUCB 225,35C,ML,712,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,35C,*
               0,0,12
         AGO   .UCB226      TO NEXT UCB
.UCX225 ANOP
  IECVUCB 225,35C,ML,712,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,35C,*
               0,0,12
         AGO   .UCX226  TO NEXT EXTENSION
.LST227 IECULK3 12,13,226,0,516,0,3,5,0
         AGO   .LST228    TO NEXT UCB ADD ENTRY
.UCB226 ANOP
  IECVUCB 226,35D,ML,715,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,35D,*
               0,0,12
         AGO   .UCB227      TO NEXT UCB
.UCX226 ANOP
  IECVUCB 226,35D,ML,715,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,35D,*
               0,0,12
         AGO   .UCX227  TO NEXT EXTENSION
.LST228 IECULK3 13,14,227,0,516,0,3,5,0
         AGO   .LST229    TO NEXT UCB ADD ENTRY
.UCB227 ANOP
  IECVUCB 227,35E,ML,718,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,35E,*
               0,0,12
         AGO   .UCB228      TO NEXT UCB
.UCX227 ANOP
  IECVUCB 227,35E,ML,718,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,35E,*
               0,0,12
         AGO   .UCX228  TO NEXT EXTENSION
.LST229 IECULK3 14,15,228,0,516,0,3,5,0
         AGO   .LST230    TO NEXT UCB ADD ENTRY
.UCB228 ANOP
  IECVUCB 228,35F,ML,721,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,0,0,35F,*
               0,0,12
         AGO   .UCB229      TO NEXT UCB
.UCX228 ANOP
  IECVUCB 228,35F,ML,721,00,0,3,,30502009,136,0,IECVDDTL,0,0,0,1,0,35F,*
               0,0,12
         AGO   .UCX229  TO NEXT EXTENSION
.TCU20   IECULK2 548,5,6,47,0,0,0
         AGO   .TCU21       TO NEXT ENTRY
.LST230 IECULK3 15,0,229,1,548,0,3,6,0
         AGO   .LST231    TO NEXT UCB ADD ENTRY
.UCB229 ANOP
  IECVUCB 229,360,ML,724,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,360,*
               0,0,12
         AGO   .UCB230      TO NEXT UCB
.UCX229 ANOP
  IECVUCB 229,360,ML,724,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,360,*
               0,0,12
         AGO   .UCX230  TO NEXT EXTENSION
.LST231 IECULK3 0,1,230,0,548,0,3,6,0
         AGO   .LST232    TO NEXT UCB ADD ENTRY
.UCB230 ANOP
  IECVUCB 230,361,ML,727,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,361,*
               0,0,12
         AGO   .UCB231      TO NEXT UCB
.UCX230 ANOP
  IECVUCB 230,361,ML,727,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,361,*
               0,0,12
         AGO   .UCX231  TO NEXT EXTENSION
.LST232 IECULK3 1,2,231,0,548,0,3,6,0
         AGO   .LST233    TO NEXT UCB ADD ENTRY
.UCB231 ANOP
  IECVUCB 231,362,ML,730,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,362,*
               0,0,12
         AGO   .UCB232      TO NEXT UCB
.UCX231 ANOP
  IECVUCB 231,362,ML,730,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,362,*
               0,0,12
         AGO   .UCX232  TO NEXT EXTENSION
.LST233 IECULK3 2,3,232,0,548,0,3,6,0
         AGO   .LST234    TO NEXT UCB ADD ENTRY
.UCB232 ANOP
  IECVUCB 232,363,ML,733,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,363,*
               0,0,12
         AGO   .UCB233      TO NEXT UCB
.UCX232 ANOP
  IECVUCB 232,363,ML,733,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,363,*
               0,0,12
         AGO   .UCX233  TO NEXT EXTENSION
.LST234 IECULK3 3,4,233,0,548,0,3,6,0
         AGO   .LST235    TO NEXT UCB ADD ENTRY
.UCB233 ANOP
  IECVUCB 233,364,ML,736,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,364,*
               0,0,12
         AGO   .UCB234      TO NEXT UCB
.UCX233 ANOP
  IECVUCB 233,364,ML,736,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,364,*
               0,0,12
         AGO   .UCX234  TO NEXT EXTENSION
.LST235 IECULK3 4,5,234,0,548,0,3,6,0
         AGO   .LST236    TO NEXT UCB ADD ENTRY
.UCB234 ANOP
  IECVUCB 234,365,ML,739,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,365,*
               0,0,12
         AGO   .UCB235      TO NEXT UCB
.UCX234 ANOP
  IECVUCB 234,365,ML,739,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,365,*
               0,0,12
         AGO   .UCX235  TO NEXT EXTENSION
.LST236 IECULK3 5,6,235,0,548,0,3,6,0
         AGO   .LST237    TO NEXT UCB ADD ENTRY
.UCB235 ANOP
  IECVUCB 235,366,ML,742,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,366,*
               0,0,12
         AGO   .UCB236      TO NEXT UCB
.UCX235 ANOP
  IECVUCB 235,366,ML,742,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,366,*
               0,0,12
         AGO   .UCX236  TO NEXT EXTENSION
.LST237 IECULK3 6,7,236,0,548,0,3,6,0
         AGO   .LST238    TO NEXT UCB ADD ENTRY
.UCB236 ANOP
  IECVUCB 236,367,ML,745,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,367,*
               0,0,12
         AGO   .UCB237      TO NEXT UCB
.UCX236 ANOP
  IECVUCB 236,367,ML,745,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,367,*
               0,0,12
         AGO   .UCX237  TO NEXT EXTENSION
.LST238 IECULK3 7,8,237,0,548,0,3,6,0
         AGO   .LST239    TO NEXT UCB ADD ENTRY
.UCB237 ANOP
  IECVUCB 237,368,ML,748,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,368,*
               0,0,12
         AGO   .UCB238      TO NEXT UCB
.UCX237 ANOP
  IECVUCB 237,368,ML,748,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,368,*
               0,0,12
         AGO   .UCX238  TO NEXT EXTENSION
.LST239 IECULK3 8,9,238,0,548,0,3,6,0
         AGO   .LST240    TO NEXT UCB ADD ENTRY
.UCB238 ANOP
  IECVUCB 238,369,ML,751,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,369,*
               0,0,12
         AGO   .UCB239      TO NEXT UCB
.UCX238 ANOP
  IECVUCB 238,369,ML,751,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,369,*
               0,0,12
         AGO   .UCX239  TO NEXT EXTENSION
.LST240 IECULK3 9,10,239,0,548,0,3,6,0
         AGO   .LST241    TO NEXT UCB ADD ENTRY
.UCB239 ANOP
  IECVUCB 239,36A,ML,754,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,36A,*
               0,0,12
         AGO   .UCB240      TO NEXT UCB
.UCX239 ANOP
  IECVUCB 239,36A,ML,754,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,36A,*
               0,0,12
         AGO   .UCX240  TO NEXT EXTENSION
.LST241 IECULK3 10,11,240,0,548,0,3,6,0
         AGO   .LST242    TO NEXT UCB ADD ENTRY
.UCB240 ANOP
  IECVUCB 240,36B,ML,757,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,36B,*
               0,0,12
         AGO   .UCB241      TO NEXT UCB
.UCX240 ANOP
  IECVUCB 240,36B,ML,757,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,36B,*
               0,0,12
         AGO   .UCX241  TO NEXT EXTENSION
.LST242 IECULK3 11,12,241,0,548,0,3,6,0
         AGO   .LST243    TO NEXT UCB ADD ENTRY
.UCB241 ANOP
  IECVUCB 241,36C,ML,760,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,36C,*
               0,0,12
         AGO   .UCB242      TO NEXT UCB
.UCX241 ANOP
  IECVUCB 241,36C,ML,760,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,36C,*
               0,0,12
         AGO   .UCX242  TO NEXT EXTENSION
.LST243 IECULK3 12,13,242,0,548,0,3,6,0
         AGO   .LST244    TO NEXT UCB ADD ENTRY
.UCB242 ANOP
  IECVUCB 242,36D,ML,763,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,36D,*
               0,0,12
         AGO   .UCB243      TO NEXT UCB
.UCX242 ANOP
  IECVUCB 242,36D,ML,763,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,36D,*
               0,0,12
         AGO   .UCX243  TO NEXT EXTENSION
.LST244 IECULK3 13,14,243,0,548,0,3,6,0
         AGO   .LST245    TO NEXT UCB ADD ENTRY
.UCB243 ANOP
  IECVUCB 243,36E,ML,766,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,36E,*
               0,0,12
         AGO   .UCB244      TO NEXT UCB
.UCX243 ANOP
  IECVUCB 243,36E,ML,766,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,36E,*
               0,0,12
         AGO   .UCX244  TO NEXT EXTENSION
.LST245 IECULK3 14,15,244,0,548,0,3,6,0
         AGO   .LST246    TO NEXT UCB ADD ENTRY
.UCB244 ANOP
  IECVUCB 244,36F,ML,769,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,0,0,36F,*
               0,0,12
         AGO   .UCB245      TO NEXT UCB
.UCX244 ANOP
  IECVUCB 244,36F,ML,769,00,0,3,,3040200A,136,0,IECVDDTM,0,0,0,1,0,36F,*
               0,0,12
         AGO   .UCX245  TO NEXT EXTENSION
.TCU21   IECULK2 580,6,12,47,0,0,0
         AGO   .TCU22       TO NEXT ENTRY
.LST246 IECULK3 15,0,245,1,580,0,3,12,0
         AGO   .LST247    TO NEXT UCB ADD ENTRY
.UCB245   ANOP       UCB ENTRY
 IECVUCB 245,3C0,GR,772,69,54,3,245,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB246
.UCX245    ANOP       UCB ENTRY
 IECVUCB 245,3C0,GR,772,69,54,3,245,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX246  TO NEXT EXTENSION
.LST247 IECULK3 0,1,246,0,580,0,3,12,0
         AGO   .LST248    TO NEXT UCB ADD ENTRY
.UCB246   ANOP       UCB ENTRY
 IECVUCB 246,3C1,GR,773,69,55,3,246,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB247
.UCX246    ANOP       UCB ENTRY
 IECVUCB 246,3C1,GR,773,69,55,3,246,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX247  TO NEXT EXTENSION
.LST248 IECULK3 1,2,247,0,580,0,3,12,0
         AGO   .LST249    TO NEXT UCB ADD ENTRY
.UCB247   ANOP       UCB ENTRY
 IECVUCB 247,3C2,GR,774,69,56,3,247,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB248
.UCX247    ANOP       UCB ENTRY
 IECVUCB 247,3C2,GR,774,69,56,3,247,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX248  TO NEXT EXTENSION
.LST249 IECULK3 2,3,248,0,580,0,3,12,0
         AGO   .LST250    TO NEXT UCB ADD ENTRY
.UCB248   ANOP       UCB ENTRY
 IECVUCB 248,3C3,GR,775,69,57,3,248,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB249
.UCX248    ANOP       UCB ENTRY
 IECVUCB 248,3C3,GR,775,69,57,3,248,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX249  TO NEXT EXTENSION
.LST250 IECULK3 3,4,249,0,580,0,3,12,0
         AGO   .LST251    TO NEXT UCB ADD ENTRY
.UCB249   ANOP       UCB ENTRY
 IECVUCB 249,3C4,GR,776,69,58,3,249,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB250
.UCX249    ANOP       UCB ENTRY
 IECVUCB 249,3C4,GR,776,69,58,3,249,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX250  TO NEXT EXTENSION
.LST251 IECULK3 4,5,250,0,580,0,3,12,0
         AGO   .LST252    TO NEXT UCB ADD ENTRY
.UCB250   ANOP       UCB ENTRY
 IECVUCB 250,3C5,GR,777,69,59,3,250,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB251
.UCX250    ANOP       UCB ENTRY
 IECVUCB 250,3C5,GR,777,69,59,3,250,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX251  TO NEXT EXTENSION
.LST252 IECULK3 5,6,251,0,580,0,3,12,0
         AGO   .LST253    TO NEXT UCB ADD ENTRY
.UCB251   ANOP       UCB ENTRY
 IECVUCB 251,3C6,GR,778,69,60,3,251,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB252
.UCX251    ANOP       UCB ENTRY
 IECVUCB 251,3C6,GR,778,69,60,3,251,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX252  TO NEXT EXTENSION
.LST253 IECULK3 6,7,252,0,580,0,3,12,0
         AGO   .LST254    TO NEXT UCB ADD ENTRY
.UCB252   ANOP       UCB ENTRY
 IECVUCB 252,3C7,GR,779,69,61,3,252,12501009,0,0,IECVDDT4,0,1,2000,0
 AGO .UCB253
.UCX252    ANOP       UCB ENTRY
 IECVUCB 252,3C7,GR,779,69,61,3,252,12501009,0,0,IECVDDT4,0,1,2000,1
         AGO   .UCX253  TO NEXT EXTENSION
.TCH4    ANOP   TEST CHANNEL
    IECXTCH 4,1,(0,0,1,0,0,                                           *****
               0,0,0,0,0,0,                                          ******
               0,0,0,0)
         AGO   .TCH5      TO NEXT TCH MOD
.SRCH4  ANOP       CHANNEL SEARCH MOD4
               IECICS 3,                                          **********
               (3,                                                 ********
               1,1,                                                    *
               0)
         AGO   .SRCH5     TO NEXT CHAN SRCH MOD
.TAB5   ANOP         LOOK UP UCB TAB
 IECULK1 52,3,4,0,0,1,0
         AGO   .TAB6     TO NEXT CHANNEL ENTRY
.TCU22   IECULK2 596,12,8,52,1,0,0
         AGO   .TCU23       TO NEXT ENTRY
.LST254 IECULK3 7,0,253,1,596,0,4,8,0
         AGO   .LST255    TO NEXT UCB ADD ENTRY
.UCB253 ANOP
  IECVUCB 253,480,AT,780,09,62,4,,32108003,16,0,IECVDDTG,0,0,0,0,0,480,*
               0,0,12
         AGO   .UCB254      TO NEXT UCB
.UCX253 ANOP
  IECVUCB 253,480,AT,780,09,62,4,,32108003,16,0,IECVDDTG,0,0,0,1,0,480,*
               0,0,12
         AGO   .UCX254  TO NEXT EXTENSION
.WK9 IECVUCBA 253,32108003,0,0,0,0,
         AGO   .WK10   TO NEXT WORK AREA
.LST255 IECULK3 0,1,254,0,596,0,4,8,0
         AGO   .LST256    TO NEXT UCB ADD ENTRY
.UCB254 ANOP
  IECVUCB 254,481,AT,783,09,64,4,,32108003,16,0,IECVDDTG,0,0,0,0,0,481,*
               0,0,12
         AGO   .UCB255      TO NEXT UCB
.UCX254 ANOP
  IECVUCB 254,481,AT,783,09,64,4,,32108003,16,0,IECVDDTG,0,0,0,1,0,481,*
               0,0,12
         AGO   .UCX255  TO NEXT EXTENSION
.WK10 IECVUCBA 254,32108003,0,0,0,0,
         AGO   .WK11   TO NEXT WORK AREA
.LST256 IECULK3 1,2,255,0,596,0,4,8,0
         AGO   .LST257    TO NEXT UCB ADD ENTRY
.UCB255 ANOP
  IECVUCB 255,482,AT,786,09,66,4,,32108003,16,0,IECVDDTG,0,0,0,0,0,482,*
               0,0,12
         AGO   .UCB256      TO NEXT UCB
.UCX255 ANOP
  IECVUCB 255,482,AT,786,09,66,4,,32108003,16,0,IECVDDTG,0,0,0,1,0,482,*
               0,0,12
         AGO   .UCX256  TO NEXT EXTENSION
.WK11 IECVUCBA 255,32108003,0,0,0,0,
         AGO   .WK12   TO NEXT WORK AREA
.LST257 IECULK3 2,3,256,0,596,0,4,8,0
         AGO   .LST258    TO NEXT UCB ADD ENTRY
.UCB256 ANOP
  IECVUCB 256,483,AT,789,09,68,4,,32108003,16,0,IECVDDTG,0,0,0,0,0,483,*
               0,0,12
         AGO   .UCB257      TO NEXT UCB
.UCX256 ANOP
  IECVUCB 256,483,AT,789,09,68,4,,32108003,16,0,IECVDDTG,0,0,0,1,0,483,*
               0,0,12
         AGO   .UCX257  TO NEXT EXTENSION
.WK12 IECVUCBA 256,32108003,0,0,0,0,
         AGO   .WK13   TO NEXT WORK AREA
.LST258 IECULK3 3,4,257,0,596,0,4,8,0
         AGO   .LST259    TO NEXT UCB ADD ENTRY
.UCB257 ANOP
  IECVUCB 257,484,AT,792,09,70,4,,32108003,16,0,IECVDDTG,0,0,0,0,0,484,*
               0,0,12
         AGO   .UCB258      TO NEXT UCB
.UCX257 ANOP
  IECVUCB 257,484,AT,792,09,70,4,,32108003,16,0,IECVDDTG,0,0,0,1,0,484,*
               0,0,12
         AGO   .UCX258  TO NEXT EXTENSION
.WK13 IECVUCBA 257,32108003,0,0,0,0,
         AGO   .WK14   TO NEXT WORK AREA
.LST259 IECULK3 4,5,258,0,596,0,4,8,0
         AGO   .LST260    TO NEXT UCB ADD ENTRY
.UCB258 ANOP
  IECVUCB 258,485,AT,795,09,72,4,,32108003,16,0,IECVDDTG,0,0,0,0,0,485,*
               0,0,12
         AGO   .UCB259      TO NEXT UCB
.UCX258 ANOP
  IECVUCB 258,485,AT,795,09,72,4,,32108003,16,0,IECVDDTG,0,0,0,1,0,485,*
               0,0,12
         AGO   .UCX259  TO NEXT EXTENSION
.WK14 IECVUCBA 258,32108003,0,0,0,0,
         AGO   .WK15   TO NEXT WORK AREA
.LST260 IECULK3 5,6,259,0,596,0,4,8,0
         AGO   .LST261    TO NEXT UCB ADD ENTRY
.UCB259 ANOP
  IECVUCB 259,486,AT,798,09,74,4,,32108003,16,0,IECVDDTG,0,0,0,0,0,486,*
               0,0,12
         AGO   .UCB260      TO NEXT UCB
.UCX259 ANOP
  IECVUCB 259,486,AT,798,09,74,4,,32108003,16,0,IECVDDTG,0,0,0,1,0,486,*
               0,0,12
         AGO   .UCX260  TO NEXT EXTENSION
.WK15 IECVUCBA 259,32108003,0,0,0,0,
         AGO   .WK16   TO NEXT WORK AREA
.LST261 IECULK3 6,7,260,0,596,0,4,8,0
         AGO   .LST262    TO NEXT UCB ADD ENTRY
.UCB260 ANOP
  IECVUCB 260,487,AT,801,09,76,4,,32108003,16,0,IECVDDTG,0,0,0,0,0,487,*
               0,0,12
         AGO   .UCB261      TO NEXT UCB
.UCX260 ANOP
  IECVUCB 260,487,AT,801,09,76,4,,32108003,16,0,IECVDDTG,0,0,0,1,0,487,*
               0,0,12
         AGO   .UCX261  TO NEXT EXTENSION
.WK16 IECVUCBA 260,32108003,0,0,0,0,
         AGO   .WK17   TO NEXT WORK AREA
.LST262 ANOP     LAST UCB ADD ENTRY
    IECULK3 0,0,0,0,0,1
         AGO   .TCH0  TO TEST CHANNEL
.TAB6   ANOP            LAST CHANNEL ENTRY
  IECULK1 0,0,4,1
         AGO   .TCU1       TO FIRST CU ENTRY
.TCH5    ANOP   TEST CHANNEL
    IECXTCH 5,1,(0,0,0,1,0,                                           *****
               0,0,0,0,0,0,                                          ******
               0,0,0,0)
         AGO   .TCH6      TO NEXT TCH MOD
.SRCH5  ANOP       CHANNEL SEARCH MOD5
               IECICS 4,                                          **********
               (4,                                                 ********
               1,0,                                                    *
               1)
         AGO   .SRCH6     TO NEXT CHAN SRCH MOD
.TCH6   ANOP       LAST TEST CHAN MOD
         AGO   .SRCH1     TO FIRST CSRCH MOD
.SRCH6  ANOP       LAST CHANNEL SEARCH MOD
         AGO   .TBLTAB          TO TABLE MACRO
.TCU23   ANOP       LAST CU ENRY TO TABLE
         AGO   .LST1       TO FIRST CUB ADD
.UCB261   ANOP    LAST UCB ENTRY
         AGO   .UCX1  TO UCB WORK AREAS
.UCX261   ANOP  LAST UCB EXTENSION ENTRY
         AGO   .WK1   TO UCB WORK AREAS
.WK17 ANOP    LAST WORK ENTRY
         AGO   .TAB1  TO LOOKUP TABLE
.TCH0  ANOP
         AGO   .TCH1      TO FIRST TCH MOD
.TBLTAB  ANOP  LCH,ATTN AND CHAN TABLE
 IECTBL  (1,4,4,4,4,0,0),5,1,(1608),2,2,0,0,0
         AGO  .UCBEND     TO STATISTICS TABLE
.IOSB    ANOP
.END    ANOP
.UCBEND  ANOP
 IECIST 332,(0,0,0,0,0,0,0,0,0,0),1
         END
/*
//SG9 EXEC ASMS,OBJ=OBJPDS03,MOD=IEECVH1,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
IEECVH1  CSECT
         IEECRDCM DEV=D,KEY=IEECVK0,A=(14)
         END
/*
//SG10 EXEC ASMS,OBJ=OBJPDS03,MOD=IEECVH2,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
IEECVH2  CSECT
         IEECRDCM DEV=D,KEY=IEECVK1,A=(14)
         END
/*
//SG11 EXEC ASMS,OBJ=OBJPDS03,MOD=IEECVSUB,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
IEECVSUB CSECT
         IEECSUB Y,N,Y,N,N
         CVT   DSECT=YES
         IEECUCM  FORMAT=NEW
         IHAPSA
DCMTSRT  DSECT
         IEECRDCM
         END
/*
//SG12 EXEC ASMS,OBJ=OBJPDS03,MOD=IEEPFKEY,CLASS=A
//SYSIN DD *
      PRINT ON,NODATA
IEEPFKEY CSECT
         DC    A(KEY)
         DC    1XL10'0'
KEY      DC    AL4(ENDPFK-IEEPFKEY)
         ENTRY IEECVK0
IEECVK0  EQU   *
         DC    FL1'1'
         DC    X'0'
         DC    CL108' '
         DC    FL1'2'
         DC    X'0'
         DC    CL108' '
         DC    FL1'3'
         DC    X'0'
         DC    CL108' '
         DC    FL1'4'
         DC    X'0'
         DC    CL108' '
         DC    FL1'5'
         DC    X'0'
         DC    CL108' '
         DC    FL1'6'
         DC    X'0'
         DC    CL108' '
         DC    FL1'7'
         DC    X'0'
         DC    CL108' '
         DC    FL1'8'
         DC    X'0'
         DC    CL108' '
         DC    FL1'9'
         DC    X'0'
         DC    CL108' '
         DC    FL1'10'
         DC    X'0'
         DC    CL108' '
         DC    FL1'11'
         DC    X'0'
         DC    CL108' '
         DC    FL1'12'
         DC    X'0'
         DC    CL108' '
         DC    FL1'100'
         ENTRY IEECVK1
IEECVK1  EQU   *
         DC    FL1'1'
         DC    X'0'
         DC    CL108' '
         DC    FL1'2'
         DC    X'0'
         DC    CL108' '
         DC    FL1'3'
         DC    X'0'
         DC    CL108' '
         DC    FL1'4'
         DC    X'0'
         DC    CL108' '
         DC    FL1'5'
         DC    X'0'
         DC    CL108' '
         DC    FL1'6'
         DC    X'0'
         DC    CL108' '
         DC    FL1'7'
         DC    X'0'
         DC    CL108' '
         DC    FL1'8'
         DC    X'0'
         DC    CL108' '
         DC    FL1'9'
         DC    X'0'
         DC    CL108' '
         DC    FL1'10'
         DC    X'0'
         DC    CL108' '
         DC    FL1'11'
         DC    X'0'
         DC    CL108' '
         DC    FL1'12'
         DC    X'0'
         DC    CL108' '
         DC    FL1'100'
ENDPFK   EQU   *
         END
/*
//NUC13 EXEC PGM=IEBCOPY,REGION=512K,COND=(8,LT)
//SYSUT3 DD DSN=&SYSUT3,SPACE=(1700,(10,5)),UNIT=SYSDA
//SYSUT4 DD DSN=&SYSUT4,SPACE=(460,(30,24)),UNIT=SYSDA
//SYSPRINT DD SPACE=(3630,(500,40),RLSE),
//    DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),SYSOUT=A
//NUCLEUS DD DSNAME=SYS1.NUCLEUS,DISP=OLD,
//     UNIT=3350,VOL=(,RETAIN,SER=MVSRES)
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSC5
//SYSIN DD *
 COPY OUTDD=NUCLEUS,INDD=AOSC5
 SELECT MEMBER=(IEAVNP1A)
 SELECT MEMBER=(IEAVNP1B)
 SELECT MEMBER=(IEAVNP17)
 SELECT MEMBER=(IEAVNP16)
/*
//NUC14 EXEC LINKS,COND=(4,LT),REGION=650K,
// PARM='LIST,XREF,NCAL,SCTR,LET,SIZE=(600K,64K)',
// UNIT='3350',SER=MVSRES,N=SYS1,NAME=NUCLEUS,P1='(',
// MOD=IEANUC01,P2=')',OBJ=OBJPDS03,CLASS=A
//AOSA0 DD DISP=SHR,DSNAME=SYS1.AOSA0,VOLUME=(,RETAIN)
//AOSB0 DD DISP=SHR,DSNAME=SYS1.AOSB0,VOLUME=(,RETAIN)
//AOSB3 DD DISP=SHR,DSNAME=SYS1.AOSB3,VOLUME=(,RETAIN)
//AOSCD DD DISP=SHR,DSNAME=SYS1.AOSCD,VOLUME=(,RETAIN)
//AOSCE DD DISP=SHR,DSNAME=SYS1.AOSCE,VOLUME=(,RETAIN)
//AOSC2 DD DISP=SHR,DSNAME=SYS1.AOSC2,VOLUME=(,RETAIN)
//AOSC5 DD DISP=SHR,DSNAME=SYS1.AOSC5,VOLUME=(,RETAIN)
//AOSD0 DD DISP=SHR,DSNAME=SYS1.AOSD0,VOLUME=(,RETAIN)
//AOSD8 DD DISP=SHR,DSNAME=SYS1.AOSD8,VOLUME=(,RETAIN)
//AOSG0 DD DISP=SHR,DSNAME=SYS1.AOSG0,VOLUME=(,RETAIN)
//AOS00 DD DISP=SHR,DSNAME=SYS1.AOS00,VOLUME=(,RETAIN)
//AOS06 DD DISP=SHR,DSNAME=SYS1.AOS06,VOLUME=(,RETAIN)
//AOS12 DD DISP=SHR,DSNAME=SYS1.AOS12,VOLUME=(,RETAIN)
//AOS20 DD DISP=SHR,DSNAME=SYS1.AOS20,VOLUME=(,RETAIN)
//AOS21 DD DISP=SHR,DSNAME=SYS1.AOS21,VOLUME=(,RETAIN)
//AOS26 DD DISP=SHR,DSNAME=SYS1.AOS26,VOLUME=(,RETAIN)
//NUCLEUSA DD DISP=SHR,DSNAME=SYS2.NUCLEUS
//SYSLIN DD *
   INSERT  IEAVNIP0
   INSERT  IEAVFX00
 INCLUDE AOSB3(IEFAQTOP)
 INCLUDE AOSB3(IEEBASEC,IEFDPOST)
 INCLUDE AOSB3(IEFATECB)
 INCLUDE AOSB3(IEFJESDM)
 INCLUDE AOSB3(IEFAB438)
 INCLUDE AOSB3(IGC111)
 INCLUDE  AOSC5(IGC121)
 INCLUDE  AOSC5(IDA121A2)
 INCLUDE  AOSC5(IDA019SB)
 INCLUDE  AOSC5(IDA121A3)
 INCLUDE  AOSC5(IDA121A4)
 INCLUDE  AOSC5(IDA019S4)
 INCLUDE  AOSC5(IDA121A6)
 INCLUDE  AOSC5(IDA121CV)
 INCLUDE AOS21(IEDQATTN)
 INCLUDE AOSC5(ILRPAGIO,ILRPTM,ILRGOS)
 INCLUDE AOSC5(ILRPAGCM,ILRSRT,ILRPOS)
 INCLUDE AOSC5(ILRSWAP,ILRCMP,ILRSRBC)
 INCLUDE AOSC5(ILRSWPDR,ILRMSG00,ILRVIOCM)
 INCLUDE AOSC5(ILRFRSLT,ILRCMP01,ILRJTERM)
 INCLUDE AOSC5(ILRTERMR,ILRSLOTC,ILRPEX)
 INCLUDE AOSC5(ILRASM00,ILRIOFRR,ILRGOS01)
 INCLUDE AOSC5(ILRSWP01,ILRSRB01,ILRSRT01)
 INCLUDE AOSC5(ILRFRR01)
 INCLUDE AOS20(IGC058)
 INCLUDE AOS20(IECTATEN)
 INCLUDE SYSPUNCH(IEAASU00,IEASVC00,IEAVBK00,IEECVUCM)
 INCLUDE AOS20(IECTSVC)
 INCLUDE AOSC5(ESRTABLE)
 INCLUDE AOSC5(IEAVEVT0)
 INCLUDE AOSC5(IEAVPREF)
 INCLUDE AOSC5(IEAVNIP0)
 INCLUDE AOSC5(IEAVSY50,IEAVENQ1,IEAVEVAL)
 INCLUDE AOSC5(IEAVEF00,IEAVRTI0)
 INCLUDE AOSC5(IEAVSETS,IEAVMODE,IEAVTEST)
 INCLUDE AOSC5(IEAVLK00,IEAVLK01,IEAVTRCE)
 INCLUDE AOSC5(IEAVELIT,IEAVETCL)
 INCLUDE AOSC5(IEAVLK02,IEAVESVC,IEAVEIO)
 INCLUDE AOSC5(IEAVEEXT,IEAVEAC0,IEAVEOR)
 INCLUDE AOSC5(IEAVEPC,IEAVERES,IEAVEDS0)
 INCLUDE AOSC5(IEAVEMS0,IEAVEEXP,IEAVEEE0)
 INCLUDE AOSC5(IEAVESC0,IEAVEPD0)
 INCLUDE AOSC5(IEAVEED0,IEAVECH0)
 INCLUDE AOSC5(IEAVELK)
 INCLUDE AOSC5(IEAVRTI1,IEAVRT02)
 INCLUDE AOSC5(IEAVEEEP)
 INCLUDE AOSC5(IEAVEEE2)
 INCLUDE AOSC5(IEAVLK03)
 INCLUDE AOSC5(IEAVVCRA,IEAVVCRX)
 INCLUDE AOSC5(IEAVPRT0,IEAVGM00)
 INCLUDE AOSC5(IEAVGCAS,IEAVBLDP,IEAVDELP)
 INCLUDE AOSC5(IEAVGTCL,IEAVFRCL)
 INCLUDE AOSC5(IEAVCKEY,IEAVCKRR)
 INCLUDE AOSC5(IQARIH00)
 INCLUDE AOSC5(AHLMCIH)
 INCLUDE AOSC5(IEAVAR02)
 INCLUDE AOSC5(IEAVTRT1,IEAVTRTM,IEAVTRTS)
 INCLUDE AOSC5(IEAVTRTR)
 INCLUDE AOSC5(IEAVTRTH)
 INCLUDE AOSC5(IEAVTSDX,IEAVTSBP,IEAVTRER)
 INCLUDE AOSC5(IEAVMSGS)
 INCLUDE AOSC5(IEAVTPER)
 INCLUDE AOSC5(IEAVPFTE,IEAVPCB,IEAVINV)
 INCLUDE AOSC5(IEAVRFR,IEAVRCV,IEAVRCF)
 INCLUDE AOSC5(IEAVTERM,IEAVSQA,IEAVEQR)
 INCLUDE AOSC5(IEAVPSI,IEAVRELS,IEAVITAS)
 INCLUDE AOSC5(IEAVDLAS,IEAVCSEG,IEAVFP)
 INCLUDE AOSC5(IEAVTRV,IEAVPIX,IEAVGFA)
 INCLUDE AOSC5(IEAVDSEG,IEAVPIOI,IEAVPIOP)
 INCLUDE AOSC5(IEAVIOCP,IEAVFREE,IEAVOUT)
 INCLUDE AOSC5(IEAVFXLD,IEAVAMSI,IEAVRSM)
 INCLUDE AOSC5(IEAVSWIN,IEAVSOUT)
 INCLUDE AOSC5(IEAVSWPC,IEAVPRSB)
 INCLUDE AOSC5(IEESTPRS,IEEVSTOP)
 INCLUDE AOSC5(IEEVEXSN)
 INCLUDE AOSC5(IEEVDCCR)
 INCLUDE AOSC5(IEEVLDWT)
 INCLUDE AOSC5(IRARMINT,IRARMEVT,IRARMERR)
 INCLUDE AOSC5(IRARMCTL,IRARMIOM,IRARMCPM)
 INCLUDE AOSC5(IRARMSTM,IRARMWLM,IRARMMSG)
 INCLUDE AOSC5(IRARMCNS,IRARMRMR)
 INCLUDE AOSC5(IRARMSRV)
 INCLUDE AOS00(IEASMFEX,IEATLEXT,IEAQWAIT)
 INCLUDE AOSC5(IEAVGPRR,IEAVCARR)
 INCLUDE AOSC5(IEAVGFRR)
 INCLUDE AOSC5(IEAVESPR,IEAVEQV0)
 INCLUDE AOSC5(IEAVEADV,IEAVECBV,IEAVEVRR)
 INCLUDE AOSC5(IEAVELCR,IEAVEDSR,IEAVESVR)
 INCLUDE AOSC5(IEAVEIOR,IEAVEE1R,IEAVEE2R)
 INCLUDE AOSC5(IEAVEE3R,IEAVEPCR,IEAVERER)
 INCLUDE AOSC5(IEAVEPDR,IEAVESCR,IEAVEEER)
 INCLUDE AOSC5(IEAVELKR,IEAVEIPR)
 INCLUDE AOS06(IFDOLT0A)
 INCLUDE AOSC5(IEEVDUMY)
 INCLUDE AOSC5(IEAVEUPC)
 INCLUDE AOSC5(IECVEXCP,IECVEXPR)
 INCLUDE AOSC5(IECVDERP,IECVERPL)
 INCLUDE AOSC5(IECIOSAM,IECVPST)
 INCLUDE AOSC5(IECVTCCW,IECVGENA)
 INCLUDE AOSC5(IECVITRP,IECVSMGR)
 INCLUDE AOSC5(IECIHIO,IECVDAVV)
 INCLUDE AOSC5(IECVRSTI,IECVPURG)
 INCLUDE AOSC5(IECVIRST)
 INCLUDE AOSC5(IECVOID)
 INCLUDE AOSC5(IECVHDET,IECVHREC)
 INCLUDE AOSC5(IECVHIDT)
 INCLUDE AOSC5(IECVMAP)
 INCLUDE AOSC5(IECVBRSV,IECVESIO)
 INCLUDE AOSC5(IECVRDIO,IECVRRSV)
 INCLUDE AOSC5(IECVURDT,IECVURSV,IECVDURP)
 INCLUDE AOSC5(IECVDDT0) DEVICE=3350
 INCLUDE AOSC5(IECVXDAT) DEVICE=3350
 INCLUDE AOSC5(IECVXDAS) DEVICE=3350
 INCLUDE AOSC5(IECVXDAU) DEVICE=3350
 INCLUDE AOSC5(IECVOTBL) DEVICE=3350
 INCLUDE AOSC5(IECVDDT0) DEVICE=3330
 INCLUDE AOSC5(IECVXDAS) DEVICE=3330
 INCLUDE AOSC5(IECVXDAT) DEVICE=3330
 INCLUDE AOSC5(IECVXDAU) DEVICE=3330
 INCLUDE AOSC5(IECVOTBL) DEVICE=3330
 INCLUDE AOSC5(IECVDDT0) DEVICE=3340
 INCLUDE AOSC5(IECVXDAS) DEVICE=3340
 INCLUDE AOSC5(IECVXDAT) DEVICE=3340
 INCLUDE AOSC5(IECVXDAU) DEVICE=3340
 INCLUDE AOSC5(IECVOTBL) DEVICE=3340
 INCLUDE AOSC5(IECVDDT0) DEVICE=2314
 INCLUDE AOSC5(IECVXSKS) DEVICE=2314
 INCLUDE AOSC5(IECVXDAT) DEVICE=2314
 INCLUDE AOSC5(IECVXDAU) DEVICE=2314
 INCLUDE AOSC5(IECVOTBL) DEVICE=2314
 INCLUDE AOSC5(IECVXSKN) DEVICE=2314
 INCLUDE AOSC5(IECVXSKE) DEVICE=2314
 INCLUDE AOSC5(IECVDDT0) DEVICE=3400-6
 INCLUDE AOSC5(IECVXT3S) DEVICE=3400-6
 INCLUDE AOSC5(IECVXTAT) DEVICE=3400-6
 INCLUDE AOSC5(IECVOTBL) DEVICE=3400-6
 INCLUDE AOSC5(IECVDDT0) DEVICE=3211
 INCLUDE AOSC5(IECVXURS) DEVICE=3211
 INCLUDE AOSC5(IECVXURT) DEVICE=3211
 INCLUDE AOSC5(IECVXPRE) DEVICE=3211
 INCLUDE AOSC5(IECVOTBL) DEVICE=3211
 INCLUDE AOSC5(IECVDDT0) DEVICE=1403
 INCLUDE AOSC5(IECVXURS) DEVICE=1403
 INCLUDE AOSC5(IECVXURT) DEVICE=1403
 INCLUDE AOSC5(IECVOTBL) DEVICE=1403
 INCLUDE AOSC5(IECVDDT0) DEVICE=2540
 INCLUDE AOSC5(IECVXURS) DEVICE=2540
 INCLUDE AOSC5(IECVXURT) DEVICE=2540
 INCLUDE AOSC5(IECVOTBL) DEVICE=2540
 INCLUDE AOSC5(IECVDDT0) DEVICE=2540-2
 INCLUDE AOSC5(IECVXURS) DEVICE=2540-2
 INCLUDE AOSC5(IECVXURT) DEVICE=2540-2
 INCLUDE AOSC5(IECVOTBL) DEVICE=2540-2
 INCLUDE AOSC5(IECVDDT0) DEVICE=3215
 INCLUDE AOSC5(IECVXURS) DEVICE=3215
 INCLUDE AOSC5(IECVXURT) DEVICE=3215
 INCLUDE AOSC5(IECVOTBL) DEVICE=3215
 INCLUDE AOSC5(IECVDDT0) DEVICE=3277-2
 INCLUDE AOSC5(IECVXURS) DEVICE=3277-2
 INCLUDE AOSC5(IECVXGRT) DEVICE=3277-2
 INCLUDE AOSC5(IECVOTBL) DEVICE=3277-2
 INCLUDE SYSPUNCH(IFBCTA00)
 INCLUDE AOSG0(IFFABA)
 INCLUDE AOSG0(IGC070)
 INCLUDE AOSG0(IGC084)
 INCLUDE  SYSPUNCH(IECZDTAB)
 INCLUDE  AOSD0(IGC018)
 INCLUDE  SYSPUNCH(IFGDEBCK)
 INCLUDE AOSCE(IGFCCHCR)
 INCLUDE AOSCE(IGFCHDA)
 INCLUDE AOSCE(IGFTMC00)
 INCLUDE AOSCE(IGFINTVL)
 INSERT IGFPMCIH,IGFRWAC
 INSERT IGFPMPFX,IGFPMSCA,IGFPMHCA
 INSERT IGFPMRTM,IGFPMTHA,IGFPMFRS
 INSERT IGFPMMSG,IGFPMKTA,IGFPKREF
 INSERT IGFPTERM,IGFPTSIG
 INSERT IGFCCHED
 INSERT IGFPNRFH
 INSERT IGFPBUCR,IGFPEXIT
 INSERT IGFPSAD0
 INSERT IGFPTCON,IGFPTREC
 INCLUDE AOSCE(IGFPMCIH)
 INCLUDE AOSCE(IGFRWAC)
 INCLUDE AOSCE(IGFPMPFX)
 INCLUDE AOSCE(IGFPMSCA)
 INCLUDE AOSCE(IGFPMHCA)
 INCLUDE AOSCE(IGFPMRTM)
 INCLUDE AOSCE(IGFPMTHA)
 INCLUDE AOSCE(IGFPMFRS)
 INCLUDE AOSCE(IGFPMMSG)
 INCLUDE AOSCE(IGFPMKTA)
 INCLUDE AOSCE(IGFPKREF)
 INCLUDE AOSCE(IGFPTERM)
 INCLUDE AOSCE(IGFPTSIG)
 INCLUDE AOSCE(IGFCCHED)
 INCLUDE AOSCE(IGFPNRFH)
 INCLUDE AOSCE(IGFPBUCR)
 INCLUDE AOSCE(IGFPEXIT)
 INCLUDE AOSCE(IGFPSAD0)
 INCLUDE AOSCE(IGFPTCON)
 INCLUDE AOSCE(IGFPTREC)
 INCLUDE AOSCE(ICFBDX00)
 INCLUDE AOSCD(IFBDCB01)
 INCLUDE      AOSC2(IEWSUOVR)
 INCLUDE AOS26(ISTAPC22)
 INCLUDE AOS26(ISTZFMAA)
 INCLUDE AOS26(ISTZFMAB)
 INCLUDE SYSPUNCH(IEECVH2)
 INCLUDE SYSPUNCH(IEECVH1)
 INCLUDE SYSPUNCH(IEECVSUB)
 INCLUDE SYSPUNCH(IEEPFKEY)
          INCLUDE NUCLEUSA(IGC201)
          INCLUDE NUCLEUSA(IGC202)
          INCLUDE NUCLEUSA(IGC203)
          INCLUDE NUCLEUSA(IGC204)
          INCLUDE NUCLEUSA(IGC215)
          INCLUDE NUCLEUSA(IGC216)
          INCLUDE NUCLEUSA(IGC221)
          INCLUDE NUCLEUSA(IGC222)
          INCLUDE NUCLEUSA(IGC223)
          INCLUDE NUCLEUSA(IGC224)
          INCLUDE NUCLEUSA(IGC225)
          INCLUDE NUCLEUSA(IGC226)
/*
//SG15 EXEC LINKS,
// PARM='NCAL,LIST,XREF',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=DCMLIB,P1='(',
//    MOD=IEEPFKEY,P2=')',OBJ=OBJPDS03,CLASS=A
//SYSLIN DD *
    INCLUDE SYSPUNCH(IEEPFKEY)
    NAME  IEEPFKEY(R)
/*
//SG16 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=NUCLEUS,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSB3
//ALPALIB DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.ALPALIB
//SYSLIN DD *
 INCLUDE AOSC5(IEAVAP00)
 ENTRY IEAVAP00
 NAME IEAVNP15(R)
 INCLUDE AOSC5(IEAVNIPM,IEAVNPM2,IEAVNPM3)
 ENTRY IEAVNIPM
 NAME IEAVNIPM(R)
 INCLUDE AOSC5(IEAVNP01)
 NAME IEAVNP01(R)
 INCLUDE AOSC5(IEAVNPA1)
 NAME IEAVNPA1(R)
 INCLUDE AOSC5(IEAVNP02)
 INCLUDE ALPALIB(IGC0001F)
 ALIAS IEAVNPA2
 ALIAS IEAVNPB2
 ALIAS IEAVNPC2
 NAME IEAVNP02(R)
 INCLUDE AOSC5(IEAVNP03)
 NAME IEAVNP03(R)
 INCLUDE AOSC5(ILRASRIM)
 INCLUDE AOSC5(ILRIMMSG)
 INCLUDE AOSC5(IEAVNPB5)
 ENTRY ILRASRIM
 NAME IEAVNP04(R)
 INCLUDE AOSC5(IEAVNP05)
 INCLUDE AOSC5(IEAVNPA5)
 INCLUDE AOSC5(IEAVNPS5)
 INCLUDE AOSC5(ILRQSRIT,ILRIMMSG)
 ENTRY IEAVNP05
 NAME IEAVNP05(R)
 INCLUDE AOSC5(IGFRINIT,IGFCINIT)
 INCLUDE AOSC5(IGFPINIT)
 ENTRY IGFRINIT
 NAME IEAVNP06(R)
 INCLUDE AOSC5(IEAVNPB6)
 NAME IEAVNPB6(R)
 INCLUDE AOSC5(IGFPNSAV)
 NAME IEAVNPC6(R)
 INCLUDE AOSC5(IEAVNP07)
 NAME IEAVNP07(R)
 INCLUDE AOSC5(IEAVNP08)
 ALIAS IEAVNPA8
 ALIAS IEAVNPB8
 ALIAS IEAVNPC8
 NAME IEAVNP08(R)
 INCLUDE AOSC5(IEAVNP09)
 NAME IEAVNP09(R)
 INCLUDE AOSC5(IEAVNP10)
 INCLUDE AOSC5(IRARMCPU)
 INCLUDE AOSC5(IRARMIPS,IRBMFANL)
 ENTRY IEAVNP10
 NAME IEAVNP10(R)
 INCLUDE AOSC5(IEAVNP11)
 NAME IEAVNP11(R)
 INCLUDE AOSC5(IEAVNP12)
 NAME IEAVNP12(R)
 INCLUDE AOSC5(IEAVNP13)
 NAME IEAVNP13(R)
 INCLUDE AOSC5(IEAVNIPX)
 NAME IEAVNIPX(R)
/*
//SG17 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=NUCLEUS,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSC5(IEAVNPA6,IEAVTSDI,IEAVTABI)
 ENTRY IEAVNPA6
 NAME IEAVNPA6(R)
/*
//SG18 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REUS',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=NUCLEUS,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//AOSC5 DD DISP=SHR,VOLUME=(,RETAIN),DSN=SYS1.AOSC5
//SYSLIN DD *
 INCLUDE AOSC5(IEAVNP19)
 NAME IEAVNP19(R)
/*
//SYSGEN5 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
//JOBCAT DD  DISP=SHR,DSN=SYS1.VMASTCAT
//MISC1 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT  DD    SYSOUT=A
//INDMAC DD DSN=SYS1.INDMAC,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=FB,BLKSIZE=19040,LRECL=80),
// SPACE=(CYL,(6,1,71))
//CMDLIB DD DSN=SYS1.CMDLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=U,BLKSIZE=19069),SPACE=(CYL,(6,1,71))
//HELP DD DSN=SYS1.HELP,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=FB,BLKSIZE=19040,LRECL=80),
// SPACE=(CYL,(6,1,71))
//SAMPLIB DD DSN=SYS1.SAMPLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80),SPACE=(CYL,(8,1,35))
//MACLIB DD DSN=SYS1.MACLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=FB,BLKSIZE=19040,LRECL=80),
// SPACE=(CYL,(50,1,120))
//PROCLIB DD DSN=SYS1.PROCLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=FB,BLKSIZE=19040,LRECL=80),
// SPACE=(CYL,(6,1,71))
//TELCMLIB DD DSN=SYS1.TELCMLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=U,BLKSIZE=19069),SPACE=(CYL,(4,1,71))
//UADS DD DSN=SYS1.UADS,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// DCB=(RECFM=FB,DSORG=PO,BLKSIZE=800,LRECL=80),
// SPACE=(CYL,(1,1,35))
//VTAMLIB DD DSN=SYS1.VTAMLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=U,BLKSIZE=19069),SPACE=(CYL,(4,1,35))
//IMAGELIB DD DSN=SYS1.IMAGELIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,SPACE=(CYL,(2,,35)),
// DCB=(RECFM=U,BLKSIZE=1024)
//PARMLIB DD DSN=SYS1.PARMLIB,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,DCB=(RECFM=F,BLKSIZE=80),
// SPACE=(CYL,(6,,40),,CONTIG)
//BRODCAST DD DSN=SYS1.BRODCAST,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// SPACE=(CYL,(1),,CONTIG)
//MANX DD DSN=SYS1.MANX,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,SPACE=(CYL,(5),,CONTIG)
//MANY DD DSN=SYS1.MANY,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,SPACE=(CYL,(5),,CONTIG)
//TCOMMAC DD DSN=SYS1.TCOMMAC,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,
// DCB=(RECFM=FB,BLKSIZE=19040,LRECL=80),
// SPACE=(CYL,(99,10,5))
//DUMP00 DD DSN=SYS1.DUMP00,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSRES),UNIT=3350,
// LABEL=EXPDT=71350,SPACE=(CYL,(30),,CONTIG)
//DUMP01 DD DSN=SYS1.DUMP01,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSDLB),UNIT=3350,
// LABEL=EXPDT=71350,SPACE=(CYL,(30),,CONTIG)
//DUMP02 DD DSN=SYS1.DUMP02,DISP=(,KEEP),
// VOLUME=(,RETAIN,SER=MVSDLB),UNIT=3350,
// LABEL=EXPDT=71350,SPACE=(CYL,(30),,CONTIG)
//SYSIN DD *
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.INDMAC)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.CMDLIB)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.HELP)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.SAMPLIB)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.MACLIB)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.PROCLIB)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.TELCMLIB)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.UADS)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.VTAMLIB)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.IMAGELIB)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.PARMLIB)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.BRODCAST)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.MANX)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.MANY)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.TCOMMAC)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.DUMP00)    -
            VOL (MVSRES)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.DUMP01)    -
            VOL (MVSDLB)     DEVT (3350))
 DEFINE CAT (SYS1.VMASTCAT) -
  NONVSAM ( NAME (SYS1.DUMP02)    -
            VOL (MVSDLB)     DEVT (3350))
/*
//SG2 EXEC PGM=IFCDIP00,COND=(8,LT)
//SERERDS DD   DSN=SYS1.LOGREC,DISP=(NEW,KEEP),
//             VOLUME=(,RETAIN,SER=MVSRES),
//             SPACE=(TRK,(30),,CONTIG),UNIT=3350
//*THE ABOVE STEP WILL INITIALIZE THE SYS1.LOGREC
//*DATA SET ON THE SYSTEM RESIDENCE VOLUME THAT IS
//*THE TARGET OF THIS SYSGEN. AFTER IPL-ING THE
//*NEWLY GENERATED SYSTEM IT WILL BE NECESSARY TO
//*EXECUTE IFCDIP00 AND RE-INITIALIZE SYS1.LOGREC
//*TO ENSURE THAT THE LATEST MAINTENANCE LEVEL
//*SOFTWARE IS USED. ADDITIONAL INFORMATION AS TO
//*THE PARM=FRAMES AND FRAMES DD STATEMENTS
//*REQUIRED WHEN RUNNING ON A 303X TYPE CPU IS
//*CONTAINED IN THE OS/VS2 MVS SYSTEM PROGRAMMING
//*LIBRARY SYS1.LOGREC RECORDING MANUAL.
//SG3 EXEC PGM=IDCAMS,COND=(8,LT),REGION=512K
//SYSPRINT DD  SYSOUT=A
//CATLG DD DSN=SYS1.VMASTCAT,
//  VOL=(,RETAIN,SER=MVSRES),
//             UNIT=3350,DISP=SHR
//TARG     DD  DSN=SYS1.LOGREC,DISP=OLD,
//             VOL=SER=MVSRES,UNIT=3350
//SYSIN    DD  *
 DEFINE NONVSAM (NAME(SYS1.LOGREC) VOL(MVSRES)-
        DEVT(3350)) CAT(SYS1.VMASTCAT)
/*
//SG4 EXEC ASMS,OBJ=OBJPDS03,MOD=IKJEBEPD,CLASS=A
//SYSLIB DD DSN=SYS1.AMODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.ATSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSN=SYS1.AMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSIN  DD  *
      PRINT  ON,NODATA
  SGIKJ0EB  DSTYPE=(PLIF,FORTE,FORTG,FORTH,TEXT,DATA,CLIST,            X
               CNTL,ASM,COBOL,FORTGI,GOFORT,PLI,VSBASIC,               X
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ),                                              XXXXXXXXX
               BLKSIZE=(400,                                      XXXXXXXXX
               400,                                               XXXXXXXXX
               400,                                               XXXXXXXXX
               400,                                               XXXXXXXXX
               3120,                                               XXXXXXXXX
               6160,                                               XXXXXXXXX
               6160,                                               XXXXXXXXX
               6160,                                               XXXXXXXXX
               6160,                                               XXXXXXXXX
               6160,                                               XXXXXXXXX
               400,                                               XXXXXXXXX
               3120,                                               XXXXXXXXX
               6160,                                               XXXXXXXXX
               3120,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0),                                              XXXXXXXXX
               RECFM=(FXDONLY,                                        XXXXXXXXX
               FXDONLY,                                               XXXXXXXXX
               FXDONLY,                                               XXXXXXXXX
               FXDONLY,                                               XXXXXXXXX
               VAR,                                               XXXXXXXXX
               FIXED,                                               XXXXXXXXX
               FIXED,                                               XXXXXXXXX
               FXDONLY,                                               XXXXXXXXX
               FXDONLY,                                               XXXXXXXXX
               FXDONLY,                                               XXXXXXXXX
               FXDONLY,                                               XXXXXXXXX
               VAR,                                               XXXXXXXXX
               FIXED,                                               XXXXXXXXX
               VAR,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ),                                              XXXXXXXXX
               DLRECLF=(80,                                      XXXXXXXXX
               80,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0),                                              XXXXXXXXX
               MLRECLF=(100,                                      XXXXXXXXX
               80,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               80,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0),                                              XXXXXXXXX
               DLRECLV=(0,                                      XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0),                                              XXXXXXXXX
               MLRECLV=(0,                                      XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               104,                                               XXXXXXXXX
               255,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0,                                               XXXXXXXXX
               0),                                              XXXXXXXXX
               TRNSLT=(CAPSONLY,                                       XXXXXXXXX
               CAPSONLY,                                               XXXXXXXXX
               CAPSONLY,                                               XXXXXXXXX
               CAPSONLY,                                               XXXXXXXXX
               ASIS,                                               XXXXXXXXX
               CAPS,                                               XXXXXXXXX
               CAPS,                                               XXXXXXXXX
               CAPS,                                               XXXXXXXXX
               CAPS,                                               XXXXXXXXX
               CAPS,                                               XXXXXXXXX
               CAPSONLY,                                               XXXXXXXXX
               CAPS,                                               XXXXXXXXX
               CAPS,                                               XXXXXXXXX
               CAPSONLY,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ),                                              XXXXXXXXX
               CHKR=(PLIFSCAN,                                         XXXXXXXXX
               IPDSNEXC,                                               XXXXXXXXX
               IPDSNEXC,                                               XXXXXXXXX
               IPDSNEXC,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               IPDSNEXC,                                               XXXXXXXXX
               IPDSNEXC,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ),                                              XXXXXXXXX
               USREXT=(,,,,,,,,,,,,,,                                  X
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ),                                              XXXXXXXXX
               PRMTR=(,                                        XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ASM,                                               XXXXXXXXX
               COBOL,                                               XXXXXXXXX
               FORT,                                               XXXXXXXXX
               GOFORT,                                               XXXXXXXXX
               PLIC,                                               XXXXXXXXX
               VSBASIC,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ),                                              XXXXXXXXX
               DSNSRC=(DATASET,                                       XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               INCORE,                                               XXXXXXXXX
               DATASET,                                               XXXXXXXXX
               INLIST,                                               XXXXXXXXX
               ,                                               XXXXXXXXXX
               ,                                               XXXXXXXXXX
               ,                                               XXXXXXXXXX
               ,                                               XXXXXXXXXX
               ,                                               XXXXXXXXXX
               ,                                               XXXXXXXXXX
               ,                                               XXXXXXXXXX
               ,                                               XXXXXXXXXX
               ,                                               XXXXXXXXXX
               ),                                             XXXXXXXXXXX
               DATEXIT=(,                                  XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ICDQRNME,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               ,                                           XXXXXXXXXXXXX
               )
 END
/*
//SG5 EXEC ASMS,OBJ=OBJPDS03,MOD=IKJEBEIN,CLASS=A
//SYSLIB DD DSN=SYS1.AMODGEN,DISP=(SHR,PASS)
// DD DSN=SYS1.ATSOMAC,DISP=(SHR,PASS),VOLUME=(,RETAIN)
// DD DSN=SYS1.AMACLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSIN  DD  *
      PRINT  ON,NODATA
  SGIKJ0E2  DST=(PLI,COBOL,ASM,TEXT,DATA,CLIST,CNTL,GOFORT,            X
               FORTE,FORTG,FORTGI,FORTH,PLIF,VSBASIC,                  X
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ),                                              XXXXXXXXX
               SUBFD=(,                      YM2741            XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               ,                                               XXXXXXXXX
               )
 END
/*
//MISC6 EXEC PGM=IEBCOPY,REGION=512K,COND=(4,LT)
//SYSUT3 DD DSN=&SYSUT3,SPACE=(1700,(10,5)),UNIT=SYSDA
//SYSUT4 DD DSN=&SYSUT4,SPACE=(460,(30,24)),UNIT=SYSDA
//SYSPRINT DD SPACE=(3630,(500,40),RLSE),
//   DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),SYSOUT=A
//AMACLIB DD DSNAME=SYS1.AMACLIB,DISP=SHR
//MACLIB DD DSN=SYS1.MACLIB,VOL=(,RETAIN,SER=MVSRES),
//             DISP=OLD,UNIT=3350
//AOSB3 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSB3
//AOS20 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS20
//AOS21 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS21
//AOS26 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS26
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//AOSD0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSD0
//IMAGELIB DD DSNAME=SYS1.IMAGELIB,DISP=OLD,
//     UNIT=3350,VOL=(,RETAIN,SER=MVSRES)
//TELCMLIB DD DSN=SYS1.TELCMLIB,DISP=OLD,
//         UNIT=3350,VOL=(,RETAIN,SER=MVSRES)
//CMDLIB   DD VOL=(,RETAIN,SER=MVSRES),DISP=OLD,
//         UNIT=3350,DSN=SYS1.CMDLIB
//ACMDLIB  DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//AHELP    DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AHELP
//HELP     DD DSN=SYS1.HELP,VOL=(,RETAIN,SER=MVSRES),
//         UNIT=3350,DISP=OLD
//AUADS    DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AUADS
//UADS     DD DSN=SYS1.UADS,VOL=(,RETAIN,SER=MVSRES),
//         UNIT=3350,DISP=OLD
//ASAMPLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ASAMPLIB
//SAMPLIB  DD DSN=SYS1.SAMPLIB,UNIT=3350,
//         VOL=(,RETAIN,SER=MVSRES),DISP=OLD
//APARMLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.APARMLIB
//PARMLIB  DD DSNAME=SYS1.PARMLIB,DISP=OLD,
//         UNIT=3350,VOL=(,RETAIN,SER=MVSRES)
//APROCLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.APROCLIB
//PROCLIB  DD DSNAME=SYS1.PROCLIB,DISP=OLD,
//         UNIT=3350,VOL=(,RETAIN,SER=MVSRES)
//ATCAMMAC  DD DSNAME=SYS1.ATCAMMAC,DISP=SHR
//ATSOMAC DD DISP=SHR,DSNAME=SYS1.ATSOMAC
//VTAMLIB  DD DSN=SYS1.VTAMLIB,DISP=OLD,
//    UNIT=3350,VOL=(,RETAIN,SER=MVSRES)
//SYSIN DD *
 COPY OUTDD=PARMLIB,INDD=APARMLIB
 COPY OUTDD=PARMLIB,INDD=APARMLIB
    SELECT MEMBER=((IEAPAKTV,IEAPAK00))
    SELECT MEMBER=((IEABLDTS,IEABLD00))
 COPY OUTDD=PROCLIB,INDD=APROCLIB
 COPY  OUTDD=SAMPLIB,INDD=ASAMPLIB
 COPY OUTDD=HELP,INDD=AHELP
 COPY OUTDD=UADS,INDD=AUADS
 COPY OUTDD=MACLIB,INDD=ATCAMMAC
 COPY OUTDD=MACLIB,INDD=ATSOMAC
    COPY OUTDD=CMDLIB,INDD=AOST4
    SELECT MEMBER=((IKJEFF58,CANCEL))
  COPY  OUTDD=CMDLIB,INDD=ACMDLIB
  SELECT MEMBER=(IKJEHMEM)
  SELECT MEMBER=(IKJEHDS1,LISTDS,LISTD)
  SELECT MEMBER=(IKJEHAL1,LISTALC,LISTA)
  SELECT MEMBER=(IKJEHSIR)
 COPY OUTDD=CMDLIB,INDD=ACMDLIB
 SELECT MEMBER=(LINK,LOADGO,LOAD,AKJLKL02)
  COPY OUTDD=CMDLIB,INDD=ACMDLIB
   SELECT MEMBER=(IKJEBEMS,IKJEBEFC,IKJEBESA,IKJEBESU)
   SELECT MEMBER=(IKJEBECO,IKJEBELT,IKJEBELI,IKJEBEMR)
   SELECT MEMBER=(IKJEBEM5,IKJEBEIP,IKJEBESC)
   SELECT MEMBER=(IKJEBELE,IKJEBECI,IKJEBEUI)
   SELECT MEMBER=(IKJEBEEX,IKJEBEAA,IKJEBEIA)
   SELECT MEMBER=(IKJEBEDE,IKJEBEME,IKJEBEIS)
   SELECT MEMBER=(IKJEBETA,IKJEBEDO,IKJEBEHE)
   SELECT MEMBER=(IKJEBEFO,IKJEBETO,IKJEBEBO,IKJEBEUP)
   SELECT MEMBER=(IKJEBEVE,IKJEBEDA,IKJEBEM6,IKJEBEM7)
   SELECT MEMBER=(IKJEBEM1,IKJEBEM2,IKJEBEM3,IKJEBEM4)
   SELECT MEMBER=(IKJEBERN)
  COPY OUTDD=CMDLIB,INDD=ACMDLIB
   SELECT MEMBER=(IKJEGLDR,IKJEGQFY,IKJEGSYM,IKJEGAT)
   SELECT MEMBER=(IKJEGLST,IKJEGLSA)
   SELECT MEMBER=(IKJEGMAP,IKJEGWHR,IKJEGOFF,IKJEGTCB)
   SELECT MEMBER=(IKJEGDEB,IKJEGPSW,IKJEGDCB,IKJEGEQU)
   SELECT MEMBER=(IKJEGGO,IKJEGRUN,IKJEGCAL,IKJEGDRP)
   SELECT MEMBER=(IKJEGLDF,IKJEGLOD,IKJEGDEL,IKJEGATD)
   SELECT MEMBER=(IKJEGGET,IKJEGFRE,IKJEGCPY)
   SELECT MEMBER=(IKJEGEND,IKJEGCIV)
 COPY OUTDD=TELCMLIB,INDD=AOS20
 SELECT MEMBER=(IECTEDIT)
 SELECT MEMBER=(IECTCHGN)
 SELECT MEMBER=(IECTLERP,IECTLOPN,IECTONLT)
 SELECT MEMBER=(IECTSCAN,IECTTRNS)
 COPY OUTDD=TELCMLIB,INDD=AOS21
 SELECT MEMBER=(IEDQGA,IEDQRS)
 SELECT MEMBER=(IEDIAH,IEDIAM)
 SELECT MEMBER=((IEDIAP,IEDIAP01,R))
 SELECT MEMBER=(IEDIAQ,IEDIAR)
 SELECT MEMBER=(IEDIAS,IEDIAU,IEDNSL,IEDN25)
 SELECT MEMBER=(IEDQAA,IEDQAB,IEDQAC,IEDQAD)
 SELECT MEMBER=(IEDQAE,IEDQAF,IEDQAG,IEDQAH)
 SELECT MEMBER=(IEDQAI,IEDQAJ,IEDQAK,IEDQAL)
 SELECT MEMBER=(IEDQAM,IEDQAN,IEDQAO,IEDQAP)
 SELECT MEMBER=(IEDQAQ,IEDQAR,IEDQAS,IEDQAT)
 SELECT MEMBER=(IEDQAU,IEDQAV,IEDQAW,IEDQAX)
 SELECT MEMBER=(IEDQAY,IEDQAZ,IEDQA0,IEDQA1)
 SELECT MEMBER=(IEDQA2,IEDQA3,IEDQA4,IEDQA5)
 SELECT MEMBER=(IEDQA6,IEDQA7,IEDQA8,IEDQA9)
 SELECT MEMBER=(IEDQBA,IEDQBB,IEDQBC,IEDQBD)
 SELECT MEMBER=(IEDQBE,IEDQBF,IEDQBG,IEDQBH)
 SELECT MEMBER=(IEDQBI,IEDQBJ)
 SELECT MEMBER=(IEDQBL,IEDQBM,IEDQBN,IEDQBO)
 SELECT MEMBER=(IEDQBP,IEDQBQ,IEDQBR,IEDQBT)
 SELECT MEMBER=(IEDQBU,IEDQBV,IEDQBX,IEDQBY)
 SELECT MEMBER=(IEDQBZ,IEDQBUFF)
 SELECT MEMBER=(IEDQB1,IEDQB2,IEDQB3,IEDQB4)
 SELECT MEMBER=(IEDQB7,IEDQEU)
 SELECT MEMBER=(IEDQFA,IEDQFA1,IEDQFA2,IEDQFE)
 SELECT MEMBER=(IEDQGH,IEDQGP,IEDQGR)
 SELECT MEMBER=(IEDQGT)
 SELECT MEMBER=(IEDQHG,IEDQHK,IEDQHM,IEDQHM1)
 SELECT MEMBER=(IEDQHM2)
 SELECT MEMBER=(IEDQKA,IEDQKB,IEDQKC,IEDQKD)
 SELECT MEMBER=(IEDQKE)
 SELECT MEMBER=(IEDQNA)
 SELECT MEMBER=(IEDQUI)
 SELECT MEMBER=(IEDQ10,IEDQ11,IEDQ12,IEDQ13)
 SELECT MEMBER=(IEDQ14,IEDQ16,IEDQ17)
 SELECT MEMBER=(IEDQ18,IEDQ19,IEDQ20,IEDQ21)
 SELECT MEMBER=(IEDQ22,IEDQ23,IEDQ24,IEDQ25)
 SELECT MEMBER=(IEDQ26,IEDQ27,IEDQ28)
 SELECT MEMBER=(IEDSAC,IEDSAI,IEDSAO,IEDSARI)
 SELECT MEMBER=(IEDSNS,IEDTEDIT)
 SELECT MEMBER=(IEDBITN,IEDCMIN,IEDCMOUT)
 SELECT MEMBER=((IEDCSA,IEDIAP03,R))
 SELECT MEMBER=(IEDCSCIN,IEDDFOUT,IEDDVAS)
 SELECT MEMBER=(IEDFSSTB,IEDLUS,IEDMVBFR)
 SELECT MEMBER=(IEDNCU,IEDNCU2,IEDNGD,IEDNID)
 SELECT MEMBER=(IEDNKA,IEDOPTN)
 SELECT MEMBER=(IEDPCIN,IEDPCOUT)
 SELECT MEMBER=(IEDQBS,IEDQFM,IEDQIN)
 SELECT MEMBER=(IEDQSBT,IEDQTL,IEDRQIN)
 SELECT MEMBER=(IEDRSPIN,IEDSCLU,IEDSCPDS)
 SELECT MEMBER=(IEDSCPRP,IEDSCPRQ,IEDSCPSS)
 SELECT MEMBER=(IEDUNBND,IEDUSSTB,IEDXFMI)
 SELECT MEMBER=(IEDXFMO,IEDXTREQ)
 SELECT MEMBER=(IEDAYA,IEDAYC,IEDAYD)
 SELECT MEMBER=(IEDAYAB,IEDAYBX,IEDAYJ)
 SELECT MEMBER=(IEDAYE,IEDAYF)
 SELECT MEMBER=(IEDAYH,IEDAYI,IEDAYL)
 SELECT MEMBER=(IEDAYN,IEDAYQ)
 SELECT MEMBER=(IEDAYM,IEDAYO)
 SELECT MEMBER=(IEDAYP,IEDAYS)
 SELECT MEMBER=(IEDAYT,IEDAYX,IEDAYY,IEDAYZ)
 SELECT MEMBER=(IEDAYV,IEDAYW,IEDQFSC)
 COPY OUTDD=MACLIB,INDD=AMACLIB
 EXCLUDE MEMBER=(RESCN,DSPLY,RDLNE,DEFAREA,DEFCCW)
 EXCLUDE MEMBER=(ENTR,PCKT,CALL3890,FIELD,SPTX)
 EXCLUDE MEMBER=(V,TSI,NSI,OSI,CHI,THI,NHI,OHI,JX)
 EXCLUDE MEMBER=(BCS,BUR,BLS,IA,SOM,STA,SS,SI,ACI)
 EXCLUDE MEMBER=(LCI,CCI,SPH,SPC,SFI,SPI,LSE,LFE,LF)
 EXCLUDE MEMBER=(II,LSW,TI,CST,CT,CI,CA,CVTBL,CSTBL)
 EXCLUDE MEMBER=(JXTBL,IREC,STBL,CTBL,VTBL,DWF,EXT)
 EXCLUDE MEMBER=(IFD,DSGA,DSG,FM,CV)
 EXCLUDE MEMBER=(SBT,SBTBL,EXC)
 EXCLUDE MEMBER=(LAS,LPS,SAS,SPS)
 EXCLUDE MEMBER=(SETDEV)
 COPY OUTDD=VTAMLIB,INDD=AOS26
 SELECT MEMBER=(ISTCRCR4)
 SELECT MEMBER=(ISTINCDT)
 SELECT MEMBER=(ISTINCFE)
 SELECT MEMBER=(ISTINCMS)
 SELECT MEMBER=(ISTORFPO)
 SELECT MEMBER=(ISTRACCR)
 SELECT MEMBER=(ISTNSC00)
 SELECT MEMBER=(ISTSC034)
 SELECT MEMBER=(ISTSDCLM)
 COPY OUTDD=IMAGELIB,INDD=AOSD0
 SELECT MEMBER=((IGG0197J,FCB2STD1))
 SELECT MEMBER=((IGG0197K,FCB2STD2))
 SELECT MEMBER=((IASFCB26,FCB26))
 SELECT MEMBER=((IASFCB28,FCB28))
/*
//SG7 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REFR,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=CMDLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//AOST4 DD DSN=SYS1.AOST4,DISP=SHR,VOLUME=(,RETAIN)
//SYSLIN DD *
  INCLUDE SYSPUNCH(IKJEBEIN)
  ENTRY IKJEBEIN
  ALIAS EDIT
  ALIAS IKJEBEIN
  NAME E(R)
  INCLUDE ACMDLIB(IKJEBEFI,IKJEBESE)
  ENTRY IKJEBEFI
  NAME IKJEBEFI(R)
  INCLUDE ACMDLIB(IKJEBEMA,IKJEBEAT,IKJEBEUT,IKJEBEAE)
  INCLUDE ACMDLIB(IKJEBEEN)
  ALIAS IKJEBEEN,IKJEBEXT
  ENTRY IKJEBEMA
  ALIAS IKJEBEUT
  NAME IKJEBEMA(R)
  INCLUDE ACMDLIB(IKJEBERU,IKJEBEDC)
  ENTRY IKJEBERU
  ALIAS IKJEBEDC
  NAME IKJEBERU(R)
  INCLUDE ACMDLIB(IKJEBERE,IKJEBEDC,IKJEBEDX)
  ALIAS IKJEBRE5
  ALIAS IKJEBEDX
  ENTRY IKJEBERE
  NAME IKJEBERE(R)
  INCLUDE ACMDLIB(IKJEBECH,IKJEBESE)
  ENTRY IKJEBECH
  ALIAS IKJEBESE
  NAME IKJEBECH(R)
  INCLUDE AOST4(IKJEBEMC)
  ALIAS IKJEBEMM
  ENTRY IKJEBEMC
  NAME IKJEBEMC(R)
  INCLUDE AOST4(IKJEBEUN)
  ENTRY IKJEBEUN
  NAME IKJEBEUN(R)
/*
//SG8 EXEC LINKS,
// PARM='NCAL,LIST,XREF,OL,REFR,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=CMDLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//SYSLIN DD *
  INCLUDE SYSPUNCH(IKJEBEPD)
  INCLUDE ACMDLIB(IKJEBEPS)
  ENTRY IKJEBEPS
  NAME IKJEBEPS(R)
/*
//SG9 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,REUS,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=CMDLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//AOST4 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOST4
//SYSLIN DD *
    INCLUDE ACMDLIB(IKJEES10,IKJEES11)
    INCLUDE AOST4(IKJEES20)
    INCLUDE AOST4(IEEVSDIO)
    ORDER IKJEES10(P),IKJEES11
    ORDER IEEVSDIO,IKJEES20
    ENTRY IKJEES10
    ALIAS SE
 NAME SEND(R)
    INCLUDE ACMDLIB(IKJEE100,IKJEE1A0,IKJEE150)
    ENTRY IKJEE100
    ALIAS OPER
 NAME OPERATOR(R)
    INCLUDE ACMDLIB(IKJEFE11,IKJEFE15,IKJEFE16)
    ENTRY IKJEFE11
    ALIAS END,WHEN
 NAME IKJEFE11(R)
    INCLUDE ACMDLIB(IKJEFH01,IKJEFH00,IKJEFH02)
    INCLUDE ACMDLIB(IKJEFH03)
    INCLUDE AOST4(IKJEFF02)
    ENTRY IKJEFH01
    ALIAS H
 NAME HELP(R)
    INCLUDE ACMDLIB(IKJEFT80)
    ALIAS TERM
 NAME TERMINAL(R)
    INCLUDE ACMDLIB(IKJEFT82)
    ALIAS PROF
 NAME PROFILE(R)
    INCLUDE AOST4(IKJCT430,IKJCT431)
    INCLUDE AOST4(IKJCT432,IKJCT435)
    ENTRY IKJCT430
    ALIAS EX
 NAME EXEC(R)
    INCLUDE ACMDLIB(IKJEFF01)
    ENTRY IKJEFF01
    ALIAS SUB
 NAME SUBMIT(R)
    INCLUDE AOST4(IKJEFF56)
    ALIAS IKJEFFCA,ST
 NAME STATUS(R)
    INCLUDE AOST4(IKJEES70,IKJEES74,IKJEES75)
    ENTRY IKJEES70
    ALIAS LISTB
 NAME LISTBC(R)
    INCLUDE ACMDLIB(IKJEFD20)
    ENTRY IKJEFD20
 NAME FREE(R)
    INCLUDE ACMDLIB(IKJEFR00)
    ENTRY IKJEFR00
    ALIAS R
 NAME RUN(R)
    INCLUDE AOST4(IKJEFD30)
    INCLUDE AOST4(IKJEFD31)
    INCLUDE AOST4(IKJEFD32)
    INCLUDE AOST4(IKJEFD33)
    INCLUDE AOST4(IKJEFD34)
    INCLUDE AOST4(IKJEFD35)
    INCLUDE AOST4(IKJEFD36)
    INCLUDE AOST4(IKJEFD37)
    ENTRY IKJEFD30
    ALIAS ALLOC
 NAME ALLOCATE(R)
    INCLUDE ACMDLIB(IKJEFL00)
    ALIAS LOGON
 NAME LOGOFF(R)
    INCLUDE ACMDLIB(IKJEFATT)
    ALIAS ATTR
    ENTRY IKJEFATT
 NAME ATTRIB(R)
    INCLUDE AOST4(IKJCT466)
    ALIAS OUT
    ENTRY IKJCT466
 NAME OUTPUT(R)
 INCLUDE ACMDLIB(IKJEFG00)
 ENTRY IKJEFG00
 ALIAS CALL
 NAME IKJEFG00(R)
/*
//SG10 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REFR,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=CMDLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//SYSLIN DD *
  INCLUDE ACMDLIB(IKJEHREN)
  ALIAS RENAME
  ALIAS REN
  NAME IKJEHREN(R)
  INCLUDE ACMDLIB(IKJEHPRO)
  ALIAS PROTECT
  ALIAS PROT
  NAME IKJEHPRO(R)
  INCLUDE ACMDLIB(IDCAM01)
  ALIAS ALTER,DEFINE,DEF,DELETE,DEL
  ALIAS EXPORT,EXP,IMPORT,IMP,LISTCAT,LISTC
  ALIAS PRINT,REPRO,VERIFY,VFY
  SETCODE AC(1)
  NAME IDCAM01(R)
  INCLUDE ACMDLIB(IDCAM02)
  ALIAS CNVTCAT,CNVTC,BLDINDEX,BIX
  ALIAS LISTCRA,LISTR,EXPORTRA,XPRA,IMPORTRA,MPRA
  ALIAS RESETCAT,RCAT
  SETCODE AC(1)
  NAME IDCAM02(R)
/*
//SG11 EXEC LINKS,
// PARM='NCAL,LIST,XREF,REFR,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=CMDLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//ACMDLIB DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.ACMDLIB
//SYSLIN DD *
  INCLUDE ACMDLIB(IKJEGCVT,IKJEGATN,IKJEGSTA)
  INCLUDE ACMDLIB(IKJEGIO,IKJEGSRH,IKJEGMNL)
  INCLUDE ACMDLIB(IKJEGINT,IKJEGMSG)
  ENTRY  IKJEGINT
  NAME   TEST(R)
  INCLUDE ACMDLIB(IKJEGPCH,IKJEGASN)
  ENTRY  IKJEGPCH
  NAME   IKJEGPCH(R)
/*
//SG12 EXEC LINKS,
// PARM='NCAL,LIST,XREF,RENT,REFR',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=CMDLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//ACMDLIB DD DSNAME=SYS1.ACMDLIB,DISP=SHR,VOLUME=(,RETAIN)
//SYSLIN DD *
 INCLUDE ACMDLIB(AKJLKL01,AKJLKMSG)
 ENTRY AKJLKL01
 ALIAS IKJLKL01
 NAME AKJLKL01(R)
/*
//SG13 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,REUS',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=VTAMLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//AOS26 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOS26
//SYSLIN DD *
 INCLUDE AOS26(ISTINCDP)
 ENTRY ISTINCDP
 ORDER ISTINCDP
 NAME ISTINCDP(R)
 INCLUDE AOS26(ISTINCIP)
 INCLUDE AOS26(ISTINCR5)
 ENTRY ISTINCIP
 ORDER ISTINCIP
 NAME ISTINCIP(R)
 INCLUDE AOS26(ISTORMMG)
 ENTRY ISTORMMG
 ORDER ISTORMMG
 NAME ISTORMMG(R)
 INCLUDE AOS26(ISTIC000)
 INCLUDE AOS26(ISTIC001)
 INCLUDE AOS26(ISTIC002)
 INCLUDE AOS26(ISTIC003)
 INCLUDE AOS26(ISTIC004)
 INCLUDE AOS26(ISTIC005)
 INCLUDE AOS26(ISTIC006)
 INCLUDE AOS26(ISTIC007)
 INCLUDE AOS26(ISTIC008)
 INCLUDE AOS26(ISTIC009)
 INCLUDE AOS26(ISTIC00A)
 INCLUDE AOS26(ISTSC020)
 INCLUDE AOS26(ISTSC021)
 INCLUDE AOS26(ISTSC022)
 INCLUDE AOS26(ISTSC023)
 INCLUDE AOS26(ISTSC024)
 INCLUDE AOS26(ISTSC025)
 INCLUDE AOS26(ISTSC026)
 INCLUDE AOS26(ISTSC027)
 INCLUDE AOS26(ISTSC028)
 INCLUDE AOS26(ISTSC029)
 INCLUDE AOS26(ISTSC02A)
 INCLUDE AOS26(ISTSC02B)
 INCLUDE AOS26(ISTSC02C)
 INCLUDE AOS26(ISTSC02D)
 INCLUDE AOS26(ISTSC02E)
 INCLUDE AOS26(ISTSC02F)
 INCLUDE AOS26(ISTSC030)
 INCLUDE AOS26(ISTSC031)
 INCLUDE AOS26(ISTSC032)
 INCLUDE AOS26(ISTSC033)
 INCLUDE AOS26(ISTTC035)
 INCLUDE AOS26(ISTTC037)
 INCLUDE AOS26(ISTCC010)
 INCLUDE AOS26(ISTCC011)
 INCLUDE AOS26(ISTCC012)
 INCLUDE AOS26(ISTCC013)
 INCLUDE AOS26(ISTCC014)
 INCLUDE AOS26(ISTCC015)
 INCLUDE AOS26(ISTCC016)
 INCLUDE AOS26(ISTEC123)
 INCLUDE AOS26(ISTEC456)
 INCLUDE AOS26(ISTEC789)
 INCLUDE AOS26(ISTEC000)
 ENTRY ISTIC000
 ORDER ISTIC000
 ORDER ISTIC001,ISTIC002,ISTIC003,ISTIC004,ISTIC005
 ORDER ISTIC006,ISTIC007,ISTIC008,ISTIC009,ISTIC00A
 ORDER ISTSC020,ISTSC021,ISTSC022,ISTSC023,ISTSC024
 ORDER ISTSC026,ISTSC027,ISTSC028,ISTSC029
 ORDER ISTSC02A,ISTSC02B,ISTSC02C,ISTSC02D,ISTSC02E
 ORDER ISTSC02F
 ORDER ISTSC030,ISTSC031,ISTSC032,ISTTC035,ISTTC037
 ORDER ISTCC010,ISTCC011,ISTCC012,ISTCC013,ISTCC014
 ORDER ISTCC015,ISTCC016,ISTEC123,ISTEC456,ISTEC789
 ORDER ISTEC000
 NAME ISTOLTEP(R)
 INCLUDE AOS26(ISTATM00)
 NAME ISTATM00(R)
 INCLUDE AOS26(ISTATM10)
 NAME ISTATM10(R)
 INCLUDE AOS26(ISTZLFAB)
 NAME ISTZLFAB(R)
/*
//SG14 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,RENT,SIZE=(600K,80K)',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=CMDLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//AOS32 DD DSN=SYS1.AOS32,DISP=SHR
//SYSLIN DD *
 INCLUDE AOS32(BLSRASCX)
 INCLUDE AOS32(BLSRVPAS)
 ENTRY BLSRASCX
 NAME BLSRASCX(R)
 INCLUDE AOS32(BLSRASM7)
 ENTRY BLSRASM7
 NAME BLSRASM7(R)
 INCLUDE AOS32(BLSRCOMK)
 ENTRY BLSRCOMK
 NAME BLSRCOMK(R)
 INCLUDE AOS32(BLSRCOMP)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVPVA)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSRCOMP
 NAME BLSRCOMP(R)
 INCLUDE AOS32(BLSRCOPY)
 INCLUDE AOS32(BLSRCOHD)
 INCLUDE AOS32(BLSRCOIN)
 INCLUDE AOS32(BLSRCOTA)
 INCLUDE AOS32(BLSUVP31)
 ENTRY BLSRCOPY
 NAME BLSRCOPY(R)
 INCLUDE AOS32(BLSRDUAL)
 INCLUDE AOS32(BLSRDUOP)
 ENTRY BLSRDUAL
 NAME BLSRDUAL(R)
 INCLUDE AOS32(BLSRDUDE)
 ENTRY BLSRDUDE
 NAME BLSRDUDE(R)
 INCLUDE AOS32(BLSRDUDR)
 ENTRY BLSRDUDR
 NAME BLSRDUDR(R)
 INCLUDE AOS32(BLSRDUIN)
 INCLUDE AOS32(BLSRDUIC)
 INCLUDE AOS32(BLSRDUIH)
 INCLUDE AOS32(BLSRDUIS)
 ORDER BLSRDUIN,BLSRDUIS,BLSRDUIH,BLSRDUIC
 ENTRY BLSRDUIN
 NAME BLSRDUIN(R)
 INCLUDE AOS32(BLSRDULS)
 ENTRY BLSRDULS
 NAME BLSRDULS(R)
 INCLUDE AOS32(BLSRDUSC)
 INCLUDE AOS32(BLSUVP99)
 ALIAS SYSDSCAN
 ENTRY BLSRDUSC
 NAME BLSRDUSC(R)
 INCLUDE AOS32(BLSRENQK)
 ENTRY BLSRENQK
 NAME BLSRENQK(R)
 INCLUDE AOS32(BLSREQU)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSREQU
 NAME BLSREQU(R)
 INCLUDE AOS32(BLSRESDR)
 ENTRY BLSRESDR
 NAME BLSRESDR(R)
 INCLUDE AOS32(BLSRESRU)
 ENTRY BLSRESRU
 NAME BLSRESRU(R)
 INCLUDE AOS32(BLSREVAL)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSREVAL
 NAME BLSREVAL(R)
 INCLUDE AOS32(BLSRFIND)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVPVA)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSRFIND
 NAME BLSRFIND(R)
 INCLUDE AOS32(BLSRFMOD)
 ENTRY BLSRFMOD
 NAME BLSRFMOD(R)
 INCLUDE AOS32(BLSRFUCB)
 INCLUDE AOS32(BLSUVPX1)
 ENTRY BLSRFUCB
 NAME BLSRFUCB(R)
 INCLUDE AOS32(BLSRIOSK)
 ENTRY BLSRIOSK
 NAME BLSRIOSK(R)
 INCLUDE AOS32(BLSRLIST)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSRLIST
 NAME BLSRLIST(R)
 INCLUDE AOS32(BLSRLSYM)
 ENTRY BLSRLSYM
 NAME BLSRLSYM(R)
 INCLUDE AOS32(BLSRPHAR)
 ENTRY BLSRPHAR
 NAME BLSRPHAR(R)
 INCLUDE AOS32(BLSRPHGE)
 ENTRY BLSRPHGE
 NAME BLSRPHGE(R)
 INCLUDE AOS32(BLSRRDAR)
 ENTRY BLSRRDAR
 NAME BLSRRDAR(R)
 INCLUDE AOS32(BLSRRDGE)
 ENTRY BLSRRDGE
 NAME BLSRRDGE(R)
 INCLUDE AOS32(BLSRRDPU)
 ENTRY BLSRRDPU
 NAME BLSRRDPU(R)
 INCLUDE AOS32(BLSRRNCH)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSRRNCH
 NAME BLSRRNCH(R)
 INCLUDE AOS32(BLSRSADE)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSRSADE
 NAME BLSRSADE(R)
 INCLUDE AOS32(BLSRSALI)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSRSALI
 NAME BLSRSALI(R)
 INCLUDE AOS32(BLSRSCAN)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVP21)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSRSCAN
 NAME BLSRSCAN(R)
 INCLUDE AOS32(BLSRSETD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVP31)
 ENTRY BLSRSETD
 NAME BLSRSETD(R)
 INCLUDE AOS32(BLSRST00)
 INCLUDE AOS32(BLSRVPCP)
 ENTRY BLSRST00
 NAME BLSRST00(R)
 INCLUDE AOS32(BLSRSUMM)
 INCLUDE AOS32(BLSRSUTC)
 INCLUDE AOS32(BLSRSURB)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPTC)
 ENTRY BLSRSUMM
 NAME BLSRSUMM(R)
 INCLUDE AOS32(BLSRSYRB)
 ENTRY BLSRSYRB
 NAME BLSRSYRB(R)
 INCLUDE AOS32(BLSRTCBX)
 INCLUDE AOS32(BLSRVPAD)
 INCLUDE AOS32(BLSRVPAS)
 INCLUDE AOS32(BLSRVPCP)
 INCLUDE AOS32(BLSUVP31)
 INCLUDE AOS32(BLSUVP32)
 ENTRY BLSRTCBX
 NAME BLSRTCBX(R)
 INCLUDE AOS32(BLSRVRBX)
 ENTRY BLSRVRBX
 NAME BLSRVRBX(R)
 INCLUDE AOS32(BLSRVSLD)
 INCLUDE AOS32(BLSRVPVS)
 ENTRY BLSRVSLD
 ALIAS IPCSDDIR
 NAME BLSRVSLD(R)
 INCLUDE AOS32(BLSR3270)
 INCLUDE AOS32(BLSRVPAS)
 ENTRY BLSR3270
 NAME BLSR3270(R)
 INCLUDE AOS32(BLSSASCB)
 ENTRY BLSSASCB
 NAME BLSSASCB(R)
 INCLUDE AOS32(BLSSASMV)
 ENTRY BLSSASMV
 NAME BLSSASMV(R)
 INCLUDE AOS32(BLSSASVT)
 ENTRY BLSSASVT
 NAME BLSSASVT(R)
 INCLUDE AOS32(BLSSASXB)
 ENTRY BLSSASXB
 NAME BLSSASXB(R)
 INCLUDE AOS32(BLSSCDE)
 ENTRY BLSSCDE
 NAME BLSSCDE(R)
 INCLUDE AOS32(BLSSCOMM)
 ENTRY BLSSCOMM
 NAME BLSSCOMM(R)
 INCLUDE AOS32(BLSSCSD)
 ENTRY BLSSCSD
 NAME BLSSCSD(R)
 INCLUDE AOS32(BLSSCVT)
 ENTRY BLSSCVT
 NAME BLSSCVT(R)
 INCLUDE AOS32(BLSSCVT2)
 ENTRY BLSSCVT2
 NAME BLSSCVT2(R)
 INCLUDE AOS32(BLSSIOC)
 ENTRY BLSSIOC
 NAME BLSSIOC(R)
 INCLUDE AOS32(BLSSIOX)
 ENTRY BLSSIOX
 NAME BLSSIOX(R)
 INCLUDE AOS32(BLSSLCCA)
 ENTRY BLSSLCCA
 NAME BLSSLCCA(R)
 INCLUDE AOS32(BLSSLCCV)
 ENTRY BLSSLCCV
 NAME BLSSLCCV(R)
 INCLUDE AOS32(BLSSLLPA)
 ENTRY BLSSLLPA
 NAME BLSSLLPA(R)
 INCLUDE AOS32(BLSSLPDE)
 ENTRY BLSSLPDE
 NAME BLSSLPDE(R)
 INCLUDE AOS32(BLSSPCCA)
 ENTRY BLSSPCCA
 NAME BLSSPCCA(R)
 INCLUDE AOS32(BLSSPCCV)
 ENTRY BLSSPCCV
 NAME BLSSPCCV(R)
 INCLUDE AOS32(BLSSPFT)
 ENTRY BLSSPFT
 NAME BLSSPFT(R)
 INCLUDE AOS32(BLSSPGTE)
 ENTRY BLSSPGTE
 NAME BLSSPGTE(R)
 INCLUDE AOS32(BLSSPRIV)
 ENTRY BLSSPRIV
 NAME BLSSPRIV(R)
 INCLUDE AOS32(BLSSPSA)
 ENTRY BLSSPSA
 NAME BLSSPSA(R)
 INCLUDE AOS32(BLSSPVT)
 ENTRY BLSSPVT
 NAME BLSSPVT(R)
 INCLUDE AOS32(BLSSSGTE)
 ENTRY BLSSSGTE
 NAME BLSSSGTE(R)
 INCLUDE AOS32(BLSSTCB)
 ENTRY BLSSTCB
 NAME BLSSTCB(R)
 INCLUDE AOS32(BLSSUCB)
 ENTRY BLSSUCB
 NAME BLSSUCB(R)
 INCLUDE AOS32(BLSSUCM)
 ENTRY BLSSUCM
 NAME BLSSUCM(R)
 INCLUDE AOS32(BLSSXTLS)
 ENTRY BLSSXTLS
 NAME BLSSXTLS(R)
 INCLUDE AOS32(BLSTB4)
 ENTRY BLSTB4
 NAME BLSTB4(R)
 INCLUDE AOS32(BLSTB5)
 ENTRY BLSTB5
 NAME BLSTB5(R)
 INCLUDE AOS32(BLSTM4)
 ENTRY BLSTM4
 NAME BLSTM4(R)
 INCLUDE AOS32(BLSTM5)
 ENTRY BLSTM5
 NAME BLSTM5(R)
 INCLUDE AOS32(BLSTU4)
 ENTRY BLSTU4
 NAME BLSTU4(R)
 INCLUDE AOS32(BLSTU5)
 ENTRY BLSTU5
 NAME BLSTU5(R)
 INCLUDE AOS32(BLST04A)
 ENTRY BLST04A
 NAME BLST04A(R)
 INCLUDE AOS32(BLST04BS)
 ENTRY BLST04BS
 ALIAS BLST04C,BLST04H
 NAME BLST04BS(R)
 INCLUDE AOS32(BLST04CV)
 ENTRY BLST04CV
 ALIAS BLST04CR
 NAME BLST04CV(R)
 INCLUDE AOS32(BLSUHELP)
 NAME BLSUHELP(R)
 INCLUDE AOS32(BLSUMTOD)
 ENTRY BLSUMTOD
 NAME BLSUMTOD(R)
 INCLUDE AOS32(BLSUNOTE)
 ENTRY BLSUNOTE
 NAME BLSUNOTE(R)
 INCLUDE AOS32(BLSUTSO)
 INCLUDE AOS32(BLSUGWDM)
 ENTRY BLSUTSO
 NAME BLSUTSO(R)
 INCLUDE AOS32(BLSVASCB)
 ENTRY BLSVASCB
 NAME BLSVASCB(R)
 INCLUDE AOS32(BLSVASVT)
 ENTRY BLSVASVT
 NAME BLSVASVT(R)
 INCLUDE AOS32(BLSVASXB)
 ENTRY BLSVASXB
 NAME BLSVASXB(R)
 INCLUDE AOS32(BLSVCDE)
 ENTRY BLSVCDE
 NAME BLSVCDE(R)
 INCLUDE AOS32(BLSVCVT)
 ENTRY BLSVCVT
 NAME BLSVCVT(R)
 INCLUDE AOS32(BLSVCVT2)
 ENTRY BLSVCVT2
 NAME BLSVCVT2(R)
 INCLUDE AOS32(BLSVIOC)
 ENTRY BLSVIOC
 NAME BLSVIOC(R)
 INCLUDE AOS32(BLSVIOX)
 ENTRY BLSVIOX
 NAME BLSVIOX(R)
 INCLUDE AOS32(BLSVLCCA)
 ENTRY BLSVLCCA
 NAME BLSVLCCA(R)
 INCLUDE AOS32(BLSVLCCV)
 ENTRY BLSVLCCV
 NAME BLSVLCCV(R)
 INCLUDE AOS32(BLSVLPDE)
 ENTRY BLSVLPDE
 NAME BLSVLPDE(R)
 INCLUDE AOS32(BLSVPCCA)
 ENTRY BLSVPCCA
 NAME BLSVPCCA(R)
 INCLUDE AOS32(BLSVPCCV)
 ENTRY BLSVPCCV
 NAME BLSVPCCV(R)
 INCLUDE AOS32(BLSVPGTE)
 ENTRY BLSVPGTE
 NAME BLSVPGTE(R)
 INCLUDE AOS32(BLSVPSA)
 ENTRY BLSVPSA
 NAME BLSVPSA(R)
 INCLUDE AOS32(BLSVPVT)
 ENTRY BLSVPVT
 NAME BLSVPVT(R)
 INCLUDE AOS32(BLSVQCBA)
 ENTRY BLSVQCBA
 NAME BLSVQCBA(R)
 INCLUDE AOS32(BLSVQCBB)
 ENTRY BLSVQCBB
 NAME BLSVQCBB(R)
 INCLUDE AOS32(BLSVQEL)
 ENTRY BLSVQEL
 NAME BLSVQEL(R)
 INCLUDE AOS32(BLSVRB)
 ENTRY BLSVRB
 NAME BLSVRB(R)
 INCLUDE AOS32(BLSVSGTE)
 ENTRY BLSVSGTE
 NAME BLSVSGTE(R)
 INCLUDE AOS32(BLSVTCB)
 ENTRY BLSVTCB
 NAME BLSVTCB(R)
 INCLUDE AOS32(BLSVUCB)
 ENTRY BLSVUCB
 NAME BLSVUCB(R)
 INCLUDE AOS32(BLSVXTLS)
 ENTRY BLSVXTLS
 NAME BLSVXTLS(R)
 INCLUDE AOS32(BLSDIFP0)
 INCLUDE AOS32(BLSUINI1)
 INCLUDE AOS32(BLSUPROP)
 INCLUDE AOS32(BLSUVSOP)
 INCLUDE AOS32(BLSUVSOQ)
 ORDER BLSUINI1
 ENTRY BLSUINI1
 NAME BLSUINI1(R)
 INCLUDE AOS32(BLSUINI2)
 INCLUDE AOS32(BLSDDEQP)
 INCLUDE AOS32(BLSDENQP)
 INCLUDE AOS32(BLSDSTAE)
 INCLUDE AOS32(BLSDTIME)
 INCLUDE AOS32(BLSDVECT)
 INCLUDE AOS32(BLSEAUTH)
 INCLUDE AOS32(BLSELPCC)
 INCLUDE AOS32(BLSELPCL)
 INCLUDE AOS32(BLSELPCT)
 INCLUDE AOS32(BLSELPFM)
 INCLUDE AOS32(BLSELPFR)
 INCLUDE AOS32(BLSELPOP)
 INCLUDE AOS32(BLSFBP00)
 INCLUDE AOS32(BLSFCLOS)
 INCLUDE AOS32(BLSFCN00)
 INCLUDE AOS32(BLSFDALL)
 INCLUDE AOS32(BLSFDEL)
 INCLUDE AOS32(BLSFDERS)
 INCLUDE AOS32(BLSFDF00)
 INCLUDE AOS32(BLSFDS00)
 INCLUDE AOS32(BLSFERAS)
 INCLUDE AOS32(BLSFFL00)
 INCLUDE AOS32(BLSFFP00)
 INCLUDE AOS32(BLSFGD00)
 INCLUDE AOS32(BLSFGG00)
 INCLUDE AOS32(BLSFGP00)
 INCLUDE AOS32(BLSFLALL)
 INCLUDE AOS32(BLSFLP00)
 INCLUDE AOS32(BLSFND00)
 INCLUDE AOS32(BLSFND01)
 INCLUDE AOS32(BLSFOD00)
 INCLUDE AOS32(BLSFOPEN)
 INCLUDE AOS32(BLSFPERA)
 INCLUDE AOS32(BLSFPERS)
 INCLUDE AOS32(BLSFPS00)
 INCLUDE AOS32(BLSFSCRT)
 INCLUDE AOS32(BLSFSD00)
 INCLUDE AOS32(BLSFSL00)
 INCLUDE AOS32(BLSFTL00)
 INCLUDE AOS32(BLSFUD00)
 INCLUDE AOS32(BLSFUP00)
 INCLUDE AOS32(BLSRACC)
 INCLUDE AOS32(BLSRACCL)
 INCLUDE AOS32(BLSRACCQ)
 INCLUDE AOS32(BLSRADDP)
 INCLUDE AOS32(BLSRADDR)
 INCLUDE AOS32(BLSRADDS)
 INCLUDE AOS32(BLSRADDT)
 INCLUDE AOS32(BLSRADDU)
 INCLUDE AOS32(BLSRADD1)
 INCLUDE AOS32(BLSRADD2)
 INCLUDE AOS32(BLSRADD3)
 INCLUDE AOS32(BLSRADD4)
 INCLUDE AOS32(BLSRCOCL)
 INCLUDE AOS32(BLSRDUCC)
 INCLUDE AOS32(BLSRDUCK)
 INCLUDE AOS32(BLSRESAR)
 INCLUDE AOS32(BLSRESCK)
 INCLUDE AOS32(BLSRESGC)
 INCLUDE AOS32(BLSRESGE)
 INCLUDE AOS32(BLSRESGQ)
 INCLUDE AOS32(BLSRESGU)
 INCLUDE AOS32(BLSRESPU)
 INCLUDE AOS32(BLSRESSA)
 INCLUDE AOS32(BLSRMSGA)
 INCLUDE AOS32(BLSRMSGB)
 INCLUDE AOS32(BLSRMSGD)
 INCLUDE AOS32(BLSRPADS)
 INCLUDE AOS32(BLSRRAAR)
 INCLUDE AOS32(BLSRRACR)
 INCLUDE AOS32(BLSRRACV)
 INCLUDE AOS32(BLSRRAGE)
 INCLUDE AOS32(BLSRSAAR)
 INCLUDE AOS32(BLSRSAG)
 INCLUDE AOS32(BLSRSAGC)
 INCLUDE AOS32(BLSRSAGE)
 INCLUDE AOS32(BLSRSAGN)
 INCLUDE AOS32(BLSRSAGQ)
 INCLUDE AOS32(BLSRSAGU)
 INCLUDE AOS32(BLSRSAPC)
 INCLUDE AOS32(BLSRSAPU)
 INCLUDE AOS32(BLSRVECT)
 INCLUDE AOS32(BLSTB)
 INCLUDE AOS32(BLSTC)
 INCLUDE AOS32(BLSTF)
 INCLUDE AOS32(BLSTM)
 INCLUDE AOS32(BLSTR)
 INCLUDE AOS32(BLSTU)
 INCLUDE AOS32(BLSTY)
 INCLUDE AOS32(BLST01)
 INCLUDE AOS32(BLST02)
 INCLUDE AOS32(BLST03)
 INCLUDE AOS32(BLST04)
 INCLUDE AOS32(BLST05)
 INCLUDE AOS32(BLST06)
 INCLUDE AOS32(BLST08)
 INCLUDE AOS32(BLSUBLDD)
 INCLUDE AOS32(BLSUBLDL)
 INCLUDE AOS32(BLSUGWDM)
 INCLUDE AOS32(BLSUMON)
 INCLUDE AOS32(BLSUMONA)
 INCLUDE AOS32(BLSUMONC)
 INCLUDE AOS32(BLSUMOND)
 INCLUDE AOS32(BLSUMONI)
 INCLUDE AOS32(BLSUMONL)
 INCLUDE AOS32(BLSUMONT)
 INCLUDE AOS32(BLSUMONX)
 INCLUDE AOS32(BLSUMON2)
 INCLUDE AOS32(BLSUMPKN)
 INCLUDE AOS32(BLSUMPK1)
 INCLUDE AOS32(BLSUPARI)
 INCLUDE AOS32(BLSUPARU)
 INCLUDE AOS32(BLSUPGMC)
 INCLUDE AOS32(BLSUPGMD)
 INCLUDE AOS32(BLSUPGML)
 INCLUDE AOS32(BLSUPGMR)
 INCLUDE AOS32(BLSUPRTA)
 INCLUDE AOS32(BLSUPRTN)
 INCLUDE AOS32(BLSUPRTT)
 INCLUDE AOS32(BLSUPUTA)
 INCLUDE AOS32(BLSUPUTC)
 INCLUDE AOS32(BLSUPUTD)
 INCLUDE AOS32(BLSUPUTO)
 INCLUDE AOS32(BLSUPUTT)
 INCLUDE AOS32(BLSUPUTV)
 INCLUDE AOS32(BLSUTRMA)
 INCLUDE AOS32(BLSUVECT)
 INCLUDE AOS32(BLSUVSAR)
 INCLUDE AOS32(BLSUVSCR)
 INCLUDE AOS32(BLSUVSEN)
 INCLUDE AOS32(BLSUVSER)
 INCLUDE AOS32(BLSUVSGE)
 INCLUDE AOS32(BLSUVSGU)
 INCLUDE AOS32(BLSUVSMR)
 INCLUDE AOS32(BLSUVSPO)
 INCLUDE AOS32(BLSUVSPU)
 INCLUDE AOS32(BLSUZZ2R)
 ORDER BLSUINI2,BLSRCOCL
 ORDER BLSRDUCC,BLSUBLDD,BLSUMONI,BLSRVECT
 ORDER BLSUVECT,BLSUMON2,BLSUMON,BLSUMONL,BLSUMOND
 ORDER BLSUGWDM
 ORDER BLSUZZ2R,BLSRDUCK,BLSUPARI,BLSUBLDL,BLSUPGMC
 ORDER BLSUPGMD,BLSUPGML,BLSUPGMR,BLSUMONA,BLSUMONC
 ORDER BLSUMONT,BLSUMONX,BLSUMPK1,BLSUMPKN,BLSUPARU
 ORDER BLSUPUTO,BLSUPUTV,BLSUPUTA,BLSUTRMA,BLSUPRTA
 ORDER BLSRPADS,BLSRMSGA,BLSRMSGB,BLSRMSGD,BLST01
 ORDER BLST03,BLSTU,BLSTM,BLSTB,BLSTC
 ORDER BLST08,BLSRACC,BLSRACCQ,BLSRRAAR,BLSRRAGE
 ORDER BLSRRACR,BLSRRACV,BLSUVSAR,BLSUVSCR,BLSUVSEN
 ORDER BLSUVSER,BLSUVSGE,BLSUVSPO,BLSUVSPU,BLSRESAR
 ORDER BLSRESCK,BLSRESGC,BLSRESGE,BLSRESGQ,BLSRESGU
 ORDER BLSRESPU,BLSRESSA
 ORDER BLSRSAAR,BLSRSAGC,BLSRSAGE,BLSRSAG
 ORDER BLSRSAGN,BLSRSAGQ,BLSRSAGU,BLSRSAPC,BLSRSAPU
 ORDER BLSRADDP,BLSRADDR,BLSRADDS,BLSRADDT,BLSRADDU
 ORDER BLSRADD1,BLSRADD2,BLSRADD3,BLSRADD4,BLSTF
 ORDER BLSTR,BLSTY,BLST02,BLST04,BLST05
 ORDER BLST06,BLSUPRTN,BLSUPRTT,BLSUPUTC,BLSUPUTD
 ORDER BLSUVSGU,BLSUVSMR,BLSRACCL,BLSUPUTT,BLSDVECT
 ENTRY BLSUINI2
 NAME BLSUINI2(R)
 INCLUDE AOS32(BLSU)
 INCLUDE AOS32(BLSCAAMS)
 INCLUDE AOS32(BLSCABLD)
 INCLUDE AOS32(BLSCADST)
 INCLUDE AOS32(BLSCADYN)
 INCLUDE AOS32(BLSCAINT)
 INCLUDE AOS32(BLSCALOC)
 INCLUDE AOS32(BLSCAMER)
 INCLUDE AOS32(BLSCAMIN)
 INCLUDE AOS32(BLSCAMOD)
 INCLUDE AOS32(BLSCAMPR)
 INCLUDE AOS32(BLSCANAL)
 INCLUDE AOS32(BLSCANLE)
 INCLUDE AOS32(BLSCANLI)
 INCLUDE AOS32(BLSCCLSE)
 INCLUDE AOS32(BLSCENDD)
 INCLUDE AOS32(BLSCERSE)
 INCLUDE AOS32(BLSCFAMS)
 INCLUDE AOS32(BLSCFDYN)
 INCLUDE AOS32(BLSCFREE)
 INCLUDE AOS32(BLSCGETT)
 INCLUDE AOS32(BLSCGMF)
 INCLUDE AOS32(BLSCHOK)
 INCLUDE AOS32(BLSCOPEN)
 INCLUDE AOS32(BLSCPOIN)
 INCLUDE AOS32(BLSCPUTT)
 INCLUDE AOS32(BLSCRECV)
 INCLUDE AOS32(BLSCRFM)
 INCLUDE AOS32(BLSCRQST)
 INCLUDE AOS32(BLSCRTCB)
 INCLUDE AOS32(BLSCSETT)
 INCLUDE AOS32(BLSCVALT)
 INCLUDE AOS32(BLSDADSD)
 INCLUDE AOS32(BLSDAPDR)
 INCLUDE AOS32(BLSDENQ0)
 INCLUDE AOS32(BLSDFDSD)
 INCLUDE AOS32(BLSDFPDR)
 INCLUDE AOS32(BLSDMSGS)
 INCLUDE AOS32(BLSDMSG0)
 INCLUDE AOS32(BLSDWAIT)
 INCLUDE AOS32(BLSRDUCL)
 INCLUDE AOS32(BLSUALLO)
 INCLUDE AOS32(BLSUDYNA)
 INCLUDE AOS32(BLSUIT01)
 INCLUDE AOS32(BLSUIT02)
 INCLUDE AOS32(BLSUIT03)
 INCLUDE AOS32(BLSUPRCL)
 INCLUDE AOS32(BLSUPUTN)
 INCLUDE AOS32(BLSUSTAE)
 INCLUDE AOS32(BLSUSTAI)
 INCLUDE AOS32(BLSUTRMN)
 INCLUDE AOS32(BLSUTRMO)
 INCLUDE AOS32(BLSUTRMV)
 INCLUDE AOS32(BLSUVSCL)
 INCLUDE AOS32(BLSUZZ2C)
 INCLUDE AOS32(BLSUZZ2D)
 ORDER BLSU
 ENTRY BLSU
 ALIAS IPCS
 NAME BLSU(R)
 INCLUDE AOS32(BLSDC070)
 INCLUDE AOS32(BLSDC128)
 INCLUDE AOS32(BLSDC600)
 INCLUDE AOS32(BLSDDT00)
 INCLUDE AOS32(BLSDSV00)
 INCLUDE AOS32(BLSDTIME)
 INCLUDE AOS32(BLSDTM00)
 INCLUDE AOS32(BLSEADPR)
 INCLUDE AOS32(BLSEADP1)
 ENTRY BLSEADPR
 NAME BLSEADPR(R)
 INCLUDE AOS32(BLSEDELC)
 INCLUDE AOS32(BLSEDEL0)
 INCLUDE AOS32(BLSEDEL1)
 INCLUDE AOS32(BLSFDDDP)
 ENTRY BLSEDEL0
 NAME BLSEDEL0(R)
 INCLUDE AOS32(BLSDPC00)
 INCLUDE AOS32(BLSDSV00)
 INCLUDE AOS32(BLSELPDR)
 INCLUDE AOS32(BLSELP00)
 ENTRY BLSELP00
 NAME BLSELP00(R)
 INCLUDE AOS32(BLSDC070)
 INCLUDE AOS32(BLSDC128)
 INCLUDE AOS32(BLSDC600)
 INCLUDE AOS32(BLSDDT00)
 INCLUDE AOS32(BLSDSV00)
 INCLUDE AOS32(BLSDTIME)
 INCLUDE AOS32(BLSDTM00)
 INCLUDE AOS32(BLSEADP1)
 INCLUDE AOS32(BLSEMDPR)
 INCLUDE AOS32(BLSEMDP1)
 ENTRY BLSEMDPR
 NAME BLSEMDPR(R)
 INCLUDE AOS32(BLSDC600)
 INCLUDE AOS32(BLSFAD00)
 INCLUDE AOS32(BLSFAV00)
 ENTRY BLSFAD00
 NAME BLSFAD00(R)
 INCLUDE AOS32(BLSELPDS)
 INCLUDE AOS32(BLSFCONF)
 INCLUDE AOS32(BLSFDD00)
 INCLUDE AOS32(BLSFLONE)
 INCLUDE AOS32(BLSFPARS)
 INCLUDE AOS32(BLSFVRFY)
 ENTRY BLSFDD00
 NAME BLSFDD00(R)
 INCLUDE AOS32(BLSFLD00)
 ENTRY BLSFLD00
 NAME BLSFLD00(R)
 INCLUDE AOS32(BLSDC600)
 INCLUDE AOS32(BLSFMD00)
 ENTRY BLSFMD00
 NAME BLSFMD00(R)
/*
//SG15 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,REUS,SIZE=(100K,20K)',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=CMDLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//AOS32 DD DSN=SYS1.AOS32,DISP=SHR
//SYSLIN DD *
 INCLUDE AOS32(BLSUPUT)
 ENTRY BLSUPUT
 ALIAS BLSUZZ1
 NAME BLSUPUT(R)
/*
//SG16 EXEC LINKS,
// PARM='NCAL,LIST,XREF,LET,AC=1',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=TELCMLIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//AOS29 DD DSN=SYS1.AOS29,DISP=SHR
//SYSLIN DD *
 INCLUDE AOS29(BNGTQEMA)
 ENTRY BNGTQEMA
 NAME BNGTQEMA(R)
/*
//SG17 EXEC LINKS,
// PARM='NCAL,LIST,XREF,OL,RENT',
//    UNIT='3350',SER=MVSRES,N=SYS1,NAME=IMAGELIB,P1=' ',
//    MOD=,P2=' ',OBJ=OBJPDS03,CLASS=A
//AOSD0 DD DISP=SHR,VOLUME=(,RETAIN),DSNAME=SYS1.AOSD0
//SYSLIN DD *
  ALIAS   UCS2AN
  REPLACE IGGNA11
  CHANGE  IGGDA11(UCS2A11)
  INCLUDE  AOSD0(IGG2A11)
  NAME   UCS2A11(R)
  ALIAS   UCS2HN
  REPLACE IGGNH11
  CHANGE  IGGDH11(UCS2H11)
  INCLUDE  AOSD0(IGG2H11)
  NAME   UCS2H11(R)
  REPLACE IGGNG11
  CHANGE  IGGDG11(UCS2G11)
  INCLUDE  AOSD0(IGG2G11)
  NAME   UCS2G11(R)
  ALIAS   UCS2PN
  ALIAS   UCS2RN
  ALIAS   UCS2QN
  REPLACE IGGNP11
  CHANGE  IGGDP11(UCS2P11)
  INCLUDE  AOSD0(IGG2P11)
  NAME   UCS2P11(R)
  ALIAS   UCS2TN
  REPLACE IGGNT11
  CHANGE  IGGDT11(UCS2T11)
  INCLUDE  AOSD0(IGG2T11)
  NAME   UCS2T11(R)
/*
//SG18 EXEC PGM=IEBUPDTE,PARM=NEW,COND=(4,LT)
//SYSPRINT  DD  SYSOUT=A
//SYSUT2 DD DISP=OLD,DSN=SYS1.PARMLIB,UNIT=3350,VOL=SER=MVSRES
//SYSIN DD DATA
./   ADD  NAME=IEASYS00,LIST=ALL
./   NUMBER  NEW1=01,INCR=05
 REAL=128,
 CSA=2048,
 SQA=3,
 APF=00,
 PAGNUM=(1,1),
 DUPLEX=SYS1.DUPLEX,
 SWAP=SYS1.PAGES01,
 BLDLF=00,
 HARDCPY=(30E,ALL,CMDS),
 PAGE=(SYS1.PAGELPA,                                                   X
               SYS1.PAGECSA,                                           X
               SYS1.PAGEL01,                                           X
               SYS1.PAGEL02)
./   ENDUP
/*
//SG19 EXEC PGM=IEBUPDTE,PARM=NEW,COND=(4,LT)
//SYSPRINT  DD  SYSOUT=A
//SYSUT2 DD DISP=OLD,DSN=SYS1.PARMLIB,UNIT=3350,VOL=SER=MVSRES
//SYSIN DD DATA
./   ADD NAME=IEAAPF00,LIST=ALL
./   NUMBER NEW1=01,INCR=05
 SYS1.VTAMLIB MVSRES,
 SYS1.INDMAC MVSRES
./   ENDUP
/*
//SG20 EXEC PGM=IDCAMS,REGION=512K
//STEPCAT  DD  DSNAME=SYS1.VMASTCAT,DISP=SHR
//SYSPRINT DD  SYSOUT=A
//STGINDEX DD  VOL=SER=MVSRES,UNIT=3350,DISP=OLD
//PAGE1   DD  VOL=SER=PAGE00,UNIT=3340,DISP=OLD
//PAGE2   DD  VOL=SER=PAGE01,UNIT=3340,DISP=OLD
//PAGE3   DD  VOL=SER=PAGE01,UNIT=3340,DISP=OLD
//PAGE4   DD  VOL=SER=PAGE00,UNIT=3340,DISP=OLD
//SWAP1  DD  VOL=SER=MVSDLB,UNIT=3350,DISP=OLD
//DUPLEX  DD  VOL=SER=PAGE00,UNIT=3340,DISP=OLD
//SYSIN    DD  *
   DEFINE SPACE -
       (VOLUME(MVSRES) -
       FILE(STGINDEX) -
       CYLINDERS(2))
  DEFINE CLUSTER -
              (NAME(SYS1.STGINDEX) -
               FILE(STGINDEX) -
               KEYS(12,8) -
               CYLINDERS(1) -
               BUFFERSPACE(5120) -
               RECORDSIZE(2041,2041) -
               VOLUME(MVSRES) -
               REUSE) -
         DATA (CONTROLINTERVALSIZE(2048)) -
         INDEX (CONTROLINTERVALSIZE(1024))
  DEFINE PAGESPACE -
              (NAME(SYS1.PAGELPA) -
               FILE(PAGE1) -
               CYLINDERS(120) -
               VOLUME(PAGE00) -
               UNIQUE)
  DEFINE PAGESPACE -
              (NAME(SYS1.PAGECSA) -
               FILE(PAGE2) -
               CYLINDERS(60) -
               VOLUME(PAGE01) -
               UNIQUE)
  DEFINE PAGESPACE -
              (NAME(SYS1.PAGEL01) -
               FILE(PAGE3) -
               CYLINDERS(600) -
               VOLUME(PAGE01) -
               UNIQUE)
  DEFINE PAGESPACE -
              (NAME(SYS1.PAGEL02) -
               FILE(PAGE4) -
               CYLINDERS(400) -
               VOLUME(PAGE00) -
               UNIQUE)
  DEFINE PAGESPACE -
              (NAME(SYS1.PAGES01) -
              FILE(SWAP1) -
              CYLINDERS(20) -
              VOLUME(MVSDLB) -
              UNIQUE -
              SWAP)
  DEFINE PAGESPACE -
              (NAME(SYS1.DUPLEX) -
              FILE(DUPLEX) -
              CYLINDERS(140) -
              VOLUME(PAGE00) -
              UNIQUE)
/*
//SYSGEN6 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
//     TIME=1439
//JOBCAT DD  DISP=SHR,DSN=SYS1.VMASTCAT
//LIST1 EXEC PGM=IEHLIST
//SYSPRINT DD SPACE=(121,(1500,300),RLSE),
//    DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),SYSOUT=A
//CMDLIB   DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//HELP     DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//DCMLIB   DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//IMAGELIB DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//LPALIB   DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//LINKLIB  DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//NUCLEUS  DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//MACLIB   DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//PARMLIB  DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//PROCLIB  DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//SAMPLIB  DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//SVCLIB   DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//UADS     DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//TELCMLIB DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//VTAMLIB  DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//TCOMMAC  DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//STGINDEX DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//CATALOG  DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//BRODCAST DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//MANX     DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//MANY     DD VOL=(,RETAIN,SER=MVSRES),UNIT=3350,DISP=SHR
//SYSIN  DD  *
 LISTVTOC DUMP,VOL=3350=MVSRES
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.CMDLIB,FORMAT
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.HELP
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.DCMLIB,FORMAT
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.IMAGELIB,FORMAT
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.LINKLIB,FORMAT
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.LPALIB,FORMAT
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.NUCLEUS,FORMAT
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.MACLIB
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.PARMLIB
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.PROCLIB
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.SAMPLIB
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.SVCLIB,FORMAT
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.UADS
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.TELCMLIB,FORMAT
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.VTAMLIB,FORMAT
 LISTPDS VOL=3350=MVSRES,DSNAME=SYS1.TCOMMAC
/*
//LIST2 EXEC PGM=IDCAMS,REGION=512K,COND=(8,LT)
//STEPCAT DD DISP=SHR,DSN=SYS1.VMASTCAT
//SYSPRINT DD SPACE=(121,(500,100),RLSE),
//    DCB=(RECFM=FB,LRECL=121,BLKSIZE=121),SYSOUT=A
//SYSIN  DD  *
 LISTCAT CAT(SYS1.VMASTCAT) VOLUME
/*
//STEPY EXEC PGM=IEFBR14,REGION=512K
//SYSPRINT DD SYSOUT=A
//CATLG DD DSNAME=SYS1.VMASTCAT,
// UNIT=3350,VOL=SER=MVSRES,DISP=OLD
//SYSIN DD *
         EXPORT -
         SYS1.VMASTCAT -
         DISCONNECT;
//STEPZ1 EXEC PGM=IEHPROGM
//DD2 DD DISP=OLD,
// VOL=SER=MVSRES,UNIT=3350
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
         SCRATCH DSNAME=SYS1.NUCLEUS,VOL=3350=MVSRES,MEMBER=SYSCATLG
/*
//STEPZ2 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT2 DD DSN=SYS1.NUCLEUS(SYSCATLG),
// DISP=(MOD,KEEP),DCB=(BLKSIZE=19069),
// VOL=SER=MVSRES,UNIT=3350
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD *
MVSRES    SYS1.VMASTCAT
/*

