zOs/TX/M2UTSRE0

//A540769W JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,                  00020004
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*** ddl fragments     to pbg                                          00040003
//DDL      EXEC PGM=IEFBR14
//SYSIN    DD *
set current sqlid = 'S100447';
alter tablespace  qz92a1t.am2utsa  drop pending changes ;
alter table      qz92crt.TQZ91M2UTSA
    alter c3 set data type char(13);
alter table      qz92crt.TQZM2UTSA
    add c4 char(10) not null with default;
alter tablespace  qz92a1t.am2utsa  maxpartitions 1 ;
alter tablespace  qz92a1t.am2utsa  dssize 16 g ;
alter tablespace  qz92a1t.am2utsa  segsize 64 ;
alter table qz92crt.TQZ91M2UTSA alter partition 2 ending('k  ')  ;
//REO EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP4G,'A540769X.REORG'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DP4G.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
     LISTDEF LST  INCLUDE TABLESPACE QZ92A1T.AM2UTSA
     REORG TABLESPACE LIST LST
         LOG NO
         SHRLEVEL CHANGE
         SORTDATA NO RECLUSTER NO NOSYSREC KEEPDICTIONARY
         UNLDDN    TSRECU
         PUNCHDDN TPUNCH
         DISCARDDN TDISCA
         COPYDDN(TCOPYD)
         SORTKEYS
         SORTDEVT DISK
         MAXRO 300
         DRAIN ALL
         DELAY 1500
         TIMEOUT TERM
         UNLOAD CONTINUE
         STATISTICS
           INDEX ALL KEYCARD
           REPORT NO UPDATE ALL