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.
パラメタ
戻り値
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