zOs/TX/WK935DDL

------------$-{right(userid() sysvar(sysnode) date(s) time(), 60, '-')}
-- testCase $dsn
-- env      $env      phase $phase
-- subsys   $subsys     db $db       creator $creator
------------------------------------------------------------------------
---||| begin ddl testcase $mbr env $env phase $phase
SET CURRENT SQLID='S100447';
drop tablespace $db.a935a;
commit;
$@[if $phase > 0 then $@=[
  CREATE TABLESPACE A935A
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 0
    GBPCACHE CHANGED
    TRACKMOD YES
    LOGGED
    SEGSIZE 64
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
  COMMIT ;
  SET CURRENT SCHEMA=${creator}2;
  CREATE TABLE TWK935A1
     (PC412001             CHAR(16) FOR SBCS DATA NOT NULL,
      PC412002             CHAR(3) FOR SBCS DATA NOT NULL,
      PC412003             CHAR(30) FOR SBCS DATA NOT NULL,
      PC412004             CHAR(5) FOR SBCS DATA NOT NULL,
      PC412005             CHAR(16) FOR SBCS DATA NOT NULL,
      PC412006             CHAR(18) FOR SBCS DATA NOT NULL,
      PC412007             CHAR(12) FOR SBCS DATA NOT NULL,
      PC412008             CHAR(16) FOR SBCS DATA NOT NULL,
      PC412009             DATE NOT NULL,
      PC412010             CHAR(4) FOR SBCS DATA NOT NULL,
      PC412011             DECIMAL(15, 3) NOT NULL,
      PC412012             DECIMAL(15, 3) NOT NULL,
      PC412013             INTEGER NOT NULL WITH DEFAULT 1,
      CONSTRAINT PC412001
      PRIMARY KEY (PC412001,
                   PC412002,
                   PC412003,
                   PC412013,
                   PC412004,
                   PC412005,
                   PC412006,
                   PC412009))
    IN $db.A935A
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
    APPEND NO  ;
  LABEL ON TABLE ${creator}2.TWK935A1 IS 'Expected Cash Flow';
  LABEL ON ${creator}2.TWK935A1
   (PC412013 IS 'SECURITY IDENTIF SYSTEM',
    PC412012 IS 'CASHFLOW_CHF',
    PC412011 IS 'CASHFLOW',
    PC412010 IS 'CASHFLOW_CUR',
    PC412009 IS 'CASHFLOW_DATE',
    PC412008 IS 'PROSPECTNO',
    PC412007 IS 'CUSTOMERNO',
    PC412006 IS 'MMACCOUNTNO',
    PC412005 IS 'ACCOUNTNO',
    PC412004 IS 'SECURITY_SEQ_NO',
    PC412003 IS 'SECURITY_NO',
    PC412002 IS 'SEQUENCENO',
    PC412001 IS 'SAFEKEEPING_ACC_NO');
  COMMIT ;
  CREATE UNIQUE INDEX IPC412A0
    ON ${creator}2.TWK935A1
     (PC412001              ASC,
      PC412002              ASC,
      PC412003              ASC,
      PC412013              ASC,
      PC412004              ASC,
      PC412005              ASC,
      PC412006              ASC,
      PC412009              ASC)
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 0
    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}2" ;
  CREATE VIEW ${creator}2.VWK935A1A
                       (SAFEKEEPING_ACC_NO, SEQUENCENO, SECURITY_NO,
      SEC_IDENT_SYS, SECURITY_SEQ_NO, ACCOUNTNO, MMACCOUNTNO,
      CUSTOMERNO, PROSPECTNO, CASHFLOW_DATE, CASHFLOW_CUR, CASHFLOW,
      CASHFLOW_CHF) AS
    SELECT ALL PC412001, PC412002, PC412003, PC412013, PC412004,
           PC412005, PC412006, PC412007, PC412008, PC412009, PC412010,
           PC412011, PC412012
      FROM ${creator}2.TWK935A1 ;
  COMMIT ;
$]
$]
---||| end   ddl testcase $mbr env $env phase $phase