4.2.2 コーディング例

次に示すパラメタを指定して,EUR形式ファイルを出力します。出力ファイルは,EUR Server - Adapter稼働マシンに出力されます。

入力ファイル(印刷定義ファイル):EUR Server Service稼働マシンに配置
帳票ファイル名:sample1.fms
入力ファイル(ユーザデータファイル):EUR Server - Adapter稼働マシンに配置
マッピングデータファイルのパス:c:¥Temp
マッピングデータファイル名:data1.csv
出力ファイル
出力EUR形式ファイルのパス:c:¥Temp
出力EUR形式ファイル名:eup1.eup

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

<この項の構成>
(1) ActiveX起動部品の場合

(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 target                   …変数宣言
 Set EURPM=Server.CreateObject("EURPM.Exec")
                       …プログラムID「EURPM.Exec」を指定して,
                         ActiveX起動部品のインスタンス作成
 EURPM.ReportFileName="sample1.fms"       …帳票ファイルの指定
 EURPM.DataFilePath="c:¥Temp"             …マッピングデータファイルの
                                            パスの指定
 EURPM.DataFileName="data1.csv"           …マッピングデータの指定
 EURPM.EURFilePath="c:¥Temp"              …EUR形式ファイルパスの指定
 EURPM.EURFileName="eup1.eup"             …EUR形式ファイル名の指定
 If Err.Number <> 0 Then
   Response.Write("印刷実行前に
                   エラーが発生しています"& Err.Number &"<BR>")
 Else
   EURPM.OutputEURReport()                …EUR形式ファイル出力指示
   If Err.Number = 0 Then                 …OutputEURReportメソッドは
                                            正常終了かどうかの判定
     「正常終了時の処理」
   Else
     errid= Err.Number           …エラーコードをerridに取り出す
     If errid=-nnn Then          …KEEYnnn-Eの場合のエラー処理
       Elseif errid=-nnn Then    …KEEYnnn-Eの場合のエラー処理
       Elseif errid=-nnn Then    …KEEYnnn-Eの場合のエラー処理
       Elseif errid=
             :                   …そのほかのエラー処理を繰り返す
     End If
   End If
 End If
%>
</BODY>
</HTML>