Hitachi

EUR 帳票出力 機能解説 EUR Server編


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