Problem with XML PARSE in ILE COBOL
Problem with XML PARSE in ILE COBOL
(OP)
I'm trying to test the new feature of ILE COBOL V5R3, the XML PARSE ability, but I have problems.
When I try this simplest example:
Identification division.
Program-id. HelloXML.
Data division.
Working-storage section.
1 M.
2 pic x(40) value
'<?xml version="1.0" encoding="ibm-37"?>'.
2 pic x(40) value
'<msg type="succinct">Hello, World!</msg>'.
Procedure division.
Display 'XML Event XML Text'
XML Parse M
Processing procedure P
End-XML
Goback.
P.
If XML-Code = 0
Display XML-Event XML-Text
End-if.
End program HelloXML.
I obtain Exception. The values of registers are:
XML-CODE = 000000051 i.e. "The document was encoded in EBCDIC, and the document encoding declaration specified a supported EBCDIC encoding, but the parser does not support the CCSID of the COBOL source member."
I'dont know why the parser does not support the CCSID of my source member, because the CCSID of my source file is 37 (just like the CCSID of XML)
XML-EVENT = 'EXCEPTION '
When I try to look at XML-TEXT, I become the following message:
Message ID . . . . . . : MCH0601 Severity . . . . . . . : 40
Message type . . . . . : Diagnostic
Date sent . . . . . . : 03/08/05 Time sent . . . . . . : 09:13:55
Message . . . . : Space offset X'00FFF000' or X'0000000000000000' is outside
current limit for object &1.
Cause . . . . . : A program tried to set a space pointer or use storage
outside a space, or tried to use an unallocated page in teraspace. The space
class is X'04'. The space class designates the type of space:
00-primary associated space (includes space objects).
01-secondary associated space 0.
02-implicit process space for automatic storage.
03-implicit process space for static storage in activation group mark
X'00000000'.
04-implicit process space for heap identifier X'00000000' in activation
group mark X'00000000'.
05-constant space.
06-space for handle-based heap identifier X'00000000'.
07-teraspace offset X'0000000000000000'.
08-teraspace for OS/400 PASE memory address X'0000000000000000'.
Offset X'00FFF000' only applies to storage outside teraspace.
X'8000000000000000F1D06F2C2E001000' is a pointer to the teraspace page or
the start of the implicit process space for the allocation.
Can anybody say me, what's going wrong?
When I try this simplest example:
Identification division.
Program-id. HelloXML.
Data division.
Working-storage section.
1 M.
2 pic x(40) value
'<?xml version="1.0" encoding="ibm-37"?>'.
2 pic x(40) value
'<msg type="succinct">Hello, World!</msg>'.
Procedure division.
Display 'XML Event XML Text'
XML Parse M
Processing procedure P
End-XML
Goback.
P.
If XML-Code = 0
Display XML-Event XML-Text
End-if.
End program HelloXML.
I obtain Exception. The values of registers are:
XML-CODE = 000000051 i.e. "The document was encoded in EBCDIC, and the document encoding declaration specified a supported EBCDIC encoding, but the parser does not support the CCSID of the COBOL source member."
I'dont know why the parser does not support the CCSID of my source member, because the CCSID of my source file is 37 (just like the CCSID of XML)
XML-EVENT = 'EXCEPTION '
When I try to look at XML-TEXT, I become the following message:
Message ID . . . . . . : MCH0601 Severity . . . . . . . : 40
Message type . . . . . : Diagnostic
Date sent . . . . . . : 03/08/05 Time sent . . . . . . : 09:13:55
Message . . . . : Space offset X'00FFF000' or X'0000000000000000' is outside
current limit for object &1.
Cause . . . . . : A program tried to set a space pointer or use storage
outside a space, or tried to use an unallocated page in teraspace. The space
class is X'04'. The space class designates the type of space:
00-primary associated space (includes space objects).
01-secondary associated space 0.
02-implicit process space for automatic storage.
03-implicit process space for static storage in activation group mark
X'00000000'.
04-implicit process space for heap identifier X'00000000' in activation
group mark X'00000000'.
05-constant space.
06-space for handle-based heap identifier X'00000000'.
07-teraspace offset X'0000000000000000'.
08-teraspace for OS/400 PASE memory address X'0000000000000000'.
Offset X'00FFF000' only applies to storage outside teraspace.
X'8000000000000000F1D06F2C2E001000' is a pointer to the teraspace page or
the start of the implicit process space for the allocation.
Can anybody say me, what's going wrong?
RE: Problem with XML PARSE in ILE COBOL
http://
uses:
"encoding="ibm-1140"
rather than
"encoding="ibm-37"?>
http:
seems to indicate that 1140 and 37 (or 037) are the same - so I don't know if that change would help or not.
In Enterprise COBOL, there is also a CODEPAGE compiler option that needs to "work with" the encoding specified. Does this exist for ILE COBOL?
Bill Klein
RE: Problem with XML PARSE in ILE COBOL
The above mentioned problem can be partially solved by placing the XML document (encoded in CCSID=819) in the IFS directory e.g. /home/user1. The CCSID defined inside of the XML document must be 819 too, i.e.:
CODE
<!--This document is just an example-->
<sandwich>
<bread type="baker's best"/>
<?spread please use real mayonnaise ?>
<meat>Ham & turkey</meat>
<filling>Cheese, lettuce, tomato, etc. </filling>
<![CDATA[We should add a <relish> element in future!]]>
<listprice>$4.99 </listprice>
<discount>0.10</discount>
</sandwich>
CODE
Identification division.
Program-id. xmlsampl2.
Data division.
Working-storage section.
******************************************************************
* XML document, encoded as initial values of data items. *
******************************************************************
1 xml-id pic x(27) value '/home/user1/xmlsampldoc.xml'.
1 xml-document-length computational pic 999.
******************************************************************
* Sample data definitions for processing numeric XML content. *
******************************************************************
1 current-element pic x(30).
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 FILE-STREAM xml-id 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'
compute discount = function numval-c(XML-TEXT)
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 xmlsampl2.
There is a CCSID-Option in ILE COBOL compiler too. After the compiling with the command
CRTBNDCBL PGM(EBKPGMP/XMLSAMPL2)
SRCFILE(RM/XMLSRC) SRCMBR(XMLSAMPL2)
OPTION(*SOURCE *APOST) DBGVIEW(*SOURCE) ACTGRP(*CALLER)
CCSID(819)
(or without CCSID option) the program runs without exception, but the output is hieroglyphics (false encoding) e.g.:
Start element tag: <Ë/>???ÄÇ>
Content characters: < >
Start element tag: <Â?Á/?>
Attribute name: <?`?Á>
Attribute value characters: <Â/,Á?>
Attribute value character: <
Attribute value characters: <Ë ÂÁË?>
I don't know how to fix this problem..
I spoked with the IBM support too. At present it seems so, that XML PARSE statement in ILE COBOL has problems with encodings, it works probably only with CCSID=819.
My opinion is, that the XML PARSE in ILE COBOL V5R3 statement is presently not fit for production use.
What is your experience with XML PARSE in Enterprise COBOL? Works it fine or not?