7.100.2 PRINT の使用例

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

   DEF_LINE   NAME(#DETAIL) FIELDS(#REGION #PRODES #VALUE)
   SELECT     FIELDS(#DETAIL) FROM_FILE(SALEHIST)
   PRINT      LINE(#DETAIL)
   ENDSELECT
   ENDPRINT


例2：地域売り上げファイルを読み取り、読み取った各レコードの明細を印刷し、地域小計を生成する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


例3：地域売り上げファイルを読み取り、地域小計のみ(すなわち、要約レポート)を印刷するRDMLプログラムを作成します。 

   DEF_BREAK  NAME(#REGTOT) FIELDS(#REGION #REGVAL) TRIGGER_BY(#REGION)
   SELECT     FIELDS(#REGION #VALUE) FROM_FILE(SALEHIST)
   KEEP_TOTAL OF_FIELD(#VALUE) IN_FIELD(#REGVAL) BY_FIELD(#REGION)
   PRINT      LINE(*BREAKS)
   ENDSELECT
   ENDPRINT
  • No labels