zOs/TX/M2UTSMIP

//A540769X JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*** migrate partitioned classic to UTS pbR                            00040003
//DDL      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DP4G)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=* DSN=A540769.TMP.TEXV(GRENZE)
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
set current sqlid = 'S100447';
alter tablespace  qz92a1t.am2utsa  drop pending changes ;
alter table      qz92crt.TQZM2UTSA
    alter c3 set data type char(13);
alter table      qz92crt.TQZM2UTSA
    add c4 char(10) not null with default;
alter tablespace  qz92a1t.am2utsa  segsize 16 ;
alter tablespace  qz92a1t.am2utsa  dsSize 4 g  ;
//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
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         MAPPINGTABLE S100447.MAPTAB03
         MAXRO 300
         DRAIN ALL
         DELAY 1500
         TIMEOUT TERM
         UNLOAD CONTINUE
         PUNCHDDN TPUNCH
         DISCARDDN TDISCA
         SORTKEYS
         SORTDEVT DISK
         STATISTICS
           INDEX ALL KEYCARD
           REPORT NO UPDATE ALL