帳票システム構築支援 uCosminexus EUR uCosminexus EUR Print Manager 帳票出力

[目次][用語][索引][前へ][次へ]

11.6.1 複数様式帳票出力のコーディング例

次に示すパラメタを指定して,拠点サーバで印刷するときのコーディング例です。

入力ファイル(印刷定義ファイル):EUR Print Managerのあるマシンに配置
帳票セット指定ファイル名:REPORTSET1.txt
複数様式情報定義ファイル名:MULTIFORMINFO1.txt
そのほかのパラメタ
印刷ページ範囲:すべて
注※
帳票セットファイルで指定するユーザ定義ファイルは,EUR Print Manager - Adapterがインストールされたマシンに配置しておきます。
       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.