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.
パラメタ
戻り値
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
エラーが発生した場合,エラーメッセージとメッセージIDが設定されます。エラーメッセージについては,マニュアル「EUR メッセージ」を参照してください。
エラーが発生しなかった場合は,空白が設定されます。
呼び出し例
出力先の一覧を取得する,呼び出し例を次に示します。
------------------宣言部------------------ 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