====== 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 . * =============================================================== * * 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* DgEndPI S 3C INZ(U'003F003E0000') 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* DgXMLDecl2 S 6C INZ(U'0022003F003E000D000A0000') 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)) {{tag>ibm rpg xml}}