zOs/TX/WK950DDL
SET CURRENT SQLID = 'S100447' ;
drop TABLESPACE $db.A950A ;
commit;
$@[ if $phase > 0 then $@=[
CREATE TABLESPACE A950A
IN $db
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 10 PCTFREE 10
GBPCACHE CHANGED
TRACKMOD YES
LOGGED
SEGSIZE 64
BUFFERPOOL BP2
LOCKSIZE ROW
LOCKMAX SYSTEM
CLOSE YES
COMPRESS YES
CCSID EBCDIC
DEFINE YES
MAXROWS 255;
SET CURRENT SCHEMA='$creator';
CREATE TABLE TWK950A1
(MESSAGE_ID SMALLINT NOT NULL GENERATED ALWAYS
AS IDENTITY
(START WITH 1, INCREMENT BY 1, CACHE 20, NO CYCLE, ORDER,
MAXVALUE 32767, MINVALUE 1),
MESSAGE_TEXT VARCHAR(512) FOR SBCS DATA NOT NULL
WITH DEFAULT,
DESCRIPTION CHAR(255) FOR SBCS DATA NOT NULL
WITH DEFAULT,
CONSTRAINT MESSAGE_ID
PRIMARY KEY (MESSAGE_ID))
IN $db.A950A
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE
APPEND NO ;
LABEL ON TABLE $creator.TWK950A1 IS 'MESSAGE TEXT';
COMMENT ON TABLE $creator.TWK950A1 IS 'Reference table for message tex
t';
COMMENT ON $creator.TWK950A1
(DESCRIPTION IS 'Erklarung, warum und wie die Meldung zu verwenden is
t',
MESSAGE_TEXT IS 'freier Message-Text',
MESSAGE_ID IS 'Eindeutige generierte MessageId');
COMMIT ;
CREATE UNIQUE INDEX IWK950A1
ON $creator.TWK950A1
(MESSAGE_ID ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 10 PCTFREE 10
GBPCACHE CHANGED
CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER NO
DEFINE YES
PIECESIZE 2 G;
COMMIT ;
SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","$creator" ;
SET CURRENT SCHEMA = '$creator' ;
CREATE VIEW VWK950A1(MESSAGE_ID, MESSAGE_TEXT, DESCRIPTION) AS
SELECT MESSAGE_ID, MESSAGE_TEXT, DESCRIPTION
FROM $creator.TWK950A1 ;
COMMENT ON TABLE $creator.VWK950A1 IS 'View for message text';
COMMENT ON $creator.VWK950A1
(DESCRIPTION IS 'Erklärung, warum und wie die Meldung zu verwenden',
MESSAGE_TEXT IS 'freier Message-Text',
MESSAGE_ID IS 'Eindeutige generierte MessageId');
COMMIT ;
$]
$]