DOM XML Unidefs
The copy book provided by IBM in the system source physical file is not usable in RPG IV because of the leading @ character.
This is an updated version of the copy book without any non valid characters.
* LICENSE AND DISCLAIMER
* ----------------------
* This material contains IBM copyrighted sample programming
* source code ( Sample Code ).
* IBM grants you a nonexclusive license to compile, link,
* execute, display, reproduce, distribute and prepare derivative
* works of this Sample Code. The Sample Code has not been
* thoroughly tested under all conditions. IBM, therefore, does
* not guarantee or imply its reliability, serviceability, or
* function. IBM provides no program services for the Sample Code.
*
* All Sample Code contained herein is provided to you "AS IS"
* without any warranties of any kind. THE IMPLIED WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
* NON-INFRINGMENT ARE EXPRESSLY DISCLAIMED.
* SOME JURISDICTIONS DO NOT ALLOW THE EXCLUSION OF IMPLIED
* WARRANTIES, SO THE ABOVE EXCLUSIONS MAY NOT APPLY TO YOU. IN
* NO EVENT WILL IBM BE LIABLE TO ANY PARTY FOR ANY DIRECT,
* INDIRECT, SPECIAL OR OTHER CONSEQUENTIAL DAMAGES FOR ANY USE OF
* THE SAMPLE CODE INCLUDING, WITHOUT LIMITATION, ANY LOST
* PROFITS, BUSINESS INTERRUPTION, LOSS OF PROGRAMS OR OTHER DATA
* ON YOUR INFORMATION HANDLING SYSTEM OR OTHERWISE, EVEN IF WE
* ARE EXPRESSLY ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
*
* COPYRIGHT
* ---------
* (C) Copyright IBM CORP. 2003
* All rights reserved.
* US Government Users Restricted Rights -
* Use, duplication or disclosure restricted
* by GSA ADP Schedule Contract with IBM Corp.
* Licensed Material - Property of IBM
*
* These samples contain code covered by the following Apache
* license.
*
* The Apache Software License, Version 1.1
*
* Copyright (c) 1999-2002 The Apache Software Foundation.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or
* without modification, are permitted provided that the following
* conditions are met:
*
* 1. Redistributions of source code must retain the above
* copyright notice, this list of conditions and the following
* disclaimer.
*
* 2. Redistributions in binary form must reproduce the above
* copyright notice, this list of conditions and the following
* disclaimer in the documentation and/or other materials
* provided with the distribution.
*
* 3. The end-user documentation included with the redistribution,
* if any, must include the following acknowledgment:
* "This product includes software developed by the
* Apache Software Foundation (http://www.apache.org/)."
* Alternately, this acknowledgment may appear in the software
* itself, if and wherever such third-party acknowledgments
* normally appear.
*
* 4. The names "Xerces" and "Apache Software Foundation" must
* not be used to endorse or promote products derived from this
* software without prior written permission. For written
* permission, please contact apacheÖ§apache.org.
*
* 5. Products derived from this software may not be called
* "Apache", nor may "Apache" appear in their name, without
* prior written permission of the Apache Software Foundation.
*
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE APACHE SOFTWARE
* FOUNDATION OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
* OF SUCH DAMAGE.
* ===============================================================
*
* This software consists of voluntary contributions made by many
* individuals on behalf of the Apache Software Foundation, and
* was originally based on software copyright (c) 1999,
* International Business Machines, Inc., http://www.ibm.com .
* For more information on the Apache Software Foundation, please
* see <http://www.apache.org/>.
* ===============================================================
*
* The following constants are unicode equivalents of various XML
* markup features.
* ====================================================================
DchNull S 1C INZ(U'0000')
DchHTab S 1C INZ(U'0009')
DchLF S 1C INZ(U'000A')
DchCR S 1C INZ(U'000D')
DchAmpersand S 1C INZ(U'0026')
DchAsterisk S 1C INZ(U'002A')
DchAt S 1C INZ(U'0040')
DchBackSlash S 1C INZ(U'005C')
DchBang S 1C INZ(U'0021')
DchCloseAngle S 1C INZ(U'003E')
DchCloseCurly S 1C INZ(U'007D')
DchCloseParen S 1C INZ(U'0029')
DchCloseSquare S 1C INZ(U'005D')
DchColon S 1C INZ(U'003A')
DchComma S 1C INZ(U'002C')
DchDash S 1C INZ(U'002D')
DchDollarSign S 1C INZ(U'0024')
DchDoubleQuote S 1C INZ(U'0022')
DchEqual S 1C INZ(U'003D')
DchForwardSlash S 1C INZ(U'002F')
DchGrave S 1C INZ(U'0060')
DchOpenAngle S 1C INZ(U'003C')
DchOpenCurly S 1C INZ(U'007B')
DchOpenParen S 1C INZ(U'0028')
DchOpenSquare S 1C INZ(U'005B')
DchPercent S 1C INZ(U'0025')
DchPeriod S 1C INZ(U'002E')
DchPipe S 1C INZ(U'007C')
DchPlus S 1C INZ(U'002B')
DchPound S 1C INZ(U'0023')
DchQuestion S 1C INZ(U'003F')
DchSingleQuote S 1C INZ(U'0027')
DchSpace S 1C INZ(U'0020')
DchSemiColon S 1C INZ(U'003B')
DchTilde S 1C INZ(U'007E')
DchUnderscore S 1C INZ(U'005F')
DchDigit_0 S 1C INZ(U'0030')
DchDigit_1 S 1C INZ(U'0031')
DchDigit_2 S 1C INZ(U'0032')
DchDigit_3 S 1C INZ(U'0033')
DchDigit_4 S 1C INZ(U'0034')
DchDigit_5 S 1C INZ(U'0035')
DchDigit_6 S 1C INZ(U'0036')
DchDigit_7 S 1C INZ(U'0037')
DchDigit_8 S 1C INZ(U'0038')
DchDigit_9 S 1C INZ(U'0039')
DchLatin_uA S 1C INZ(U'0041')
DchLatin_uB S 1C INZ(U'0042')
DchLatin_uC S 1C INZ(U'0043')
DchLatin_uD S 1C INZ(U'0044')
DchLatin_uE S 1C INZ(U'0045')
DchLatin_uF S 1C INZ(U'0046')
DchLatin_uG S 1C INZ(U'0047')
DchLatin_uH S 1C INZ(U'0048')
DchLatin_uI S 1C INZ(U'0049')
DchLatin_uJ S 1C INZ(U'004A')
DchLatin_uK S 1C INZ(U'004B')
DchLatin_uL S 1C INZ(U'004C')
DchLatin_uM S 1C INZ(U'004D')
DchLatin_uN S 1C INZ(U'004E')
DchLatin_uO S 1C INZ(U'004F')
DchLatin_uP S 1C INZ(U'0050')
DchLatin_uQ S 1C INZ(U'0051')
DchLatin_uR S 1C INZ(U'0052')
DchLatin_uS S 1C INZ(U'0053')
DchLatin_uT S 1C INZ(U'0054')
DchLatin_uU S 1C INZ(U'0055')
DchLatin_uV S 1C INZ(U'0056')
DchLatin_uW S 1C INZ(U'0057')
DchLatin_uX S 1C INZ(U'0058')
DchLatin_uY S 1C INZ(U'0059')
DchLatin_uZ S 1C INZ(U'005A')
DchLatin_la S 1C INZ(U'0061')
DchLatin_lb S 1C INZ(U'0062')
DchLatin_lc S 1C INZ(U'0063')
DchLatin_ld S 1C INZ(U'0064')
DchLatin_le S 1C INZ(U'0065')
DchLatin_lf S 1C INZ(U'0066')
DchLatin_lg S 1C INZ(U'0067')
DchLatin_lh S 1C INZ(U'0068')
DchLatin_li S 1C INZ(U'0069')
DchLatin_lj S 1C INZ(U'006A')
DchLatin_lk S 1C INZ(U'006B')
DchLatin_ll S 1C INZ(U'006C')
DchLatin_lm S 1C INZ(U'006D')
DchLatin_ln S 1C INZ(U'006E')
DchLatin_lo S 1C INZ(U'006F')
DchLatin_lp S 1C INZ(U'0070')
DchLatin_lq S 1C INZ(U'0071')
DchLatin_lr S 1C INZ(U'0072')
DchLatin_ls S 1C INZ(U'0073')
DchLatin_lt S 1C INZ(U'0074')
DchLatin_lu S 1C INZ(U'0075')
DchLatin_lv S 1C INZ(U'0076')
DchLatin_lw S 1C INZ(U'0077')
DchLatin_lx S 1C INZ(U'0078')
DchLatin_ly S 1C INZ(U'0079')
DchLatin_lz S 1C INZ(U'007A')
DchYenSign S 1C INZ(U'00A5')
DchWonSign S 1C INZ(U'20A9')
* the following are XMLStrings that can be used with the
* XMLFormatter.
D* </
DgEndElement S 3C INZ(U'003C002F0000')
D* ?>
DgEndPI S 3C INZ(U'003F003E0000')
D* <?
DgStartPI S 3C INZ(U'003C003F0000')
D* <|ÄCDATAÄ
DgStartCDATA S 10C INZ(U'003C0021005B004300440041+
D 00540041005B0000')
D* ÜÜ>
DgEndCDATA S 4C INZ(U'005D005D003E0000')
D* <|--
DgStartComment S 5C INZ(U'003C0021002D002D0000')
D* -->
DgEndComment S 4C INZ(U'002D002D003E0000')
D* <|DOCTYPE
DgStartDoctype S 12C INZ(U'003C00210044004F00430054+
D 00590050004500200000')
D* PUBLIC "
DgPublic S 9C INZ(U'005000550042004C00490043+
D 002000220000')
D* SYSTEM "
DgSystem S 9C INZ(U'00530059005300540045004D+
D 002000220000')
D* <|ENTITY
DgStartEntity S 10C INZ(U'003C00210045004E00540049+
D 0054005900200000')
D* SYSTEM "
DgNotation S 8C INZ(U'004E00440041005400410020+
D 00220000')
D* <?xml version="1.0" encoding="
DgXMLDecl1 S 31C INZ(U'003C003F0078006D006C0020+
D 00760065007200730069006F+
D 006E003D00220031002E0030+
D 002200200065006E0063006F+
D 00640069006E0067003D0022+
D 0000')
D* "?>
DgXMLDecl2 S 6C INZ(U'0022003F003E000D000A0000')
D* <?xml version="
DgXMLDOMDecl1 S 16C INZ(U'003C003F0078006D006C0020+
D 00760065007200730069006F+
D 006E003D00220000')
D* " encoding="
DgXMLDOMDecl2 S 13C INZ(U'002200200065006E0063006F+
D 00640069006E0067003D0022+
D 0000')
D* " standalone="
DgXMLDecl3 S 15C INZ(U'00220020007300740061006E+
D 00640061006C006F006E0065+
D 003D00220000')
D* "?>
DgXMLDecl4 S 5C INZ(U'0022003F003E000A0000')
DgEndElement@ S * INZ(%ADDR(gEndElement))
DgEndPI@ S * INZ(%ADDR(gEndPI))
DgStartPI@ S * INZ(%ADDR(gStartPI))
DgStartCDATA@ S * INZ(%ADDR(gStartCDATA))
DgEndCDATA@ S * INZ(%ADDR(gEndCDATA))
DgStartComment@ S * INZ(%ADDR(gStartComment))
DgEndComment@ S * INZ(%ADDR(gEndComment))
DgStartDoctype@ S * INZ(%ADDR(gStartDoctype))
DgPublic@ S * INZ(%ADDR(gPublic))
DgSystem@ S * INZ(%ADDR(gSystem))
DgStartEntity@ S * INZ(%ADDR(gStartEntity))
DgNotation@ S * INZ(%ADDR(gNotation))
DgXMLDecl1@ S * INZ(%ADDR(gXMLDecl1))
DgXMLDOMDecl1@ S * INZ(%ADDR(gXMLDOMDecl1))
DgXMLDecl2@ S * INZ(%ADDR(gXMLDecl2))
DgXMLDOMDecl2@ S * INZ(%ADDR(gXMLDOMDecl2))
DgXMLDecl3@ S * INZ(%ADDR(gXMLDecl3))
DgXMLDecl4@ S * INZ(%ADDR(gXMLDecl4))