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>