以下の例では、XML PARSE ステートメントおよび処理プロシージャーの基本的な構成を示します。
この XML 文書は、構文解析のフローを確認する目的のソースです。ソースの後に、プログラムの出力結果も示しています。XML 文書とプログラムの出力結果を比較して、パーサーと処理プロシージャーとの間の相互作用を確認し、イベントと文書フラグメントを突き合わせてください。
Process flag(i,i)
Identification division.
Program-id. xmlsampl.
Data division.
Working-storage section.
******************************************************************
* XML document, encoded as initial values of data items. *
******************************************************************
1 xml-document.
2 pic x(39) value '<?xml version=“1.0” encoding=“ibm-1140”'.
2 pic x(19) value ' standalone=“yes”?>'.
2 pic x(39) value '<!--This document is just an example-->'.
2 pic x(10) value '<sandwich>'.
2 pic x(35) value ' <bread type=“baker's best”/>'.
2 pic x(41) value ' <?spread please use real mayonnaise ?>'.
2 pic x(31) value ' <meat>Ham & turkey</meat>'.
2 pic x(40) value ' <filling>Cheese, lettuce, tomato, etc.'.
2 pic x(10) value '</filling>'.
2 pic x(35) value ' <![CDATA[We should add a <relish>'.
2 pic x(22) value ' element in future!]]>'.
2 pic x(31) value ' <listprice>$4.99 </listprice>'.
2 pic x(27) value ' <discount>0.10</discount>'.
2 pic x(11) value '</sandwich>'.
1 xml-document-length computational pic 999.
******************************************************************
* Sample data definitions for processing numeric XML content. *
******************************************************************
1 current-element pic x(30).
1 xfr-ed pic x(9) justified.
1 xfr-ed-1 redefines xfr-ed pic 999999.99.
1 list-price computational pic 9v99 value 0.
1 discount computational pic 9v99 value 0.
1 display-price pic $$9.99.
Procedure division.
mainline section.
XML PARSE xml-document PROCESSING PROCEDURE xml-handler
ON EXCEPTION
display 'XML document error ' XML-CODE
NOT ON EXCEPTION
display 'XML document successfully parsed'
END-XML
******************************************************************
* Process the transformed content and calculate promo price. *
******************************************************************
display ' '
display '-----+++++***** Using information from XML '
'*****+++++-----'
display ' '
move list-price to display-price
display ' Sandwich list price: ' display-price
compute display-price = list-price * (1 - discount)
display ' Promotional price: ' display-price
display ' Get one today!'
goback.
xml-handler section.
evaluate XML-EVENT
* ==> Order XML events most frequent first
when 'START-OF-ELEMENT'
display 'Start element tag: <' XML-TEXT '>'
move XML-TEXT to current-element
when 'CONTENT-CHARACTERS'
display 'Content characters: <' XML-TEXT '>'
* ==> Transform XML content to operational COBOL data item...
evaluate current-element
when 'listprice'
* ==> Using function NUMVAL-C...
compute list-price = function numval-c(XML-TEXT)
when 'discount'
* ==> Using de-editing of a numeric edited item...
move XML-TEXT to xfr-ed
move xfr-ed-1 to discount
end-evaluate
when 'END-OF-ELEMENT'
display 'End element tag: <' XML-TEXT '>'
move spaces to current-element
when 'START-OF-DOCUMENT'
compute xml-document-length = function length(XML-TEXT)
display 'Start of document: length=' xml-document-length
' characters.'
when 'END-OF-DOCUMENT'
display 'End of document.'
when 'VERSION-INFORMATION'
display 'Version: <' XML-TEXT '>'
when 'ENCODING-DECLARATION'
display 'Encoding: <' XML-TEXT '>'
when 'STANDALONE-DECLARATION'
display 'Standalone: <' XML-TEXT '>'
when 'ATTRIBUTE-NAME'
display 'Attribute name: <' XML-TEXT '>'
when 'ATTRIBUTE-CHARACTERS'
display 'Attribute value characters: <' XML-TEXT '>'
when 'ATTRIBUTE-CHARACTER'
display 'Attribute value character: <' XML-TEXT '>'
when 'START-OF-CDATA-SECTION'
display 'Start of CData: <' XML-TEXT '>'
when 'END-OF-CDATA-SECTION'
display 'End of CData: <' XML-TEXT '>'
when 'CONTENT-CHARACTER'
display 'Content character: <' XML-TEXT '>'
when 'PROCESSING-INSTRUCTION-TARGET'
display 'PI target: <' XML-TEXT '>'
when 'PROCESSING-INSTRUCTION-DATA'
display 'PI data: <' XML-TEXT '>'
when 'COMMENT'
display 'Comment: <' XML-TEXT '>'
when 'EXCEPTION'
compute xml-document-length = function length (XML-TEXT)
display 'Exception ' XML-CODE ' at offset '
xml-document-length '.'
when other
display 'Unexpected XML event: ' XML-EVENT '.'
end-evaluate
.
End program xmlsampl.
以下の出力結果では、構文解析の各イベントが、どの文書フラグメントから発生しているかを確認することができます。
Start of document: length=390 characters. Version: <1.0> Encoding: <ibm-1140> Standalone: <yes> Comment: <This document is just an example> Start element tag: <sandwich> Content characters: < > Start element tag: <bread> Attribute name: <type> Attribute value characters: <baker> Attribute value character: <'> Attribute value characters: <s best> End element tag: <bread> Content characters: < > PI target: <spread> PI data: <please use real mayonnaise > Content characters: < > Start element tag: <meat> Content characters: <Ham > Content character: <&> Content characters: < turkey> End element tag: <meat> Content characters: < > Start element tag: <filling> Content characters: <Cheese, lettuce, tomato, etc.> End element tag: <filling> Content characters: < > Start of CData: <<![CDATA[> Content characters: <We should add a <relish> element in future!> End of CData: <]]>> Content characters: < > Start element tag: <listprice> Content characters: <$4.99 > End element tag: <listprice> Content characters: < > Start element tag: <discount> Content characters: <0.10> End element tag: <discount> End element tag: <sandwich> End of document. XML document successfully parsed -----+++++***** Using information from XML *****+++++----- Sandwich list price: $4.99 Promotional price: $4.49 Get one today!