パーサーから XML PARSE ステートメントに制御が戻されるとき、特殊レジスター XML-CODE には、パーサー (または XML-CODE を -1 に設定した場合には処理プロシージャー) によって設定された最新の値が入っています。
EXCEPTION イベント以外のすべてのイベントにおいて、XML-CODE の値はゼロです。処理プロシージャーが、 EXCEPTION 以外のイベントで制御をパーサーに返す前に XML-CODE を -1 に設定した場合、処理はユーザーが開始した COBOL 例外条件で停止します。
EXCEPTION イベントの場合、特殊レジスター XML-CODE は例外コードに設定されます。
XMLPARSE(COMPAT) が有効である場合のエンコード競合例外では、処理プロシージャーは、パーサーに返す前に XML-CODE を有効な値に初期化することがあります。 XML-CODE を他のゼロ以外の値に初期化した場合、または他の例外のために初期化した場合には、パーサーは XML-CODE を元の例外コードに設定します。