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

6
' FREEPAGE Ø PCTFREE Ø GBPCACHE CHANGED'||
' BUFFERPOOL BP2 LOCKSIZE ANY CLOSE YES';
IF SEGSIZE¬=Ø THEN CRETSPSQL=CRETSPSQL||' SEGSIZE '||SEGSIZE;
END;
ELSE DO;
CRETSPSQL=' IN '||DBNAME||
' NUMPARTS '||PARTCNT||' (';
EXEC SQL DECLARE CRS4 CURSOR FOR
SELECT PQTY*4,SQTY*4,VCATNAME,STORNAME,PARTITION
FROM SYSIBM.SYSTABLEPART
WHERE TSNAME=:TSNAME AND DBNAME=:DBNAME
ORDER BY PARTITION;
IF SQLCODE < Ø THEN GOTO HATA;
EXEC SQL OPEN CRS4;
EXEC SQL FETCH CRS4
INTO :TSPQTY,:TSSQTY,:VCATNAME,:STORNAME,:PARTNUM;
IF SQLCODE < Ø THEN GOTO HATA;
DO WHILE(SQLCODE=Ø);
CRETSPSQL= CRETSPSQL||' PART '||PARTNUM||
' USING STOGROUP '||STORNAME||
' PRIQTY ' || TSPQTY ||
' SECQTY ' || TSSQTY ||
' FREEPAGE Ø PCTFREE Ø GBPCACHE CHANGED ';
IF PARTNUM=PARTCNT THEN CRETSPSQL= CRETSPSQL||')';
ELSE CRETSPSQL= CRETSPSQL||',';
EXEC SQL FETCH CRS4
INTO :TSPQTY,:TSSQTY,:VCATNAME,:STORNAME,:PARTNUM;
IF SQLCODE < Ø THEN GOTO HATA;
END;
EXEC SQL CLOSE CRS4;
CRETSPSQL= CRETSPSQL||' BUFFERPOOL BP2 LOCKSIZE ANY CLOSE YES';
END;
LB2:DO III=1 TO 2Ø;
UNLINDCH=UNLIND;
NEWTSNAME='UNLOAD'||STRIP_SPACES(UNLINDCH);
CRETSPSQL1='CREATE TABLESPACE '||NEWTSNAME||CRETSPSQL;
EXEC SQL EXECUTE IMMEDIATE :CRETSPSQL1;
IF SQLCODE=-6Ø1 THEN UNLIND=UNLIND+1;
ELSE IF SQLCODE=Ø THEN LEAVE LB2;
ELSE IF SQLCODE