10.1.6 コーディング例
次に示すパラメタを指定して，スプールサーバで印刷します。
- ■入力ファイル（印刷定義ファイル）：EUR Server Service稼働マシンに配置
-
複数様式情報定義ファイル名：MULTIFORMINFO1.txt
- ■入力ファイル（ユーザデータファイル）：EUR Server - Adapter稼働マシンに配置
-
帳票セット指定ファイル名：REPORTSET1.txt ※
- ■そのほかのパラメタ
-
印刷ページ範囲：すべて
- 注※
-
帳票セット指定ファイルで指定する帳票ファイルは，EUR Server Service稼働マシンに配置しておきます。また，帳票セット指定ファイルで指定するユーザデータファイルは，EUR Server - Adapterがインストールされたマシンに配置しておきます。
コーディング例を次に示します。
- 〈この項の構成〉
(1) COBOL起動部品の場合
IDENTIFICATION DIVISION.
PROGRAM-ID.
COBOLSAMPLE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CDECL IS CDECL.
EXTERNAL-PROGRAM SECTION.
CALL-CONVENTION.
'PrintReport' IS CDECL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EURPMPARAM.
COPY 'EURPMPARAM1.cbl'
01 RTNCODE PIC S9(9) BINARY.
PROCEDURE DIVISION.
PROC1 SECTION.
MOVE SPACE TO PRINTERNAME.
MOVE SPACE TO TRAYNAME.
MOVE ZERO TO PRINTSTARTPAGE.
MOVE ZERO TO PRINTENDPAGE.
MOVE 'REPORTSET1.txt' TO REPORTSETFILE.
MOVE 'MULTIFORMINFO1.txt' TO MULTIFORMINFO.
MOVE SPACE TO REPORTNAME.
MOVE SPACE TO MAPPINGDATA.
MOVE SPACE TO USERDEFDATA.
CALL 'PrintReport' USING BY REFERENCE EURPMPARAM
RETURNING RTNCODE.
EXIT PROGRAM.