GetPrinterList関数

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

指定した出力先の拠点サーバに登録されたOS上のプリンタ一覧を取得します。出力先を指定していない場合は，デフォルトの出力先として登録された拠点サーバのOS上のプリンタ一覧を取得します。

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

------------------宣言部------------------
01 EURPMPARAMDESTNAME.
  02 DESTNAME       PIC  X(80) VALUE SPACE.
  02 FILLER         PIC  X(1) VALUE LOW-VALUE.
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 'GetPrinterList' USING BY REFERENCE EURPMPARAMDESTNAME
                                        EURPMPARAMPRINTER
RETURNING RTNCODE.

DESTNAME

OS上のプリンタ一覧を取得する拠点サーバの出力先名を指定します。

PRINTERNUM

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

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

PRINTERS

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

PMSERVERADDR

印刷管理サーバのIPアドレスを255.255.255.255形式で指定します。

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

PMSERVERPORT

印刷管理サーバのポート番号を指定します。

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

RTNCODE

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

ERRORMESSAGE

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

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

PRINTERNUM

取得されたOS上のプリンタ数が格納されます。

PRINTERS

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

PRINTERNAME

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

OS上のプリンタの一覧を取得する，呼び出し例を次に示します。

------------------宣言部------------------
01 EURPMPARAMDESTNAME.
  02 DESTNAME       PIC  X(80) VALUE SPACE.
  02 FILLER         PIC  X(1) VALUE LOW-VALUE.
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 '＜プリンタ一覧(GetPrinterList)＞'
MOVE 'SERVER1' TO DESTNAME
DISPLAY DESTNAME
CALL 'GetPrinterList' USING BY REFERENCE EURPMPARAMDESTNAME
                                         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