7.98.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