Page History
[ 
|../../index.htm#lansa/print_e.htm]
現在地:
...
7.100.2 PRINT の使用例
例1：地域売り上げファイルを読み取り、読み取った各レコードの明細を印刷するRDMLプログラムを作成します。 例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：地域売り上げファイルを読み取り、地域小計のみ ENDSELECT ENDPRINT
例3：地域売り上げファイルを読み取り、地域小計のみ(すなわち、要約レポート)を印刷するRDMLプログラムを作成します。 を印刷する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