次に示すパラメタを指定して，分割した印刷データをサーバに蓄積するときのコーディング例です。

入力ファイル（印刷定義ファイル）：EUR Print Managerのあるマシンに配置 帳票ファイル名：Report1.fms 入力ファイル（ユーザ定義ファイル）：EUR Print Manager - Adapterのあるマシンに配置 マッピングデータファイルのパス：C:\Temp マッピングデータファイル名：Report1_1000P.csv EURPM分割定義ファイルのパス：C:\Temp EURPM分割定義ファイル名：PMPageSplit.txt

       IDENTIFICATION DIVISION.
       PROGRAM-ID.
       EURPMADCTEST.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INP-FL ASSIGN DATAFILENAME
               ORGANIZATION LINE SEQUENTIAL.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           CDECL IS CDECL.
       EXTERNAL-PROGRAM SECTION.
       CALL-CONVENTION.
           'PrintReport2' IS CDECL
       DATA DIVISION.
 
       FILE SECTION.
       FD INP-FL.
       01 INP-REC                PIC X(512).
 
       WORKING-STORAGE SECTION.
       01 EURPMPARAM1.
           COPY 'EURPMPARAM1.cbl'.
 
       01 EURPMPARAMJOBID.
           COPY 'EURPMPARAMJOBID.cbl'.
 
      *変数定義
       01 RTNCODE                PIC S9(9) BINARY.
       01 IX1                    PIC S9(9) BINARY.
       01 REPNAME                PIC X(256) VALUE SPACE.
       01 MAPNAME                PIC X(256) VALUE SPACE.
       01 MAPPATH                PIC X(256) VALUE SPACE.
       01 SPLITNAME              PIC X(256) VALUE SPACE.
       01 SPLITPATH              PIC X(256) VALUE SPACE.
       01 SPMODE                 PIC S9(9) BINARY.
       01 PRTMODE                PIC S9(9) BINARY.
 
       PROCEDURE DIVISION.
       MAIN SECTION.
       MAIN-START.
           MOVE ZERO                TO RTNCODE
           MOVE ZERO                TO IX1
      *    帳票ファイルの指定
           MOVE 'Report1.fms'        TO REPNAME
      *    マッピングデータファイルの指定
           MOVE 'Report1_1000P.csv'  TO MAPNAME
           MOVE 'C:\Temp'            TO MAPPATH
      *    EURPM分割定義ファイルの指定
           MOVE PMPageSplit.txt'     TO SPLITNAME
           MOVE 'C:\Temp'            TO SPLITPATH
      *    そのほかのパラメタの指定
           MOVE  3                  TO SPMODE
           MOVE  2                  TO PRTMODE
 
           MOVE REPNAME             TO REPORTNAME OF EURPMPARAM1
           MOVE MAPNAME             TO MAPPINGDATA OF EURPMPARAM1
           MOVE MAPPATH             TO MAPPINGDATAPATH OF EURPMPARAM1
           MOVE SPLITNAME           TO SPLITFILENAME OF EURPMPARAM1
           MOVE SPLITPATH           TO SPLITFILEPATH OF EURPMPARAM1
           MOVE SPMODE              TO SPLITMODE OF EURPMPARAM1
           MOVE PRTMODE             TO PRINTMODE OF EURPMPARAM1
      
      *    蓄積実行指示
           CALL 'PrintReport2' USING BY REFERENCE EURPMPARAM1
                               EURPMPARAMJOBID
                               RETURNING RTNCODE
      *    複数ジョブIDの表示
           PERFORM  VARYING IX1
                    FROM 1
                    BY 1
                    UNTIL IX1 > JOBIDNUM OF EURPMPARAMJOBID
             DISPLAY JOBID OF EURPMPARAMJOBID(IX1)
           END-PERFORM
           STOP RUN.
 
       MAIN-END.
           EXIT.