更多内容请访问 www.uusystem.com

DB2

1.创建Table

     CREATE TABLE #CORELIB#.XXHSPHT(

          BQSCID_L FOR BQSCID CHAR(30) NOT NULLDEFAULT ' ',

          BQMPDT_L FOR BQMPDT DECIMAL(8,0) NOTNULL DEFAULT 0,

          XXHSPHT_TCREATE_ROWTS FOR COLUMN BQTMZ1TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP,

          XXHSPHT_ROW_CHANGE_TS FOR COLUMN BQTMZ2TIMESTAMP GENERATED ALWAYS FOR EACH ROW NO UPDATE AS ROW CHANGE TIMESTAMP NOTNULL,

          CONSTRAINT #CORELIB#.XXHSPHT-t_PK_CONSTRAINTPRIMARY KEY(BQSCID,BQMPDT));

  Table描述

     LABEL ON TABLE #CORELIB#.XXHSPHT IS 'XXX history file');

  列名缩写

     LABEL ON COLUMN #CORELIB#.XXHSPHT(

          BQSCID IS 'SEC       ID                ',

          BQMPDT IS 'MARKET          PRICE          DATE');

  字段描述

     LABEL ON COLUMN #CORELIB#.XXHSPHT(

          BASCID TEXT IS 'Security ID      ',

          BQMPDT TEXT IS 'Market price date  ',

          BQTMZ1 TEXT IS 'Create time   ',

          BQTMZ2 TEXT IS 'Chang time   ');

2.创建View

     CREATE VIEW #CORELIB#.XXHSPHV1 AS SELECT BQSCID,BQMPDTFROM XXHSPHT;

  View描述

     LABEL ON TABLE #CORELIB#.XXHSPHV1IS 'XXX history view');

3.游标

     定义游标：

          EXCE SQL

               DECLARECS_XXHSPHV1 CURSOR FOR

               SELECTBQSCID,BQMPDT FROM XXHSPHV1

               FOR READ ONLY

               OPTIMIZE FOR1000ROW

               WITH NC;

     打开游标：

          ECCE SQL

               OPEN CS_XXHSPHV1;

          ERROR 处理（Return ErrorID:SQSTT）

     Get数据：

          EXCE SQL

               FETCH NEXT FROM CS_XXHSPHV1 FOR 1000ROWS INTO :peData(结构体);

               peFetchCount =SQLERRD(3);获取游标内总条数

          ERROR 处理（Return Error ID:SQSTT）

     关闭游标：

          ECCE SQL

               CLOSE CS_XXHSPHV1;

          ERROR 处理（Return ErrorID:SQSTT）