[ Image Removed |../../index.htm#lansa/keep_max_e.htm]
現在地:

...

7.83.3 KEEP_MAX の使用例

売り上げファイルには、部門名(#DIVNAM)および4四半期(#QTR01～#QTR04)の年間売り上げ額の詳細が保持されています。最大値および最小値と、部門別の年間売り上げ総額をまとめたレポートを生成します。

   DEF_

...

BREAK    NAME(#SUMMARY)

...

 FIELDS(#TOTAL #MAXIMUM #MINIMUM) TRIGGER_BY(#DIVNAM)

...

   SELECT       FIELDS(#DIVNAM #QTR01 #QTR02 #QTR03 #QTR04) FROM_FILE(DIVSALES)

...

     KEEP_TOTAL OF_FIELD(

...

#QTR01 #QTR02 #QTR03 #QTR04) IN_FIELD(#TOTAL)

...

 BY_FIELD(#DIVNAM)

...

     KEEP_MAX   OF_FIELD(

...

#QTR01 #QTR02 #QTR03 #QTR04) IN_FIELD(#MAXIMUM)

...

 BY_FIELD(#DIVNAM)

...

     KEEP_MIN   OF_FIELD(

...

#QTR01 #QTR02 #QTR03 #QTR04) IN_FIELD(#MINIMUM)

...

 BY_FIELD(#DIVNAM)

...

     PRINT      LINE(*BREAKS)

...

   ENDSELECT
   ENDPRINT