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

IF SQLCODE < Ø THEN GOTO HATA;
IF TABCNT*MAXKEYLEN*INDEXCNT>MAXTABUNL THEN
MAXTABUNL=TABCNT*MAXKEYLEN*INDEXCNT;
EXEC SQL CLOSE C1;
EXEC SQL FETCH CRS3 INTO :TABNAM,:AUTHID,:OID1;
IF SQLCODE < Ø THEN GOTO HATA;
TBIND=TBIND+1;
OBID1(TBIND)=OID1;
END;
TBIND=TBIND-1;
EXEC SQL CLOSE CRS3;
IF SQLCODE < Ø THEN GOTO HATA;
CALL PREPARE_DSN1CP_JCL;
GOTO SON;
CREATE_TABLESPACE:PROC;
DCL PARTNUM FIXED BIN(15),
STORNAME CHAR(8) VARYING,
(CRETSPSQL,CRETSPSQL1) CHAR(2ØØØ) VARYING;
EXEC SQL SELECT A.DBID,A.PSID,A.NAME,A.DBNAME,A.SEGSIZE
INTO :DBID1,:PSID1,:TSNAME,:DBNAME,:SEGSIZE
FROM SYSIBM.SYSTABLESPACE A,SYSIBM.SYSTABLES B
WHERE B.TSNAME=A.NAME AND
B.DBNAME=A.DBNAME AND
B.CREATOR=:AUTH_ID AND
B.NAME=:TABLE_NAME;
IF SQLCODE=1ØØ THEN DO;
PUT SKIP EDIT('COULD NOT FIND TABLE ',AUTH_ID,'.',TABLE_NAME)
(A(22),A(8),A(1),A(18));
STOP;
END;
IF SQLCODE < Ø THEN GOTO HATA;
EXEC SQL SELECT MAX(PARTITION) INTO :PARTCNT
FROM SYSIBM.SYSTABLEPART
WHERE TSNAME=:TSNAME AND DBNAME=:DBNAME;
IF SQLCODE < Ø THEN GOTO HATA;
IF PARTCNT=Ø THEN DO;
EXEC SQL SELECT PQTY*4,SQTY*4,VCATNAME,STORNAME
INTO :TSPQTY,:TSSQTY,:VCATNAME,:STORNAME
FROM SYSIBM.SYSTABLEPART
WHERE TSNAME=:TSNAME AND DBNAME=:DBNAME;
IF SQLCODE < Ø THEN GOTO HATA;
CRETSPSQL=' IN '||DBNAME||
' USING STOGROUP '||STORNAME||
' PRIQTY ' || TSPQTY ||
' SECQTY ' || TSSQTY ||
© 1999. Reproduction prohibited. Please inform Xephon of any infringement.
5