//ICMMLSUP JOB (XXXX),'LS DBS UPDATES', // MSGLEVEL=(1,1),MSGCLASS=?MSGCLASS?,NOTIFY=&SYSUID //JOBLIB DD DISP=SHR,DSN=?DSN?.SDSNLOAD //********************************************************************* //* Licensed Materials - Property of IBM //* 5724-B19 / 5697-H60 //* Copyright IBM Corp. 1994, 2014 All Rights Reserved. //* US Government Users Restricted Rights - //* Use, duplication or disclosure restricted by GSA ADP Schedule //* Contract with IBM Corp. //********************************************************************* //* ICMMLSUP //* //* SAMPLE JOB STREAM TO ALTER/UPDATE THE IBM CONTENT MANAGER V8 //* LIBRARY SERVER DATABASE. //* //* You need to determine the jobs steps to execute based on your //* CM Fix Pack level in your environment. //* //* Job steps: //* //* CM8402S1 to CM8402S2 - UPGRADE TO CM842 //* CM8402S3 to CM8402S4 - UPGRADE TO CM842 FP1 //* CM8402S5 to CM8402S6 - UPGRADE TO CM842 FP2 //* CM8402S7 - UPGRADE TO CM842 FP3 //* CM8403S1 to CM8403SH - UPGRADE TO CM843 //* Execute Drop and commit statements at CM8403SG if exists //* CM8403SI to CM8403SJ - UPGRADE TO CM843 FP1 //* CM8403SK to CM8403SL - UPGRADE TO CM843 FP2 //* CM8403SM - UPGRADE TO CM843 FP3 //* CM8500S1 to CM8500S5 - UPGRADE TO CM850 //* CM8500S6 to CM8500S7 - UPGRADE TO CM850 FP1 //* //* Review and modify the ICMST390Control OptionText with //* OptionKey 'SPACE' and 'TABLE'. The Library Server will //* substitute OptionText to generate an unique table space //* name while creating a table space for OptionKey 'SPACE' //* and append the OptionText to CREATE TABLE for OptionKey //* 'TABLE' when creating a user table. //* //* This is optional. Insert a row into ICMST390Control table //* with OptionKey equal to 'DROPT' to let library server to //* drop the non-partitioned table space automatically when it //* becomes empty. //* //* OptionKey OptionText //* --------- ------------------------------------------------- //* SPACE Optional full DB2 CREATE TABLESPACE SQL statement //* for Library Server to generate CREATE TABLESPACE //* SQL automatically for each item type or for each //* component type. //* //* Example (1): //* LS will generate CREATE TABLESPACE SQL //* for each item type if the following is added. //* It has to be segmented table space. //* //* UPDATE ?CREATOR?.ICMST390Control //* SET OPTIONTEXT = //* 'CREATE TABLESPACE TS+ITEMTYPEID+ //* IN ?DATABASE? SEGSIZE 32' //* WHERE OPTIONKEY = 'SPACE'; //* //* Example (2): //* LS will generate CREATE TABLESPACE SQL //* for each component type if following is added. //* A partition-by-growth table space is created //* for each component. //* //* UPDATE ?CREATOR?.ICMST390Control //* SET OPTIONTEXT = //* 'CREATE TABLESPACE TS+COMPID+ IN ?DATABASE? //* DSSIZE 4G MAXPARTITIONS 100 SEGSIZE 64' //* WHERE OPTIONKEY = 'SPACE'; //* //* Note: You can modify the SQL statements shown in //* above examples to include optional clauses. //* //* TABLE Optional DB2 SQL clause appended dynamically to the //* generated CREATE TABLE statement when creating //* a user table. //* //* You can modify the OptionText to a tablespace name //* which is to be used in CREATE TABLE SQL statement //* for each user table. //* In this case, either DB2 System Admin needs to create //* the tablespace manually before each CREATE TABLE //* SQL is executed or use a row with optionkey //* = 'SPACE' as describe above to let the LS create //* a tablespace automatically. If system admin allows //* customers to input table space field for table during //* itemtype creation, then +PREDEFINED+ must be used. //* The inputed table space which was created manually //* will replace +PREDEFINED+. //* //* Example (1) //* UPDATE ?CREATOR?.ICMST390Control //* SET OPTIONTEXT = 'IN ?DATABASE?.TS+ITEMTYPEID+' //* WHERE OPTIONKEY = 'TABLE'; //* //* Example (2) //* UPDATE ?CREATOR?.ICMST390Control //* SET OPTIONTEXT = 'IN ?DATABASE?.TS+COMPID+' //* WHERE OPTIONKEY = 'TABLE'; //* //* Example (3) //* The predefined table space has to be simple or //* segmented table space. //* //* UPDATE ?CREATOR?.ICMST390Control //* SET OPTIONTEXT = 'IN ?DATABASE?.+PREDEFINED+' //* WHERE OPTIONKEY = 'TABLE'; //* //* Example (4) //* ICMLFQ32 has to be simple or segmented table space. //* //* UPDATE ?CREATOR?.ICMST390Control //* SET OPTIONTEXT = 'IN ?DATABASE?.ICMLFQ32' //* WHERE OPTIONKEY = 'TABLE'; //* //* You can modify the OptionText to specify EDITPROC //* clause which improves security of component tables //* of newly created item types by encrypting on store //* and decrypting on retrieve. //* You must not specify an edit routine for an item //* type with a LOB column. //* //* Example (5) //* UPDATE ?CREATOR?.ICMST390Control //* SET OPTIONTEXT = 'EDITPROC DECENC00 //* WITHOUT ROW ATTRIBUTES IN ?DATABASE?.TS+COMPID+' //* WHERE OPTIONKEY = 'TABLE'; //* //* DROPT This row is optional. //* Library server will drop table space automatically //* because a table in a partitioned table space can be //* dropped only by dropping the table space. //* For non-patitioned, If this row is present in the //* ICMST390CCONTROL table, library server will drop the //* table space automatically when it becomes empty. //* An example of the INSERT statement for this OptionKey //* is: //* INSERT INTO ?CREATOR?.ICMST390Control //* VALUES ('DROPT', NULL); //* //* About EDITPROC DECENC00 or if you want to encrypt existing //* tables, refer to IBM InfoSphere Guardium Data Encryption //* for IMS and DB2 Databases User's Guide for encryption, //* unload and reload operation. //* //* 1. CUSTOMIZE THE FOLLOWING FIELDS: //* //* ?BPS4? //* - BUFFER POOL FOR LIBRARY SERVER TABLES //* //* ?BPV4? //* - BUFFER POOL FOR LIBRARY SERVER INDEXES //* //* ?BP32? //* - BUFFER POOL FOR TABLESPACE ICMBPM32 //* //* ?CCSID? //* - THE ENCODING SCHEME (EBCDIC or UNICODE) //* MUST USE THE SAME ENCODING SCHEME AS DATABASE //* //* ?CM8403SQL? //* - FULLY-QUALIFIED NAME OF WORKFILE TO CONTAIN //* SQL GENERATED BY ICMPLSU8 IN STEP CM8403SD. //* THESE SQL WILL BE EXECUTED IN STEP CM8403SE. //* //* ?CREATOR? //* - ID OF CREATOR DEFINING THE DB2 OBJECTS //* //* ?DATABASE? //* - DATABASE NAME (ICMMLSDB SUGGESTED) //* //* ?DB2PKGCOLLID? //* - COLLECTION NAME OF THE DB2 PACKAGE //* //* ?DB2RUN? //* - FULLY-QUALIFIED NAME OF DB2 RUNTIME //* LIBRARY OF DSNTIAD //* //* ?DB2SYS? //* - DB2 SUBSYSTEM //* //* ?DSN? //* - HIGH-LEVEL QUALIFIER OF DB2 SYSTEM LIBRARY //* //* ?HLQUALIFIER? //* - OPTIONAL //* THE HIGH LEVEL QUALIFIER FOR THE TEMPORARY //* DATASET GENERATED FOR THE DEFERRED DDL //* //* ?ICM? //* - HIGH-LEVEL QUALIFIER OF CM LIBRARY //* //* ?ICMADMIN? //* - USERID OF DEFAULT SYSADMIN, HAS TO BE A TSO USERID //* WITH DB2 SYSADMIN PRIVILEGE //* //* ?MSGCLASS? //* - JOB OUTPUT MESSAGE CLASS //* //* ?PRIINDX? //* - PRIMARY ALLOCATION AMOUNT FOR INDEXES //* - EXAMPLE 1000 //* - ADJUST FOR YOUR APPLICATION //* //* ?PRILRG? //* - PRIMARY ALLOCATION AMOUNT FOR LARGE TABLESPACES //* - EXAMPLE 50000 //* - ADJUST FOR YOUR APPLICATION //* //* ?PRIQTY? //* - PRIMARY ALLOCATION AMOUNT FOR SMALL TABLESPACES //* - EXAMPLE 500 //* - ADJUST FOR YOUR APPLICATION //* //* ?SECINDX? //* - SECONDARY ALLOCATION AMOUNT FOR INDEXES //* - EXAMPLE 200 //* - ADJUST FOR YOUR APPLICATION //* //* ?SECLRG? //* - SECONDARY ALLOCATION AMOUNT FOR LARGE TABLESPACES //* - EXAMPLE 10000 //* - ADJUST FOR YOUR APPLICATION //* //* ?SECQTY? //* - SECONDARY ALLOCATION AMOUNT FOR SMALL TABLESPACES //* - EXAMPLE 200 //* - ADJUST FOR YOUR APPLICATION //* //* ?SQLID? //* - SQLID //* //* ?STOGROUP? //* - NAME OF DB2 STORAGE GROUP //* //* ?TIADPLAN? //* - DB2 PLAN FOR DSNTIAD //* //* ?TIAULPLAN? //* - DB2 PLAN FOR DSNTIAUL //* //* ?U8PLAN? //* - DB2 PLAN FOR ICMPLSU8 //* //* ?WLMENV? //* - WORKLOAD MANAGER ENVIRONMENT IN WHICH CM V8.3 //* STORED PROCEDURES RUN //* //* 2. READ INSTRUCTION FOR EACH STEP BEFORE RUNNING THIS JOB: //* //* Some steps in this job are introduced by previous PTFs. //* You can delete them from this job if they have already //* been run before. //* //******************************************************************** //* IMPORTANT NOTE: Must be at CM841 FP1 or later for this job to //* run successfully //******************************************************************** //* CM8402S1 //* This step will perform several changes, //* including: //* - add new columns to tables //* - create stored procedure, index, function //* - fix ICMSTViewAccess table if you upgraded from CM82 FP8 //* to CM83 GA. Rerun the cmcfgls -t comptypes //* to rebuild the table. //* //CM8402S1 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN UDFTRACEFILENAME VARCHAR(128) WITH DEFAULT 'SYSPRINT'; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN UDFTRACELEVEL SMALLINT NOT NULL WITH DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTCOMPDEFS ADD COLUMN TABLETABLESPACE VARCHAR(128); ALTER TABLE ?CREATOR?.ICMSTCOMPDEFS ADD COLUMN INDEXDFTTABLESPACE VARCHAR(128); ALTER TABLE ?CREATOR?.ICMSTCOMPDEFS ADD COLUMN LOBDFTTABLESPACE VARCHAR(128); COMMIT; create procedure ?CREATOR?.ICMBUILDCOMPTYPE2 ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In lCompTypeId INTEGER, In szAttrClob CLOB(320K), In szAttrBlob BLOB(320K) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSB2; COMMIT; CREATE PROCEDURE ?CREATOR?.ICMGETTOBEDELETED2 ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, InOut ItemCLOB CLOB(5M), InOut ItemBLOB BLOB(5M), In szRMName VARCHAR(128), In szInList VARCHAR(32670), InOut nTBDCount INTEGER, In sAction SMALLINT ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 1 LANGUAGE C PARAMETER STYLE DB2SQL NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSD2; COMMIT; CREATE INDEX ?CREATOR?.RMEAUDITORDSTATUS ON ?CREATOR?.RMEAUDIT ( STATUS ASC, ORDERTS ASC) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; COMMIT; CREATE FUNCTION ?CREATOR?.ICMFETCHCONTENT ( VARCHAR(512) ) RETURNS BLOB(25M) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? PROGRAM TYPE SUB EXTERNAL NAME ICMPLSUD LANGUAGE C PARAMETER STYLE DB2SQL FENCED STAY RESIDENT YES READS SQL DATA NO EXTERNAL ACTION; COMMIT; DROP TABLE ?CREATOR?.ICMSTViewAccess; COMMIT; CREATE TABLE ?CREATOR?.ICMSTViewAccess ( COMPONENTVIEWID INTEGER NOT null, SEGMENTID SMALLINT NOT null, VIEWACCESSINFO VARCHAR(31000) FOR BIT DATA NOT null, ACLSUBSELECT VARCHAR(1000) NOT null, LASTCHANGEDTS TIMESTAMP NOT null, PRIMARY KEY (ComponentViewID, SegmentID), FOREIGN KEY (ComponentViewID, SegmentID) REFERENCES ?CREATOR?.ICMSTCompViewDefs (ComponentViewID, SegmentID) ON DELETE CASCADE ) IN ?DATABASE?.ICMLFQ32 ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXViewAccess1P ON ?CREATOR?.ICMSTViewAccess ( ComponentViewID ASC, SEGMENTID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; COMMIT; /* //* CM8402S2 //* This step will update the current Library Server //* version/release to '8.4.02.000' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF all steps through CM8402S1 have executed //* successfully. //* //CM8402S2 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.4.02.000' WHERE 1 = 1; COMMIT; /* //* CM8402S3 //* This step will perform several changes, //* including: //* - drop the unique index ICMSTREPLICAS2U //* - add new rows to ICMSTNLSKeywords table //* - update ICMSTMAXKeyword table //* //CM8402S3 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; DROP INDEX ?CREATOR?.ICMSTREPLICAS2U; COMMIT; INSERT INTO ?CREATOR?.ICMSTNLSKeywords VALUES (16 , 'ENU', 306 , 'REINDEX ITEM', 'Reindex an item'); INSERT INTO ?CREATOR?.ICMSTNLSKeywords VALUES (16 , 'ENU', 609 , 'UPDATE REPLICA RULES', 'Update Replica Rules'); INSERT INTO ?CREATOR?.ICMSTNLSKeywords VALUES (16 , 'ENU', 619 , 'ADD EVENT SUBSCRIPTION', 'Add Event Subscription'); INSERT INTO ?CREATOR?.ICMSTNLSKeywords VALUES (16 , 'ENU', 620 , 'UPDATE EVENT SUBSCRIPTION', 'Update Event Subscription'); INSERT INTO ?CREATOR?.ICMSTNLSKeywords VALUES (16 , 'ENU', 621 , 'DELETE EVENT SUBSCRIPTION', 'Delete Event Subscription'); UPDATE ?CREATOR?.ICMSTMAXKeyword SET MAXKeyword = 621 WHERE KeywordClass = 16; COMMIT; /* //* CM8402S4 //* This step will update the current Library Server //* version/release to '8.4.02.100' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF all steps through CM8402S3 have executed //* successfully. //* //CM8402S4 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.4.02.100' WHERE 1 = 1; COMMIT; /* //* CM8402S5 //* This step will //* - update ICMSTMIMETYPES table //* //CM8402S5 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTMIMETYPES SET SUFFIXES = 'rft' WHERE MIMETYPEID = 300 AND SUFFIXES = 'rtf'; COMMIT; /* //* CM8402S6 //* This step will update the current Library Server //* version/release to '8.4.02.200' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF all steps through CM8402S5 have executed //* successfully. //* //CM8402S6 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.4.02.200' WHERE 1 = 1; COMMIT; /* //* CM8402S7 //* This step will update the current Library Server //* version/release to '8.4.02.300' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF all steps through CM8402S5 have executed //* successfully. //* //CM8402S7 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.4.02.300' WHERE 1 = 1; COMMIT; /* //* CM8403S1 //* This step will perform several changes, //* including: //* - add new columns to tables //* - drop an obsolete package of ?DB2PKGCOLLID?.ICMPLSLI //* - update/insert rows of tables //* - insert HLQFR option in the table ICMST390Control. //* This is optional. The OptionText in this row will //* be used as the high level qualifier for the temporary //* dataset generated for the deferred DDL. If this row //* is not present in the ICMST390CONTROL table, the default //* value for the Workload Manager (WLM) will be used. //* An example of the INSERT statement for this OptionKey //* is: //* INSERT INTO ?CREATOR?.ICMST390Control //* VALUES ('HLQFR', '?HLQUALIFIER?'); //* //* //CM8403S1 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN OITOPTIONFLAG SMALLINT NOT NULL WITH DEFAULT 13; COMMIT; ALTER TABLE ?CREATOR?.ICMSTTextIndexConf ADD COLUMN UpdateWithBackup SMALLINT; COMMIT; DROP PACKAGE ?DB2PKGCOLLID?.ICMPLSLI ; COMMIT; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDNAME = 'UserDBConnect' WHERE KEYWORDCLASS = 11 and KEYWORDCODE = 7; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDNAME = 'UserDBTrustedConnect' WHERE KEYWORDCLASS = 11 and KEYWORDCODE = 8; COMMIT; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET TIEPASSWORD= x'69152F607741347103111101112B4D666B115E141311031111310F796A615B1411 13010311310F796A615B141113010311310F796A615B141113010311310F796A615B1411 130103' WHERE TIEPASSWORD= x'7C47573B0B060A79130313013860696F4B0D45181101011374634A4F3776315401 03030174634A4F377631540103030174634A4F37763154010303011F575A3029243F0801 011311'; COMMIT; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'IBM Content Manager Client exits' WHERE KEYWORDCLASS = 2 AND KEYWORDCODE=400 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DB2 Content Management Client Exits'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'IBM Content Manager Client exits' WHERE KEYWORDCLASS = 3 AND KEYWORDCODE=400 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DB2 Content Management Client exits'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'IBM Content Manager Client exits.' WHERE KEYWORDCLASS = 5 AND KEYWORDCODE=400 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DB2 Content Management Client exits.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow IBM Content Manager users to logon with different database connec tion user.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=1 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow Content Management users to logon with different database connect ion user.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow IBM Content Manager users to logon with different database connec tion user and without a password.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=2 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow Content Management users to logon with different database connect ion user and without a password.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Scan images with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=700 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Scan images with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Print documents with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=701 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Print documents with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Import documents with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=702 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Import documents with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Export documents with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=703 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Export documents with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Read a base document part with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=706 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Read a base document part with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Update a base document part with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=707 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Update a base document part with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Add a new base document part with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=708 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Add a new base document part with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Delete a base document part with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=709 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Delete a base document part with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Read annotations with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=710 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Read annotations with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Update and delete annotations with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=711 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Update and delete annotations with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Read the note log with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=712 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Read the note log with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Add a note to the note log with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=713 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Add a note to the note log with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Update and delete notes in the note log with IBM Content Manager client s.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=714 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Update and delete notes in the note log with DB2 Content Manager client s.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Read the history of an item with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=715 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Read the history of an item with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Perform advanced searches with IBM Content Manager clients.' WHERE KEYWORDCLASS = 10 AND KEYWORDCODE=716 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Perform advanced searches with DB2 Content Manager clients.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow system administrator to perform all system administration tasks f or both IBM Content Manager and IBM Information Integrator for Content, including working with administrative domains. This administrator also h as all client user privileges.' WHERE KEYWORDCLASS = 11 AND KEYWORDCODE=4 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow system administrator to perform all system administration tasks f or both IBM DB2 Content Manager and IBM DB2 Information Integrator for C ontent, including working with administrative domains. This administrato r also has all client user privileges.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Load documents into IBM Content Manager, including the ability to impor t and scan items, index documents, start items on workflow, and delete a n item.' WHERE KEYWORDCLASS = 11 AND KEYWORDCODE=5 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Load documents into Content Management, including the ability to import and scan items, index documents, start items on workflow, and delete an item.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allows IBM Content Manager users to connect to database without having their own database user ID. This user is required to enter a password.' WHERE KEYWORDCLASS = 11 AND KEYWORDCODE=7 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allows Content Management users to connect to database without having t heir own database user ID. This user is required to enter a password.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allows IBM Content Manager users to connect to database without having their own database user ID. This user does not have to enter a password. ' WHERE KEYWORDCLASS = 11 AND KEYWORDCODE=8 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allows Content Management users to connect to database without having t heir own database user ID. This user does not have to enter a password.' ; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Grant user with all privileges related to IBM Content Manager logon.' WHERE KEYWORDCLASS = 12 AND KEYWORDCODE=7 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Grant user with all privileges related to Content Management logon.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Manage IBM Information Integrator for Content system administration, in cluding defining entities, templates, and servers.' WHERE KEYWORDCLASS = 12 AND KEYWORDCODE=13 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Manage IBM DB2 Information Integrator for Content system administration , including defining entities, templates, and servers.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow the first user from installation to perform all IBM Content Manag er functions on the bound entities.' WHERE KEYWORDCLASS = 13 AND KEYWORDCODE=1 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow the first user from installation to perform all Content Managemen t functions on the bound entities.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Specifies that no actions are allowed on the bound entities for all IBM Content Manager users.' WHERE KEYWORDCLASS = 13 AND KEYWORDCODE=2 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Specifies that no actions are allowed on the bound entities for all Con tent Management users.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allows all IBM Content Manager users to read the bound entities.' WHERE KEYWORDCLASS = 13 AND KEYWORDCODE=3 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allows all Content Management users to read the bound entities.'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'IBM Content Manager Client exits' WHERE KEYWORDCLASS = 18 AND KEYWORDCODE=400 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DB2 Content Management Client exits'; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDNAME = 'Item' WHERE KEYWORDCLASS = 14 AND KEYWORDCODE = 4; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Define the semantic type as an item.' WHERE KEYWORDCLASS = 14 AND KEYWORDCODE=4 AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Define the semantic type as a container.'; COMMIT; /* //* CM8403S2 - CM8403S7 //* This steps will rebuild the ICMSTUserGroups table //* including: //* - delete the sequential file //* which may not be deleted previously //* - unload data from tables to a sequential file //* - drop and create the ICMSTUserGroups table //* - load data to the ICMSTUserGroups table //* - delete the sequential file //* - create indexes //* You may get COND CODE= 0004 and can be ignored //* in the step CM8403S3 and the step CM8403S5 //* if the ICMSTUserGroups table is empty. //* //* //* DELETE SEQUENTIAL FILE //* //CM8403S2 EXEC PGM=IEFBR14,COND=(5,LE) //DD1 DD DSN=?ICM?.GRPUSERS.SYS, // DISP=(MOD,DELETE,DELETE), // SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA //* //* UNLOAD TABLE TO SEQUENTIAL FILE //* //CM8403S3 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=0K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSPUNCH DD DUMMY //SYSREC00 DD DSN=?ICM?.GRPUSERS.SYS, // DCB=(RECFM=FB,LRECL=72,BLKSIZE=7200,BUFNO=20), // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(10,10),RLSE),UNIT=SYSDA //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAUL) PLAN(?TIAULPLAN?) - LIB('?DB2RUN?') PARMS('SQL') END //SYSIN DD * SELECT UG.UserID, UG.GroupUserID, U.UNUM, G.UNUM FROM ?CREATOR?.ICMSTUserGroups UG, ?CREATOR?.ICMSTUsers U, ?CREATOR?.ICMSTUsers G WHERE UG.UserID = U.UserID AND UG.GroupUserID = G.UserID; /* //* //* DROP AND CREATE TABLE //* //CM8403S4 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; DROP TABLE ?CREATOR?.ICMSTUserGroups; COMMIT; CREATE TABLE ?CREATOR?.ICMSTUserGroups ( UserID CHAR(32) NOT null, GroupUserID CHAR(32) NOT null, UNUM INTEGER NOT NULL WITH DEFAULT 0 , GNUM INTEGER NOT NULL WITH DEFAULT 0 , FOREIGN KEY (UserID) REFERENCES ?CREATOR?.ICMSTUsers (UserID) ON DELETE CASCADE, FOREIGN KEY (GroupUserID) REFERENCES ?CREATOR?.ICMSTUsers (UserID) ON DELETE CASCADE ) IN ?DATABASE?.USEGLSTS ; COMMIT; /* //* //* LOAD SEQUENTIAL FILE TO TABLE //* //CM8403S5 EXEC DSNUPROC,UID='ICMMLSUP', // UTPROC='', // LIB='?DSN?.SDSNLOAD', // SYSTEM='?DB2SYS?',COND=(5,LE),REGION=0K //SYSREC00 DD DSN=?ICM?.GRPUSERS.SYS, // DCB=BUFNO=20, // DISP=SHR //SYSMAP DD DSN=?ICM?.USERS.SYSMAP, // DCB=BUFNO=20, // DISP=(MOD,DELETE,CATLG), // UNIT=SYSDA,SPACE=(TRK,(20,20),,,ROUND) //SYSUT1 DD DSN=?ICM?.USERS.SYSUT1, // DCB=BUFNO=20, // DISP=(MOD,DELETE,CATLG), // UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) //SORTOUT DD DSN=?ICM?.USERS.SORTOUT, // DCB=BUFNO=20, // DISP=(MOD,DELETE,CATLG), // UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) //SYSIN DD * LOAD DATA LOG NO NOCOPYPEND RESUME YES INDDN SYSREC00 INTO TABLE ?CREATOR?.ICMSTUSERGROUPS ( USERID POSITION( 1) CHAR(32), GROUPUSERID POSITION( 33) CHAR(32), UNUM POSITION( 65) INTEGER, GNUM POSITION( 69) INTEGER ) /* //* //* DELETE SEQUENTIAL FILE //* //CM8403S6 EXEC PGM=IEFBR14,COND=(5,LE) //DD01 DD DSN=?ICM?.GRPUSERS.SYS, // DISP=(OLD,DELETE) //* //* CRATE INDEXES //* //CM8403S7 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; CREATE UNIQUE INDEX ?CREATOR?.ICMSXUserGroups1U ON ?CREATOR?.ICMSTUserGroups ( UserID ASC, GroupUserID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE INDEX ?CREATOR?.ICMSXUserGroups1X ON ?CREATOR?.ICMSTUserGroups ( UserID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE INDEX ?CREATOR?.ICMSXUserGroups2X ON ?CREATOR?.ICMSTUSERGROUPS ( GROUPUSERID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXUserGroups2U ON ?CREATOR?.ICMSTUserGroups ( GroupUserID ASC, UserID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE INDEX ?CREATOR?.ICMSXUserGroups3X ON ?CREATOR?.ICMSTUSERGROUPS ( UNUM ASC, GNUM ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; COMMIT; /* //* //* CM8403S8 //* This step will drop stored procedures and functions //* //CM8403S8 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD DISP=SHR,DSN=?ICM?.SICMINS1(ICMMDRPP) //* //* CM8403S9 //* This step will create stored procedures and functions //* with updated PARAMETER CCSID option. For the existing //* library server database, the ?CCSID? must be EBCDIC. //* //CM8403S9 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD DISP=SHR,DSN=?ICM?.SICMINS1(ICMMCRTP) //* //* CM8403SA //* This step will update the current Library Server //* to support Hierarchical Browse Model. //* ONLY IF all steps through CM8403S9 have executed //* successfully. //* //CM8403SA EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?' ; CREATE TABLESPACE TS00410 IN ?DATABASE? USING STOGROUP ?STOGROUP? PRIQTY ?PRILRG? SECQTY ?SECLRG? FREEPAGE 1 PCTFREE 5 BUFFERPOOL ?BPS4? LOCKSIZE ROW LOCKMAX 0 CLOSE NO ; CREATE TABLESPACE ICMHLKTS IN ?DATABASE? USING STOGROUP ?STOGROUP? PRIQTY ?PRILRG? SECQTY ?SECLRG? FREEPAGE 1 PCTFREE 5 BUFFERPOOL ?BPS4? LOCKSIZE ROW LOCKMAX 0 CLOSE NO ; CREATE TABLESPACE ICMSYDTS IN ?DATABASE? USING STOGROUP ?STOGROUP? PRIQTY ?PRIQTY? SECQTY ?SECQTY? FREEPAGE 1 PCTFREE 5 BUFFERPOOL ?BPS4? LOCKSIZE ROW LOCKMAX 0 CLOSE NO ; CREATE TABLE ?CREATOR?.ICMSTHLINKS ( PARENTITEMID CHAR(26) NOT NULL, CHILDITEMID CHAR(26) NOT NULL, CHILDNAME VARCHAR(256) NOT NULL ) IN ?DATABASE?.ICMHLKTS ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXHLINKS1U ON ?CREATOR?.ICMSTHLINKS ( CHILDITEMID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXHLINKS2U ON ?CREATOR?.ICMSTHLINKS ( PARENTITEMID ASC, CHILDNAME ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE TABLE ?CREATOR?.ICMSTSYSDATA ( KEY VARCHAR(32) NOT NULL, VALUE VARCHAR(1024) NOT NULL, PRIMARY KEY (KEY) ) IN ?DATABASE?.ICMSYDTS ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXSYSDATA1U ON ?CREATOR?.ICMSTSYSDATA ( KEY ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; UPDATE ?CREATOR?.ICMSTMAXKEYWORD SET MAXKEYWORD = (SELECT (CASE WHEN 1000>MAX(MAXKEYWORD)+1 THEN 1000 ELSE MAX(MAXKEYWORD)+1 END) FROM ?CREATOR?.ICMSTMAXKEYWORD WHERE KEYWORDCLASS=1) WHERE KEYWORDCLASS=1 AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = 'ENU' AND B.KEYWORDCLASS = 1 AND B.KEYWORDNAME = 'ICM$NAME') ; UPDATE ?CREATOR?.ICMSTACCESSCODES SET ACLHASHCODE = 'reserved' WHERE ACLCODE = 1 AND ACLTYPE = 0 ; UPDATE ?CREATOR?.ICMSTACCESSCODES SET ACLHASHCODE = 'reserved' WHERE ACLCODE = 2 AND ACLTYPE = 0 ; UPDATE ?CREATOR?.ICMSTACCESSCODES SET ACLHASHCODE = 'reserved' WHERE ACLCODE = 3 AND ACLTYPE = 0 ; UPDATE ?CREATOR?.ICMSTACCESSCODES SET ACLHASHCODE = 'reserved' WHERE ACLCODE = 4 AND ACLTYPE = 0 ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE, KEYWORDNAME, KEYWORDDESCRIPTION) SELECT 1 , LANGUAGECODE, (SELECT MAXKEYWORD FROM ?CREATOR?.ICMSTMAXKEYWORD WHERE KEYWORDCLASS=1 AND LANGUAGECODE = 'ENU'), 'ICM$NAME', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'ICM hierarchical name' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = 'ENU' AND B.KEYWORDCLASS = 1 AND B.KEYWORDNAME = 'ICM$NAME') ; INSERT INTO ?CREATOR?.ICMSTATTRDEFS (ATTRIBUTEID, ATTRSQLTYPE, ATTRLENGTH, ATTRSCALE, ATTRFLAGS) SELECT KEYWORDCODE, 448 , 256 , 0 , 0 FROM ?CREATOR?.ICMSTNLSKEYWORDS A WHERE LANGUAGECODE = 'ENU' AND KEYWORDCLASS = 1 AND KEYWORDNAME = 'ICM$NAME' AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTATTRDEFS B WHERE A.KEYWORDCODE = B. ATTRIBUTEID AND A.KEYWORDCLASS = 1 AND A.KEYWORDNAME = 'ICM$NAME') ; INSERT INTO ?CREATOR?.ICMSTSYSDATA SELECT 'ICMNAME_ATTR_ID', RTRIM(CHAR(KEYWORDCODE)) FROM ?CREATOR?.ICMSTNLSKEYWORDS WHERE LANGUAGECODE = 'ENU' AND KEYWORDCLASS = 1 AND KEYWORDNAME = 'ICM$NAME' AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTSYSDATA WHERE KEY = 'ICMNAME_ATTR_ID') ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 13 , LANGUAGECODE, 5 , 'RootFolderACL', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Hierarchical root folder ICMROOTFOLDER access control list' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 13 AND B.KEYWORDCODE = 5) ; INSERT INTO ?CREATOR?.ICMSTACCESSCODES (ACLCODE, ACLTYPE, ACLHASHCODE) SELECT 5 , 0 , 'reserved' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTACCESSCODES WHERE ACLCODE=5) ; INSERT INTO ?CREATOR?.ICMSTDOMAINACCESS SELECT DOMAINID, 5 FROM ?CREATOR?.ICMSTADMINDOMAINS A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTDOMAINACCESS B WHERE A.DOMAINID = B. DOMAINID AND B. ACLCODE = 5) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 13 , LANGUAGECODE, 6 , 'SysDefaultFolderACL', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Hierarchical system default folder ICMSYSDEFAULTFOLDER ' || 'access control list' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 13 AND B.KEYWORDCODE = 6) ; INSERT INTO ?CREATOR?.ICMSTACCESSCODES (ACLCODE, ACLTYPE, ACLHASHCODE) SELECT 6 , 0 , 'reserved' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTACCESSCODES WHERE ACLCODE=6) ; INSERT INTO ?CREATOR?.ICMSTDOMAINACCESS SELECT DOMAINID, 6 FROM ?CREATOR?.ICMSTADMINDOMAINS A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTDOMAINACCESS B WHERE A.DOMAINID = B. DOMAINID AND B. ACLCODE = 6) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 2 , LANGUAGECODE, 410 , 'ICM$FOLDER', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'ICM hierarchical folder' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 2 AND B.KEYWORDCODE = 410) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 3 , LANGUAGECODE, 410 , 'ICM$FOLDER', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'ICM hierarchical folder' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 3 AND B.KEYWORDCODE = 410) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 5 , LANGUAGECODE, 410 , 'ICM$FOLDER', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'ICM hierarchical folder' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 5 AND B.KEYWORDCODE = 410) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 18 , LANGUAGECODE, 410 , 'ICM$FOLDER', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'ICM hierarchical folder' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 18 AND B.KEYWORDCODE = 410) ; INSERT INTO ?CREATOR?.ICMSTITEMTYPEDEFS (ITEMTYPEID, ITEMTYPECLASS, ITEMLEVELACLFLAG, ITEMTYPEACLCODE, DFLTRMCODE, DFLTCOLLCODE, DFLTPREFCHCOLLCODE, DFLTRETENTIONUNIT, DFLTITEMRETENTION, DFLTXDOCLASSID, AUTOLINKENABLE, AUTOLINKSMS, SEGMENTID, SEGMENTTHRESHOLD, PARTITIONID, PARTITIONTHRESHOLD, VERSIONCONTROL, VERSIONMAX, ITEMEVENTFLAG, USERID, CHANGED, DFLTPRIORITY, ITEMTYPEFLAG) SELECT 410 , 0 , 1 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , UCASE('?ICMADMIN?'), CURRENT TIMESTAMP, -1 , 24 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTITEMTYPEDEFS WHERE ITEMTYPEID = 410) ; INSERT INTO ?CREATOR?.ICMSTITVIEWDEFS (ITEMTYPEVIEWID, ITEMTYPEID, ACLCODE, USERID, CREATED) SELECT 410 , 410 , 3 , UCASE('?ICMADMIN?'), CURRENT TIMESTAMP FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTITVIEWDEFS WHERE ITEMTYPEVIEWID = 410) ; INSERT INTO ?CREATOR?.ICMSTCOMPDEFS (COMPONENTTYPEID, ITEMTYPEID, PARENTCOMPTYPEID, CARDINALITYMIN, CARDINALITYMAX, DELETERULE, COMPTYPECLASS, USERID, CHANGED) SELECT 410 , 410 , 0 , 0 , 0 , 0 , 0 , UCASE('?ICMADMIN?'), CURRENT TIMESTAMP FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPDEFS WHERE COMPONENTTYPEID = 410) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWDEFS (COMPONENTVIEWID, COMPONENTTYPEID, SEGMENTID, ITEMTYPEID, COMPONENTVIEWNAME, ACCESSMODULENAME, ACCESSMODULESTATUS, ACCESSMODULERESULT, ACCESSMODULEVERS, PREVACCESSMODULE, USERID, CREATED) SELECT 410 , 410 , 1 , 410 , 'ICM$FOLDER001', 'ICMxxxxx', -1 , 0 , 1 , 'ICMxxxxx', UCASE('?ICMADMIN?'), CURRENT TIMESTAMP FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWDEFS WHERE COMPONENTVIEWID = 410 AND SEGMENTID = 1) ; INSERT INTO ?CREATOR?.ICMSTITVIEWID (ITEMTYPEVIEWID, COMPONENTVIEWID) SELECT 410 , 410 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTITVIEWID WHERE ITEMTYPEVIEWID = 410 and COMPONENTVIEWID = 410) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 1 , 1 , -11 , 2 , 0 , 1 , 2147483647 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 1 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 2 , 1 , -10 , 2 , 0 , 0 , 0 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 2 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 3 , 1 , -9 , 2 , 0 , 0 , 0 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 3 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 4 , 1 , -8 , 2 , 0 , 1 , 32767 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 4 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 5 , 1 , -7 , 2 , 0 , 1 , 2147483647 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 5 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 6 , 1 , -6 , 2 , 0 , 1 , 2147483647 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 6 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 39 , 1 , -5 , 0 , 0 , 0 , 0 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 39 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 44 , 1 , -4 , 2 , 0 , 0 , 0 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 44 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 45 , 1 , -3 , 2 , 0 , 0 , 0 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 45 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE,MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 46 , 1 , -2 , 2 , 0 , 0 , 0 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 46 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 47 , 1 , -1 , 2 , 0 , 0 , 0 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 47 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE, DEFAULTVALUE) SELECT 410 , 127 , 1 , 0 , 2 , 0 , 0 , 32767 , ' ' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS WHERE COMPONENTTYPEID = 410 AND ATTRIBUTEID = 127 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPATTRS (COMPONENTTYPEID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRFLAGS, DEFAULTTYPE, MINIMUMVALUE, MAXIMUMVALUE) SELECT 410 , KEYWORDCODE, 0 , 1 , 2 , 0 , 0 , 0 FROM ?CREATOR?.ICMSTNLSKEYWORDS A WHERE LANGUAGECODE = 'ENU' AND KEYWORDCLASS = 1 AND KEYWORDNAME = 'ICM$NAME' AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPATTRS B WHERE B.ATTRIBUTEID = A.KEYWORDCODE AND B.COMPONENTTYPEID = 410 AND B.ATTRIBUTEGROUP = 0 AND A.LANGUAGECODE = 'ENU' AND A.KEYWORDCLASS = 1 AND A.KEYWORDNAME = 'ICM$NAME') ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 1 , 1 , -11 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 1 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 2 , 1 , -10 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 2 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 3 , 1 , -9 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 3 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 4 , 1 , -8 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 4 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 5 , 1 , -7 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 5 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 6 , 1 , -6 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 6 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 39 , 1 , -5 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 39 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 44 , 1 , -4 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 44 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 45 , 1 , -3 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 45 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 46 , 1 , -2 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 46 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 47 , 1 , -1 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 47 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , 127 , 1 , 0 , 3 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS WHERE COMPONENTVIEWID = 410 AND ATTRIBUTEID = 127 AND ATTRIBUTEGROUP = 1) ; INSERT INTO ?CREATOR?.ICMSTCOMPVIEWATTRS (COMPONENTVIEWID, ATTRIBUTEID, ATTRIBUTEGROUP, SEQUENCENUM, ATTRIBUTEFLAGS, VIEWOPERATOR) SELECT 410 , KEYWORDCODE, 0 , 1 , 3 , 0 FROM ?CREATOR?.ICMSTNLSKEYWORDS A WHERE LANGUAGECODE = 'ENU' AND KEYWORDCLASS = 1 AND KEYWORDNAME = 'ICM$NAME' AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTCOMPVIEWATTRS B WHERE B.ATTRIBUTEID = A.KEYWORDCODE AND B.COMPONENTVIEWID = 410 AND B.ATTRIBUTEGROUP = 0 AND A.LANGUAGECODE = 'ENU' AND A.KEYWORDCLASS = 1 AND A.KEYWORDNAME = 'ICM$NAME') ; INSERT INTO ?CREATOR?.ICMSTITEMS001001 (ITEMID, VERSIONID, COMPONENTID, SEGMENTID, ACLCODE, SEMANTICTYPE, ITEMTYPEID, COMPONENTTYPEID, CHANGED, INPROGRESS, ICMMANAGEDRECORD) SELECT 'A1001001000000000000000000', 1 , '000000000000000000', 1 , 5 , 2 , 410 , 410 , CURRENT TIMESTAMP, 0 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTITEMS001001 WHERE ITEMID = 'A1001001000000000000000000') ; INSERT INTO ?CREATOR?.ICMSTITEMS001001 (ITEMID, VERSIONID, COMPONENTID, SEGMENTID, ACLCODE, SEMANTICTYPE, ITEMTYPEID, COMPONENTTYPEID, CHANGED, INPROGRESS, ICMMANAGEDRECORD) SELECT 'A1001001000000000000000001', 1 , '000000000000000001', 1 , 6 , 2 , 410 , 410 , CURRENT TIMESTAMP, 0 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTITEMS001001 WHERE ITEMID = 'A1001001000000000000000001') ; INSERT INTO ?CREATOR?.ICMSTLINKS001001 (TARGETITEMID, SOURCEITEMID, LINKTYPE, CHANGED) SELECT 'A1001001000000000000000001', 'A1001001000000000000000000', 2 , current timestamp FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTLINKS001001 WHERE TARGETITEMID = 'A1001001000000000000000001' AND SOURCEITEMID = 'A1001001000000000000000000' AND LINKTYPE = 2) ; INSERT INTO ?CREATOR?.ICMSTHLINKS (PARENTITEMID, CHILDITEMID, CHILDNAME) SELECT 'A1001001000000000000000000', 'A1001001000000000000000001', 'ICMSYSDEFAULTFOLDER' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTHLINKS WHERE PARENTITEMID = 'A1001001000000000000000000' AND CHILDNAME = 'ICMSYSDEFAULTFOLDER') ; UPDATE ?CREATOR?.ICMSTMAXKEYWORD SET MAXKEYWORD = 6 WHERE KEYWORDCLASS = 13 AND MAXKEYWORD < 6 ; UPDATE ?CREATOR?.ICMSTMAXKEYWORD SET MAXKEYWORD = 11 WHERE KEYWORDCLASS = 6 AND MAXKEYWORD < 11 ; COMMIT; /* //* Steps CM8403SB to CM8403SF creates table ICMUT00410001, //* its indexes and inserts two rows into ICMUT00410001. //* One column name of ICMUT00410001 is dynamically determined. //* //* CM8403SB - Delete workfile. //* CM8403SC - Bind the plan for program ICMPLSU8 //* CM8403SD - Execute program ICMPLSU8 //* - Generate and output CREATE TABLE statement to file. //* CM8403SE - Execute the SQL generated in step CM8403SD to //* create table ICMUT00410001. //* CM8403SF - Create indexes and insert two rows into the //* table ICMUT00410001. //* //* PLEASE NOTE: //* //* If you want to review Create table statement before execution: //* //* - Move step CM8403SE and all steps after it to another job. //* - Run this job up to (and including) step CM8403SD. //* - Review the generated CREATE TABLE statement. //* - Run the other job to execute step CM8403SE and the rest //* of the steps. //* - If you need to keep the CREATE TABLE statement in the //* ?CM8403SQL? data set, you can change the DISP to SHR and //* manually delete it later. //* //* DSN=?CM8403SQL? contains the following statement after //* executing the program ICMPLSU8. //* The token ?CREATOR?, ?DATABASE? //* will be replaced by the input parameters. Please note the //* column name ATTR0000001000 might be different which //* depends on the attribute ID. //* //* CREATE TABLE ?CREATOR?.ICMUT00410001 ( //* COMPCLUSTERID INT NOT NULL, //* COMPONENTID CHAR(18) NOT NULL, //* ITEMID CHAR(26) NOT NULL, //* VERSIONID SMALLINT NOT NULL, //* ACLCODE INT NOT NULL, //* SEMANTICTYPE INT NOT NULL, //* COMPKEY VARCHAR(23) FOR BIT DATA NOT NULL, //* CREATETS TIMESTAMP NOT NULL, //* CREATEUSERID CHAR(32) NOT NULL, //* LASTCHANGEDTS TIMESTAMP NOT NULL, //* LASTCHANGEDUSERID CHAR(32) NOT NULL, //* ICMMANAGEDRECORD SMALLINT DEFAULT 0 NOT NULL, //* ATTR0000001000 VARCHAR(256) NOT NULL, //* PRIMARY KEY (COMPKEY), //* UNIQUE (COMPONENTID, VERSIONID) //* ) IN ?DATABASE?.TS00410 //* //* //* CM8403SB - Delete workfile. //* //CM8403SB EXEC PGM=IEFBR14, // COND=(5,LE) //DD1 DD DSN=?CM8403SQL?, // DISP=(MOD,DELETE,DELETE), // SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA //* //* CM8403SC- Bind the plan for program ICMPLSU8 //* //CM8403SC EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //DBRMLIB DD DISP=SHR,DSN=?ICM?.SICMDBR1 //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //DSNTRACE DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) BIND PACKAGE (?DB2PKGCOLLID?) - MEMBER(ICMPLSU8) - QUALIFIER(?CREATOR?) - OWNER(?OWNER?) - ISOLATION(CS) - CURRENTDATA(NO) - RELEASE(COMMIT) - ACTION(REPLACE) - VALIDATE(BIND) - DYNAMICRULES(BIND) BIND PACKAGE (?DB2PKGCOLLID?) - MEMBER(ICMPLSUP) - QUALIFIER(?CREATOR?) - OWNER(?OWNER?) - ISOLATION(CS) - CURRENTDATA(NO) - RELEASE(COMMIT) - ACTION(REPLACE) - VALIDATE(BIND) - DYNAMICRULES(BIND) BIND PLAN (?U8PLAN?) - PKLIST(?DB2PKGCOLLID?.ICMPLSU8, - ?DB2PKGCOLLID?.ICMPLSUP) - QUALIFIER(?CREATOR?) - OWNER(?SQLID?) - ISOLATION(CS) - CURRENTDATA(NO) - RELEASE(COMMIT) - ACTION(REPLACE) - VALIDATE(BIND) - DYNAMICRULES(RUN) /* //* //* CM8403SD- Run ICMPLSU8 to generate and output //* CREATE TABLE statement to file. //* //CM8403SD EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //STEPLIB DD DSN=?DSN?.SDSNLOAD,DISP=SHR // DD DISP=SHR,DSN=?LEHLQ?.SCEERUN // DD DISP=SHR,DSN=?ICM?.SICMLOD1 //ICMU8SQL DD DSN=?CM8403SQL?, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000,BUFNO=5), // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(ICMPLSU8) PLAN(?U8PLAN?) - PARMS('/?CREATOR? 8.4.03.000 ?DATABASE?') END /* //* //* CM8403SE //* This step will execute SQLs generated in step //* CM8403SD to perform schema changes. //* //CM8403SE EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD DISP=SHR,DSN=?CM8403SQL? //* //* CM8403SF //* This step will create two indexes and insert two //* rows of ICMUT00410001 //* Only if all steps through CM8403SE have executed //* successfully. //* //CM8403SF EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; CREATE UNIQUE INDEX ?CREATOR?.ICMUX004100011P ON ?CREATOR?.ICMUT00410001 ( COMPKEY ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE UNIQUE INDEX ?CREATOR?.ICMUX004100012P ON ?CREATOR?.ICMUT00410001 ( COMPONENTID ASC, VERSIONID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; COMMIT ; INSERT INTO ?CREATOR?.ICMUT00410001 SELECT 1 , COMPONENTID, ITEMID, VERSIONID, ACLCODE, SEMANTICTYPE, '00000000000000000000001', CHANGED, UCASE('?ICMADMIN?'), CHANGED, UCASE('?ICMADMIN?'), ICMMANAGEDRECORD, 'ICMROOTFOLDER' FROM ?CREATOR?.ICMSTITEMS001001 WHERE ITEMID = 'A1001001000000000000000000' AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMUT00410001 WHERE COMPKEY = '00000000000000000000001') ; INSERT INTO ?CREATOR?.ICMUT00410001 SELECT 1 , COMPONENTID, ITEMID, VERSIONID, ACLCODE, SEMANTICTYPE, '00000000000000000100001', CHANGED, UCASE('?ICMADMIN?'),CHANGED, UCASE('?ICMADMIN?'), ICMMANAGEDRECORD, 'ICMSYSDEFAULTFOLDER' FROM ?CREATOR?.ICMSTITEMS001001 WHERE ITEMID = 'A1001001000000000000000001' AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMUT00410001 WHERE COMPKEY = '00000000000000000100001') ; COMMIT ; /* //* //* CM8403SG //* This step will drop index ICMSXLinks0010013X //* If this index exists, include the following //* statements in the job step CM8403SG. //* DROP INDEX ?CREATOR?.ICMSXLinks0010013X ; //* COMMIT; //* //CM8403SG EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; /* //* CM8403SH //* This step will update the current Library Server //* version/release to '8.4.03.000' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF all steps through CM8403SG have executed //* successfully. //* //CM8403SH EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.4.03.000' WHERE 1 = 1; COMMIT; /* //* CM8403SI //* This step will perform several changes, //* including: //* - drop and create stored procedures //* - add new table spaces, tables and indexes //* - update/insert rows of tables //* //CM8403SI EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; DROP PROCEDURE ?CREATOR?.ICMCHECKINITEM RESTRICT; DROP PROCEDURE ?CREATOR?.ICMCHECKOUTITEM RESTRICT; DROP PROCEDURE ?CREATOR?.ICMDELETEDOC RESTRICT; DROP PROCEDURE ?CREATOR?.ICMDELETEITEM RESTRICT; DROP PROCEDURE ?CREATOR?.ICMLINKITEMS RESTRICT; COMMIT; create procedure ?CREATOR?.ICMCHECKINITEM ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In lNumOfItems INTEGER, Out sItemReqNum SMALLINT, In ItemIDCLOB CLOB(320K), In ItemIDBLOB BLOB(320K), In sTran SMALLINT, InOut szTranID CHAR(26) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSCI; create procedure ?CREATOR?.ICMCHECKOUTITEM ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In sIsCheckedOut SMALLINT, In sForceCheckOut SMALLINT, In lNumOfItems INTEGER, InOut ItemIDCLOB CLOB(320K), InOut ItemIDBLOB BLOB(320K), In sTran SMALLINT, InOut szTranID CHAR(26) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSCO; create procedure ?CREATOR?.ICMDELETEDOC ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In lLibraryID INTEGER, In sNumOfDocs SMALLINT, In ItemCLOB CLOB(320K), In ItemBLOB BLOB(320K), In sTran SMALLINT, InOut szTranID CHAR(26) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSDD; create procedure ?CREATOR?.ICMDELETEITEM ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In sNumOfItems SMALLINT, In ItemCLOB CLOB(320K), In ItemBLOB BLOB(320K), InOut szItemReqNum SMALLINT ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSDI; create procedure ?CREATOR?.ICMLINKITEMS ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In szLinkItemCLOB CLOB(320K), In szLinkItemBLOB BLOB(320K), In lNumOfLinks INTEGER ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSLI; COMMIT; CREATE TABLESPACE ICMEVMOQ IN ?DATABASE? USING STOGROUP ?STOGROUP? PRIQTY ?PRILRG? SECQTY ?SECLRG? FREEPAGE 1 PCTFREE 5 BUFFERPOOL ?BP32? LOCKSIZE ROW LOCKMAX 0 CLOSE NO; CREATE TABLESPACE ESUVLSTS IN ?DATABASE? USING STOGROUP ?STOGROUP? PRIQTY ?PRILRG? SECQTY ?SECLRG? FREEPAGE 1 PCTFREE 5 BUFFERPOOL ?BPS4? LOCKSIZE ROW LOCKMAX 0 CLOSE NO; CREATE TABLESPACE ESAVLSTS IN ?DATABASE? USING STOGROUP ?STOGROUP? PRIQTY ?PRILRG? SECQTY ?SECLRG? FREEPAGE 1 PCTFREE 5 BUFFERPOOL ?BPS4? LOCKSIZE ROW LOCKMAX 0 CLOSE NO; CREATE LOB TABLESPACE ICMEQMSG IN ?DATABASE? LOG NO; CREATE TABLE ?CREATOR?.ICMSTEVENTMONITORQUEUE ( LSEVENTID NUMERIC(19) NOT NULL, ITEMID CHAR(26) NOT NULL, APPLICATIONID SMALLINT NOT NULL, EVENTCODE SMALLINT NOT NULL, LAUNCH SMALLINT NOT NULL, DATACOUNT SMALLINT NOT NULL WITH DEFAULT 0 , PROCESSED SMALLINT NOT NULL WITH DEFAULT 0 , RETRY SMALLINT NOT NULL WITH DEFAULT 0 , CREATETIME TIMESTAMP NOT NULL , PRIORITY SMALLINT NOT NULL WITH DEFAULT 0 , MESSAGEVC VARCHAR(30000), MESSAGECLOB CLOB(1G), EVENTCONTAINER VARCHAR(256), PRIMARY KEY (LSEVENTID, APPLICATIONID) ) IN ?DATABASE?.ICMEVMOQ ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXEVENTMONITORQUEUE1U ON ?CREATOR?.ICMSTEVENTMONITORQUEUE ( LSEVENTID ASC, APPLICATIONID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE INDEX ?CREATOR?.ICMSXEVENTMONITORQUEUE1X ON ?CREATOR?.ICMSTEVENTMONITORQUEUE ( LSEVENTID ASC, APPLICATIONID ASC, PROCESSED ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE AUXILIARY TABLE ?CREATOR?.ICMSTEVENTMONITORQUEUEC IN ?DATABASE?.ICMEQMSG STORES ?CREATOR?.ICMSTEVENTMONITORQUEUE COLUMN MESSAGECLOB ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXMQC ON ?CREATOR?.ICMSTEVENTMONITORQUEUEC USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE TABLE ?CREATOR?.ICMSTEVENTSUBSCRIPTIONSVER ( EVENTSUBSCID INTEGER NOT NULL, VERSIONID INTEGER NOT NULL, EVENTCODE INTEGER NOT NULL, ITEMTYPEID INTEGER NOT NULL, PROCESSID VARCHAR(254), PROCESSVERSION CHAR(32), APPLICATIONTYPE INTEGER NOT NULL, CREATED TIMESTAMP NOT NULL, UPDATED TIMESTAMP NOT NULL, CREATEUSER CHAR(32) NOT NULL, VERCREATED TIMESTAMP NOT NULL, PRIMARY KEY (EVENTSUBSCID, VERSIONID, EVENTCODE, ITEMTYPEID) ) IN ?DATABASE?.ESUVLSTS ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXEVENTSUBSVER1U ON ?CREATOR?.ICMSTEVENTSUBSCRIPTIONSVER ( EVENTSUBSCID ASC, VERSIONID ASC, EVENTCODE ASC, ITEMTYPEID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE INDEX ?CREATOR?.ICMSXEVENTSUBSVER1X ON ?CREATOR?.ICMSTEVENTSUBSCRIPTIONSVER ( EVENTCODE ASC, ITEMTYPEID ASC, VERSIONID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE TABLE ?CREATOR?.ICMSTEVENTSUBSCRIPTIONATTRSVER ( EVENTSUBSCID INTEGER NOT NULL, VERSIONID INTEGER NOT NULL, EVENTCODE INTEGER NOT NULL, ITEMTYPEID INTEGER NOT NULL, COMPONENTTYPEID INTEGER NOT NULL, COMPONENTKIND SMALLINT NOT NULL, ATTRIBUTEID INTEGER NOT NULL, ATTRIBUTEGROUPID INTEGER NOT NULL, MAPPEDATTRIBUTE VARCHAR(254), FOREIGN KEY (EVENTSUBSCID, VERSIONID, EVENTCODE, ITEMTYPEID) REFERENCES ?CREATOR?.ICMSTEVENTSUBSCRIPTIONSVER (EVENTSUBSCID, VERSIONID, EVENTCODE, ITEMTYPEID) ON DELETE CASCADE ) IN ?DATABASE?.ESAVLSTS ; CREATE INDEX ?CREATOR?.ICMSXEVENTSUBATTVER1X ON ?CREATOR?.ICMSTEVENTSUBSCRIPTIONATTRSVER ( EVENTSUBSCID ASC, VERSIONID ASC, EVENTCODE ASC, ITEMTYPEID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; COMMIT; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 610 , 'DR ADD ACTION', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Add Action' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 610) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 611 , 'DR UPDATE ACTION', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Update Action' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 611) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 612 , 'DR DELETE ACTION', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Delete Action' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 612) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 613 , 'DR ADD ACTIONLIST', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Add Actionlist' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 613) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 614 , 'DR UPDATE ACTIONLIST', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Update Actionlist' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 614) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 615 , 'DR DELETE ACTIONLIST', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Delete Actionlist' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 615) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 622 , 'DR ADD WORKNODE', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Add Worknode' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 622) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 623 , 'DR UPDATE WORKNODE', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Update Worknode' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 623) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 624 , 'DR DELETE WORKNODE', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Delete Worknode' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 624) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 625 , 'DR ADD WORKLIST', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Add Worklist' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 625) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 626 , 'DR UPDATE WORKLIST', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Update Worklist' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 626) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 627 , 'DR DELETE WORKLIST', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Delete Worklist' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 627) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 628 , 'DR ADD WORKPROCESS', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Add Workprocess' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 628) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 629 , 'DR UPDATE WORKPROCESS', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Update Workprocess' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 629) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 630 , 'DR DELETE WORKPROCESS', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'DR Delete Workprocess' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 630) ; UPDATE ?CREATOR?.ICMSTMAXKEYWORD SET MAXKEYWORD = 630 WHERE KEYWORDCLASS = 16 AND MAXKEYWORD < 630 ; COMMIT; /* //* CM8403SJ //* This step will update the current Library Server //* version/release to '8.4.03.100' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF step CM8403SI have executed successfully. //* //CM8403SJ EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.4.03.100' WHERE 1 = 1; COMMIT; /* //* CM8403SK //* This step will perform the following changes: //* - delete a duplicate index ICMSXITEMTYPEDEF3X. //* - clean up IKF priviege used by info mining //* which is no longer supported. Remove //* Privilege code : (600 to 618) //* Privilege Set code : 13, 14 //* Privilege group code : 15, 16, 17, 18 //* //* In case you get -532 which means that //* the to be deleted privilege is being //* referred by user defined data, you need //* to clean up the constraint first. //* //* NOTE: It is possible that the index being dropped //* and the rows being deleted in this step may //* not exist on your system. Also, it is possible //* that the index being created in this step //* already exists on your system. Either of these //* conditions is not considered an error, and //* non-zero return codes from this step as a result //* may be safely ignored. //* //* - create a new index to improve async delete process //* performance. //* //* - change DYNAMIC RESULT SETS from 1 to 0 for //* stored procedure ICMGETTOBEDELETED2. //* - set ACLTYPE column in ICMSTAccessCodes to DEFAULT 0. //* //CM8403SK EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; DROP INDEX ?CREATOR?.ICMSXITEMTYPEDEF3X; COMMIT; DELETE FROM ?CREATOR?.ICMSTNLSKEYWORDS WHERE (KEYWORDCLASS = 10 AND KEYWORDCODE IN (600 , 601 , 602 , 603 , 604 , 605 , 606 , 607 , 608 , 609 , 610 , 611 , 612 , 613 , 614 , 615 , 616 , 617 , 618)) OR (KEYWORDCLASS = 11 AND KEYWORDCODE IN (13 , 14)) OR (KEYWORDCLASS = 12 AND KEYWORDCODE IN (15 , 16 , 17 , 18)); DELETE FROM ?CREATOR?.ICMSTDOMAINPRIVSET WHERE PRIVSETCODE IN (13 , 14); DELETE FROM ?CREATOR?.ICMSTPRIVGROUPS WHERE PRIVDEFCODE IN (600 , 601 , 602 , 603 , 604 , 605 , 606 , 607 , 608 , 609 , 610 , 611 , 612 , 613 , 614 , 615 , 616 , 617 , 618); DELETE FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVDEFCODE IN (600 , 601 , 602 , 603 , 604 , 605 , 606 , 607 , 608 , 609 , 610 , 611 , 612 , 613 , 614 , 615 , 616 , 617 , 618); DELETE FROM ?CREATOR?.ICMSTPRIVGROUPCODE WHERE PRIVGROUPCODE IN (15 , 16 , 17 , 18); DELETE FROM ?CREATOR?.ICMSTPRIVSETCODES WHERE PRIVSETCODE IN (13 , 14); DELETE FROM ?CREATOR?.ICMSTPRIVDEFS WHERE PRIVDEFCODE IN (600 , 601 , 602 , 603 , 604 , 605 , 606 , 607 , 608 , 609 , 610 , 611 , 612 , 613 , 614 , 615 , 616 , 617 , 618); COMMIT; CREATE INDEX ?CREATOR?.ICMSXITEMSTODELE1X ON ?CREATOR?.ICMSTITEMSTODELETE ( RMCODE ASC, SMSCOLLCODE ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; COMMIT; ALTER PROCEDURE ?CREATOR?.ICMGETTOBEDELETED2 DYNAMIC RESULT SETS 0 ; ALTER TABLE ?CREATOR?.ICMSTAccessCodes ALTER COLUMN ACLTYPE SET DEFAULT 0; COMMIT ; /* //* CM8403SL //* This step will update the current Library Server //* version/release to '8.4.03.200' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF all steps through CM8403SK have executed //* successfully. //* //CM8403SL EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.4.03.200' WHERE 1 = 1; COMMIT; /* //* CM8403SM //* This step will update the current Library Server //* version/release to '8.4.03.300' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF all steps through CM8403SL have executed //* successfully. //* //CM8403SM EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.4.03.300' WHERE 1 = 1; COMMIT; /* //* CM8500S1 //* This step will drop and create five stored //* procedures and one function to change their //* parameter CCSID to ?CCSID? //* //* NOTE: This step will change the CCSID of user exit function //* ICMACLPRIVEXIT from UNICODE to ?CCSID? which ?CCSID? //* will be replaced by the CCSID of your library server database. //* However, if your library server already used the user exit //* ICMACLPRIVEXIT successfully then you can override the //* ?CCSID? to use the same CCSID you have been used for //* ICMACLPRIVEXITT. //* //CM8500S1 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; DROP PROCEDURE ?CREATOR?.ICMGETDOCTOC RESTRICT; DROP PROCEDURE ?CREATOR?.ICMGETLINKEDITEMS RESTRICT; DROP PROCEDURE ?CREATOR?.ICMLISTEVENT RESTRICT; DROP PROCEDURE ?CREATOR?.ICMWRITEEVENT RESTRICT; DROP PROCEDURE ?CREATOR?.ICMWRITEEVENTS RESTRICT; DROP FUNCTION ?CREATOR?.ICMACLPRIVEXIT RESTRICT; COMMIT; create procedure ?CREATOR?.ICMGETDOCTOC ( OUT lRC INTEGER, OUT lReason INTEGER, OUT lExtRC INTEGER, OUT lExtReason INTEGER, IN sTraceLevel SMALLINT, IN lReserved1 INTEGER, IN szUserInfo VARCHAR(254), IN szUserToken CHAR(32), INOUT lReserved INTEGER, In sNumOfDocs SMALLINT, InOut ItemCLOB CLOB(320K), InOut ItemBLOB BLOB(320K) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSGD; create procedure ?CREATOR?.ICMGETLINKEDITEMS ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In szItemID CHAR(26), In lLinkType INTEGER, In sbDirection SMALLINT, In sbDetail SMALLINT ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 1 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSGL; create procedure ?CREATOR?.ICMLISTEVENT ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, In szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In lEventCode INTEGER, In szItemID CHAR(26) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 2 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSLV; create procedure ?CREATOR?.ICMWRITEEVENT ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In lEventCode INTEGER, In szItemID CHAR(26), In szEventData1 VARCHAR(254), In szEventData2 VARCHAR(254), In szEventData3 VARCHAR(254), In szEventData4 VARCHAR(254), In szEventData5 VARCHAR(254) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSWE; create procedure ?CREATOR?.ICMWRITEEVENTS ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In lEventCode INTEGER, In psNumOfEvents SMALLINT, In EventCLOB CLOB(5M), In EventBLOB BLOB(5M) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSW2; create function ?CREATOR?.ICMACLPRIVEXIT ( VARCHAR(33), VARCHAR(32670), varchar(151), INTEGER, VARCHAR(20), INTEGER, CHAR(26), INTEGER, INTEGER ) RETURNS INTEGER NO COLLID WLM ENVIRONMENT ?WLMENV? PROGRAM TYPE SUB EXTERNAL NAME ICMACLXT LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? FENCED STAY RESIDENT YES NO SQL; COMMIT; /* //* CM8500S2 //* This step will perform several changes, //* including: //* - create table space, table, and view //* - alter tables //* - drop/create indexes //* - create sequence //* - drop and create stored procedures //* - drop UDF ICMFETCHCONTENT //* - create a new UDF ICMCONSTRREF //* - insert/update ICMSTNLSKEYWORDS table //* - load the new privilege and privilege set information //* which allows assignment of a privilege set to a user ID //* to strictly run Resource Manager services; the new //* privilege set only applies to domain ID 1, 2 and 1000, //* customer may apply additional user defined domains //* if domain is enabled. //* - insert a new privilege set. //* - insert new mime types. //* - insert a new privilege. //* - alter stored procedure ICMLOGON, which is optional. //* note you must add the following alter statement only if LDAP //* authentication using LDAP Logon Exit is required //* //* ALTER PROCEDURE ?CREATOR?.ICMLOGON //* RUN OPTIONS 'POSIX(ON)'; //* //* - alter stored procedure ICMKEYMGMT, which is optional. //* note you must add the following alter statement only if the //* HTTPS/SSL option is enabled //* //* ALTER PROCEDURE ?CREATOR?.ICMKEYMGMT //* RUN OPTIONS 'POSIX(ON)'; //* //* - insert a row into the SYSIBMTS.SYSTEXTDEFAULTS table, //* which is optional. //* note you must add the following insert statement only if the //* DB2TS (DB2 for z/OS Text Search) is enabled. //* //* INSERT INTO SYSIBMTS.SYSTEXTDEFAULTS //* VALUES('DATAPREP:ICMDCTOR', '', 1); //* //* - update the text search user defined function name, //* which is optional. //* note you must issue the following CALL and UPDATE statements //* by using DB2 CLP (the DB2 command prompt) on your workstation //* after you connect the DB2 for z/OS subsystem, //* only if the DB2TS (DB2 for z/OS Text Search) is enabled. //* //* CALL SYSPROC.SYSTS_ALTER ('?CREATOR?', 'indexName', //* 'RENAME FUNCTION ?CREATOR?.ICMCONSTRREF'); //* //* UPDATE ?CREATOR?.ICMSTTEXTINDEXCONF //* SET UDFName = 'ICMCONSTRREF' //* WHERE UPPER(UDFName) = 'ICMFETCHCONTENT'; //* //* You can find out the index name by entering the following query //* SELECT indexname, tablename from SYSIBMTS.SYSTEXTINDEXES //* //CM8500S2 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; CREATE TABLESPACE HOLDLINK IN ?DATABASE? USING STOGROUP ?STOGROUP? PRIQTY ?PRILRG? SECQTY ?SECLRG? FREEPAGE 1 PCTFREE 5 DSSIZE 4G MAXPARTITIONS 100 SEGSIZE 64 BUFFERPOOL ?BPS4? LOCKSIZE ROW LOCKMAX 0 CLOSE NO; CREATE TABLE ?CREATOR?.ICMSTHOLDLINKS001001 ( LinkItemID CHAR(26) , SourceItemID CHAR(26) NOT null, TargetItemID CHAR(26) NOT null, TargetVersionID SMALLINT NOT null, LINKTYPE INTEGER NOT null, Changed TIMESTAMP NOT null ) IN ?DATABASE?.HOLDLINK; CREATE UNIQUE INDEX ?CREATOR?.ICMSXHOLDLINKS0010011U ON ?CREATOR?.ICMSTHOLDLINKS001001 ( TargetItemID ASC, TargetVersionID ASC, SourceItemID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4?; CREATE UNIQUE INDEX ?CREATOR?.ICMSXHOLDLINKS0010012U ON ?CREATOR?.ICMSTHOLDLINKS001001 ( SourceItemID ASC, TargetItemID ASC, TargetVersionID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4?; CREATE TABLESPACE RETPOLCY IN ?DATABASE? USING STOGROUP ?STOGROUP? PRIQTY ?PRILRG? SECQTY ?SECLRG? FREEPAGE 1 PCTFREE 5 DSSIZE 4G MAXPARTITIONS 100 SEGSIZE 64 BUFFERPOOL ?BPS4? LOCKSIZE ROW LOCKMAX 0 CLOSE NO; CREATE TABLE ?CREATOR?.ICMSTRETENTIONPOLICY ( RETPOLICYID INTEGER NOT NULL, RETTYPE SMALLINT NOT NULL, RETENABLED SMALLINT NOT NULL, RETDUR INTEGER NOT NULL, RETDURUNIT SMALLINT NOT NULL, EXPENABLED SMALLINT NOT NULL, EXPDUR INTEGER NOT NULL, EXPDURUNIT SMALLINT NOT NULL, EXPACTION SMALLINT NOT NULL, DELOPTIONFLAG INTEGER , DELMAXDURATION INTEGER , DELCOMMITCOUNT INTEGER , DELMAXROWS INTEGER , DELSCHEDULEINFO VARCHAR(1024) , PRIMARY KEY (RETPOLICYID) ) IN ?DATABASE?.RETPOLCY ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXRETENTIONPOLICY1U ON ?CREATOR?.ICMSTRETENTIONPOLICY ( RETPOLICYID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE TABLESPACE SERVLSTS IN ?DATABASE? USING STOGROUP ?STOGROUP? PRIQTY ?PRILRG? SECQTY ?SECLRG? FREEPAGE 1 PCTFREE 5 DSSIZE 4G MAXPARTITIONS 100 SEGSIZE 64 BUFFERPOOL ?BPS4? LOCKSIZE ROW LOCKMAX 0 CLOSE NO; CREATE TABLE ?CREATOR?.ICMSTSERVICEEVENT ( LSSERVICEID INTEGER NOT null, INSTANCEPARM VARCHAR(254) , TRANSACTIONID VARCHAR(26) NOT null, Created TIMESTAMP NOT null, ItemID CHAR(26) , VERSIONID SMALLINT , UserID CHAR(32) NOT null, LSRETCODE VARCHAR(10) NOT null, SEVERITY INTEGER NOT null, MESSAGE VARCHAR(1024) ) IN ?DATABASE?.SERVLSTS ; CREATE INDEX ?CREATOR?.ICMSXSERVICEEVENT1X ON ?CREATOR?.ICMSTSERVICEEVENT ( SEVERITY ASC, CREATED ASC, INSTANCEPARM ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE INDEX ?CREATOR?.ICMSXSERVICEEVENT2X ON ?CREATOR?.ICMSTSERVICEEVENT ( ITEMID ASC, VERSIONID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; COMMIT; CREATE VIEW ?CREATOR?.ICMSVLINKS001001 AS SELECT LINKITEMID,TARGETITEMID,SOURCEITEMID,LINKTYPE, CHANGED FROM ?CREATOR?.ICMSTLINKS001001 UNION ALL SELECT LINKITEMID,TARGETITEMID,SOURCEITEMID,LINKTYPE, CHANGED FROM ?CREATOR?.ICMSTHOLDLINKS001001 ; COMMIT; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN QUIESCEGRACEPERIOD INTEGER NOT NULL WITH DEFAULT -1; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN QUIESCEDURATION INTEGER NOT NULL WITH DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN KEYSTOREFILE VARCHAR(259); ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN KEYSTORESTASHFILE VARCHAR(259); ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN KEYSTORECERTLABEL VARCHAR(128); ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN SYSTEMFLAG3 INTEGER NOT NULL WITH DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN SYSTEMFLAG4 INTEGER NOT NULL WITH DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN USAGESTATSTARTTIME INTEGER NOT NULL WITH DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN USAGESTATFREQTYPE SMALLINT NOT NULL WITH DEFAULT 1; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN USAGESTATFREQ INTEGER NOT NULL WITH DEFAULT 24; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN LICENSETYPE SMALLINT NOT NULL WITH DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN QUERYTHRESHOLD INTEGER NOT NULL WITH DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTUSERS ADD COLUMN PASSWORD2 VARCHAR(256) FOR BIT DATA; ALTER TABLE ?CREATOR?.ICMSTUSERS ADD COLUMN SALT CHAR(32); ALTER TABLE ?CREATOR?.ICMSTCOLLNAME ADD COLUMN COLLOPTIONS INTEGER NOT NULL WITH DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTPRIVSETCODES ADD COLUMN OWNER CHAR(32); ALTER TABLE ?CREATOR?.ICMSTPRIVSETCODES ADD COLUMN TYPE SMALLINT NOT NULL DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTPRIVSETCODES ADD COLUMN APPNAME VARCHAR(128); ALTER TABLE ?CREATOR?.ICMSTPRIVSETCODES ADD COLUMN SCOPEID INTEGER DEFAULT -1 ; ALTER TABLE ?CREATOR?.ICMSTAccessCodes ALTER COLUMN ACLTYPE SET DEFAULT 0 ADD COLUMN APPNAME VARCHAR(128); ALTER TABLE ?CREATOR?.ICMSTAccessCodes ADD COLUMN SCOPEID INTEGER DEFAULT -1 ; ALTER TABLE ?CREATOR?.ICMSTItemTypeDefs ADD COLUMN RETPOLICYID INTEGER; ALTER TABLE ?CREATOR?.ICMSTItemTypeDefs ADD COLUMN DELMAXDURATION INTEGER DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTItemTypeDefs ADD COLUMN DELCOMMITCOUNT INTEGER DEFAULT 100; ALTER TABLE ?CREATOR?.ICMSTItemTypeDefs ADD COLUMN DELMAXROWS INTEGER DEFAULT 0; ALTER TABLE ?CREATOR?.ICMSTItemTypeDefs ADD COLUMN DELSCHEDULEINFO VARCHAR(1024); ALTER TABLE ?CREATOR?.ICMSTTextIndexConf ADD COLUMN TEXTINDEXTYPE SMALLINT DEFAULT 2 NOT NULL; ALTER TABLE ?CREATOR?.ICMSTTextIndexConf ADD COLUMN TSSERVERID INTEGER; ALTER TABLE ?CREATOR?.ICMSTTextIndexConf ADD COLUMN ACTIVEFLAG SMALLINT DEFAULT 1 NOT NULL; ALTER TABLE ?CREATOR?.ICMSTTextIndexConf ADD COLUMN CONSTRUCTOR VARCHAR(259); ALTER TABLE ?CREATOR?.ICMSTTextIndexConf ADD COLUMN COLLECTIONDIR VARCHAR(512); ALTER TABLE ?CREATOR?.ICMSTTextIndexConf ADD COLUMN COMMITTYPE VARCHAR(5); ALTER TABLE ?CREATOR?.ICMSTTextIndexConf ADD COLUMN COMMITCYCLE INTEGER; ALTER TABLE ?CREATOR?.ICMSTTEXTINDEXCONF DROP PRIMARY KEY; COMMIT; DROP INDEX ?CREATOR?.ICMSTTextIndexCo1U; COMMIT; CREATE UNIQUE INDEX ?CREATOR?.ICMSTTextIndexCo1U ON ?CREATOR?.ICMSTTextIndexConf ( ComponentTypeID ASC, ColumnName ASC, TEXTINDEXTYPE ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4?; COMMIT; ALTER TABLE ?CREATOR?.ICMSTTEXTINDEXCONF ADD PRIMARY KEY (COMPONENTTYPEID, COLUMNNAME, TEXTINDEXTYPE); COMMIT; DROP INDEX ?CREATOR?.ICMSXAccessLists1U; DROP INDEX ?CREATOR?.ICMSXAccessLists2U; COMMIT; CREATE INDEX ?CREATOR?.ICMSXAccessLists1U ON ?CREATOR?.ICMSTAccessLists ( ACLCode ASC, UserID ASC, PRIVSETCODE ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXAccessLists2U ON ?CREATOR?.ICMSTACCESSLISTS ( USERID ASC, USERKIND ASC, ACLCODE ASC, PRIVSETCODE ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE INDEX ?CREATOR?.ICMSXPRIVSETCODES1X ON ?CREATOR?.ICMSTPrivSetCodes ( OWNER ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE INDEX ?CREATOR?.ICMSXITEMTYPEDEF3X ON ?CREATOR?.ICMSTITEMTYPEDEFS ( RETPOLICYID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; COMMIT; CREATE SEQUENCE ?CREATOR?.ICM_SEQ_ID AS INT INCREMENT BY 1 MINVALUE 1 MAXVALUE 2000000000 CYCLE CACHE 20; COMMIT; DROP PROCEDURE ?CREATOR?.ICMRMCHECKOUT RESTRICT; COMMIT; CREATE PROCEDURE ?CREATOR?.ICMRMCHECKOUT ( OUT lRC INTEGER, OUT lReason INTEGER, OUT lExtRC INTEGER, OUT lExtReason INTEGER, IN sTraceLevel SMALLINT, IN lReserved1 INTEGER, IN szUserInfo VARCHAR(254), IN szUserToken CHAR(32), INOUT lReserved INTEGER, IN sReplicationFlag SMALLINT, IN szItemID CHAR(26), IN sVersionID SMALLINT, IN sSourceRMCode SMALLINT, IN sSourceSMSCollCode SMALLINT, IN sTargetRMCode SMALLINT, IN sTargetSMSCollCode SMALLINT, OUT szTranID VARCHAR(26), OUT szTranToken VARCHAR(32), OUT szObjToken VARCHAR(128) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSRC; CREATE PROCEDURE ?CREATOR?.ICMDEFINEACL2 ( OUT lRC INTEGER, OUT lReason INTEGER, OUT lExtRC INTEGER, OUT lExtReason INTEGER, IN sTraceLevel SMALLINT, IN lReserved1 INTEGER, IN szUserInfo VARCHAR(254), IN szUserToken CHAR(32), INOUT lReserved INTEGER, IN sNumOfACLs SMALLINT, OUT lACLCode INTEGER, IN ParmCLOB CLOB(320K), IN ParmBLOB BLOB(320K) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSA2; create procedure ?CREATOR?.ICMQUIESCE ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, In szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In sAction SMALLINT, In lQuiesceServerTime INTEGER, InOut lQuiesceGracePeriod INTEGER, In lQuiesceDuration INTEGER, Out sQuiesiceStatus SMALLINT, Out lQuiesceTimeRemain INTEGER, Out lUnQuiesceTimeRemain INTEGER ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSQS; create procedure ?CREATOR?.ICMDEFINECOLLS ( OUT lRC INTEGER, OUT lReason INTEGER, OUT lExtRC INTEGER, OUT lExtReason INTEGER, IN sTraceLevel SMALLINT, IN lReserved1 INTEGER, IN szUserInfo VARCHAR(254), IN szUserToken CHAR(32), INOUT lReserved INTEGER, In sNumOfColls SMALLINT, INOUT CollCLOB CLOB(320K), INOUT CollBLOB BLOB(320K) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSDC; CREATE PROCEDURE ?CREATOR?.ICMRMCHECKOUTS ( OUT lRC INTEGER, OUT lReason INTEGER, OUT lExtRC INTEGER, OUT lExtReason INTEGER, IN sTraceLevel SMALLINT, IN lReserved1 INTEGER, IN szUserInfo VARCHAR(254), IN szUserToken CHAR(32), INOUT lReserved INTEGER, In sNumOfItems SMALLINT, INOUT ItemIDCLOB CLOB(320K), INOUT ItemIDBLOB BLOB(320K), OUT szTranID VARCHAR(26), OUT szTranToken VARCHAR(32) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPRMRC; create procedure ?CREATOR?.ICMUPDATERMOBJECTS ( OUT lRC INTEGER, OUT lReason INTEGER, OUT lExtRC INTEGER, OUT lExtReason INTEGER, IN sTraceLevel SMALLINT, IN lReserved1 INTEGER, IN szUserInfo VARCHAR(254), IN szUserToken CHAR(32), INOUT lReserved INTEGER, IN lLibraryID INTEGER, In sNumOfItems SMALLINT, In ItemIDCLOB CLOB(320K), In ItemIDBLOB BLOB(320K), IN szTranID CHAR(26) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPRMUO; create procedure ?CREATOR?.ICMGETAESKEY ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, Out szEncryptionKey VARCHAR(128) FOR BIT DATA ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSAK; CREATE PROCEDURE ?CREATOR?.ICMPROCESSHOLDS ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, InOut szHoldItemCLOB CLOB(320K), InOut szHoldItemBLOB BLOB(320K), InOut lNumOfHolds INTEGER ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSHO; create procedure ?CREATOR?.ICMDEFINEPOLICY ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, INOUT lPolicyID INTEGER, In PolicyCLOB CLOB(4K), In PolicyBLOB BLOB(4K) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 1 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSRP; create procedure ?CREATOR?.ICMTRIGGEREVENT ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, IN szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, InOut sNumOfElements SMALLINT, InOut ItemCLOB CLOB(320K), InOut ItemBLOB BLOB(320K) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID ?CCSID? NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSTE; create procedure ?CREATOR?.ICMEXPIREDITEMS ( Out lRC INTEGER, Out lReason INTEGER, Out lExtRC INTEGER, Out lExtReason INTEGER, In sTraceLevel SMALLINT, In lReserved1 INTEGER, In szUserInfo VARCHAR(254), In szUserToken CHAR(32), InOut lReserved INTEGER, In sAction SMALLINT, In lItemTypeID INTEGER, In lMaxRows INTEGER, In lCommitCount INTEGER, In lMaxDuration INTEGER, In lDelOptionFlag INTEGER, Out lNumProcessed INTEGER, Out lNumCommitted INTEGER, Out lNumInvalid INTEGER, InOut szEventCLOB CLOB(350K), InOut szEventBLOB BLOB(350K) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 1 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSEI; create procedure ?CREATOR?.ICMLSSAUTODELETE ( IN szParm VARCHAR(1024) ) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? DYNAMIC RESULT SETS 0 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE NO DBINFO FENCED STAY RESIDENT YES PROGRAM TYPE SUB EXTERNAL NAME ICMPLSAD; COMMIT; DROP FUNCTION ?CREATOR?.ICMFETCHCONTENT RESTRICT; COMMIT; CREATE FUNCTION ?CREATOR?.ICMCONSTRREF ( VARCHAR(512) ) RETURNS VARCHAR(2048) COLLID ?DB2PKGCOLLID? WLM ENVIRONMENT ?WLMENV? PROGRAM TYPE SUB EXTERNAL NAME ICMPLSUC LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE FENCED STAY RESIDENT YES READS SQL DATA NO EXTERNAL ACTION; COMMIT; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 212 , 'QUIESCE LIBRARY SERVER', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Quiesce Library Server' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 212); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 213 , 'ACTIVATE LIBRARY SERVER', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Activate Library Server' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 213); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 214 , 'SCHEDULE QUIESCE LIBRARY SERVER', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Schedule Quiesce Library Server' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 214); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 215 , 'SCHEDULE ACTIVATE LIBRARY SERVER', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Schedule Activate Library Server' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 215); COMMIT; UPDATE ?CREATOR?.ICMSTNLSKEYWORDS SET KEYWORDDESCRIPTION= CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Name' WHERE KEYWORDCLASS=1 AND KEYWORDNAME='ICM$NAME' AND KEYWORDDESCRIPTION=CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'ICM hierarchical name'; COMMIT; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 10 , LANGUAGECODE, 150 , 'ItemtypeRetentionAdmin', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Perform retention administrative operations.' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 10 AND B.KEYWORDCODE = 150) ; INSERT INTO ?CREATOR?.ICMSTPRIVDEFS (PRIVDEFCODE) SELECT 150 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVDEFS WHERE PRIVDEFCODE = 150) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 1 , 150 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 1 AND PRIVDEFCODE = 150) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 10 , LANGUAGECODE, 151 , 'ItemtypeSetHoldAdmin', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Administrative privilege to perform hold operations.' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 10 AND B.KEYWORDCODE = 151) ; INSERT INTO ?CREATOR?.ICMSTPRIVDEFS (PRIVDEFCODE) SELECT 151 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVDEFS WHERE PRIVDEFCODE = 151) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 1 , 151 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 1 AND PRIVDEFCODE = 151) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 10 , LANGUAGECODE, 152 , 'ItemtypeDeleteExpiredAdmin', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Administrative privilege to perform delete utility operations.' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 10 AND B.KEYWORDCODE = 152) ; INSERT INTO ?CREATOR?.ICMSTPRIVDEFS (PRIVDEFCODE) SELECT 152 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVDEFS WHERE PRIVDEFCODE = 152) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 1 , 152 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 1 AND PRIVDEFCODE = 152) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 10 , LANGUAGECODE, 230 , 'SystemExecRMServicesAdmin', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow a user ID to execute the Resource Manager services' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 10 AND B.KEYWORDCODE = 230) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 11 , LANGUAGECODE, 16 , 'SystemRMServicesAdmin', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Resource Manager services' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 11 AND B.KEYWORDCODE = 16) ; INSERT INTO ?CREATOR?.ICMSTPRIVDEFS (PRIVDEFCODE) SELECT 230 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVDEFS WHERE PRIVDEFCODE = 230) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETCODES (PRIVSETCODE) SELECT 16 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETCODES WHERE PRIVSETCODE = 16) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 16 , 230 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 16 AND PRIVDEFCODE = 230) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 1 , 230 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 1 AND PRIVDEFCODE = 230) ; INSERT INTO ?CREATOR?.ICMSTDOMAINPRIVSET (DOMAINID, PRIVSETCODE) SELECT 1 , 16 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTDOMAINPRIVSET WHERE DOMAINID = 1 AND PRIVSETCODE = 16) ; INSERT INTO ?CREATOR?.ICMSTDOMAINPRIVSET (DOMAINID, PRIVSETCODE) SELECT 2 , 16 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTDOMAINPRIVSET WHERE DOMAINID = 2 AND PRIVSETCODE = 16) ; INSERT INTO ?CREATOR?.ICMSTDOMAINPRIVSET (DOMAINID, PRIVSETCODE) SELECT 1000 , 16 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTDOMAINPRIVSET WHERE DOMAINID = 1000 AND PRIVSETCODE = 16) ; UPDATE ?CREATOR?.ICMSTMAXKEYWORD SET MAXKEYWORD = 16 WHERE KEYWORDCLASS = 11 AND MAXKEYWORD < 16 ; COMMIT ; INSERT INTO ?CREATOR?.ICMSTPRIVDEFS (PRIVDEFCODE) SELECT 3 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVDEFS WHERE PRIVDEFCODE = 3) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 1 , 3 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 1 AND PRIVDEFCODE = 3); INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 3 , 3 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 3 AND PRIVDEFCODE = 3); INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 4 , 3 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 4 AND PRIVDEFCODE = 3); INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 9 , 3 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 9 AND PRIVDEFCODE = 3) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 11 , 3 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 11 AND PRIVDEFCODE = 3) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 12 , 3 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 12 AND PRIVDEFCODE = 3) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 15 , 3 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 15 AND PRIVDEFCODE = 3) ; INSERT INTO ?CREATOR?.ICMSTPRIVGROUPS (PRIVGROUPCODE, PRIVDEFCODE) SELECT 6 , 3 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVGROUPS WHERE PRIVGROUPCODE = 6 AND PRIVDEFCODE = 3) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 10 , LANGUAGECODE, 3 , 'UserPrivSetOwner', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Allow an user ID to create user privilege sets. ' || 'Allow the owner of an user privilege set to modify ' || 'or delete the user privilege set' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 10 AND B.KEYWORDCODE = 3) ; COMMIT; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 314 , 'ODP', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'OpenDocument Presentation' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 314) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.oasis.opendocumnt.presentation') ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 315 , 'ODT', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'OpenDocument Text' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 315) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.oasis.opendocument.text') ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 316 , 'ODS', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'OpenDocument Spreadsheet' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 316) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.oasis.opendocument.spreadsheet') ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 317 , 'ODG', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'OpenDocument Drawing' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 317) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.oasis.opendocument.graphics') ; INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 314 , 1 , 'application/vnd.oasis.opendocumnt.presentation', CAST(NULL as CHAR), CAST(NULL as CHAR), 'odp' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 314 OR MIMETYPE='application/vnd.oasis.opendocumnt.presentation'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 315 , 1 , 'application/vnd.oasis.opendocument.text', CAST(NULL as CHAR), CAST(NULL as CHAR), 'odt' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 315 OR MIMETYPE='application/vnd.oasis.opendocument.text'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 316 , 1 , 'application/vnd.oasis.opendocument.spreadsheet', CAST(NULL as CHAR), CAST(NULL as CHAR), 'ods' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 316 OR MIMETYPE='application/vnd.oasis.opendocument.spreadsheet'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 317 , 0 , 'application/vnd.oasis.opendocument.graphics', CAST(NULL as CHAR), CAST(NULL as CHAR), 'odg' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 317 OR MIMETYPE='application/vnd.oasis.opendocument.graphics'); COMMIT; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 10 , LANGUAGECODE, 718 , 'ClientPreventItemDisplayToUser', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Hides items from a user of IBM Content Manager clients.' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 10 AND B.KEYWORDCODE = 718); INSERT INTO ?CREATOR?.ICMSTPRIVDEFS (PRIVDEFCODE) SELECT 718 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVDEFS WHERE PRIVDEFCODE = 718); INSERT INTO ?CREATOR?.ICMSTPRIVGROUPS (PRIVGROUPCODE,PRIVDEFCODE) SELECT 6 , 718 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVGROUPS WHERE PRIVGROUPCODE = 6 AND PRIVDEFCODE = 718); COMMIT; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG = SYSTEMFLAG - 2 WHERE MOD(SYSTEMFLAG, 2*2) >= 2 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG = SYSTEMFLAG - 4 WHERE MOD(SYSTEMFLAG, 4*2) >= 4 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG = SYSTEMFLAG - 32 WHERE MOD(SYSTEMFLAG, 32*2) >= 32 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG = SYSTEMFLAG - 64 WHERE MOD(SYSTEMFLAG, 64*2) >= 64 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG = SYSTEMFLAG - 256 WHERE MOD(SYSTEMFLAG, 256*2) >= 256 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG = SYSTEMFLAG - 1024 WHERE MOD(SYSTEMFLAG, 1024*2) >= 1024 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG = SYSTEMFLAG - 4096 WHERE MOD(SYSTEMFLAG, 4096*2) >= 4096 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG = SYSTEMFLAG - 8192 WHERE MOD(SYSTEMFLAG, 8192*2) >= 8192 ; COMMIT; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG2 = SYSTEMFLAG2 - 1 WHERE MOD(SYSTEMFLAG2, 1*2) >= 1 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG2 = SYSTEMFLAG2 - 2 WHERE MOD(SYSTEMFLAG2, 2*2) >= 2 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG2 = SYSTEMFLAG2 - 4 WHERE MOD(SYSTEMFLAG2, 4*2) >= 4 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG2 = SYSTEMFLAG2 - 32 WHERE MOD(SYSTEMFLAG2, 32*2) >= 32 ; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET SYSTEMFLAG2 = SYSTEMFLAG2 - 64 WHERE MOD(SYSTEMFLAG2, 64*2) >= 64 ; COMMIT; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 4 , LANGUAGECODE, 3 , 'DKHold', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Hold relationship' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 4 AND B.KEYWORDCODE = 3) ; UPDATE ?CREATOR?.ICMSTMAXKEYWORD SET MAXKEYWORD = 3 WHERE KEYWORDCLASS = 4 AND MAXKEYWORD < 3 ; COMMIT ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 1 , LANGUAGECODE, 128 , 'ICM$HOLD', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Hold container flag' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 1 AND B.KEYWORDCODE = 128) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 1 , LANGUAGECODE, 129 , 'ICM$ONHOLD', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'On-hold flag' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 1 AND B.KEYWORDCODE = 129) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 1 , LANGUAGECODE, 130 , 'ICM$HOLDBINDTYPE', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Hold auto-binding type' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 1 AND B.KEYWORDCODE = 130) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 1 , LANGUAGECODE, 131 , 'ICM$RETENTIONDATE', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Timestamp when the item is no longer retained' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 1 AND B.KEYWORDCODE = 131) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 1 , LANGUAGECODE, 132 , 'ICM$AUTODELETEDATE', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Timestamp when the item can be auto deleted' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 1 AND B.KEYWORDCODE = 132) ; INSERT INTO ?CREATOR?.ICMSTATTRDEFS (ATTRIBUTEID, ATTRSQLTYPE, ATTRLENGTH, ATTRSCALE, ATTRFLAGS) SELECT 128 , 500 , 0 , 32767 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTATTRDEFS WHERE ATTRIBUTEID = 128) ; INSERT INTO ?CREATOR?.ICMSTATTRDEFS (ATTRIBUTEID, ATTRSQLTYPE, ATTRLENGTH, ATTRSCALE, ATTRFLAGS) SELECT 129 , 500 , 0 , 32767 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTATTRDEFS WHERE ATTRIBUTEID = 129) ; INSERT INTO ?CREATOR?.ICMSTATTRDEFS (ATTRIBUTEID, ATTRSQLTYPE, ATTRLENGTH, ATTRSCALE, ATTRFLAGS) SELECT 130 , 500 , 0 , 32767 , 0 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTATTRDEFS WHERE ATTRIBUTEID = 130) ; INSERT INTO ?CREATOR?.ICMSTATTRDEFS (ATTRIBUTEID, ATTRSQLTYPE, ATTRLENGTH, ATTRSCALE, ATTRFLAGS) SELECT 131 , 392 , 26 , 0 , 2 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTATTRDEFS WHERE ATTRIBUTEID = 131) ; INSERT INTO ?CREATOR?.ICMSTATTRDEFS (ATTRIBUTEID, ATTRSQLTYPE, ATTRLENGTH, ATTRSCALE, ATTRFLAGS) SELECT 132 , 392 , 26 , 0 , 2 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTATTRDEFS WHERE ATTRIBUTEID = 132) ; COMMIT ; INSERT INTO ?CREATOR?.ICMSTPRIVDEFS (PRIVDEFCODE) SELECT 149 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVDEFS WHERE PRIVDEFCODE = 149) ; INSERT INTO ?CREATOR?.ICMSTPRIVSETS (PRIVSETCODE, PRIVDEFCODE) SELECT 1 , 149 FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTPRIVSETS WHERE PRIVSETCODE = 1 AND PRIVDEFCODE = 149) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 10 , LANGUAGECODE, 149 , 'ItemSetDeleteHold', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Create and delete hold relationships.' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 10 AND B.KEYWORDCODE = 149) ; COMMIT ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 216 , 'CREATE RETENTION POLICY', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Create retention policy' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 216) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 217 , 'UPDATE RETENTION POLICY', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Update retention policy' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 217) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 218 , 'DELETE RETENTION POLICY', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Delete retention policy' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 218) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 219 , 'UPDATE ITEM TYPE RETENTION', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Update item type retention policy' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 219) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 631 , 'ADD HOLD', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Create a hold link' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 631) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 632 , 'REMOVE HOLD', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Delete a hold link' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 632) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 633 , 'ATTEMPT TO DELETE ON-HOLD ITEM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Attempt to update an on-hold item' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 633) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 634 , 'ATTEMPT TO UPDATE ON-HOLD ITEM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Attempt to update an on-hold item' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 634) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 635 , 'ATTEMPT TO MOVE ON-HOLD ITEM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Attempt to move an on-hold item' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 635) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 636 , 'OVERRIDE RETENTION DATE', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Override system calculated retention or expiration date' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 636) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 637 , 'ATTEMPT TO DELETE RETAINED ITEM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Attempt to delete retained item' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 637) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 638 , 'ATTEMPT TO UPDATE RETAINED ITEM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Attempt to update retained item' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 638) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 16 , LANGUAGECODE, 639 , 'ATTEPMT TO MOVE RETAINED ITEM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Attempt to move retained item' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 16 AND B.KEYWORDCODE = 639) ; UPDATE ?CREATOR?.ICMSTMAXKEYWORD SET MAXKEYWORD = 639 WHERE KEYWORDCLASS = 16 AND MAXKEYWORD < 639 ; INSERT INTO ?CREATOR?.ICMSTMAXKEYWORD VALUES (40 , 'ENU', 999) ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS VALUES ( 40 , 'ENU', 0 , 'RetentionPolicy', 'ICM system reserved') ; COMMIT; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 318 , 'DOCX', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Microsoft Office Word 2007 document' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 318) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.openxmlformats-officedocument.wordprocessingml.document '); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 319 , 'DOCM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office Word 2007 macro-enabled document' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 319) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-word.document.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 320 , 'DOTX', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office Word 2007 template' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 320) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.openxmlformats-officedocument.wordprocessingml.template '); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 321 , 'DOTM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office Word 2007 macro-enabled document template' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 321) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-word.template.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 322 , 'XLSX', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Microsoft Office Excel 2007 workbook' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 322) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 323 , 'XLSM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office Excel 2007 macro-enabled workbook' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 323) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-excel.sheet.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 324 , 'XLTX', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office Excel 2007 template' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 324) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.openxmlformats-officedocument.spreadsheetml.template'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 325 , 'XLTM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office Excel 2007 macro-enabled workbook template' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 325) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-excel.template.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 326 , 'XLSB', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office Excel 2007 binary workbook' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 326) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-excel.sheet.binary.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 327 , 'XLAM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office Excel 2007 add-in' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 327) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-excel.addin.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 328 , 'PPTX', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Microsoft Office PowerPoint 2007 presentation' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 328) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.openxmlformats-officedocument.presentationml.presentati on'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 329 , 'PPTM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office PowerPoint 2007 macro-enabled presentation' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 329) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-powerpoint.presentation.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 330 , 'PPSX', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office PowerPoint 2007 slide show' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 330) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.openxmlformats-officedocument.presentationml.slidesho w'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 331 , 'PPSM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office PowerPoint 2007 macro-enabled slide show' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 331) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-powerpoint.slideshow.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 332 , 'POTX', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office PowerPoint 2007 template' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 332) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.openxmlformats-officedocument.presentationml.template') ; INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 333 , 'POTM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office PowerPoint 2007 macro-enabled presentation template' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 333) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-powerpoint.template.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 334 , 'PPAM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office PowerPoint 2007 add-in' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 334) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-powerpoint.addin.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 335 , 'SLDX', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office PowerPoint 2007 slide' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 335) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.openxmlformats-officedocument.presentationml.slide'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 336 , 'SLDM', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Office PowerPoint 2007 macro-enabled slide' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 336) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-powerpoint.slide.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 337 , 'ONE', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'Microsoft Office OneNote 2007' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 337) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/msonenote'); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS, LANGUAGECODE,KEYWORDCODE,KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 32 , LANGUAGECODE, 338 , 'THMX', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || '2007 Office system release theme' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 32 AND B.KEYWORDCODE = 338) AND NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPE = 'application/vnd.ms-officetheme'); COMMIT; INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 318 , 1 , 'application/vnd.openxmlformats-officedocument.wordprocessingml.document ', CAST(NULL as CHAR), CAST(NULL as CHAR), 'docx' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 318 OR MIMETYPE = 'application/vnd.openxmlformats-officedocument.wordprocessingml.document '); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 319 , 1 , 'application/vnd.ms-word.document.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'docm' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 319 OR MIMETYPE = 'application/vnd.ms-word.document.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 320 , 1 , 'application/vnd.openxmlformats-officedocument.wordprocessingml.template ', CAST(NULL as CHAR), CAST(NULL as CHAR), 'dotx' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 320 OR MIMETYPE = 'application/vnd.openxmlformats-officedocument.wordprocessingml.template '); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 321 , 1 , 'application/vnd.ms-word.template.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'dotm' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 321 OR MIMETYPE = 'application/vnd.ms-word.template.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 322 , 1 , 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet', CAST(NULL as CHAR), CAST(NULL as CHAR), 'xlsx' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 322 OR MIMETYPE = 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 323 , 1 , 'application/vnd.ms-excel.sheet.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'xlsm' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 323 OR MIMETYPE = 'application/vnd.ms-excel.sheet.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 324 , 1 , 'application/vnd.openxmlformats-officedocument.spreadsheetml.template', CAST(NULL as CHAR), CAST(NULL as CHAR), 'xltx' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 324 OR MIMETYPE = 'application/vnd.openxmlformats-officedocument.spreadsheetml.template'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 325 , 1 , 'application/vnd.ms-excel.template.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'xltm' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 325 OR MIMETYPE = 'application/vnd.ms-excel.template.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 326 , 1 , 'application/vnd.ms-excel.sheet.binary.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'xlsb' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 326 OR MIMETYPE = 'application/vnd.ms-excel.sheet.binary.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 327 , 1 , 'application/vnd.ms-excel.addin.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'xlam' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 327 OR MIMETYPE = 'application/vnd.ms-excel.addin.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 328 , 1 , 'application/vnd.openxmlformats-officedocument.presentationml.presentati on', CAST(NULL as CHAR), CAST(NULL as CHAR), 'pptx' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 328 OR MIMETYPE = 'application/vnd.openxmlformats-officedocument.presentationml.presentati on'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 329 , 1 , 'application/vnd.ms-powerpoint.presentation.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'pptm' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 329 OR MIMETYPE = 'application/vnd.ms-powerpoint.presentation.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 330 , 1 , 'application/vnd.openxmlformats-officedocument.presentationml.slideshow' , CAST(NULL as CHAR), CAST(NULL as CHAR), 'ppsx' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 330 OR MIMETYPE = 'application/vnd.openxmlformats-officedocument.presentationml.slidesho w'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 331 , 1 , 'application/vnd.ms-powerpoint.slideshow.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'ppsm' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 331 OR MIMETYPE = 'application/vnd.ms-powerpoint.slideshow.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 332 , 1 , 'application/vnd.openxmlformats-officedocument.presentationml.template', CAST(NULL as CHAR), CAST(NULL as CHAR), 'potx' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 332 OR MIMETYPE = 'application/vnd.openxmlformats-officedocument.presentationml.template') ; INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 333 , 1 , 'application/vnd.ms-powerpoint.template.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'potm' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 333 OR MIMETYPE = 'application/vnd.ms-powerpoint.template.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 334 , 1 , 'application/vnd.ms-powerpoint.addin.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'ppam' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 334 OR MIMETYPE = 'application/vnd.ms-powerpoint.addin.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 335 , 1 , 'application/vnd.openxmlformats-officedocument.presentationml.slide', CAST(NULL as CHAR), CAST(NULL as CHAR), 'sldx' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 335 OR MIMETYPE = 'application/vnd.openxmlformats-officedocument.presentationml.slide'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 336 , 1 , 'application/vnd.ms-powerpoint.slide.macroEnabled.12', CAST(NULL as CHAR), CAST(NULL as CHAR), 'sldm' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 336 OR MIMETYPe = 'application/vnd.ms-powerpoint.slide.macroEnabled.12'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 337 , 1 , 'application/msonenote', CAST(NULL as CHAR), CAST(NULL as CHAR), 'one onetoc2 onetmp onepkg' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 337 OR MIMETYPE = 'application/msonenote'); INSERT INTO ?CREATOR?.ICMSTMIMETYPES (MIMETYPEID, MIMETYPEFLAGS, MIMETYPE, APPLICATION, APPLICATIONFLAGS, SUFFIXES) SELECT 338 , 0 , 'application/vnd.ms-officetheme', CAST(NULL as CHAR), CAST(NULL as CHAR), 'thmx' FROM SYSIBM.SYSDUMMY1 WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMIMETYPES WHERE MIMETYPEID = 338 OR MIMETYPe = 'application/vnd.ms-officetheme'); COMMIT; /* //* CM8500S3 //* This step will add a foreign key and the table space //* ITTDLSTS will be put in the check pending status. //* Next step CM8500S4 will reset the check pending status. //* //CM8500S3 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; ALTER TABLE ?CREATOR?.ICMSTItemTypeDefs ADD FOREIGN KEY (RETPOLICYID) REFERENCES ?CREATOR?.ICMSTRETENTIONPOLICY (RETPOLICYID) ON DELETE RESTRICT; COMMIT; /* //* CM8500S4 //* This step will reset the check pending status on //* the table space ITTDLSTS which was set in the previous //* step CM8500S3. //* //CM8500S4 EXEC DSNUPROC,UID='',UTPROC='', // LIB='?DSN?.SDSNLOAD', // SYSTEM='?DB2SYS?', // COND=(5,LE) //SYSERR DD UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) //SYSUT1 DD UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) //SORTOUT DD UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND) //UTPRINT DD SYSOUT=A //SYSIN DD * CHECK DATA TABLESPACE ?DATABASE?.ITTDLSTS SCOPE ALL /* //* CM8500S5 //* This step will update the current Library Server //* version/release to '8.5.00.000' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF all steps through CM8500S4 have executed //* successfully. //* //CM8500S5 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.5.00.000' WHERE 1 = 1; COMMIT; /* //* CM8500S6 //* This step will perform several changes, //* including: //* //* - insert non 'ENU' language code row //* in ICMSTMAXKEYWORD and ICMSTNLSKEYWORDS table for //* keywordclass 40 and insert all language code in //* ICMSTMAXKEYWORD for keywordclasses 41 and 42. //* //* - alter tables //* //* - drop and create functions //* //* - drop and create indexes for table ICMSTCheckedOut //* You can remove these drop and create index //* statements if your ICMSTCheckedOut table already //* have identical indexes. //* //* - add the following index if you did not upgrade CM //* from CM83 FP3.5 to CM83 FP4 //* //* CREATE INDEX ?CREATOR?.ICMUX003040013X //* ON ?CREATOR?.ICMUT00304001 //* ( //* RMCODE ASC, //* SMSCOLLCODE ASC //* ) //* USING STOGROUP ?STOGROUP? //* PRIQTY ?PRIINDX? //* SECQTY ?SECINDX? //* BUFFERPOOL ?BPV4? //* ; //* //CM8500S6 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; INSERT INTO ?CREATOR?.ICMSTMAXKEYWORD (KEYWORDCLASS,LANGUAGECODE,MAXKEYWORD) SELECT 40 , LANGUAGECODE, 999 FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTMAXKEYWORD B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 40); INSERT INTO ?CREATOR?.ICMSTNLSKEYWORDS (KEYWORDCLASS,LANGUAGECODE,KEYWORDCODE, KEYWORDNAME,KEYWORDDESCRIPTION) SELECT 40 , LANGUAGECODE, 0 , 'RetentionPolicy', CASE WHEN LANGUAGECODE='ENU' THEN '' ELSE '*' END || 'ICM system reserved' FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS (SELECT 1 FROM ?CREATOR?.ICMSTNLSKEYWORDS B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 40 AND B.KEYWORDCODE = 0); INSERT INTO ?CREATOR?.ICMSTMAXKEYWORD (KEYWORDCLASS, LANGUAGECODE,MAXKEYWORD) SELECT 41 , LANGUAGECODE, 99999 FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTMAXKEYWORD B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 41); INSERT INTO ?CREATOR?.ICMSTMAXKEYWORD (KEYWORDCLASS, LANGUAGECODE,MAXKEYWORD) SELECT 42 , LANGUAGECODE, 99999 FROM ?CREATOR?.ICMSTNLSLANGUAGES A WHERE NOT EXISTS ( SELECT 1 FROM ?CREATOR?.ICMSTMAXKEYWORD B WHERE B.LANGUAGECODE = A.LANGUAGECODE AND B.KEYWORDCLASS = 42); UPDATE ?CREATOR?.ICMSTSYSCONTROL SET TIEPASSWORD = NULL WHERE 1 = 1; COMMIT; ALTER TABLE ?CREATOR?.ICMSTSYSCONTROL ADD COLUMN TIEPASSWORD2 VARCHAR(256) FOR BIT DATA; ALTER TABLE ?CREATOR?.ICMSTRESOURCEMGR ADD COLUMN RMPASSWORD2 VARCHAR(256) FOR BIT DATA; DROP FUNCTION ?CREATOR?.ICMENCRYPT RESTRICT; DROP FUNCTION ?CREATOR?.ICMDECRYPT RESTRICT; COMMIT; CREATE FUNCTION ?CREATOR?.ICMDECRYPT ( VARCHAR(256) FOR BIT DATA ) RETURNS VARCHAR(48) FOR BIT DATA NO COLLID WLM ENVIRONMENT ?WLMENV? PROGRAM TYPE SUB EXTERNAL NAME ICMPDEC2 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE FENCED STAY RESIDENT YES NO SQL; CREATE FUNCTION ?CREATOR?.ICMENCRYPT ( VARCHAR(48) FOR BIT DATA ) RETURNS VARCHAR(96) FOR BIT DATA NO COLLID WLM ENVIRONMENT ?WLMENV? PROGRAM TYPE SUB EXTERNAL NAME ICMPENC2 LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE FENCED STAY RESIDENT YES NO SQL; CREATE FUNCTION ?CREATOR?.ICMOLDDEC ( CHAR(72) FOR BIT DATA ) RETURNS CHAR(48) FOR BIT DATA NO COLLID WLM ENVIRONMENT ?WLMENV? PROGRAM TYPE SUB EXTERNAL NAME ICMPDECR LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE FENCED STAY RESIDENT YES NO SQL; CREATE FUNCTION ?CREATOR?.ICMOLDENC ( CHAR(48) FOR BIT DATA ) RETURNS CHAR(72) FOR BIT DATA NO COLLID WLM ENVIRONMENT ?WLMENV? PROGRAM TYPE SUB EXTERNAL NAME ICMPENCR LANGUAGE C PARAMETER STYLE DB2SQL PARAMETER CCSID UNICODE FENCED STAY RESIDENT YES NO SQL; COMMIT; DROP INDEX ?CREATOR?.ICMSXCheckedOut3X; COMMIT; CREATE INDEX ?CREATOR?.ICMSXCheckedOut3X ON ?CREATOR?.ICMSTCheckedOut ( Created ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; CREATE UNIQUE INDEX ?CREATOR?.ICMSXCheckedOut4U ON ?CREATOR?.ICMSTCheckedOut ( ItemID ASC ) USING STOGROUP ?STOGROUP? PRIQTY ?PRIINDX? SECQTY ?SECINDX? BUFFERPOOL ?BPV4? ; COMMIT; /* //* CM8500S7 //* This step will update the current Library Server //* version/release to '8.5.00.100' in the //* Library Server control table ICMSTSYSCONTROL, //* ONLY IF all steps through CM8500S6 have executed //* successfully. //* //CM8500S7 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=1024K, // COND=(5,LE) //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(?DB2SYS?) RUN PROGRAM(DSNTIAD) PLAN(?TIADPLAN?) - LIB('?DB2RUN?') //SYSIN DD * SET CURRENT SQLID = '?SQLID?'; UPDATE ?CREATOR?.ICMSTSYSCONTROL SET LSCURRENTVERSION = '8.5.00.100' WHERE 1 = 1; COMMIT; /* //