仕分けした印刷データを蓄積するときのコーディング例

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

9.11.6　仕分けした印刷データを蓄積するときのコーディング例

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

入力ファイル（印刷定義ファイル）：EUR Print Managerのあるマシンに配置: 帳票ファイル名：Report1.fms

入力ファイル（ユーザ定義ファイル）：EUR Print Manager - Adapterのあるマシンに配置: マッピングデータファイルのパス：c:\Temp; マッピングデータファイル名：Report1_1000P.csv; EURPM仕分け定義ファイルのパス：c:\Temp; EURPM仕分け定義ファイル名：PMDistribute.txt

<HTML>
<HEAD>
<TITLE>Sample Script of ASP page for EUR Print Manager</TITLE>
</HEAD>
<BODY>
<%
    Server.ScriptTimeOut=100
    On Error Resume Next
    // 変数定義
    dim jobidlist
    dim cnt
    // EURPMオブジェクト生成
    set EURPM = Server.CreateObject("EURPM.Exec")
    // 帳票ファイルの指定
    EURPM.ReportFileName = "Report1.fms" 
    // マッピングデータファイルの指定
    EURPM.DataFileName   = "Report1_1000P.csv"
    EURPM.DataFilePath   = "c:\Temp"
    // EURPM仕分け定義ファイルの指定
    EURPM.SplitFileName  = "PMDistribute.txt"
    EURPM.SplitFilePath  = "c:\Temp"
    // そのほかのパラメタの指定
    EURPM.SplitMode = 2
    EURPM.PrintMode = 2
    // 蓄積実行指示
    EURPM.PrintPMReport()
 
    If Err.Number = 0 Then
        // 複数JobIDの取得
        jobidlist = EURPM.GetJobIDList()
        // 取得したJobIDの表示
        For cnt = 0 To UBound(jobidlist, 1)
            Response.Write(jobidlist(cnt))
            Response.Write("<BR>")
        Next
 
    Else
       // エラー処理
        errid= Err.Number
        If errid=-301 Then
        End if
    End If
%>
</BODY>
</HTML>

9.11.6 仕分けした印刷データを蓄積するときのコーディング例

9.11.6　仕分けした印刷データを蓄積するときのコーディング例