PC_PRINTER_ENUM

制約事項: このルーチンは現在、UNIX プラットフォームではサポートされていません。

構文：

call "PC_PRINTER_ENUM_NEXT" using by value enum-handle
                                   by reference printer-name

パラメーター

enum-handle

呼び出しプロトタイプ (「説明の読み方」を参照)：cblt-pointer

PIC：pointer

printer-name

次のように定義されている集団

01 printer-name typedef.
  03 cblte-pn-name-len  pic x(2) comp-5. 
  03 cblte-pn-name      pic x(n).

入力パラメーター：

enum-handle: PC_PRINTER_ENUM_START から返された有効な enum-handle
cblte-pn-name-len: cblte-pn-name の長さ
cblte-pn-name: 未設定

出力パラメーター：

cblte-pn-name-len

返されるプリンター名の長さ

cblte-pn-name

実際のプリンター名

return-value

次のいずれかになります。

0: 列挙が開始されました
29: 列挙の終了
30: cblte-pn-name が小さすぎます

または別の PC_PRINTER エラーコード

例

01 enum-handle           pointer.
01 printer-name.
   03 p-name-len           pic x(2) comp-5. 
   03 p-name               pic x(255).
01 enum-flags              pic x(4) comp-5 value 0.
01 enum-printers-found     pic x(4) comp-5 value 0.
01 p-counter      binary-long.

procedure division.
  move 1 to p-counter
  set p-name-len to length of p-name
  call "PC_PRINTER_ENUM_START" using
          by reference enum-handle
          by value enum-flags
          by reference enum-printers-found
  end-call
  if return-code not equal 0
       display "RC: Enum-Start : " return-code
  end-if
  display "Printers found : " enum-printers-found
  perform until return-code not equal 0
       set p-name-len to length of p-name
       call "PC_PRINTER_ENUM_NEXT" using
              by value enum-handle
              by reference printer-name
       end-call
       if return-code not equal 0
              display "RC: Enum-Next : " return-code
       else
              display p-counter " " p-name(1:p-name-len)
                   " size " p-name-len
       end-if
       add 1 to p-counter
  end-perform

  call "PC_PRINTER_ENUM_CLOSE" using
                  by reference enum-handle
  end-call

説明

入力時に cblte-pn-name-len が 0 の場合、cblte-pn-name-len は cblte-pn-name に必要なサイズ (グループのサイズではなく) で更新され、列挙は現在のエントリに残ります。