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

...

7.29.3 DEF_REPORT の使用例

レポート番号1が198文字プリンターで印刷されるよう定義する

レポート番号3が印刷ファイルINVOICEによって印刷されるよう定義する

レポート番号1のコピー3部が出力待ち行列LASERに出力されるよう定義する

レポート番号1のフォーム長がフィールド#RETLENに返されるよう定義する 「LANSAによるレポート作成」も参照してください。

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

Anchor
DEF_REPORT_E1 DEF_REPORT_E1

レポート番号1が198文字プリンターで印刷されるよう定義する

   DEF_

...

REPORT  FORMSIZE(66 198)

Anchor
DEF_REPORT_E2 DEF_REPORT_E2

レポート番号3が印刷ファイルINVOICEによって印刷されるよう定義する

INVOICEの長さは50、幅は80です。また、最終印刷行とオーバーフロー行は、それぞれ48と49に設定します。

   DEF_

...

REPORT  REPORT_NUM(3)

...

 PRT_FILE(INVOICE)

...

 FORMSIZE(50 80)   LAST_LINE(48)

...

 OVERFLOW(49)

...

 Anchor
DEF_REPORT_E3
DEF_REPORT_E3
レポート番号1のコピー3部が出力待ち行列LASERに出力されるよう定義する
フォーム・タイプとしてA4レターを使用し、出力を保留します。
   DEF_
...
REPORT  OUTQ(LASER)
...
 COPIES(3)
...
 FORMTYPE('
...
A4 LETTER')
...
   OTHER_OVR('HOLD(*YES)')
...
 Anchor
DEF_REPORT_E4
DEF_REPORT_E4
レポート番号1のフォーム長がフィールド#RETLENに返されるよう定義する
フォーム幅がフィールド#RETWIDに返され、オーバーフロー値がフィールド#RETOVFに返され、現在の行番号がフィールド#RETLINに返され、現在のページ番号がフィールド#RETPAGに返されるよう定義します。
   DEF_
...
REPORT  RET_LENGTH(#RETLEN)
...
 RET_WIDTH(#RETWID)
...
   RET_OVERF(#RETOVF)
...
 RET_LINE(#RETLIN)
...
   RET_PAGE(#RETPAG)
...