9.3.2　エラー情報の取得

エラー情報取得機能は，CBLXML-GET-ERRORサービスルーチンによってXMLアクセスルーチンの詳細なエラー情報を取得する機能です。

XMLアクセスルーチンのエラー情報を取得するには，XMLドキュメントを開くXMLアクセスルーチンの前にCBLXML-CREATE-XML-POINTERサービスルーチンを呼び出して作成した空のポインタを用いて，XMLポインタを入力するアクセスモード"E"を指定し，XMLドキュメントを開くXMLアクセスルーチンを呼び出さなければなりません。また，XMLドキュメントを閉じるXMLアクセスルーチンのあとにCBLXML-FREE-XML-POINTERサービスルーチンを呼び出してCBLXML-CREATE-XML-POINTERサービスルーチンで作成したXMLポインタを解放しなければなりません。これらを行い，各XMLアクセスルーチンの直後にCBLXML-GET-ERRORサービスルーチンで呼び出すことでエラー情報を取得できます。

次にXMLドキュメントを開くCBLXML-OP-Interfaceアクセスルーチンのエラー情報の取得例を示します。

（エラー情報の取得）

  :
01 CBLXML-RETURN-CODE PIC 9(9) COMP.
01 FILE-NAME PIC X(255).
01 XML-FILE-NAME USAGE POINTER VALUE NULL.
01 XML-FILE-NAME-LENGTH PIC 9(9) COMP VALUE 0.
01 XML-MODE PIC X(16).
01 XML-POINTER USAGE POINTER VALUE NULL.
01 MESSAGE-BUFFER PIC X(255).
01 MESSAGE-BUFFER-LENGTH PIC 9(9) COMP VALUE 255.
01 MESSAGE-LENGTH PIC 9(9) COMP VALUE 0.
  :
PROCEDURE DIVISION.
START-MAIN.
  :
    CALL 'CBLXML-CREATE-XML-POINTER'
        USING XML-POINTER.
    IF RETURN-CODE NOT = 0 THEN
        EXIT PROGRAM
    END-IF.
*open
    MOVE 'WE' TO XML-MODE.
    MOVE 'output.xml' TO FILE-NAME.
    MOVE 10 TO XML-FILE-NAME-LENGTH.
    COMPUTE XML-FILE-NAME = FUNCTION ADDR(FILE-NAME).
    CALL 'CBLXML-OP-EXAMPLE'
        USING XML-FILE-NAME
              XML-FILE-NAME-LENGTH
              XML-MODE
              XML-POINTER
        RETURNING CBLXML-RETURN-CODE.
 
    IF CBLXML-RETURN-CODE NOT = 0 THEN
        CALL 'CBLXML-GET-ERROR'
            USING XML-POINTER
                  MESSAGE-BUFFER
                  MESSAGE-BUFFER-LENGTH
                  MESSAGE-LENGTH
        DISPLAY 'ERROR = ' MESSAGE-BUFFER
    ELSE
*write
        CALL 'CBLXML-WR-EXAMPLE-BE'
            USING XML-POINTER root
            RETURNING CBLXML-RETURN-CODE
*close
        CALL 'CBLXML-CL-EXAMPLE'
            USING XML-POINTER
            RETURNING CBLXML-RETURN-CODE
    END-IF.
 
    CALL 'CBLXML-FREE-XML-POINTER'
        USING XML-POINTER.
  :

〈この項の構成〉

• (1)　CBLXML-GET-ERRORサービスルーチン

• (2)　XMLアクセスルーチンのエラー情報