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

IF SQLCODE < Ø THEN GOTO HATA;
EXEC SQL SELECT ISOBID,OBID INTO :ISID2,:IID2
FROM SYSIBM.SYSINDEXES
WHERE NAME=:IXNAME AND CREATOR='UNL';
IF SQLCODE < Ø THEN GOTO HATA;
ISOBID2(IXIND)=ISID2;
IOBID2(IXIND)=IID2;
EXEC SQL FETCH CRS1 INTO
:IXNAME,:IXCREATOR,:UNIQUERULE,:ISID1,:IID1;
IF SQLCODE < Ø THEN GOTO HATA;
IXIND=IXIND+1;
ISOBID1(IXIND)=ISID1;
IOBID1(IXIND)=IID1;
END;
EXEC SQL CLOSE CRS1;
IF SQLCODE < Ø THEN GOTO HATA;
IXIND=IXIND-1;
END CREATE_INDEXES;
PREPARE_DSN1CP_JCL:PROC;
DCL JCL_LINE(1ØØØ) CHAR(8Ø) VARYING,
DSNAME CHAR(44) VARYING,
MAXTS CHAR(26) INIT(''),
WORKSPACEC CHAR(15) VARYING,
PARTCNTC CHAR(15) VARYING,
(III,LNCN) FIXED BIN(15);
10
VCATNAME=STRIP_SPACES(VCATNAME);
PARTCNTC=PARTCNT;
PARTCNTC=STRIP_SPACES(PARTCNTC);
EXEC SQL SELECT MAX(TIMESTAMP) INTO :MAXTS
FROM SYSIBM.SYSCOPY
WHERE TSNAME=:TSNAME AND
DBNAME=:DBNAME AND
ICTYPE='F' AND
TIMESTAMP