Hitachi

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


GetDestinationList関数

出力先(スプールサーバ)の一覧を取得します。

〈このページの構成〉

形式

------------------宣言部------------------
01 EURPMPARAMDEST.
  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.
01 RTNCODE              PIC  S9(9) BINARY.
 
------------------実行部------------------
call 'GetDestinationList'  USING BY REFERENCE EURPMPARAMDEST
                          RETURNING RTNCODE.

パラメタ

DESTNUM

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

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

DESTS

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

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

戻り値

RTNCODE

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

DESTNUM

取得された出力先の数が格納されます。

DESTS

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

DESTNAME

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

SERVERADDR

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

COMMENT

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

呼び出し例

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

------------------宣言部------------------
01 EURPMPARAMDEST.
  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.
01 RTNCODE            PIC  S9(9) BINARY.
------------------実行部------------------
DISPLAY '<出力先一覧(GetDestinationList)>'
CALL 'GetDestinationList' 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 'エラー発生'
END-IF