0

Cobol で解析したい次の xml 構造があります。

<LDO>
  <OD>1</OD>     //OD 1'st occurrence
  <OLD>1</OLD>    //OLD 1'st occurrence
  <OLD>2</OLD>    //OLD 2'nd occurrence
  <OLD>3</OLD>    //OLD 3'rd occurrence
  <OD>2</OD>     //OD 2'nd occurrence
  <OLD>4</OLD>    //OLD 4'th occurrence
</LDO>

ご覧のとおり、OD タグの後にいくつかの OLD タグがあります。私がやりたいことは、このxmlファイルを段階的に読み込んで、次の方法で属性を表示することです:

1 1 2 3 2 4

           READ xml-stream.
       START xml-stream KEY IS OD.

       *>check status

       START xml-stream KEY IS OLD.
       *> check stream status                 

       PERFORM UNTIL EXIT
            READ xml-stream next key is
            old
            IF  stream-status = -7
               EXIT PERFORM
            END-IF
            *> check stream status less than 0
            display od-value
            display old-value             

しかし、プログラムを実行しても od-value は変わりません。次の値を返します

1 1 2 3 1 4

2 番目のオカレンスで、最初の要素ではなく 2 番目の要素 OD の値を返すようにします。

これを達成するための助けが欲しいです。

4

1 に答える 1