Hitachi

EUR 帳票出力 リファレンス EUR Server編


GetPMPrinterList関数

帳票サーバのOSに登録されているプリンタの一覧を取得します。

なお,帳票サーバがUNIX/Linux環境の場合,プリンタ一覧の取得はサポートしていません。UNIX/Linux環境のEUR Server - Spool Serviceに対して,プリンタ一覧の取得を実行した場合はエラーとなります。

〈このページの構成〉

形式

------------------宣言部------------------
01 EURPMPARAMPRINTER.
  02 FILLER         PIC  X(4) VALUE '0770'.
  02 FILLER         PIC  X(1) VALUE LOW-VALUE.
  02 ERRORMESSAGE   PIC  X(256) VALUE SPACE.
  02 FILLER         PIC  X(1) VALUE LOW-VALUE.
  02 FILLER         PIC  X(2) VALUE LOW-VALUE.
  02   PRINTERNUM   PIC  9(9) COMP-X VALUE n.
  02   PRINTERS     OCCURS n TIMES.
    03  PRINTERNAME PIC  X(80) VALUE SPACE.
    03  FILLER      PIC  X(1) VALUE LOW-VALUE.
    03  FILLER      PIC  X(3) VALUE LOW-VALUE.
  02 PMSERVERADDR   PIC  X(15) VALUE SPACE.
  02 FILLER         PIC  X(1) VALUE LOW-VALUE.
  02 PMSERVERPORT   PIC  S9(9) COMP-5 VALUE -1.
01 RTNCODE          PIC  S9(9) BINARY.
------------------実行部------------------
call 'GetPMPrinterList' USING BY REFERENCE EURPMPARAMPRINTER
                       RETURNING RTNCODE.

パラメタ

PRINTERNUM

パラメタPRINTERSの繰り返し回数nを指定します。nには取得する一覧の最大数を指定してください。

プリンタの数がn個を超える場合は,n個までの一覧が取得されます。

PRINTERS

取得したOS上のプリンタの一覧が格納される領域を指定します。nには取得する一覧の最大数を指定してください。詳細は戻り値PRINTERSを参照してください。

PMSERVERADDR

帳票サーバのIPアドレスを255.255.255.255形式で指定します。

PMSERVERADDRパラメタを省略する場合は,空白を指定します。

PMSERVERPORT

帳票サーバのポート番号を指定します。

PMSERVERPORTパラメタを省略する場合は,-1を指定します。

戻り値

RTNCODE

終了コードが設定されます。終了コードについては,「10.4.1 エラー情報一覧」を参照してください。

ERRORMESSAGE

エラーが発生した場合,エラーメッセージとメッセージIDが設定されます。エラーメッセージについては,マニュアル「EUR メッセージ」を参照してください。

エラーが発生しなかった場合は,空白が設定されます。

PRINTERNUM

取得されたプリンタ数が設定されます。

PRINTERS

パラメタPRINTERNUMに設定されたn個分のプリンタ情報を,戻り値PRINTERNAMEに格納します。取得したプリンタの数がn個に満たない場合は,戻り値PRINTERNUMに取得された個数のプリンタ情報が返され,戻り値PRINTERNUM + 1番目以降の領域は不定になります。取得したプリンタの数がn個より多い場合は,パラメタPRINTERNUMに指定したn個のプリンタ情報が返されます。

PRINTERNAME

OS上のプリンタ名が設定されます。

呼び出し例

帳票サーバに登録されたOS上のプリンタ一覧を取得する,呼び出し例を次に示します。

------------------宣言部------------------
01 EURPMPARAMPRINTER.
  02 FILLER         PIC  X(4) VALUE '0770'.
  02 FILLER         PIC  X(1) VALUE LOW-VALUE.
  02 ERRORMESSAGE   PIC  X(256) VALUE SPACE.
  02 FILLER         PIC  X(1) VALUE LOW-VALUE.
  02 FILLER         PIC  X(2) VALUE LOW-VALUE.
  02   PRINTERNUM   PIC  9(9) COMP-X VALUE 120.
  02   PRINTERS     OCCURS 120 TIMES.
    03  PRINTERNAME PIC  X(80) VALUE SPACE.
    03  FILLER      PIC  X(1) VALUE LOW-VALUE.
    03  FILLER      PIC  X(3) VALUE LOW-VALUE.
  02 PMSERVERADDR   PIC  X(15) VALUE SPACE.
  02 FILLER         PIC  X(1) VALUE LOW-VALUE.
  02 PMSERVERPORT   PIC  S9(9) COMP-5 VALUE -1.
01 RTNCODE          PIC  S9(9) BINARY.
------------------実行部------------------
DISPLAY '<プリンタ一覧(GetPMPrinterList)>'
CALL 'GetPMPrinterList' USING BY REFERENCE EURPMPARAMPRINTER
                       RETURNING RTNCODE
DISPLAY RTNCODE
IF RTNCODE = ZERO
THEN
  DISPLAY '正常終了'
  DISPLAY PRINTERNUM
  PERFORM VARYING IX1 FROM 1 BY 1 UNTIL IX1 > PRINTERNUM
    DISPLAY PRINTERNAME(IX1)
  END-PERFORM
ELSE
  DISPLAY 'エラー発生'
  DISPLAY ERRORMESSAGE
END-IF