Chinaunix首页 | 论坛 | 博客
  • 博客访问: 481435
  • 博文数量: 199
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 1902
  • 用 户 组: 普通用户
  • 注册时间: 2020-05-14 13:25
个人简介

代码5S

文章分类

全部博文(199)

文章存档

2021年(5)

2020年(194)

我的朋友

分类: 其他平台

2020-11-06 08:01:30

REPORT zdemo02.

CLASS cls DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS meth.
ENDCLASS.

CLASS cls IMPLEMENTATION.
  METHOD meth.


    WITH +aggregates AS (

      SELECT FROM sflight
             FIELDS carrid,
                    connid,
                    'MAX' AS function,
                    MAXCASTseatsocc AS DEC31,AS agg
             GROUP BY carridconnid

    UNION
      SELECT FROM sflight
             FIELDS carrid,
                    connid,
                    'MIN' AS function,
                    MINCASTseatsocc AS DEC31,AS agg
             GROUP BY carridconnid

    UNION
      SELECT FROM sflight
             FIELDS carrid,
             connid'AVG' AS function,
             AVGseatsocc AS DEC31,AS agg
             GROUP BY carridconnid

                 )

  SELECT *
         FROM +aggregates
         WHERE carrid 'LH' AND connid '0400'
         INTO TABLE @DATA(result).



  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
    cls=>meth).
阅读(1394) | 评论(0) | 转发(0) |
0

上一篇:File Interface

下一篇:动态调用类方法

给主人留下些什么吧!~~