User Tools

Site Tools


rpg:xml_unidefs

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

rpg:xml_unidefs [2013/06/17 11:54]
mihael created
rpg:xml_unidefs [2013/06/20 07:00]
Line 1: Line 1:
-== 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. 
- 
-<​code>​ 
-      * 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)) 
-  
-</​code>​ 
- 
-{{tag>​ibm rpg xml}} 
rpg/xml_unidefs.txt · Last modified: 2013/06/20 07:00 (external edit)