DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape

END;
END;
IF III=21 THEN DO;
PUT SKIP EDIT('PLEASE DROP ALL UNNECESSARY UNLOADXX TABLESPACES')
(A(8Ø));
PUT SKIP EDIT('AND RERUN THIS JCL...') (A(8Ø));
STOP;
END;
PUT SKIP EDIT('TABLESPACE ',NEWTSNAME,' CREATED...')
(A(11),A(8),A(2Ø));
EXEC SQL COMMIT;
END CREATE_TABLESPACE;
CREATE_TABLES:PROC;
CRETABSQL='CREATE TABLE UNL.'||TABNAM||' LIKE '||
AUTHID||'.'||TABNAM||' IN '||DBNAME||'.'||NEWTSNAME;
EXEC SQL EXECUTE IMMEDIATE :CRETABSQL;
IF SQLCODE=-6Ø1 THEN DO;
PUT SKIP EDIT('UNL.',TABNAM,' ALREADY EXISTS.')(A(4),A(18),A(2Ø));
PUT SKIP EDIT('PLEASE DROP THE TABLE AND RERUN THIS JCL...')
(A(8Ø));
END;
IF SQLCODE < Ø THEN DO;
PUT SKIP LIST(CRETABSQL);
GOTO HATA;
END;
PUT SKIP EDIT('TABLE UNL.',TABNAM,' CREATED.')(A(1Ø),A(18),A(9));
EXEC SQL SELECT OBID INTO :OID2
FROM SYSIBM.SYSTABLES
WHERE NAME=:TABNAM AND CREATOR='UNL' AND TYPE='T';
OBID2(TBIND)=OID2;
IF SQLCODE < Ø THEN GOTO HATA;
CALL CREATE_INDEXES;
END CREATE_TABLES;
CREATE_INDEXES:PROC;
DCL FIRST_COME FIXED BIN(15),
(PARTCNT1,PARTNUM) FIXED BIN(15),
IXNAME CHAR(18) VARYING,
(IXCREATOR,STORNAME) CHAR(8) VARYING,
COLNAME CHAR(18),
(ORDERING,UNIQUERULE) CHAR(1),
CREINDSQL CHAR(4ØØØ) VARYING,
LIMITKEY CHAR(512) VARYING INIT(' '),
PQTY FIXED BIN(31),
(COLSEQ,SQTY) FIXED BIN(15);
INDEXCNT=Ø;
EXEC SQL DECLARE CRS1 CURSOR FOR
SELECT NAME,CREATOR,UNIQUERULE,ISOBID,OBID
© 1999. Reproduction prohibited. Please inform Xephon of any infringement.
7