Hitachi

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


5.2.3 コーディング例

次に示すパラメタを指定して,サーバに印刷データを蓄積します。

■入力ファイル(印刷定義ファイル):EUR Server Service稼働マシンに配置

帳票ファイル名:sample1.fms

■入力ファイル(ユーザデータファイル):EUR Server - Adapter稼働マシンに配置

マッピングデータファイルのパス:c:\Temp

マッピングデータファイル名:data1.csv

コーディング例を次に示します。

〈この項の構成〉

(1) ActiveX起動部品の場合

<HTML>
<HEAD>
<TITLE>Sample Script of ASP page for EUR Print Manager</TITLE>
</HEAD>
<BODY>
<%
  Server.ScriptTimeOut=100     …スクリプトのタイムアウト時間を
                                 100秒に設定
  On Error Resume Next         …エラーハンドリングを行う
  dim jobid                    …変数宣言
  Set EURPM=Server.CreateObject("EURPM.Exec")
                        …プログラムID「EURPM.Exec」を指定して,
                          ActiveXオブジェクトのインスタンス作成
  EURPM.ReportFileName="sample1.fms"       …帳票ファイルの指定
  EURPM.DataFilePath="c:\Temp"             …マッピングデータパスの指定
  EURPM.DataFileName="data1.csv"           …マッピングデータの指定
  EURPM.PrintMode=2                        …印刷方式を「蓄積」に設定
  If Err.Number <> 0 Then
    Response.Write("蓄積実行前に
                    エラーが発生しています"& Err.Number &"<BR>")
  Else
    EURPM.PrintPMReport()               …蓄積指示
    If Err.Number = 0 Then              …PrintPMReportメソッドは
                                          正常終了かどうかの判定
      jobid = EURPM.GetJobID();         …スプールデータのジョブIDを取得
      「正常終了時の処理」
    Else
      errid= Err.Number           …エラーコードをerridに取り出す
      If errid=-441 Then          …KEEY441-Wの場合のエラー処理
        Elseif errid=-301 Then    …KEEY301-Eの場合のエラー処理
        Elseif errid=-302 Then    …KEEY302-Eの場合のエラー処理
        Elseif errid=
              :                   …以下,そのほかのエラー処理を繰り返す
      End If
    End If
  End If
%>
</BODY>
</HTML>