DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape
DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape
DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
IF SQLCODE < Ø THEN GOTO HATA;<br />
<strong>EXEC</strong> SQL SELECT ISOBID,OBID INTO :ISID2,:IID2<br />
FROM SYSIBM.SYSINDEXES<br />
WHERE NAME=:IXNAME AND CREATOR='UNL';<br />
IF SQLCODE < Ø THEN GOTO HATA;<br />
ISOBID2(IXIND)=ISID2;<br />
IOBID2(IXIND)=IID2;<br />
<strong>EXEC</strong> SQL FETCH CRS1 INTO<br />
:IXNAME,:IXCREATOR,:UNIQUERULE,:ISID1,:IID1;<br />
IF SQLCODE < Ø THEN GOTO HATA;<br />
IXIND=IXIND+1;<br />
ISOBID1(IXIND)=ISID1;<br />
IOBID1(IXIND)=IID1;<br />
END;<br />
<strong>EXEC</strong> SQL CLOSE CRS1;<br />
IF SQLCODE < Ø THEN GOTO HATA;<br />
IXIND=IXIND-1;<br />
END CREATE_INDEXES;<br />
PREPARE_DSN1CP_JCL:PROC;<br />
DCL JCL_LINE(1ØØØ) CHAR(8Ø) VARYING,<br />
DSNAME CHAR(44) VARYING,<br />
MAXTS CHAR(26) INIT(''),<br />
WORKSPACEC CHAR(15) VARYING,<br />
PARTCNTC CHAR(15) VARYING,<br />
(III,LNCN) FIXED BIN(15);<br />
10<br />
VCATNAME=STRIP_SPACES(VCATNAME);<br />
PARTCNTC=PARTCNT;<br />
PARTCNTC=STRIP_SPACES(PARTCNTC);<br />
<strong>EXEC</strong> SQL SELECT MAX(TIMESTAMP) INTO :MAXTS<br />
FROM SYSIBM.SYSCOPY<br />
WHERE TSNAME=:TSNAME AND<br />
DBNAME=:DBNAME AND<br />
ICTYPE='F' AND<br />
TIMESTAMP