User Tools

Site Tools


rpg:xml_unidefs

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))
 
, ,
rpg/xml_unidefs.txt · Last modified: 2013/06/20 07:00 (external edit)