GetDestinationList2関数

出力先（スプールサーバ）の一覧を取得します。エラー発生時にエラーメッセージを取得できます。

〈このページの構成〉

形式
パラメタ
戻り値
呼び出し例

形式

------------------宣言部------------------
01 EURPMPARAMDEST2.
  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 DESTNUM       PIC  9(9) COMP-X VALUE n.
  02 DESTS         OCCURS n TIMES.
    03 DESTNAME    PIC  X(80) VALUE SPACE.
    03 FILLER      PIC  X(1) VALUE LOW-VALUE.
    03 SERVERADDR  PIC  X(15) VALUE SPACE.
    03 FILLER      PIC  X(1) VALUE LOW-VALUE.
    03 COMMENT     PIC  X(256) VALUE SPACE.
    03 FILLER      PIC  X(1) VALUE LOW-VALUE.
    03 FILLER      PIC  X(2) 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 'GetDestinationList2'  USING BY REFERENCE EURPMPARAMDEST2
                            RETURNING RTNCODE.

ページの先頭へ

パラメタ

DESTNUM

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

出力先の数がn個を超える場合は，n個までの一覧が取得されます。

DESTS

取得した出力先の一覧が格納される領域を指定します。詳細は戻り値DESTSを参照してください。

nには取得する一覧の最大数を指定してください。

PMSERVERADDR

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

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

PMSERVERPORT

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

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

ページの先頭へ

戻り値

RTNCODE

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

ERRORMESSAGE

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

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

DESTS

パラメタDESTNUMに設定されたn個分の出力先情報を，戻り値DESTNAME，SERVERADDR，COMMENTに格納します。出力先情報の数がn個に満たない場合は，戻り値DESTNUMに取得された個数の出力先情報が返され，戻り値DESTNUM+1番目以降の領域は不定になります。出力先情報の数がn個より多い場合は，パラメタDESTNUMに指定したn個の出力先情報が返されます。

DESTNAME

出力先情報の出力先名が設定されます。

SERVERADDR

出力先情報のスプールサーバのIPアドレスが設定されます。

COMMENT

出力先情報の説明が設定されます。

ERRORMESSAGE

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

ページの先頭へ

呼び出し例

出力先の一覧を取得する，呼び出し例を次に示します。

------------------宣言部------------------
01 EURPMPARAMDEST.
  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  DESTNUM       PIC  9(9) COMP-X VALUE 120.
  02  DESTS         OCCURS 120 TIMES.
    03  DESTNAME    PIC  X(80) VALUE SPACE.
    03  FILLER      PIC  X(1) VALUE LOW-VALUE.
    03  SERVERADDR  PIC  X(15) VALUE SPACE.
    03  FILLER      PIC  X(1) VALUE LOW-VALUE.
    03  COMMENT     PIC  X(256) VALUE SPACE.
    03  FILLER      PIC  X(1) VALUE LOW-VALUE.
    03 FILLER       PIC  X(2) 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 '＜出力先一覧(GetDestinationList2)＞'
CALL 'GetDestinationList2' USING BY REFERENCE EURPMPARAMDEST
                          RETURNING RTNCODE
DISPLAY RTNCODE
IF RTNCODE = ZERO
THEN
  DISPLAY '正常終了'
  DISPLAY DESTNUM
  PERFORM VARYING IX1 FROM 1 BY 1 UNTIL IX1 > DESTNUM
    DISPLAY DESTNAME(IX1)
    DISPLAY SERVERADDR(IX1)
    DISPLAY COMMENT(IX1)
  END-PERFORM
ELSE
  DISPLAY 'エラー発生'
  DISPLAY ERRORMESSAGE
END-IF

ページの先頭へ