User Tools

Site Tools


rpg:xml_unidefs

This is an old revision of the document!


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