7.21.3 DEF_BREAK の使用例

以下は、DEF_BREAKコマンドの例です。

地域売り上げファイルを読み取り、読み取った各レコードの明細を印刷し、地域小計を生成するRDMLプログラムを作成します。

DEF_LINE   NAME(#DETAIL) FIELDS(#REGION #PRODES #VALUE)
DEF_BREAK  NAME(#REGTOT) FIELDS(#REGVAL) TRIGGER_BY(#REGION)
SELECT     FIELDS(#DETAIL) FROM_FILE(SALEHIST)
KEEP_TOTAL OF_FIELD(#VALUE) IN_FIELD(#REGVAL) BY_FIELD(#REGION)
PRINT      LINE(#DETAIL)
ENDSELECT
ENDPRINT

「LANSAによるレポート作成」も参照してください。

  • No labels