[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Invaldi handle passed



   Now I'm back to work after summer holiday, and after I generated the
   module and try to compile it, I get an error "Automatic storage for
   procedure exceeds maximum error."  Following is the compile list, and
   I'm not able to find out why it doesn't compile.
   Kjartan Þór Guðmundsson
   Tölvudeild
   Sláturfélag Suðurlands
   sími 575 6014
   Innihald þessa pósts er trúnaðarmál og aðeins ætlað því fyrirtæki
   og/eða einstaklingi sem hann er stílaður á.
   Ef um mistök í póstsendingu er að ræða ertu vinsamlega beðin(n) að láta
   sendanda vita og eyða póstinum hið fyrsta.

   From:    Thomas Raddatz <thomas.raddatz@xxxxxxxxxxx>
   To:      HTTPAPI and FTPAPI Projects <ftpapi@xxxxxxxxxxxxxxxxxxxxxx>
   Date:    09.06.2015 23:02
   Subject: Re: Invaldi handle passed
   Sent by: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
     __________________________________________________________________

   Hi Kjartan,
   At the moment I'm at a Common conference, but I gladly look at the
   error
   after I'm back home. Please send the wsdl file along with all
   referenced
   files (import element) to me. Otherwise I cannot reproduce the error.
   Just in case it is a public Web service, that I can reach from the
   Internet, all I need is the URL of the wsdl file.
   Regards,
   Thomas
   Gesendet mit AquaMail für Android
   [1]http://www.aqua-mail.com
   Am 9. Juni 2015 19:20:15 schrieb kjartan@xxxxx:
   > Hi,
   >         I've been using WSDL2RPG for some time and it is great.  Now
   I
   > need to connect to [2]https://demo.timian.is/is/timian/wsdl
   webservice.
   > Yesterday I got an error and Thomas Radditz suggested that I would
   upgrade
   > to the newest version because I need the TLS V1.2 support.  Before I
   > upgraded I got an error straight away, but after the upgrade and
   change in
   > the QSSLPCL (adding the TLSV1.2 etc)  I can now select which service
   I
   > would like to generate.  But the generator stops with an error,
   Invalid
   > handle passed to procedure WSDL2R53_Message_getQName, and the debug
   log is
   > 1086 pages long.  And now I'm stuck and I really need you help.
   >
   > Kindest regards,
   >
   > Kjartan Þór Guðmundsson
   >
   >
   >
   > ----------
   >
   -----------------------------------------------------------------------
   > This is the FTPAPI mailing list.  To unsubscribe, please go to:
   > [3]http://www.scottklement.com/mailman/listinfo/ftpapi
   >
   -----------------------------------------------------------------------
   >
   -----------------------------------------------------------------------
   This is the FTPAPI mailing list.  To unsubscribe, please go to:
   [4]http://www.scottklement.com/mailman/listinfo/ftpapi
   -----------------------------------------------------------------------

References

   1. http://www.aqua-mail.com/
   2. https://demo.timian.is/is/timian/wsdl
   3. http://www.scottklement.com/mailman/listinfo/ftpapi
   4. http://www.scottklement.com/mailman/listinfo/ftpapi
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page      1
  Command  . . . . . . . . . . . . :   CRTRPGMOD
    Issued by  . . . . . . . . . . :     KJARTAN
  Module . . . . . . . . . . . . . :   TIM00101
    Library  . . . . . . . . . . . :     SSSOLF
  Text 'description' . . . . . . . :   *SRCMBRTXT
  Source Member  . . . . . . . . . :   TIM00101
  Source File  . . . . . . . . . . :   QRPGLESRC
    Library  . . . . . . . . . . . :     SSSOLF
    CCSID  . . . . . . . . . . . . :     871
  Text 'description' . . . . . . . :   Web Service: getOrders()
  Last Change  . . . . . . . . . . :   20.07.15  10:31:32
  Generation severity level  . . . :   10
  Compiler options . . . . . . . . :   *XREF      *GEN       *NOSECLVL  *SHOWCPY
                                       *EXPDDS    *EXT       *NOSHOWSKP *NOSRCSTMT
                                       *DEBUGIO   *UNREF     *EVENTF
  Debugging views  . . . . . . . . :   *LIST
  Debug encryption key . . . . . . :   *NONE
  Output . . . . . . . . . . . . . :   *PRINT
  Optimization level . . . . . . . :   *NONE
  Source listing indentation . . . :   *NONE
  Type conversion options  . . . . :   *NONE
  Sort sequence  . . . . . . . . . :   *HEX
  Language identifier  . . . . . . :   *JOBRUN
  Replace module . . . . . . . . . :   *YES
  Authority  . . . . . . . . . . . :   *LIBCRTAUT
  Truncate numeric . . . . . . . . :   *NO
  Fix numeric  . . . . . . . . . . :   *NONE
  Target release . . . . . . . . . :   *CURRENT
  Allow null values  . . . . . . . :   *NO
  Storage model . . .  . . . . . . :   *INHERIT
  Binding directory  . . . . . . . :   *NONE
  Define condition names . . . . . :   *NONE
  Enable performance collection  . :   *PEP
  Profiling data . . . . . . . . . :   *NOCOL
  Licensed Internal Code options . :
  Generate program interface . . . :   *NO
  Include directory  . . . . . . . :
  Preprocessor options . . . . . . :   *NONE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page      2
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
                          S o u r c e   L i s t i n g
     1  /IF NOT DEFINED(PROTOTYPE_TIM001001)                                                                     000000     000001
     2  /DEFINE GENERATOR_SERIALIZERS                                                                            000000     000002
     3  *======================================================================                                  000000     000003
     4  *  Generated by WSDL2RPG 1.16.3 / 19.04.2015                                                             000000     000004
     5  *  Built on Jun 11, 2015 (11:30:07)                                                                      000000     000005
     6  *  Built for V7R1M0                                                                                      000000     000006
     7  *  Based on WS_OPER 1.16.3 - 19.04.2015                                                                  000000     000007
     8  *======================================================================                                  000000     000008
     9  *                                                                                                        000000     000009
    10  *   This source member is the RPG web service stub of the                                                000000     000010
    11  *   following Web Service operation:                                                                     000000     000011
    12  *                                                                                                        000000     000012
    13  *      Port      :  timianOrdersPort                                                                     000000     000013
    14  *      Operation :  getOrders()                                                                          000000     000014
    15  *                                                                                                        000000     000015
    16  *   Please search for 'INFO:' to get basic information how to call                                       000000     000016
    17  *   the web service.                                                                                     000000     000017
    18  *                                                                                                        000000     000018
    19  *   Default attachment handling (for demonstration) was added to                                         000000     000019
    20  *   WS_OPER but is disabled by default.                                                                  000000     000020
    21  *                                                                                                        000000     000021
    22  *   In order to enable or disable default attachment handling you have                                   000000     000022
    23  *   to define or undefine the following compiler condition name:                                         000000     000023
    24  *      DEFAULT_ATTACHMENT_HANDLING                                                                       000000     000024
    25  /UNDEFINE DEFAULT_ATTACHMENT_HANDLING                                                                    000000     000025
    26  *                                                                                                        000000     000026
    27  *   By default attachments are stored in folder:                                                         000000     000027
    28  *      '/tmp/attachments'                                                                                000000     000028
    29  *                                                                                                        000000     000029
    30  *   You can change the default attachment folder by calling the                                          000000     000030
    31  *   following procedure before calling the web service:                                                  000000     000031
    32  *      timianOrdersPort_Attachments_setFolder()                                                          000000     000032
    33  *                                                                                                        000000     000033
    34  *   Default attachment handling was added to demonstrate how                                             000000     000034
    35  *   to manage attachments. Please search the generate stub                                               000000     000035
    36  *   module for 'TODO:' to see what code belongs to attachment                                            000000     000036
    37  *   support.                                                                                             000000     000037
    38  *                                                                                                        000000     000038
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page      3
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
    39  *======================================================================                                  000000     000039
    40  *   Pre-Compiler tags used by STRPREPRC to retrieve creation                                             000000     000040
    41  *   commands from the source member.                                                                     000000     000041
    42  * ---------------------------------------------------------------------                                  000000     000042
    43  * >>PRE-COMPILER<<                                                                                       000000     000043
    44  *   >>CRTCMD<< CRTRPGMOD    MODULE(SSSOLF/TIM10001) +                                                    150611     000044
    45  *                           SRCFILE(SSSOLF/QRPGLESRC) +                                                  150611     000045
    46  *                           SRCMBR(TIM10001);                                                            150611     000046
    47  *   >>COMPILE<<                                                                                          000000     000047
    48  *     >>PARM<< TRUNCNBR(*NO);                                                                            000000     000048
    49  *     >>PARM<< DBGVIEW(*LIST);                                                                           000000     000049
    50  *     >>PARM<< OPTION(*EVENTF);                                                                          000000     000050
    51  *   >>END-COMPILE<<                                                                                      000000     000051
    52  *   >>EXECUTE<<                                                                                          000000     000052
    53  * >>END-PRE-COMPILER<<                                                                                   000000     000053
    54  *======================================================================                                  000000     000054
    55 H NOMAIN                                                                                                  000000     000055
    56 H DEBUG                                                                                                   000000     000056
    57 H OPTION(*SRCSTMT : *NODEBUGIO)                                                                           000000     000057
000058 H EXTBININT(*YES)                                                                                         000000     000058
000059  *                                                                                                        000000     000059
000060  *  Do not change or remove this compiler condition!                                                      000000     000060
000061  /DEFINE NO_CONST_ON_INPUT_PARAMETERS                                                                     000000     000061
000062  /ENDIF                                                                                                   000000     000062
000063  /IF NOT DEFINED(PROTOTYPE_DEFINED_TIM001001)                                                             000000     000063
000064  /DEFINE PROTOTYPE_DEFINED_TIM001001                                                                      000000     000064
000065  *                                                                                                        000000     000065
000066  * INFO:                                                                                                  000000     000066
000067  * This is the procedure you call to consume the Web Service:                                             000000     000067
000068  * ----------------------------------------------------------                                             000000     000068
000069  * Operation: getOrders                                                                                   000000     000069
000070  * Returns  : getOrdersResponse                                                                           000000     000070
000071  *                                                                                                        000000     000071
000072  * INFO:                                                                                                  000000     000072
000073  * Define your own fields using the type templates used in the prototype                                  000000     000073
000074  * below. Use LIKE(*_t) or LIKEDS(*_t) to define these fields.                                            000000     000074
000075  * All type templates of this web service are defined in web service                                      000000     000075
000076  * module:   TIM001                                                                                       000000     000076
000077  *                                                                                                        000000     000077
        *--------------------------------------------------------------------*
        * Compiler Options in Effect:                                        *
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page      4
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        *--------------------------------------------------------------------*
        *  Text 'description' . . . . . . . :   Web Service: getOrders()     *
        *  Generation severity level  . . . :   10                           *
        *  Compiler options . . . . . . . . :   *XREF      *GEN              *
        *                                       *NOSECLVL  *SHOWCPY          *
        *                                       *EXPDDS    *EXT              *
        *                                       *NOSHOWSKP *SRCSTMT          *
        *                                       *NODEBUGIO *UNREF            *
        *                                       *EVENTF                      *
        *  Optimization level . . . . . . . :   *NONE                        *
        *  Source listing indentation . . . :   *NONE                        *
        *  Type conversion options  . . . . :   *NONE                        *
        *  Sort sequence  . . . . . . . . . :   *HEX                         *
        *  Language identifier  . . . . . . :   *JOBRUN                      *
        *  Authority  . . . . . . . . . . . :   *LIBCRTAUT                   *
        *  Truncate numeric . . . . . . . . :   *NO                          *
        *  Fix numeric  . . . . . . . . . . :   *NONE                        *
        *  Allow null values  . . . . . . . :   *NO                          *
        *  Storage model . . .  . . . . . . :   *INHERIT                     *
        *  Binding directory from Command . :   *NONE                        *
        *  Binding directory from Source  . :   *NONE                        *
        *  Enable performance collection  . :   *PEP                         *
        *  Profiling data . . . . . . . . . :   *NOCOL                       *
        *  Generate program interface . . . :   *NO                          *
        *--------------------------------------------------------------------*
000078 D timianOrdersPort_getOrders...                                                                           000000     000078
000079 D                 PR                  likeds(tns_getOrdersResponse_t)                                     000000     000079
000080 D                                     extproc('timianOrdersPort_getOrders')                               000000     000080
000081 D  i_getOrders                        likeds(tns_getOrders_t)                                             000000     000081
000082  /IF NOT DEFINED(NO_CONST_ON_INPUT_PARAMETERS)                                                            000000     000082
            LINES EXCLUDED: 1
000084  /ENDIF                                                                                                   000000     000084
000085 D  o_msg                              like(wsdl_errText_t )                                               000000     000085
000086  *                                                                                                        000000     000086
000087  * This procedure adds a file attachment. The attachment                                                  000000     000087
000088  * is sent to the server the next time the web service is called.                                         000000     000088
000089 D timianOrdersPort_...                                                                                    000000     000089
000090 D getOrders_...                                                                                           000000     000090
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page      5
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000091 D Attachments_addFile...                                                                                  000000     000091
000092 D                 PR                        like(wsdl_partID_t)                                           000000     000092
000093 D                                     extproc('+                                                          000000     000093
000094 D                                     timianOrdersPort_+                                                  000000     000094
000095 D                                     getOrders_+                                                         000000     000095
000096 D                                     Attachments_addFile+                                                000000     000096
000097 D                                     ')                                                                  000000     000097
000098 D  i_path                             const like(wsdl_path_t)                                             000000     000098
000099 D  i_contentType                      const like(wsdl_contentType_t)                                      000000     000099
000100 D  i_transferEncoding...                                                                                  000000     000100
000101 D                                     const like(                                                         000000     000101
000102 D                                           wsdl_contentTransferEncoding_t)                               000000     000102
000103 D                                           options(*nopass: *omit)                                       000000     000103
000104 D  i_suggestedFileName...                                                                                 000000     000104
000105 D                                     const like(wsdl_path_t)                                             000000     000105
000106 D                                           options(*nopass: *omit)                                       000000     000106
000107  *                                                                                                        000000     000107
000108  * This procedure adds a buffer attachment. The attachment                                                000000     000108
000109  * is sent to the server the next time the web service is called.                                         000000     000109
000110 D timianOrdersPort_...                                                                                    000000     000110
000111 D getOrders_...                                                                                           000000     000111
000112 D Attachments_addBuffer...                                                                                000000     000112
000113 D                 PR                        like(wsdl_partID_t)                                           000000     000113
000114 D                                     extproc('+                                                          000000     000114
000115 D                                     timianOrdersPort_+                                                  000000     000115
000116 D                                     getOrders_+                                                         000000     000116
000117 D                                     Attachments_addBuffer+                                              000000     000117
000118 D                                     ')                                                                  000000     000118
000119 D  i_name                             const like(wsdl_path_t)                                             000000     000119
000120 D  i_pBuffer                      *   const                                                               000000     000120
000121 D  i_size                       10I 0 const                                                               000000     000121
000122 D  i_contentType                      const like(wsdl_contentType_t)                                      000000     000122
000123 D  i_transferEncoding...                                                                                  000000     000123
000124 D                                     const like(                                                         000000     000124
000125 D                                           wsdl_contentTransferEncoding_t)                               000000     000125
000126 D                                           options(*nopass: *omit)                                       000000     000126
000127 D  i_targetCcsid                10I 0 const options(*nopass: *omit)                                       000000     000127
000128  *                                                                                                        000000     000128
000129  * This procedure adds a string attachment. The attachment                                                000000     000129
000130  * is sent to the server the next time the web service is called.                                         000000     000130
000131 D timianOrdersPort_...                                                                                    000000     000131
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page      6
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000132 D getOrders_...                                                                                           000000     000132
000133 D Attachments_addString...                                                                                000000     000133
000134 D                 PR                        like(wsdl_partID_t)                                           000000     000134
000135 D                                     extproc('+                                                          000000     000135
000136 D                                     timianOrdersPort_+                                                  000000     000136
000137 D                                     getOrders_+                                                         000000     000137
000138 D                                     Attachments_addString+                                              000000     000138
000139 D                                     ')                                                                  000000     000139
000140 D  i_name                             const like(wsdl_path_t)                                             000000     000140
000141 D  i_string                  32767A         varying options(*varsize)                                     000000     000141
000142 D  i_contentType                      const like(wsdl_contentType_t)                                      000000     000142
000143 D  i_transferEncoding...                                                                                  000000     000143
000144 D                                     const like(                                                         000000     000144
000145 D                                           wsdl_contentTransferEncoding_t)                               000000     000145
000146 D                                           options(*nopass: *omit)                                       000000     000146
000147 D  i_targetCcsid                10I 0 const options(*nopass: *omit)                                       000000     000147
000148  *                                                                                                        000000     000148
000149  /COPY QWSDL2RPG,TYPES_H                                                                             CPY  000000     000149
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES_H                                                      *                     1
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES_H)                                  *                     1
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                     1
        * Text 'description' . . . . :  Type definitions (public)                                    *                     1
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(WSDL2RPG_WS_STUB_COMMON_TYPES)                                                           130912    1000100
000200+ /DEFINE WSDL2RPG_WS_STUB_COMMON_TYPES                                                                    591118    1000200
000300+ *                                                                                                        600411    1000300
000400+ *=====================================================================*                                  600411    1000400
000500+ *  HTTP API                                                                                              600411    1000500
000600+ *=====================================================================*                                  600411    1000600
000700+D HTTP_API_DEFAULT_LOG_FILE...                                                                            600411    1000700
000800+D                 C                   '/tmp/httpapi_debug.txt'                                            600411    1000800
000900+ *                                                                                                        591118    1000900
001000+ *=====================================================================*                                  591118    1001000
001100+ *  WSDL2RPG: Public Type Definitions of Generated Web Service Stubs                                      591118    1001100
001200+ *=====================================================================*                                  591118    1001200
001300+ *                                                                                                        591208    1001300
001400+ *   Messages:                                                                                            591208    1001400
001500+ /COPY QWSDL2RPG,USR0030                      Unexpected HTML data received from ...                 CPY  591208    1001500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  USR0030                                                      *                     2
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page      7
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(USR0030)                                  *                     2
        * Last change  . . . . . . . :  19.04.15  17:01:57                                           *                     2
        * Text 'description' . . . . :  MSG: Unexpected HTML data received from web servic           *                     2
        *--------------------------------------------------------------------------------------------*
000001+ *---------------------------------------------------------------                                         000000    2000001
000002+ * Datenstruktur für Message-ID : USR0030                                                                 000000    2000002
000003+ *                                                                                                        000000    2000003
000004+ * Unexpected HTML data received from web service.                                                        000000    2000004
000005+ *                                                                                                        000000    2000005
000006+D USR0030         DS                                                                                      000000    2000006
000007+D  USR00301                   0256A   INZ(*BLANKS)                                                        000000    2000007
000008+D USR0030_SIZE    S              8B 0 INZ(0256)                                                           000000    2000008
000009+ *                                                                                                        000000    2000009
001600+ /COPY QWSDL2RPG,USR0042                      Unexpected element received from web ...               CPY  601201    1001600
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  USR0042                                                      *                     3
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(USR0042)                                  *                     3
        * Last change  . . . . . . . :  19.04.15  17:01:57                                           *                     3
        * Text 'description' . . . . :  MSG: Unexpected Soap element received from web ser           *                     3
        *--------------------------------------------------------------------------------------------*
000001+ *---------------------------------------------------------------                                         000000    3000001
000002+ * Datenstruktur für Message-ID : USR0042                                                                 000000    3000002
000003+ *                                                                                                        000000    3000003
000004+ * Unexpected Soap element received from web service.                                                     000000    3000004
000005+ *                                                                                                        000000    3000005
000006+D USR0042         DS                                                                                      000000    3000006
000007+D  USR00421                   0040A   INZ(*BLANKS)                                                        000000    3000007
000008+D  USR00422                   0040A   INZ(*BLANKS)                                                        000000    3000008
000009+D USR0042_SIZE    S              8B 0 INZ(0080)                                                           000000    3000009
000010+ *                                                                                                        000000    3000010
001700+ /COPY QWSDL2RPG,USR0048                      Failed to get login credentials. ...                   CPY  620118    1001700
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  USR0048                                                      *                     4
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(USR0048)                                  *                     4
        * Last change  . . . . . . . :  19.04.15  17:01:57                                           *                     4
        * Text 'description' . . . . :  MSG: Failed to get login credentials. Please custo           *                     4
        *--------------------------------------------------------------------------------------------*
000001+ *---------------------------------------------------------------                                         000000    4000001
000002+ * Datenstruktur für Message-ID : USR0048                                                                 000000    4000002
000003+ *                                                                                                        000000    4000003
000004+ * Failed to get login credentials. Please customize procedure                                            000000    4000004
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page      8
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000005+ *                                                                                                        000000    4000005
000006+D USR0048         DS                                                                                      000000    4000006
000007+D  USR00481                   0256A   INZ(*BLANKS)                                                        000000    4000007
000008+D USR0048_SIZE    S              8B 0 INZ(0256)                                                           000000    4000008
000009+ *                                                                                                        000000    4000009
001800+ *                                                                                                        611011    1001800
001900+ *   Character translation:                                                                               611011    1001900
002000+D wsdl_hTranscoder_t...                                                                                   611011    1002000
002100+D                 S               *                           based(pDummy)                               611011    1002100
002200+ *                                                                                                        600503    1002200
002300+ *   Dynamic arrays:                                                                                      600503    1002300
002400+D wsdl_hArray_t   S               *                           based(pDummy)                               600503    1002400
002500+D wsdl_arrayName_t...                                                                                     600516    1002500
002600+D                 S            128A   varying                 based(pDummy)                               600516    1002600
002700+ *                                                                                                        591118    1002700
002800+ *   Web Service error message:                                                                           591118    1002800
002900+D wsdl_errText_t...                                                                                       591118    1002900
003000+D                 S            128A   varying                 based(pDummy)                               591118    1003000
003100+ *                                                                                                        591118    1003100
003200+ *   SOAP types:                                                                                          591118    1003200
003300+D wsdl_http_ErrorNo_t...                                                                                  591118    1003300
003400+D                 S             10I 0                         based(pDummy)                               591118    1003400
003500+ *                                                                                                        591118    1003500
003600+D wsdl_http_ErrorText_t...                                                                                591118    1003600
003700+D                 S            128A   varying                 based(pDummy)                               591118    1003700
003800+ *                                                                                                        591118    1003800
003900+D wsdl_soap_faultCode_t...                                                                                591118    1003900
004000+D                 S            256A   varying                 based(pDummy)                               591118    1004000
004100+ *                                                                                                        591118    1004100
004200+D wsdl_soap_faultstring_t...                                                                              591118    1004200
004300+D                 S            256A   varying                 based(pDummy)                               591118    1004300
004400+ *                                                                                                        591125    1004400
004500+D wsdl_soapAction_t...                                                                                    591125    1004500
004600+D                 S            510A   varying                 based(pDummy)                               591125    1004600
004700+ *                                                                                                        130913    1004700
004800+ *   XML types:                                                                                           591118    1004800
004900+D wsdl_xml_ErrorNo_t...                                                                                   591118    1004900
005000+D                 S             10I 0                         based(pDummy)                               591118    1005000
005100+ *                                                                                                        591118    1005100
005200+D wsdl_xml_ErrorText_t...                                                                                 591118    1005200
005300+D                 S            256A   varying                 based(pDummy)                               591118    1005300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page      9
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
005400+D wsdl_xml_line_t...                                                                                      591118    1005400
005500+D                 S             10I 0                         based(pDummy)                               591118    1005500
005600+D wsdl_xml_column_t...                                                                                    591118    1005600
005700+D                 S             10I 0                         based(pDummy)                               591118    1005700
005800+ *                                                                                                        130913    1005800
005900+ *   Constants:                                                                                           591118    1005900
006000+D WSDL_HTTP_SUCCESS...                                                                                    591118    1006000
006100+D                 C                   1                                                                   591118    1006100
006200+D WSDL_HTTP_ERROR...                                                                                      591118    1006200
006300+D                 C                   0                                                                   591118    1006300
006400+D WSDL_HTTP_ERROR_UNEXPECTED...                                                                           591118    1006400
006500+D                 C                   -1                                                                  591118    1006500
006600+D WSDL_HTTP_ERROR_SOAP...                                                                                 130422    1006600
006700+D                 C                   -2                                                                  130422    1006700
006800+D WSDL_HTTP_ERROR_UNKNOWN...                                                                              130422    1006800
006900+D                 C                   -3                                                                  130422    1006900
007000+ *                                                                                                        591118    1007000
007100+D WSDL_MIME_BINARY...                                                                                     130916    1007100
007200+D                 C                   'binary'                                                            130914    1007200
007300+D WSDL_MIME_BASE64...                                                                                     130916    1007300
007400+D                 C                   'base64'                                                            130914    1007400
007500+ *                                                                                                        130914    1007500
007600+D WSDL_SUCCESS...                                                                                         591118    1007600
007700+D                 C                   1                                                                   591118    1007700
007800+D WSDL_ERROR...                                                                                           591118    1007800
007900+D                 C                   0                                                                   591118    1007900
008000+ *                                                                                                        620925    1008000
008100+ *   The values of WSDL_AUTH_* must match the                                                             150120    1008100
008200+ *   values of HTTP_AUTH_*. WSDL_AUTH_NTLM has                                                            150120    1008200
008300+ *   beend defined to compile the stub with                                                               620925    1008300
008400+ *   with the original and unpatched HTTPAPI                                                              620925    1008400
008500+ *   service program.                                                                                     620925    1008500
008600+D WSDL_AUTH_BASIC...                                                                                      150120    1008600
008700+D                 C                   '1'                                                                 150120    1008700
008800+D WSDL_AUTH_MD5_DIGEST...                                                                                 150120    1008800
008900+D                 C                   '2'                                                                 150120    1008900
009000+D WSDL_AUTH_NTLM...                                                                                       620925    1009000
009100+D                 C                   '3'                                                                 620925    1009100
009200+ *                                                                                                        150124    1009200
009300+D WSDL_REALM_PREEMPTIVE_AUTHENTICATION...                                                                 150121    1009300
009400+D                 C                   'WSDL-PRE-EMPTIVE'                                                  150124    1009400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     10
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
009500+ *                                                                                                        591118    1009500
009600+D WSDL_AUTH_TYPE_HTTP...                                                                                  591118    1009600
009700+D                 C                   '*HTTP'                                                             591118    1009700
009800+D WSDL_AUTH_TYPE_PROXY...                                                                                 591118    1009800
009900+D                 C                   '*PROXY'                                                            591118    1009900
010000+ *                                                                                                        130913    1010000
010100+D wsdl_userAgent_t...                                                                                     620201    1010100
010200+D                 S            256A   varying                 based(pDummy)                               620201    1010200
010300+ *                                                                                                        610928    1010300
010400+D wsdl_proxy_t...                                                                                         610928    1010400
010500+D                 DS                  qualified               based(pDummy)                               610928    1010500
010600+D  server                      256A                                                                       610928    1010600
010700+D  port                         10I 0                                                                     610928    1010700
010800+ *                                                                                                        610928    1010800
010900+D wsdl_httpDebug_t...                                                                                     610928    1010900
011000+D                 DS                  qualified               based(pDummy)                               610928    1011000
011100+D  status                         N                                                                       610928    1011100
011200+D  fileName                    500A   varying                                                             610928    1011200
011300+ *                                                                                                        591215    1011300
011400+D wsdl_fullElementData_t...                                                                               591216    1011400
011500+D                 DS                  qualified               based(pDummy)                               591215    1011500
011600+D   pData                         *                                                                       591216    1011600
011700+D   size                        10I 0                                                                     591216    1011700
011800+ *                                                                                                        591118    1011800
011900+D wsdl_headers_t...                                                                                       130912    1011900
012000+D                 DS                  qualified               based(pDummy)                               591118    1012000
012100+D  contentType                        like(wsdl_contentType_t)                                            591118    1012100
012200+D  soapAction                         like(wsdl_soapAction_t )                                            591118    1012200
012300+D  mimeVersion                        like(wsdl_mimeVersion_t)                                            130912    1012300
012400+ *                                                                                                        130912    1012400
012500+ * Deprecated since: 12.09.2013, use 'wsdl_headers_t' instead.                                            130912    1012500
012600+D headers_t       DS                  likeds(wsdl_headers_t)                                              130912    1012600
012700+ *                                                                                                        130913    1012700
012800+ *  MIME version HTTP header                                                                              130913    1012800
012900+D wsdl_mimeVersion_t...                                                                                   130913    1012900
013000+D                 S            510A   varying                 based(pDummy)                               130913    1013000
013100+ *                                                                                                        130914    1013100
013200+ *  MIME content transfer encoding:                                                                       130914    1013200
013300+ *     WSDL_MIME_TRANSFER_ENCODING_BINARY                                                                 130914    1013300
013400+ *     WSDL_MIME_TRANSFER_ENCODING_BASE64                                                                 130914    1013400
013500+D wsdl_contentTransferEncoding_t...                                                                       130914    1013500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     11
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
013600+D                 S             64A   varying                 based(pDummy)                               130914    1013600
013700+ *                                                                                                        130913    1013700
013800+ *   SOAP types:                                                                                          591118    1013800
013900+D wsdl_errors_t...                                                                                        591118    1013900
014000+D                 DS                  qualified               based(pDummy)                               591118    1014000
014100+D  errType                      10I 0                                                                     591118    1014100
014200+D  httpError                          likeds(wsdl_httpError_t  )                                          591118    1014200
014300+D  soapFault                          likeds(wsdl_soapFault_t  )                                          591118    1014300
014400+D  xmlError                           likeds(wsdl_xmlError_t   )                                          591118    1014400
014500+ *                                                                                                        591118    1014500
014600+D wsdl_httpError_t...                                                                                     591118    1014600
014700+D                 DS                  qualified               based(pDummy)                               591118    1014700
014800+D  no                                 like(wsdl_http_ErrorNo_t   )                                        591118    1014800
014900+D  text                               like(wsdl_http_ErrorText_t )                                        591118    1014900
015000+ *                                                                                                        591118    1015000
015100+D wsdl_soapFault_t...                                                                                     591118    1015100
015200+D                 DS                  qualified               based(pDummy)                               591118    1015200
015300+D  code                               like(wsdl_soap_faultcode_t    )                                     591118    1015300
015400+D  string                             like(wsdl_soap_faultstring_t  )                                     591118    1015400
015500+D  detail                             likeds(wsdl_soap_faultDetail_t)                                     591118    1015500
015600+ *                                                                                                        591118    1015600
015700+D wsdl_soap_faultDetail_t...                                                                              591118    1015700
015800+D                 DS                  qualified               based(pDummy)                               591118    1015800
015900+D  hostname                    256A   varying                                                             591118    1015900
016000+ *                                                                                                        591118    1016000
016100+D wsdl_xmlError_t...                                                                                      591118    1016100
016200+D                 DS                  qualified               based(pDummy)                               591118    1016200
016300+D  code                               like(wsdl_xml_ErrorNo_t    )                                        591118    1016300
016400+D  text                               like(wsdl_xml_ErrorText_t  )                                        591118    1016400
016500+D  line                               like(wsdl_xml_line_t       )                                        591118    1016500
016600+D  column                             like(wsdl_xml_column_t     )                                        591118    1016600
016700+ *                                                                                                        591118    1016700
016800+ *  Attachment ID as specified in an attachment part of a MIME message                                    591118    1016800
016900+D wsdl_attachmentID_t...                                                                                  591118    1016900
017000+D                 S            254A   varying                 based(pDummy)                               591118    1017000
017100+ *                                                                                                        591118    1017100
017200+ *  Holds the content type of a ManagedMemoryDataSource or AttachmentPart.                                591118    1017200
017300+D wsdl_contentType_t...                                                                                   591118    1017300
017400+D                 S           1024A   varying                 based(pDummy)                               591118    1017400
017500+ *                                                                                                        591118    1017500
017600+ *  Path name of a IFS stream file.                                                                       591118    1017600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     12
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
017700+D wsdl_path_t...                                                                                          591118    1017700
017800+D                 S            254A   varying                 based(pDummy)                               591118    1017800
017900+D wsdl_pathLong_t...                                                                                      610930    1017900
018000+D                 S           1024A   varying                 based(pDummy)                               610930    1018000
018100+ *                                                                                                        591019    1018100
018200+ *  Attachment                                                                                            591019    1018200
018300+D wsdl_attachment_t...                                                                                    591019    1018300
018400+D                 DS                  qualified               based(pDummy)                               591019    1018400
018500+D  ID                                 like(wsdl_attachmentID_t )                                          591019    1018500
018600+D  fileName                           like(wsdl_path_t         )                                          591019    1018600
018700+ *                                                                                                        591118    1018700
018800+ *  Attachment, Part ID                                                                                   130829    1018800
018900+D wsdl_partId_t   S            128A   varying                                                             130829    1018900
019000+ *                                                                                                        130913    1019000
019100+ *  General purpose UUID                                                                                  130913    1019100
019200+D wsdl_uuid_t...                                                                                          591118    1019200
019300+D                 S             32A                           based(pDummy)                               591118    1019300
019400+ *                                                                                                        610930    1019400
019500+ *  Name of the web service port                                                                          610930    1019500
019600+D wsdl_portName_t...                                                                                      610930    1019600
019700+D                 S            512A   varying                 based(pDummy)                               610930    1019700
019800+ *                                                                                                        620118    1019800
019900+ *  Name of the web service operation                                                                     620118    1019900
020000+D wsdl_operName_t...                                                                                      620118    1020000
020100+D                 S            512A   varying                 based(pDummy)                               620118    1020100
020200+ *                                                                                                        600412    1020200
020300+ *  Marshaller/Unmarshaller constants                                                                     600412    1020300
020400+D WSDL_LOCAL_TIMEZONE...                                                                                  600412    1020400
020500+D                 C                   '*LOCAL'                                                            600412    1020500
020600+D WSDL_NO_TIMEZONE...                                                                                     141125    1020600
020700+D                 C                   '*NONE'                                                             141125    1020700
020800+ *                                                                                                        600528    1020800
020900+ *  Structure to hold a qualified job name                                                                600528    1020900
021000+D wsdl_qJob_t     DS                  qualified           based(pDummy)                                   600528    1021000
021100+D  name                         10A                                                                       600528    1021100
021200+D  user                         10A                                                                       600528    1021200
021300+D  nbr                           6A                                                                       600528    1021300
021400+ *                                                                                                        591118    1021400
021500+ *  Marshaller/Unmarshaller data types                                                                    591118    1021500
021600+D wsdl_decimal_t...                                                                                       591118    1021600
021700+D                 S             31S15                         based(pDummy)                               591118    1021700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     13
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
021800+D wsdl_double_t...                                                                                        591118    1021800
021900+D                 S                   like(wsdl_decimal_t )   based(pDummy)                               591118    1021900
022000+ *                                                                                                        591118    1022000
022100+D wsdl_duration_t...                                                                                      591118    1022100
022200+D                 DS                  qualified               based(pDummy)                               591118    1022200
022300+D  isNegative                     N                                                                       591118    1022300
022400+D  years                        10I 0                                                                     591118    1022400
022500+D  months                       10I 0                                                                     591118    1022500
022600+D  days                         10I 0                                                                     591118    1022600
022700+D  hours                        10I 0                                                                     591118    1022700
022800+D  minutes                      10I 0                                                                     591118    1022800
022900+D  seconds                      10I 0                                                                     591118    1022900
023000+ *                                                                                                        591118    1023000
023100+D wsdl_float_t...                                                                                         591118    1023100
023200+D                 S                   like(wsdl_decimal_t )   based(pDummy)                               591118    1023200
023300+D wsdl_int_t...                                                                                           591118    1023300
023400+D                 S             10I 0                         based(pDummy)                               591118    1023400
023500+D wsdl_integer_t...                                                                                       591118    1023500
023600+D                 S             20I 0                         based(pDummy)                               591118    1023600
023700+D wsdl_long_t...                                                                                          591118    1023700
023800+D                 S             20I 0                         based(pDummy)                               591118    1023800
023900+D wsdl_negInt_t...                                                                                        591118    1023900
024000+D                 S             10I 0                         based(pDummy)                               591118    1024000
024100+D wsdl_nonNegInt_t...                                                                                     591118    1024100
024200+D                 S             10I 0                         based(pDummy)                               591118    1024200
024300+D wsdl_nonPosInt_t...                                                                                     591118    1024300
024400+D                 S             10I 0                         based(pDummy)                               591118    1024400
024500+D wsdl_posInt_t...                                                                                        591118    1024500
024600+D                 S             10I 0                         based(pDummy)                               591118    1024600
024700+D wsdl_short_t...                                                                                         591118    1024700
024800+D                 S              5I 0                         based(pDummy)                               591118    1024800
024900+D wsdl_byte_t...                                                                                          600831    1024900
025000+D                 S              3I 0                         based(pDummy)                               600831    1025000
025100+D wsdl_uInt_t...                                                                                          591118    1025100
025200+D                 S             10U 0                         based(pDummy)                               591118    1025200
025300+D wsdl_uLong_t...                                                                                         591118    1025300
025400+D                 S             20U 0                         based(pDummy)                               591118    1025400
025500+D wsdl_uShort_t...                                                                                        591118    1025500
025600+D                 S              5U 0                         based(pDummy)                               591118    1025600
025700+D wsdl_uByte_t...                                                                                         600831    1025700
025800+D                 S              3U 0                         based(pDummy)                               600831    1025800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     14
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
025900+ *                                                                                                        600605    1025900
026000+D wsdl_gDay_t...                                                                                          600605    1026000
026100+D                 S             10I 0                         based(pDummy)                               600605    1026100
026200+D wsdl_gMonth_t...                                                                                        600605    1026200
026300+D                 S             10I 0                         based(pDummy)                               600605    1026300
026400+D wsdl_gMonthDay_t...                                                                                     600605    1026400
026500+D                 S             10I 0                         based(pDummy)                               600605    1026500
026600+D wsdl_gYear_t...                                                                                         600605    1026600
026700+D                 S             10I 0                         based(pDummy)                               600605    1026700
026800+D wsdl_gYearMonth_t...                                                                                    600605    1026800
026900+D                 S             10I 0                         based(pDummy)                               600605    1026900
027000+ *                                                                                                        571110    1027000
027100+ /ENDIF                                                                                                   571106    1027100
000150  *                                                                                                        000000     000150
000151  /DEFINE PROTOTYPE_TIM001                                                                                 000000     000151
000152  /COPY SSSOLF/QRPGLESRC,TIM001                Web Service: Web Service Proc                          CPY  000000     000152
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TIM001                                                       *                     5
        * External name  . . . . . . :  SSSOLF/QRPGLESRC(TIM001)                                     *                     5
        * Last change  . . . . . . . :  20.07.15  10:56:18                                           *                     5
        * Text 'description' . . . . :  Web Service: timianOrdersPort                                *                     5
        *--------------------------------------------------------------------------------------------*
000001+ /IF NOT DEFINED(PROTOTYPE_TIM001)                                                                        000000    5000001
            LINES EXCLUDED: 47
000049+ /ENDIF                                                                                                   000000    5000049
000050+ /IF NOT DEFINED(PROTOTYPE_DEFINED_TIM001)                                                                000000    5000050
000051+ /DEFINE PROTOTYPE_DEFINED_TIM001                                                                         000000    5000051
000052+ *                                                                                                        000000    5000052
000053+ *   Type definitions                                                                                     000000    5000053
000054+ /COPY QWSDL2RPG,TYPES_H                                                                             CPY  000000    5000054
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES_H                                                      *                     6
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES_H)                                  *                     6
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                     6
        * Text 'description' . . . . :  Type definitions (public)                                    *                     6
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(WSDL2RPG_WS_STUB_COMMON_TYPES)                                                           130912    6000100
            LINES EXCLUDED: 269
027100+ /ENDIF                                                                                                   571106    6027100
000055+ /COPY QWSDL2RPG,PWSDL2R85                    WSDL2RPG: MessageContext                               CPY  000000    5000055
        *--------------------------------------------------------------------------------------------*
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     15
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * RPG member name  . . . . . :  PWSDL2R85                                                    *                     7
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R85)                                *                     7
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                     7
        * Text 'description' . . . . :  WSDL2RPG: MessageContext               (Prototype)           *                     7
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R85)                                                                               130828    7000100
000200+ /DEFINE PWSDL2R85                                                                                        130828    7000200
000300+ *                                                                                                        600411    7000300
000400+ /COPY QBASICS1,PBASICS1                                                                             CPY  600411    7000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1                                                     *                     8
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1)                                  *                     8
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                     8
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Include             cpybk           *                     8
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(D_BASIC)                                                                RADDAT           000000    8000100
000200+ /DEFINE D_BASIC                                                                         RADDAT           000000    8000200
000300+ *                                                                                       RADDAT           000000    8000300
000400+ * -----------------------------------------                                             RADDAT           000000    8000400
000500+ *  Constants                                                                            RADDAT           000000    8000500
000600+ * -----------------------------------------                                             RADDAT           000000    8000600
000700+ /IF NOT DEFINED(cTrue)                                                                  RADDAT           000000    8000700
000800+ /DEFINE cTrue                                                                           RADDAT           000000    8000800
000900+D cTrue           C                   const(*on )                                        RADDAT           000000    8000900
001000+ /ENDIF                                                                                  RADDAT           000000    8001000
001100+ *                                                                                       RADDAT           000000    8001100
001200+ /IF NOT DEFINED(cFalse)                                                                 RADDAT           000000    8001200
001300+ /DEFINE cFalse                                                                          RADDAT           000000    8001300
001400+D cFalse          C                   const(*off)                                        RADDAT           000000    8001400
001500+ /ENDIF                                                                                  RADDAT           000000    8001500
001600+ *                                                                                       RADDAT           000000    8001600
001700+ * -----------------------------------------                                             RADDAT           000000    8001700
001800+ *  Reference fields                                                                     RADDAT           000000    8001800
001900+ * -----------------------------------------                                             RADDAT           000000    8001900
002000+ *                                                                                       RADDAT           000000    8002000
002100+ * -----------------------------------------                                             RADDAT           000000    8002100
002200+ *  Prototypes                                                                           RADDAT           000000    8002200
002300+ * -----------------------------------------                                             RADDAT           000000    8002300
002400+ /COPY QBASICS1,PBASICS1R1                   Messages                                                CPY  000000    8002400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R1                                                   *                     9
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     16
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R1)                                *                     9
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                     9
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Messages            cpybk           *                     9
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PBASICSR1)                                                                               000000    9000100
000200+ /DEFINE PBASICSR1                                                                                        000000    9000200
000300+ *                                                                                       RADDAT           000000    9000300
000400+ *  Reference fields                                                                     RADDAT           000000    9000400
000500+ /COPY QBASICS1,FDMSG                                                                    RADDAT      CPY  000000    9000500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDMSG                                                        *                    10
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDMSG)                                     *                    10
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    10
        * Text 'description' . . . . :  cpybk   : Message                                            *                    10
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(msg_t     )                                                             RADDAT           000000   10000100
000200+ /DEFINE msg_t                                                                           RADDAT           000000   10000200
000300+ * ============================================================= *                       RADDAT           000000   10000300
000400+ *   Message structure                                           *                       RADDAT           000000   10000400
000500+ * ============================================================= *                       RADDAT           000000   10000500
000600+ *                                                                                       RADDAT           000000   10000600
000700+D msg_t           DS                  qualified           based(pDummy)                  RADDAT           000000   10000700
000800+ /if defined(*V5R3M0)                                                                    RADDAT           000000   10000800
000900+D  ID                                 likeds(msgID_t)                                    RADDAT           000000   10000900
001000+ /else                                                                                   RADDAT           000000   10001000
            LINES EXCLUDED: 1
001200+ /endif                                                                                  RADDAT           000000   10001200
001300+D  data                        512A                                                      RADDAT           000000   10001300
001400+D  type                         10A                                                      RADDAT           000000   10001400
001500+D  file                         10A                                                      RADDAT           000000   10001500
001600+D  lib                          10A                                                      RADDAT           000000   10001600
001700+ *                                                                                       RADDAT           000000   10001700
001800+ /if defined(*V5R3M0)                                                                    RADDAT           000000   10001800
001900+D msgID_t         DS                  qualified           based(pDummy)                  RADDAT           000000   10001900
002000+D  prefix                        3A                                                      RADDAT           000000   10002000
002100+D  nbr                           4S 0                                                    RADDAT           000000   10002100
002200+ /endif                                                                                  RADDAT           000000   10002200
002300+ *                                                                                       RADDAT           000000   10002300
002400+ /ENDIF                                                                                  RADDAT           000000   10002400
000600+ /COPY QBASICS1,FDRCVM0200                                                               RADDAT      CPY  000000    9000600
        *--------------------------------------------------------------------------------------------*
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     17
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * RPG member name  . . . . . :  FDRCVM0200                                                   *                    11
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDRCVM0200)                                *                    11
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    11
        * Text 'description' . . . . :  cpybk   : QMHRCVM  API - RCVM0200                            *                    11
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(rcvm0200_t)                                                             RADDAT           000000   11000100
000200+ /DEFINE rcvm0200_t                                                                      RADDAT           000000   11000200
000300+ *===============================================================*                       RADDAT           000000   11000300
000400+ *  QMHRCVM API - RCVM0200                                       *                       RADDAT           000000   11000400
000500+ *===============================================================*                       RADDAT           000000   11000500
000600+ *                                                                                       RADDAT           000000   11000600
000700+D rcvm0200_t      DS                  qualified           based(pDummy)                  RADDAT           000000   11000700
000800+ * Bytes returned                                                                        RADDAT           000000   11000800
000900+D  bytRet                       10I 0                                                    RADDAT           000000   11000900
001000+ * Bytes available                                                                       RADDAT           000000   11001000
001100+D  bytAvl                       10I 0                                                    RADDAT           000000   11001100
001200+ * Message Severity                                                                      RADDAT           000000   11001200
001300+D  msgSev                       10I 0                                                    RADDAT           000000   11001300
001400+ * Message ID                                                                            RADDAT           000000   11001400
001500+D  msgID                         7A                                                      RADDAT           000000   11001500
001600+ * Message Type                                                                          RADDAT           000000   11001600
001700+D  msgType                       2A                                                      RADDAT           000000   11001700
001800+ * Message Key                                                                           RADDAT           000000   11001800
001900+D  msgKey                        4A                                                      RADDAT           000000   11001900
002000+ * Message File                                                                          RADDAT           000000   11002000
002100+D  msgF                         10A                                                      RADDAT           000000   11002100
002200+ * Message Library Specified                                                             RADDAT           000000   11002200
002300+D  msgLS                        10A                                                      RADDAT           000000   11002300
002400+ * Message Library Used                                                                  RADDAT           000000   11002400
002500+D  msgLU                        10A                                                      RADDAT           000000   11002500
002600+ * Sending Job                                                                           RADDAT           000000   11002600
002700+D  sndJob                       10A                                                      RADDAT           000000   11002700
002800+ * Sending User Profile                                                                  RADDAT           000000   11002800
002900+D  sndUsr                       10A                                                      RADDAT           000000   11002900
003000+ * Sending Job Number                                                                    RADDAT           000000   11003000
003100+D  sndNbr                        6A                                                      RADDAT           000000   11003100
003200+ * Sending Program                                                                       RADDAT           000000   11003200
003300+D  sndPgm                       12A                                                      RADDAT           000000   11003300
003400+ * Sending program Instr. Nbr.                                                           RADDAT           000000   11003400
003500+D  sndINb                        4A                                                      RADDAT           000000   11003500
003600+ * Sending Date                                                                          RADDAT           000000   11003600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     18
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003700+D  sndDat                        7A                                                      RADDAT           000000   11003700
003800+ * Sending Time                                                                          RADDAT           000000   11003800
003900+D  sndTim                        6A                                                      RADDAT           000000   11003900
004000+ * Receiving program                                                                     RADDAT           000000   11004000
004100+D  rcvPgm                       10A                                                      RADDAT           000000   11004100
004200+ * Receiving Program Instr. Nbr                                                          RADDAT           000000   11004200
004300+D  rcvINb                        4A                                                      RADDAT           000000   11004300
004400+ * Sending Type                                                                          RADDAT           000000   11004400
004500+D  sndTyp                        1A                                                      RADDAT           000000   11004500
004600+ * Receiving Type                                                                        RADDAT           000000   11004600
004700+D  rcvTyp                        1A                                                      RADDAT           000000   11004700
004800+ * Reserved 01                                                                           RADDAT           000000   11004800
004900+D  reserved_01                   1A                                                      RADDAT           000000   11004900
005000+ * Conversion Status ID Text                                                             RADDAT           000000   11005000
005100+D  cStIDTx                      10I 0                                                    RADDAT           000000   11005100
005200+ * Conversion Status ID Data                                                             RADDAT           000000   11005200
005300+D  cStIDDt                      10I 0                                                    RADDAT           000000   11005300
005400+ * Alert Option                                                                          RADDAT           000000   11005400
005500+D  alrOpt                        9A                                                      RADDAT           000000   11005500
005600+ * CCSID of msg and help                                                                 RADDAT           000000   11005600
005700+D  ccsidMH                      10I 0                                                    RADDAT           000000   11005700
005800+ * CCSID of replacement data                                                             RADDAT           000000   11005800
005900+D  ccsidRD                      10I 0                                                    RADDAT           000000   11005900
006000+ * Length replacement data ret.                                                          RADDAT           000000   11006000
006100+D  lnRplDtR                     10I 0                                                    RADDAT           000000   11006100
006200+ * Length replacement data avl.                                                          RADDAT           000000   11006200
006300+D  lnRplDtA                     10I 0                                                    RADDAT           000000   11006300
006400+ * Length message ret.                                                                   RADDAT           000000   11006400
006500+D  lnMgR                        10I 0                                                    RADDAT           000000   11006500
006600+ * Length message avl.                                                                   RADDAT           000000   11006600
006700+D  lnMgA                        10I 0                                                    RADDAT           000000   11006700
006800+ * Length message help ret.                                                              RADDAT           000000   11006800
006900+D  lnMgHR                       10I 0                                                    RADDAT           000000   11006900
007000+ * Length message help avl.                                                              RADDAT           000000   11007000
007100+D  lnMgHA                       10I 0                                                    RADDAT           000000   11007100
007200+ * Value of varying length!                                                              RADDAT           000000   11007200
007300+D  value                      4096A                                                      RADDAT           000000   11007300
007400+ *                                                                                       RADDAT           000000   11007400
007500+ /ENDIF                                                                                  RADDAT           000000   11007500
000700+ /COPY QBASICS1,FDRCVM0300                                                               RADDAT      CPY  000000    9000700
        *--------------------------------------------------------------------------------------------*
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     19
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * RPG member name  . . . . . :  FDRCVM0300                                                   *                    12
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDRCVM0300)                                *                    12
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    12
        * Text 'description' . . . . :  cpybk   : QMHRCVM  API - RCVM0300                            *                    12
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(rcvm0300_t)                                                             RADDAT           000000   12000100
000200+ /DEFINE rcvm0300_t                                                                      RADDAT           000000   12000200
000300+ *===============================================================*                       RADDAT           000000   12000300
000400+ *  QMHRCVM API - RCVM0300                                       *                       RADDAT           000000   12000400
000500+ *===============================================================*                       RADDAT           000000   12000500
000600+ *                                                                                       RADDAT           000000   12000600
000700+D rcvm0300_t      DS                  qualified           based(pDummy)                  RADDAT           000000   12000700
000800+ * Bytes returned                                                                        RADDAT           000000   12000800
000900+D  bytRet                 1      4I 0                                                    RADDAT           000000   12000900
001000+ * Bytes available                                                                       RADDAT           000000   12001000
001100+D  bytAvl                 5      8I 0                                                    RADDAT           000000   12001100
001200+ * Message Severity                                                                      RADDAT           000000   12001200
001300+D  msgSev                 9     12I 0                                                    RADDAT           000000   12001300
001400+ * Message ID                                                                            RADDAT           000000   12001400
001500+D  msgID                 13     19A                                                      RADDAT           000000   12001500
001600+ * Message Type                                                                          RADDAT           000000   12001600
001700+D  msgType               20     21A                                                      RADDAT           000000   12001700
001800+ * Message Key                                                                           RADDAT           000000   12001800
001900+D  msgKey                22     25A                                                      RADDAT           000000   12001900
002000+ * Message File                                                                          RADDAT           000000   12002000
002100+D  msgF                  26     35A                                                      RADDAT           000000   12002100
002200+ * Message Library Specified                                                             RADDAT           000000   12002200
002300+D  msgLS                 36     45A                                                      RADDAT           000000   12002300
002400+ * Message Library Used                                                                  RADDAT           000000   12002400
002500+D  msgLU                 46     55A                                                      RADDAT           000000   12002500
002600+ * Alert option                                                                          RADDAT           000000   12002600
002700+D  alertOpt              56     64A                                                                       000000   12002700
002800+ * CCSID conversion status indicator of message and message help                                          000000   12002800
002900+D  ccsidConvStatMsg...                                                                                    000000   12002900
003000+D                        65     68I 0                                                                     000000   12003000
003100+ * CCSID conversion status indicator of message data or text                                              000000   12003100
003200+D  ccsidConvStatMsgData...                                                                                000000   12003200
003300+D                        69     72I 0                                                                     000000   12003300
003400+ * CCSID of replacement data or impromptu message text                                                    000000   12003400
003500+D  ccsidRplData...                                                                                        000000   12003500
003600+D                        73     76I 0                                                                     000000   12003600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     20
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003700+ * CCSID of replacement data and message help                                                             000000   12003700
003800+D  ccsidMsgHlp...                                                                                         000000   12003800
003900+D                        77     80I 0                                                                     000000   12003900
004000+ * Length of replacement data or impromptu message text returned                                          000000   12004000
004100+D  lenRplDataR...                                                                                         000000   12004100
004200+D                        81     84I 0                                                                     000000   12004200
004300+ * Length of replacement data or impromptu message text available                                         000000   12004300
004400+D  lenRplDataA...                                                                                         000000   12004400
004500+D                        85     88I 0                                                                     000000   12004500
004600+ * Length of message returned                                                                             000000   12004600
004700+D  lenMsgR...                                                                                             000000   12004700
004800+D                        89     92I 0                                                                     000000   12004800
004900+ * Length of message available                                                                            000000   12004900
005000+D  lenMsgA...                                                                                             000000   12005000
005100+D                        93     96I 0                                                                     000000   12005100
005200+ * Length of message help returned                                                                        000000   12005200
005300+D  lenMsgHlpR...                                                                                          000000   12005300
005400+D                        97    100I 0                                                                     000000   12005400
005500+ * Length of message help available                                                                       000000   12005500
005600+D  lenMsgHlpA...                                                                                          000000   12005600
005700+D                       101    104I 0                                                                     000000   12005700
005800+ * Length of sender information returned                                                                  000000   12005800
005900+D  lenSndInfR...                                                                                          000000   12005900
006000+D                       105    108I 0                                                                     000000   12006000
006100+ * Length of sender information available                                                                 000000   12006100
006200+D  lenSndInfA...                                                                                          000000   12006200
006300+D                       109    112I 0                                                                     000000   12006300
006400+ *                                                                                                        000000   12006400
006500+ * The offsets to       CHAR(*)      Replacement data or impromptu message text                           000000   12006500
006600+ * these fields         CHAR(*)      Message                                                              000000   12006600
006700+ * equal the offset     CHAR(*)      Message help                                                         000000   12006700
006800+ * to the last          CHAR(*)      Sender information                                                   000000   12006800
006900+ * fixed-length                                                                          RADDAT           000000   12006900
007000+ * field plus the                                                                        RADDAT           000000   12007000
007100+ * length of the                                                                         RADDAT           000000   12007100
007200+ * previous variable                                                                     RADDAT           000000   12007200
007300+ * length fields.                                                                        RADDAT           000000   12007300
007400+ *                                                                                       RADDAT           000000   12007400
007500+ /ENDIF                                                                                  RADDAT           000000   12007500
007600+ *                                                                                       RADDAT           000000   12007600
007700+ /IF NOT DEFINED(sndInf_t)                                                                                000000   12007700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     21
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
007800+ /DEFINE sndInf_t                                                                                         000000   12007800
007900+ *===============================================================*                       RADDAT           000000   12007900
008000+ *  QMHRCVM API - Sender Information Format                      *                       RADDAT           000000   12008000
008100+ *===============================================================*                       RADDAT           000000   12008100
008200+ *                                                                                       RADDAT           000000   12008200
008300+D sndInf_t        DS                  based(pDummy) qualified                                             000000   12008300
008400+ * Sending job                                                                           RADDAT           000000   12008400
008500+D  job...                                                                                                 000000   12008500
008600+D                         1     10A                                                                       000000   12008600
008700+ * Sending user profile                                                                  RADDAT           000000   12008700
008800+D  user...                                                                                                000000   12008800
008900+D                        11     20A                                                                       000000   12008900
009000+ * Sending job's number                                                                  RADDAT           000000   12009000
009100+D  jobNbr...                                                                                              000000   12009100
009200+D                        21     26A                                                                       000000   12009200
009300+ * Date sent                                                                             RADDAT           000000   12009300
009400+D  date...                                                                                                000000   12009400
009500+D                        27     33A                                                                       000000   12009500
009600+ * Time sent                                                                             RADDAT           000000   12009600
009700+D  time...                                                                                                000000   12009700
009800+D                        34     39A                                                                       000000   12009800
009900+ * Sending type                                                                          RADDAT           000000   12009900
010000+D  sndType...                                                                                             000000   12010000
010100+D                        40     40A                                                                       000000   12010100
010200+ * Receiving type                                                                        RADDAT           000000   12010200
010300+D  rcvType...                                                                                             000000   12010300
010400+D                        41     41A                                                                       000000   12010400
010500+ * Sending program name                                                                  RADDAT           000000   12010500
010600+D  sndPgm...                                                                                              000000   12010600
010700+D                        42     53A                                                                       000000   12010700
010800+ * Sending module name                                                                   RADDAT           000000   12010800
010900+D  sndModule...                                                                                           000000   12010900
011000+D                        54     63A                                                                       000000   12011000
011100+ * Sending procedure name                                                                RADDAT           000000   12011100
011200+D  sndProc...                                                                                             000000   12011200
011300+D                        64    319A                                                                       000000   12011300
011400+ * Reserved                                                                              RADDAT           000000   12011400
011500+D  reserved_01...                                                                                         000000   12011500
011600+D                       320    320A                                                                       000000   12011600
011700+ * Number of statement numbers or instruction numbers                                    RADDAT           000000   12011700
011800+ * available for the sending program or procedure                                                         000000   12011800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     22
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
011900+D  sndPgmNumStmtNbrs...                                                                                   000000   12011900
012000+D                       321    324A                                                                       000000   12012000
012100+ * Sending program's statement numbers or                                                                 000000   12012100
012200+ * instruction numbers                                                                                    000000   12012200
012300+D  sndPgmStmtNbrs...                                                                                      000000   12012300
012400+D                       325    354A                                                                       000000   12012400
012500+D   sndPgmStmtNbr...                                                                     RADDAT           000000   12012500
012600+D                               10A   dim(3) overlay(sndPgmStmtNbrs)                     RADDAT           000000   12012600
012700+ * Receiving program name                                                                RADDAT           000000   12012700
012800+D  rcvPgm...                                                                                              000000   12012800
012900+D                       355    364A                                                                       000000   12012900
013000+ * Receiving module name                                                                 RADDAT           000000   12013000
013100+D  rcvModule...                                                                                           000000   12013100
013200+D                       365    374A                                                                       000000   12013200
013300+ * Receiving procedure name                                                              RADDAT           000000   12013300
013400+D  rcvProc...                                                                                             000000   12013400
013500+D                       375    630A                                                                       000000   12013500
013600+ * Reserved                                                                              RADDAT           000000   12013600
013700+D  reserved_02...                                                                                         000000   12013700
013800+D                       631    640A                                                                       000000   12013800
013900+ * Number of statement numbers or instruction numbers                                    RADDAT           000000   12013900
014000+ * available for the receiving program or procedure.                                                      000000   12014000
014100+D  rcvPgmNumStmtNbrs...                                                                                   000000   12014100
014200+D                       641    644I 0                                                                     000000   12014200
014300+ * Receiving program's statement number or                                               RADDAT           000000   12014300
014400+ * instruction number                                                                    RADDAT           000000   12014400
014500+D  rcvPgmStmtNbrs...                                                                                      000000   12014500
014600+D                       645    674A                                                                       000000   12014600
014700+D   rcvPgmStmtNbr...                                                                     RADDAT           000000   12014700
014800+D                               10A   dim(3) overlay(rcvPgmStmtNbrs)                     RADDAT           000000   12014800
014900+ * Reserved                                                                              RADDAT           000000   12014900
015000+D  reserved_03...                                                                                         000000   12015000
015100+D                       675    676A                                                                       000000   12015100
015200+ * Displacement to long sending program name                                             RADDAT           000000   12015200
015300+D  ofsSndPgmLName...                                                                                      000000   12015300
015400+D                       677    680I 0                                                                     000000   12015400
015500+ * Length of long sending program name                                                                    000000   12015500
015600+D  lenSndPgmLName...                                                                                      000000   12015600
015700+D                       681    684I 0                                                                     000000   12015700
015800+ * Displacement to long sending procedure name                                                            000000   12015800
015900+D  ofsSndPrcLName...                                                                                      000000   12015900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     23
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
016000+D                       685    688I 0                                                                     000000   12016000
016100+ * Length of long sending procedure name                                                                  000000   12016100
016200+D  lenSndPrcLName...                                                                                      000000   12016200
016300+D                       689    692I 0                                                                     000000   12016300
016400+ * Displacement to long receiving procedure name                                                          000000   12016400
016500+D  ofsRcvPrcLName...                                                                                      000000   12016500
016600+D                       693    696I 0                                                                     000000   12016600
016700+ * Length of long receiving procedure name                                                                000000   12016700
016800+D  lenRcvPrcLName...                                                                                      000000   12016800
016900+D                       697    700I 0                                                                     000000   12016900
017000+ *                                                                                       RADDAT           000000   12017000
017100+ * The                  CHAR(*)      Reserved                                                             000000   12017100
017200+ * offsets              CHAR(*)      Long sending program name                                            000000   12017200
017300+ * to these             CHAR(*)      Long sending procedure name                         RADDAT           000000   12017300
017400+ * fields               CHAR(*)      Long receiving procedure name                       RADDAT           000000   12017400
017500+ * are found                                                                             RADDAT           000000   12017500
017600+ * in the                                                                                RADDAT           000000   12017600
017700+ * displacemet                                                                           RADDAT           000000   12017700
017800+ * fields                                                                                RADDAT           000000   12017800
017900+ * identified                                                                            RADDAT           000000   12017900
018000+ * in this                                                                               RADDAT           000000   12018000
018100+ * table.                                                                                RADDAT           000000   12018100
018200+ *                                                                                       RADDAT           000000   12018200
018300+ /ENDIF                                                                                  RADDAT           000000   12018300
000800+ /COPY QBASICS1,FDRTVM0100                                                               RADDAT      CPY  000000    9000800
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDRTVM0100                                                   *                    13
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDRTVM0100)                                *                    13
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    13
        * Text 'description' . . . . :  cpybk   : QMHRTVM  API - RTVM0100                            *                    13
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(rtvm0100_t)                                                             RADDAT           000000   13000100
000200+ /DEFINE rtvm0100_t                                                                      RADDAT           000000   13000200
000300+ *===============================================================*                       RADDAT           000000   13000300
000400+ *  QMHRTVM API - RTVM0100                                       *                       RADDAT           000000   13000400
000500+ *===============================================================*                       RADDAT           000000   13000500
000600+ *                                                                                       RADDAT           000000   13000600
000700+D rtvm0100_t      DS                  qualified           based(pDummy)                  RADDAT           000000   13000700
000800+ *  Bytes returned                                                                       RADDAT           000000   13000800
000900+D  BYTRET                        9B 0                                                    RADDAT           000000   13000900
001000+ *  Bytes available                                                                      RADDAT           000000   13001000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     24
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001100+D  BYTAVL                        9B 0                                                    RADDAT           000000   13001100
001200+ *  Length of message returned                                                           RADDAT           000000   13001200
001300+D  LENMSGRET                     9B 0                                                    RADDAT           000000   13001300
001400+ *  Length of message available                                                          RADDAT           000000   13001400
001500+D  LENMSGAVL                     9B 0                                                    RADDAT           000000   13001500
001600+ *  Length of msg help returned                                                          RADDAT           000000   13001600
001700+D  LENHLPRET                     9B 0                                                    RADDAT           000000   13001700
001800+ *  Length of msg help available                                                         RADDAT           000000   13001800
001900+D  LENHLPAVL                     9B 0                                                    RADDAT           000000   13001900
002000+ *  Msg text and data of varying length!                                                 RADDAT           000000   13002000
002100+D  DATA                       2048A                                                      RADDAT           000000   13002100
002200+ *                                                                                       RADDAT           000000   13002200
002300+ /ENDIF                                                                                  RADDAT           000000   13002300
000900+ /COPY QBASICS1,FDRTVM0300                                                               RADDAT      CPY  000000    9000900
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDRTVM0300                                                   *                    14
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDRTVM0300)                                *                    14
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    14
        * Text 'description' . . . . :  cpybk   : QMHRTVM  API - RTVM0300                            *                    14
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(rtvm0300_t)                                                             RADDAT           000000   14000100
000200+ /DEFINE rtvm0300_t                                                                      RADDAT           000000   14000200
000300+ *===============================================================*                       RADDAT           000000   14000300
000400+ *  QMHRTVM API - RTVM0300                                       *                       RADDAT           000000   14000400
000500+ *===============================================================*                       RADDAT           000000   14000500
000600+ *                                                                                       RADDAT           000000   14000600
000700+D rtvm0300_t      DS                  qualified           based(pDummy)                  RADDAT           000000   14000700
000800+ *  Bytes returned                                                                       RADDAT           000000   14000800
000900+D  bytRet                       10I 0                                                    RADDAT           000000   14000900
001000+ *  Bytes available                                                                      RADDAT           000000   14001000
001100+D  bytAvl                       10I 0                                                    RADDAT           000000   14001100
001200+ *  Message severity                                                                     RADDAT           000000   14001200
001300+D  msgSev                       10I 0                                                    RADDAT           000000   14001300
001400+ *  Alert index                                                                          RADDAT           000000   14001400
001500+D  altIdx                       10I 0                                                    RADDAT           000000   14001500
001600+ * Alert Option                                                                          RADDAT           000000   14001600
001700+D  altOpt                        9A                                                      RADDAT           000000   14001700
001800+ * Log indicator                                                                         RADDAT           000000   14001800
001900+D  logInd                        1A                                                      RADDAT           000000   14001900
002000+ * Message ID                                                                            RADDAT           000000   14002000
002100+D  msgID                         7A                                                      RADDAT           000000   14002100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     25
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002200+ * Reserved                                                                              RADDAT           000000   14002200
002300+D  reserved_01                   3A                                                      RADDAT           000000   14002300
002400+ * Nbr. of subst. var. formats                                                           RADDAT           000000   14002400
002500+D  numVarFmt                    10I 0                                                    RADDAT           000000   14002500
002600+ * CCSID conv. stat. ind. text                                                           RADDAT           000000   14002600
002700+D  csIndTxt                     10I 0                                                    RADDAT           000000   14002700
002800+ * CCSID conv. stat. ind. data                                                           RADDAT           000000   14002800
002900+D  csIndDta                     10I 0                                                    RADDAT           000000   14002900
003000+ * CCSID of Text returned                                                                RADDAT           000000   14003000
003100+D  ccsidTxt                     10I 0                                                    RADDAT           000000   14003100
003200+ * Offset of default reply                                                               RADDAT           000000   14003200
003300+D  ofsDftR                      10I 0                                                    RADDAT           000000   14003300
003400+ * Length of default reply ret.                                                          RADDAT           000000   14003400
003500+D  lenDftRpyR                   10I 0                                                    RADDAT           000000   14003500
003600+ * Length of default reply avl.                                                          RADDAT           000000   14003600
003700+D  lenDftRpyA                   10I 0                                                    RADDAT           000000   14003700
003800+ * Offset of message                                                                     RADDAT           000000   14003800
003900+D  ofsMsg                       10I 0                                                    RADDAT           000000   14003900
004000+ * Length of message returned                                                            RADDAT           000000   14004000
004100+D  lenMsgR                      10I 0                                                    RADDAT           000000   14004100
004200+ * Length of message available                                                           RADDAT           000000   14004200
004300+D  lenMsgA                      10I 0                                                    RADDAT           000000   14004300
004400+ * Offset of message                                                                     RADDAT           000000   14004400
004500+D  ofsMsgHlp                    10I 0                                                    RADDAT           000000   14004500
004600+ * Length of message help ret.                                                           RADDAT           000000   14004600
004700+D  lenMsgHlpR                   10I 0                                                    RADDAT           000000   14004700
004800+ * Length of message help avl.                                                           RADDAT           000000   14004800
004900+D  lenMsgHlpA                   10I 0                                                    RADDAT           000000   14004900
005000+ * Ofs. of subst. var. formats                                                           RADDAT           000000   14005000
005100+D  ofsVarFmt                    10I 0                                                    RADDAT           000000   14005100
005200+ * Length subst. var. fmt. ret.                                                          RADDAT           000000   14005200
005300+D  lenVarFmtR                   10I 0                                                    RADDAT           000000   14005300
005400+ * Length subst. var. fmt. avl.                                                          RADDAT           000000   14005400
005500+D  lenVarFmtA                   10I 0                                                    RADDAT           000000   14005500
005600+ * Length subst. var. element                                                            RADDAT           000000   14005600
005700+D  lenVarFmtE                   10I 0                                                    RADDAT           000000   14005700
005800+ * Data                                                                                  RADDAT           000000   14005800
005900+D  data                       4096A                                                      RADDAT           000000   14005900
006000+ *                       CHAR(*)  Default reply                                          RADDAT           000000   14006000
006100+ *                       CHAR(*)  Message                                                RADDAT           000000   14006100
006200+ *                       CHAR(*)  Message help                                           RADDAT           000000   14006200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     26
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
006300+ *                       CHAR(*)  Substitution variable formats                          RADDAT           000000   14006300
006400+ *                                                                                       RADDAT           000000   14006400
006500+ /ENDIF                                                                                  RADDAT           000000   14006500
001000+ /COPY QBASICS1,FDRTVM0400                                                               RADDAT      CPY  000000    9001000
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDRTVM0400                                                   *                    15
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDRTVM0400)                                *                    15
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    15
        * Text 'description' . . . . :  cpybk   : QMHRTVM  API - RTVM0400                            *                    15
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(rtvm0400_t)                                                             RADDAT           000000   15000100
000200+ /DEFINE rtvm0400_t                                                                      RADDAT           000000   15000200
000300+ *===============================================================*                       RADDAT           000000   15000300
000400+ *  QMHRTVM API - RTVM0400                                       *                       RADDAT           000000   15000400
000500+ *===============================================================*                       RADDAT           000000   15000500
000600+ *                                                                                       RADDAT           000000   15000600
000700+D rtvm0400_t      DS                  qualified           based(pDummy)                  RADDAT           000000   15000700
000800+ *  Bytes returned                                                                       RADDAT           000000   15000800
000900+D  bytRet                       10I 0                                                    RADDAT           000000   15000900
001000+ *  Bytes available                                                                      RADDAT           000000   15001000
001100+D  bytAvl                       10I 0                                                    RADDAT           000000   15001100
001200+ *  Message severity                                                                     RADDAT           000000   15001200
001300+D  msgSev                       10I 0                                                    RADDAT           000000   15001300
001400+ *  Alert index                                                                          RADDAT           000000   15001400
001500+D  altIdx                       10I 0                                                    RADDAT           000000   15001500
001600+ * Alert Option                                                                          RADDAT           000000   15001600
001700+D  altOpt                        9A                                                      RADDAT           000000   15001700
001800+ * Log indicator                                                                         RADDAT           000000   15001800
001900+D  logInd                        1A                                                      RADDAT           000000   15001900
002000+ * Message ID                                                                            RADDAT           000000   15002000
002100+D  msgID                         7A                                                      RADDAT           000000   15002100
002200+ * Reserved                                                                              RADDAT           000000   15002200
002300+D  reserved_01                   3A                                                      RADDAT           000000   15002300
002400+ * Nbr. of subst. var. formats                                                           RADDAT           000000   15002400
002500+D  numVarFmt                    10I 0                                                    RADDAT           000000   15002500
002600+ * CCSID conv. stat. ind. text                                                           RADDAT           000000   15002600
002700+D  csIndTxt                     10I 0                                                    RADDAT           000000   15002700
002800+ * CCSID conv. stat. ind. data                                                           RADDAT           000000   15002800
002900+D  csIndDta                     10I 0                                                    RADDAT           000000   15002900
003000+ * CCSID of Text returned                                                                RADDAT           000000   15003000
003100+D  ccsidTxt                     10I 0                                                    RADDAT           000000   15003100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     27
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003200+ * Offset of default reply                                                               RADDAT           000000   15003200
003300+D  ofsDftR                      10I 0                                                    RADDAT           000000   15003300
003400+ * Length of default reply ret.                                                          RADDAT           000000   15003400
003500+D  lenDftRpyR                   10I 0                                                    RADDAT           000000   15003500
003600+ * Length of default reply avl.                                                          RADDAT           000000   15003600
003700+D  lenDftRpyA                   10I 0                                                    RADDAT           000000   15003700
003800+ * Offset of message                                                                     RADDAT           000000   15003800
003900+D  ofsMsg                       10I 0                                                    RADDAT           000000   15003900
004000+ * Length of message returned                                                            RADDAT           000000   15004000
004100+D  lenMsgR                      10I 0                                                    RADDAT           000000   15004100
004200+ * Length of message available                                                           RADDAT           000000   15004200
004300+D  lenMsgA                      10I 0                                                    RADDAT           000000   15004300
004400+ * Offset of message                                                                     RADDAT           000000   15004400
004500+D  ofsMsgHlp                    10I 0                                                    RADDAT           000000   15004500
004600+ * Length of message help ret.                                                           RADDAT           000000   15004600
004700+D  lenMsgHlpR                   10I 0                                                    RADDAT           000000   15004700
004800+ * Length of message help avl.                                                           RADDAT           000000   15004800
004900+D  lenMsgHlpA                   10I 0                                                    RADDAT           000000   15004900
005000+ * Ofs. of subst. var. formats                                                           RADDAT           000000   15005000
005100+D  ofsVarFmt                    10I 0                                                    RADDAT           000000   15005100
005200+ * Length subst. var. fmt. ret.                                                          RADDAT           000000   15005200
005300+D  lenVarFmtR                   10I 0                                                    RADDAT           000000   15005300
005400+ * Length subst. var. fmt. avl.                                                          RADDAT           000000   15005400
005500+D  lenVarFmtA                   10I 0                                                    RADDAT           000000   15005500
005600+ * Length subst. var. element                                                            RADDAT           000000   15005600
005700+D  lenVarFmtE                   10I 0                                                    RADDAT           000000   15005700
005800+ * Reply type                                                                            RADDAT           000000   15005800
005900+D  rpyType                      10A                                                      RADDAT           000000   15005900
006000+ * Reserved                                                                              RADDAT           000000   15006000
006100+D  reserved_02                   2A                                                      RADDAT           000000   15006100
006200+ * Maximum reply length                                                                  RADDAT           000000   15006200
006300+D  maxRpyLen                    10I 0                                                    RADDAT           000000   15006300
006400+ * Maximum reply decimal positions                                                       RADDAT           000000   15006400
006500+D  maxRpyDecPos                 10I 0                                                    RADDAT           000000   15006500
006600+ * Offset of valid reply value entries                                                   RADDAT           000000   15006600
006700+D  ofsRpyE                      10I 0                                                    RADDAT           000000   15006700
006800+ * Number of valid reply values entries returned                                         RADDAT           000000   15006800
006900+D  numRpyER                     10I 0                                                    RADDAT           000000   15006900
007000+ * Length of valid reply value entries returned                                          RADDAT           000000   15007000
007100+D  lenRpyER                     10I 0                                                    RADDAT           000000   15007100
007200+ * Length of valid reply value entries available                                         RADDAT           000000   15007200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     28
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
007300+D  lenRpyEA                     10I 0                                                    RADDAT           000000   15007300
007400+ * Length of valid reply value entry                                                     RADDAT           000000   15007400
007500+D  lenRpyE                      10I 0                                                    RADDAT           000000   15007500
007600+ * Offset of special reply value entries                                                 RADDAT           000000   15007600
007700+D  ofsSpcRpyE                   10I 0                                                    RADDAT           000000   15007700
007800+ * Number of special reply values returned                                               RADDAT           000000   15007800
007900+D  numSpcRpyER                  10I 0                                                    RADDAT           000000   15007900
008000+ * Length of special reply value entries returned                                        RADDAT           000000   15008000
008100+D  lenSpcRpyER                  10I 0                                                    RADDAT           000000   15008100
008200+ * Length of special reply value entries available                                       RADDAT           000000   15008200
008300+D  lenSpcRpyEA                  10I 0                                                    RADDAT           000000   15008300
008400+ * Length of special reply value entry                                                   RADDAT           000000   15008400
008500+D  lenSpcRpyE                   10I 0                                                    RADDAT           000000   15008500
008600+ * Offset of lower range reply value                                                     RADDAT           000000   15008600
008700+D  ofsLowRpyE                   10I 0                                                    RADDAT           000000   15008700
008800+ * Length of lower range reply value returned                                            RADDAT           000000   15008800
008900+D  lenLowRpyER                  10I 0                                                    RADDAT           000000   15008900
009000+ * Length of lower range reply value available                                           RADDAT           000000   15009000
009100+D  lenLowRpyEA                  10I 0                                                    RADDAT           000000   15009100
009200+ * Offset of upper range reply value                                                     RADDAT           000000   15009200
009300+D  ofsUpRpyE                    10I 0                                                    RADDAT           000000   15009300
009400+ * Length of upper range reply value returned                                            RADDAT           000000   15009400
009500+D  ofsUpRpyER                   10I 0                                                    RADDAT           000000   15009500
009600+ * Length of upper range reply value available                                           RADDAT           000000   15009600
009700+D  ofsUpRpyEA                   10I 0                                                    RADDAT           000000   15009700
009800+ * Offset of relational test entry                                                       RADDAT           000000   15009800
009900+D  ofsRelTestE                  10I 0                                                    RADDAT           000000   15009900
010000+ * Length of relational test entry returned                                              RADDAT           000000   15010000
010100+D  lenRelTestER                 10I 0                                                    RADDAT           000000   15010100
010200+ * Length of relational test entry available                                             RADDAT           000000   15010200
010300+D  lenRelTestEA                 10I 0                                                    RADDAT           000000   15010300
010400+ * Message creation date                                                                 RADDAT           000000   15010400
010500+D  crtDate                       7A                                                      RADDAT           000000   15010500
010600+ * Reserved                                                                              RADDAT           000000   15010600
010700+D  reserved_03                   1A                                                      RADDAT           000000   15010700
010800+ * Message creation level number                                                         RADDAT           000000   15010800
010900+D  crtLvlNbr                    10I 0                                                    RADDAT           000000   15010900
011000+ * Message modification date                                                             RADDAT           000000   15011000
011100+D  modDate                       7A                                                      RADDAT           000000   15011100
011200+ * Reserved                                                                              RADDAT           000000   15011200
011300+D  reserved_04                   1A                                                      RADDAT           000000   15011300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     29
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
011400+ * Message modification level number                                                     RADDAT           000000   15011400
011500+D  modLvlNbr                    10I 0                                                    RADDAT           000000   15011500
011600+ * Stored CCSID of message                                                               RADDAT           000000   15011600
011700+D  storedCCSID                  10I 0                                                    RADDAT           000000   15011700
011800+ * Offset of dump list entries                                                           RADDAT           000000   15011800
011900+D  ofsDmpListE                  10I 0                                                    RADDAT           000000   15011900
012000+ * Number of dump list entries returned                                                  RADDAT           000000   15012000
012100+D  numDmpListER                 10I 0                                                    RADDAT           000000   15012100
012200+ * Length of dump list entries returned                                                  RADDAT           000000   15012200
012300+D  lenDmpListER                 10I 0                                                    RADDAT           000000   15012300
012400+ * Length of dump list entries available                                                 RADDAT           000000   15012400
012500+D  lenDmpListEA                 10I 0                                                    RADDAT           000000   15012500
012600+ * Default program name                                                                  RADDAT           000000   15012600
012700+D  dftPgmName                   10A                                                      RADDAT           000000   15012700
012800+ * Default program library name                                                          RADDAT           000000   15012800
012900+D  dftPgmLib                    10A                                                      RADDAT           000000   15012900
013000+ * Data                                                                                  RADDAT           000000   15013000
013100+D  data                       4096A                                                      RADDAT           000000   15013100
013200+ *                       CHAR(*)  Default reply                                          RADDAT           000000   15013200
013300+ *                       CHAR(*)  Message                                                RADDAT           000000   15013300
013400+ *                       CHAR(*)  Message help                                           RADDAT           000000   15013400
013500+ *                       CHAR(*)  Substitution variable formats                          RADDAT           000000   15013500
013600+ *                       CHAR(*)  Valid reply value entries                              RADDAT           000000   15013600
013700+ *                       CHAR(*)  Special reply value entries                            RADDAT           000000   15013700
013800+ *                       CHAR(*)  Lower range reply value                                RADDAT           000000   15013800
013900+ *                       CHAR(*)  Upper range reply value                                RADDAT           000000   15013900
014000+ *                       CHAR(*)  Relational test entry                                  RADDAT           000000   15014000
014100+ *                       CHAR(*)  Dump list entries                                      RADDAT           000000   15014100
014200+ *                                                                                       RADDAT           000000   15014200
014300+ /ENDIF                                                                                  RADDAT           000000   15014300
001100+ *                                                                                       RADDAT           000000    9001100
001200+ *  Constants                                                                            RADDAT           000000    9001200
001300+ *                                                                                       RADDAT           000000    9001300
001400+ *  Message ID special values:                                                           RADDAT           000000    9001400
001500+D cMSG_ID_OK      C                   const('*OK')                                                        000000    9001500
001600+D cMSG_ID_NONE    C                   const('')                                                           000000    9001600
001700+D cMSG_ID_NULL    C                   const('*NULL')                                     RADDAT           000000    9001700
001800+ *                                                                                       RADDAT           000000    9001800
001900+ *  Parameter: Stack Counter                                                                              000000    9001900
002000+D cMsg_AllInact   C                   const(-4)                             - / - /rmv   RADDAT           000000    9002000
002100+D cMsg_Ext        C                   const(-1)                            snd/rcv/rmv   RADDAT           000000    9002100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     30
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002200+D cMsg_Prv        C                   const(-2)                            snd/rcv/rmv   RADDAT           000000    9002200
002300+D cMsg_Same       C                   const(-3)                            snd/rcv/rmv   RADDAT           000000    9002300
002400+ *                                                                                       RADDAT           000000    9002400
002500+ *  Parameter: Procedure                                                                 RADDAT           000000    9002500
002600+D cMsg_ToMyself   C                   const('*')                           snd/rcv/rmv   RADDAT           000000    9002600
002700+D cMsg_ToPgmBdy   C                   const('*PGMBDY')                     snd/ - / -    RADDAT           000000    9002700
002800+D cMsg_ToCtlBdy   C                   const('*CTLBDY')                     snd/ - / -    RADDAT           000000    9002800
002900+D cMsg_ToPgm      C                   const('*PGMNAME')                    snd/ - / -    RADDAT           000000    9002900
003000+ *                                                                                       RADDAT           000000    9003000
003100+ *  Parameter: Message Type                                                                               000000    9003100
003200+D cMsg_Any        C                   const('*ANY')                         - /rcv/ -    RADDAT           000000    9003200
003300+D cMsg_Comp       C                   const('*COMP')                       snd/rcv/ -    RADDAT           000000    9003300
003400+D cMsg_Copy       C                   const('*COPY')                        - /rcv/ -    RADDAT           000000    9003400
003500+D cMsg_Diag       C                   const('*DIAG')                       snd/rcv/ -    RADDAT           000000    9003500
003600+D cMsg_Escape     C                   const('*ESCAPE')                     snd/rcv/ -    RADDAT           000000    9003600
003700+D cMsg_Escp       C                   const('*EXCP')                        - /rcv/ -    RADDAT           000000    9003700
003800+D cMsg_First      C                   const('*FIRST')                       - /rcv/ -    RADDAT           000000    9003800
003900+D cMsg_Info       C                   const('*INFO')                       snd/rcv/ -    RADDAT           000000    9003900
004000+D cMsg_Inq        C                   const('*INQ')                        snd/ - / -    RADDAT           000000    9004000
004100+D cMsg_Last       C                   const('*LAST')                        --/rcv/ -    RADDAT           000000    9004100
004200+D cMsg_Next       C                   const('*NEXT')                        --/rcv/ -    RADDAT           000000    9004200
004300+D cMsg_Notify     C                   const('*NOTIFY')                     snd/rcv/ -    RADDAT           000000    9004300
004400+D cMsg_Previous   C                   const('*PRV')                         --/rcv/ -    RADDAT           000000    9004400
004500+D cMsg_Rpy        C                   const('*RPY')                         --/rcv/ -    RADDAT           000000    9004500
004600+D cMsg_Rqs        C                   const('*RQS')                        snd/rcv/ -    RADDAT           000000    9004600
004700+D cMsg_Status     C                   const('*STATUS')                     snd/ - / -    RADDAT           000000    9004700
004800+ *                                                                                       RADDAT           000000    9004800
004900+ *  Parameter: Action                                                                    RADDAT           000000    9004900
005000+D cMsg_Act_Old    C                   const('*OLD')                         - /rcv/ -    RADDAT           000000    9005000
005100+D cMsg_Act_Rmv    C                   const('*REMOVE')                      - /rcv/ -    RADDAT           000000    9005100
005200+D cMsg_Act_Same   C                   const('*SAME')                        - /rcv/ -    RADDAT           000000    9005200
005300+ *                                                                                       RADDAT           000000    9005300
005400+ *  Parameter: Message to remove                                                         RADDAT           000000    9005400
005500+D cMsg_Rmv_All    C                   const('*ALL')                         - / - /rmv   RADDAT           000000    9005500
005600+D cMsg_Rmv_ByKey  C                   const('*BYKEY')                       - / - /rmv   RADDAT           000000    9005600
005700+D cMsg_Rmv_New    C                   const('*NEW')                         - / - /rmv   RADDAT           000000    9005700
005800+D cMsg_Rmv_Old    C                   const('*OLD')                         - / - /rmv   RADDAT           000000    9005800
005900+D cMsg_Rmv_Scope  C                   const('*SCOPE')                       - / - /rmv   RADDAT           000000    9005900
006000+ *                                                                                       RADDAT           000000    9006000
006100+ *  Retrieve message help text                                                           RADDAT           000000    9006100
006200+D cMsg_RtnCtrlChar_Yes...                                                                RADDAT           000000    9006200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     31
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
006300+D                 C                   const('*YES')                                      RADDAT           000000    9006300
006400+D cMsg_RtnCtrlChar_No...                                                                 RADDAT           000000    9006400
006500+D                 C                   const('*NO')                                       RADDAT           000000    9006500
006600+ *                                                                                       RADDAT           000000    9006600
006700+ *  Sets the application message file.                                                   RADDAT           000000    9006700
006800+D p_setAppMsgFile...                                                                     RADDAT           000000    9006800
006900+D                 PR                                                                     RADDAT           000000    9006900
007000+D                                     extproc('BASICS1R1+                                RADDAT           000000    9007000
007100+D                                     _p_setAppMsgFile+                                  RADDAT           000000    9007100
007200+D                                     ')                                                 RADDAT           000000    9007200
007300+D  i_file                       10A   const  options(*nopass)                            RADDAT           000000    9007300
007400+D  i_lib                        10A   const  options(*nopass)                            RADDAT           000000    9007400
007500+ *                                                                                       RADDAT           000000    9007500
007600+ *  Creates a new message.                                                               RADDAT           000000    9007600
007700+D f_newMsg...                                                                            RADDAT           000000    9007700
007800+D                 PR                         likeds(msg_t     )                          RADDAT           000000    9007800
007900+D                                     extproc('BASICS1R1+                                RADDAT           000000    9007900
008000+D                                     _f_newMsg+                                         RADDAT           000000    9008000
008100+D                                     ')                                                 RADDAT           000000    9008100
008200+D  i_ID                               const  like(msg_t.id    )                          RADDAT           000000    9008200
008300+D                                            options(*omit: *nopass)                     RADDAT           000000    9008300
008400+D  i_data                      512A   const  varying                                     RADDAT           000000    9008400
008500+D                                            options(*omit: *nopass)                     RADDAT           000000    9008500
008600+D  i_type                             const  like(msg_t.type  )                          RADDAT           000000    9008600
008700+D                                            options(*omit: *nopass)                     RADDAT           000000    9008700
008800+D  i_file                             const  like(msg_t.file  )                          RADDAT           000000    9008800
008900+D                                            options(*omit: *nopass)                     RADDAT           000000    9008900
009000+D  i_lib                              const  like(msg_t.lib   )                          RADDAT           000000    9009000
009100+D                                            options(*omit: *nopass)                     RADDAT           000000    9009100
009200+ *                                                                                       RADDAT           000000    9009200
009300+ *  Sends a program message.                                                             RADDAT           000000    9009300
009400+D f_sndPgmMsg...                                                                         RADDAT           000000    9009400
009500+D                 PR             4A                                                      RADDAT           000000    9009500
009600+D                                     extproc('BASICS1R1+                                RADDAT           000000    9009600
009700+D                                     _f_sndPgmMsg+                                      RADDAT           000000    9009700
009800+D                                     ')                                                 RADDAT           000000    9009800
009900+D  i_msg                              const  likeds(msg_t   )                            RADDAT           000000    9009900
010000+D  i_toStkC                     10I 0 const  options(*nopass: *omit)                     RADDAT           000000    9010000
010100+D  i_toProc                    256A   const  options(*nopass: *omit)                     RADDAT           000000    9010100
010200+D  i_toMod                      10A   const  options(*nopass: *omit)                     RADDAT           000000    9010200
010300+D  i_toPgm                      10A   const  options(*nopass: *omit)                     RADDAT           000000    9010300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     32
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
010400+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000    9010400
010500+D                                            options(*nopass: *omit)                     RADDAT           000000    9010500
010600+ *                                                                                       RADDAT           000000    9010600
010700+ *  Receives a program message.                                                          RADDAT           000000    9010700
010800+D f_rcvPgmMsg...                                                                         RADDAT           000000    9010800
010900+D                 PR                         likeds(rcvm0200_t)                          RADDAT           000000    9010900
011000+D                                     extproc('BASICS1R1+                                RADDAT           000000    9011000
011100+D                                     _f_rcvPgmMsg+                                      RADDAT           000000    9011100
011200+D                                     ')                                                 RADDAT           000000    9011200
011300+D  i_msgType                    10A   const                                              RADDAT           000000    9011300
011400+D  i_msgKey                      4A   const  options(*nopass: *omit)                     RADDAT           000000    9011400
011500+D  i_action                     10A   const  options(*nopass: *omit)                     RADDAT           000000    9011500
011600+D  i_wait                       10I 0 const  options(*nopass: *omit)                     RADDAT           000000    9011600
011700+D  i_fromStkC                   10I 0 const  options(*nopass: *omit)                     RADDAT           000000    9011700
011800+D  i_fromProc                  256A   const  options(*nopass: *omit)                     RADDAT           000000    9011800
011900+D  i_fromMod                    10A   const  options(*nopass: *omit)                     RADDAT           000000    9011900
012000+D  i_fromPgm                    10A   const  options(*nopass: *omit)                     RADDAT           000000    9012000
012100+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000    9012100
012200+D                                            options(*nopass: *omit)                     RADDAT           000000    9012200
012300+ *                                                                                       RADDAT           000000    9012300
012400+ *  Removes a program message.                                                           RADDAT           000000    9012400
012500+D p_rmvPgmMsg...                                                                         RADDAT           000000    9012500
012600+D                 PR                                                                                      000000    9012600
012700+D                                     extproc('BASICS1R1+                                RADDAT           000000    9012700
012800+D                                     _p_rmvPgmMsg+                                      RADDAT           000000    9012800
012900+D                                     ')                                                 RADDAT           000000    9012900
013000+D  i_msgToRemove                10A   const                                              RADDAT           000000    9013000
013100+D  i_msgKey                      4A   const  options(*nopass: *omit)                                      000000    9013100
013200+D  i_fromStkC                   10I 0 const  options(*nopass: *omit)                     RADDAT           000000    9013200
013300+D  i_fromProc                  256A   const  options(*nopass: *omit)                     RADDAT           000000    9013300
013400+D  i_fromMod                    10A   const  options(*nopass: *omit)                     RADDAT           000000    9013400
013500+D  i_fromPgm                    10A   const  options(*nopass: *omit)                     RADDAT           000000    9013500
013600+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000    9013600
013700+D                                            options(*nopass: *omit)                     RADDAT           000000    9013700
013800+ *                                                                                       RADDAT           000000    9013800
013900+ *  Retrieves the message text of a given message.                                       RADDAT           000000    9013900
014000+ *  Replaces substitution variables with message data.                                                    000000    9014000
014100+D f_rtvMsgText...                                                                        RADDAT           000000    9014100
014200+D                 PR          4096A          varying                                     RADDAT           000000    9014200
014300+D                                     extproc('BASICS1R1+                                RADDAT           000000    9014300
014400+D                                     _f_rtvMsgText+                                     RADDAT           000000    9014400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     33
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
014500+D                                     ')                                                 RADDAT           000000    9014500
014600+D  i_msg                              const  likeds(msg_t    )                           RADDAT           000000    9014600
014700+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000    9014700
014800+D                                            options(*nopass: *omit)                     RADDAT           000000    9014800
014900+ *                                                                                       RADDAT           000000    9014900
015000+ *  Retrieves the message help text of a given message.                                  RADDAT           000000    9015000
015100+ *  Replaces substitution variables with message data.                                                    000000    9015100
015200+D f_rtvMsgHelpText...                                                                    RADDAT           000000    9015200
015300+D                 PR          4096A          varying                                     RADDAT           000000    9015300
015400+D                                     extproc('BASICS1R1+                                RADDAT           000000    9015400
015500+D                                     _f_rtvMsgHelpText+                                 RADDAT           000000    9015500
015600+D                                     ')                                                 RADDAT           000000    9015600
015700+D  i_msg                              const  likeds(msg_t    )                           RADDAT           000000    9015700
015800+D  i_rtnCtrlChr                 10A   const  options(*nopass: *omit)                     RADDAT           000000    9015800
015900+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000    9015900
016000+D                                            options(*nopass: *omit)                     RADDAT           000000    9016000
016100+ *                                                                                       RADDAT           000000    9016100
016200+ *  Retrieves the message text of a given message.                                       RADDAT           000000    9016200
016300+ *  Does not replace substitution variables with message data.                                            000000    9016300
016400+D f_rtvMsgTextRaw...                                                                                      000000    9016400
016500+D                 PR          4096A          varying                                     RADDAT           000000    9016500
016600+D                                     extproc('BASICS1R1+                                RADDAT           000000    9016600
016700+D                                     _f_rtvMsgTextRaw+                                                   000000    9016700
016800+D                                     ')                                                 RADDAT           000000    9016800
016900+D  i_msg                              const  likeds(msg_t    )                           RADDAT           000000    9016900
017000+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000    9017000
017100+D                                            options(*nopass: *omit)                     RADDAT           000000    9017100
017200+ *                                                                                       RADDAT           000000    9017200
017300+ *  Retrieves the message help text of a given message.                                  RADDAT           000000    9017300
017400+ *  Does not replace substitution variables with message data.                                            000000    9017400
017500+D f_rtvMsgHelpTextRaw...                                                                                  000000    9017500
017600+D                 PR          4096A          varying                                     RADDAT           000000    9017600
017700+D                                     extproc('BASICS1R1+                                RADDAT           000000    9017700
017800+D                                     _f_rtvMsgHelpTextRaw+                                               000000    9017800
017900+D                                     ')                                                 RADDAT           000000    9017900
018000+D  i_msg                              const  likeds(msg_t    )                           RADDAT           000000    9018000
018100+D  i_rtnCtrlChr                 10A   const  options(*nopass: *omit)                     RADDAT           000000    9018100
018200+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000    9018200
018300+D                                            options(*nopass: *omit)                     RADDAT           000000    9018300
018400+ *                                                                                       RADDAT           000000    9018400
018500+ *  Converts a received message of format RCVM0200 to a message.                         RADDAT           000000    9018500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     34
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
018600+D f_cvtRcvMsgToMsg...                                                                    RADDAT           000000    9018600
018700+D                 PR                         likeds(msg_t     )                          RADDAT           000000    9018700
018800+D                                     extproc('BASICS1R1+                                RADDAT           000000    9018800
018900+D                                     _f_cvtRcvMsgToMsg+                                                  000000    9018900
019000+D                                     ')                                                 RADDAT           000000    9019000
019100+D  i_rcvm0200                         const  likeds(rcvm0200_t)                                           000000    9019100
019200+D  i_type                             const  like(msg_t.type  )                          RADDAT           000000    9019200
019300+D                                            options(*omit: *nopass)                     RADDAT           000000    9019300
019400+ *                                                                                       RADDAT           000000    9019400
019500+ *  Receives a program message and returns a message structure.                          RADDAT           000000    9019500
019600+D f_rcvPgmMsgObj...                                                                      RADDAT           000000    9019600
019700+D                 PR                         likeds(msg_t )                              RADDAT           000000    9019700
019800+D                                     extproc('BASICS1R1+                                RADDAT           000000    9019800
019900+D                                     _f_rcvPgmMsgObj+                                   RADDAT           000000    9019900
020000+D                                     ')                                                 RADDAT           000000    9020000
020100+D  i_msgType                    10A   const                                              RADDAT           000000    9020100
020200+D  i_msgKey                      4A   const  options(*nopass: *omit)                     RADDAT           000000    9020200
020300+D  i_action                     10A   const  options(*nopass: *omit)                     RADDAT           000000    9020300
020400+D  i_wait                       10I 0 const  options(*nopass: *omit)                     RADDAT           000000    9020400
020500+D  i_fromStkC                   10I 0 const  options(*nopass: *omit)                     RADDAT           000000    9020500
020600+D  i_fromProc                  256A   const  options(*nopass: *omit)                     RADDAT           000000    9020600
020700+D  i_fromMod                    10A   const  options(*nopass: *omit)                     RADDAT           000000    9020700
020800+D  i_fromPgm                    10A   const  options(*nopass: *omit)                     RADDAT           000000    9020800
020900+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000    9020900
021000+D                                            options(*nopass: *omit)                     RADDAT           000000    9021000
021100+ *                                                                                       RADDAT           000000    9021100
021200+ *  Returns the sender information of a receives program message.                        RADDAT           000000    9021200
021300+D f_getSndInfOfRcvMsg...                                                                 RADDAT           000000    9021300
021400+D                 PR                         likeds(sndInf_t  )                          RADDAT           000000    9021400
021500+D                                     extproc('BASICS1R1+                                RADDAT           000000    9021500
021600+D                                     _f_getSndInfOfRcvMsg+                              RADDAT           000000    9021600
021700+D                                     ')                                                 RADDAT           000000    9021700
021800+D  i_rcvm0200                         const  likeds(rcvm0200_t)                          RADDAT           000000    9021800
021900+D  o_longSndPgm                256A          options(*nopass: *omit)                     RADDAT           000000    9021900
022000+D  o_longSndPrc                256A          options(*nopass: *omit)                     RADDAT           000000    9022000
022100+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000    9022100
022200+D                                            options(*nopass: *omit)                     RADDAT           000000    9022200
022300+ *                                                                                       RADDAT           000000    9022300
022400+ * -----------------------------------------                                             RADDAT           000000    9022400
022500+ *  Imported prototypes                                                                  RADDAT           000000    9022500
022600+ * -----------------------------------------                                             RADDAT           000000    9022600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     35
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
022700+ /COPY QBASICS1,PBASICS1R2                   API Error Handling                          RADDAT      CPY  000000    9022700
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R2                                                   *                    16
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R2)                                *                    16
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    16
        * Text 'description' . . . . :  SrvPgm: Basic Routines - API Error Handling  cpybk           *                    16
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R2)                                                                               000000   16000100
000200+ /DEFINE BASICS1R2                                                                                        000000   16000200
000300+ *                                                                                       RADDAT           000000   16000300
000400+ *  Reference fields                                                                     RADDAT           000000   16000400
000500+ /COPY QBASICS1,FDERRCODE                                                                RADDAT      CPY  000000   16000500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDERRCODE                                                    *                    17
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDERRCODE)                                 *                    17
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    17
        * Text 'description' . . . . :  cpybk   : API error code                                     *                    17
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(errCode_t )                                                             RADDAT           000000   17000100
000200+ /DEFINE errCode_t                                                                       RADDAT           000000   17000200
000300+ *===============================================================*                       RADDAT           000000   17000300
000400+ *  API error code                                               *                       RADDAT           000000   17000400
000500+ *===============================================================*                       RADDAT           000000   17000500
000600+D errCode_t       DS                  qualified           based(pDummy)                  RADDAT           000000   17000600
000700+D  bytPrv                       10I 0                                                    RADDAT           000000   17000700
000800+D  bytAvl                       10I 0                                                    RADDAT           000000   17000800
000900+D  excID                         7A                                                      RADDAT           000000   17000900
001000+D  reserved_1                    1A                                                      RADDAT           000000   17001000
001100+D  excDta                      256A                                                      RADDAT           000000   17001100
001200+ *                                                                                       RADDAT           000000   17001200
001300+ /ENDIF                                                                                  RADDAT           000000   17001300
000600+ *                                                                                       RADDAT           000000   16000600
000700+ *  Creates a new API error code.                                                        RADDAT           000000   16000700
000800+D f_newApiErrCode...                                                                     RADDAT           000000   16000800
000900+D                 PR                         likeds(errCode_t )                          RADDAT           000000   16000900
001000+D                                     extproc('BASICS1R2+                                RADDAT           000000   16001000
001100+D                                     _f_newApiErrCode+                                  RADDAT           000000   16001100
001200+D                                     ')                                                 RADDAT           000000   16001200
001300+D  i_monMsg                       N   const  options(*nopass)                            RADDAT           000000   16001300
001400+ *                                                                                       RADDAT           000000   16001400
001500+ *  Is API error?                                                                        RADDAT           000000   16001500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     36
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001600+D f_isApiError...                                                                        RADDAT           000000   16001600
001700+D                 PR              N                                                      RADDAT           000000   16001700
001800+D                                     extproc('BASICS1R2+                                RADDAT           000000   16001800
001900+D                                     _f_isApiError+                                     RADDAT           000000   16001900
002000+D                                     ')                                                 RADDAT           000000   16002000
002100+D  i_errCode                          const  likeds(errCode_t )                          RADDAT           000000   16002100
002200+ *                                                                                       RADDAT           000000   16002200
002300+ *  Converts an API error code to a messsage.                                            RADDAT           000000   16002300
002400+D f_cvtApiErrCodeToMsg...                                                                RADDAT           000000   16002400
002500+D                 PR                         like(msg_t     )                            RADDAT           000000   16002500
002600+D                                     extproc('BASICS1R2+                                RADDAT           000000   16002600
002700+D                                     _f_cvtApiErrCodeToMsg+                             RADDAT           000000   16002700
002800+D                                     ')                                                 RADDAT           000000   16002800
002900+D  i_errCode                          const  likeds(errCode_t )                          RADDAT           000000   16002900
003000+ *                                                                                       RADDAT           000000   16003000
003100+ *  Returns the C runtime error number.                                                  RADDAT           000000   16003100
003200+D f_errno...                                                                             RADDAT           000000   16003200
003300+D                 PR            10I 0                                                    RADDAT           000000   16003300
003400+D                                     extproc('BASICS1R2+                                RADDAT           000000   16003400
003500+D                                     _f_errno+                                          RADDAT           000000   16003500
003600+D                                     ')                                                 RADDAT           000000   16003600
003700+ *                                                                                       RADDAT           000000   16003700
003800+ *  Sets the C runtime error number to ZERO (no error).                                  RADDAT           000000   16003800
003900+D f_clrErrno...                                                                          RADDAT           000000   16003900
004000+D                 PR                                                                     RADDAT           000000   16004000
004100+D                                     extproc('BASICS1R2+                                RADDAT           000000   16004100
004200+D                                     _f_clrErrno+                                       RADDAT           000000   16004200
004300+D                                     ')                                                 RADDAT           000000   16004300
004400+ *                                                                                       RADDAT           000000   16004400
004500+ *  Sets the C runtime error number to a given error code.                               RADDAT           000000   16004500
004600+D f_setErrno...                                                                          RADDAT           000000   16004600
004700+D                 PR                                                                     RADDAT           000000   16004700
004800+D                                     extproc('BASICS1R2+                                RADDAT           000000   16004800
004900+D                                     _f_setErrno+                                       RADDAT           000000   16004900
005000+D                                     ')                                                 RADDAT           000000   16005000
005100+D  i_errno                      10I 0 const                                              RADDAT           000000   16005100
005200+ *                                                                                       RADDAT           000000   16005200
005300+ *  Returns the message text of a C runtime error number.                                RADDAT           000000   16005300
005400+D f_strerror...                                                                          RADDAT           000000   16005400
005500+D                 PR           128A          varying                                     RADDAT           000000   16005500
005600+D                                     extproc('BASICS1R2+                                RADDAT           000000   16005600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     37
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
005700+D                                     _f_strerror+                                       RADDAT           000000   16005700
005800+D                                     ')                                                 RADDAT           000000   16005800
005900+D  i_errno                      10I 0 const                                              RADDAT           000000   16005900
006000+ *                                                                                       RADDAT           000000   16006000
006100+ *  Converts a C runtime error number to a message.                                      RADDAT           000000   16006100
006200+D f_cvtErrnoToMsg...                                                                     RADDAT           000000   16006200
006300+D                 PR                         like(msg_t     )                            RADDAT           000000   16006300
006400+D                                     extproc('BASICS1R2+                                RADDAT           000000   16006400
006500+D                                     _f_cvtErrnoToMsg+                                                   000000   16006500
006600+D                                     ')                                                 RADDAT           000000   16006600
006700+D  i_errno                      10I 0 const                                              RADDAT           000000   16006700
006800+ *                                                                                       RADDAT           000000   16006800
006900+ * -----------------------------------------                                             RADDAT           000000   16006900
007000+ *  Imported prototypes                                                                  RADDAT           000000   16007000
007100+ * -----------------------------------------                                             RADDAT           000000   16007100
007200+ /COPY QBASICS1,PBASICS1R1                   Messages                                    RADDAT      CPY  000000   16007200
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R1                                                   *                    18
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R1)                                *                    18
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    18
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Messages            cpybk           *                    18
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PBASICSR1)                                                                               000000   18000100
            LINES EXCLUDED: 229
023100+ /ENDIF                                                                                  RADDAT           000000   18023100
007300+ *                                                                                       RADDAT           000000   16007300
007400+ /ENDIF                                                                                  RADDAT           000000   16007400
022800+ /COPY QBASICS1,PBASICS1R4                   Assert/THIS                                 RADDAT      CPY  000000    9022800
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R4                                                   *                    19
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R4)                                *                    19
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    19
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Assert/This/Caller  cpybk           *                    19
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R4)                                                                               000000   19000100
000200+ /DEFINE BASICS1R4                                                                                        000000   19000200
000300+ *                                                                                       RADDAT           000000   19000300
000400+ *  RPG equivalent of the C Assert macro.                                                RADDAT           000000   19000400
000500+D p_assert...                                                                            RADDAT           000000   19000500
000600+D                 PR                                                                     RADDAT           000000   19000600
000700+D                                     extproc('BASICS1R4+                                RADDAT           000000   19000700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     38
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000800+D                                     _p_assert+                                         RADDAT           000000   19000800
000900+D                                     ')                                                 RADDAT           000000   19000900
001000+D  i_condition                    N   const                                              RADDAT           000000   19001000
001100+D  i_msgText                   128A   const  options(*nopass)                            RADDAT           000000   19001100
001200+ *                                                                                       RADDAT           000000   19001200
001300+ *  Returns the procedure, module and program name                                       RADDAT           000000   19001300
001400+ *  of the current procedure.                                                            RADDAT           000000   19001400
001500+D f_this...                                                                                               000000   19001500
001600+D                 PR           256A          varying                                     RADDAT           000000   19001600
001700+D                                     extproc('BASICS1R4+                                RADDAT           000000   19001700
001800+D                                     _f_this+                                                            000000   19001800
001900+D                                     ')                                                 RADDAT           000000   19001900
002000+D  o_module                     10A          options(*nopass: *omit)                     RADDAT           000000   19002000
002100+D  o_program                    10A          options(*nopass: *omit)                     RADDAT           000000   19002100
002200+D  o_stmtID                     10A          options(*nopass: *omit)                     RADDAT           000000   19002200
002300+ *                                                                                       RADDAT           000000   19002300
002400+ *  Returns the procedure, module and program name                                       RADDAT           000000   19002400
002500+ *  that called the current procedure.                                                   RADDAT           000000   19002500
002600+D f_caller...                                                                            RADDAT           000000   19002600
002700+D                 PR           256A          varying                                     RADDAT           000000   19002700
002800+D                                     extproc('BASICS1R4+                                RADDAT           000000   19002800
002900+D                                     _f_caller+                                         RADDAT           000000   19002900
003000+D                                     ')                                                 RADDAT           000000   19003000
003100+D  o_module                     10A          options(*nopass: *omit)                     RADDAT           000000   19003100
003200+D  o_program                    10A          options(*nopass: *omit)                     RADDAT           000000   19003200
003300+D  o_stmtID                     10A          options(*nopass: *omit)                     RADDAT           000000   19003300
003400+D  i_offset                      3I 0 const  options(*nopass: *omit)                     RADDAT           000000   19003400
003500+ *                                                                                       RADDAT           000000   19003500
003600+ * -----------------------------------------                                             RADDAT           000000   19003600
003700+ *  Imported prototypes                                                                  RADDAT           000000   19003700
003800+ * -----------------------------------------                                             RADDAT           000000   19003800
003900+ /COPY QBASICS1,PBASICS1R2                   API Error Handling                          RADDAT      CPY  000000   19003900
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R2                                                   *                    20
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R2)                                *                    20
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    20
        * Text 'description' . . . . :  SrvPgm: Basic Routines - API Error Handling  cpybk           *                    20
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R2)                                                                               000000   20000100
            LINES EXCLUDED: 72
007400+ /ENDIF                                                                                  RADDAT           000000   20007400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     39
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004000+ /COPY QBASICS1,PBASICS1R5                   Objects                                     RADDAT      CPY  000000   19004000
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R5                                                   *                    21
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R5)                                *                    21
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    21
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Objects             cpybk           *                    21
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R5)                                                                               000000   21000100
000200+ /DEFINE BASICS1R5                                                                                        000000   21000200
000300+ *                                                                                       RADDAT           000000   21000300
000400+ *  Reference fields                                                                     RADDAT           000000   21000400
000500+ /COPY QBASICS1,FDQOBJ                                                                   RADDAT      CPY  000000   21000500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDQOBJ                                                       *                    22
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDQOBJ)                                    *                    22
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    22
        * Text 'description' . . . . :  cpybk   : Qualified object name                              *                    22
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(qObj_t    )                                                             RADDAT           000000   22000100
000200+ /DEFINE qObj_t                                                                          RADDAT           000000   22000200
000300+ * ============================================================= *                       RADDAT           000000   22000300
000400+ *   Qualified object name                                       *                       RADDAT           000000   22000400
000500+ *===============================================================*                       RADDAT           000000   22000500
000600+ *                                                                                       RADDAT           000000   22000600
000700+D qObj_t          DS                  qualified           based(pDummy)                  RADDAT           000000   22000700
000800+D  name                         10A                                                      RADDAT           000000   22000800
000900+D  lib                          10A                                                      RADDAT           000000   22000900
001000+ *                                                                                       RADDAT           000000   22001000
001100+ /ENDIF                                                                                  RADDAT           000000   22001100
000600+ /COPY QBASICS1,FDOBJD0100                                                               RADDAT      CPY  000000   21000600
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDOBJD0100                                                   *                    23
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDOBJD0100)                                *                    23
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    23
        * Text 'description' . . . . :  cpybk   : QUSROBJD API - OBJD0100                            *                    23
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(objd0100_t)                                                             RADDAT           000000   23000100
000200+ /DEFINE objd0100_t                                                                      RADDAT           000000   23000200
000300+ *===============================================================*                       RADDAT           000000   23000300
000400+ *  QUSROBJD API - OBJD0300                                      *                       RADDAT           000000   23000400
000500+ *===============================================================*                       RADDAT           000000   23000500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     40
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000600+ *                                                                                       RADDAT           000000   23000600
000700+D objd0100_t      DS                  qualified           based(pDummy)                  RADDAT           000000   23000700
000800+D  bytRet                       10I 0                                                    RADDAT           000000   23000800
000900+D  bytAvl                       10I 0                                                    RADDAT           000000   23000900
001000+D  name                         10A                                                      RADDAT           000000   23001000
001100+D  lib                          10A                                                      RADDAT           000000   23001100
001200+D  type                         10A                                                      RADDAT           000000   23001200
001300+D  rtnLib                       10A                                                      RADDAT           000000   23001300
001400+D  auxStgP                      10I 0                                                    RADDAT           000000   23001400
001500+D  owner                        10A                                                      RADDAT           000000   23001500
001600+D  domain                        2A                                                      RADDAT           000000   23001600
001700+D  crtDatTim                    13A                                                      RADDAT           000000   23001700
001800+D  chgDatTim                    13A                                                      RADDAT           000000   23001800
001900+ *                                                                                       RADDAT           000000   23001900
002000+ /ENDIF                                                                                  RADDAT           000000   23002000
000700+ /COPY QBASICS1,FDMBRD0100                                                               RADDAT      CPY  000000   21000700
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDMBRD0100                                                   *                    24
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDMBRD0100)                                *                    24
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    24
        * Text 'description' . . . . :  cpybk   : QUSRMBRD API - MBRD0100                            *                    24
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(mbrd0100_t)                                                             RADDAT           000000   24000100
000200+ /DEFINE mbrd0100_t                                                                      RADDAT           000000   24000200
000300+ *===============================================================*                       RADDAT           000000   24000300
000400+ *  QUSRMBRD API - MBRD0100                                      *                       RADDAT           000000   24000400
000500+ *===============================================================*                       RADDAT           000000   24000500
000600+D mbrd0100_t      DS                  qualified           based(pDummy)                  RADDAT           000000   24000600
000700+D  bytePrv                      10I 0                                                    RADDAT           000000   24000700
000800+D  byteAvl                      10I 0                                                    RADDAT           000000   24000800
000900+D  filNme                       10A                                                      RADDAT           000000   24000900
001000+D  filLib                       10A                                                      RADDAT           000000   24001000
001100+D  mbr                          10A                                                      RADDAT           000000   24001100
001200+D  attr                         10A                                                      RADDAT           000000   24001200
001300+D  srcTyp                       10A                                                      RADDAT           000000   24001300
001400+D  crtDatTim                    13A                                                      RADDAT           000000   24001400
001500+D  chgDatTim                    13A                                                      RADDAT           000000   24001500
001600+D  text                         50A                                                      RADDAT           000000   24001600
001700+D  isSrcFile                     1A                                                      RADDAT           000000   24001700
001800+ *                                                                                       RADDAT           000000   24001800
001900+ /ENDIF                                                                                  RADDAT           000000   24001900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     41
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000800+ /COPY QBASICS1,FDMBRD0200                                                               RADDAT      CPY  000000   21000800
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDMBRD0200                                                   *                    25
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDMBRD0200)                                *                    25
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    25
        * Text 'description' . . . . :  cpybk   : QUSRMBRD API - MBRD0200                            *                    25
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(mbrd0200_t)                                                             RADDAT           000000   25000100
000200+ /DEFINE mbrd0200_t                                                                      RADDAT           000000   25000200
000300+ *===============================================================*                       RADDAT           000000   25000300
000400+ *  QUSRMBRD API - MBRD0200                                      *                       RADDAT           000000   25000400
000500+ *===============================================================*                       RADDAT           000000   25000500
000600+D mbrd0200_t      DS                  qualified           based(pDummy)                  RADDAT           000000   25000600
000700+D  bytePrv                      10I 0                                                    RADDAT           000000   25000700
000800+D  byteAvl                      10I 0                                                    RADDAT           000000   25000800
000900+D  filNme                       10A                                                      RADDAT           000000   25000900
001000+D  filLib                       10A                                                      RADDAT           000000   25001000
001100+D  mbr                          10A                                                      RADDAT           000000   25001100
001200+D  attr                         10A                                                      RADDAT           000000   25001200
001300+D  srcTyp                       10A                                                      RADDAT           000000   25001300
001400+D  crtDatTim                    13A                                                      RADDAT           000000   25001400
001500+D  chgDatTim                    13A                                                      RADDAT           000000   25001500
001600+D  text                         50A                                                      RADDAT           000000   25001600
001700+D  isSrcFile                     1A                                                      RADDAT           000000   25001700
001800+ * - - - - - - - - - - - - - - - - -                                                     RADDAT           000000   25001800
001900+D rmtFile                        1A                                                      RADDAT           000000   25001900
002000+D lglFile                        1A                                                      RADDAT           000000   25002000
002100+D odpSharing                     1A                                                      RADDAT           000000   25002100
002200+D reserved_1                     2A                                                      RADDAT           000000   25002200
002300+D numRcdAllMbr                  10I 0                                                    RADDAT           000000   25002300
002400+D numDltRcd                     10I 0                                                    RADDAT           000000   25002400
002500+D dtaSpcSize                    10I 0                                                    RADDAT           000000   25002500
002600+D accPthSize                    10I 0                                                    RADDAT           000000   25002600
002700+D numPhyMbrs                    10I 0                                                    RADDAT           000000   25002700
002800+D mbrChgDatTim                  13A                                                      RADDAT           000000   25002800
002900+D mbrSavDatTim                  13A                                                      RADDAT           000000   25002900
003000+D mbrRstDatTim                  13A                                                      RADDAT           000000   25003000
003100+D mbrExpDate                     7A                                                      RADDAT           000000   25003100
003200+D reserved_2                     6A                                                      RADDAT           000000   25003200
003300+D numDaysUsed                   10I 0                                                    RADDAT           000000   25003300
003400+D dateLastUsed                   7A                                                      RADDAT           000000   25003400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     42
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003500+D useResetDate                   7A                                                      RADDAT           000000   25003500
003600+D reserved_3                     2A                                                      RADDAT           000000   25003600
003700+D dtaSpcSizeMult                10I 0                                                    RADDAT           000000   25003700
003800+D accPthSizeMult                10I 0                                                    RADDAT           000000   25003800
003900+D mbrTextCCSID                  10I 0                                                    RADDAT           000000   25003900
004000+D ofsAddInf                     10I 0                                                    RADDAT           000000   25004000
004100+D lenAddInf                     10I 0                                                    RADDAT           000000   25004100
004200+D numRcdAllMbrU                 10U 0                                                    RADDAT           000000   25004200
004300+D numDltRcdU                    10U 0                                                    RADDAT           000000   25004300
004400+D reserved_4                     6A                                                      RADDAT           000000   25004400
004500+ *                                                                                       RADDAT           000000   25004500
004600+ /ENDIF                                                                                  RADDAT           000000   25004600
000900+ *                                                                                       RADDAT           000000   21000900
001000+D qProc_t         DS                  qualified      based(pDummy)                       RADDAT           000000   21001000
001100+D  name                        256A   varying                                            RADDAT           000000   21001100
001200+D  module                       10A                                                      RADDAT           000000   21001200
001300+D  qPgm                               likeds(qObj_t)                                     RADDAT           000000   21001300
001400+ *                                                                                       RADDAT           000000   21001400
001500+D actSrvPgm_t     DS                  qualified      based(pDummy)                       RADDAT           000000   21001500
001600+D  procptr                        *   procptr                                            RADDAT           000000   21001600
001700+D  actMark                      10I 0                                                    RADDAT           000000   21001700
001800+D  name                         10A                                                      RADDAT           000000   21001800
001900+D  lib                          10A                                                      RADDAT           000000   21001900
002000+ *                                                                                       RADDAT           000000   21002000
002100+D actProc_t       DS                  qualified      based(pDummy)                       RADDAT           000000   21002100
002200+D  procptr                        *   procptr                                            RADDAT           000000   21002200
002300+D  actMark                      10I 0                                                    RADDAT           000000   21002300
002400+D  name                        256A   varying                                            RADDAT           000000   21002400
002500+D  srvPgm                       10A                                                      RADDAT           000000   21002500
002600+D  lib                          10A                                                      RADDAT           000000   21002600
002700+ *                                                                                       RADDAT           000000   21002700
002800+ *  Checks object existance.                                                                              000000   21002800
002900+D f_exist...                                                                             RADDAT           000000   21002900
003000+D                 PR              N                                                      RADDAT           000000   21003000
003100+D                                     extproc('BASICS1R5+                                RADDAT           000000   21003100
003200+D                                     _f_exist+                                          RADDAT           000000   21003200
003300+D                                     ')                                                 RADDAT           000000   21003300
003400+D  i_obj                        10A   const                                              RADDAT           000000   21003400
003500+D  i_lib                        10A   const  options(*omit)                              RADDAT           000000   21003500
003600+D  i_type                       10A   const                                              RADDAT           000000   21003600
003700+D  i_mbr                        10A   const  options(*nopass)                            RADDAT           000000   21003700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     43
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003800+ *                                                                                       RADDAT           000000   21003800
003900+ *  Retrieve object description.                                                         RADDAT           000000   21003900
004000+D f_rtvObjD...                                                                           RADDAT           000000   21004000
004100+D                 PR          1024A                                                      RADDAT           000000   21004100
004200+D                                     extproc('BASICS1R5+                                RADDAT           000000   21004200
004300+D                                     _f_rtvObjD+                                        RADDAT           000000   21004300
004400+D                                     ')                                                 RADDAT           000000   21004400
004500+D  i_obj                        10A   const                                              RADDAT           000000   21004500
004600+D  i_lib                        10A   const  options(*omit)                              RADDAT           000000   21004600
004700+D  i_type                       10A   const                                              RADDAT           000000   21004700
004800+D  i_format                      8A   const  options(*nopass: *omit)                     RADDAT           000000   21004800
004900+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21004900
005000+D                                            options(*nopass: *omit)                     RADDAT           000000   21005000
005100+ *                                                                                       RADDAT           000000   21005100
005200+ *  Retrieve member description.                                                         RADDAT           000000   21005200
005300+D f_rtvMbrD...                                                                           RADDAT           000000   21005300
005400+D                 PR          1024A                                                      RADDAT           000000   21005400
005500+D                                     extproc('BASICS1R5+                                RADDAT           000000   21005500
005600+D                                     _f_rtvMbrD+                                        RADDAT           000000   21005600
005700+D                                     ')                                                 RADDAT           000000   21005700
005800+D  i_file                       10A   const                                              RADDAT           000000   21005800
005900+D  i_lib                        10A   const  options(*omit)                              RADDAT           000000   21005900
006000+D  i_mbr                        10A   const                                              RADDAT           000000   21006000
006100+D  i_format                      8A   const  options(*nopass: *omit)                     RADDAT           000000   21006100
006200+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21006200
006300+D                                            options(*nopass: *omit)                     RADDAT           000000   21006300
006400+ *                                                                                       RADDAT           000000   21006400
006500+ *  Produces a temporary object name.                                                    RADDAT           000000   21006500
006600+D f_getTmpName...                                                                        RADDAT           000000   21006600
006700+D                 PR                         like(qObj_t     )                           RADDAT           000000   21006700
006800+D                                     extproc('BASICS1R5+                                RADDAT           000000   21006800
006900+D                                     _f_getTmpName+                                     RADDAT           000000   21006900
007000+D                                     ')                                                 RADDAT           000000   21007000
007100+ *                                                                                       RADDAT           000000   21007100
007200+ *  Produces a unique object name.  (experimental)                                       RADDAT           000000   21007200
007300+D f_getUniqueName...                                                                     RADDAT           000000   21007300
007400+D                 PR                         like(qObj_t     )                           RADDAT           000000   21007400
007500+D                                     extproc('BASICS1R5+                                RADDAT           000000   21007500
007600+D                                     _f_getUniqueName+                                  RADDAT           000000   21007600
007700+D                                     ')                                                 RADDAT           000000   21007700
007800+D  i_type                       10A   const                                              RADDAT           000000   21007800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     44
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
007900+D  i_lib                        10A   const                                              RADDAT           000000   21007900
008000+ *                                                                                       RADDAT           000000   21008000
008100+ *  Creates a user space.                                                                RADDAT           000000   21008100
008200+D f_crtUsrSpc...                                                                         RADDAT           000000   21008200
008300+D                 PR              N                                                      RADDAT           000000   21008300
008400+D                                     extproc('BASICS1R5+                                RADDAT           000000   21008400
008500+D                                     _f_crtUsrSpc+                                      RADDAT           000000   21008500
008600+D                                     ')                                                 RADDAT           000000   21008600
008700+D  i_usrSpc                     10A   const                                              RADDAT           000000   21008700
008800+D  i_lib                        10A   const                                              RADDAT           000000   21008800
008900+D  i_text                       50A   const  options(*omit: *nopass)                     RADDAT           000000   21008900
009000+D  i_size                       10U 0 const  options(*omit: *nopass)                     RADDAT           000000   21009000
009100+D  i_extAtr                     10A   const  options(*omit: *nopass)                     RADDAT           000000   21009100
009200+D  i_pubAuth                    10A   const  options(*omit: *nopass)                     RADDAT           000000   21009200
009300+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21009300
009400+D                                            options(*nopass: *omit)                     RADDAT           000000   21009400
009500+ *                                                                                       RADDAT           000000   21009500
009600+ *  Retrieves a pointer to the content of a user space.                                  RADDAT           000000   21009600
009700+D f_rtvUsrSpcPtr...                                                                      RADDAT           000000   21009700
009800+D                 PR              *                                                      RADDAT           000000   21009800
009900+D                                     extproc('BASICS1R5+                                RADDAT           000000   21009900
010000+D                                     _f_rtvUsrSpcPtr+                                   RADDAT           000000   21010000
010100+D                                     ')                                                 RADDAT           000000   21010100
010200+D  i_usrSpc                     10A   const                                              RADDAT           000000   21010200
010300+D  i_lib                        10A   const  options(*nopass: *omit)                     RADDAT           000000   21010300
010400+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21010400
010500+D                                            options(*nopass: *omit)                     RADDAT           000000   21010500
010600+ *                                                                                       RADDAT           000000   21010600
010700+ *  Returns the current size of a given user space.                                      RADDAT           000000   21010700
010800+D f_getUsrSpcSize...                                                                     RADDAT           000000   21010800
010900+D                 PR            10I 0                                                    RADDAT           000000   21010900
011000+D                                     extproc('BASICS1R5+                                RADDAT           000000   21011000
011100+D                                     _f_getUsrSpcSize+                                  RADDAT           000000   21011100
011200+D                                     ')                                                 RADDAT           000000   21011200
011300+D  i_usrSpc                     10A   const                                              RADDAT           000000   21011300
011400+D  i_lib                        10A   const  options(*nopass: *omit)                     RADDAT           000000   21011400
011500+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21011500
011600+D                                            options(*nopass: *omit)                     RADDAT           000000   21011600
011700+ *                                                                                       RADDAT           000000   21011700
011800+ *  Returns cTrue if the user space is extended automatically by the                     RADDAT           000000   21011800
011900+ *  system when the end of the space is encountered.                                     RADDAT           000000   21011900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     45
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012000+D f_getUsrSpcAutoExt...                                                                  RADDAT           000000   21012000
012100+D                 PR              N                                                      RADDAT           000000   21012100
012200+D                                     extproc('BASICS1R5+                                RADDAT           000000   21012200
012300+D                                     _f_getUsrSpcAutoExt+                               RADDAT           000000   21012300
012400+D                                     ')                                                 RADDAT           000000   21012400
012500+D  i_usrSpc                     10A   const                                              RADDAT           000000   21012500
012600+D  i_lib                        10A   const  options(*nopass: *omit)                     RADDAT           000000   21012600
012700+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21012700
012800+D                                            options(*nopass: *omit)                     RADDAT           000000   21012800
012900+ *                                                                                       RADDAT           000000   21012900
013000+ *  Returns the initial value of a given user space.                                     RADDAT           000000   21013000
013100+D f_getUsrSpcInitValue...                                                                RADDAT           000000   21013100
013200+D                 PR             1A          varying                                     RADDAT           000000   21013200
013300+D                                     extproc('BASICS1R5+                                RADDAT           000000   21013300
013400+D                                     _f_getUsrSpcInitValue+                             RADDAT           000000   21013400
013500+D                                     ')                                                 RADDAT           000000   21013500
013600+D  i_usrSpc                     10A   const                                              RADDAT           000000   21013600
013700+D  i_lib                        10A   const  options(*nopass: *omit)                     RADDAT           000000   21013700
013800+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21013800
013900+D                                            options(*nopass: *omit)                     RADDAT           000000   21013900
014000+ *                                                                                       RADDAT           000000   21014000
014100+ *  Changes the size of a given user space.                                              RADDAT           000000   21014100
014200+D f_chgUsrSpcSize...                                                                     RADDAT           000000   21014200
014300+D                 PR            10I 0                                                    RADDAT           000000   21014300
014400+D                                     extproc('BASICS1R5+                                RADDAT           000000   21014400
014500+D                                     _f_chgUsrSpcSize+                                  RADDAT           000000   21014500
014600+D                                     ')                                                 RADDAT           000000   21014600
014700+D  i_usrSpc                     10A   const                                              RADDAT           000000   21014700
014800+D  i_lib                        10A   const  options(*omit)                              RADDAT           000000   21014800
014900+D  i_size                       10I 0 const                                              RADDAT           000000   21014900
015000+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21015000
015100+D                                            options(*nopass: *omit)                     RADDAT           000000   21015100
015200+ *                                                                                       RADDAT           000000   21015200
015300+ *  Changes the automatic extendibility of a given user space.                           RADDAT           000000   21015300
015400+D f_chgUsrSpcAutoExt...                                                                  RADDAT           000000   21015400
015500+D                 PR              N                                                      RADDAT           000000   21015500
015600+D                                     extproc('BASICS1R5+                                RADDAT           000000   21015600
015700+D                                     _f_chgUsrSpcAutoExt+                               RADDAT           000000   21015700
015800+D                                     ')                                                 RADDAT           000000   21015800
015900+D  i_usrSpc                     10A   const                                              RADDAT           000000   21015900
016000+D  i_lib                        10A   const  options(*omit)                              RADDAT           000000   21016000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     46
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
016100+D  i_isAutoExt                    N   const                                              RADDAT           000000   21016100
016200+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21016200
016300+D                                            options(*nopass: *omit)                     RADDAT           000000   21016300
016400+ *                                                                                       RADDAT           000000   21016400
016500+ *  Changes the initial value of a given user space.                                     RADDAT           000000   21016500
016600+D f_chgUsrSpcInitValue...                                                                RADDAT           000000   21016600
016700+D                 PR             1A          varying                                     RADDAT           000000   21016700
016800+D                                     extproc('BASICS1R5+                                RADDAT           000000   21016800
016900+D                                     _f_chgUsrSpcInitValue+                             RADDAT           000000   21016900
017000+D                                     ')                                                 RADDAT           000000   21017000
017100+D  i_usrSpc                     10A   const                                              RADDAT           000000   21017100
017200+D  i_lib                        10A   const  options(*omit)                              RADDAT           000000   21017200
017300+D  i_initValue                   1A   const                                              RADDAT           000000   21017300
017400+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21017400
017500+D                                            options(*nopass: *omit)                     RADDAT           000000   21017500
017600+ *                                                                                       RADDAT           000000   21017600
017700+ *  Deletes a given user space.                                                          RADDAT           000000   21017700
017800+D f_dltUsrSpc...                                                                         RADDAT           000000   21017800
017900+D                 PR              N                                                      RADDAT           000000   21017900
018000+D                                     extproc('BASICS1R5+                                RADDAT           000000   21018000
018100+D                                     _f_dltUsrSpc+                                      RADDAT           000000   21018100
018200+D                                     ')                                                 RADDAT           000000   21018200
018300+D  i_usrSpc                     10A   const                                              RADDAT           000000   21018300
018400+D  i_lib                        10A   const  options(*nopass: *omit)                     RADDAT           000000   21018400
018500+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21018500
018600+D                                            options(*nopass: *omit)                     RADDAT           000000   21018600
018700+ *                                                                                       RADDAT           000000   21018700
018800+ *  Activates a service program.                                                         RADDAT           000000   21018800
018900+D f_activateSrvPgm...                                                                    RADDAT           000000   21018900
019000+D                 PR                         likeds(actSrvPgm_t )                        RADDAT           000000   21019000
019100+D                                     extproc('BASICS1R5+                                RADDAT           000000   21019100
019200+D                                     _f_activateSrvPgm+                                 RADDAT           000000   21019200
019300+D                                     ')                                                 RADDAT           000000   21019300
019400+D  i_srvPgm                     10A   const                                              RADDAT           000000   21019400
019500+D  i_lib                        10A   const  options(*nopass: *omit)                     RADDAT           000000   21019500
019600+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21019600
019700+D                                            options(*nopass: *omit)                     RADDAT           000000   21019700
019800+ *                                                                                       RADDAT           000000   21019800
019900+ *  Gets a procedure pointer by name.                                                    RADDAT           000000   21019900
020000+D f_getProcPtrByName...                                                                  RADDAT           000000   21020000
020100+D                 PR                         likeds(actProc_t  )                         RADDAT           000000   21020100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     47
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
020200+D                                     extproc('BASICS1R5+                                RADDAT           000000   21020200
020300+D                                     _f_getProcPtrByName+                               RADDAT           000000   21020300
020400+D                                     ')                                                 RADDAT           000000   21020400
020500+D  i_proc                      256A   const                                              RADDAT           000000   21020500
020600+D  i_actSrvPgm                        const  likeds(actSrvPgm_t)                         RADDAT           000000   21020600
020700+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   21020700
020800+D                                            options(*nopass: *omit)                     RADDAT           000000   21020800
020900+ *                                                                                       RADDAT           000000   21020900
021000+ *  Returns the name of the library that contains a given object.                        RADDAT           000000   21021000
021100+D f_getObjLib...                                                                         RADDAT           000000   21021100
021200+D                 PR            10A                                                      RADDAT           000000   21021200
021300+D                                     extproc('BASICS1R5+                                RADDAT           000000   21021300
021400+D                                     _f_getObjLib+                                      RADDAT           000000   21021400
021500+D                                     ')                                                 RADDAT           000000   21021500
021600+D  i_obj                        10A   const                                              RADDAT           000000   21021600
021700+D  i_lib                        10A   const  options(*omit)                              RADDAT           000000   21021700
021800+D  i_type                       10A   const                                              RADDAT           000000   21021800
021900+ *                                                                                       RADDAT           000000   21021900
022000+ * -----------------------------------------                                             RADDAT           000000   21022000
022100+ *  Imported prototypes                                                                  RADDAT           000000   21022100
022200+ * -----------------------------------------                                             RADDAT           000000   21022200
022300+ /COPY QBASICS1,MILIB                        MI-Library                                  RADDAT      CPY  000000   21022300
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  MILIB                                                        *                    26
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(MILIB)                                     *                    26
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    26
        * Text 'description' . . . . :  Prototypes for MI-Library                (include)           *                    26
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(MILIB)                                                                  RADDAT      DEF  000000   26000100
000200+ /DEFINE MILIB                                                                           RADDAT      DEF  000000   26000200
000300+ *                                                                                       RADDAT           000000   26000300
000400+ *  QSYSINC/MIH.MICOMMON: Requested Authority bitmasks and typedef                       RADDAT           000000   26000400
000500+ *                        The bitmasks are or'd together to give                         RADDAT           000000   26000500
000600+ *                        desired combinations                                           RADDAT           000000   26000600
000700+D AUTH_OBJ_CTRL   C                   const(x'8000')                                     RADDAT           000000   26000700
000800+D AUTH_OBJ_MGMT   C                   const(x'4000')                                     RADDAT           000000   26000800
000900+D AUTH_POINTER    C                   const(x'2000')                                     RADDAT           000000   26000900
001000+D AUTH_SPACE      C                   const(x'1000')                                     RADDAT           000000   26001000
001100+D AUTH_RETRIEVE   C                   const(x'0800')                                     RADDAT           000000   26001100
001200+D AUTH_INSERT     C                   const(x'0400')                                     RADDAT           000000   26001200
001300+D AUTH_DELETE     C                   const(x'0200')                                     RADDAT           000000   26001300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     48
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001400+D AUTH_UPDATE     C                   const(x'0100')                                     RADDAT           000000   26001400
001500+D AUTH_OWNER      C                   const(x'0080')                                     RADDAT           000000   26001500
001600+D AUTH_EXCLUDED   C                   const(x'0040')                                     RADDAT           000000   26001600
001700+D AUTH_LST_MGMT   C                   const(x'0020')                                     RADDAT           000000   26001700
001800+D AUTH_EXECUTE    C                   const(x'0010')                                     RADDAT           000000   26001800
001900+D AUTH_ALTER      C                   const(x'0008')                                     RADDAT           000000   26001900
002000+D AUTH_REF        C                   const(x'0004')                                     RADDAT           000000   26002000
002100+D AUTH_ALL        C                   const(x'FF1C')                                     RADDAT           000000   26002100
002200+D AUTH_NONE       C                   const(x'0000')                                     RADDAT           000000   26002200
002300+ *                                                                                       RADDAT           000000   26002300
002400+ *  QSYSINC/MIH.MIOBJTYP:  MI Object Type                                                RADDAT           000000   26002400
002500+D MI_Program      C                   const(x'0201')                                     RADDAT           000000   26002500
002600+D MI_Library      C                   const(x'0401')                                     RADDAT           000000   26002600
002700+D MI_Usrspc       C                   const(x'1934')                                     RADDAT           000000   26002700
002800+D MI_Usrq         C                   const(x'0A02')                                     RADDAT           000000   26002800
002900+D MI_Usridx       C                   const(x'0E0A')                                     RADDAT           000000   26002900
003000+D WLI_ALRTBL      C                   const(x'0E09')                                     RADDAT           000000   26003000
003100+D WLI_AUTL        C                   const(x'1B01')                                     RADDAT           000000   26003100
003200+D WLI_BLKSF       C                   const(x'1E05')                                     RADDAT           000000   26003200
003300+D WLI_BNDDIR      C                   const(x'1937')                                     RADDAT           000000   26003300
003400+D WLI_CFGL        C                   const(x'0E0D')                                     RADDAT           000000   26003400
003500+D WLI_CHTFMT      C                   const(x'190D')                                     RADDAT           000000   26003500
003600+D WLI_CLD         C                   const(x'190B')                                     RADDAT           000000   26003600
003700+D WLI_CLS         C                   const(x'1904')                                     RADDAT           000000   26003700
003800+D WLI_CMD         C                   const(x'1905')                                     RADDAT           000000   26003800
003900+D WLI_CNNL        C                   const(x'1701')                                     RADDAT           000000   26003900
004000+D WLI_COSD        C                   const(x'1401')                                     RADDAT           000000   26004000
004100+D WLI_CRG         C                   const(x'192C')                                     RADDAT           000000   26004100
004200+D WLI_CRQD        C                   const(x'0E0F')                                     RADDAT           000000   26004200
004300+D WLI_CSI         C                   const(x'1935')                                     RADDAT           000000   26004300
004400+D WLI_CSPMAP      C                   const(x'1922')                                     RADDAT           000000   26004400
004500+D WLI_CSPTBL      C                   const(x'1923')                                     RADDAT           000000   26004500
004600+D WLI_CTLD        C                   const(x'1201')                                     RADDAT           000000   26004600
004700+D WLI_DDIR        C                   const(x'1F02')                                     RADDAT           000000   26004700
004800+D WLI_DEVD        C                   const(x'1001')                                     RADDAT           000000   26004800
004900+D WLI_DIR         C                   const(x'0C01')                                     RADDAT           000000   26004900
005000+D WLI_DOC         C                   const(x'190E')                                     RADDAT           000000   26005000
005100+D WLI_DSTMF       C                   const(x'1F01')                                     RADDAT           000000   26005100
005200+D WLI_DTAARA      C                   const(x'190A')                                     RADDAT           000000   26005200
005300+D WLI_DTADCT      C                   const(x'1920')                                     RADDAT           000000   26005300
005400+D WLI_DTAQ        C                   const(x'0A01')                                     RADDAT           000000   26005400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     49
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
005500+D WLI_EDTD        C                   const(x'1908')                                     RADDAT           000000   26005500
005600+D WLI_EXITRG      C                   const(x'1913')                                     RADDAT           000000   26005600
005700+D WLI_FCT         C                   const(x'0E04')                                     RADDAT           000000   26005700
005800+D WLI_FILE        C                   const(x'1901')                                     RADDAT           000000   26005800
005900+D WLI_FLR         C                   const(x'1912')                                     RADDAT           000000   26005900
006000+D WLI_FNTRSC      C                   const(x'1926')                                     RADDAT           000000   26006000
006100+D WLI_FNTTBL      C                   const(x'192B')                                     RADDAT           000000   26006100
006200+D WLI_FORMDF      C                   const(x'1928')                                     RADDAT           000000   26006200
006300+D WLI_FTR         C                   const(x'0E0B')                                     RADDAT           000000   26006300
006400+D WLI_GSS         C                   const(x'190C')                                     RADDAT           000000   26006400
006500+D WLI_IGCDCT      C                   const(x'0E06')                                     RADDAT           000000   26006500
006600+D WLI_IGCSRT      C                   const(x'191A')                                     RADDAT           000000   26006600
006700+D WLI_IGCTBL      C                   const(x'1910')                                     RADDAT           000000   26006700
006800+D WLI_IPXD        C                   const(x'191E')                                     RADDAT           000000   26006800
006900+D WLI_JOBD        C                   const(x'1903')                                     RADDAT           000000   26006900
007000+D WLI_JOBQ        C                   const(x'0E01')                                     RADDAT           000000   26007000
007100+D WLI_JOBSCD      C                   const(x'0E0C')                                     RADDAT           000000   26007100
007200+D WLI_JRN         C                   const(x'0901')                                     RADDAT           000000   26007200
007300+D WLI_JRNRCV      C                   const(x'0701')                                     RADDAT           000000   26007300
007400+D WLI_LIB         C                   const(x'0401')                                     RADDAT           000000   26007400
007500+D WLI_LIND        C                   const(x'1101')                                     RADDAT           000000   26007500
007600+D WLI_LOCALE      C                   const(x'1921')                                     RADDAT           000000   26007600
007700+D WLI_MEDDFN      C                   const(x'191C')                                     RADDAT           000000   26007700
007800+D WLI_MENU        C                   const(x'1916')                                     RADDAT           000000   26007800
007900+D WLI_MGTCOL      C                   const(x'192D')                                     RADDAT           000000   26007900
008000+D WLI_MODD        C                   const(x'1501')                                     RADDAT           000000   26008000
008100+D WLI_MODULE      C                   const(x'0301')                                     RADDAT           000000   26008100
008200+D WLI_MSGF        C                   const(x'0E03')                                     RADDAT           000000   26008200
008300+D WLI_MSGQ        C                   const(x'1902')                                     RADDAT           000000   26008300
008400+D WLI_M36         C                   const(x'1E04')                                     RADDAT           000000   26008400
008500+D WLI_M36CFG      C                   const(x'1924')                                     RADDAT           000000   26008500
008600+D WLI_NODL        C                   const(x'0E0E')                                     RADDAT           000000   26008600
008700+D WLI_NTBD        C                   const(x'1914')                                     RADDAT           000000   26008700
008800+D WLI_NWID        C                   const(x'1601')                                     RADDAT           000000   26008800
008900+D WLI_NWSD        C                   const(x'1D01')                                     RADDAT           000000   26008900
009000+D WLI_NODGRP      C                   const(x'192A')                                     RADDAT           000000   26009000
009100+D WLI_OOPOOL      C                   const(x'2002')                                     RADDAT           000000   26009100
009200+D WLI_OUTQ        C                   const(x'0E02')                                     RADDAT           000000   26009200
009300+D WLI_OVL         C                   const(x'1929')                                     RADDAT           000000   26009300
009400+D WLI_PAGDFN      C                   const(x'1936')                                     RADDAT           000000   26009400
009500+D WLI_PAGSEG      C                   const(x'1927')                                     RADDAT           000000   26009500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     50
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
009600+D WLI_PDG         C                   const(x'1930')                                     RADDAT           000000   26009600
009700+D WLI_PGM         C                   const(x'0201')                                     RADDAT           000000   26009700
009800+D WLI_PNLGRP      C                   const(x'1915')                                     RADDAT           000000   26009800
009900+D WLI_PRDAVL      C                   const(x'1933')                                     RADDAT           000000   26009900
010000+D WLI_PRDDFN      C                   const(x'191B')                                     RADDAT           000000   26010000
010100+D WLI_PRDLOD      C                   const(x'191D')                                     RADDAT           000000   26010100
010200+D WLI_PSFCFG      C                   const(x'1925')                                     RADDAT           000000   26010200
010300+D WLI_QMFORM      C                   const(x'1932')                                     RADDAT           000000   26010300
010400+D WLI_QMQRY       C                   const(x'1931')                                     RADDAT           000000   26010400
010500+D WLI_QRYDFN      C                   const(x'1911')                                     RADDAT           000000   26010500
010600+D WLI_RCT         C                   const(x'0E08')                                     RADDAT           000000   26010600
010700+D WLI_S36         C                   const(x'1919')                                     RADDAT           000000   26010700
010800+D WLI_SBSD        C                   const(x'1909')                                     RADDAT           000000   26010800
010900+D WLI_SCHIDX      C                   const(x'0E07')                                     RADDAT           000000   26010900
011000+D WLI_SOCKET      C                   const(x'1E03')                                     RADDAT           000000   26011000
011100+D WLI_SOMOBJ      C                   const(x'2001')                                     RADDAT           000000   26011100
011200+D WLI_SPADCT      C                   const(x'1C01')                                     RADDAT           000000   26011200
011300+D WLI_SQLPKG      C                   const(x'0202')                                     RADDAT           000000   26011300
011400+D WLI_SQLUDT      C                   const(x'191F')                                     RADDAT           000000   26011400
011500+D WLI_SRVPGM      C                   const(x'0203')                                     RADDAT           000000   26011500
011600+D WLI_SSND        C                   const(x'0E05')                                     RADDAT           000000   26011600
011700+D WLI_STMF        C                   const(x'1E01')                                     RADDAT           000000   26011700
011800+D WLI_SVRSTG      C                   const(x'1917')                                     RADDAT           000000   26011800
011900+D WLI_SYMLNK      C                   const(x'1E02')                                     RADDAT           000000   26011900
012000+D WLI_TBL         C                   const(x'1906')                                     RADDAT           000000   26012000
012100+D WLI_USRPRF      C                   const(x'0801')                                     RADDAT           000000   26012100
012200+D WLI_USRIDX      C                   const(x'0E0A')                                     RADDAT           000000   26012200
012300+D WLI_USRQ        C                   const(x'0A02')                                     RADDAT           000000   26012300
012400+D WLI_USRSPC      C                   const(x'1934')                                     RADDAT           000000   26012400
012500+D WLI_VLDL        C                   const(x'0E10')                                     RADDAT           000000   26012500
012600+D WLI_WSCST       C                   const(x'1938')                                     RADDAT           000000   26012600
012700+ *                                                                                       RADDAT           000000   26012700
012800+ *  Activate Bound Program, Returned value: Activation mark                              RADDAT           000000   26012800
012900+D QleActBndPgm    PR            10I 0 extproc('QleActBndPgm')                            RADDAT           000000   26012900
013000+D  i_pgmPtr                       *   const   procptr                                    RADDAT           000000   26013000
013100+D  i_actMark                    10I 0 const   options(*omit)                             RADDAT           000000   26013100
013200+D  i_actInf                  32767A   const   options(*omit: *varsize)                   RADDAT           000000   26013200
013300+D  i_actInfLen                  10I 0 const   options(*omit)                             RADDAT           000000   26013300
013400+D  io_errCode                32767A           options(*omit: *varsize)                   RADDAT           000000   26013400
013500+ *                                                                                       RADDAT           000000   26013500
013600+ *  Type definitions                                                                     RADDAT           000000   26013600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     51
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
013700+D actInf_t        DS                  qualified      based(pDummy)                       RADDAT           000000   26013700
013800+D  bytRet                 1      4I 0                                                    RADDAT           000000   26013800
013900+D  bytAvl                 5      8I 0                                                    RADDAT           000000   26013900
014000+D  reserved_1             9     16A                                                      RADDAT           000000   26014000
014100+D  actGrpMark            17     20I 0                                                    RADDAT           000000   26014100
014200+D  actMark               21     24I 0                                                    RADDAT           000000   26014200
014300+D  reserved_2            25     31A                                                      RADDAT           000000   26014300
014400+D  flags                 32     32A                                                      RADDAT           000000   26014400
014500+D  reserved_3            33     48A                                                      RADDAT           000000   26014500
014600+ *                                                                                       RADDAT           000000   26014600
014700+ *  Get Export, Returned value: Exported item - PTR(OPN)                                 RADDAT           000000   26014700
014800+D QleGetExp       PR              *   extproc('QleGetExp')                               RADDAT           000000   26014800
014900+D  i_actMark                    10I 0 const   options(*omit)                             RADDAT           000000   26014900
015000+D  i_expNum                     10I 0 const   options(*omit)                             RADDAT           000000   26015000
015100+D  i_expNameLen                 10I 0 const   options(*omit)                             RADDAT           000000   26015100
015200+D  i_expName                 32767A   const   options(*omit: *varsize)                   RADDAT           000000   26015200
015300+D  o_pExpItem                     *           options(*omit) procptr                     RADDAT           000000   26015300
015400+D  o_expItmType                 10I 0         options(*omit)                             RADDAT           000000   26015400
015500+D  io_errCode                32767A           options(*omit: *varsize)                   RADDAT           000000   26015500
015600+ /IF NOT DEFINED(TESTPTR)                                                                RADDAT           000000   26015600
015700+ /DEFINE TESTPTR                                                                         RADDAT           000000   26015700
015800+ *                                                                                       RADDAT           000000   26015800
015900+ *  Test Pointer (TESTPTR)                                                               RADDAT           000000   26015900
016000+D testptr         PR            10I 0 extproc('_TESTPTR')                                RADDAT           000000   26016000
016100+D  i_ptr                          *   value                                              RADDAT           000000   26016100
016200+D  i_test_type                  10I 0 value                                              RADDAT           000000   26016200
016300+ *                                                                                       RADDAT           000000   26016300
016400+D cTESTPTR_TYPE_PROCPTR...                                                               RADDAT           000000   26016400
016500+D                 C                   0                                                  RADDAT           000000   26016500
016600+D cTESTPTR_NO_OPTIMIZED_PARAMETER_PASSING...                                             RADDAT           000000   26016600
016700+D                 C                   0                                                  RADDAT           000000   26016700
016800+D cTESTPTR_OPTIMIZED_PARAMETER_PASSING...                                                RADDAT           000000   26016800
016900+D                 C                   1                                                  RADDAT           000000   26016900
017000+ *                                                                                       RADDAT           000000   26017000
017100+D cTESTPTR_TYPE_MEMPTR...                                                                RADDAT           000000   26017100
017200+D                 C                   1                                                  RADDAT           000000   26017200
017300+D cTESTPTR_NON_TERASPACE...                                                              RADDAT           000000   26017300
017400+D                 C                   0                                                  RADDAT           000000   26017400
017500+D cTESTPTR_TERASPACE...                                                                  RADDAT           000000   26017500
017600+D                 C                   1                                                  RADDAT           000000   26017600
017700+ *                                                                                       RADDAT           000000   26017700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     52
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
017800+D cTESTPTR_ERROR_NOT_EXIST...                                                            RADDAT           000000   26017800
017900+D                 C                   x'2401'                                            RADDAT           000000   26017900
018000+D cTESTPTR_ERROR_INVALID...                                                              RADDAT           000000   26018000
018100+D                 C                   x'2402'                                            RADDAT           000000   26018100
018200+D cTESTPTR_ERROR_OBJECT_DESTROYED...                                                     RADDAT           000000   26018200
018300+D                 C                   x'2202'                                            RADDAT           000000   26018300
018400+ /ENDIF                                                                                  RADDAT           000000   26018400
018500+ *                                                                                       RADDAT           000000   26018500
018600+ *  Materialize Pointer (MATPTR)                                                         RADDAT           000000   26018600
018700+D matptr          PR            10I 0 extproc('matptr')                                  RADDAT           000000   26018700
018800+D  i_MPTR_Template_T...                                                                  RADDAT           000000   26018800
018900+D                                 *   value                                              RADDAT           000000   26018900
019000+D  i_anyPtr                       *   value                                              RADDAT           000000   26019000
019100+ *                                                                                       RADDAT           000000   26019100
019200+D matptr_TPL_t    DS                  qualified               based(pDummy)              RADDAT           000000   26019200
019300+D  bytPrv                 1      4I 0                                                    RADDAT           000000   26019300
019400+D  bytAvl                 5      8I 0                                                    RADDAT           000000   26019400
019500+D  type                   9      9A                                                      RADDAT           000000   26019500
019600+ *                                                                                       RADDAT           000000   26019600
019700+D matptr_spacePtr_TPL_t...                                                               RADDAT           000000   26019700
019800+D                 DS                  qualified               based(pDummy)              RADDAT           000000   26019800
019900+D  baseInf                            likeds(matptr_TPL_t )                              RADDAT           000000   26019900
020000+D  ContextID             10     41A                                                      RADDAT           000000   26020000
020100+D   ContextType          10     10A                                                      RADDAT           000000   26020100
020200+D   ContextSubType...                                                                    RADDAT           000000   26020200
020300+D                        11     11A                                                      RADDAT           000000   26020300
020400+D   ContextName          12     41A                                                      RADDAT           000000   26020400
020500+D  ObjectID              42     73A                                                      RADDAT           000000   26020500
020600+D   ObjectType           42     42A                                                      RADDAT           000000   26020600
020700+D   ObjectSubType...                                                                     RADDAT           000000   26020700
020800+D                        43     43A                                                      RADDAT           000000   26020800
020900+D   ObjectName           44     73A                                                      RADDAT           000000   26020900
021000+D  offSpace              74     77I 0                                                    RADDAT           000000   26021000
021100+D  PtrTragetInf          78     79A                                                      RADDAT           000000   26021100
021200+D  reserved_1            80     80A                                                      RADDAT           000000   26021200
021300+D  extOffSpace           81     88I 0                                                    RADDAT           000000   26021300
021400+ *                                                                                       RADDAT           000000   26021400
021500+ *  Resolve System Pointer (RSLVSP)                                                      RADDAT           000000   26021500
021600+D rslvsp...                                                                              RADDAT           000000   26021600
021700+D                 PR              *   extproc('rslvsp') procptr                          RADDAT           000000   26021700
021800+D  i_objtype                     5U 0 value                                              RADDAT           000000   26021800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     53
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
021900+D  i_obj                          *   value   options(*string)                           RADDAT           000000   26021900
022000+D  i_lib                          *   value   options(*string)                           RADDAT           000000   26022000
022100+D  i_auth                        5U 0 value                                              RADDAT           000000   26022100
022200+ *                                                                                       RADDAT           000000   26022200
022300+ *  Convert Type (QLICVTTP) API                                                          RADDAT           000000   26022300
022400+D QLICVTTP...                                                                            RADDAT           000000   26022400
022500+D                 PR                  extpgm('QLICVTTP')                                 RADDAT           000000   26022500
022600+D  i_conversion                 10A   const                                              RADDAT           000000   26022600
022700+D  io_symObjType                10A                                                      RADDAT           000000   26022700
022800+D  io_hexObjType                 5U 0                                                    RADDAT           000000   26022800
022900+D  io_errCode                32767A          options(*varsize)                           RADDAT           000000   26022900
023000+ *                                                                                       RADDAT           000000   26023000
023100+ *  AND String (ANDSTR)                                                                  RADDAT           000000   26023100
023200+D ANDSTR...                                                                              RADDAT           000000   26023200
023300+D                 PR                  extproc('_ANDSTR')                                 RADDAT           000000   26023300
023400+D  i_pReceiver                    *   value                                              RADDAT           000000   26023400
023500+D  i_pFirstSrc                    *   value                                              RADDAT           000000   26023500
023600+D  i_pSecondSrc                   *   value                                              RADDAT           000000   26023600
023700+D  i_length                     10U 0 value                                              RADDAT           000000   26023700
023800+ *                                                                                       RADDAT           000000   26023800
023900+ *  OR String (ORSTR)                                                                    RADDAT           000000   26023900
024000+D ORSTR...                                                                               RADDAT           000000   26024000
024100+D                 PR                  extproc('_ORSTR')                                  RADDAT           000000   26024100
024200+D  i_pReceiver                    *   value                                              RADDAT           000000   26024200
024300+D  i_pFirstSrc                    *   value                                              RADDAT           000000   26024300
024400+D  i_pSecondSrc                   *   value                                              RADDAT           000000   26024400
024500+D  i_length                     10U 0 value                                              RADDAT           000000   26024500
024600+ *                                                                                       RADDAT           000000   26024600
024700+ *  XOR (Exclusive Or) String (XORSTR)                                                   RADDAT           000000   26024700
024800+D XORSTR...                                                                              RADDAT           000000   26024800
024900+D                 PR                  extproc('_XORSTR')                                 RADDAT           000000   26024900
025000+D  i_pReceiver                    *   value                                              RADDAT           000000   26025000
025100+D  i_pFirstSrc                    *   value                                              RADDAT           000000   26025100
025200+D  i_pSecondSrc                   *   value                                              RADDAT           000000   26025200
025300+D  i_length                     10U 0 value                                              RADDAT           000000   26025300
025400+ *                                                                                       RADDAT           000000   26025400
025500+ *  Complement String (COMSTR)                                                           RADDAT           000000   26025500
025600+D COMSTR...                                                                              RADDAT           000000   26025600
025700+D                 PR                  extproc('_COMSTR')                                 RADDAT           000000   26025700
025800+D  i_pReceiver                    *   value                                              RADDAT           000000   26025800
025900+D  i_pSource                      *   value                                              RADDAT           000000   26025900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     54
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
026000+D  i_length                     10U 0 value                                              RADDAT           000000   26026000
026100+ *                                                                                       RADDAT           000000   26026100
026200+ *  The standard definition for time in the MI library (QSYSINC/MIH.MICOMMON):           RADDAT           000000   26026200
026300+D mi_time_t       S              8A   inz                                                RADDAT           000000   26026300
026400+ *                                                                                       RADDAT           000000   26026400
026500+ *  The following values can be OR'd for the Wait Options parameter                      RADDAT           000000   26026500
026600+ *  on the WAITTIME invocation.                                                          RADDAT           000000   26026600
026700+D cWAIT_NORMAL...                                                                        RADDAT           000000   26026700
026800+D                 C                   0                                    x'0000'       RADDAT           000000   26026800
026900+D cWAIT_MOD_AS_ENTER...                                                                  RADDAT           000000   26026900
027000+D                 C                   32768                                x'8000'       RADDAT           000000   26027000
027100+D cWAIT_MOD_AS_LEAVE...                                                                  RADDAT           000000   26027100
027200+D                 C                   16384                                x'4000'       RADDAT           000000   26027200
027300+D cWAIT_MPL_SET...                                                                       RADDAT           000000   26027300
027400+D                 C                   8192                                 x'2000'       RADDAT           000000   26027400
027500+D cWAIT_SIGNALS...                                                                       RADDAT           000000   26027500
027600+D                 C                   4096                                 x'1000'       RADDAT           000000   26027600
027700+ *                                                                                       RADDAT           000000   26027700
027800+ *  Wait On Time (WAITTIME)                                                              RADDAT           000000   26027800
027900+D waitTime        PR                  extproc('waittime')                                RADDAT           000000   26027900
028000+D  pmi_time                           const  like(mi_time_t)                             RADDAT           000000   26028000
028100+D  option                        5I 0 value                                              RADDAT           000000   26028100
028200+ *                                                                                       RADDAT           000000   26028200
028300+ *  Use mitime function to form an AS/400 system value for time                          RADDAT           000000   26028300
028400+D mitime          PR              *   extproc('mitime')                                  RADDAT           000000   26028400
028500+D  mi_time                            const  like(mi_time_t)                             RADDAT           000000   26028500
028600+D  hour                         10I 0 value                                              RADDAT           000000   26028600
028700+D  min                          10I 0 value                                              RADDAT           000000   26028700
028800+D  sec                          10I 0 value                                              RADDAT           000000   26028800
028900+D  hsec                         10I 0 value                                              RADDAT           000000   26028900
029000+ *                                                                                       RADDAT           000000   26029000
029100+ /ENDIF                                                                                  RADDAT      DEF  000000   26029100
022400+ /COPY QBASICS1,PBASICS1R1                   Messages                                                CPY  000000   21022400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R1                                                   *                    27
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R1)                                *                    27
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    27
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Messages            cpybk           *                    27
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PBASICSR1)                                                                               000000   27000100
            LINES EXCLUDED: 229
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     55
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
023100+ /ENDIF                                                                                  RADDAT           000000   27023100
022500+ /COPY QBASICS1,PBASICS1R7                   Mathematics                                             CPY  000000   21022500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R7                                                   *                    28
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R7)                                *                    28
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    28
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Mathematics         cpybk           *                    28
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R7)                                                              RADDAT           000000   28000100
000200+ /DEFINE BASICS1R7                                                                       RADDAT           000000   28000200
000300+ *                                                                                       RADDAT           000000   28000300
000400+ *  Constants                                                                            RADDAT           000000   28000400
000500+ *                                                                                       RADDAT           000000   28000500
000600+ *  Generate UUID:                                                                       RADDAT           000000   28000600
000700+D cUUID_HEX...                                                                           RADDAT           000000   28000700
000800+D                 C                   const(1)                                           RADDAT           000000   28000800
000900+D cUUID_STRING...                                                                        RADDAT           000000   28000900
001000+D                 C                   const(2)                                           RADDAT           000000   28001000
001100+ *                                                                                       RADDAT           000000   28001100
001200+D uuid_t          DS                  qualified                                          RADDAT           000000   28001200
001300+D  length                        5U 0                                                    RADDAT           000000   28001300
001400+D  value                        32A                                                      RADDAT           000000   28001400
001500+ *                                                                                       RADDAT           000000   28001500
001600+ *  Generate MD5:                                                                        RADDAT           000000   28001600
001700+D cMD5_HEX...                                                                            RADDAT           000000   28001700
001800+D                 C                   const(4352)                           256 + 4096   RADDAT           000000   28001800
001900+D cMD5_STRING...                                                                         RADDAT           000000   28001900
002000+D                 C                   const(4608)                           512 + 4096   RADDAT           000000   28002000
002100+D cMD5_ONLY...                                                                           RADDAT           000000   28002100
002200+D                 C                   const(17)                               1 +   16   RADDAT           000000   28002200
002300+D cMD5_FIRST...                                                                          RADDAT           000000   28002300
002400+D                 C                   const(18)                               2 +   16   RADDAT           000000   28002400
002500+D cMD5_MIDDLE...                                                                         RADDAT           000000   28002500
002600+D                 C                   const(20)                               4 +   16   RADDAT           000000   28002600
002700+D cMD5_FINAL...                                                                          RADDAT           000000   28002700
002800+D                 C                   const(24)                               8 +   16   RADDAT           000000   28002800
002900+ *                                                                                       RADDAT           000000   28002900
003000+D md5_t           DS                  qualified                                          RADDAT           000000   28003000
003100+D  length                        5U 0                                                    RADDAT           000000   28003100
003200+D  value                        32A                                                      RADDAT           000000   28003200
003300+ *                                                                                       RADDAT           000000   28003300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     56
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003400+ *  Generate SHA-1:                                                                      RADDAT           000000   28003400
003500+D cSHA1_HEX...                                                                           RADDAT           000000   28003500
003600+D                 C                   const(8448)                           256 + 8192   RADDAT           000000   28003600
003700+D cSHA1_STRING...                                                                        RADDAT           000000   28003700
003800+D                 C                   const(8704)                           512 + 8192   RADDAT           000000   28003800
003900+D cSHA1_ONLY...                                                                          RADDAT           000000   28003900
004000+D                 C                   const(33)                               1 +   32   RADDAT           000000   28004000
004100+D cSHA1_FIRST...                                                                         RADDAT           000000   28004100
004200+D                 C                   const(34)                               2 +   32   RADDAT           000000   28004200
004300+D cSHA1_MIDDLE...                                                                        RADDAT           000000   28004300
004400+D                 C                   const(36)                               4 +   32   RADDAT           000000   28004400
004500+D cSHA1_FINAL...                                                                         RADDAT           000000   28004500
004600+D                 C                   const(40)                               8 +   32   RADDAT           000000   28004600
004700+ *                                                                                       RADDAT           000000   28004700
004800+D sha1_t          DS                  qualified                                          RADDAT           000000   28004800
004900+D  length                        5U 0                                                    RADDAT           000000   28004900
005000+D  value                        40A                                                      RADDAT           000000   28005000
005100+ *                                                                                       RADDAT           000000   28005100
005200+ *  Generate CRC32:                                                                      RADDAT           000000   28005200
005300+D cCRC32_ONLY...                                                                         RADDAT           000000   28005300
005400+D                 C                   const(33)                               1 +   64   RADDAT           000000   28005400
005500+D cCRC32_FIRST...                                                                        RADDAT           000000   28005500
005600+D                 C                   const(34)                               2 +   64   RADDAT           000000   28005600
005700+D cCRC32_MIDDLE...                                                                       RADDAT           000000   28005700
005800+D                 C                   const(36)                               4 +   64   RADDAT           000000   28005800
005900+D cCRC32_FINAL...                                                                        RADDAT           000000   28005900
006000+D                 C                   const(40)                               8 +   64   RADDAT           000000   28006000
006100+ *                                                                                       RADDAT           000000   28006100
006200+D crc32_t         DS                  qualified                                          RADDAT           000000   28006200
006300+D  length                        5U 0                                                    RADDAT           000000   28006300
006400+D  value                        40A                                                      RADDAT           000000   28006400
006500+ *                                                                                       RADDAT           000000   28006500
006600+ *  Tests for one or more bits.                                                          RADDAT           000000   28006600
006700+D f_isBitOn...                                                                           RADDAT           000000   28006700
006800+D                 PR              N                                                      RADDAT           000000   28006800
006900+D                                     extproc('BASICS1R7+                                RADDAT           000000   28006900
007000+D                                     _f_isBitOn+                                        RADDAT           000000   28007000
007100+D                                     ')                                                 RADDAT           000000   28007100
007200+D  i_testBit                    10U 0 value                                              RADDAT           000000   28007200
007300+D  i_value                      10U 0 value                                              RADDAT           000000   28007300
007400+ *                                                                                       RADDAT           000000   28007400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     57
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
007500+ *  Computes the logarithm base 10 of a given value.                                     RADDAT           000000   28007500
007600+D f_log10...                                                                             RADDAT           000000   28007600
007700+D                 PR             8F                                                      RADDAT           000000   28007700
007800+D                                     extproc('BASICS1R7+                                RADDAT           000000   28007800
007900+D                                     _f_log10+                                          RADDAT           000000   28007900
008000+D                                     ')                                                 RADDAT           000000   28008000
008100+D  i_value                       8F   value                                              RADDAT           000000   28008100
008200+ *                                                                                       RADDAT           000000   28008200
008300+ *  Computes the length of a RPG integer field from its buffer length                    RADDAT           000000   28008300
008400+D f_clcLengthOfRPGIntFieldFromBufSize...                                                 RADDAT           000000   28008400
008500+D                 PR             5U 0                                                    RADDAT           000000   28008500
008600+D                                     extproc('BASICS1R7+                                RADDAT           000000   28008600
008700+D                                     _f_clcLengthOfRPGIntFieldFromBufSize+              RADDAT           000000   28008700
008800+D                                     ')                                                 RADDAT           000000   28008800
008900+D  i_buffSize                    5U 0 value                                              RADDAT           000000   28008900
009000+ *                                                                                       RADDAT           000000   28009000
009100+ *  Generates a Universal Unique Identifier (UUID).                                                       000000   28009100
009200+D f_genUUID...                                                                           RADDAT           000000   28009200
009300+D                 PR                         likeds(uuid_t  )                            RADDAT           000000   28009300
009400+D                                     extproc('BASICS1R7+                                RADDAT           000000   28009400
009500+D                                     _f_genUUID+                                        RADDAT           000000   28009500
009600+D                                     ')                                                 RADDAT           000000   28009600
009700+D  i_option                      5U 0 value  options(*nopass)                            RADDAT           000000   28009700
009800+ *                                                                                       RADDAT           000000   28009800
009900+ *  Generates a MD5 fingerprint (hash code).                                             RADDAT           000000   28009900
010000+D f_genMD5...                                                                            RADDAT           000000   28010000
010100+D                 PR                         likeds(md5_t   )                            RADDAT           000000   28010100
010200+D                                     extproc('BASICS1R7+                                RADDAT           000000   28010200
010300+D                                     _f_genMD5+                                         RADDAT           000000   28010300
010400+D                                     ')                                                 RADDAT           000000   28010400
010500+D  i_pString                      *   const  options(*string)                            RADDAT           000000   28010500
010600+D  i_option                      5U 0 const  options(*nopass)                            RADDAT           000000   28010600
010700+D  i_length                     10U 0 const  options(*nopass)                            RADDAT           000000   28010700
010800+ *                                                                                       RADDAT           000000   28010800
010900+ *  Generates a SHA-1 fingerprint (hash code).                                           RADDAT           000000   28010900
011000+D f_genSHA1...                                                                           RADDAT           000000   28011000
011100+D                 PR                         likeds(sha1_t  )                            RADDAT           000000   28011100
011200+D                                     extproc('BASICS1R7+                                RADDAT           000000   28011200
011300+D                                     _f_genSHA1+                                        RADDAT           000000   28011300
011400+D                                     ')                                                 RADDAT           000000   28011400
011500+D  i_pString                      *   const  options(*string)                            RADDAT           000000   28011500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     58
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
011600+D  i_option                      5U 0 const  options(*nopass)                            RADDAT           000000   28011600
011700+D  i_length                     10U 0 const  options(*nopass)                            RADDAT           000000   28011700
011800+ *                                                                                       RADDAT           000000   28011800
011900+ *  Generates a CRC32 checksum.                                                          RADDAT           000000   28011900
012000+D f_genCRC32...                                                                          RADDAT           000000   28012000
012100+D                 PR                         likeds(crc32_t )                            RADDAT           000000   28012100
012200+D                                     extproc('BASICS1R7+                                RADDAT           000000   28012200
012300+D                                     _f_genCRC32+                                       RADDAT           000000   28012300
012400+D                                     ')                                                 RADDAT           000000   28012400
012500+D  i_pString                      *   const  options(*string)                            RADDAT           000000   28012500
012600+D  i_option                      5U 0 const  options(*nopass)                            RADDAT           000000   28012600
012700+D  i_length                     10U 0 const  options(*nopass)                            RADDAT           000000   28012700
012800+ *                                                                                       RADDAT           000000   28012800
012900+ * -----------------------------------------                                             RADDAT           000000   28012900
013000+ *  Imported prototypes                                                                  RADDAT           000000   28013000
013100+ * -----------------------------------------                                             RADDAT           000000   28013100
013200+ /COPY QBASICS1,PBASICS1R3                   Strings                                     RADDAT      CPY  000000   28013200
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R3                                                   *                    29
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R3)                                *                    29
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    29
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Strings             cpybk           *                    29
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R3)                                                                               000000   29000100
000200+ /DEFINE BASICS1R3                                                                                        000000   29000200
000300+ *                                                                                       RADDAT           000000   29000300
000400+ *  Reference fields                                                                     RADDAT           000000   29000400
000500+ *                                                                                       RADDAT           000000   29000500
000600+ *  Konstants: f_wordWrap()                                                              RADDAT           000000   29000600
000700+D cWORDWRAP_PARAGRAPH_NONE...                                                            RADDAT           000000   29000700
000800+D                 C                   const(1)                                           RADDAT           000000   29000800
000900+D cWORDWRAP_PARAGRAPH_MSGD...                                                            RADDAT           000000   29000900
001000+D                 C                   const(2)                                           RADDAT           000000   29001000
001100+D cWORDWRAP_PARAGRAPH_TEXT...                                                            RADDAT           000000   29001100
001200+D                 C                   const(4)                                           RADDAT           000000   29001200
001300+D cWORDWRAP_PARAGRAPH_TRIMR...                                                           RADDAT           000000   29001300
001400+D                 C                   const(8)                                           RADDAT           000000   29001400
001500+ *                                                                                       RADDAT           000000   29001500
001600+ *  Returns the left portion of a string.                                                RADDAT           000000   29001600
001700+D f_left...                                                                              RADDAT           000000   29001700
001800+D                 PR          4096A           varying                                    RADDAT           000000   29001800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     59
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001900+D                                     extproc('BASICS1R3+                                RADDAT           000000   29001900
002000+D                                     _f_left+                                           RADDAT           000000   29002000
002100+D                                     ')                                                 RADDAT           000000   29002100
002200+D  i_string                   4096A   const   varying                                    RADDAT           000000   29002200
002300+D  i_length                     10I 0 const                                              RADDAT           000000   29002300
002400+ *                                                                                       RADDAT           000000   29002400
002500+ *  Tests if the specified string starts with the specified prefix.                      RADDAT           000000   29002500
002600+D f_startsWith...                                                                        RADDAT           000000   29002600
002700+D                 PR              N                                                      RADDAT           000000   29002700
002800+D                                     extproc('BASICS1R3+                                RADDAT           000000   29002800
002900+D                                     _f_startsWith+                                     RADDAT           000000   29002900
003000+D                                     ')                                                 RADDAT           000000   29003000
003100+D  i_prefix                   4096A   const   varying                                    RADDAT           000000   29003100
003200+D  i_string                   4096A   const   varying                                    RADDAT           000000   29003200
003300+ *                                                                                       RADDAT           000000   29003300
003400+ *  Tests if the specified string starts with the specified prefix,                      RADDAT           000000   29003400
003500+ *  ignoring case considerations.                                                        RADDAT           000000   29003500
003600+D f_startsWithIgnoreCase...                                                              RADDAT           000000   29003600
003700+D                 PR              N                                                      RADDAT           000000   29003700
003800+D                                     extproc('BASICS1R3+                                RADDAT           000000   29003800
003900+D                                     _f_startsWithIgnoreCase+                           RADDAT           000000   29003900
004000+D                                     ')                                                 RADDAT           000000   29004000
004100+D  i_prefix                   4096A   const   varying                                    RADDAT           000000   29004100
004200+D  i_string                   4096A   const   varying                                    RADDAT           000000   29004200
004300+ *                                                                                       RADDAT           000000   29004300
004400+ *  Returns the right portion of a string.                                               RADDAT           000000   29004400
004500+D f_right...                                                                             RADDAT           000000   29004500
004600+D                 PR          4096A           varying                                    RADDAT           000000   29004600
004700+D                                     extproc('BASICS1R3+                                RADDAT           000000   29004700
004800+D                                     _f_right+                                          RADDAT           000000   29004800
004900+D                                     ')                                                 RADDAT           000000   29004900
005000+D  i_string                   4096A   const   varying                                    RADDAT           000000   29005000
005100+D  i_length                     10I 0 const                                              RADDAT           000000   29005100
005200+ *                                                                                       RADDAT           000000   29005200
005300+ *  Tests if the specified string ends with the specified suffix.                        RADDAT           000000   29005300
005400+D f_endsWith...                                                                          RADDAT           000000   29005400
005500+D                 PR              N                                                      RADDAT           000000   29005500
005600+D                                     extproc('BASICS1R3+                                RADDAT           000000   29005600
005700+D                                     _f_endsWith+                                                        000000   29005700
005800+D                                     ')                                                 RADDAT           000000   29005800
005900+D  i_suffix                   4096A   const   varying                                    RADDAT           000000   29005900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     60
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
006000+D  i_string                   4096A   const   varying                                    RADDAT           000000   29006000
006100+ *                                                                                       RADDAT           000000   29006100
006200+ *  Produces an empty string.                                                            RADDAT           000000   29006200
006300+D f_space...                                                                             RADDAT           000000   29006300
006400+D                 PR          4096A           varying                                    RADDAT           000000   29006400
006500+D                                     extproc('BASICS1R3+                                RADDAT           000000   29006500
006600+D                                     _f_space+                                          RADDAT           000000   29006600
006700+D                                     ')                                                 RADDAT           000000   29006700
006800+D  i_length                     10I 0 const                                              RADDAT           000000   29006800
006900+D  i_char                        1A   const   options(*nopass)                           RADDAT           000000   29006900
007000+ *                                                                                       RADDAT           000000   29007000
007100+ *  Converts a given string to lower case.                                               RADDAT           000000   29007100
007200+D f_lcase...                                                                             RADDAT           000000   29007200
007300+D                 PR          4096A           varying                                    RADDAT           000000   29007300
007400+D                                     extproc('BASICS1R3+                                RADDAT           000000   29007400
007500+D                                     _f_lcase+                                          RADDAT           000000   29007500
007600+D                                     ')                                                 RADDAT           000000   29007600
007700+D  i_string                   4096A   const   varying                                    RADDAT           000000   29007700
007800+ *                                                                                       RADDAT           000000   29007800
007900+ *  Converts a given string to upper case.                                               RADDAT           000000   29007900
008000+D f_ucase...                                                                             RADDAT           000000   29008000
008100+D                 PR          4096A           varying                                    RADDAT           000000   29008100
008200+D                                     extproc('BASICS1R3+                                RADDAT           000000   29008200
008300+D                                     _f_ucase+                                          RADDAT           000000   29008300
008400+D                                     ')                                                 RADDAT           000000   29008400
008500+D  i_string                   4096A   const   varying                                    RADDAT           000000   29008500
008600+ *                                                                                       RADDAT           000000   29008600
008700+ *  Replaces all occurences of a search argument by                                      RADDAT           000000   29008700
008800+ *  a replacement string in a given string.                                              RADDAT           000000   29008800
008900+D f_replace...                                                                           RADDAT           000000   29008900
009000+D                 PR          4096A          varying                                     RADDAT           000000   29009000
009100+D                                     extproc('BASICS1R3+                                RADDAT           000000   29009100
009200+D                                     _f_replace+                                        RADDAT           000000   29009200
009300+D                                     ')                                                 RADDAT           000000   29009300
009400+D  i_searchArg                4096A   const  varying                                     RADDAT           000000   29009400
009500+D  i_rplString                4096A   const  varying                                     RADDAT           000000   29009500
009600+D  i_string                   4096A   const  varying                                     RADDAT           000000   29009600
009700+D  i_startPos                   10U 0 const  options(*nopass)                            RADDAT           000000   29009700
009800+ *                                                                                       RADDAT           000000   29009800
009900+ *  Returns the EBCDIC value of a given character.                                       RADDAT           000000   29009900
010000+D f_ebcdic...                                                                            RADDAT           000000   29010000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     61
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
010100+D                 PR             3U 0                                                    RADDAT           000000   29010100
010200+D                                     extproc('BASICS1R3+                                RADDAT           000000   29010200
010300+D                                     _f_ebcdic+                                         RADDAT           000000   29010300
010400+D                                     ')                                                 RADDAT           000000   29010400
010500+D  i_char                        1A   const   options(*nopass)                           RADDAT           000000   29010500
010600+ *                                                                                       RADDAT           000000   29010600
010700+ *  Returns the numeric value of a string.                                                                000000   29010700
010800+D f_val...                                                                               RADDAT           000000   29010800
010900+D                 PR             8F                                                      RADDAT           000000   29010900
011000+D                                     extproc('BASICS1R3+                                RADDAT           000000   29011000
011100+D                                     _f_val+                                            RADDAT           000000   29011100
011200+D                                     ')                                                 RADDAT           000000   29011200
011300+D  i_string                     64A   const  varying                                     RADDAT           000000   29011300
011400+D  i_decPoint                    1A   const  options(*nopass)                            RADDAT           000000   29011400
011500+D  i_comma                       1A   const  options(*nopass)                            RADDAT           000000   29011500
011600+D  i_currSym                     1A   const  options(*nopass)                            RADDAT           000000   29011600
011700+ *                                                                                       RADDAT           000000   29011700
011800+ *  Performs word wrapping on a given string.                                                             000000   29011800
011900+ *  Returns the next line of i_string with each call to f_wordWrap().                    RADDAT           000000   29011900
012000+D f_wordWrap...                                                                          RADDAT           000000   29012000
012100+D                 PR          4096A          varying                                     RADDAT           000000   29012100
012200+D                                     extproc('BASICS1R3+                                RADDAT           000000   29012200
012300+D                                     _f_wordWrap+                                       RADDAT           000000   29012300
012400+D                                     ')                                                 RADDAT           000000   29012400
012500+D  i_string                   4096A   const  varying                                     RADDAT           000000   29012500
012600+D  i_width                      10U 0 const                                              RADDAT           000000   29012600
012700+D  io_startPos                  10U 0                                                    RADDAT           000000   29012700
012800+D  i_options                    10U 0 const  options(*nopass)                            RADDAT           000000   29012800
012900+ *                                                                                       RADDAT           000000   29012900
013000+ *  Transforms a numeric from its internal format to a                                   RADDAT           000000   29013000
013100+ *  character form suitable for displaying.                                              RADDAT           000000   29013100
013200+D f_editCode...                                                                          RADDAT           000000   29013200
013300+D                 PR            64A          varying                                     RADDAT           000000   29013300
013400+D                                     extproc('BASICS1R3+                                RADDAT           000000   29013400
013500+D                                     _f_editCode+                                       RADDAT           000000   29013500
013600+D                                     ')                                                 RADDAT           000000   29013600
013700+D  i_pBuffer                      *   const                                              RADDAT           000000   29013700
013800+D  i_digits                     10I 0 const                                              RADDAT           000000   29013800
013900+D  i_decPos                     10I 0 const                                              RADDAT           000000   29013900
014000+D  i_varClass                   10A   const                                              RADDAT           000000   29014000
014100+D  i_editCode                    2A   const                                              RADDAT           000000   29014100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     62
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
014200+ *                                                                                       RADDAT           000000   29014200
014300+ *  Transforms a numeric from its internal format to a                                   RADDAT           000000   29014300
014400+ *  character form suitable for displaying.                                              RADDAT           000000   29014400
014500+D f_editWord...                                                                          RADDAT           000000   29014500
014600+D                 PR           512A          varying                                     RADDAT           000000   29014600
014700+D                                     extproc('BASICS1R3+                                RADDAT           000000   29014700
014800+D                                     _f_editWord+                                       RADDAT           000000   29014800
014900+D                                     ')                                                 RADDAT           000000   29014900
015000+D  i_pBuffer                      *   const                                              RADDAT           000000   29015000
015100+D  i_digits                     10I 0 const                                              RADDAT           000000   29015100
015200+D  i_varClass                   10A   const                                              RADDAT           000000   29015200
015300+D  i_editWord                  256A   const  varying                                     RADDAT           000000   29015300
015400+ *                                                                                       RADDAT           000000   29015400
015500+ *  Gets the length of a the formatted string of a given edit code.                      RADDAT           000000   29015500
015600+D f_getLengthEditCode...                                                                 RADDAT           000000   29015600
015700+D                 PR             5U 0                                                    RADDAT           000000   29015700
015800+D                                     extproc('BASICS1R3+                                RADDAT           000000   29015800
015900+D                                     _f_getLengthEditCode+                              RADDAT           000000   29015900
016000+D                                     ')                                                 RADDAT           000000   29016000
016100+D  i_digits                     10I 0 const                                              RADDAT           000000   29016100
016200+D  i_decPos                     10I 0 const                                              RADDAT           000000   29016200
016300+D  i_editCode                    2A   const                                              RADDAT           000000   29016300
016400+ *                                                                                       RADDAT           000000   29016400
016500+ *  Gets the length of a the formatted string of a given edit word.                      RADDAT           000000   29016500
016600+D f_getLengthEditWord...                                                                 RADDAT           000000   29016600
016700+D                 PR             5U 0                                                    RADDAT           000000   29016700
016800+D                                     extproc('BASICS1R3+                                RADDAT           000000   29016800
016900+D                                     _f_getLengthEditWord+                              RADDAT           000000   29016900
017000+D                                     ')                                                 RADDAT           000000   29017000
017100+D  i_digits                     10I 0 const                                              RADDAT           000000   29017100
017200+D  i_editWord                  256A   const  varying                                     RADDAT           000000   29017200
017300+ *                                                                                       RADDAT           000000   29017300
017400+ *  Removes a keyword from a given string.                                               RADDAT           000000   29017400
017500+D f_rmvKeyword...                                                                        RADDAT           000000   29017500
017600+D                 PR          4096A           varying                                    RADDAT           000000   29017600
017700+D                                     extproc('BASICS1R3+                                RADDAT           000000   29017700
017800+D                                     _f_rmvKeyword+                                     RADDAT           000000   29017800
017900+D                                     ')                                                 RADDAT           000000   29017900
018000+D  i_keyword                   128A   const   varying                                    RADDAT           000000   29018000
018100+D  i_string                   4096A   const   varying                                    RADDAT           000000   29018100
018200+ *                                                                                       RADDAT           000000   29018200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     63
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
018300+ *  Removes quotes from a given string.                                                  RADDAT           000000   29018300
018400+D f_rmvQuotes...                                                                         RADDAT           000000   29018400
018500+D                 PR          4096A           varying                                    RADDAT           000000   29018500
018600+D                                     extproc('BASICS1R3+                                RADDAT           000000   29018600
018700+D                                     _f_rmvQuotes+                                      RADDAT           000000   29018700
018800+D                                     ')                                                 RADDAT           000000   29018800
018900+D  i_string                   4096A   const   varying                                    RADDAT           000000   29018900
019000+D  i_quote                       1A   const                                              RADDAT           000000   29019000
019100+ *                                                                                       RADDAT           000000   29019100
019200+ *  Adds quotes to a given string.                                                       RADDAT           000000   29019200
019300+D f_addQuotes...                                                                         RADDAT           000000   29019300
019400+D                 PR          4096A           varying                                    RADDAT           000000   29019400
019500+D                                     extproc('BASICS1R3+                                RADDAT           000000   29019500
019600+D                                     _f_addQuotes+                                      RADDAT           000000   29019600
019700+D                                     ')                                                 RADDAT           000000   29019700
019800+D  i_string                   4096A   const   varying                                    RADDAT           000000   29019800
019900+D  i_quote                       1A   const   options(*nopass)                           RADDAT           000000   29019900
020000+ *                                                                                       RADDAT           000000   29020000
020100+ *  Centers a string.                                                                    RADDAT           000000   29020100
020200+D f_center...                                                                            RADDAT           000000   29020200
020300+D                 PR          4096A           varying                                    RADDAT           000000   29020300
020400+D                                     extproc('BASICS1R3+                                RADDAT           000000   29020400
020500+D                                     _f_center+                                         RADDAT           000000   29020500
020600+D                                     ')                                                 RADDAT           000000   29020600
020700+D  i_string                   4096A   const   varying                                    RADDAT           000000   29020700
020800+D  i_length                     10U 0 const   options(*nopass)                           RADDAT           000000   29020800
020900+ *                                                                                       RADDAT           000000   29020900
021000+ *  Right aligns a string.                                                               RADDAT           000000   29021000
021100+D f_alignR...                                                                            RADDAT           000000   29021100
021200+D                 PR          4096A           varying                                    RADDAT           000000   29021200
021300+D                                     extproc('BASICS1R3+                                RADDAT           000000   29021300
021400+D                                     _f_alignR+                                         RADDAT           000000   29021400
021500+D                                     ')                                                 RADDAT           000000   29021500
021600+D  i_string                   4096A   const   varying                                    RADDAT           000000   29021600
021700+D  i_length                     10U 0 const   options(*nopass)                           RADDAT           000000   29021700
021800+ *                                                                                       RADDAT           000000   29021800
021900+ *  Compare strings using wildcard characters. (Compare generic)                         RADDAT           000000   29021900
022000+D f_genStrCmp...                                                                         RADDAT           000000   29022000
022100+D                 PR              N                                                      RADDAT           000000   29022100
022200+D                                     extproc('BASICS1R3+                                RADDAT           000000   29022200
022300+D                                     _f_genStrCmp+                                      RADDAT           000000   29022300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     64
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
022400+D                                     ')                                                 RADDAT           000000   29022400
022500+D  i_string                   4096A   const   varying                                    RADDAT           000000   29022500
022600+D  i_mask                     4096A   const   varying                                    RADDAT           000000   29022600
022700+D  i_wildcard                    2A   const   options(*nopass)                                            000000   29022700
022800+ *                                                                                       RADDAT           000000   29022800
022900+ *  Compare strings using wildcard characters.                                           RADDAT           000000   29022900
023000+D f_genStrCmpIgnCase...                                                                  RADDAT           000000   29023000
023100+D                 PR              N                                                      RADDAT           000000   29023100
023200+D                                     extproc('BASICS1R3+                                RADDAT           000000   29023200
023300+D                                     _f_genStrCmpIgnCase+                               RADDAT           000000   29023300
023400+D                                     ')                                                 RADDAT           000000   29023400
023500+D  i_string                   4096A   const   varying                                    RADDAT           000000   29023500
023600+D  i_mask                     4096A   const   varying                                    RADDAT           000000   29023600
023700+D  i_wildcard                    2A   const   options(*nopass)                                            000000   29023700
023800+ *                                                                                       RADDAT           000000   29023800
023900+ *  Returns the last position of a search argument in the source string.                 RADDAT           000000   29023900
024000+D f_scanR...                                                                                              000000   29024000
024100+D                 PR             5I 0                                                    RADDAT           000000   29024100
024200+D                                     extproc('BASICS1R3+                                RADDAT           000000   29024200
024300+D                                     _f_scanR+                                                           000000   29024300
024400+D                                     ')                                                 RADDAT           000000   29024400
024500+D  i_searchArg                4096A   const   varying                                    RADDAT           000000   29024500
024600+D  i_string                   4096A   const   varying                                    RADDAT           000000   29024600
024700+D  i_start                       5I 0 const   options(*nopass)                                            000000   29024700
024800+ *                                                                                       RADDAT           000000   29024800
024900+ *  Converts a given buffer to a character string of hex values.                         RADDAT           000000   29024900
025000+D f_cvtBufferToHexString...                                                              RADDAT           000000   29025000
025100+D                 PR          4096A           varying                                    RADDAT           000000   29025100
025200+D                                     extproc('BASICS1R3+                                RADDAT           000000   29025200
025300+D                                     _f_cvtBufferToHexString+                           RADDAT           000000   29025300
025400+D                                     ')                                                 RADDAT           000000   29025400
025500+D  i_pBuffer                      *   const                                              RADDAT           000000   29025500
025600+D  i_size                        5U 0 const                                              RADDAT           000000   29025600
025700+ *                                                                                       RADDAT           000000   29025700
025800+ *  Converts a given pointer to a character string of hex values.                        RADDAT           000000   29025800
025900+D f_cvtPtrToHexString...                                                                 RADDAT           000000   29025900
026000+D                 PR            32A           varying                                    RADDAT           000000   29026000
026100+D                                     extproc('BASICS1R3+                                RADDAT           000000   29026100
026200+D                                     _f_cvtPtrToHexString+                              RADDAT           000000   29026200
026300+D                                     ')                                                 RADDAT           000000   29026300
026400+D  i_pointer                      *   value                                              RADDAT           000000   29026400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     65
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
026500+ *                                                                                       RADDAT           000000   29026500
026600+ *  Converts a given character string of hex values to a buffer.                         RADDAT           000000   29026600
026700+D f_cvtHexStringToBuffer...                                                              RADDAT           000000   29026700
026800+D                 PR             5U 0 opdesc                                                              000000   29026800
026900+D                                     extproc('BASICS1R3+                                RADDAT           000000   29026900
027000+D                                     _f_cvtHexStringToBuffer+                           RADDAT           000000   29027000
027100+D                                     ')                                                 RADDAT           000000   29027100
027200+D  i_string                   4096A   const   options(*varsize)                          RADDAT           000000   29027200
027300+D  i_pBuffer                      *   const                                              RADDAT           000000   29027300
027400+D  i_size                        5U 0 const                                              RADDAT           000000   29027400
027500+ *                                                                                       RADDAT           000000   29027500
027600+ *  Tests, if a given string contains an invalid character                                                000000   29027600
027700+ *  at a given position.                                                                                  000000   29027700
027800+D f_containsInvalidCharAt...                                                                              000000   29027800
027900+D                 PR              N                                                                       000000   29027900
028000+D                                     extproc('BASICS1R3+                                RADDAT           000000   29028000
028100+D                                     _f_containsInvalidCharAt+                          RADDAT           000000   29028100
028200+D                                     ')                                                 RADDAT           000000   29028200
028300+D  i_string                   4096A   const  varying options(*varsize)                                    000000   29028300
028400+D  i_pos                        10I 0 const                                              RADDAT           000000   29028400
028500+D  i_chars                     256A   const  varying options(*varsize)                   RADDAT           000000   29028500
028600+ *                                                                                       RADDAT           000000   29028600
028700+ *  Tests, if a given string contains a specific string                                                   000000   29028700
028800+ *  at a given position.                                                                                  000000   29028800
028900+D f_containsStringAt...                                                                                   000000   29028900
029000+D                 PR              N                                                                       000000   29029000
029100+D                                     extproc('BASICS1R3+                                RADDAT           000000   29029100
029200+D                                     _f_containsStringAt+                                                000000   29029200
029300+D                                     ')                                                 RADDAT           000000   29029300
029400+D  i_string                   4096A   const  varying options(*varsize)                   RADDAT           000000   29029400
029500+D  i_pos                        10I 0 const                                              RADDAT           000000   29029500
029600+D  i_subString                4096A   const  varying options(*varsize)                   RADDAT           000000   29029600
029700+ *                                                                                       RADDAT           000000   29029700
029800+ *  Returns the string representation of a qualified object name.                        RADDAT           000000   29029800
029900+D f_objName...                                                                           RADDAT           000000   29029900
030000+D                 PR            21A          varying                                     RADDAT           000000   29030000
030100+D                                     extproc('BASICS1R3+                                RADDAT           000000   29030100
030200+D                                     _f_objName+                                        RADDAT           000000   29030200
030300+D                                     ')                                                 RADDAT           000000   29030300
030400+D  i_qObj                             const  likeds(qObj_t   )                           RADDAT           000000   29030400
030500+D  i_lib                        10A   const  options(*nopass)                                             000000   29030500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     66
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
030600+ *                                                                                       RADDAT           000000   29030600
030700+ *  Replaces unprintable characters in a given string.                                   RADDAT           000000   29030700
030800+D f_rplUnPrtChars...                                                                     RADDAT           000000   29030800
030900+D                 PR          4096A          varying                                     RADDAT           000000   29030900
031000+D                                     extproc('BASICS1R3+                                RADDAT           000000   29031000
031100+D                                     _f_rplUnPrtChars+                                  RADDAT           000000   29031100
031200+D                                     ')                                                 RADDAT           000000   29031200
031300+D  i_string                   4096A   const  varying                                     RADDAT           000000   29031300
031400+D  i_rplChar                     1A   const  varying options(*nopass)                    RADDAT           000000   29031400
031500+ *                                                                                       RADDAT           000000   29031500
031600+ *  Formats a given date according to a given puicture string.                           RADDAT           000000   29031600
031700+D f_formatDate...                                                                        RADDAT           000000   29031700
031800+D                 PR           128A          varying                                     RADDAT           000000   29031800
031900+D                                     extproc('BASICS1R3+                                RADDAT           000000   29031900
032000+D                                     _f_formatDate+                                     RADDAT           000000   29032000
032100+D                                     ')                                                 RADDAT           000000   29032100
032200+D  i_date                         D   const                                              RADDAT           000000   29032200
032300+D  i_picture                   128A   const  varying                                     RADDAT           000000   29032300
032400+ *                                                                                       RADDAT           000000   29032400
032500+ *  Parses a string representing a date.                                                 RADDAT           000000   29032500
032600+D f_parseDate...                                                                         RADDAT           000000   29032600
032700+D                 PR              D                                                      RADDAT           000000   29032700
032800+D                                     extproc('BASICS1R3+                                RADDAT           000000   29032800
032900+D                                     _f_parseDate+                                      RADDAT           000000   29032900
033000+D                                     ')                                                 RADDAT           000000   29033000
033100+D  i_string                    128A   const  varying                                     RADDAT           000000   29033100
033200+D  i_picture                   128A   const  varying options(*nopass)                    RADDAT           000000   29033200
033300+ *                                                                                       RADDAT           000000   29033300
033400+ *  Konstants: f_formatMemSize                                                           RADDAT           000000   29033400
033500+D cMEM_SIZE_BYTE...                                                                                       000000   29033500
033600+D                 C                   'B'                                                                 000000   29033600
033700+D cMEM_SIZE_KILO_BYTE...                                                                                  000000   29033700
033800+D                 C                   'KB'                                                                000000   29033800
033900+D cMEM_SIZE_MEGA_BYTE...                                                                                  000000   29033900
034000+D                 C                   'MB'                                                                000000   29034000
034100+D cMEM_SIZE_GIGA_BYTE...                                                                                  000000   29034100
034200+D                 C                   'GB'                                                                000000   29034200
034300+D cMEM_SIZE_TERA_BYTE...                                                                                  000000   29034300
034400+D                 C                   'TB'                                                                000000   29034400
034500+D cMEM_SIZE_PETA_BYTE...                                                                                  000000   29034500
034600+D                 C                   'PB'                                                                000000   29034600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     67
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
034700+D cMEM_SIZE_EXA_BYTE...                                                                                   000000   29034700
034800+D                 C                   'EB'                                                                000000   29034800
034900+D cMEM_SIZE_ZETTA_BYTE...                                                                                 000000   29034900
035000+D                 C                   'ZB'                                                                000000   29035000
035100+ *                                                                                       RADDAT           000000   29035100
035200+ *  Converts a given memory size in bytes to string.                                     RADDAT           000000   29035200
035300+D f_formatMemSize...                                                                     RADDAT           000000   29035300
035400+D                 PR           128A          varying                                     RADDAT           000000   29035400
035500+D                                     extproc('BASICS1R3+                                RADDAT           000000   29035500
035600+D                                     _f_formatMemSize+                                  RADDAT           000000   29035600
035700+D                                     ')                                                 RADDAT           000000   29035700
035800+D  i_memSize                    20I 0 const                                              RADDAT           000000   29035800
035900+D  io_unit                       2A          options(*nopass: *omit)                     RADDAT           000000   29035900
036000+D  i_decPos                      3I 0 const  options(*nopass: *omit)                     RADDAT           000000   29036000
036100+ *                                                                                       RADDAT           000000   29036100
036200+ * -----------------------------------------                                             RADDAT           000000   29036200
036300+ *  Imported prototypes                                                                  RADDAT           000000   29036300
036400+ * -----------------------------------------                                             RADDAT           000000   29036400
036500+ /COPY QBASICS1,PBASICS1R2                   API Error Handling                          RADDAT      CPY  000000   29036500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R2                                                   *                    30
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R2)                                *                    30
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    30
        * Text 'description' . . . . :  SrvPgm: Basic Routines - API Error Handling  cpybk           *                    30
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R2)                                                                               000000   30000100
            LINES EXCLUDED: 72
007400+ /ENDIF                                                                                  RADDAT           000000   30007400
036600+ /COPY QBASICS1,PBASICS1R4                   Assert/This/Caller                          RADDAT      CPY  000000   29036600
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R4                                                   *                    31
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R4)                                *                    31
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    31
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Assert/This/Caller  cpybk           *                    31
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R4)                                                                               000000   31000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   31004200
036700+ /COPY QBASICS1,PBASICS1R7                   Mathematics                                 RADDAT      CPY  000000   29036700
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R7                                                   *                    32
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     68
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R7)                                *                    32
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    32
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Mathematics         cpybk           *                    32
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R7)                                                              RADDAT           000000   32000100
            LINES EXCLUDED: 137
013900+ /ENDIF                                                                                  RADDAT           000000   32013900
036800+ *                                                                                       RADDAT           000000   29036800
036900+ /ENDIF                                                                                  RADDAT           000000   29036900
013300+ /COPY QBASICS1,PBASICS1R4                   Assert/This/Caller                          RADDAT      CPY  000000   28013300
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R4                                                   *                    33
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R4)                                *                    33
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    33
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Assert/This/Caller  cpybk           *                    33
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R4)                                                                               000000   33000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   33004200
013400+ *                                                                                       RADDAT           000000   28013400
013500+ /if defined(C_COMPILER)                                                                                  000000   28013500
            LINES EXCLUDED: 1
013700+ /endif                                                                                                   000000   28013700
013800+ *                                                                                       RADDAT           000000   28013800
013900+ /ENDIF                                                                                  RADDAT           000000   28013900
022600+ *                                                                                       RADDAT           000000   21022600
022700+ /ENDIF                                                                                  RADDAT           000000   21022700
004100+ *                                                                                       RADDAT           000000   19004100
004200+ /ENDIF                                                                                  RADDAT           000000   19004200
022900+ /COPY QBASICS1,PBASICS1R5                   Objects                                     RADDAT      CPY  000000    9022900
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R5                                                   *                    34
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R5)                                *                    34
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    34
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Objects             cpybk           *                    34
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R5)                                                                               000000   34000100
            LINES EXCLUDED: 225
022700+ /ENDIF                                                                                  RADDAT           000000   34022700
023000+ *                                                                                       RADDAT           000000    9023000
023100+ /ENDIF                                                                                  RADDAT           000000    9023100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     69
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002500+ /COPY QBASICS1,PBASICS1R2                   API Error Handling                                      CPY  000000    8002500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R2                                                   *                    35
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R2)                                *                    35
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    35
        * Text 'description' . . . . :  SrvPgm: Basic Routines - API Error Handling  cpybk           *                    35
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R2)                                                                               000000   35000100
            LINES EXCLUDED: 72
007400+ /ENDIF                                                                                  RADDAT           000000   35007400
002600+ /COPY QBASICS1,PBASICS1R3                   Strings                                                 CPY  000000    8002600
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R3                                                   *                    36
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R3)                                *                    36
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    36
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Strings             cpybk           *                    36
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R3)                                                                               000000   36000100
            LINES EXCLUDED: 367
036900+ /ENDIF                                                                                  RADDAT           000000   36036900
002700+ /COPY QBASICS1,PBASICS1R4                   Assert/This                                             CPY  000000    8002700
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R4                                                   *                    37
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R4)                                *                    37
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    37
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Assert/This/Caller  cpybk           *                    37
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R4)                                                                               000000   37000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   37004200
002800+ /COPY QBASICS1,PBASICS1R5                   Objects                                                 CPY  000000    8002800
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R5                                                   *                    38
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R5)                                *                    38
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    38
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Objects             cpybk           *                    38
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R5)                                                                               000000   38000100
            LINES EXCLUDED: 225
022700+ /ENDIF                                                                                  RADDAT           000000   38022700
002900+ /COPY QBASICS1,PBASICS1R6                   Commands                                                CPY  000000    8002900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     70
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R6                                                   *                    39
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R6)                                *                    39
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    39
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Commands/Environmentcpybk           *                    39
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R6)                                                                               000000   39000100
000200+ /DEFINE BASICS1R6                                                                                        000000   39000200
000300+ *                                                                                       RADDAT           000000   39000300
000400+ *  Reference fields                                                                     RADDAT           000000   39000400
000500+ /COPY QBASICS1,FDENVVAR                                                                 RADDAT      CPY  000000   39000500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDENVVAR                                                     *                    40
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDENVVAR)                                  *                    40
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    40
        * Text 'description' . . . . :  cpybk   : Environment variable                               *                    40
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(envVar_t  )                                                             RADDAT           000000   40000100
000200+ /DEFINE envVar_t                                                                        RADDAT           000000   40000200
000300+ * ============================================================= *                       RADDAT           000000   40000300
000400+ *   Environment variable.                                       *                       RADDAT           000000   40000400
000500+ * ============================================================= *                       RADDAT           000000   40000500
000600+ *                                                                                       RADDAT           000000   40000600
000700+D envVar_t        DS                  qualified           based(pDummy)                  RADDAT           000000   40000700
000800+D  name                        128A   varying                                                             000000   40000800
000900+D  value                      1024A   varying                                            RADDAT           000000   40000900
001000+ *                                                                                       RADDAT           000000   40001000
001100+ /ENDIF                                                                                  RADDAT           000000   40001100
000600+ *                                                                                       RADDAT           000000   39000600
000700+ *  Constants                                                                            RADDAT           000000   39000700
000800+ *  f_execute:            Refer to description of QCAPCMD API for details                RADDAT           000000   39000800
000900+D cCMD_PRC_EXC_QCMDEXC...                                                                RADDAT           000000   39000900
001000+D                 C                   const(0)                                           RADDAT           000000   39001000
001100+D cCMD_PRC_CHK_QCMDCHK...                                                                RADDAT           000000   39001100
001200+D                 C                   const(1)                                           RADDAT           000000   39001200
001300+D cCMD_PRC_EXC_CMDLINE...                                                                RADDAT           000000   39001300
001400+D                 C                   const(2)                                           RADDAT           000000   39001400
001500+D cCMD_PRC_CHK_CMDLINE...                                                                RADDAT           000000   39001500
001600+D                 C                   const(3)                                           RADDAT           000000   39001600
001700+D cCMD_PRC_CHK_CL_STMT...                                                                RADDAT           000000   39001700
001800+D                 C                   const(4)                                           RADDAT           000000   39001800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     71
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001900+D cCMD_PRC_CHK_SEU_CL...                                                                 RADDAT           000000   39001900
002000+D                 C                   const(5)                                           RADDAT           000000   39002000
002100+D cCMD_PRC_CHK_SEU_CMD...                                                                RADDAT           000000   39002100
002200+D                 C                   const(6)                                           RADDAT           000000   39002200
002300+D cCMD_PRC_CHK_SEU_BND...                                                                RADDAT           000000   39002300
002400+D                 C                   const(7)                                           RADDAT           000000   39002400
002500+D cCMD_PRC_CHK_UDO...                                                                    RADDAT           000000   39002500
002600+D                 C                   const(8)                                           RADDAT           000000   39002600
002700+D cCMD_PRC_CHK_SEU_CLLE...                                                               RADDAT           000000   39002700
002800+D                 C                   const(9)                                           RADDAT           000000   39002800
002900+ *                                                                                       RADDAT           000000   39002900
003000+D cCMD_PRC_PROMPT_NEVER...                                                               RADDAT           000000   39003000
003100+D                 C                   const(0)                                           RADDAT           000000   39003100
003200+D cCMD_PRC_PROMPT_ALWAYS...                                                              RADDAT           000000   39003200
003300+D                 C                   const(x'00010000')                    65536        RADDAT           000000   39003300
003400+D cCMD_PRC_PROMPT_ON_REQUEST...                                                          RADDAT           000000   39003400
003500+D                 C                   const(x'00020000')                   131072        RADDAT           000000   39003500
003600+D cCMD_PRC_PROMPT_HELP...                                                                RADDAT           000000   39003600
003700+D                 C                   const(x'00040000')                   262144        RADDAT           000000   39003700
003800+ *                                                                                       RADDAT           000000   39003800
003900+ *  Executes a CL command.                                                               RADDAT           000000   39003900
004000+D f_execute...                                                                           RADDAT           000000   39004000
004100+D                 PR              N   opdesc                                             RADDAT           000000   39004100
004200+D                                     extproc('BASICS1R6+                                RADDAT           000000   39004200
004300+D                                     _f_execute+                                        RADDAT           000000   39004300
004400+D                                     ')                                                 RADDAT           000000   39004400
004500+D  i_cmd                     16384A   const  options(*varsize)                           RADDAT           000000   39004500
004600+D  i_typeCmdPrc                 10I 0 const  options(*nopass: *omit)                     RADDAT           000000   39004600
004700+D  o_msg                                     likeds(msg_t    )                           RADDAT           000000   39004700
004800+D                                            options(*nopass: *omit)                     RADDAT           000000   39004800
004900+ *                                                                                       RADDAT           000000   39004900
005000+ *  Gets an environment variable.                                                                         000000   39005000
005100+D f_getEnvVar...                                                                         RADDAT           000000   39005100
005200+D                 PR          1024A          varying                                     RADDAT           000000   39005200
005300+D                                     extproc('BASICS1R6+                                RADDAT           000000   39005300
005400+D                                     _f_getEnvVar+                                      RADDAT           000000   39005400
005500+D                                     ')                                                 RADDAT           000000   39005500
005600+D  i_pEnvVar                      *   const  options(*string)                            RADDAT           000000   39005600
005700+ *                                                                                       RADDAT           000000   39005700
005800+ *  Sets an environment variable.                                                        RADDAT           000000   39005800
005900+D f_setEnvVar...                                                                         RADDAT           000000   39005900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     72
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
006000+D                 PR              N                                                      RADDAT           000000   39006000
006100+D                                     extproc('BASICS1R6+                                RADDAT           000000   39006100
006200+D                                     _f_setEnvVar+                                      RADDAT           000000   39006200
006300+D                                     ')                                                 RADDAT           000000   39006300
006400+D  i_envVar                           const  like(envVar_t.name )                        RADDAT           000000   39006400
006500+D  i_value                            const  like(envVar_t.value)                        RADDAT           000000   39006500
006600+ *                                                                                       RADDAT           000000   39006600
006700+ *  Deletes an environment variable.                                                     RADDAT           000000   39006700
006800+D f_delEnvVar...                                                                         RADDAT           000000   39006800
006900+D                 PR              N                                                      RADDAT           000000   39006900
007000+D                                     extproc('BASICS1R6+                                RADDAT           000000   39007000
007100+D                                     _f_delEnvVar+                                      RADDAT           000000   39007100
007200+D                                     ')                                                 RADDAT           000000   39007200
007300+D  i_pEnvVar                      *   const  options(*string)                            RADDAT           000000   39007300
007400+ *                                                                                       RADDAT           000000   39007400
007500+ *  Gets the number of environment variables.                                            RADDAT           000000   39007500
007600+D f_getNumEnvVar...                                                                      RADDAT           000000   39007600
007700+D                 PR            10I 0                                                    RADDAT           000000   39007700
007800+D                                     extproc('BASICS1R6+                                RADDAT           000000   39007800
007900+D                                     _f_getNumEnvVar+                                   RADDAT           000000   39007900
008000+D                                     ')                                                 RADDAT           000000   39008000
008100+ *                                                                                       RADDAT           000000   39008100
008200+ *  Gets an environment variable by its index.                                           RADDAT           000000   39008200
008300+D f_getEnvVarByIndex...                                                                  RADDAT           000000   39008300
008400+D                 PR                         likeds(envVar_t )                           RADDAT           000000   39008400
008500+D                                     extproc('BASICS1R6+                                RADDAT           000000   39008500
008600+D                                     _f_getEnvVarByIndex+                               RADDAT           000000   39008600
008700+D                                     ')                                                 RADDAT           000000   39008700
008800+D  i_index                      10I 0 const                                              RADDAT           000000   39008800
008900+ *                                                                                       RADDAT           000000   39008900
009000+ *  Waits for the specified number of seconds.                                           RADDAT           000000   39009000
009100+D p_wait...                                                                              RADDAT           000000   39009100
009200+D                 PR                                                                     RADDAT           000000   39009200
009300+D                                     extproc('BASICS1R6+                                RADDAT           000000   39009300
009400+D                                     _p_wait+                                           RADDAT           000000   39009400
009500+D                                     ')                                                 RADDAT           000000   39009500
009600+D  i_seconds                    10I 0 const                                              RADDAT           000000   39009600
009700+ *                                                                                       RADDAT           000000   39009700
009800+ * -----------------------------------------                                             RADDAT           000000   39009800
009900+ *  Imported prototypes                                                                  RADDAT           000000   39009900
010000+ * -----------------------------------------                                             RADDAT           000000   39010000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     73
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
010100+ /COPY QBASICS1,PBASICS1R1                   Messages                                    RADDAT      CPY  000000   39010100
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R1                                                   *                    41
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R1)                                *                    41
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    41
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Messages            cpybk           *                    41
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PBASICSR1)                                                                               000000   41000100
            LINES EXCLUDED: 229
023100+ /ENDIF                                                                                  RADDAT           000000   41023100
010200+ /COPY QBASICS1,PBASICS1R2                   API Error Handling                          RADDAT      CPY  000000   39010200
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R2                                                   *                    42
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R2)                                *                    42
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    42
        * Text 'description' . . . . :  SrvPgm: Basic Routines - API Error Handling  cpybk           *                    42
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R2)                                                                               000000   42000100
            LINES EXCLUDED: 72
007400+ /ENDIF                                                                                  RADDAT           000000   42007400
010300+ *                                                                                       RADDAT           000000   39010300
010400+ /ENDIF                                                                                  RADDAT           000000   39010400
003000+ /COPY QBASICS1,PBASICS1R7                   Mathematics                                             CPY  000000    8003000
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R7                                                   *                    43
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R7)                                *                    43
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    43
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Mathematics         cpybk           *                    43
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R7)                                                              RADDAT           000000   43000100
            LINES EXCLUDED: 137
013900+ /ENDIF                                                                                  RADDAT           000000   43013900
003100+ /COPY QBASICS1,PBASICS1R8                   Handle/Memory                               RADDAT      CPY  000000    8003100
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R8                                                   *                    44
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R8)                                *                    44
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    44
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Handle/Memory       cpybk           *                    44
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R8)                                                              RADDAT           000000   44000100
000200+ /DEFINE BASICS1R8                                                                       RADDAT           000000   44000200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     74
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000300+ *                                                                                       RADDAT           000000   44000300
000400+D HANDLE_handle_t...                                                                     RADDAT           000000   44000400
000500+D                 S             10I 0                         based(pDummy)              RADDAT           000000   44000500
000600+D HANDLE_type_t...                                                                       RADDAT           000000   44000600
000700+D                 S             20A                           based(pDummy)              RADDAT           000000   44000700
000800+ *                                                                                       RADDAT           000000   44000800
000900+ *  Creates a new handle.                                                                RADDAT           000000   44000900
001000+D HANDLE_new...                                                                          RADDAT           000000   44001000
001100+D                 PR                         like(HANDLE_handle_t)                       RADDAT           000000   44001100
001200+D                                     extproc('BASICS1R8+                                RADDAT           000000   44001200
001300+D                                     _HANDLE_new+                                       RADDAT           000000   44001300
001400+D                                     ')                                                 RADDAT           000000   44001400
001500+D  i_type                             value  like(HANDLE_type_t  )                       RADDAT           000000   44001500
001600+D  i_size                       10U 0 value                                              RADDAT           000000   44001600
001700+ *                                                                                       RADDAT           000000   44001700
001800+ *  Creates a NULL handle.                                                               RADDAT           000000   44001800
001900+D HANDLE_null...                                                                         RADDAT           000000   44001900
002000+D                 PR                         like(HANDLE_handle_t)                       RADDAT           000000   44002000
002100+D                                     extproc('BASICS1R8+                                RADDAT           000000   44002100
002200+D                                     _HANDLE_null+                                      RADDAT           000000   44002200
002300+D                                     ')                                                 RADDAT           000000   44002300
002400+ *                                                                                       RADDAT           000000   44002400
002500+ *  Checks a handle for a NULL value.                                                    RADDAT           000000   44002500
002600+D HANDLE_isNull...                                                                       RADDAT           000000   44002600
002700+D                 PR              N                                                      RADDAT           000000   44002700
002800+D                                     extproc('BASICS1R8+                                RADDAT           000000   44002800
002900+D                                     _HANDLE_isNull+                                    RADDAT           000000   44002900
003000+D                                     ')                                                 RADDAT           000000   44003000
003100+D  i_handle                           value  like(HANDLE_handle_t)                       RADDAT           000000   44003100
003200+ *                                                                                       RADDAT           000000   44003200
003300+ *  Checks the type of a given handle.                                                   RADDAT           000000   44003300
003400+D HANDLE_isTypeOf...                                                                     RADDAT           000000   44003400
003500+D                 PR              N                                                      RADDAT           000000   44003500
003600+D                                     extproc('BASICS1R8+                                RADDAT           000000   44003600
003700+D                                     _HANDLE_isTypeOf+                                  RADDAT           000000   44003700
003800+D                                     ')                                                 RADDAT           000000   44003800
003900+D  i_handle                           value  like(HANDLE_handle_t)                       RADDAT           000000   44003900
004000+D  i_type                             value  like(HANDLE_type_t  )                       RADDAT           000000   44004000
004100+ *                                                                                       RADDAT           000000   44004100
004200+ *  Gets the pointer of a given handle.                                                  RADDAT           000000   44004200
004300+D HANDLE_getPointer...                                                                   RADDAT           000000   44004300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     75
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004400+D                 PR              *                                                      RADDAT           000000   44004400
004500+D                                     extproc('BASICS1R8+                                RADDAT           000000   44004500
004600+D                                     _HANDLE_getPointer+                                RADDAT           000000   44004600
004700+D                                     ')                                                 RADDAT           000000   44004700
004800+D  i_handle                           value  like(HANDLE_handle_t)                       RADDAT           000000   44004800
004900+ *                                                                                       RADDAT           000000   44004900
005000+ *  Deletes a given handle.                                                              RADDAT           000000   44005000
005100+D HANDLE_delete...                                                                       RADDAT           000000   44005100
005200+D                 PR                                                                     RADDAT           000000   44005200
005300+D                                     extproc('BASICS1R8+                                RADDAT           000000   44005300
005400+D                                     _HANDLE_delete+                                    RADDAT           000000   44005400
005500+D                                     ')                                                 RADDAT           000000   44005500
005600+D  io_handle                                 like(HANDLE_handle_t)                       RADDAT           000000   44005600
005700+ *                                                                                       SCHOLZ           000000   44005700
005800+ *  Allocates a memory cell and keeps track of it.                                       SCHOLZ           000000   44005800
005900+D MEMORY_allocate...                                                                     SCHOLZ           000000   44005900
006000+D                 PR              *                                                      SCHOLZ           000000   44006000
006100+D                                     extproc('BASICS1R8+                                RADDAT           000000   44006100
006200+D                                     _MEMORY_allocate+                                  RADDAT           000000   44006200
006300+D                                     ')                                                 RADDAT           000000   44006300
006400+D  io_aMemList                    *                                                                       000000   44006400
006500+D  i_size                       10I 0 value                                              SCHOLZ           000000   44006500
006600+ *                                                                                       SCHOLZ           000000   44006600
006700+ *  Frees all allocated memory cells.                                                    SCHOLZ           000000   44006700
006800+D MEMORY_freeAll...                                                                      SCHOLZ           000000   44006800
006900+D                 PR                                                                     SCHOLZ           000000   44006900
007000+D                                     extproc('BASICS1R8+                                RADDAT           000000   44007000
007100+D                                     _MEMORY_freeAll+                                                    000000   44007100
007200+D                                     ')                                                 RADDAT           000000   44007200
007300+D  io_aMemList                    *                                                                       000000   44007300
007400+ *                                                                                       RADDAT           000000   44007400
007500+ *  Frees all given memory cell.                                                         RADDAT           000000   44007500
007600+D MEMORY_free...                                                                         RADDAT           000000   44007600
007700+D                 PR                                                                     RADDAT           000000   44007700
007800+D                                     extproc('BASICS1R8+                                RADDAT           000000   44007800
007900+D                                     _MEMORY_free+                                      RADDAT           000000   44007900
008000+D                                     ')                                                 RADDAT           000000   44008000
008100+D  io_aMemList                    *                                                      RADDAT           000000   44008100
008200+D  io_pMem                        *                                                      RADDAT           000000   44008200
008300+ *                                                                                       RADDAT           000000   44008300
008400+D MemoryManager_manager_t...                                                             RADDAT           000000   44008400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     76
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008500+D                 DS                         qualified   based(pDummy)                   RADDAT           000000   44008500
008600+D  pAllocate                      *          procptr                                     RADDAT           000000   44008600
008700+D  pReallocate                    *          procptr                                     RADDAT           000000   44008700
008800+D  pFree                          *          procptr                                     RADDAT           000000   44008800
008900+ *                                                                                       RADDAT           000000   44008900
009000+ *  Memory Manager -- Returns the default memory manager                                 RADDAT           000000   44009000
009100+D MemoryManager_getDefaultManager...                                                     RADDAT           000000   44009100
009200+D                 PR                  likeds(MemoryManager_manager_t)                    RADDAT           000000   44009200
009300+D                                     extproc('BASICS1R8+                                RADDAT           000000   44009300
009400+D                                     _MemoryManager_getDefaultManager+                  RADDAT           000000   44009400
009500+D                                     ')                                                 RADDAT           000000   44009500
009600+ *                                                                                       RADDAT           000000   44009600
009700+ *  Memory Manager -- Reserve Storage Block                                              RADDAT           000000   44009700
009800+D MemoryManager_allocate...                                                              RADDAT           000000   44009800
009900+D                 PR              *   extproc('BASICS1R8+                                RADDAT           000000   44009900
010000+D                                     _MemoryManager_allocate+                           RADDAT           000000   44010000
010100+D                                     ')                                                 RADDAT           000000   44010100
010200+D  i_size                       10U 0 value                                              RADDAT           000000   44010200
010300+D  i_heap                       10I 0 value  options(*nopass)                            RADDAT           000000   44010300
010400+ *                                                                                       RADDAT           000000   44010400
010500+ *  Memory Manager -- Change Reserved Storage Block Size                                 RADDAT           000000   44010500
010600+D MemoryManager_reallocate...                                                            RADDAT           000000   44010600
010700+D                 PR              *   extproc('BASICS1R8+                                RADDAT           000000   44010700
010800+D                                     _MemoryManager_reallocate+                         RADDAT           000000   44010800
010900+D                                     ')                                                 RADDAT           000000   44010900
011000+D  i_pMem                         *   value                                              RADDAT           000000   44011000
011100+D  i_size                       10U 0 value                                              RADDAT           000000   44011100
011200+ *                                                                                       RADDAT           000000   44011200
011300+ *  Memory Manager -- Release Storage Blocks                                             RADDAT           000000   44011300
011400+D MemoryManager_free...                                                                  RADDAT           000000   44011400
011500+D                 PR                  extproc('BASICS1R8+                                RADDAT           000000   44011500
011600+D                                     _MemoryManager_free+                               RADDAT           000000   44011600
011700+D                                     ')                                                 RADDAT           000000   44011700
011800+D  io_pMem                        *                                                      RADDAT           000000   44011800
011900+ *                                                                                       RADDAT           000000   44011900
012000+ *  Memory Manager -- Creates a new heap.                                                RADDAT           000000   44012000
012100+D MemoryManager_createHeap...                                                            RADDAT           000000   44012100
012200+D                 PR            10I 0                                                    RADDAT           000000   44012200
012300+D                                     extproc('BASICS1R8+                                RADDAT           000000   44012300
012400+D                                     _MemoryManager_createHeap+                         RADDAT           000000   44012400
012500+D                                     ')                                                 RADDAT           000000   44012500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     77
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012600+D  i_initialSize                10I 0 const  options(*nopass: *omit)                     RADDAT           000000   44012600
012700+D  i_increment                  10I 0 const  options(*nopass: *omit)                     RADDAT           000000   44012700
012800+D  i_allocStrat                 10I 0 const  options(*nopass: *omit)                     RADDAT           000000   44012800
012900+ *                                                                                       RADDAT           000000   44012900
013000+ *  Memory Manager -- Deletes an existing heap.                                          RADDAT           000000   44013000
013100+D MemoryManager_deleteHeap...                                                            RADDAT           000000   44013100
013200+D                 PR                                                                     RADDAT           000000   44013200
013300+D                                     extproc('BASICS1R8+                                RADDAT           000000   44013300
013400+D                                     _MemoryManager_deleteHeap+                         RADDAT           000000   44013400
013500+D                                     ')                                                 RADDAT           000000   44013500
013600+D  io_heapID                    10I 0                                                    RADDAT           000000   44013600
013700+ *                                                                                       RADDAT           000000   44013700
013800+ * -----------------------------------------                                             RADDAT           000000   44013800
013900+ *  Imported prototypes                                                                  RADDAT           000000   44013900
014000+ * -----------------------------------------                                             RADDAT           000000   44014000
014100+ /COPY QBASICS1,PBASICS1R4                   Assert/This                                 RADDAT      CPY  000000   44014100
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R4                                                   *                    45
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R4)                                *                    45
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    45
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Assert/This/Caller  cpybk           *                    45
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R4)                                                                               000000   45000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   45004200
014200+ *                                                                                       RADDAT           000000   44014200
014300+ /ENDIF                                                                                  RADDAT           000000   44014300
003200+ /COPY QBASICS1,PBASICS1R9                   Display Information                         RADDAT      CPY  000000    8003200
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R9                                                   *                    46
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R9)                                *                    46
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    46
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Display Information                 *                    46
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R9)                                                                               000000   46000100
000200+ /DEFINE BASICS1R9                                                                                        000000   46000200
000300+ *                                                                                       RADDAT           000000   46000300
000400+ *  Reference Fields                                                                     RADDAT           000000   46000400
000500+D display_mode_t  S              4A   based(pDummy)                                      RADDAT           000000   46000500
000600+ *                                                                                       RADDAT           000000   46000600
000700+ *  Constants                                                                            RADDAT           000000   46000700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     78
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000800+D cDISPLAY_MODE_DS3...                                                                   RADDAT           000000   46000800
000900+D                 C                   const('*DS3')                                      RADDAT           000000   46000900
001000+D cDISPLAY_MODE_DS4...                                                                   RADDAT           000000   46001000
001100+D                 C                   const('*DS4')                                      RADDAT           000000   46001100
001200+ *                                                                                       RADDAT           000000   46001200
001300+ *  Returns the current display mode.                                                    RADDAT           000000   46001300
001400+D Display_getMode...                                                                     RADDAT           000000   46001400
001500+D                 PR                         like(display_mode_t)                        RADDAT           000000   46001500
001600+D                                     extproc('BASICS1R9+                                RADDAT           000000   46001600
001700+D                                     _Display_getMode+                                  RADDAT           000000   46001700
001800+D                                     ')                                                 RADDAT           000000   46001800
001900+ *                                                                                       RADDAT           000000   46001900
002000+ *  Returns cTrue if the display device support 27x132 mode.                             RADDAT           000000   46002000
002100+D Display_supportsDS4...                                                                 RADDAT           000000   46002100
002200+D                 PR              N                                                      RADDAT           000000   46002200
002300+D                                     extproc('BASICS1R9+                                RADDAT           000000   46002300
002400+D                                     _Display_supportsDS4+                              RADDAT           000000   46002400
002500+D                                     ')                                                 RADDAT           000000   46002500
002600+ *                                                                                       RADDAT           000000   46002600
002700+ *  Returns cTrue if the display device supports GUI characters.                         RADDAT           000000   46002700
002800+D Display_supportsGUI...                                                                 RADDAT           000000   46002800
002900+D                 PR              N                                                      RADDAT           000000   46002900
003000+D                                     extproc('BASICS1R9+                                RADDAT           000000   46003000
003100+D                                     _Display_supportsGUI+                              RADDAT           000000   46003100
003200+D                                     ')                                                 RADDAT           000000   46003200
003300+ *                                                                                       RADDAT           000000   46003300
003400+ *  Returns the number of rows that can be displayed on the screen.                      RADDAT           000000   46003400
003500+D Display_getRows...                                                                     RADDAT           000000   46003500
003600+D                 PR             5I 0                                                    RADDAT           000000   46003600
003700+D                                     extproc('BASICS1R9+                                RADDAT           000000   46003700
003800+D                                     _Display_getRows+                                  RADDAT           000000   46003800
003900+D                                     ')                                                 RADDAT           000000   46003900
004000+D  i_dspMode                          const  like(display_mode_t)                        RADDAT           000000   46004000
004100+D                                            options(*nopass)                            RADDAT           000000   46004100
004200+ *                                                                                       RADDAT           000000   46004200
004300+ *  Returns the number of columns that can be displayed on the screen.                   RADDAT           000000   46004300
004400+D Display_getColumns...                                                                  RADDAT           000000   46004400
004500+D                 PR             5I 0                                                    RADDAT           000000   46004500
004600+D                                     extproc('BASICS1R9+                                RADDAT           000000   46004600
004700+D                                     _Display_getColumns+                               RADDAT           000000   46004700
004800+D                                     ')                                                 RADDAT           000000   46004800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     79
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004900+D  i_dspMode                          const  like(display_mode_t)                        RADDAT           000000   46004900
005000+D                                            options(*nopass)                            RADDAT           000000   46005000
005100+ *                                                                                       RADDAT           000000   46005100
005200+ * -----------------------------------------                                             RADDAT           000000   46005200
005300+ *  Deprecated procedure names                                                           RADDAT           000000   46005300
005400+ * -----------------------------------------                                             RADDAT           000000   46005400
005500+ *                                                                                       RADDAT           000000   46005500
005600+ *  Ermittelt den aktuellen Bildschirmmodus: *DS3 oder *DS4                              RADDAT           000000   46005600
005700+D f_getDisplayMode...                                                                    RADDAT           000000   46005700
005800+D                 PR                         like(display_mode_t)                        RADDAT           000000   46005800
005900+D                                     extproc('BASICS1R9+                                RADDAT           000000   46005900
006000+D                                     _Display_getMode+                                  RADDAT           000000   46006000
006100+D                                     ')                                                 RADDAT           000000   46006100
006200+ *                                                                                       RADDAT           000000   46006200
006300+ * -----------------------------------------                                             RADDAT           000000   46006300
006400+ *  Imported prototypes                                                                  RADDAT           000000   46006400
006500+ * -----------------------------------------                                             RADDAT           000000   46006500
006600+ /COPY QBASICS1,PBASICS1R2                   API Error Handling                          RADDAT      CPY  000000   46006600
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R2                                                   *                    47
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R2)                                *                    47
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    47
        * Text 'description' . . . . :  SrvPgm: Basic Routines - API Error Handling  cpybk           *                    47
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R2)                                                                               000000   47000100
            LINES EXCLUDED: 72
007400+ /ENDIF                                                                                  RADDAT           000000   47007400
006700+ *                                                                                       RADDAT           000000   46006700
006800+ /ENDIF                                                                                  RADDAT           000000   46006800
003300+ /COPY QBASICS1,PBASICS1RA                   BasicList                                   RADDAT      CPY  000000    8003300
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RA                                                   *                    48
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RA)                                *                    48
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    48
        * Text 'description' . . . . :  SrvPgm: Basic Routines - BasicList           cpybk           *                    48
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RA)                                                              RADDAT           000000   48000100
000200+ /DEFINE BASICS1RA                                                                       RADDAT           000000   48000200
000300+ *                                                                                       RADDAT           000000   48000300
000400+D BasicList_handle_t...                                                                                   000000   48000400
000500+D                 S               *                      based(pDummy)                                    000000   48000500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     80
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000600+D BasicList_type_t...                                                                                     000000   48000600
000700+D                 S             32A                      based(pDummy)                   RADDAT           000000   48000700
000800+ *                                                                                       RADDAT           000000   48000800
000900+D cBASICLIST_REMOVE_ALL...                                                                                000000   48000900
001000+D                 C                          const(-1)                                   RADDAT           000000   48001000
001100+ *                                                                                       RADDAT           000000   48001100
001200+D cBASICLIST_TYPE_UNKNOWN...                                                                              000000   48001200
001300+D                 C                          const('*N')                                                  000000   48001300
001400+D cBASICLIST_TYPE_VSTRING...                                                                              000000   48001400
001500+D                 C                          const('*VSTRING')                                            000000   48001500
001600+D cBASICLIST_TYPE_CHARACTER...                                                                            000000   48001600
001700+D                 C                          const('*CHAR')                                               000000   48001700
001800+D cBASICLIST_TYPE_INTEGER...                                                                              000000   48001800
001900+D                 C                          const('*INT')                               RADDAT           000000   48001900
002000+D cBASICLIST_TYPE_UINTEGER...                                                                             000000   48002000
002100+D                 C                          const('*UINT')                              RADDAT           000000   48002100
002200+D cBASICLIST_TYPE_POINTER...                                                                              000000   48002200
002300+D                 C                          const('*POINTER')                           RADDAT           000000   48002300
002400+ *                                                                                       RADDAT           000000   48002400
002500+ *  Creates a new BasicList.                                                             RADDAT           000000   48002500
002600+D BasicList_new...                                                                       RADDAT           000000   48002600
002700+D                 PR                         like(BasicList_handle_t)                    RADDAT           000000   48002700
002800+D                                     extproc('BASICS1RA+                                RADDAT           000000   48002800
002900+D                                     _BasicList_new+                                    RADDAT           000000   48002900
003000+D                                     ')                                                 RADDAT           000000   48003000
003100+D  i_extType                          const  like(BasicList_type_t  )                                     000000   48003100
003200+D                                            options(*nopass: *omit)                     RADDAT           000000   48003200
003300+D  i_increment                  10U 0 const  options(*nopass: *omit)                                      000000   48003300
003400+D  i_heapID                     10I 0 const  options(*nopass: *omit)                     RADDAT           000000   48003400
003500+ *                                                                                       RADDAT           000000   48003500
003600+ *  Clones a given BasicList.                                                            RADDAT           000000   48003600
003700+D BasicList_clone...                                                                     RADDAT           000000   48003700
003800+D                 PR                         like(BasicList_handle_t)                    RADDAT           000000   48003800
003900+D                                     extproc('BASICS1RA+                                RADDAT           000000   48003900
004000+D                                     _BasicList_clone+                                  RADDAT           000000   48004000
004100+D                                     ')                                                 RADDAT           000000   48004100
004200+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48004200
004300+ *                                                                                       RADDAT           000000   48004300
004400+ *  Returns the element from the specified position.                                     RADDAT           000000   48004400
004500+D BasicList_get...                                                                       RADDAT           000000   48004500
004600+D                 PR              *                                                      RADDAT           000000   48004600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     81
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004700+D                                     extproc('BASICS1RA+                                RADDAT           000000   48004700
004800+D                                     _BasicList_get+                                    RADDAT           000000   48004800
004900+D                                     ')                                                 RADDAT           000000   48004900
005000+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48005000
005100+D  i_index                      10I 0 const                                              RADDAT           000000   48005100
005200+D  i_pEntry                       *   const  options(*nopass)                            RADDAT           000000   48005200
005300+D  i_length                     10I 0 const  options(*nopass)                            RADDAT           000000   48005300
005400+ *                                                                                       RADDAT           000000   48005400
005500+ *  Returns the string element from the specified position.                              RADDAT           000000   48005500
005600+D BasicList_getString...                                                                 RADDAT           000000   48005600
005700+D                 PR          4096A          varying                                     RADDAT           000000   48005700
005800+D                                     extproc('BASICS1RA+                                RADDAT           000000   48005800
005900+D                                     _BasicList_getString+                              RADDAT           000000   48005900
006000+D                                     ')                                                 RADDAT           000000   48006000
006100+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48006100
006200+D  i_index                      10I 0 const                                              RADDAT           000000   48006200
006300+ *                                                                                       RADDAT           000000   48006300
006400+ *  Returns the pointer element from the specified position.                             RADDAT           000000   48006400
006500+D BasicList_getPointer...                                                                RADDAT           000000   48006500
006600+D                 PR              *                                                      RADDAT           000000   48006600
006700+D                                     extproc('BASICS1RA+                                RADDAT           000000   48006700
006800+D                                     _BasicList_getPointer+                             RADDAT           000000   48006800
006900+D                                     ')                                                 RADDAT           000000   48006900
007000+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48007000
007100+D  i_index                      10I 0 const                                              RADDAT           000000   48007100
007200+ *                                                                                       RADDAT           000000   48007200
007300+ *  Returns the type of the list.                                                        RADDAT           000000   48007300
007400+D BasicList_getListType...                                                                                000000   48007400
007500+D                 PR                         like(BasicList_type_t  )                    RADDAT           000000   48007500
007600+D                                     extproc('BASICS1RA+                                RADDAT           000000   48007600
007700+D                                     _BasicList_getListType+                                             000000   48007700
007800+D                                     ')                                                 RADDAT           000000   48007800
007900+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48007900
008000+ *                                                                                       RADDAT           000000   48008000
008100+ *  Returns the type of the list.                                                        RADDAT           000000   48008100
008200+D BasicList_isListTypeOf...                                                                               000000   48008200
008300+D                 PR              N                                                                       000000   48008300
008400+D                                     extproc('BASICS1RA+                                RADDAT           000000   48008400
008500+D                                     _BasicList_isListTypeOf+                                            000000   48008500
008600+D                                     ')                                                 RADDAT           000000   48008600
008700+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48008700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     82
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008800+D  i_type                             const  like(BasicList_type_t  )                                     000000   48008800
008900+ *                                                                                       RADDAT           000000   48008900
009000+ *  Checks an list entry for a given type.                                                                000000   48009000
009100+D BasicList_isTypeOf...                                                                                   000000   48009100
009200+D                 PR              N                                                                       000000   48009200
009300+D                                     extproc('BASICS1RA+                                RADDAT           000000   48009300
009400+D                                     _BasicList_isTypeOf+                                                000000   48009400
009500+D                                     ')                                                 RADDAT           000000   48009500
009600+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48009600
009700+D  i_index                      10I 0 const                                                               000000   48009700
009800+D  i_type                             const  like(BasicList_type_t  )                                     000000   48009800
009900+ *                                                                                       RADDAT           000000   48009900
010000+ *  Returns the type of the specified list entry.                                                         000000   48010000
010100+D BasicList_getType...                                                                                    000000   48010100
010200+D                 PR                         like(BasicList_type_t  )                                     000000   48010200
010300+D                                     extproc('BASICS1RA+                                RADDAT           000000   48010300
010400+D                                     _BasicList_getType+                                                 000000   48010400
010500+D                                     ')                                                 RADDAT           000000   48010500
010600+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48010600
010700+D  i_index                      10I 0 const                                                               000000   48010700
010800+ *                                                                                       RADDAT           000000   48010800
010900+ *  Returns the size of of an element.                                                   RADDAT           000000   48010900
011000+D BasicList_getSize...                                                                   RADDAT           000000   48011000
011100+D                 PR            10I 0                                                    RADDAT           000000   48011100
011200+D                                     extproc('BASICS1RA+                                RADDAT           000000   48011200
011300+D                                     _BasicList_getSize+                                RADDAT           000000   48011300
011400+D                                     ')                                                 RADDAT           000000   48011400
011500+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48011500
011600+D  i_index                      10I 0 const                                              RADDAT           000000   48011600
011700+ *                                                                                       RADDAT           000000   48011700
011800+ *  Adds an element to a given BasicList.                                                                 000000   48011800
011900+D BasicList_add...                                                                       RADDAT           000000   48011900
012000+D                 PR            10I 0                                                    RADDAT           000000   48012000
012100+D                                     extproc('BASICS1RA+                                RADDAT           000000   48012100
012200+D                                     _BasicList_add+                                    RADDAT           000000   48012200
012300+D                                     ')                                                 RADDAT           000000   48012300
012400+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48012400
012500+D  i_pEntry                       *   const  options(*string)                            RADDAT           000000   48012500
012600+D  i_length                     10I 0 const  options(*nopass: *omit)                     RADDAT           000000   48012600
012700+D  i_type                             const  like(BasicList_type_t  )                                     000000   48012700
012800+D                                            options(*nopass: *omit)                                      000000   48012800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     83
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012900+ *                                                                                       RADDAT           000000   48012900
013000+ *  Adds a NULL value to a given BasicList.                                              RADDAT           000000   48013000
013100+D BasicList_addNull...                                                                   RADDAT           000000   48013100
013200+D                 PR            10I 0                                                    RADDAT           000000   48013200
013300+D                                     extproc('BASICS1RA+                                RADDAT           000000   48013300
013400+D                                     _BasicList_addNull+                                RADDAT           000000   48013400
013500+D                                     ')                                                 RADDAT           000000   48013500
013600+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48013600
013700+ *                                                                                       RADDAT           000000   48013700
013800+ *  Adds a string element to a given BasicList.                                                           000000   48013800
013900+D BasicList_addString...                                                                                  000000   48013900
014000+D                 PR            10I 0                                                    RADDAT           000000   48014000
014100+D                                     extproc('BASICS1RA+                                RADDAT           000000   48014100
014200+D                                     _BasicList_addString+                              RADDAT           000000   48014200
014300+D                                     ')                                                 RADDAT           000000   48014300
014400+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48014400
014500+D  i_string                   4096A   const  varying                                     RADDAT           000000   48014500
014600+ *                                                                                       RADDAT           000000   48014600
014700+ *  Adds a pointer element to a given BasicList.                                                          000000   48014700
014800+D BasicList_addPointer...                                                                                 000000   48014800
014900+D                 PR            10I 0                                                    RADDAT           000000   48014900
015000+D                                     extproc('BASICS1RA+                                RADDAT           000000   48015000
015100+D                                     _BasicList_addPointer+                             RADDAT           000000   48015100
015200+D                                     ')                                                 RADDAT           000000   48015200
015300+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48015300
015400+D  i_pointer                      *   const                                              RADDAT           000000   48015400
015500+ *                                                                                       RADDAT           000000   48015500
015600+ *  Searches the list for a given element.                                               RADDAT           000000   48015600
015700+D BasicList_find...                                                                      RADDAT           000000   48015700
015800+D                 PR            10I 0                                                    RADDAT           000000   48015800
015900+D                                     extproc('BASICS1RA+                                RADDAT           000000   48015900
016000+D                                     _BasicList_find+                                                    000000   48016000
016100+D                                     ')                                                 RADDAT           000000   48016100
016200+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48016200
016300+D  i_pEntry                       *   const  options(*string)                            RADDAT           000000   48016300
016400+D  i_length                     10I 0 const  options(*nopass)                            RADDAT           000000   48016400
016500+ *                                                                                       RADDAT           000000   48016500
016600+ *  Searches the list for a given string.                                                                 000000   48016600
016700+D BasicList_findString...                                                                                 000000   48016700
016800+D                 PR            10I 0                                                    RADDAT           000000   48016800
016900+D                                     extproc('BASICS1RA+                                RADDAT           000000   48016900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     84
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
017000+D                                     _BasicList_findString+                                              000000   48017000
017100+D                                     ')                                                 RADDAT           000000   48017100
017200+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48017200
017300+D  i_string                   4096A   const  varying                                     RADDAT           000000   48017300
017400+ *                                                                                       RADDAT           000000   48017400
017500+ *  Changes the element at the specified position in this list.                          RADDAT           000000   48017500
017600+D BasicList_set...                                                                       RADDAT           000000   48017600
017700+D                 PR            10I 0                                                    RADDAT           000000   48017700
017800+D                                     extproc('BASICS1RA+                                RADDAT           000000   48017800
017900+D                                     _BasicList_set+                                    RADDAT           000000   48017900
018000+D                                     ')                                                 RADDAT           000000   48018000
018100+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48018100
018200+D  i_index                      10I 0 const                                              RADDAT           000000   48018200
018300+D  i_pEntry                       *   const  options(*string)                            RADDAT           000000   48018300
018400+D  i_length                     10I 0 const  options(*nopass: *omit)                     RADDAT           000000   48018400
018500+D  i_type                             const  like(BasicList_type_t  )                    RADDAT           000000   48018500
018600+D                                            options(*nopass: *omit)                     RADDAT           000000   48018600
018700+ *                                                                                       RADDAT           000000   48018700
018800+ *  Changes the element at the specified position to NULL.                               RADDAT           000000   48018800
018900+D BasicList_setNull...                                                                   RADDAT           000000   48018900
019000+D                 PR            10I 0                                                    RADDAT           000000   48019000
019100+D                                     extproc('BASICS1RA+                                RADDAT           000000   48019100
019200+D                                     _BasicList_setNull+                                RADDAT           000000   48019200
019300+D                                     ')                                                 RADDAT           000000   48019300
019400+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48019400
019500+D  i_index                      10I 0 const                                              RADDAT           000000   48019500
019600+ *                                                                                       RADDAT           000000   48019600
019700+ *  Changes the string at the specified position in this list.                           RADDAT           000000   48019700
019800+D BasicList_setString...                                                                 RADDAT           000000   48019800
019900+D                 PR            10I 0                                                    RADDAT           000000   48019900
020000+D                                     extproc('BASICS1RA+                                RADDAT           000000   48020000
020100+D                                     _BasicList_setString+                              RADDAT           000000   48020100
020200+D                                     ')                                                 RADDAT           000000   48020200
020300+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48020300
020400+D  i_index                      10I 0 const                                              RADDAT           000000   48020400
020500+D  i_string                   4096A   const  varying                                     RADDAT           000000   48020500
020600+ *                                                                                       RADDAT           000000   48020600
020700+ *  Changes the pointer at the specified position in this list.                          RADDAT           000000   48020700
020800+D BasicList_setPointer...                                                                RADDAT           000000   48020800
020900+D                 PR            10I 0                                                    RADDAT           000000   48020900
021000+D                                     extproc('BASICS1RA+                                RADDAT           000000   48021000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     85
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
021100+D                                     _BasicList_setPointer+                             RADDAT           000000   48021100
021200+D                                     ')                                                 RADDAT           000000   48021200
021300+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48021300
021400+D  i_index                      10I 0 const                                              RADDAT           000000   48021400
021500+D  i_pointer                      *   const                                              RADDAT           000000   48021500
021600+ *                                                                                       RADDAT           000000   48021600
021700+ *  Specifies an auto-sort function for this list.                                       RADDAT           000000   48021700
021800+D BasicList_setAutoSort...                                                               RADDAT           000000   48021800
021900+D                 PR              N                                                      RADDAT           000000   48021900
022000+D                                     extproc('BASICS1RA+                                RADDAT           000000   48022000
022100+D                                     _BasicList_setAutoSort+                                             000000   48022100
022200+D                                     ')                                                 RADDAT           000000   48022200
022300+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48022300
022400+D  i_pSortFnc                     *   const  procptr                                     RADDAT           000000   48022400
022500+ *                                                                                       RADDAT           000000   48022500
022600+ *  Removes the element at the specified position in this list.                          RADDAT           000000   48022600
022700+D BasicList_remove...                                                                    RADDAT           000000   48022700
022800+D                 PR            10I 0                                                    RADDAT           000000   48022800
022900+D                                     extproc('BASICS1RA+                                RADDAT           000000   48022900
023000+D                                     _BasicList_remove+                                 RADDAT           000000   48023000
023100+D                                     ')                                                 RADDAT           000000   48023100
023200+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48023200
023300+D  i_index                      10I 0 const                                              RADDAT           000000   48023300
023400+ *                                                                                       RADDAT           000000   48023400
023500+ *  Returns the number of lements in this list.                                          RADDAT           000000   48023500
023600+D BasicList_getNumE...                                                                   RADDAT           000000   48023600
023700+D                 PR            10I 0                                                    RADDAT           000000   48023700
023800+D                                     extproc('BASICS1RA+                                RADDAT           000000   48023800
023900+D                                     _BasicList_getNumE+                                RADDAT           000000   48023900
024000+D                                     ')                                                 RADDAT           000000   48024000
024100+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48024100
024200+ *                                                                                       RADDAT           000000   48024200
024300+ *  Returns the heap ID of a given BasicList.                                            RADDAT           000000   48024300
024400+D BasicList_getHeapID...                                                                 RADDAT           000000   48024400
024500+D                 PR            10I 0                                                    RADDAT           000000   48024500
024600+D                                     extproc('BASICS1RA+                                RADDAT           000000   48024600
024700+D                                     _BasicList_getHeapID+                              RADDAT           000000   48024700
024800+D                                     ')                                                 RADDAT           000000   48024800
024900+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48024900
025000+ *                                                                                       RADDAT           000000   48025000
025100+ *  Sorts a list using the specified sort function.                                      RADDAT           000000   48025100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     86
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
025200+D BasicList_sort...                                                                      RADDAT           000000   48025200
025300+D                 PR              N                                                      RADDAT           000000   48025300
025400+D                                     extproc('BASICS1RA+                                RADDAT           000000   48025400
025500+D                                     _BasicList_sort+                                   RADDAT           000000   48025500
025600+D                                     ')                                                 RADDAT           000000   48025600
025700+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48025700
025800+D  i_pSortFnc                     *   const  procptr                                     RADDAT           000000   48025800
025900+ *                                                                                       RADDAT           000000   48025900
026000+ *  Returns cTrue if a given list is sorted.                                                              000000   48026000
026100+D BasicList_isSorted...                                                                                   000000   48026100
026200+D                 PR              N                                                      RADDAT           000000   48026200
026300+D                                     extproc('BASICS1RA+                                RADDAT           000000   48026300
026400+D                                     _BasicList_isSorted+                                                000000   48026400
026500+D                                     ')                                                 RADDAT           000000   48026500
026600+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48026600
026700+ *                                                                                       RADDAT           000000   48026700
026800+ *  Removes all entries from a given list.                                               RADDAT           000000   48026800
026900+D BasicList_clear...                                                                     RADDAT           000000   48026900
027000+D                 PR            10I 0                                                    RADDAT           000000   48027000
027100+D                                     extproc('BASICS1RA+                                RADDAT           000000   48027100
027200+D                                     _BasicList_clear+                                  RADDAT           000000   48027200
027300+D                                     ')                                                 RADDAT           000000   48027300
027400+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48027400
027500+ *                                                                                       RADDAT           000000   48027500
027600+ *  Returns the total size of memory used by this list.                                  RADDAT           000000   48027600
027700+D BasicList_getTotalSize...                                                              RADDAT           000000   48027700
027800+D                 PR            20I 0                                                    RADDAT           000000   48027800
027900+D                                     extproc('BASICS1RA+                                RADDAT           000000   48027900
028000+D                                     _BasicList_getTotalSize+                           RADDAT           000000   48028000
028100+D                                     ')                                                 RADDAT           000000   48028100
028200+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48028200
028300+ *                                                                                       RADDAT           000000   48028300
028400+ *  Deletes a given BasicList.                                                           RADDAT           000000   48028400
028500+D BasicList_delete...                                                                    RADDAT           000000   48028500
028600+D                 PR            10I 0                                                    RADDAT           000000   48028600
028700+D                                     extproc('BASICS1RA+                                RADDAT           000000   48028700
028800+D                                     _BasicList_delete+                                 RADDAT           000000   48028800
028900+D                                     ')                                                 RADDAT           000000   48028900
029000+D  io_pList                                  like(BasicList_handle_t)                    RADDAT           000000   48029000
029100+ *                                                                                       RADDAT           000000   48029100
029200+ *  Returns a BasicList NULL handle.                                                     RADDAT           000000   48029200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     87
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
029300+D BasicList_null...                                                                      RADDAT           000000   48029300
029400+D                 PR                         like(BasicList_handle_t)                    RADDAT           000000   48029400
029500+D                                     extproc('BASICS1RA+                                RADDAT           000000   48029500
029600+D                                     _BasicList_null+                                   RADDAT           000000   48029600
029700+D                                     ')                                                 RADDAT           000000   48029700
029800+ *                                                                                       RADDAT           000000   48029800
029900+ *  Checks a given BasicList handle for a NULL value.                                                     000000   48029900
030000+D BasicList_isNull...                                                                    RADDAT           000000   48030000
030100+D                 PR              N                                                      RADDAT           000000   48030100
030200+D                                     extproc('BASICS1RA+                                RADDAT           000000   48030200
030300+D                                     _BasicList_isNull+                                 RADDAT           000000   48030300
030400+D                                     ')                                                 RADDAT           000000   48030400
030500+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48030500
030600+ *                                                                                       RADDAT           000000   48030600
030700+ *  Checks a given BasicList entry for a NULL value.                                                      000000   48030700
030800+D BasicList_isNullValue...                                                               RADDAT           000000   48030800
030900+D                 PR              N                                                      RADDAT           000000   48030900
031000+D                                     extproc('BASICS1RA+                                RADDAT           000000   48031000
031100+D                                     _BasicList_isNullValue+                            RADDAT           000000   48031100
031200+D                                     ')                                                 RADDAT           000000   48031200
031300+D  i_pList                            const  like(BasicList_handle_t)                    RADDAT           000000   48031300
031400+D  i_index                      10I 0 const                                              RADDAT           000000   48031400
031500+ *                                                                                       RADDAT           000000   48031500
031600+ * -----------------------------------------                                             RADDAT           000000   48031600
031700+ *  Imported prototypes                                                                  RADDAT           000000   48031700
031800+ * -----------------------------------------                                             RADDAT           000000   48031800
031900+ /COPY QBASICS1,PBASICS1R4                                                                           CPY  000000   48031900
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R4                                                   *                    49
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R4)                                *                    49
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    49
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Assert/This/Caller  cpybk           *                    49
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R4)                                                                               000000   49000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   49004200
032000+ /COPY QBASICS1,PBASICS1R8                                                               RADDAT      CPY  000000   48032000
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R8                                                   *                    50
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R8)                                *                    50
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    50
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     88
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Handle/Memory       cpybk           *                    50
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R8)                                                              RADDAT           000000   50000100
            LINES EXCLUDED: 141
014300+ /ENDIF                                                                                  RADDAT           000000   50014300
032100+ *                                                                                       RADDAT           000000   48032100
032200+ /ENDIF                                                                                  RADDAT           000000   48032200
003400+ /COPY QBASICS1,PBASICS1RB                   BasicStack                                              CPY  000000    8003400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RB                                                   *                    51
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RB)                                *                    51
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    51
        * Text 'description' . . . . :  SrvPgm: Basic Routines - BasicStack          cpybk           *                    51
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RB)                                                              RADDAT           000000   51000100
000200+ /DEFINE BASICS1RB                                                                       RADDAT           000000   51000200
000300+ *                                                                                       RADDAT           000000   51000300
000400+D BasicStack_handle_t...                                                                                  000000   51000400
000500+D                 S                   like(BasicList_handle_t)                                            000000   51000500
000600+D                                     based(pDummy)                                                       000000   51000600
000700+ *                                                                                       RADDAT           000000   51000700
000800+ *  Creates a new BasicStack.                                                            RADDAT           000000   51000800
000900+D BasicStack_new...                                                                      RADDAT           000000   51000900
001000+D                 PR                         like(BasicStack_handle_t  )                 RADDAT           000000   51001000
001100+D                                     extproc('BASICS1RB+                                RADDAT           000000   51001100
001200+D                                     _BasicStack_new+                                                    000000   51001200
001300+D                                     ')                                                 RADDAT           000000   51001300
001400+D  i_increment                  10U 0 const  options(*nopass: *omit)                     RADDAT           000000   51001400
001500+D  i_heapID                     10U 0 const  options(*nopass: *omit)                     RADDAT           000000   51001500
001600+ *                                                                                       RADDAT           000000   51001600
001700+ *  Clones a given BasicStack.   (not yet implemented)                                   RADDAT           000000   51001700
001800+D BasicStack_clone...                                                                    RADDAT           000000   51001800
001900+D                 PR                         like(BasicStack_handle_t  )                 RADDAT           000000   51001900
002000+D                                     extproc('BASICS1RB+                                RADDAT           000000   51002000
002100+D                                     _BasicStack_clone+                                 RADDAT           000000   51002100
002200+D                                     ')                                                 RADDAT           000000   51002200
002300+D  i_pStack                           const  like(BasicStack_handle_t  )                 RADDAT           000000   51002300
002400+ *                                                                                       RADDAT           000000   51002400
002500+ *  Gets the last entry from top of the stack without removing it from stack.            RADDAT           000000   51002500
002600+D BasicStack_peek...                                                                     RADDAT           000000   51002600
002700+D                 PR              *                                                      RADDAT           000000   51002700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     89
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002800+D                                     extproc('BASICS1RB+                                RADDAT           000000   51002800
002900+D                                     _BasicStack_peek+                                  RADDAT           000000   51002900
003000+D                                     ')                                                 RADDAT           000000   51003000
003100+D  i_pStack                           const  like(BasicStack_handle_t  )                 RADDAT           000000   51003100
003200+D  i_pEntry                       *   const  options(*nopass)                            RADDAT           000000   51003200
003300+D  i_length                     10I 0 const  options(*nopass)                            RADDAT           000000   51003300
003400+ *                                                                                       RADDAT           000000   51003400
003500+ *  Removes the element at the top of the stack and returnns that element.                                000000   51003500
003600+D BasicStack_pop...                                                                                       000000   51003600
003700+D                 PR              *                                                      RADDAT           000000   51003700
003800+D                                     extproc('BASICS1RB+                                RADDAT           000000   51003800
003900+D                                     _BasicStack_pop+                                                    000000   51003900
004000+D                                     ')                                                 RADDAT           000000   51004000
004100+D  i_pStack                           const  like(BasicStack_handle_t  )                                  000000   51004100
004200+D  i_pEntry                       *   const                                                               000000   51004200
004300+D  i_length                     10I 0 const                                                               000000   51004300
004400+ *                                                                                       RADDAT           000000   51004400
004500+ *  Pushes an item onto the top of the stack.                                                             000000   51004500
004600+D BasicStack_push...                                                                     RADDAT           000000   51004600
004700+D                 PR            10I 0                                                    RADDAT           000000   51004700
004800+D                                     extproc('BASICS1RB+                                RADDAT           000000   51004800
004900+D                                     _BasicStack_push+                                                   000000   51004900
005000+D                                     ')                                                 RADDAT           000000   51005000
005100+D  i_pStack                           const  like(BasicStack_handle_t  )                                  000000   51005100
005200+D  i_pEntry                       *   const  options(*string)                            RADDAT           000000   51005200
005300+D  i_length                     10I 0 const  options(*nopass)                            RADDAT           000000   51005300
005400+ *                                                                                       RADDAT           000000   51005400
005500+ *  Returns the size of of the element that is on top of this stack.                     RADDAT           000000   51005500
005600+D BasicStack_getSize...                                                                                   000000   51005600
005700+D                 PR            10I 0                                                    RADDAT           000000   51005700
005800+D                                     extproc('BASICS1RB+                                RADDAT           000000   51005800
005900+D                                     _BasicStack_getSize+                                                000000   51005900
006000+D                                     ')                                                 RADDAT           000000   51006000
006100+D  i_pStack                           const  like(BasicStack_handle_t  )                                  000000   51006100
006200+ *                                                                                       RADDAT           000000   51006200
006300+ *  Returns the number of elements in this stack.                                        RADDAT           000000   51006300
006400+D BasicStack_getNumE...                                                                                   000000   51006400
006500+D                 PR            10I 0                                                    RADDAT           000000   51006500
006600+D                                     extproc('BASICS1RB+                                RADDAT           000000   51006600
006700+D                                     _BasicStack_getNumE+                                                000000   51006700
006800+D                                     ')                                                 RADDAT           000000   51006800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     90
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
006900+D  i_pStack                           const  like(BasicStack_handle_t  )                                  000000   51006900
007000+ *                                                                                       RADDAT           000000   51007000
007100+ *  Returns the heap ID of a given BasicList.                                            RADDAT           000000   51007100
007200+D BasicStack_getHeapID...                                                                RADDAT           000000   51007200
007300+D                 PR            10I 0                                                    RADDAT           000000   51007300
007400+D                                     extproc('BASICS1RB+                                RADDAT           000000   51007400
007500+D                                     _BasicStack_getHeapID+                             RADDAT           000000   51007500
007600+D                                     ')                                                 RADDAT           000000   51007600
007700+D  i_pStack                           const  like(BasicStack_handle_t  )                 RADDAT           000000   51007700
007800+ *                                                                                       RADDAT           000000   51007800
007900+ *  Removes all entries from a given stack.                                              RADDAT           000000   51007900
008000+D BasicStack_clear...                                                                    RADDAT           000000   51008000
008100+D                 PR            10I 0                                                    RADDAT           000000   51008100
008200+D                                     extproc('BASICS1RB+                                RADDAT           000000   51008200
008300+D                                     _BasicStack_clear+                                 RADDAT           000000   51008300
008400+D                                     ')                                                 RADDAT           000000   51008400
008500+D  i_pStack                           const  like(BasicStack_handle_t  )                 RADDAT           000000   51008500
008600+ *                                                                                       RADDAT           000000   51008600
008700+ *  Deletes a given BasicStack.                                                                           000000   51008700
008800+D BasicStack_delete...                                                                                    000000   51008800
008900+D                 PR            10I 0                                                    RADDAT           000000   51008900
009000+D                                     extproc('BASICS1RB+                                RADDAT           000000   51009000
009100+D                                     _BasicStack_delete+                                                 000000   51009100
009200+D                                     ')                                                 RADDAT           000000   51009200
009300+D  io_pStack                                 like(BasicStack_handle_t  )                 RADDAT           000000   51009300
009400+ *                                                                                       RADDAT           000000   51009400
009500+ *  Returns a BasicStack NULL handle.                                                                     000000   51009500
009600+D BasicStack_null...                                                                                      000000   51009600
009700+D                 PR                         like(BasicStack_handle_t  )                                  000000   51009700
009800+D                                     extproc('BASICS1RB+                                RADDAT           000000   51009800
009900+D                                     _BasicStack_null+                                                   000000   51009900
010000+D                                     ')                                                 RADDAT           000000   51010000
010100+ *                                                                                       RADDAT           000000   51010100
010200+ *  Checks a given BasicStack handle for a NULL value.                                                    000000   51010200
010300+D BasicStack_isNull...                                                                                    000000   51010300
010400+D                 PR              N                                                      RADDAT           000000   51010400
010500+D                                     extproc('BASICS1RB+                                RADDAT           000000   51010500
010600+D                                     _BasicStack_isNull+                                                 000000   51010600
010700+D                                     ')                                                 RADDAT           000000   51010700
010800+D  i_pStack                           const  like(BasicStack_handle_t  )                                  000000   51010800
010900+ *                                                                                       RADDAT           000000   51010900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     91
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
011000+ * -----------------------------------------                                             RADDAT           000000   51011000
011100+ *  Imported prototypes                                                                  RADDAT           000000   51011100
011200+ * -----------------------------------------                                             RADDAT           000000   51011200
011300+ /COPY QBASICS1,PBASICS1RA                    BasicList                                              CPY  000000   51011300
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RA                                                   *                    52
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RA)                                *                    52
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    52
        * Text 'description' . . . . :  SrvPgm: Basic Routines - BasicList           cpybk           *                    52
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RA)                                                              RADDAT           000000   52000100
            LINES EXCLUDED: 320
032200+ /ENDIF                                                                                  RADDAT           000000   52032200
011400+ /COPY QBASICS1,PBASICS1R4                    Assert/This/Caller                                     CPY  000000   51011400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R4                                                   *                    53
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R4)                                *                    53
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    53
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Assert/This/Caller  cpybk           *                    53
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R4)                                                                               000000   53000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   53004200
011500+ *                                                                                       RADDAT           000000   51011500
011600+ /ENDIF                                                                                  RADDAT           000000   51011600
003500+ /COPY QBASICS1,PBASICS1RC                   BasicMap                                                CPY  000000    8003500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RC                                                   *                    54
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RC)                                *                    54
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    54
        * Text 'description' . . . . :  SrvPgm: Basic Routines - BasicMap            cpybk           *                    54
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RC)                                                              RADDAT           000000   54000100
000200+ /DEFINE BASICS1RC                                                                       RADDAT           000000   54000200
000300+ *                                                                                       RADDAT           000000   54000300
000400+D BasicMap_handle_t...                                                                                    000000   54000400
000500+D                 S                   like(BasicList_handle_t)                                            000000   54000500
000600+D                                                     based(pDummy)                                       000000   54000600
000700+D BasicMap_key_t...                                                                                       000000   54000700
000800+D                 S           4096A   varying         based(pDummy)                                       000000   54000800
000900+ *                                                                                       RADDAT           000000   54000900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     92
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001000+D BasicKeySet_handle_t...                                                                RADDAT           000000   54001000
001100+D                 S               *                   based(pDummy)                                       000000   54001100
001200+ *                                                                                       RADDAT           000000   54001200
001300+ *  Creates a new BasicMap.                                                                               000000   54001300
001400+D BasicMap_new...                                                                                         000000   54001400
001500+D                 PR                         like(BasicMap_handle_t )                                     000000   54001500
001600+D                                     extproc('BASICS1RC+                                RADDAT           000000   54001600
001700+D                                     _BasicMap_new+                                                      000000   54001700
001800+D                                     ')                                                 RADDAT           000000   54001800
001900+D  i_increment                  10U 0 const  options(*nopass: *omit)                     RADDAT           000000   54001900
002000+D  i_heapID                     10I 0 const  options(*nopass: *omit)                     RADDAT           000000   54002000
002100+ *                                                                                       RADDAT           000000   54002100
002200+ *  Clones a given BasicMap.                                                             RADDAT           000000   54002200
002300+D BasicMap_clone...                                                                      RADDAT           000000   54002300
002400+D                 PR                         like(BasicMap_handle_t )                    RADDAT           000000   54002400
002500+D                                     extproc('BASICS1RC+                                RADDAT           000000   54002500
002600+D                                     _BasicMap_clone+                                   RADDAT           000000   54002600
002700+D                                     ')                                                 RADDAT           000000   54002700
002800+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54002800
002900+ *                                                                                       RADDAT           000000   54002900
003000+ *  Removes the mapping for this key from this map if it is present.                                      000000   54003000
003100+D BasicMap_remove...                                                                                      000000   54003100
003200+D                 PR            10I 0                                                                     000000   54003200
003300+D                                     extproc('BASICS1RC+                                RADDAT           000000   54003300
003400+D                                     _BasicMap_remove+                                                   000000   54003400
003500+D                                     ')                                                 RADDAT           000000   54003500
003600+D  i_pMap                             const  like(BasicMap_handle_t )                                     000000   54003600
003700+D  i_key                              const  like(BasicMap_key_t    )                                     000000   54003700
003800+D                                            options(*varsize)                                            000000   54003800
003900+ *                                                                                       RADDAT           000000   54003900
004000+ *  Returns true if this map contains a mapping for the specified key.                   RADDAT           000000   54004000
004100+D BasicMap_containsKey...                                                                RADDAT           000000   54004100
004200+D                 PR              N                                                      RADDAT           000000   54004200
004300+D                                     extproc('BASICS1RC+                                RADDAT           000000   54004300
004400+D                                     _BasicMap_containsKey+                             RADDAT           000000   54004400
004500+D                                     ')                                                 RADDAT           000000   54004500
004600+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54004600
004700+D  i_key                              const  like(BasicMap_key_t    )                    RADDAT           000000   54004700
004800+D                                            options(*varsize)                           RADDAT           000000   54004800
004900+ *                                                                                       RADDAT           000000   54004900
005000+ *  Returns the value to which this map maps the specified key.                                           000000   54005000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     93
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
005100+D BasicMap_get...                                                                                         000000   54005100
005200+D                 PR              *                                                                       000000   54005200
005300+D                                     extproc('BASICS1RC+                                RADDAT           000000   54005300
005400+D                                     _BasicMap_get+                                                      000000   54005400
005500+D                                     ')                                                 RADDAT           000000   54005500
005600+D  i_pMap                             const  like(BasicMap_handle_t )                                     000000   54005600
005700+D  i_key                              const  like(BasicMap_key_t    )                                     000000   54005700
005800+D                                            options(*varsize)                                            000000   54005800
005900+D  i_pEntry                       *   const  options(*nopass)                            RADDAT           000000   54005900
006000+D  i_length                     10I 0 const  options(*nopass)                                             000000   54006000
006100+ *                                                                                       RADDAT           000000   54006100
006200+ *  Returns the string value to which this map maps the specified key.                   RADDAT           000000   54006200
006300+D BasicMap_getString...                                                                  RADDAT           000000   54006300
006400+D                 PR          4096A          varying                                     RADDAT           000000   54006400
006500+D                                     extproc('BASICS1RC+                                RADDAT           000000   54006500
006600+D                                     _BasicMap_getString+                               RADDAT           000000   54006600
006700+D                                     ')                                                 RADDAT           000000   54006700
006800+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54006800
006900+D  i_key                              const  like(BasicMap_key_t    )                    RADDAT           000000   54006900
007000+D                                            options(*varsize)                           RADDAT           000000   54007000
007100+ *                                                                                       RADDAT           000000   54007100
007200+ *  Returns the integer value to which this map maps the specified key.                  RADDAT           000000   54007200
007300+D BasicMap_getInteger...                                                                 RADDAT           000000   54007300
007400+D                 PR            10I 0                                                    RADDAT           000000   54007400
007500+D                                     extproc('BASICS1RC+                                RADDAT           000000   54007500
007600+D                                     _BasicMap_getInteger+                              RADDAT           000000   54007600
007700+D                                     ')                                                 RADDAT           000000   54007700
007800+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54007800
007900+D  i_key                              const  like(BasicMap_key_t    )                    RADDAT           000000   54007900
008000+D                                            options(*varsize)                           RADDAT           000000   54008000
008100+ *                                                                                       RADDAT           000000   54008100
008200+ *  Returns the value addressed by a given index.                                        RADDAT           000000   54008200
008300+D BasicMap_getValueByIndex...                                                            RADDAT           000000   54008300
008400+D                 PR              *                                                      RADDAT           000000   54008400
008500+D                                     extproc('BASICS1RC+                                RADDAT           000000   54008500
008600+D                                     _BasicMap_getValueByIndex+                         RADDAT           000000   54008600
008700+D                                     ')                                                 RADDAT           000000   54008700
008800+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54008800
008900+D  i_index                      10I 0 const                                              RADDAT           000000   54008900
009000+D  i_pEntry                       *   const  options(*nopass)                            RADDAT           000000   54009000
009100+D  i_length                     10I 0 const  options(*nopass)                            RADDAT           000000   54009100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     94
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
009200+ *                                                                                       RADDAT           000000   54009200
009300+ *  Returns the key addressed by a given index.                                          RADDAT           000000   54009300
009400+D BasicMap_getKeyByIndex...                                                              RADDAT           000000   54009400
009500+D                 PR                         like(BasicMap_key_t )                       RADDAT           000000   54009500
009600+D                                     extproc('BASICS1RC+                                RADDAT           000000   54009600
009700+D                                     _BasicMap_getKeyByIndex+                           RADDAT           000000   54009700
009800+D                                     ')                                                 RADDAT           000000   54009800
009900+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54009900
010000+D  i_index                      10I 0 const                                              RADDAT           000000   54010000
010100+ *                                                                                       RADDAT           000000   54010100
010200+ *  Associates the specified value with the specified key in this map.                                    000000   54010200
010300+ *  If the map previously contained a mapping for this key, the old                                       000000   54010300
010400+ *  value is replaced by the specified value.                                                             000000   54010400
010500+D BasicMap_put...                                                                                         000000   54010500
010600+D                 PR            10I 0                                                    RADDAT           000000   54010600
010700+D                                     extproc('BASICS1RC+                                RADDAT           000000   54010700
010800+D                                     _BasicMap_put+                                                      000000   54010800
010900+D                                     ')                                                 RADDAT           000000   54010900
011000+D  i_pMap                             const  like(BasicMap_handle_t )                                     000000   54011000
011100+D  i_key                              const  like(BasicMap_key_t    )                                     000000   54011100
011200+D                                            options(*varsize)                                            000000   54011200
011300+D  i_pEntry                       *   const  options(*string)                            RADDAT           000000   54011300
011400+D  i_length                     10I 0 const  options(*nopass)                            RADDAT           000000   54011400
011500+ *                                                                                       RADDAT           000000   54011500
011600+ *  Associates the specified value with the specified key in this map.                   RADDAT           000000   54011600
011700+ *  If the map previously contained a mapping for this key, the old                      RADDAT           000000   54011700
011800+ *  value is replaced by the specified value.                                            RADDAT           000000   54011800
011900+D BasicMap_putString...                                                                  RADDAT           000000   54011900
012000+D                 PR            10I 0                                                    RADDAT           000000   54012000
012100+D                                     extproc('BASICS1RC+                                RADDAT           000000   54012100
012200+D                                     _BasicMap_putString+                               RADDAT           000000   54012200
012300+D                                     ')                                                 RADDAT           000000   54012300
012400+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54012400
012500+D  i_key                              const  like(BasicMap_key_t    )                    RADDAT           000000   54012500
012600+D                                            options(*varsize)                           RADDAT           000000   54012600
012700+D  i_string                   4096A   const  varying                                     RADDAT           000000   54012700
012800+ *                                                                                       RADDAT           000000   54012800
012900+ *  Associates the specified value with the specified key in this map.                   RADDAT           000000   54012900
013000+ *  If the map previously contained a mapping for this key, the old                      RADDAT           000000   54013000
013100+ *  value is replaced by the specified value.                                            RADDAT           000000   54013100
013200+D BasicMap_putInteger...                                                                 RADDAT           000000   54013200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     95
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
013300+D                 PR            10I 0                                                    RADDAT           000000   54013300
013400+D                                     extproc('BASICS1RC+                                RADDAT           000000   54013400
013500+D                                     _BasicMap_putInteger+                              RADDAT           000000   54013500
013600+D                                     ')                                                 RADDAT           000000   54013600
013700+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54013700
013800+D  i_key                              const  like(BasicMap_key_t    )                    RADDAT           000000   54013800
013900+D                                            options(*varsize)                           RADDAT           000000   54013900
014000+D  i_integer                    10I 0 const                                              RADDAT           000000   54014000
014100+ *                                                                                       RADDAT           000000   54014100
014200+ *  Returns the size of of the element that is associated with this key.                                  000000   54014200
014300+D BasicMap_getSize...                                                                                     000000   54014300
014400+D                 PR            10I 0                                                    RADDAT           000000   54014400
014500+D                                     extproc('BASICS1RC+                                RADDAT           000000   54014500
014600+D                                     _BasicMap_getSize+                                                  000000   54014600
014700+D                                     ')                                                 RADDAT           000000   54014700
014800+D  i_pMap                             const  like(BasicMap_handle_t )                                     000000   54014800
014900+D  i_key                              const  like(BasicMap_key_t    )                                     000000   54014900
015000+D                                            options(*varsize)                                            000000   54015000
015100+ *                                                                                       RADDAT           000000   54015100
015200+ *  Returns the size of of the element that is addressed by a given index.               RADDAT           000000   54015200
015300+D BasicMap_getSizeByIndex...                                                             RADDAT           000000   54015300
015400+D                 PR            10I 0                                                    RADDAT           000000   54015400
015500+D                                     extproc('BASICS1RC+                                RADDAT           000000   54015500
015600+D                                     _BasicMap_getSizeByIndex+                          RADDAT           000000   54015600
015700+D                                     ')                                                 RADDAT           000000   54015700
015800+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54015800
015900+D  i_index                      10I 0 const                                              RADDAT           000000   54015900
016000+ *                                                                                       RADDAT           000000   54016000
016100+ *  Returns the number of key-value mappings in this map.                                                 000000   54016100
016200+D BasicMap_getNumE...                                                                                     000000   54016200
016300+D                 PR            10I 0                                                    RADDAT           000000   54016300
016400+D                                     extproc('BASICS1RC+                                RADDAT           000000   54016400
016500+D                                     _BasicMap_getNumE+                                                  000000   54016500
016600+D                                     ')                                                 RADDAT           000000   54016600
016700+D  i_pMap                             const  like(BasicMap_handle_t )                                     000000   54016700
016800+ *                                                                                       RADDAT           000000   54016800
016900+ *  Returns the heap ID of a given BasicMap.                                             RADDAT           000000   54016900
017000+D BasicMap_getHeapID...                                                                  RADDAT           000000   54017000
017100+D                 PR            10I 0                                                    RADDAT           000000   54017100
017200+D                                     extproc('BASICS1RC+                                RADDAT           000000   54017200
017300+D                                     _BasicMap_getHeapID+                               RADDAT           000000   54017300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     96
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
017400+D                                     ')                                                 RADDAT           000000   54017400
017500+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54017500
017600+ *                                                                                       RADDAT           000000   54017600
017700+ *  Returns a list of all keys that are in a given map.                                  RADDAT           000000   54017700
017800+D BasicMap_getKeys...                                                                    RADDAT           000000   54017800
017900+D                 PR                         like(BasicList_handle_t)                    RADDAT           000000   54017900
018000+D                                     extproc('BASICS1RC+                                RADDAT           000000   54018000
018100+D                                     _BasicMap_getKeys+                                 RADDAT           000000   54018100
018200+D                                     ')                                                 RADDAT           000000   54018200
018300+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54018300
018400+D  i_pSortFnc                     *   const  procptr                                     RADDAT           000000   54018400
018500+D                                            options(*nopass)                            RADDAT           000000   54018500
018600+ *                                                                                       RADDAT           000000   54018600
018700+ *  Returns a list of all values that are in a given map.                                RADDAT           000000   54018700
018800+D BasicMap_getValues...                                                                  RADDAT           000000   54018800
018900+D                 PR                         like(BasicList_handle_t)                    RADDAT           000000   54018900
019000+D                                     extproc('BASICS1RC+                                RADDAT           000000   54019000
019100+D                                     _BasicMap_getValues+                               RADDAT           000000   54019100
019200+D                                     ')                                                 RADDAT           000000   54019200
019300+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54019300
019400+D  i_pSortFnc                     *   const  procptr                                     RADDAT           000000   54019400
019500+D                                            options(*nopass)                            RADDAT           000000   54019500
019600+ *                                                                                       RADDAT           000000   54019600
019700+ *  Removes all entries from a given map.                                                RADDAT           000000   54019700
019800+D BasicMap_clear...                                                                      RADDAT           000000   54019800
019900+D                 PR            10I 0                                                    RADDAT           000000   54019900
020000+D                                     extproc('BASICS1RC+                                RADDAT           000000   54020000
020100+D                                     _BasicMap_clear+                                   RADDAT           000000   54020100
020200+D                                     ')                                                 RADDAT           000000   54020200
020300+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54020300
020400+ *                                                                                       RADDAT           000000   54020400
020500+ *  Deletes a given BasicMap.                                                                             000000   54020500
020600+D BasicMap_delete...                                                                                      000000   54020600
020700+D                 PR            10I 0                                                    RADDAT           000000   54020700
020800+D                                     extproc('BASICS1RC+                                RADDAT           000000   54020800
020900+D                                     _BasicMap_delete+                                                   000000   54020900
021000+D                                     ')                                                 RADDAT           000000   54021000
021100+D  io_pMap                                   like(BasicMap_handle_t )                                     000000   54021100
021200+ *                                                                                       RADDAT           000000   54021200
021300+ *  Returns a BasicMap NULL handle.                                                                       000000   54021300
021400+D BasicMap_null...                                                                                        000000   54021400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     97
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
021500+D                 PR                         like(BasicMap_handle_t )                                     000000   54021500
021600+D                                     extproc('BASICS1RC+                                RADDAT           000000   54021600
021700+D                                     _BasicMap_null+                                                     000000   54021700
021800+D                                     ')                                                 RADDAT           000000   54021800
021900+ *                                                                                       RADDAT           000000   54021900
022000+ *  Checks a given BasicMap handle for a NULL value.                                                      000000   54022000
022100+D BasicMap_isNull...                                                                                      000000   54022100
022200+D                 PR              N                                                      RADDAT           000000   54022200
022300+D                                     extproc('BASICS1RC+                                RADDAT           000000   54022300
022400+D                                     _BasicMap_isNull+                                                   000000   54022400
022500+D                                     ')                                                 RADDAT           000000   54022500
022600+D  i_pMap                             const  like(BasicMap_handle_t )                                     000000   54022600
022700+ *                                                                                       RADDAT           000000   54022700
022800+ *  Produces a list of keys from a given map.                                            RADDAT           000000   54022800
022900+D BasicMap_newKeySet...                                                                  RADDAT           000000   54022900
023000+D                 PR                         like(BasicKeySet_handle_t)                  RADDAT           000000   54023000
023100+D                                     extproc('BASICS1RC+                                RADDAT           000000   54023100
023200+D                                     _BasicMap_newKeySet+                               RADDAT           000000   54023200
023300+D                                     ')                                                 RADDAT           000000   54023300
023400+D  i_pMap                             const  like(BasicMap_handle_t )                    RADDAT           000000   54023400
023500+ *                                                                                       RADDAT           000000   54023500
023600+ *  Returns the first entry of a given key set.                                                           000000   54023600
023700+D BasicKeySet_getFirst...                                                                RADDAT           000000   54023700
023800+D                 PR                         like(BasicMap_key_t    )                                     000000   54023800
023900+D                                     extproc('BASICS1RC+                                RADDAT           000000   54023900
024000+D                                     _BasicKeySet_getFirst+                             RADDAT           000000   54024000
024100+D                                     ')                                                 RADDAT           000000   54024100
024200+D  i_pKeySet                          const  like(BasicKeySet_handle_t)                  RADDAT           000000   54024200
024300+ *                                                                                       RADDAT           000000   54024300
024400+ *  Returns the next entry of a given key set.                                                            000000   54024400
024500+D BasicKeySet_getNext...                                                                 RADDAT           000000   54024500
024600+D                 PR                         like(BasicMap_key_t    )                                     000000   54024600
024700+D                                     extproc('BASICS1RC+                                RADDAT           000000   54024700
024800+D                                     _BasicKeySet_getNext+                              RADDAT           000000   54024800
024900+D                                     ')                                                 RADDAT           000000   54024900
025000+D  i_pKeySet                          const  like(BasicKeySet_handle_t)                  RADDAT           000000   54025000
025100+ *                                                                                       RADDAT           000000   54025100
025200+ *  Deletes the key list associated to a given map.                                      RADDAT           000000   54025200
025300+D BasicKeySet_delete...                                                                  RADDAT           000000   54025300
025400+D                 PR            10I 0                                                    RADDAT           000000   54025400
025500+D                                     extproc('BASICS1RC+                                RADDAT           000000   54025500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     98
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
025600+D                                     _BasicKeySet_delete+                               RADDAT           000000   54025600
025700+D                                     ')                                                 RADDAT           000000   54025700
025800+D  io_pKeySet                                like(BasicKeySet_handle_t)                  RADDAT           000000   54025800
025900+ *                                                                                       RADDAT           000000   54025900
026000+ * -----------------------------------------                                             RADDAT           000000   54026000
026100+ *  Imported prototypes                                                                  RADDAT           000000   54026100
026200+ * -----------------------------------------                                             RADDAT           000000   54026200
026300+ /COPY QBASICS1,PBASICS1RA                    BasicList                                              CPY  000000   54026300
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RA                                                   *                    55
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RA)                                *                    55
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    55
        * Text 'description' . . . . :  SrvPgm: Basic Routines - BasicList           cpybk           *                    55
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RA)                                                              RADDAT           000000   55000100
            LINES EXCLUDED: 320
032200+ /ENDIF                                                                                  RADDAT           000000   55032200
026400+ /COPY QBASICS1,PBASICS1R4                    Assert/This/Caller                                     CPY  000000   54026400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1R4                                                   *                    56
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1R4)                                *                    56
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    56
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Assert/This/Caller  cpybk           *                    56
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1R4)                                                                               000000   56000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   56004200
026500+ *                                                                                       RADDAT           000000   54026500
026600+ /ENDIF                                                                                  RADDAT           000000   54026600
003600+ /COPY QBASICS1,PBASICS1RD                   Url                                         RADDAT      CPY  000000    8003600
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RD                                                   *                    57
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RD)                                *                    57
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    57
        * Text 'description' . . . . :  SrvPgm: Basic Routines - URL                 cpybk           *                    57
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RD)                                                              RADDAT           000000   57000100
000200+ /DEFINE BASICS1RD                                                                       RADDAT           000000   57000200
000300+ *                                                                                       RADDAT           000000   57000300
000400+ /COPY QBASICS1,FDURL                                                                    RADDAT      CPY  000000   57000400
        *--------------------------------------------------------------------------------------------*
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page     99
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * RPG member name  . . . . . :  FDURL                                                        *                    58
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(FDURL)                                     *                    58
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    58
        * Text 'description' . . . . :  cpybk   : URL                                                *                    58
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(url_t)                                                                  RADDAT           000000   58000100
000200+ /DEFINE url_t                                                                           RADDAT           000000   58000200
000300+ *                                                                                       RADDAT           000000   58000300
000400+ *  URL                                                                                  RADDAT           000000   58000400
000500+D url_t           S            446A   varying                                            RADDAT           000000   58000500
000600+ *                                                                                       RADDAT           000000   58000600
000700+ /ENDIF                                                                                  RADDAT           000000   58000700
000500+ *                                                                                       RADDAT           000000   57000500
000600+ *  Error ocdes                                                                          RADDAT           000000   57000600
000700+D cURL_ERROR_EMPTY_URL...                                                                RADDAT           000000   57000700
000800+D                 C                   -1                                                 RADDAT           000000   57000800
000900+D cURL_ERROR_NO_PROTOCOL...                                                              RADDAT           000000   57000900
001000+D                 C                   -2                                                 RADDAT           000000   57001000
001100+D cURL_ERROR_UNSUPPORTED_PROTOCOL...                                                     RADDAT           000000   57001100
001200+D                 C                   -3                                                 RADDAT           000000   57001200
001300+D cURL_ERROR_INVALID_PORT_NUMBER...                                                      RADDAT           000000   57001300
001400+D                 C                   -4                                                 RADDAT           000000   57001400
001500+D cURL_ERROR_UNSUPPORTED_OPERATION...                                                    RADDAT           000000   57001500
001600+D                 C                   -5                                                 RADDAT           000000   57001600
001700+D cURL_ERROR_INVALID_OBJECT_DATA...                                                      RADDAT           000000   57001700
001800+D                 C                   -6                                                 RADDAT           000000   57001800
001900+ *                                                                                       RADDAT           000000   57001900
002000+ *  Creates a new URL.                                                                   RADDAT           000000   57002000
002100+D Url_new...                                                                             RADDAT           000000   57002100
002200+D                 PR                         like(url_t )                                RADDAT           000000   57002200
002300+D                                     extproc('BASICS1RD+                                RADDAT           000000   57002300
002400+D                                     _Url_new+                                          RADDAT           000000   57002400
002500+D                                     ')                                                 RADDAT           000000   57002500
002600+D  i_url                              const  like(url_t )                                RADDAT           000000   57002600
002700+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57002700
002800+ *                                                                                       RADDAT           000000   57002800
002900+ *  Returns the protocol of a given URL.                                                 RADDAT           000000   57002900
003000+D Url_getProtocol...                                                                     RADDAT           000000   57003000
003100+D                 PR                         like(url_t )                                RADDAT           000000   57003100
003200+D                                     extproc('BASICS1RD+                                RADDAT           000000   57003200
003300+D                                     _Url_getProtocol+                                  RADDAT           000000   57003300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    100
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003400+D                                     ')                                                 RADDAT           000000   57003400
003500+D  i_url                              const  like(url_t )                                RADDAT           000000   57003500
003600+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57003600
003700+ *                                                                                       RADDAT           000000   57003700
003800+ *  Sets the protocol of a given URL.                                                    RADDAT           000000   57003800
003900+D Url_setProtocol...                                                                     RADDAT           000000   57003900
004000+D                 PR              N                                                      RADDAT           000000   57004000
004100+D                                     extproc('BASICS1RD+                                RADDAT           000000   57004100
004200+D                                     _Url_setProtocol+                                  RADDAT           000000   57004200
004300+D                                     ')                                                 RADDAT           000000   57004300
004400+D  io_url                                    like(url_t )                                RADDAT           000000   57004400
004500+D  i_protocol                         const  like(url_t ) options(*varsize)              RADDAT           000000   57004500
004600+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57004600
004700+ *                                                                                       RADDAT           000000   57004700
004800+ *  Returns the host name of a given URL.                                                RADDAT           000000   57004800
004900+D Url_getHost...                                                                         RADDAT           000000   57004900
005000+D                 PR                         like(url_t )                                RADDAT           000000   57005000
005100+D                                     extproc('BASICS1RD+                                RADDAT           000000   57005100
005200+D                                     _Url_getHost+                                      RADDAT           000000   57005200
005300+D                                     ')                                                 RADDAT           000000   57005300
005400+D  i_url                              const  like(url_t )                                RADDAT           000000   57005400
005500+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57005500
005600+ *                                                                                       RADDAT           000000   57005600
005700+ *  Sets the host name of a given URL.                                                   RADDAT           000000   57005700
005800+D Url_setHost...                                                                         RADDAT           000000   57005800
005900+D                 PR              N                                                      RADDAT           000000   57005900
006000+D                                     extproc('BASICS1RD+                                RADDAT           000000   57006000
006100+D                                     _Url_setHost+                                      RADDAT           000000   57006100
006200+D                                     ')                                                 RADDAT           000000   57006200
006300+D  io_url                                    like(url_t )                                RADDAT           000000   57006300
006400+D  i_host                             const  like(url_t ) options(*varsize)              RADDAT           000000   57006400
006500+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57006500
006600+ *                                                                                       RADDAT           000000   57006600
006700+ *  Returns the port of a given URL.                                                     RADDAT           000000   57006700
006800+D Url_getPort...                                                                         RADDAT           000000   57006800
006900+D                 PR            10I 0                                                    RADDAT           000000   57006900
007000+D                                     extproc('BASICS1RD+                                RADDAT           000000   57007000
007100+D                                     _Url_getPort+                                      RADDAT           000000   57007100
007200+D                                     ')                                                 RADDAT           000000   57007200
007300+D  i_url                              const  like(url_t    )                             RADDAT           000000   57007300
007400+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57007400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    101
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
007500+ *                                                                                       RADDAT           000000   57007500
007600+ *  Sets the port number of a given URL.                                                 RADDAT           000000   57007600
007700+D Url_setPort...                                                                         RADDAT           000000   57007700
007800+D                 PR              N                                                      RADDAT           000000   57007800
007900+D                                     extproc('BASICS1RD+                                RADDAT           000000   57007900
008000+D                                     _Url_setPort+                                      RADDAT           000000   57008000
008100+D                                     ')                                                 RADDAT           000000   57008100
008200+D  io_url                                    like(url_t )                                RADDAT           000000   57008200
008300+D  i_port                       10I 0 const                                              RADDAT           000000   57008300
008400+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57008400
008500+ *                                                                                       RADDAT           000000   57008500
008600+ *  Returns the path name of a given URL.                                                RADDAT           000000   57008600
008700+D Url_getPath...                                                                         RADDAT           000000   57008700
008800+D                 PR                         like(url_t    )                             RADDAT           000000   57008800
008900+D                                     extproc('BASICS1RD+                                RADDAT           000000   57008900
009000+D                                     _Url_getPath+                                      RADDAT           000000   57009000
009100+D                                     ')                                                 RADDAT           000000   57009100
009200+D  i_url                              const  like(url_t    )                             RADDAT           000000   57009200
009300+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57009300
009400+ *                                                                                       RADDAT           000000   57009400
009500+ *  Sets the path of a given URL.                                                        RADDAT           000000   57009500
009600+D Url_setPath...                                                                         RADDAT           000000   57009600
009700+D                 PR              N                                                      RADDAT           000000   57009700
009800+D                                     extproc('BASICS1RD+                                RADDAT           000000   57009800
009900+D                                     _Url_setPath+                                      RADDAT           000000   57009900
010000+D                                     ')                                                 RADDAT           000000   57010000
010100+D  io_url                                    like(url_t )                                RADDAT           000000   57010100
010200+D  i_path                             const  like(url_t ) options(*varsize)              RADDAT           000000   57010200
010300+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57010300
010400+ *                                                                                       RADDAT           000000   57010400
010500+ *  Returns the file name of a given URL.                                                RADDAT           000000   57010500
010600+D Url_getFile...                                                                         RADDAT           000000   57010600
010700+D                 PR                         like(url_t    )                             RADDAT           000000   57010700
010800+D                                     extproc('BASICS1RD+                                RADDAT           000000   57010800
010900+D                                     _Url_getFile+                                      RADDAT           000000   57010900
011000+D                                     ')                                                 RADDAT           000000   57011000
011100+D  i_url                              const  like(url_t    )                             RADDAT           000000   57011100
011200+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57011200
011300+ *                                                                                       RADDAT           000000   57011300
011400+ *  Sets the file of a given URL.                                                        RADDAT           000000   57011400
011500+D Url_setFile...                                                                         RADDAT           000000   57011500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    102
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
011600+D                 PR              N                                                      RADDAT           000000   57011600
011700+D                                     extproc('BASICS1RD+                                RADDAT           000000   57011700
011800+D                                     _Url_setFile+                                      RADDAT           000000   57011800
011900+D                                     ')                                                 RADDAT           000000   57011900
012000+D  io_url                                    like(url_t )                                RADDAT           000000   57012000
012100+D  i_file                             const  like(url_t ) options(*varsize)              RADDAT           000000   57012100
012200+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57012200
012300+ *                                                                                       RADDAT           000000   57012300
012400+ *  Returns the query part of a given URL.                                               RADDAT           000000   57012400
012500+D Url_getQuery...                                                                        RADDAT           000000   57012500
012600+D                 PR                         like(url_t    )                             RADDAT           000000   57012600
012700+D                                     extproc('BASICS1RD+                                RADDAT           000000   57012700
012800+D                                     _Url_getQuery+                                     RADDAT           000000   57012800
012900+D                                     ')                                                 RADDAT           000000   57012900
013000+D  i_url                              const  like(url_t    )                             RADDAT           000000   57013000
013100+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57013100
013200+ *                                                                                       RADDAT           000000   57013200
013300+ *  Sets the query part of a given URL.                                                  RADDAT           000000   57013300
013400+D Url_setQuery...                                                                        RADDAT           000000   57013400
013500+D                 PR              N                                                      RADDAT           000000   57013500
013600+D                                     extproc('BASICS1RD+                                RADDAT           000000   57013600
013700+D                                     _Url_setQuery+                                     RADDAT           000000   57013700
013800+D                                     ')                                                 RADDAT           000000   57013800
013900+D  io_url                                    like(url_t )                                RADDAT           000000   57013900
014000+D  i_query                            const  like(url_t ) options(*varsize)              RADDAT           000000   57014000
014100+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57014100
014200+ *                                                                                       RADDAT           000000   57014200
014300+ *  Returns the string representation of a given URL.                                    RADDAT           000000   57014300
014400+D Url_toString...                                                                        RADDAT           000000   57014400
014500+D                 PR           512A          varying                                     RADDAT           000000   57014500
014600+D                                     extproc('BASICS1RD+                                RADDAT           000000   57014600
014700+D                                     _Url_toString+                                     RADDAT           000000   57014700
014800+D                                     ')                                                 RADDAT           000000   57014800
014900+D  i_url                              const  like(url_t    )                             RADDAT           000000   57014900
015000+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57015000
015100+ *                                                                                       RADDAT           000000   57015100
015200+ *  Returns the library, file and member of a URL of type 'mbr'.                         RADDAT           000000   57015200
015300+D Url_getMbr...                                                                          RADDAT           000000   57015300
015400+D                 PR              N                                                      RADDAT           000000   57015400
015500+D                                     extproc('BASICS1RD+                                RADDAT           000000   57015500
015600+D                                     _Url_getMbr+                                       RADDAT           000000   57015600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    103
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
015700+D                                     ')                                                 RADDAT           000000   57015700
015800+D  i_url                              const  like(url_t    )                             RADDAT           000000   57015800
015900+D  o_file                       10A          options(*nopass: *omit)                     RADDAT           000000   57015900
016000+D  o_lib                        10A          options(*nopass: *omit)                     RADDAT           000000   57016000
016100+D  o_mbr                        10A          options(*nopass: *omit)                     RADDAT           000000   57016100
016200+D  o_rc                         10I 0        options(*nopass: *omit)                     RADDAT           000000   57016200
016300+ *                                                                                       RADDAT           000000   57016300
016400+ * -----------------------------------------                                             RADDAT           000000   57016400
016500+ *  Imported prototypes                                                                  RADDAT           000000   57016500
016600+ * -----------------------------------------                                             RADDAT           000000   57016600
016700+ *                                                                                       RADDAT           000000   57016700
016800+ /ENDIF                                                                                  RADDAT           000000   57016800
003700+ /COPY QBASICS1,PBASICS1RE                   Date and Time                               RADDAT      CPY  000000    8003700
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RE                                                   *                    59
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RE)                                *                    59
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    59
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Date and Time       cpybk           *                    59
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RE)                                                              RADDAT           000000   59000100
000200+ /DEFINE BASICS1RE                                                                       RADDAT           000000   59000200
000300+ *                                                                                       RADDAT           000000   59000300
000400+ *  Produces a date from a given year, month and day.                                    RADDAT           000000   59000400
000500+D f_dateSerial...                                                                        RADDAT           000000   59000500
000600+D                 PR              D                                                      RADDAT           000000   59000600
000700+D                                     extproc('BASICS1RE+                                RADDAT           000000   59000700
000800+D                                     _f_dateSerial+                                     RADDAT           000000   59000800
000900+D                                     ')                                                 RADDAT           000000   59000900
001000+D  i_year                       10I 0 const                                              RADDAT           000000   59001000
001100+D  i_month                      10I 0 const                                              RADDAT           000000   59001100
001200+D  i_day                        10I 0 const                                              RADDAT           000000   59001200
001300+ *                                                                                       RADDAT           000000   59001300
001400+ * -----------------------------------------                                             RADDAT           000000   59001400
001500+ *  Imported prototypes                                                                  RADDAT           000000   59001500
001600+ * -----------------------------------------                                             RADDAT           000000   59001600
001700+ *                                                                                       RADDAT           000000   59001700
001800+ /ENDIF                                                                                  RADDAT           000000   59001800
003800+ /COPY QBASICS1,PBASICS1RF                   System Values                               RADDAT      CPY  000000    8003800
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RF                                                   *                    60
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RF)                                *                    60
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    104
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    60
        * Text 'description' . . . . :  SrvPgm: Basic Routines - System Values       cpybk           *                    60
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RF)                                                              RADDAT           000000   60000100
000200+ /DEFINE BASICS1RF                                                                       RADDAT           000000   60000200
000300+ *                                                                                       RADDAT           000000   60000300
000400+ *  Retrieves an alpha-numeric system value.                                             RADDAT           000000   60000400
000500+D f_rtvSysVal_char...                                                                    RADDAT           000000   60000500
000600+D                 PR          4096A          varying                                     RADDAT           000000   60000600
000700+D                                     extproc('BASICS1RE+                                RADDAT           000000   60000700
000800+D                                     _f_rtvSysVal_char+                                 RADDAT           000000   60000800
000900+D                                     ')                                                 RADDAT           000000   60000900
001000+D  i_name                       10A   const                                              RADDAT           000000   60001000
001100+D  o_msg                                     likeds(msg_t )                              RADDAT           000000   60001100
001200+D                                            options(*nopass: *omit)                     RADDAT           000000   60001200
001300+ *                                                                                       RADDAT           000000   60001300
001400+ *  Retrieves a numeric system value.                                                    RADDAT           000000   60001400
001500+D f_rtvSysVal_num...                                                                     RADDAT           000000   60001500
001600+D                 PR            15P 5                                                    RADDAT           000000   60001600
001700+D                                     extproc('BASICS1RE+                                RADDAT           000000   60001700
001800+D                                     _f_rtvSysVal_num+                                  RADDAT           000000   60001800
001900+D                                     ')                                                 RADDAT           000000   60001900
002000+D  i_name                       10A   const                                              RADDAT           000000   60002000
002100+D  o_msg                                     likeds(msg_t )                              RADDAT           000000   60002100
002200+D                                            options(*nopass: *omit)                     RADDAT           000000   60002200
002300+ *                                                                                       RADDAT           000000   60002300
002400+ * -----------------------------------------                                             RADDAT           000000   60002400
002500+ *  Imported prototypes                                                                  RADDAT           000000   60002500
002600+ * -----------------------------------------                                             RADDAT           000000   60002600
002700+ *                                                                                       RADDAT           000000   60002700
002800+ /ENDIF                                                                                  RADDAT           000000   60002800
003900+ /COPY QBASICS1,PBASICS1RG                   BasicProperties                             RADDAT      CPY  000000    8003900
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RG                                                   *                    61
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RG)                                *                    61
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    61
        * Text 'description' . . . . :  SrvPgm: Basic Routines - BasicProperties     cpybk           *                    61
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RG)                                                              RADDAT           000000   61000100
000200+ /DEFINE BASICS1RG                                                                       RADDAT           000000   61000200
000300+ *                                                                                       RADDAT           000000   61000300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    105
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000400+D BasicProperties_handle_t...                                                            RADDAT           000000   61000400
000500+D                 S               *                      based(pDummy)                   RADDAT           000000   61000500
000600+ *                                                                                       RADDAT           000000   61000600
000700+D BasicProperties_decVal_t...                                                                             000000   61000700
000800+D                 S             31P10                    based(pDummy)                                    000000   61000800
000900+ *                                                                                       RADDAT           000000   61000900
001000+ *  Creates a new BasicProperties.                                                       RADDAT           000000   61001000
001100+D BasicProperties_new...                                                                 RADDAT           000000   61001100
001200+D                 PR                         like(BasicProperties_handle_t)              RADDAT           000000   61001200
001300+D                                     extproc('BASICS1RG+                                RADDAT           000000   61001300
001400+D                                     _BasicProperties_new+                              RADDAT           000000   61001400
001500+D                                     ')                                                 RADDAT           000000   61001500
001600+D  i_increment                  10U 0 const  options(*nopass: *omit)                     RADDAT           000000   61001600
001700+D  i_heapID                     10I 0 const  options(*nopass: *omit)                     RADDAT           000000   61001700
001800+ *                                                                                       RADDAT           000000   61001800
001900+ *  Clones a given BasicProperties.                                                      RADDAT           000000   61001900
002000+D BasicProperties_clone...                                                               RADDAT           000000   61002000
002100+D                 PR                         like(BasicProperties_handle_t)              RADDAT           000000   61002100
002200+D                                     extproc('BASICS1RG+                                RADDAT           000000   61002200
002300+D                                     _BasicProperties_clone+                            RADDAT           000000   61002300
002400+D                                     ')                                                 RADDAT           000000   61002400
002500+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61002500
002600+ *                                                                                       RADDAT           000000   61002600
002700+ *  Load properties from a given physical file member.                                                    000000   61002700
002800+D BasicProperties_loadFromMember...                                                      RADDAT           000000   61002800
002900+D                 PR            10I 0                                                                     000000   61002900
003000+D                                     extproc('BASICS1RG+                                RADDAT           000000   61003000
003100+D                                     _BasicProperties_loadFromMember+                   RADDAT           000000   61003100
003200+D                                     ')                                                 RADDAT           000000   61003200
003300+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61003300
003400+D  i_file                       10A   const  varying                                                      000000   61003400
003500+D  i_lib                        10A   const  varying                                                      000000   61003500
003600+D                                            options(*nopass: *omit)                                      000000   61003600
003700+D  i_mbr                        10A   const  varying                                                      000000   61003700
003800+D                                            options(*nopass: *omit)                                      000000   61003800
003900+ *                                                                                       RADDAT           000000   61003900
004000+ *  Load properties from a given stream file.                                                             000000   61004000
004100+D BasicProperties_loadFromStmf...                                                                         000000   61004100
004200+D                 PR            10I 0                                                                     000000   61004200
004300+D                                     extproc('BASICS1RG+                                RADDAT           000000   61004300
004400+D                                     _BasicProperties_loadFromStmf+                     RADDAT           000000   61004400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    106
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004500+D                                     ')                                                 RADDAT           000000   61004500
004600+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61004600
004700+D  i_stmf                     5000A   const  varying options(*varsize)                                    000000   61004700
004800+ *                                                                                       RADDAT           000000   61004800
004900+ *  Removes the entry that is associated to the specified key.                           RADDAT           000000   61004900
005000+D BasicProperties_remove...                                                              RADDAT           000000   61005000
005100+D                 PR            10I 0                                                    RADDAT           000000   61005100
005200+D                                     extproc('BASICS1RG+                                RADDAT           000000   61005200
005300+D                                     _BasicProperties_remove+                           RADDAT           000000   61005300
005400+D                                     ')                                                 RADDAT           000000   61005400
005500+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61005500
005600+D  i_key                              const  like(BasicMap_key_t    )                    RADDAT           000000   61005600
005700+D                                            options(*varsize)                           RADDAT           000000   61005700
005800+ *                                                                                       RADDAT           000000   61005800
005900+ *  Returns true if the list of properties contains a entry matching                     RADDAT           000000   61005900
006000+ *  the specified key value.                                                             RADDAT           000000   61006000
006100+D BasicProperties_containsKey...                                                         RADDAT           000000   61006100
006200+D                 PR              N                                                      RADDAT           000000   61006200
006300+D                                     extproc('BASICS1RG+                                RADDAT           000000   61006300
006400+D                                     _BasicProperties_containsKey+                      RADDAT           000000   61006400
006500+D                                     ')                                                 RADDAT           000000   61006500
006600+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61006600
006700+D  i_key                              const  like(BasicMap_key_t          )              RADDAT           000000   61006700
006800+D                                            options(*varsize)                           RADDAT           000000   61006800
006900+ *                                                                                       RADDAT           000000   61006900
007000+ *  Returns the string that is associated to the specified key.                          RADDAT           000000   61007000
007100+D BasicProperties_getString...                                                           RADDAT           000000   61007100
007200+D                 PR          4096A          varying                                     RADDAT           000000   61007200
007300+D                                     extproc('BASICS1RG+                                RADDAT           000000   61007300
007400+D                                     _BasicProperties_getString+                        RADDAT           000000   61007400
007500+D                                     ')                                                 RADDAT           000000   61007500
007600+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61007600
007700+D  i_key                              const  like(BasicMap_key_t          )              RADDAT           000000   61007700
007800+D                                            options(*varsize)                           RADDAT           000000   61007800
007900+D  i_default                  4096A   const  varying                                     RADDAT           000000   61007900
008000+D                                            options(*nopass: *varsize)                  RADDAT           000000   61008000
008100+ *                                                                                       RADDAT           000000   61008100
008200+ *  Returns the integer value that is associated to the specified key.                   RADDAT           000000   61008200
008300+D BasicProperties_getInteger...                                                          RADDAT           000000   61008300
008400+D                 PR            10I 0                                                    RADDAT           000000   61008400
008500+D                                     extproc('BASICS1RG+                                RADDAT           000000   61008500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    107
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008600+D                                     _BasicProperties_getInteger+                       RADDAT           000000   61008600
008700+D                                     ')                                                 RADDAT           000000   61008700
008800+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61008800
008900+D  i_key                              const  like(BasicMap_key_t          )              RADDAT           000000   61008900
009000+D                                            options(*varsize)                           RADDAT           000000   61009000
009100+D  i_default                    10I 0 const  options(*nopass)                            RADDAT           000000   61009100
009200+ *                                                                                       RADDAT           000000   61009200
009300+ *  Returns the boolean value that is associated to the specified key.                   RADDAT           000000   61009300
009400+D BasicProperties_getBoolean...                                                          RADDAT           000000   61009400
009500+D                 PR              N                                                      RADDAT           000000   61009500
009600+D                                     extproc('BASICS1RG+                                RADDAT           000000   61009600
009700+D                                     _BasicProperties_getBoolean+                       RADDAT           000000   61009700
009800+D                                     ')                                                 RADDAT           000000   61009800
009900+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61009900
010000+D  i_key                              const  like(BasicMap_key_t          )              RADDAT           000000   61010000
010100+D                                            options(*varsize)                           RADDAT           000000   61010100
010200+D  i_default                      N   const  options(*nopass)                            RADDAT           000000   61010200
010300+ *                                                                                       RADDAT           000000   61010300
010400+ *  Returns the decimal value that is associated to the specified key.                   RADDAT           000000   61010400
010500+D BasicProperties_getDecimal...                                                          RADDAT           000000   61010500
010600+D                 PR                         like(BasicProperties_decVal_t)                               000000   61010600
010700+D                                     extproc('BASICS1RG+                                RADDAT           000000   61010700
010800+D                                     _BasicProperties_getDecimal+                       RADDAT           000000   61010800
010900+D                                     ')                                                 RADDAT           000000   61010900
011000+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61011000
011100+D  i_key                              const  like(BasicMap_key_t          )              RADDAT           000000   61011100
011200+D                                            options(*varsize)                           RADDAT           000000   61011200
011300+D  i_default                          const  like(BasicProperties_decVal_t)                               000000   61011300
011400+D                                            options(*nopass)                                             000000   61011400
011500+ *                                                                                       RADDAT           000000   61011500
011600+ *  Associates the specified string value to a given key.                                RADDAT           000000   61011600
011700+D BasicProperties_putString...                                                           RADDAT           000000   61011700
011800+D                 PR            10I 0                                                    RADDAT           000000   61011800
011900+D                                     extproc('BASICS1RG+                                RADDAT           000000   61011900
012000+D                                     _BasicProperties_putString+                        RADDAT           000000   61012000
012100+D                                     ')                                                 RADDAT           000000   61012100
012200+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61012200
012300+D  i_key                              const  like(BasicMap_key_t          )              RADDAT           000000   61012300
012400+D                                            options(*varsize)                           RADDAT           000000   61012400
012500+D  i_string                   4096A   const  varying                                     RADDAT           000000   61012500
012600+D                                            options(*varsize)                           RADDAT           000000   61012600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    108
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012700+ *                                                                                       RADDAT           000000   61012700
012800+ *  Associates the specified integer value to a given key.                               RADDAT           000000   61012800
012900+D BasicProperties_putInteger...                                                          RADDAT           000000   61012900
013000+D                 PR            10I 0                                                    RADDAT           000000   61013000
013100+D                                     extproc('BASICS1RG+                                RADDAT           000000   61013100
013200+D                                     _BasicProperties_putInteger+                       RADDAT           000000   61013200
013300+D                                     ')                                                 RADDAT           000000   61013300
013400+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61013400
013500+D  i_key                              const  like(BasicMap_key_t          )              RADDAT           000000   61013500
013600+D                                            options(*varsize)                           RADDAT           000000   61013600
013700+D  i_integer                    10I 0 const                                              RADDAT           000000   61013700
013800+ *                                                                                       RADDAT           000000   61013800
013900+ *  Associates the specified boolean value to a given key.                               RADDAT           000000   61013900
014000+D BasicProperties_putBoolean...                                                          RADDAT           000000   61014000
014100+D                 PR            10I 0                                                    RADDAT           000000   61014100
014200+D                                     extproc('BASICS1RG+                                RADDAT           000000   61014200
014300+D                                     _BasicProperties_putBoolean+                       RADDAT           000000   61014300
014400+D                                     ')                                                 RADDAT           000000   61014400
014500+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61014500
014600+D  i_key                              const  like(BasicMap_key_t          )              RADDAT           000000   61014600
014700+D                                            options(*varsize)                           RADDAT           000000   61014700
014800+D  i_boolean                      N   const                                              RADDAT           000000   61014800
014900+ *                                                                                       RADDAT           000000   61014900
015000+ *  Associates the specified decimal value to a given key.                               RADDAT           000000   61015000
015100+D BasicProperties_putDecimal...                                                          RADDAT           000000   61015100
015200+D                 PR                         like(BasicProperties_decVal_t)                               000000   61015200
015300+D                                     extproc('BASICS1RG+                                RADDAT           000000   61015300
015400+D                                     _BasicProperties_putDecimal+                       RADDAT           000000   61015400
015500+D                                     ')                                                 RADDAT           000000   61015500
015600+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61015600
015700+D  i_key                              const  like(BasicMap_key_t          )              RADDAT           000000   61015700
015800+D                                            options(*varsize)                           RADDAT           000000   61015800
015900+D  i_decimal                          const  like(BasicProperties_decVal_t)              RADDAT           000000   61015900
016000+ *                                                                                       RADDAT           000000   61016000
016100+ *  Returns the number of key-value mappings in this properties list.                    RADDAT           000000   61016100
016200+D BasicProperties_getNumE...                                                             RADDAT           000000   61016200
016300+D                 PR            10I 0                                                    RADDAT           000000   61016300
016400+D                                     extproc('BASICS1RG+                                RADDAT           000000   61016400
016500+D                                     _BasicProperties_getNumE+                          RADDAT           000000   61016500
016600+D                                     ')                                                 RADDAT           000000   61016600
016700+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61016700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    109
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
016800+ *                                                                                       RADDAT           000000   61016800
016900+ *  Returns the heap ID of a given BasicProperties.                                      RADDAT           000000   61016900
017000+D BasicProperties_getHeapID...                                                           RADDAT           000000   61017000
017100+D                 PR            10I 0                                                    RADDAT           000000   61017100
017200+D                                     extproc('BASICS1RG+                                RADDAT           000000   61017200
017300+D                                     _BasicProperties_getHeapID+                        RADDAT           000000   61017300
017400+D                                     ')                                                 RADDAT           000000   61017400
017500+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61017500
017600+ *                                                                                       RADDAT           000000   61017600
017700+ *  Removes all entries from a given properties list.                                    RADDAT           000000   61017700
017800+D BasicProperties_clear...                                                               RADDAT           000000   61017800
017900+D                 PR            10I 0                                                    RADDAT           000000   61017900
018000+D                                     extproc('BASICS1RG+                                RADDAT           000000   61018000
018100+D                                     _BasicProperties_clear+                            RADDAT           000000   61018100
018200+D                                     ')                                                 RADDAT           000000   61018200
018300+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61018300
018400+ *                                                                                       RADDAT           000000   61018400
018500+ *  Deletes a given BasicProperties.                                                     RADDAT           000000   61018500
018600+D BasicProperties_delete...                                                              RADDAT           000000   61018600
018700+D                 PR            10I 0                                                    RADDAT           000000   61018700
018800+D                                     extproc('BASICS1RG+                                RADDAT           000000   61018800
018900+D                                     _BasicProperties_delete+                           RADDAT           000000   61018900
019000+D                                     ')                                                 RADDAT           000000   61019000
019100+D  io_pProperties...                                                                     RADDAT           000000   61019100
019200+D                                            like(BasicProperties_handle_t)              RADDAT           000000   61019200
019300+ *                                                                                       RADDAT           000000   61019300
019400+ *  Returns a BasicProperties NULL handle.                                               RADDAT           000000   61019400
019500+D BasicProperties_null...                                                                RADDAT           000000   61019500
019600+D                 PR                         like(BasicProperties_handle_t)              RADDAT           000000   61019600
019700+D                                     extproc('BASICS1RG+                                RADDAT           000000   61019700
019800+D                                     _BasicProperties_null+                             RADDAT           000000   61019800
019900+D                                     ')                                                 RADDAT           000000   61019900
020000+ *                                                                                       RADDAT           000000   61020000
020100+ *  Checks a given BasicProperties handle for a NULL value.                              RADDAT           000000   61020100
020200+D BasicProperties_isNull...                                                              RADDAT           000000   61020200
020300+D                 PR              N                                                      RADDAT           000000   61020300
020400+D                                     extproc('BASICS1RG+                                RADDAT           000000   61020400
020500+D                                     _BasicProperties_isNull+                           RADDAT           000000   61020500
020600+D                                     ')                                                 RADDAT           000000   61020600
020700+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61020700
020800+ *                                                                                       RADDAT           000000   61020800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    110
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
020900+ *  Returns the list of key values from a given properties list.                         RADDAT           000000   61020900
021000+D BasicProperties_newKeySet...                                                           RADDAT           000000   61021000
021100+D                 PR                         like(BasicKeySet_handle_t)                  RADDAT           000000   61021100
021200+D                                     extproc('BASICS1RG+                                RADDAT           000000   61021200
021300+D                                     _BasicProperties_newKeySet+                        RADDAT           000000   61021300
021400+D                                     ')                                                 RADDAT           000000   61021400
021500+D  i_pProperties                      const  like(BasicProperties_handle_t)              RADDAT           000000   61021500
021600+ *                                                                                       RADDAT           000000   61021600
021700+ * -----------------------------------------                                             RADDAT           000000   61021700
021800+ *  Imported prototypes                                                                  RADDAT           000000   61021800
021900+ * -----------------------------------------                                             RADDAT           000000   61021900
022000+ *                                                                                       RADDAT           000000   61022000
022100+ /ENDIF                                                                                  RADDAT           000000   61022100
004000+ /COPY QBASICS1,PBASICS1RH                   MemoryBufferRdrWtr                          RADDAT      CPY  000000    8004000
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1RH                                                   *                    62
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1RH)                                *                    62
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    62
        * Text 'description' . . . . :  SrvPgm: Basic Routines - MemoryBufferRdrWtr  cpybk           *                    62
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(BASICS1RH)                                                              RADDAT           000000   62000100
000200+ /DEFINE BASICS1RH                                                                       RADDAT           000000   62000200
000300+ *                                                                                       RADDAT           000000   62000300
000400+ /COPY QBASICS1,CLIB                          C Runtime Library                          RADDAT      CPY  000000   62000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  CLIB                                                         *                    63
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(CLIB)                                      *                    63
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    63
        * Text 'description' . . . . :  Prototypes of C-Library                  (include)           *                    63
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(CLIB)                                                                   RADDAT      DEF  000000   63000100
000200+ /DEFINE CLIB                                                                            RADDAT      DEF  000000   63000200
000300+ *                                                                                       RADDAT           000000   63000300
000400+ *  Basic C data types                                                                   RADDAT           000000   63000400
000500+ /IF NOT DEFINED(C_DATA_TYPES)                                                           RADDAT           000000   63000500
000600+ /DEFINE C_DATA_TYPES                                                                    RADDAT           000000   63000600
000700+ * C Data Types                                                                          RADDAT           000000   63000700
000800+D char_t          S              1A   based(pDummy)                                      RADDAT           000000   63000800
000900+D short_t         S              5I 0 based(pDummy)                                      RADDAT           000000   63000900
001000+D ushort_t        S              5U 0 based(pDummy)                                      RADDAT           000000   63001000
001100+D int_t           S             10I 0 based(pDummy)                                      RADDAT           000000   63001100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    111
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001200+D uint_t          S             10U 0 based(pDummy)                                      RADDAT           000000   63001200
001300+D long_t          S             10I 0 based(pDummy)                                      RADDAT           000000   63001300
001400+D ulong_t         S             10U 0 based(pDummy)                                      RADDAT           000000   63001400
001500+D float_t         S              4F   based(pDummy)                                      RADDAT           000000   63001500
001600+D double_t        S              8F   based(pDummy)                                      RADDAT           000000   63001600
001700+ /ENDIF                                                                                  RADDAT           000000   63001700
001800+ *                                                                                       RADDAT           000000   63001800
001900+ *  stdin, stdout and stderr                                                             RADDAT           000000   63001900
002000+D stdin           S               *   import('_C_IFS_stdin')                             RADDAT           000000   63002000
002100+D stdout          S               *   import('_C_IFS_stdout')                            RADDAT           000000   63002100
002200+D stderr          S               *   import('_C_IFS_stderr')                            RADDAT           000000   63002200
002300+ *                                                                                       RADDAT           000000   63002300
002400+ *  system -- Execute a Command                                                          RADDAT           000000   63002400
002500+D system          PR            10I 0 extproc('system')                                  RADDAT           000000   63002500
002600+D  i_clCommand                    *   value options(*string)                             RADDAT           000000   63002600
002700+ *                                                                                       RADDAT           000000   63002700
002800+D EXCP_MSGID      S              7A   import('_EXCP_MSGID')                              RADDAT           000000   63002800
002900+ *                                                                                       RADDAT           000000   63002900
003000+ *  time -- Determine Current Time                                                       RADDAT           000000   63003000
003100+D time...                                                                                RADDAT           000000   63003100
003200+D                 PR            10i 0 extproc('time')                                    RADDAT           000000   63003200
003300+D  timeptr                        *   value                                              RADDAT           000000   63003300
003400+ *                                                                                       RADDAT           000000   63003400
003500+ *  strftime -- Convert to Formatted Time                                                RADDAT           000000   63003500
003600+D strftime...                                                                            RADDAT           000000   63003600
003700+D                 PR            10i 0 extproc('strftime')                                RADDAT           000000   63003700
003800+D  dest                           *   value                                              RADDAT           000000   63003800
003900+D  maxsize                      10i 0 value                                              RADDAT           000000   63003900
004000+D  format                         *   value options(*string)                             RADDAT           000000   63004000
004100+D  timeptr                            const  likeds(tm_t)                                RADDAT           000000   63004100
004200+ *                                                                                       RADDAT           000000   63004200
004300+D tm_t            DS                  qualified  based(pDummy)                           RADDAT           000000   63004300
004400+D  tm_sec                       10I 0                                                    RADDAT           000000   63004400
004500+D  tm_min                       10I 0                                                    RADDAT           000000   63004500
004600+D  tm_hour                      10I 0                                                    RADDAT           000000   63004600
004700+D  tm_mday                      10I 0                                                    RADDAT           000000   63004700
004800+D  tm_mon                       10I 0                                                    RADDAT           000000   63004800
004900+D  tm_year                      10I 0                                                    RADDAT           000000   63004900
005000+D  tm_wday                      10I 0                                                    RADDAT           000000   63005000
005100+D  tm_yday                      10I 0                                                    RADDAT           000000   63005100
005200+D  tm_isdst                     10I 0                                                    RADDAT           000000   63005200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    112
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
005300+ *                                                                                       RADDAT           000000   63005300
005400+ *  localtime() -- Correct Local Time, returns tm_t*                                     RADDAT           000000   63005400
005500+D localtime...                                                                           RADDAT           000000   63005500
005600+D                 PR              *   extproc('localtime')                               RADDAT           000000   63005600
005700+D  time                         10I 0 const                                              RADDAT           000000   63005700
005800+ *                                                                                       RADDAT           000000   63005800
005900+ *  localtime_r() -- Correct Local Time                                                  RADDAT           000000   63005900
006000+D localtime_r...                                                                         RADDAT           000000   63006000
006100+D                 PR              *   extproc('localtime_r')                             RADDAT           000000   63006100
006200+D  time                         10I 0 const                                              RADDAT           000000   63006200
006300+D  tm                                 const  likeds(tm_t)                                RADDAT           000000   63006300
006400+ *                                                                                       RADDAT           000000   63006400
006500+ *  strtok -- Tokenize String                                                            RADDAT           000000   63006500
006600+D strtok          PR              *          extproc('strtok')                           RADDAT           000000   63006600
006700+D  i_string                       *   value  options(*string)                            RADDAT           000000   63006700
006800+D  i_delimiters                   *   value  options(*string)                            RADDAT           000000   63006800
006900+ *                                                                                       RADDAT           000000   63006900
007000+ *  atoi -- Convert Character String to Integer                                          RADDAT           000000   63007000
007100+D atoi            PR            10I 0        extproc('atoi')                             RADDAT           000000   63007100
007200+D  i_string                       *   value  options(*string)                            RADDAT           000000   63007200
007300+ *                                                                                       RADDAT           000000   63007300
007400+ *  memcpy -- Copy Bytes                                                                 RADDAT           000000   63007400
007500+D memcpy          PR              *          extproc('memcpy')                           RADDAT           000000   63007500
007600+D  i_pDest                        *   value                                              RADDAT           000000   63007600
007700+D  i_pSrc                         *   value                                              RADDAT           000000   63007700
007800+D  i_count                      10U 0 value                                              RADDAT           000000   63007800
007900+ *                                                                                       RADDAT           000000   63007900
008000+ *  memset -- Set Bytes to Value                                                         RADDAT           000000   63008000
008100+D memset          PR              *          extproc('memset')                           RADDAT           000000   63008100
008200+D  i_pDest                        *   value                                              RADDAT           000000   63008200
008300+D  i_char                       10I 0 value                                              RADDAT           000000   63008300
008400+D  i_count                      10U 0 value                                              RADDAT           000000   63008400
008500+ *                                                                                       RADDAT           000000   63008500
008600+ *  memmove -- Copy Bytes                                                                RADDAT           000000   63008600
008700+ *     memmove allows copying between objects that may overlap                           RADDAT           000000   63008700
008800+ *     as if src is first copied into a temporary array.                                 RADDAT           000000   63008800
008900+D memmove         PR              *          extproc('memmove')                          RADDAT           000000   63008900
009000+D  pMemDest                       *   value                                              RADDAT           000000   63009000
009100+D  pMemSrc                        *   value                                              RADDAT           000000   63009100
009200+D  memSize                            value like(size_t)                                 RADDAT           000000   63009200
009300+ *                                                                                       RADDAT           000000   63009300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    113
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
009400+ *  memcmp -- Compare Buffers                                                            RADDAT           000000   63009400
009500+D memcmp          PR            10I 0        extproc('memcmp')                           RADDAT           000000   63009500
009600+D  pBuf1                          *   value                                              RADDAT           000000   63009600
009700+D  pBuf2                          *   value                                              RADDAT           000000   63009700
009800+D  count                              value like(size_t)                                 RADDAT           000000   63009800
009900+ *                                                                                       RADDAT           000000   63009900
010000+ *  memicmp -- Compare Bytes (ignore case)                                               RADDAT           000000   63010000
010100+D memicmp         PR            10I 0        extproc('__memicmp')                        RADDAT           000000   63010100
010200+D  pBuf1                          *   value                                              RADDAT           000000   63010200
010300+D  pBuf2                          *   value                                              RADDAT           000000   63010300
010400+D  count                        10U 0 value                                              RADDAT           000000   63010400
010500+ *                                                                                       RADDAT           000000   63010500
010600+ *  strcmp() -- Compare Strings                                                          RADDAT           000000   63010600
010700+ *  rc:   less than 0      -   string 1 less than string 2                               RADDAT           000000   63010700
010800+ *        0                -   string 1 equivalent to string 2                           RADDAT           000000   63010800
010900+ *        greater than 0   -   string 1 greater than string 2                            RADDAT           000000   63010900
011000+D strcmp...                                                                              RADDAT           000000   63011000
011100+D                 PR            10I 0                                                    RADDAT           000000   63011100
011200+D                                            extproc('strcmp')                           RADDAT           000000   63011200
011300+D  string1                        *   value  options(*string)                            RADDAT           000000   63011300
011400+D  string2                        *   value  options(*string)                            RADDAT           000000   63011400
011500+ *                                                                                       RADDAT           000000   63011500
011600+ *  strcasecmp() -- Compare Strings without Case Sensitivity                             RADDAT           000000   63011600
011700+ *  rc:   less than 0      -   string 1 less than string 2                               RADDAT           000000   63011700
011800+ *        0                -   string 1 equivalent to string 2                           RADDAT           000000   63011800
011900+ *        greater than 0   -   string 1 greater than string 2                            RADDAT           000000   63011900
012000+D strcasecmp...                                                                          RADDAT           000000   63012000
012100+D                 PR            10I 0                                                    RADDAT           000000   63012100
012200+D                                            extproc('strcasecmp')                       RADDAT           000000   63012200
012300+D  string1                        *   value  options(*string)                            RADDAT           000000   63012300
012400+D  string2                        *   value  options(*string)                            RADDAT           000000   63012400
012500+ /IF NOT DEFINED(TESTPTR)                                                                RADDAT           000000   63012500
            LINES EXCLUDED: 27
015300+ /ENDIF                                                                                  RADDAT           000000   63015300
015400+ *                                                                                       RADDAT           000000   63015400
015500+ *  malloc() - Reserve Storage Block                                                     RADDAT           000000   63015500
015600+D TS_malloc...                                                                           RADDAT           000000   63015600
015700+D                 PR              *   extproc('_C_TS_malloc')                            RADDAT           000000   63015700
015800+D  i_size                       10U 0 value                                              RADDAT           000000   63015800
015900+ *                                                                                       RADDAT           000000   63015900
016000+ *  realloc() - Change Reserved Storage Block Size                                       RADDAT           000000   63016000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    114
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
016100+D TS_realloc...                                                                          RADDAT           000000   63016100
016200+D                 PR              *   extproc('_C_TS_realloc')                           RADDAT           000000   63016200
016300+D  i_pMem                         *   value                                              RADDAT           000000   63016300
016400+D  i_size                       10U 0 value                                              RADDAT           000000   63016400
016500+ *                                                                                       RADDAT           000000   63016500
016600+ *  free() - Release Storage Blocks                                                      RADDAT           000000   63016600
016700+D TS_free...                                                                             RADDAT           000000   63016700
016800+D                 PR                  extproc('_C_TS_free')                              RADDAT           000000   63016800
016900+D  i_pMem                         *   value                                              RADDAT           000000   63016900
017000+ *                                                                                       RADDAT           000000   63017000
017100+ *  _C_TS_malloc_info() - Determine amount of teraspace memory used                      RADDAT           000000   63017100
017200+D TS_malloc_info...                                                                      RADDAT           000000   63017200
017300+D                 PR            10I 0 extproc('_C_TS_malloc_info')                       RADDAT           000000   63017300
017400+D  o_c_mallinfo                       const  likeds(C_mallinfo_t)                        RADDAT           000000   63017400
017500+D  i_size                       10U 0 value                                              RADDAT           000000   63017500
017600+ *                                                                                       RADDAT           000000   63017600
017700+ *  _C_TS_malloc_debug() - Determine amount of teraspace memory                          RADDAT           000000   63017700
017800+ *                         used (with optional dumps and verification)                   RADDAT           000000   63017800
017900+D TS_malloc_debug...                                                                     RADDAT           000000   63017900
018000+D                 PR            10I 0 extproc('_C_TS_malloc_debug')                      RADDAT           000000   63018000
018100+D  i_dump_level                 10U 0 value                                              RADDAT           000000   63018100
018200+D  i_vrfy_level                 10U 0 value                                              RADDAT           000000   63018200
018300+D  o_c_mallinfo                       const  likeds(C_mallinfo_t)                        RADDAT           000000   63018300
018400+D  i_size                       10U 0 value                                              RADDAT           000000   63018400
018500+ *                                                                                       RADDAT           000000   63018500
018600+ * The following are possible values for the dump_level parameter                        RADDAT           000000   63018600
018700+D C_NO_DUMPS      C                   0                                                  RADDAT           000000   63018700
018800+ *  Dumps the _C_mallinfo_t structure:                                                   RADDAT           000000   63018800
018900+D C_DUMP_TOTALS   C                   1                                                  RADDAT           000000   63018900
019000+ *  Does a hex dump of all allocated chunks of teraspace storage,                        RADDAT           000000   63019000
019100+ *  this is the entire 512K chunk of storage:                                            RADDAT           000000   63019100
019200+D C_DUMP_CHUNKS   C                   2                                                  RADDAT           000000   63019200
019300+ *  Dumps each of the allocated nodes.                                                   RADDAT           000000   63019300
019400+ *  There is a node for each malloc performed with the header                            RADDAT           000000   63019400
019500+ *  associated with that malloc:                                                         RADDAT           000000   63019500
019600+D C_DUMP_NODES    C                   3                                                  RADDAT           000000   63019600
019700+ *  Dumps the cartesian tree used to keep track of the freed nodes:                      RADDAT           000000   63019700
019800+D C_DUMP_TREE     C                   4                                                  RADDAT           000000   63019800
019900+D C_DUMP_ALL      C                   9999                                               RADDAT           000000   63019900
020000+ *                                                                                       RADDAT           000000   63020000
020100+ *  The following are possible values for the verify_level parameter                     RADDAT           000000   63020100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    115
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
020200+D C_NO_CHECKS     C                   0                                                  RADDAT           000000   63020200
020300+D C_CHECK_TOTALS  C                   1                                                  RADDAT           000000   63020300
020400+D C_CHECK_CHUNKS  C                   2                                                  RADDAT           000000   63020400
020500+D C_CHECK_NODES   C                   3                                                  RADDAT           000000   63020500
020600+D C_CHECK_TREE    C                   4                                                  RADDAT           000000   63020600
020700+D C_CHECK_ALL     C                   9998                                               RADDAT           000000   63020700
020800+ *  Will call abort() if verification fails                                              RADDAT           000000   63020800
020900+D C_CHECK_ALL_AND_ABORT...                                                               RADDAT           000000   63020900
021000+D                 C                   9999                                               RADDAT           000000   63021000
021100+ *                                                                                       RADDAT           000000   63021100
021200+ * The following structure is used to return information                                 RADDAT           000000   63021200
021300+ * from the _C_TS_malloc_info routine.  The fields are:                                  RADDAT           000000   63021300
021400+ *   total_bytes        - bytes allocated from system                                    RADDAT           000000   63021400
021500+ *                        (high water mark)                                              RADDAT           000000   63021500
021600+ *   allocated_bytes    - number of allocated bytes                                      RADDAT           000000   63021600
021700+ *   unallocated_bytes  - number of unallocated bytes                                    RADDAT           000000   63021700
021800+ *   allocated_blocks   - number of allocated blocks                                     RADDAT           000000   63021800
021900+ *   unallocated_blocks - number of unallocated blocks                                   RADDAT           000000   63021900
022000+ *   requested_bytes    - bytes actually requested from malloc                           RADDAT           000000   63022000
022100+ *   pad_bytes          - bytes used to pad allocation length                            RADDAT           000000   63022100
022200+ *                        to a multiple of 16                                            RADDAT           000000   63022200
022300+ *   overhead_bytes     - bytes used for malloc overhead                                 RADDAT           000000   63022300
022400+D C_mallinfo_t...                                                                        RADDAT           000000   63022400
022500+D                 DS                  qualified               based(pDummy)              RADDAT           000000   63022500
022600+D  total_bytes...                                                                        RADDAT           000000   63022600
022700+D                               20I 0                                                    RADDAT           000000   63022700
022800+D  allocated_bytes...                                                                    RADDAT           000000   63022800
022900+D                               20I 0                                                    RADDAT           000000   63022900
023000+D  unallocated_bytes...                                                                  RADDAT           000000   63023000
023100+D                               20I 0                                                    RADDAT           000000   63023100
023200+D  allocated_blocks...                                                                   RADDAT           000000   63023200
023300+D                               20I 0                                                    RADDAT           000000   63023300
023400+D  unallocated_blocks...                                                                 RADDAT           000000   63023400
023500+D                               20I 0                                                    RADDAT           000000   63023500
023600+D  requested_bytes...                                                                    RADDAT           000000   63023600
023700+D                               20I 0                                                    RADDAT           000000   63023700
023800+D  pad_bytes...                                                                          RADDAT           000000   63023800
023900+D                               20I 0                                                    RADDAT           000000   63023900
024000+D  overhead_bytes...                                                                     RADDAT           000000   63024000
024100+D                               20I 0                                                    RADDAT           000000   63024100
024200+ *                                                                                       RADDAT           000000   63024200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    116
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
024300+ *  malloc -- Reserve Storage Block                                                      RADDAT           000000   63024300
024400+D malloc          PR              *          extproc('malloc')                           RADDAT           000000   63024400
024500+D  i_size                       10U 0 value                                              RADDAT           000000   63024500
024600+ *                                                                                       RADDAT           000000   63024600
024700+ *  realloc -- Change Reserved Storage Block Size                                        RADDAT           000000   63024700
024800+D realloc         PR              *          extproc('realloc')                          RADDAT           000000   63024800
024900+D  i_pMem                         *   value                                              RADDAT           000000   63024900
025000+D  i_size                       10U 0 value                                              RADDAT           000000   63025000
025100+ *                                                                                       RADDAT           000000   63025100
025200+ *  free -- Release Storage Blocks                                                       RADDAT           000000   63025200
025300+D free            PR                         extproc('free')                                              000000   63025300
025400+D  i_pMem                         *   value                                              RADDAT           000000   63025400
025500+ *                                                                                       RADDAT           000000   63025500
025600+ *  srand -- Set Seed for rand Function   e.g.:   srand(getSeed(*null))                  RADDAT           000000   63025600
025700+D srand           PR                         extproc('srand')                            RADDAT           000000   63025700
025800+D  i_seed                       10U 0 value                                              RADDAT           000000   63025800
025900+ *                                                                                       RADDAT           000000   63025900
026000+ *  rand -- Generate Random Number                x = rand()                             RADDAT           000000   63026000
026100+D rand            PR            10I 0        extproc('rand')                             RADDAT           000000   63026100
026200+ *                                                                                       RADDAT           000000   63026200
026300+D RAND_MAX        C                   const(32767)                                       RADDAT           000000   63026300
026400+ *                                                                                       RADDAT           000000   63026400
026500+ *  getSeed -- Get Seed for srand function                                               RADDAT           000000   63026500
026600+D getSeed         PR            10I 0        extproc('time')                             RADDAT           000000   63026600
026700+D  i_timePtr                      *   value                                              RADDAT           000000   63026700
026800+ *                                                                                       RADDAT           000000   63026800
026900+ *  strlen -- Determine String Length                                                    RADDAT           000000   63026900
027000+D strlen...                                                                              RADDAT           000000   63027000
027100+D                 PR            10U 0 extproc('strlen')                                  RADDAT           000000   63027100
027200+D  i_string                       *   value                                              RADDAT           000000   63027200
027300+ *                                                                                       RADDAT           000000   63027300
027400+ *  tmpnam -- Produce Temporary File Name                                                RADDAT           000000   63027400
027500+D tmpnam          PR              *          extproc('tmpnam')                           RADDAT           000000   63027500
027600+D  pTmpNme                        *   value                                              RADDAT           000000   63027600
027700+ *                                                                                       RADDAT           000000   63027700
027800+ *  _C_IFS_tmpnam -- Produce Temporary File Name for the IFS file system                 RADDAT           000000   63027800
027900+D ifs_tmpnam      PR              *          extproc('_C_IFS_tmpnam')                    RADDAT           000000   63027900
028000+D  fileName                       *   value                                              RADDAT           000000   63028000
028100+ *                                                                                       RADDAT           000000   63028100
028200+D L_tmpnam        C                   const(39)                            ! <stdio.h>   RADDAT           000000   63028200
028300+ *                                                                                       RADDAT           000000   63028300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    117
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
028400+D TMP_MAX         C                   const(32767)                         ! <stdio.h>   RADDAT           000000   63028400
028500+ *                                                                                       RADDAT           000000   63028500
028600+ *  qsort -- Sort Array                                                                  RADDAT           000000   63028600
028700+D qsort           PR              *                       extproc('qsort')               RADDAT           000000   63028700
028800+D  memPtr                         *   value                                              RADDAT           000000   63028800
028900+D  numElem                            value  like(size_t)                                RADDAT           000000   63028900
029000+D  width                              value  like(size_t)                                RADDAT           000000   63029000
029100+D  pSortFunc                      *   value  procptr                                     RADDAT           000000   63029100
029200+ *                                                                                       RADDAT           000000   63029200
029300+ *  bsearch -- Search Arrays                                                             RADDAT           000000   63029300
029400+D bsearch         PR              *          extproc('bsearch')                          RADDAT           000000   63029400
029500+D  keyPtr                         *   value                                              RADDAT           000000   63029500
029600+D  memPtr                         *   value                                              RADDAT           000000   63029600
029700+D  numElem                            value  like(size_t)                                RADDAT           000000   63029700
029800+D  width                              value  like(size_t)                                RADDAT           000000   63029800
029900+D  pSearchFnc                     *   value  procptr                                     RADDAT           000000   63029900
030000+ *                                                                                       RADDAT           000000   63030000
030100+ *  iconv_open()--Code Conversion Allocation API                                         RADDAT           000000   63030100
030200+D iconv_open...                                                                          RADDAT           000000   63030200
030300+D                 PR                  extproc('iconv_open')                              RADDAT           000000   63030300
030400+D                                     like(iconv_t   )                                   RADDAT           000000   63030400
030500+D  i_toCode                       *   value                                              RADDAT           000000   63030500
030600+D  i_fromCode                     *   value                                              RADDAT           000000   63030600
030700+ *                                                                                       RADDAT           000000   63030700
030800+D iconv_t         DS                  qualified   based(pDummy)   align                  RADDAT           000000   63030800
030900+D  return_value                 10I 0                                                    RADDAT           000000   63030900
031000+D  cd                           10I 0 dim(12)                                            RADDAT           000000   63031000
031100+ *                                                                                       RADDAT           000000   63031100
031200+D iconv_fromcode_t...                                                                    RADDAT           000000   63031200
031300+D                 DS                  qualified   based(pDummy)                          RADDAT           000000   63031300
031400+D  ibmccsid                      8A                                                      RADDAT           000000   63031400
031500+D  ccsid                         5A                                                      RADDAT           000000   63031500
031600+D  convAlt                       3A                                                      RADDAT           000000   63031600
031700+D  substAlt                      1A                                                      RADDAT           000000   63031700
031800+D  shiftStateAlt                 1A                                                      RADDAT           000000   63031800
031900+D  inpLengthOpt                  1A                                                      RADDAT           000000   63031900
032000+D  errOption                     1A                                                      RADDAT           000000   63032000
032100+D  reserved                     12A                                                      RADDAT           000000   63032100
032200+ *                                                                                       RADDAT           000000   63032200
032300+D iconv_tocode_t...                                                                      RADDAT           000000   63032300
032400+D                 DS                  qualified   based(pDummy)                          RADDAT           000000   63032400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    118
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
032500+D  ibmccsid                      8A                                                      RADDAT           000000   63032500
032600+D  ccsid                         5A                                                      RADDAT           000000   63032600
032700+D  reserved                     19A                                                      RADDAT           000000   63032700
032800+ *                                                                                       RADDAT           000000   63032800
032900+ *  QtqIconvOpen()--Code Conversion Allocation API                                       RADDAT           000000   63032900
033000+D QtqIconv_open...                                                                       RADDAT           000000   63033000
033100+D                 PR                  extproc('QtqIconvOpen')                            RADDAT           000000   63033100
033200+D                                     likeds(iconv_t )                                   RADDAT           000000   63033200
033300+D  i_toCode                           const  likeds(QtqCode_t)                           RADDAT           000000   63033300
033400+D  i_fromCode                         const  likeds(QtqCode_t)                           RADDAT           000000   63033400
033500+ *                                                                                       RADDAT           000000   63033500
033600+D QtqCode_t...                                                                           RADDAT           000000   63033600
033700+D                 DS                  qualified   based(pDummy)                          RADDAT           000000   63033700
033800+D  ccsid                        10I 0                                                    RADDAT           000000   63033800
033900+D  conversionA                  10I 0                                                    RADDAT           000000   63033900
034000+D  substitutionA                10I 0                                                    RADDAT           000000   63034000
034100+D  shiftStateA                  10I 0                                                    RADDAT           000000   63034100
034200+D  inpLenOpt                    10I 0                                                    RADDAT           000000   63034200
034300+D  errOptMxdDta                 10I 0                                                    RADDAT           000000   63034300
034400+D  reserved                     12A                                                      RADDAT           000000   63034400
034500+ *                                                                                       RADDAT           000000   63034500
034600+ *  iconv()--Code Conversion API                                                         RADDAT           000000   63034600
034700+D iconv...                                                                               RADDAT           000000   63034700
034800+D                 PR            10U 0        extproc('iconv')                            RADDAT           000000   63034800
034900+D  i_cd                               value likeds(iconv_t  )                            RADDAT           000000   63034900
035000+D  i_pInBuf                       *                                                      RADDAT           000000   63035000
035100+D  i_inBytLeft                  10U 0                                                    RADDAT           000000   63035100
035200+D  i_pOutBuf                      *                                                      RADDAT           000000   63035200
035300+D  i_outBytLeft                 10U 0                                                    RADDAT           000000   63035300
035400+ *                                                                                       RADDAT           000000   63035400
035500+D cICONV_ERROR    C                   const(4294967295)                                  RADDAT           000000   63035500
035600+ *                                                                                       RADDAT           000000   63035600
035700+ *  iconv_close()--Code Conversion Deallocation API                                      RADDAT           000000   63035700
035800+D iconv_close...                                                                         RADDAT           000000   63035800
035900+D                 PR            10I 0        extproc('iconv_close')                      RADDAT           000000   63035900
036000+D  i_cd                               value likeds(iconv_t  )                            RADDAT           000000   63036000
036100+ *                                                                                       RADDAT           000000   63036100
036200+ *  0/-1 = stat()--Get File Information                include <sys/stat.h>              RADDAT           000000   63036200
036300+D stat...                                                                                RADDAT           000000   63036300
036400+D                 PR            10I 0        extproc('stat')               = int         RADDAT           000000   63036400
036500+D  i_pPath                        *   value options(*string)               = *path       RADDAT           000000   63036500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    119
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
036600+D  i_pStat                        *   value                                = *buf        RADDAT           000000   63036600
036700+ *                                                                                       RADDAT           000000   63036700
036800+ *  0/-1 = fstat()--Get File Information by Descriptor include <sys/stat.h>              RADDAT           000000   63036800
036900+D fstat...                                                                               RADDAT           000000   63036900
037000+D                 PR            10I 0        extproc('fstat')              = int         RADDAT           000000   63037000
037100+D  i_fd                         10I 0 value                                = int         RADDAT           000000   63037100
037200+D  i_stat                             const likeds(st_stat_t)              = *buf        RADDAT           000000   63037200
037300+ *                                                                                       RADDAT           000000   63037300
037400+ *  0/-1 = lstat()--Get File or Link Information       include <sys/stat.h>              RADDAT           000000   63037400
037500+D lstat...                                                                               RADDAT           000000   63037500
037600+D                 PR            10I 0        extproc('lstat')              = int         RADDAT           000000   63037600
037700+D  i_pPath                        *   value options(*string)               = *path       RADDAT           000000   63037700
037800+D  i_pStat                        *   value                                = *buf        RADDAT           000000   63037800
037900+ *                                                                                       RADDAT           000000   63037900
038000+D st_stat_t       DS                  qualified   based(pDummy)   align                  RADDAT           000000   63038000
038100+D  mode                         10U 0                                      mode_t =uint  RADDAT           000000   63038100
038200+D  ino                          10U 0                                      ino_t  =uint  RADDAT           000000   63038200
038300+D  nlink                         5U 0                                      nlink_t=ushortRADDAT           000000   63038300
038400+D  reserved2                     2A                                                      RADDAT           000000   63038400
038500+D  uid                          10U 0                                      uid_t  =uint  RADDAT           000000   63038500
038600+D  gid                          10U 0                                      gid_t  =uint  RADDAT           000000   63038600
038700+D  size                         10I 0                                      off_t  =int   RADDAT           000000   63038700
038800+D  atime                        10I 0                                      time_t =long  RADDAT           000000   63038800
038900+D  mtime                        10I 0                                      time_t =long  RADDAT           000000   63038900
039000+D  ctime                        10I 0                                      time_t =long  RADDAT           000000   63039000
039100+D  dev                          10U 0                                      dev_t  =uint  RADDAT           000000   63039100
039200+D  blksize                      10U 0                                      size_t =uint  RADDAT           000000   63039200
039300+D  allocsize                    10U 0                                      ulong         RADDAT           000000   63039300
039400+D  objtype                      11A                                        qp0l_objtype_tRADDAT           000000   63039400
039500+D  reserved3                     1A                                                      RADDAT           000000   63039500
039600+D  codepage                      5U 0                                      ushort        RADDAT           000000   63039600
039700+D  ccsid                         5U 0                                      ushort        RADDAT           000000   63039700
039800+D  rdev                         10U 0                                      dev_t  =uint  RADDAT           000000   63039800
039900+D  nlink32                      10U 0                                      nlink32_t=ulngRADDAT           000000   63039900
040000+D  rdev64                       20U 0                                      dev64_t=ullng RADDAT           000000   63040000
040100+D  dev64                        20U 0                                      dev64_t=ullng RADDAT           000000   63040100
040200+D  reserved1                    36A                                                      RADDAT           000000   63040200
040300+D  ino_gen_id                   10U 0                                      uint          RADDAT           000000   63040300
040400+ *                                                                                       RADDAT           000000   63040400
040500+ *  Qp0lGetAttr()--Get Attributes                                                        RADDAT           000000   63040500
040600+D Qp0lGetAttr...                                                                         RADDAT           000000   63040600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    120
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
040700+D                 PR            10I 0 extproc('Qp0lGetAttr')                             RADDAT           000000   63040700
040800+D  i_path                             const  likeds(Qlg_Path_Name_t)                     RADDAT           000000   63040800
040900+D  i_attrArray                        const  like(Qlg_attrArray_t  )                     RADDAT           000000   63040900
041000+D  i_pBuffer                      *   value                                              RADDAT           000000   63041000
041100+D  i_bytPrv                     10U 0 value                                              RADDAT           000000   63041100
041200+D  o_sizeNeeded                 10U 0                                                    RADDAT           000000   63041200
041300+D  o_bytRet                     10U 0                                                    RADDAT           000000   63041300
041400+D  i_followLnk                  10U 0 value                                              RADDAT           000000   63041400
041500+ *                                                                                       RADDAT           000000   63041500
041600+D Qlg_Path_Name_t...                                                                     RADDAT           000000   63041600
041700+D                 DS                  qualified align         based(pDummy)              RADDAT           000000   63041700
041800+D   CCSID                       10I 0                                                    RADDAT           000000   63041800
041900+D   Country_ID                   2A                                                      RADDAT           000000   63041900
042000+D   Language_ID                  3A                                                      RADDAT           000000   63042000
042100+D   Reserved                     3A                                                      RADDAT           000000   63042100
042200+D   Path_Type                   10U 0                                                    RADDAT           000000   63042200
042300+D   Path_Length                 10I 0                                                    RADDAT           000000   63042300
042400+D   Path_Name_Delimiter...                                                               RADDAT           000000   63042400
042500+D                                2A                                                      RADDAT           000000   63042500
042600+D   Reserved2                   10A                                                      RADDAT           000000   63042600
042700+D   Path_Name                  256A                                                      RADDAT           000000   63042700
042800+ *                                                                                       RADDAT           000000   63042800
042900+D QLG_PATH_JOB_CCSID...                                                                  RADDAT           000000   63042900
043000+D                 C                   const(0)                                           RADDAT           000000   63043000
043100+D QLG_PATH_JOB_COUNTRYID...                                                              RADDAT           000000   63043100
043200+D                 C                   const(X'0000')                                     RADDAT           000000   63043200
043300+D QLG_PATH_JOB_LANGUAGEID...                                                             RADDAT           000000   63043300
043400+D                 C                   const(X'000000')                                   RADDAT           000000   63043400
043500+ *                                                                                       RADDAT           000000   63043500
043600+ *  The Path_Name is a character string and the delimiter is one byte long.              RADDAT           000000   63043600
043700+D QLG_CHAR_SINGLE...                                                                     RADDAT           000000   63043700
043800+D                 C                   const(0)                                           RADDAT           000000   63043800
043900+ *                                                                                       RADDAT           000000   63043900
044000+ *  The Path_Name is a pointer and the delimiter is one byte long.                       RADDAT           000000   63044000
044100+D QLG_PTR_SINGLE...                                                                      RADDAT           000000   63044100
044200+D                 C                   const(1)                                           RADDAT           000000   63044200
044300+ *                                                                                       RADDAT           000000   63044300
044400+ *  The Path_Name is a character string and the delimiter is two bytes long.             RADDAT           000000   63044400
044500+D QLG_CHAR_DOUBLE...                                                                     RADDAT           000000   63044500
044600+D                 C                   const(2)                                           RADDAT           000000   63044600
044700+ *                                                                                       RADDAT           000000   63044700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    121
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
044800+ *  The Path_Name is a pointer and the delimiter is two bytes long.                      RADDAT           000000   63044800
044900+D QLG_PTR_DOUBLE...                                                                      RADDAT           000000   63044900
045000+D                 C                   const(3)                                           RADDAT           000000   63045000
045100+ *                                                                                       RADDAT           000000   63045100
045200+D Qlg_attrArray_t...                                                                     RADDAT           000000   63045200
045300+D                 DS                  qualified               based(pDummy)              RADDAT           000000   63045300
045400+D  numE                         10I 0                                                    RADDAT           000000   63045400
045500+D  attr                         10I 0 dim(64)                                            RADDAT           000000   63045500
045600+ *                                                                                       RADDAT           000000   63045600
045700+D Qlg_rtnAttr_t...                                                                       RADDAT           000000   63045700
045800+D                 DS                  qualified               based(pDummy)              RADDAT           000000   63045800
045900+D  ofsNextAttr                  10I 0                                                    RADDAT           000000   63045900
046000+D  ID                           10I 0                                                    RADDAT           000000   63046000
046100+D  size                         10I 0                                                    RADDAT           000000   63046100
046200+D  reserved                      4A                                                      RADDAT           000000   63046200
046300+ *                                                                                       RADDAT           000000   63046300
046400+D QP0L_ATTR_OBJTYPE...                                                                   RADDAT           000000   63046400
046500+D                 C                   const(0)                             CHAR(10)      RADDAT           000000   63046500
046600+D QP0L_ATTR_DATA_SIZE...                                                                 RADDAT           000000   63046600
046700+D                 C                   const(1)                             UINT(4)       RADDAT           000000   63046700
046800+D QP0L_ATTR_ALLOC_SIZE...                                                                RADDAT           000000   63046800
046900+D                 C                   const(2)                             UINT(4)       RADDAT           000000   63046900
047000+D QP0L_ATTR_EXTENDED_ATTR_SIZE...                                                        RADDAT           000000   63047000
047100+D                 C                   const(3)                             UINT(4)       RADDAT           000000   63047100
047200+D QP0L_ATTR_CREATE_TIME...                                                               RADDAT           000000   63047200
047300+D                 C                   const(4)                             UINT(4)       RADDAT           000000   63047300
047400+D QP0L_ATTR_ACCESS_TIME...                                                               RADDAT           000000   63047400
047500+D                 C                   const(5)                             UINT(4)       RADDAT           000000   63047500
047600+D QP0L_ATTR_CHANGE_TIME...                                                               RADDAT           000000   63047600
047700+D                 C                   const(6)                             UINT(4)       RADDAT           000000   63047700
047800+D QP0L_ATTR_MODIFY_TIME...                                                               RADDAT           000000   63047800
047900+D                 C                   const(7)                             UINT(4)       RADDAT           000000   63047900
048000+D QP0L_ATTR_STG_FREE...                                                                  RADDAT           000000   63048000
048100+D                 C                   const(8)                             CHAR(1)       RADDAT           000000   63048100
048200+D QP0L_ATTR_CHECKED_OUT...                                                               RADDAT           000000   63048200
048300+D                 C                   const(9)                             chkOut Fmt    RADDAT           000000   63048300
048400+D QP0L_ATTR_LOCAL_REMOTE...                                                              RADDAT           000000   63048400
048500+D                 C                   const(10)                            CHAR(1)       RADDAT           000000   63048500
048600+ *                                                                                       RADDAT           000000   63048600
048700+D QP0L_DONOT_FOLLOW_SYMLNK...                                                            RADDAT           000000   63048700
048800+D                 C                   const(x'00')                                       RADDAT           000000   63048800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    122
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
048900+D QP0L_FOLLOW_SYMLNK...                                                                  RADDAT           000000   63048900
049000+D                 C                   const(x'01')                                       RADDAT           000000   63049000
049100+ *                                                                                       RADDAT           000000   63049100
049200+D QP0L_NOT_CHECKED_OUT...                                                                RADDAT           000000   63049200
049300+D                 C                   const(x'00')                                       RADDAT           000000   63049300
049400+D QP0L_CHECKED_OUT...                                                                    RADDAT           000000   63049400
049500+D                 C                   const(x'01')                                       RADDAT           000000   63049500
049600+ *                                                                                       RADDAT           000000   63049600
049700+D QP0L_LOCAL_OBJ...                                                                      RADDAT           000000   63049700
049800+D                 C                   const(x'01')                                       RADDAT           000000   63049800
049900+D QP0L_REMOTE_OBJ...                                                                     RADDAT           000000   63049900
050000+D                 C                   const(x'02')                                       RADDAT           000000   63050000
050100+ *                                                                                       RADDAT           000000   63050100
050200+ *  QlgGetcwd()--Get Current Directory (using NLS-enabled path name)                     RADDAT           000000   63050200
050300+ *  Returns: Qlg_Path_Name_T                                                             RADDAT           000000   63050300
050400+D QlgGetcwd...                                                                           RADDAT           000000   63050400
050500+D                 PR              *   extproc('QlgGetcwd')                               RADDAT           000000   63050500
050600+D  o_path                             const  likeds(Qlg_Path_Name_t)                     RADDAT           000000   63050600
050700+D  i_size                             value  like(size_t)                                RADDAT           000000   63050700
050800+ *                                                                                       RADDAT           000000   63050800
050900+ *  getcwd()--Get Current Directory                                                                       000000   63050900
051000+D getcwd...                                                                                               000000   63051000
051100+D                 PR              *   extproc('getcwd')                                                   000000   63051100
051200+D  o_path                    65535A   const  options(*varsize)                           RADDAT           000000   63051200
051300+D  i_size                             value  like(size_t)                                RADDAT           000000   63051300
051400+ *                                                                                       RADDAT           000000   63051400
051500+ *  QlgChdir()--Change Current Directory (using NLS-enabled path name)                   RADDAT           000000   63051500
051600+ *  Returns: Qlg_Path_Name_T                                                             RADDAT           000000   63051600
051700+D QlgChdir...                                                                            RADDAT           000000   63051700
051800+D                 PR            10I 0 extproc('QlgChdir')                                RADDAT           000000   63051800
051900+D  i_path                             const  likeds(Qlg_Path_Name_t)                     RADDAT           000000   63051900
052000+ *                                                                                       RADDAT           000000   63052000
052100+ *  chdir()--Change Current Directory                                                                     000000   63052100
052200+D chdir...                                                                                                000000   63052200
052300+D                 PR            10I 0 extproc('chdir')                                                    000000   63052300
052400+D  i_path                         *   value  options(*string)                                             000000   63052400
052500+ *                                                                                       RADDAT           000000   63052500
052600+ *  QSYSINC/SYS.TYPES                                                                    RADDAT           000000   63052600
052700+D off_t           S             10I 0 based(pDummy)                                      RADDAT           000000   63052700
052800+D size_t          S             10U 0 based(pDummy)                                      RADDAT           000000   63052800
052900+D ssize_t         S             10I 0 based(pDummy)                                      RADDAT           000000   63052900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    123
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
053000+D time_t          S             10I 0 based(pDummy)                                      RADDAT           000000   63053000
053100+ *                                                                                       RADDAT           000000   63053100
053200+ *  0/-1 = chmod()--Change File Authorizations         include <sys/stat.h>                               000000   63053200
053300+D chmod...                                                                               RADDAT           000000   63053300
053400+D                 PR            10I 0        extproc('chmod')              = int         RADDAT           000000   63053400
053500+D  i_pPath                        *   value  options(*string)              = *path       RADDAT           000000   63053500
053600+D  i_mode                       10U 0 value                                = mode_t =uint                 000000   63053600
053700+ *                                                                                       RADDAT           000000   63053700
053800+ *  mkdir()--Make Directory                            include <sys/stat.h>              RADDAT           000000   63053800
053900+D mkdir...                                                                                                000000   63053900
054000+D                 PR            10I 0        extproc('mkdir')              = rc                           000000   63054000
054100+D  i_pPath                        *   value options(*string)               = *path                        000000   63054100
054200+D  i_mode                       10U 0 value                                = mode_t =uint                 000000   63054200
054300+ *                                                                                       RADDAT           000000   63054300
054400+ *  rmdir()--Remove Directory                          include <sys/stat.h>              RADDAT           000000   63054400
054500+D rmdir...                                                                                                000000   63054500
054600+D                 PR            10I 0        extproc('rmdir')              = rc                           000000   63054600
054700+D  i_pPath                        *   value options(*string)               = *path                        000000   63054700
054800+ *                                                                                       RADDAT           000000   63054800
054900+ *  opendir()--Open Directory                          include <dirent.h>                RADDAT           000000   63054900
055000+D opendir...                                                                             RADDAT           000000   63055000
055100+D                 PR              *          extproc('opendir')            = *DIR        RADDAT           000000   63055100
055200+D  i_pDirName                     *   value options(*string)               = *dirname    RADDAT           000000   63055200
055300+ *                                                                                       RADDAT           000000   63055300
055400+ *  readdir()--Read Directory Entry                                                      RADDAT           000000   63055400
055500+D readdir...                                                                             RADDAT           000000   63055500
055600+D                 PR              *          extproc('readdir')            = *dirent     RADDAT           000000   63055600
055700+D  i_dirp                         *   value                                = *DIR        RADDAT           000000   63055700
055800+ *                                                                                       RADDAT           000000   63055800
055900+D dirent_t        DS                  qualified  based(pDummy)                           RADDAT           000000   63055900
056000+D   d_reserv1                   16A                                                      RADDAT           000000   63056000
056100+D   d_fileno_gen_id...                                                                   RADDAT           000000   63056100
056200+D                               10U 0                                                    RADDAT           000000   63056200
056300+D   d_fileno                    10U 0                                                    RADDAT           000000   63056300
056400+D   d_reclen                    10U 0                                                    RADDAT           000000   63056400
056500+D   d_reserv3                   10I 0                                                    RADDAT           000000   63056500
056600+D   d_reserv4                    8A                                                      RADDAT           000000   63056600
056700+ /if not defined(*V5R2M0)                                                                RADDAT           000000   63056700
            LINES EXCLUDED: 1
056900+ /else                                                                                   RADDAT           000000   63056900
057000+D   d_nlsinfo                         likeds(qlg_nls_t)                                  RADDAT           000000   63057000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    124
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
057100+ /endif                                                                                  RADDAT           000000   63057100
057200+D   d_namelen                   10U 0                                                    RADDAT           000000   63057200
057300+D   d_name                     640A                                                      RADDAT           000000   63057300
057400+ *                                                                                       RADDAT           000000   63057400
057500+D qlg_nls_t       DS                  qualified  based(pDummy)    align                  RADDAT           000000   63057500
057600+D  ccsid                        10I 0                                                    RADDAT           000000   63057600
057700+D  country_id                    2A                                                      RADDAT           000000   63057700
057800+D  language_id                   3A                                                      RADDAT           000000   63057800
057900+D  nls_reserved                  3A                                                      RADDAT           000000   63057900
058000+ *                                                                                       RADDAT           000000   63058000
058100+ *  rewinddir()--Reset Directory Stream to Beginning                                     RADDAT           000000   63058100
058200+D rewinddir...                                                                           RADDAT           000000   63058200
058300+D                 PR                  extproc('rewinddir')                               RADDAT           000000   63058300
058400+D  i_dirp                         *   value                                = *DIR        RADDAT           000000   63058400
058500+ *                                                                                       RADDAT           000000   63058500
058600+ *  closedir()--Close Directory                                                          RADDAT           000000   63058600
058700+D closedir...                                                                            RADDAT           000000   63058700
058800+D                 PR            10I 0        extproc('closedir')           = rc          RADDAT           000000   63058800
058900+D  i_dirp                         *   value                                = *DIR        RADDAT           000000   63058900
059000+ *                                                                                       RADDAT           000000   63059000
059100+ *  fd/-1 = open()--Open File                          include <fcntl.h>                 RADDAT           000000   63059100
059200+D open...                                                                                RADDAT           000000   63059200
059300+D                 PR            10I 0        extproc('open')               = int         RADDAT           000000   63059300
059400+D  i_pPath                        *   value  options(*string)              = *path       RADDAT           000000   63059400
059500+D  i_opnFLag                    10I 0 value                                = int         RADDAT           000000   63059500
059600+D  i_mode                       10U 0 value  options(*nopass)              = uint        RADDAT           000000   63059600
059700+D  i_codePage                   10U 0 value  options(*nopass)              = uint        RADDAT           000000   63059700
059800+D  i_crtCodePage                10U 0 value  options(*nopass)              = uint        RADDAT           000000   63059800
059900+ *                                                                                       RADDAT           000000   63059900
060000+ *  <sys/stat.h>                                                                         RADDAT           000000   63060000
060100+D S_IRUSR         C                   const(         256)                  ! Read For OwnRADDAT           000000   63060100
060200+D S_IWUSR         C                   const(         128)                  ! Write For OwRADDAT           000000   63060200
060300+D S_IXUSR         C                   const(          64)                  ! Exc/Srch ForRADDAT           000000   63060300
060400+D S_IRWXU         C                   const(         448)                  ! Rd/Wrt/Exc ORADDAT           000000   63060400
060500+ *                                                                                       RADDAT           000000   63060500
060600+D S_IRGRP         C                   const(          32)                  ! Read For GroRADDAT           000000   63060600
060700+D S_IWGRP         C                   const(          16)                  ! Write For GrRADDAT           000000   63060700
060800+D S_IXGRP         C                   const(           8)                  ! Exc/Srch ForRADDAT           000000   63060800
060900+D S_IRWXG         C                   const(          56)                  ! Rd/Wrt/Exc GRADDAT           000000   63060900
061000+ *                                                                                       RADDAT           000000   63061000
061100+D S_IROTH         C                   const(           4)                  ! Read For OthRADDAT           000000   63061100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    125
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
061200+D S_IWOTH         C                   const(           2)                  ! Write For OtRADDAT           000000   63061200
061300+D S_IXOTH         C                   const(           1)                  ! Exc/Srch ForRADDAT           000000   63061300
061400+D S_IRWXO         C                   const(           7)                  ! Rd/Wrt/Exc ORADDAT           000000   63061400
061500+ *                                                                                       RADDAT           000000   63061500
061600+D S_ISUID         C                   const(        2048)                                                 000000   63061600
061700+D S_ISGID         C                   const(        1024)                                                 000000   63061700
061800+D S_ISVTX         C                   const(         512)                                                 000000   63061800
061900+ *                                                                                       RADDAT           000000   63061900
062000+ *  <h/fcntl.h>                                                                          RADDAT           000000   63062000
062100+D O_CREAT         C                   const( 8)                            ! Append Mode RADDAT           000000   63062100
062200+D O_EXCL          C                   const(16)                            ! Exclusive UsRADDAT           000000   63062200
062300+D O_TRUNC         C                   const(64)                            ! Truncate FlaRADDAT           000000   63062300
062400+ *                                                                                       RADDAT           000000   63062400
062500+D O_APPEND        C                   const(256)                           ! Append Mode RADDAT           000000   63062500
062600+ *                                                                                       RADDAT           000000   63062600
062700+D O_CODEPAGE      C                   const(  8388608)                     ! Codepage FlaRADDAT           000000   63062700
062800+D O_TEXTDATA      C                   const( 16777216)                     ! Text Data FlRADDAT           000000   63062800
062900+D O_FORCE_SCAN    C                   const( 67108864)                     ! Force scan  RADDAT           000000   63062900
063000+D O_INHERITMODE   C                   const(134217728)                     ! Inherit ModeRADDAT           000000   63063000
063100+D O_CCSID         C                   const(       32)                     ! CCSID       RADDAT           000000   63063100
063200+D O_TEXT_CREAT    C                   const( 33554432)                     !             RADDAT           000000   63063200
063300+ *                                                                                       RADDAT           000000   63063300
063400+D O_SHARE_RDONLY  C                   const( 65536)                        ! Shared Read RADDAT           000000   63063400
063500+D O_SHARE_WRONLY  C                   const(131072)                        ! Shared WriteRADDAT           000000   63063500
063600+D O_SHARE_RDWR    C                   const(262144)                        ! Shared Rd/WrRADDAT           000000   63063600
063700+D O_SHARE_NONE    C                   const(524288)                        ! No Share    RADDAT           000000   63063700
063800+ *                                                                                       RADDAT           000000   63063800
063900+D O_RDONLY        C                   const(1)                             ! Read Only   RADDAT           000000   63063900
064000+D O_WRONLY        C                   const(2)                             ! Write Only  RADDAT           000000   63064000
064100+D O_RDWR          C                   const(4)                             ! Read/Write  RADDAT           000000   63064100
064200+ *                                                                                       RADDAT           000000   63064200
064300+ *  value/-1 = read()--Write from Descriptor           include <unistd.h>                RADDAT           000000   63064300
064400+D read...                                                                                RADDAT           000000   63064400
064500+D                 PR                  extproc('read')   like(ssize_t   )   = ssize_t     RADDAT           000000   63064500
064600+D  i_fd                         10I 0 value                                = int         RADDAT           000000   63064600
064700+D  i_pBuffer                      *   value                                = *buf        RADDAT           000000   63064700
064800+D  i_buflen                           value like(size_t    )               = size_t      RADDAT           000000   63064800
064900+ *                                                                                       RADDAT           000000   63064900
065000+ *  value/-1 = write()--Write to Descriptor            include <unistd.h>                RADDAT           000000   63065000
065100+D write...                                                                               RADDAT           000000   63065100
065200+D                 PR                  extproc('write')  like(ssize_t   )   = ssize_t     RADDAT           000000   63065200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    126
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
065300+D  i_fd                         10I 0 value                                = int         RADDAT           000000   63065300
065400+D  i_pBuffer                      *   value                                = *buf        RADDAT           000000   63065400
065500+D  i_buflen                           value like(size_t    )               = size_t      RADDAT           000000   63065500
065600+ *                                                                                       RADDAT           000000   63065600
065700+ *  0/-1 = ftruncate()--Truncate File                  include <unistd.h>                RADDAT           000000   63065700
065800+D ftruncate...                                                                           RADDAT           000000   63065800
065900+D                 PR            10I 0 extproc('ftruncate')                 = int         RADDAT           000000   63065900
066000+D  i_fd                         10I 0 value                                = int         RADDAT           000000   63066000
066100+D  i_length                           value like(off_t     )               = off_t       RADDAT           000000   63066100
066200+ *                                                                                       RADDAT           000000   63066200
066300+ *  off_t = lseek()--Set File Read/Write Offset        include <unistd.h>                RADDAT           000000   63066300
066400+D lseek...                                                                               RADDAT           000000   63066400
066500+D                 PR                  extproc('lseek')  like(off_t     )   = off_t       RADDAT           000000   63066500
066600+D  i_fd                         10I 0 value                                = int         RADDAT           000000   63066600
066700+D  i_offset                           value like(off_t     )               = off_t       RADDAT           000000   63066700
066800+D  i_whence                     10I 0 value                                = int         RADDAT           000000   63066800
066900+ *                                                                                       RADDAT           000000   63066900
067000+ *  <h/unistd.h>                                                                         RADDAT           000000   63067000
067100+D SEEK_SET        C                   const(0)                             ! seek start  RADDAT           000000   63067100
067200+D SEEK_CUR        C                   const(1)                             ! seek curPos RADDAT           000000   63067200
067300+D SEEK_END        C                   const(2)                             ! seek end    RADDAT           000000   63067300
067400+ *                                                                                       RADDAT           000000   63067400
067500+ *  0/-1 = unlink()--Remove Link to File               include <unistd.h>                RADDAT           000000   63067500
067600+D unlink...                                                                              RADDAT           000000   63067600
067700+D                 PR            10I 0 extproc('unlink')                    = int         RADDAT           000000   63067700
067800+D  i_pPath                        *   value options(*string)               = *path       RADDAT           000000   63067800
067900+ *                                                                                       RADDAT           000000   63067900
068000+ *  0/-1 = Qp0lRenameKeep()--Rename File or Directory, Keep "new" If It Exists           RADDAT           000000   63068000
068100+D Qp0lRenameKeep...                                                                      RADDAT           000000   63068100
068200+D                 PR            10I 0 extproc('Qp0lRenameKeep')            = int         RADDAT           000000   63068200
068300+D  i_pOldPath                     *   value options(*string)               = *path       RADDAT           000000   63068300
068400+D  i_pNewPath                     *   value options(*string)               = *path       RADDAT           000000   63068400
068500+ *                                                                                       RADDAT           000000   63068500
068600+ *  0/-1 = Qp0lRenameUnlink()--Rename File or Directory, Unlink "new" If It Exists       RADDAT           000000   63068600
068700+D Qp0lRenameUnlink...                                                                    RADDAT           000000   63068700
068800+D                 PR            10I 0 extproc('Qp0lRenameUnlink')          = int         RADDAT           000000   63068800
068900+D  i_pOldPath                     *   value options(*string)               = *path       RADDAT           000000   63068900
069000+D  i_pNewPath                     *   value options(*string)               = *path       RADDAT           000000   63069000
069100+ *                                                                                       RADDAT           000000   63069100
069200+ *  0/-1 = close()--Close File or Socket Descriptor    include <unistd.h>                RADDAT           000000   63069200
069300+ /IF NOT DEFINED(c_close_function)                                                       RADDAT           000000   63069300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    127
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
069400+ /DEFINE c_close_function                                                                RADDAT           000000   63069400
069500+D close...                                                                               RADDAT           000000   63069500
069600+D                 PR            10I 0 extproc('close')                     = int         RADDAT           000000   63069600
069700+D  i_fd                         10I 0 value                                = int         RADDAT           000000   63069700
069800+ /ENDIF                                                                                  RADDAT           000000   63069800
069900+ *                                                                                       RADDAT           000000   63069900
070000+ *  erno--Set Pointer to Runtime Error Code                                              RADDAT           000000   63070000
070100+D errno           PR              *                     extproc('__errno')               RADDAT           000000   63070100
070200+ *                                                                                       RADDAT           000000   63070200
070300+ *  strerror -- Set Pointer to Runtime Error Message                                     RADDAT           000000   63070300
070400+D strerror        PR              *                     extproc('strerror')              RADDAT           000000   63070400
070500+D  errno                        10I 0 value                                              RADDAT           000000   63070500
070600+ *                                                                                       RADDAT           000000   63070600
070700+ *  <sys/errno.h>                                                                        RADDAT           000000   63070700
070800+D EDOM_C          C                   const(3001)                          domain error iRADDAT           000000   63070800
070900+D ERANGE_C        C                   const(3002)                          range error inRADDAT           000000   63070900
071000+D ETRUNC_C        C                   const(3003)                          truncation on RADDAT           000000   63071000
071100+D ENOTOPEN_C      C                   const(3004)                          file has not bRADDAT           000000   63071100
071200+D ENOTREAD_C      C                   const(3005)                          file not openeRADDAT           000000   63071200
071300+D ERECIO_C        C                   const(3008)                          file opened foRADDAT           000000   63071300
071400+D ENOTWRITE_C     C                   const(3009)                          file not openeRADDAT           000000   63071400
071500+D ESTDIN_C        C                   const(3010)                          stdin cannot bRADDAT           000000   63071500
071600+D ESTDOUT_C       C                   const(3011)                          stdout cannot RADDAT           000000   63071600
071700+D ESTDERR_C       C                   const(3012)                          stderr cannot RADDAT           000000   63071700
071800+D EBADSEEK_C      C                   const(3013)                          bad offset to RADDAT           000000   63071800
071900+D EBADNAME_C      C                   const(3014)                          invalid file nRADDAT           000000   63071900
072000+D EBADMODE_C      C                   const(3015)                          invalid file mRADDAT           000000   63072000
072100+D EBADPOS_C       C                   const(3017)                          invalid positiRADDAT           000000   63072100
072200+D ENOPOS_C        C                   const(3018)                          no record at sRADDAT           000000   63072200
072300+D ENUMMBRS_C      C                   const(3019)                          no ftell if moRADDAT           000000   63072300
072400+D ENUMRECS_C      C                   const(3020)                          no ftell if toRADDAT           000000   63072400
072500+D EBADFUNC_C      C                   const(3022)                          invalid functiRADDAT           000000   63072500
072600+D ENOREC_C        C                   const(3026)                          record not fouRADDAT           000000   63072600
072700+D EBADDATA_C      C                   const(3028)                          message data iRADDAT           000000   63072700
072800+D EBADOPT_C       C                   const(3040)                          bad option on RADDAT           000000   63072800
072900+D ENOTUPD_C       C                   const(3041)                          file not openeRADDAT           000000   63072900
073000+D ENOTDLT_C       C                   const(3042)                          file not openeRADDAT           000000   63073000
073100+D EPAD_C          C                   const(3043)                          padding occurrRADDAT           000000   63073100
073200+D EBADKEYLN_C     C                   const(3044)                          bad key lengthRADDAT           000000   63073200
073300+D EPUTANDGET_C    C                   const(3080)                          illegal write RADDAT           000000   63073300
073400+D EGETANDPUT_C    C                   const(3081)                          illegal read aRADDAT           000000   63073400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    128
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
073500+D EIOERROR_C      C                   const(3101)                          I/O exception RADDAT           000000   63073500
073600+D EIORECERR_C     C                   const(3102)                          I/O exception RADDAT           000000   63073600
073700+ *                                                                                       RADDAT           000000   63073700
073800+ *  The following values are defined by POSIX ISO/IEC 9945-1:1990.                       RADDAT           000000   63073800
073900+D EINVAL_C        C                   const(3021)                          invalid argumeRADDAT           000000   63073900
074000+D EIO_C           C                   const(3006)                          input/output eRADDAT           000000   63074000
074100+D ENODEV_C        C                   const(3007)                          no such deviceRADDAT           000000   63074100
074200+D EBUSY_C         C                   const(3029)                          resource busy RADDAT           000000   63074200
074300+D ENOENT_C        C                   const(3025)                          no such file oRADDAT           000000   63074300
074400+D EPERM_C         C                   const(3027)                          operation not RADDAT           000000   63074400
074500+ *                                                                                       RADDAT           000000   63074500
074600+ *  AS/400 specific error numbers                                                        RADDAT           000000   63074600
074700+D EACCES_C        C                   const(3401)                          Permission denRADDAT           000000   63074700
074800+D ENOTDIR_C       C                   const(3403)                          Not a directorRADDAT           000000   63074800
074900+D ENOSPC_C        C                   const(3404)                          No space availRADDAT           000000   63074900
075000+D EXDEV_C         C                   const(3405)                          Improper link.RADDAT           000000   63075000
075100+D EWOULDBLOCK_C   C                   const(3406)                          Operation woulRADDAT           000000   63075100
075200+D EAGAIN_C        C                   const(3406)                          Operation woulRADDAT           000000   63075200
075300+D EINTR_C         C                   const(3407)                          Interrupted fuRADDAT           000000   63075300
075400+D EFAULT_C        C                   const(3408)                          The address usRADDAT           000000   63075400
075500+D ETIME_C         C                   const(3409)                          Operation timeRADDAT           000000   63075500
075600+D ENXIO_C         C                   const(3415)                          No such deviceRADDAT           000000   63075600
075700+D ECLOSED_C       C                   const(3417)                          Socket closed RADDAT           000000   63075700
075800+D EADDRINUSE_C    C                   const(3420)                          Address alreadRADDAT           000000   63075800
075900+D EADDRNOTAVAIL_C...                                                                     RADDAT           000000   63075900
076000+D                 C                   const(3421)                          Address not avRADDAT           000000   63076000
076100+D EAFNOSUPPORT_C  C                   const(3422)                          The type of soRADDAT           000000   63076100
076200+D EALREADY_C      C                   const(3423)                          Operation alreRADDAT           000000   63076200
076300+D ECONNABORTED_C  C                   const(3424)                          Connection endRADDAT           000000   63076300
076400+D ECONNREFUSED_C  C                   const(3425)                          A remote host RADDAT           000000   63076400
076500+D ECONNRESET_C    C                   const(3426)                          A connection wRADDAT           000000   63076500
076600+D EDESTADDRREQ_C  C                   const(3427)                          Operation requRADDAT           000000   63076600
076700+D EHOSTDOWN_C     C                   const(3428)                          A remote host RADDAT           000000   63076700
076800+D EHOSTUNREACH_C  C                   const(3429)                          A route to theRADDAT           000000   63076800
076900+D EINPROGRESS_C   C                   const(3430)                          Operation in pRADDAT           000000   63076900
077000+D EISCONN_C       C                   const(3431)                          A connection hRADDAT           000000   63077000
077100+D EMSGSIZE_C      C                   const(3432)                          Message size oRADDAT           000000   63077100
077200+D ENETDOWN_C      C                   const(3433)                          The network isRADDAT           000000   63077200
077300+D ENETRESET_C     C                   const(3434)                          A socket is coRADDAT           000000   63077300
077400+D ENETUNREACH_C   C                   const(3435)                          Cannot reach tRADDAT           000000   63077400
077500+D ENOBUFS_C       C                   const(3436)                          There is not eRADDAT           000000   63077500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    129
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
077600+D ENOPROTOOPT_C   C                   const(3437)                          The protocol dRADDAT           000000   63077600
077700+D ENOTCONN_C      C                   const(3438)                          Requested operRADDAT           000000   63077700
077800+D ENOTSOCK_C      C                   const(3439)                          The specified RADDAT           000000   63077800
077900+D ENOTSUP_C       C                   const(3440)                          Operation not RADDAT           000000   63077900
078000+D EOPNOTSUPP_C    C                   const(3440)                          Operation not RADDAT           000000   63078000
078100+D EPFNOSUPPORT_C  C                   const(3441)                          The socket proRADDAT           000000   63078100
078200+D EPROTONOSUPPORT_C...                                                                   RADDAT           000000   63078200
078300+D                 C                   const(3442)                          No protocol ofRADDAT           000000   63078300
078400+D EPROTOTYPE_C    C                   const(3443)                          The socket typRADDAT           000000   63078400
078500+D ERCVDERR_C      C                   const(3444)                          An error indicRADDAT           000000   63078500
078600+D ESHUTDOWN_C     C                   const(3445)                          Cannot send daRADDAT           000000   63078600
078700+D ESOCKTNOSUPPORT_C...                                                                   RADDAT           000000   63078700
078800+D                 C                   const(3446)                          The specified RADDAT           000000   63078800
078900+D ETIMEDOUT_C     C                   const(3447)                          A remote host RADDAT           000000   63078900
079000+D EUNATCH_C       C                   const(3448)                          The protocol rRADDAT           000000   63079000
079100+D EBADF_C         C                   const(3450)                          Descriptor notRADDAT           000000   63079100
079200+D EMFILE_C        C                   const(3452)                          Too many open RADDAT           000000   63079200
079300+D ENFILE_C        C                   const(3453)                          Too many open RADDAT           000000   63079300
079400+D EPIPE_C         C                   const(3455)                          Broken pipe.  RADDAT           000000   63079400
079500+D EEXIST_C        C                   const(3457)                          File exists.  RADDAT           000000   63079500
079600+D EDEADLK_C       C                   const(3459)                          Resource deadlRADDAT           000000   63079600
079700+D ENOMEM_C        C                   const(3460)                          Storage allocaRADDAT           000000   63079700
079800+D EOWNERTERM_C    C                   const(3462)                          The mutex no lRADDAT           000000   63079800
079900+D EDESTROYED_C    C                   const(3463)                          he synchronizaRADDAT           000000   63079900
080000+D ETERM_C         C                   const(3464)                          Operation termRADDAT           000000   63080000
080100+D EMLINK_C        C                   const(3468)                          Maximum link cRADDAT           000000   63080100
080200+D ESPIPE_C        C                   const(3469)                          Seek request nRADDAT           000000   63080200
080300+D ENOSYS_C        C                   const(3470)                          Function not iRADDAT           000000   63080300
080400+D EISDIR_C        C                   const(3471)                          Specified targRADDAT           000000   63080400
080500+D EROFS_C         C                   const(3472)                          Read-only fileRADDAT           000000   63080500
080600+D EUNKNOWN_C      C                   const(3474)                          Unknown systemRADDAT           000000   63080600
080700+D EITERBAD_C      C                   const(3475)                          Iterator is inRADDAT           000000   63080700
080800+D EDAMAGE_C       C                   const(3484)                          A damaged objeRADDAT           000000   63080800
080900+D ELOOP_C         C                   const(3485)                          A loop exists RADDAT           000000   63080900
081000+D ENAMETOOLONG_C  C                   const(3486)                          A path name isRADDAT           000000   63081000
081100+D ENOLCK_C        C                   const(3487)                          No locks availRADDAT           000000   63081100
081200+D ENOTEMPTY_C     C                   const(3488)                          Directory not RADDAT           000000   63081200
081300+D ENOSYSRSC_C     C                   const(3489)                          System resourcRADDAT           000000   63081300
081400+D ECONVERT_C      C                   const(3490)                          Conversion errRADDAT           000000   63081400
081500+D E2BIG_C         C                   const(3491)                          Argument list RADDAT           000000   63081500
081600+D EILSEQ_C        C                   const(3492)                          Conversion stoRADDAT           000000   63081600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    130
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
081700+D ESOFTDAMAGE_C   C                   const(3497)                          Object has sofRADDAT           000000   63081700
081800+D ENOTENROLL_C    C                   const(3498)                          User not enrolRADDAT           000000   63081800
081900+D EOFFLINE_C      C                   const(3499)                          Object is suspRADDAT           000000   63081900
082000+D EROOBJ_C        C                   const(3500)                          Object is a reRADDAT           000000   63082000
082100+D ELOCKED_C       C                   const(3506)                          Area being reaRADDAT           000000   63082100
082200+D EFBIG_C         C                   const(3507)                          Object too larRADDAT           000000   63082200
082300+D EIDRM_C         C                   const(3509)                          The semaphore,RADDAT           000000   63082300
082400+D ENOMSG_C        C                   const(3510)                          The queue doesRADDAT           000000   63082400
082500+D EFILECVT_C      C                   const(3511)                          File ID converRADDAT           000000   63082500
082600+D EBADFID_C       C                   const(3512)                          A File ID coulRADDAT           000000   63082600
082700+D ESTALE_C        C                   const(3513)                          A File ID coulRADDAT           000000   63082700
082800+D ESRCH_C         C                   const(3515)                          No such procesRADDAT           000000   63082800
082900+D ENOTSIGINIT_C   C                   const(3516)                          Process not enRADDAT           000000   63082900
083000+D ECHILD_C        C                   const(3517)                          No child proceRADDAT           000000   63083000
083100+D EBADH_C         C                   const(3520)                          Handle is not RADDAT           000000   63083100
083200+D ETOOMANYREFS_C  C                   const(3523)                          The operation RADDAT           000000   63083200
083300+D ENOTSAFE_C      C                   const(3524)                          Function not aRADDAT           000000   63083300
083400+D EOVERFLOW_C     C                   const(3525)                          Object is too RADDAT           000000   63083400
083500+D EJRNDAMAGE_C    C                   CONST(3526)                          Journal damageRADDAT           000000   63083500
083600+D EJRNINACTIVE_C  C                   CONST(3527)                          Journal inactiRADDAT           000000   63083600
083700+D EJRNRCVSPC_C    C                   CONST(3528)                          Journal space RADDAT           000000   63083700
083800+D EJRNRMT_C       C                   CONST(3529)                          Journal is remRADDAT           000000   63083800
083900+D ENEWJRNRCV_C    C                   CONST(3530)                          New journal reRADDAT           000000   63083900
084000+D ENEWJRN_C       C                   CONST(3531)                          New journal isRADDAT           000000   63084000
084100+D EJOURNALED_C    C                   CONST(3532)                          Object alreadyRADDAT           000000   63084100
084200+D EJRNENTTOOLONG_C...                                                                    RADDAT           000000   63084200
084300+D                 C                   CONST(3533)                          Entry too largRADDAT           000000   63084300
084400+D EDATALINK_C     C                   CONST(3534)                          Object is a DaRADDAT           000000   63084400
084500+D ENOTAVAIL_C     C                   CONST(3535)                          Independent ASRADDAT           000000   63084500
084600+D ENOTTY_C        C                   CONST(3536)                          Inappropriate RADDAT           000000   63084600
084700+D EFBIG2_C        C                   CONST(3540)                          Write or truncRADDAT           000000   63084700
084800+D ETXTBSY_C       C                   CONST(3543)                          Text file busyRADDAT           000000   63084800
084900+D EASPGRPNOTSET_C...                                                                     RADDAT           000000   63084900
085000+D                 C                   CONST(3544)                          ASP group not RADDAT           000000   63085000
085100+D ERESTART_C      C                   CONST(3545)                          System call caRADDAT           000000   63085100
085200+D ESCANFAILURE_C  C                   CONST(3546)                          Object marked RADDAT           000000   63085200
085300+ *                                                                                       RADDAT           000000   63085300
085400+ *  Unix return codes                                                                    RADDAT           000000   63085400
085500+D RC_OK           C                   const(0)                                           RADDAT           000000   63085500
085600+D RC_ERROR        C                   const(-1)                                          RADDAT           000000   63085600
085700+ *                                                                                       RADDAT           000000   63085700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    131
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
085800+ *  Convert External Form to Numeric Value (CVTEFN)                                      RADDAT           000000   63085800
085900+D cvtefnd...                                                                             RADDAT           000000   63085900
086000+D                 PR             8F   extproc('cvtefnd')                                 RADDAT           000000   63086000
086100+D  i_source                       *   value                                              RADDAT           000000   63086100
086200+D  i_len                        10U 0 value                                              RADDAT           000000   63086200
086300+D  i_mask                         *   value                                              RADDAT           000000   63086300
086400+ *                                                                                       RADDAT           000000   63086400
086500+ *  Test Bit in String (TSTBTS)                                                          RADDAT           000000   63086500
086600+D tstbts...                                                                              RADDAT           000000   63086600
086700+D                 PR            10I 0 extproc('tstbts')                                  RADDAT           000000   63086700
086800+D  bit_string                     *   value                                              RADDAT           000000   63086800
086900+D  bit_offset                   10I 0 value                                              RADDAT           000000   63086900
087000+ *                                                                                       RADDAT           000000   63087000
087100+ *  getenv()--Get Value of Environment Variable                                          RADDAT           000000   63087100
087200+D getenv...                                                                              RADDAT           000000   63087200
087300+D                 PR              *   extproc('getenv')                                  RADDAT           000000   63087300
087400+D  name                           *   value  options(*string)                            RADDAT           000000   63087400
087500+ *                                                                                       RADDAT           000000   63087500
087600+ *  putenv()--Change or Add Environment Variable                                         RADDAT           000000   63087600
087700+D putenv...                                                                              RADDAT           000000   63087700
087800+D                 PR            10I 0 extproc('putenv')                                  RADDAT           000000   63087800
087900+D  string                         *   value  options(*string)                            RADDAT           000000   63087900
088000+ *                                                                                       RADDAT           000000   63088000
088100+ *  Qp0zDltEnv()--Delete an Environment Variable                                         RADDAT           000000   63088100
088200+D Qp0zDltEnv...                                                                          RADDAT           000000   63088200
088300+D                 PR            10I 0 extproc('Qp0zDltEnv')                              RADDAT           000000   63088300
088400+D  name                           *   value  options(*string)                            RADDAT           000000   63088400
088500+ *                                                                                       RADDAT           000000   63088500
088600+ *  Qp0zInitEnv()--Initialize Environment for Variables                                  RADDAT           000000   63088600
088700+D Qp0zInitEnv...                                                                         RADDAT           000000   63088700
088800+D                 PR            10I 0 extproc('Qp0zInitEnv')                             RADDAT           000000   63088800
088900+ *                                                                                       RADDAT           000000   63088900
089000+D ENVIRON         S               *   import('environ')                                  RADDAT           000000   63089000
089100+ *                                                                                       RADDAT           000000   63089100
089200+ *  Generate Universal Unique Identifier (GENUUID)                                       RADDAT           000000   63089200
089300+D genUUID...                                                                             RADDAT           000000   63089300
089400+D                 PR                  extproc('_GENUUID')                                RADDAT           000000   63089400
089500+D  uuid_template                  *   value                                              RADDAT           000000   63089500
089600+ *                                                                                       RADDAT           000000   63089600
089700+D uuid_template_t...                                                                     RADDAT           000000   63089700
089800+D                 DS                  qualified  based(pDummy)                           RADDAT           000000   63089800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    132
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
089900+D  bytPrv                       10U 0                                                    RADDAT           000000   63089900
090000+D  bytAvl                       10U 0                                                    RADDAT           000000   63090000
090100+D  reserved                      8A                                                      RADDAT           000000   63090100
090200+D  uuid                         16A                                                      RADDAT           000000   63090200
090300+ *                                                                                       RADDAT           000000   63090300
090400+ *  Convert Hex to Character (CVTHC)                                                     RADDAT           000000   63090400
090500+D cvthc...                                                                               RADDAT           000000   63090500
090600+D                 PR                  extproc('cvthc')                                   RADDAT           000000   63090600
090700+D  pResult                        *   value                                              RADDAT           000000   63090700
090800+D  pSource                        *   value                                              RADDAT           000000   63090800
090900+D  sourceSize                   10I 0 value                                              RADDAT           000000   63090900
091000+ *                                                                                       RADDAT           000000   63091000
091100+ *  Convert Eight Bit Character to Hex Nibbles (CVTCH)                                   RADDAT           000000   63091100
091200+D cvtch...                                                                               RADDAT           000000   63091200
091300+D                 PR                  extproc('cvtch')                                   RADDAT           000000   63091300
091400+D  pResult                        *   value                                              RADDAT           000000   63091400
091500+D  pSource                        *   value                                              RADDAT           000000   63091500
091600+D  sourceLen                    10I 0 value                                              RADDAT           000000   63091600
091700+ *                                                                                       RADDAT           000000   63091700
091800+ *  Cipher (CIPHER)                                                                      RADDAT           000000   63091800
091900+D cipher...                                                                              RADDAT           000000   63091900
092000+D                 PR                  extproc('_CIPHER')                                 RADDAT           000000   63092000
092100+D                                 *   const                                              RADDAT           000000   63092100
092200+D                                 *   value                                              RADDAT           000000   63092200
092300+D                                 *   const                                              RADDAT           000000   63092300
092400+ *                                                                                       RADDAT           000000   63092400
092500+D cipherCtrls_t   DS                  qualified  based(pDummy)  align                    RADDAT           000000   63092500
092600+D  function               1      2A                                                      RADDAT           000000   63092600
092700+D  hashAlg                3      3A                                                      RADDAT           000000   63092700
092800+D  sequence               4      4A                                                      RADDAT           000000   63092800
092900+D  dataLength             5      8U 0                                                    RADDAT           000000   63092900
093000+D  output                 9      9A                                                      RADDAT           000000   63093000
093100+D  reserved_1            10     16A                                                      RADDAT           000000   63093100
093200+D  hashContext           17     32*                                                      RADDAT           000000   63093200
093300+D  HMACKey               33     48*                                                      RADDAT           000000   63093300
093400+D  HMACKeyLength         49     52U 0                                                    RADDAT           000000   63093400
093500+D  reserved_2            53     96A                                                      RADDAT           000000   63093500
093600+ *                                                                                       RADDAT           000000   63093600
093700+D cCIPHER_MD5...                                                                         RADDAT           000000   63093700
093800+D                 C                   const(x'00')                                       RADDAT           000000   63093800
093900+D cCIPHER_SHA1...                                                                        RADDAT           000000   63093900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    133
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
094000+D                 C                   const(x'01')                                       RADDAT           000000   63094000
094100+ *                                                                                       RADDAT           000000   63094100
094200+D cCIPHER_ONLY...                                                                        RADDAT           000000   63094200
094300+D                 C                   const(x'00')                                       RADDAT           000000   63094300
094400+D cCIPHER_FIRST...                                                                       RADDAT           000000   63094400
094500+D                 C                   const(x'01')                                       RADDAT           000000   63094500
094600+D cCIPHER_MIDDLE...                                                                      RADDAT           000000   63094600
094700+D                 C                   const(x'02')                                       RADDAT           000000   63094700
094800+D cCIPHER_FINAL...                                                                       RADDAT           000000   63094800
094900+D                 C                   const(x'03')                                       RADDAT           000000   63094900
095000+ *                                                                                       RADDAT           000000   63095000
095100+D cCIPHER_HASH...                                                                        RADDAT           000000   63095100
095200+D                 C                   const(x'00')                                       RADDAT           000000   63095200
095300+D cCIPHER_HMAC...                                                                        RADDAT           000000   63095300
095400+D                 C                   const(x'01')                                       RADDAT           000000   63095400
095500+ *                                                                                       RADDAT           000000   63095500
095600+ /ENDIF                                                                                  RADDAT      DEF  000000   63095600
000500+ *                                                                                       RADDAT           000000   62000500
000600+D memWtr_handle_t...                                                                     RADDAT           000000   62000600
000700+D                 S             10I 0                    based(pDummy)                   RADDAT           000000   62000700
000800+D memRdr_handle_t...                                                                     RADDAT           000000   62000800
000900+D                 S             10I 0                    based(pDummy)                   RADDAT           000000   62000900
001000+ *                                                                                       RADDAT           000000   62001000
001100+ *  Creates a memory buffer writer.                                                      RADDAT           000000   62001100
001200+D MemoryWriter_new...                                                                    RADDAT           000000   62001200
001300+D                 PR                         like(memWtr_handle_t)                       RADDAT           000000   62001300
001400+D                                     extproc('BASICS1RH+                                RADDAT           000000   62001400
001500+D                                     _MemoryWriter_new+                                 RADDAT           000000   62001500
001600+D                                     ')                                                 RADDAT           000000   62001600
001700+D  i_pBuffer                      *   value                                              RADDAT           000000   62001700
001800+D  i_maxSize                          value  like(size_t         )                       RADDAT           000000   62001800
001900+ *                                                                                       RADDAT           000000   62001900
002000+ *  Write to a given memory buffer descriptor.                                           RADDAT           000000   62002000
002100+D MemoryWriter_write...                                                                  RADDAT           000000   62002100
002200+D                 PR                          like(ssize_t       )         = ssize_t     RADDAT           000000   62002200
002300+D                                     extproc('BASICS1RH+                                RADDAT           000000   62002300
002400+D                                     _MemoryWriter_write+                               RADDAT           000000   62002400
002500+D                                     ')                                                 RADDAT           000000   62002500
002600+D  i_fd                               value  like(memWtr_handle_t)         = int         RADDAT           000000   62002600
002700+D  i_pBuffer                      *   value                                = *buf        RADDAT           000000   62002700
002800+D  i_buflen                           value  like(size_t         )         = size_t      RADDAT           000000   62002800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    134
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002900+ *                                                                                       RADDAT           000000   62002900
003000+ *  Deletes a given memory buffer writer.                                                RADDAT           000000   62003000
003100+D MemoryWriter_delete...                                                                 RADDAT           000000   62003100
003200+D                 PR                                                                     RADDAT           000000   62003200
003300+D                                     extproc('BASICS1RH+                                RADDAT           000000   62003300
003400+D                                     _MemoryWriter_delete+                              RADDAT           000000   62003400
003500+D                                     ')                                                 RADDAT           000000   62003500
003600+D  io_fd                                     like(memWtr_handle_t)                       RADDAT           000000   62003600
003700+ *                                                                                       RADDAT           000000   62003700
003800+ *  Returns the 'write' procedure of a MemoryWriter.                                     RADDAT           000000   62003800
003900+D MemoryWriter_writeProc...                                                              RADDAT           000000   62003900
004000+D                 PR              *          procptr                                     RADDAT           000000   62004000
004100+D                                     extproc('BASICS1RH+                                RADDAT           000000   62004100
004200+D                                     _MemoryWriter_writeProc+                           RADDAT           000000   62004200
004300+D                                     ')                                                 RADDAT           000000   62004300
004400+ *                                                                                       RADDAT           000000   62004400
004500+ *  Creates a memory buffer reader.                                                      RADDAT           000000   62004500
004600+D MemoryReader_new...                                                                    RADDAT           000000   62004600
004700+D                 PR                         like(memRdr_handle_t)                       RADDAT           000000   62004700
004800+D                                     extproc('BASICS1RH+                                RADDAT           000000   62004800
004900+D                                     _MemoryReader_new+                                 RADDAT           000000   62004900
005000+D                                     ')                                                 RADDAT           000000   62005000
005100+D  i_pBuffer                      *   value                                              RADDAT           000000   62005100
005200+D  i_size                             value  like(size_t         )                                        000000   62005200
005300+ *                                                                                       RADDAT           000000   62005300
005400+ *  Reads from a given memory buffer descriptor.                                         RADDAT           000000   62005400
005500+D MemoryReader_read...                                                                   RADDAT           000000   62005500
005600+D                 PR                         like(ssize_t        )         = ssize_t     RADDAT           000000   62005600
005700+D                                     extproc('BASICS1RH+                                RADDAT           000000   62005700
005800+D                                     _MemoryReader_read+                                RADDAT           000000   62005800
005900+D                                     ')                                                 RADDAT           000000   62005900
006000+D  i_fd                               value  like(memRdr_handle_t)         = int         RADDAT           000000   62006000
006100+D  i_pBuffer                      *   value                                = *buf        RADDAT           000000   62006100
006200+D  i_nByte                            value  like(size_t    )              = size_t      RADDAT           000000   62006200
006300+ *                                                                                       RADDAT           000000   62006300
006400+ *  Deletes a given memory buffer Reader.                                                RADDAT           000000   62006400
006500+D MemoryReader_delete...                                                                 RADDAT           000000   62006500
006600+D                 PR                                                                     RADDAT           000000   62006600
006700+D                                     extproc('BASICS1RH+                                RADDAT           000000   62006700
006800+D                                     _MemoryReader_delete+                              RADDAT           000000   62006800
006900+D                                     ')                                                 RADDAT           000000   62006900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    135
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
007000+D  io_fd                                     like(memRdr_handle_t)                       RADDAT           000000   62007000
007100+ *                                                                                       RADDAT           000000   62007100
007200+ *  Returns the 'read' procedure of a MemoryReader.                                      RADDAT           000000   62007200
007300+D MemoryReader_readProc...                                                               RADDAT           000000   62007300
007400+D                 PR              *          procptr                                     RADDAT           000000   62007400
007500+D                                     extproc('BASICS1RH+                                RADDAT           000000   62007500
007600+D                                     _MemoryReader_readProc+                            RADDAT           000000   62007600
007700+D                                     ')                                                 RADDAT           000000   62007700
007800+ *                                                                                       RADDAT           000000   62007800
007900+ * -----------------------------------------                                             RADDAT           000000   62007900
008000+ *  Imported prototypes                                                                  RADDAT           000000   62008000
008100+ * -----------------------------------------                                             RADDAT           000000   62008100
008200+ *                                                                                       RADDAT           000000   62008200
008300+ /ENDIF                                                                                  RADDAT           000000   62008300
004100+ *                                                                                       RADDAT           000000    8004100
004200+ /ENDIF                                                                                  RADDAT           000000    8004200
000500+ /COPY QWSDL2RPG,TYPES                                                                               CPY  130829    7000500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES                                                        *                    64
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES)                                    *                    64
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                    64
        * Text 'description' . . . . :  Type definitions (private)                                   *                    64
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(TYPES)                                                                                   571106   64000100
000200+ /DEFINE TYPES                                                                                            571106   64000200
000300+ *=====================================================================*                                  571126   64000300
000400+ *  Important Information:                                                                                571126   64000400
000500+ *     All structures and fields are 16-byte aligned to avoid                                             571126   64000500
000600+ *     pointer problems.                                                                                  571126   64000600
000700+ *=====================================================================*                                  571126   64000700
000800+ /COPY QBASICS1,PBASICS1                      General Purpose Function Library                       CPY  571121   64000800
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1                                                     *                    65
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1)                                  *                    65
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    65
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Include             cpybk           *                    65
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(D_BASIC)                                                                RADDAT           000000   65000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   65004200
000900+ /COPY QWSDL2RPG,TYPES_H                      Type definitions (public)                              CPY  591118   64000900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    136
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES_H                                                      *                    66
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES_H)                                  *                    66
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                    66
        * Text 'description' . . . . :  Type definitions (public)                                    *                    66
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(WSDL2RPG_WS_STUB_COMMON_TYPES)                                                           130912   66000100
            LINES EXCLUDED: 269
027100+ /ENDIF                                                                                                   571106   66027100
001000+ *                                                                                                        600607   64001000
001100+ *  Classes                                                                                               600607   64001100
001200+D CLASS_TYPE...                                                                                           610925   64001200
001300+D                 C                   '*CLASS:wsdl2rpg.TYPE'                                              610925   64001300
001400+D CLASS_MESSAGE...                                                                                        600607   64001400
001500+D                 C                   '*CLASS:wsdl2rpg.MESSAGE'                                           600608   64001500
001600+D CLASS_PART...                                                                                           600607   64001600
001700+D                 C                   '*CLASS:wsdl2rpg.PART'                                              600608   64001700
001800+D CLASS_BOUND_OPERATION_IO...                                                                             600608   64001800
001900+D                 C                   '*CLASS:wsdl2rpg.BOUND_OPERATION_IO'                                600608   64001900
002000+D CLASS_TRANSCODER...                                                                                     611011   64002000
002100+D                 C                   '*CLASS:wsdl2rpg.TRANSCODER'                                        611011   64002100
002200+ *                                                                                                        621012   64002200
002300+ *  Boolean NULL value:                                                                                   621012   64002300
002400+D cBOOLEAN_NULL   C                   '*'                                                                 621012   64002400
002500+ *                                                                                                        611001   64002500
002600+ *  Output types:                                                                                         611001   64002600
002700+D cGENERATE_STUB...                                                                                       611001   64002700
002800+D                 C                   '*STUB'                                                             611001   64002800
002900+D cGENERATE_PGM...                                                                                        611001   64002900
003000+D                 C                   '*PGM'                                                              611001   64003000
003100+D cGENERATE_SRVICE_MODULE...                                                                              611001   64003100
003200+D                 C                   '*SRVMOD'                                                           611001   64003200
003300+ *                                                                                                        571206   64003300
003400+ *  The logger for wsdl2rpg:                                                                              571206   64003400
003500+D cLOGGER         C                   'WSDL2RPG.client'                    *ALL                           600404   64003500
003600+D cLOGGER_CONTROLLER...                                                                                   600404   64003600
003700+D                 C                   '.controller'                        WSDL2R01                       600404   64003700
003800+D cLOGGER_REQ_INP_PARAM...                                                                                600226   64003800
003900+D                 C                   '.requestInputParameters'            WSDL2R01                       600525   64003900
004000+D cLOGGER_NAMESPACES...                                                                                   571219   64004000
004100+D                 C                   '.namespaces'                        WSDL2R02                       580905   64004100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    137
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004200+D cLOGGER_RPG_ADAPTER...                                                                                  571219   64004200
004300+D                 C                   '.rpgAdapter'                        WSDL2R03                       580905   64004300
004400+D cLOGGER_WSDL_PARSER...                                                                                  600404   64004400
004500+D                 C                   '.wsdlParser'                        WSDL2R05                       600404   64004500
004600+D cLOGGER_TYPES...                                                                                        580905   64004600
004700+D                 C                   '.types'                             WSDL2R50                       580905   64004700
004800+D cLOGGER_HELPER_TYPES...                                                                                 600917   64004800
004900+D                 C                   '.types.helperTypes'                 WSDL2R50                       600917   64004900
005000+D cLOGGER_OPERATION...                                                                                    580114   64005000
005100+D                 C                   '.operation'                         WSDL2R52                       580905   64005100
005200+D cLOGGER_OPERATION_VISUALIZED_TYPES...                                                                   601212   64005200
005300+D                 C                   '.operation.visualizedTypes'         WSDL2R52                       601212   64005300
005400+D cLOGGER_XML_ARRAY...                                                                                    571214   64005400
005500+D                 C                   '.types.array.xml'                   WSDL2R59                       580905   64005500
005600+D cLOGGER_RPG_ARRAY...                                                                                    580905   64005600
005700+D                 C                   '.types.array.rpg'                   WSDL2R60                       580905   64005700
005800+D cLOGGER_ARRAY...                                                                                        600503   64005800
005900+D                 C                   '.dynamicArray'                      WSDL2R82                       600525   64005900
006000+D cLOGGER_COMPILER_CONDITIONS...                                                                          600503   64006000
006100+D                 C                   '.compilerConditions'                WSDL2R83                       600503   64006100
006200+D cLOGGER_MEMORY_MANAGER...                                                                               600503   64006200
006300+D                 C                   '.memoryManager'                     WSDL2R84                       600503   64006300
006400+D cLOGGER_MIME_HEADERS...                                                                                 580905   64006400
006500+D                 C                   '.mimeHeaders'                       WSDL2R85                       580905   64006500
006600+D cLOGGER_STREAM...                                                                                       580905   64006600
006700+D                 C                   '.stream'                            WSDL2R86                       580905   64006700
006800+D cLOGGER_MANAGED_MEMORY_DATA_SOURCE...                                                                   580905   64006800
006900+D                 C                   '.managedMemoryDataSource'           WSDL2R87                       580905   64006900
007000+D cLOGGER_MANAGED_MEMORY_DATA_SOURCE_ICONV...                                                             580905   64007000
007100+D                 C                   '.managedMemoryDataSource.iconv'     WSDL2R87                       580905   64007100
007200+D cLOGGER_ATTACHMENT_PART...                                                                              580905   64007200
007300+D                 C                   '.attachmentPart'                    WSDL2R88                       580905   64007300
007400+D cLOGGER_SOAP_MESSAGE...                                                                                 580905   64007400
007500+D                 C                   '.soapMessage'                       WSDL2R89                       580905   64007500
007600+D cLOGGER_SOAP_MESSAGE_DATA...                                                                            580905   64007600
007700+D                 C                   '.soapMessage.data'                  WSDL2R89                       580905   64007700
007800+D cLOGGER_APPLICATION_MESSAGE...                                                                          571219   64007800
007900+D                 C                   '.appMsg'                            WSDL2R90                       580905   64007900
008000+D cLOGGER_QUALIFIED_NAME...                                                                               571219   64008000
008100+D                 C                   '.qName'                             WSDL2R91                       580905   64008100
008200+D cLOGGER_TEMPFILE...                                                                                     580515   64008200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    138
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008300+D                 C                   '.TempFile'                          WSDL2R93                       580905   64008300
008400+D cLOGGER_COMMON...                                                                                       571219   64008400
008500+D                 C                   '.common'                            WSDL2R99                       580905   64008500
008600+D cLOGGER_MULTIREF...                                                                                     600220   64008600
008700+D                 C                   '.multiref'                          WSDL2R99                       600220   64008700
008800+ *                                                                                                        571219   64008800
008900+D cLOGGER_EXPAT_ADAPTER...                                                                                571219   64008900
009000+D                 C                   'WSDL2RPG.eXpatAdapter'              WSDL2R97                       580905   64009000
009100+ *                                                                                                        130913   64009100
009200+ *   HTTP header constants.                                                                               130913   64009200
009300+D cHTTP_HEADER_SOAP_ACTION...                                                                             130913   64009300
009400+D                 C                   'SOAPAction'                                                        130913   64009400
009500+D cHTTP_HEADER_MIME_VERSION...                                                                            130913   64009500
009600+D                 C                   'MIME-Version'                                                      130913   64009600
009700+D cHTTP_HEADER_CONTENT_TYPE...                                                                            130913   64009700
009800+D                 C                   'Content-Type'                                                      130913   64009800
009900+D cHTTP_HEADER_CONTENT_ID...                                                                              130913   64009900
010000+D                 C                   'Content-ID'                                                        130913   64010000
010100+D cHTTP_HEADER_CONTENT_DISPOSITION...                                                                     130913   64010100
010200+D                 C                   'Content-Disposition'                                               130913   64010200
010300+D cHTTP_HEADER_CONTENT_TRANSFER_ENCODING...                                                               130913   64010300
010400+D                 C                   'Content-Transfer-Encoding'                                         130913   64010400
010500+D cHTTP_HEADER_ATTR_TYPE...                                                                               130913   64010500
010600+D                 C                   'type'                                                              130913   64010600
010700+D cHTTP_HEADER_ATTR_BOUNDARY...                                                                           130913   64010700
010800+D                 C                   'boundary'                                                          130913   64010800
010900+D cHTTP_HEADER_ATTR_START...                                                                              130913   64010900
011000+D                 C                   'start'                                                             130913   64011000
011100+D cHTTP_HEADER_ATTR_FILE_NAME...                                                                          130913   64011100
011200+D                 C                   'filename'                                                          130913   64011200
011300+D cHTTP_HEADER_ATTR_NAME...                                                                               130913   64011300
011400+D                 C                   'name'                                                              130913   64011400
011500+ *                                                                                                        130913   64011500
011600+ * Maximum length of member name.                                                                         150309   64011600
011700+D cMAX_LENGTH_OF_OUTPUT_MEMBER_NAME...                                                                    611001   64011700
011800+D                 C                   8                                                                   611001   64011800
011900+ *                                                                                                        610728   64011900
012000+ *  Special value: Do not generate output member (stub or pgm).                                           610728   64012000
012100+D cSRCMBR_NONE...                                                                                         610728   64012100
012200+D                 C                   '*NONE'                                                             610728   64012200
012300+ *                                                                                                        610728   64012300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    139
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012400+ *  Special value: Create a stream file with the structure of                                             610728   64012400
012500+ *                 the input/output fields of the web service.                                            610728   64012500
012600+D cPARMSTRUCT_STMF...                                                                                     610728   64012600
012700+D                 C                   '*STMF'                                                             610728   64012700
012800+D cPARMSTRUCT_DISPLAY...                                                                                  610728   64012800
012900+D                 C                   '*'                                                                 610728   64012900
013000+ *                                                                                                        130712   64013000
013100+ *  Large string field                                                                                    130712   64013100
013200+ /if defined(*V6R1M0)                                                                                     130712   64013200
013300+D wsdl_largeString_t...                                                                                   130712   64013300
013400+D                 S        1048576A   varying(4)              based(pDummy)                               130712   64013400
013500+D wsdl_extraLargeString_t...                                                                              130712   64013500
013600+D                 S               A   varying(4)              based(pDummy)                               130712   64013600
013700+D                                     len(16773100)                                                       130712   64013700
013800+ /else                                                                                                    130712   64013800
            LINES EXCLUDED: 4
014300+ /endif                                                                                                   130712   64014300
014400+ *                                                                                                        571204   64014400
014500+ *  WSDL command parameter                                                                                571204   64014500
014600+ *  ... holds the proxy server and port                                                                   571204   64014600
014700+D wsdl_cmdServer_t...                                                                                     571204   64014700
014800+D                 DS                  qualified               based(pDummy)                               571204   64014800
014900+D  numE                          5I 0                                                                     571204   64014900
015000+D  proxyServer                        likeds(wsdl_qServer_t )                                             571204   64015000
015100+ *                                                                                                        571204   64015100
015200+ *  ... holds the selected web service port and operations                                                571204   64015200
015300+D wsdl_webService_t...                                                                                    571204   64015300
015400+D                 DS                  qualified               based(pDummy)                               571204   64015400
015500+D  numParms                      5I 0                                                                     571204   64015500
015600+D  port                        256A   varying                                                             571204   64015600
015700+D  ofsOperNmes                   5I 0                                                                     571204   64015700
015800+D  numOperations                 5I 0                                                                     571204   64015800
015900+D  operations                         likeds(wsdl_operationsX_t)                                          571204   64015900
016000+ *                                                                                                        571219   64016000
016100+ *  ... holds the output source member options                                                            571219   64016100
016200+D wsdl_srcMbrOpts_t...                                                                                    571219   64016200
016300+D                 DS                  qualified               based(pDummy)                               571219   64016300
016400+D  numParms                      5I 0                                                                     571219   64016400
016500+D  name                         10A                                                                       571219   64016500
016600+D  doReplace                      N                                                                       571219   64016600
016700+ *                                                                                                        610103   64016700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    140
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
016800+ *  ... holds the options of the STRUCTSTMF parameter                                                     610103   64016800
016900+D wsdl_structStmfOpts_t...                                                                                610103   64016900
017000+D                 DS                  qualified               based(pDummy)                               610103   64017000
017100+D  numParms                      5I 0                                                                     610103   64017100
017200+D  path                       5000A   varying                                                             610103   64017200
017300+D  doReplace                      N                                                                       610103   64017300
017400+ *                                                                                                        571204   64017400
017500+ *  ... holds the selected operations of the WSDL command                                                 571204   64017500
017600+D wsdl_operationsX_t...                                                                                   571204   64017600
017700+D                 DS                  qualified               based(pDummy)                               571204   64017700
017800+D  name                        256A   dim(cMAX_OPERATIONS) varying                                        571204   64017800
017900+ *                                                                                                        571204   64017900
018000+D cMAX_OPERATIONS...                                                                                      571204   64018000
018100+D                 C                   250                                                                 150318   64018100
018200+ *                                                                                                        610714   64018200
018300+ *  ... holds a field definition describing a varying field                                               610714   64018300
018400+D wsdl_fieldv6_t...                                                                                       610714   64018400
018500+D                 DS                  qualified               based(pDummy)                               610714   64018500
018600+D  pField                         *                                                                       610714   64018600
018700+D  pData                          *                                                                       610714   64018700
018800+D  size                         10I 0                                                                     610714   64018800
018900+ *                                                                                                        130912   64018900
019000+ *  Number of operations counter                                                                          610927   64019000
019100+D wsdl_numOper_t  S              3S 0                         based(pDummy)                               150308   64019100
019200+ *                                                                                                        611001   64019200
019300+ *  Holds a name such as 'xsd:String' or a RPG procedure name.                                            611001   64019300
019400+D wsdl_name_t     S           4094A   varying                 based(pDummy)                               611001   64019400
019500+ *                                                                                                        571123   64019500
019600+ *  Holds a (attribute) value.                                                                            571229   64019600
019700+D wsdl_value_t    S           4094A   varying                 based(pDummy)                               571229   64019700
019800+ *                                                                                                        571229   64019800
019900+ *  Holds a key of a type. (length must be lName + ns!)                                                   580529   64019900
020000+D wsdl_mapKey_t   S           1022A   varying                                                             580529   64020000
020100+D                                                             based(pDummy)                               571123   64020100
020200+ *  Holds a simple URL such as 'http://server:8080/WebService/Service.wsdl'                               571207   64020200
020300+D wsdl_url_t      S            254A   varying                 based(pDummy)                               571130   64020300
020400+ *                                                                                                        571126   64020400
020500+ *  Holds a namespace prefix such as 'xsd'.                                                               571126   64020500
020600+D wsdl_nsPrefix_t...                                                                                      571126   64020600
020700+D                 S             30A   varying                 based(pDummy)                               571126   64020700
020800+ *                                                                                                        571108   64020800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    141
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
020900+ *  Holds an error code.                                                                                  571108   64020900
021000+D wsdl_error_t...                                                                                         571108   64021000
021100+D                 S             10I 0                         based(pDummy)                               571108   64021100
021200+ *                                                                                                        571126   64021200
021300+ *  Holds a namespace name such as: http://schemas.xmlsoap.org/wsdl/                                      571126   64021300
021400+D wsdl_lName_t...                                                                                         571126   64021400
021500+D                 S            510A   varying                 based(pDummy)                               571206   64021500
021600+ *                                                                                                        571126   64021600
021700+ *  Holds a namespace qualifier                                                                           571126   64021700
021800+D wsdl_nsValue_t...                                                                                       580531   64021800
021900+D                 S            510A   varying                 based(pDummy)                               571206   64021900
022000+ *                                                                                                        571205   64022000
022100+ *  Holds the dimension of a type.                                                                        571205   64022100
022200+D wsdl_dimXml_t...                                                                                        571206   64022200
022300+D                 S             30A   varying                 based(pDummy)                               571206   64022300
022400+D wsdl_dim_t...                                                                                           571206   64022400
022500+D                 S             10I 0                         based(pDummy)                               571206   64022500
022600+ *                                                                                                        130913   64022600
022700+ *  Handle of a message context                                                                           130913   64022700
022800+D wsdl_hMsgCtx_t  S               *                           based(pDummy)                               130913   64022800
022900+ *                                                                                                        130913   64022900
023000+ *  Holds the dimension of a type.                                                                        610416   64023000
023100+D wsdl_tgtrls_t...                                                                                        610416   64023100
023200+D                 S              6A                           based(pDummy)                               610416   64023200
023300+ *                                                                                                        571206   64023300
023400+D cDIM_LENGTH     C                   %len(wsdl_dim_t)                                                    571206   64023400
023500+D cDIM_DIGITS     C                   %decpos(wsdl_dim_t)                                                 571206   64023500
023600+D cDIM_XML_UNBOUNDED...                                                                                   571206   64023600
023700+D                 C                   'unbounded'                                                         571206   64023700
023800+ *                                                                                                        571125   64023800
023900+D cDECIMAL_TYPE...                                                                                        571125   64023900
024000+D                 C                   'S'                                                                 571125   64024000
024100+D cDECIMAL_LEN...                                                                                         571125   64024100
024200+D                 C                   %len(wsdl_decimal_t )                                               571125   64024200
024300+D cDECIMAL_DECPOS...                                                                                      571125   64024300
024400+D                 C                   %decpos(wsdl_decimal_t)                                             571125   64024400
024500+ *                                                                                                        571221   64024500
024600+D cDOUBLE_TYPE...                                                                                         571221   64024600
024700+D                 C                   'S'                                                                 571221   64024700
024800+D cDOUBLE_LEN...                                                                                          571221   64024800
024900+D                 C                   %len(wsdl_double_t )                                                571221   64024900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    142
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
025000+D cDOUBLE_DECPOS...                                                                                       571221   64025000
025100+D                 C                   %decpos(wsdl_double_t)                                              571221   64025100
025200+ *                                                                                                        580319   64025200
025300+ *  Attributes of a float value.                   (see also: UnMarshaller)                               591118   64025300
025400+D cFLOAT_TYPE...                                                                                          580319   64025400
025500+D                 C                   'S'                                                                 580319   64025500
025600+D cFLOAT_LEN...                                                                                           580319   64025600
025700+D                 C                   %len(wsdl_float_t  )                                                580319   64025700
025800+D cFLOAT_DECPOS...                                                                                        580319   64025800
025900+D                 C                   %decpos(wsdl_float_t )                                              580319   64025900
026000+ *                                                                                                        571125   64026000
026100+ *  Attributes of a short integer value.           (see also: UnMarshaller)                               591118   64026100
026200+D cSHORT_TYPE...                                                                                          580121   64026200
026300+D                 C                   'I'                                                                 580121   64026300
026400+D cSHORT_LEN...                                                                                           580121   64026400
026500+D                 C                   %len(wsdl_short_t )                                                 580121   64026500
026600+D cSHORT_DECPOS...                                                                                        580121   64026600
026700+D                 C                   %decpos(wsdl_short_t)                                               580121   64026700
026800+ *                                                                                                        580905   64026800
026900+ *  Attributes of a byte integer value.            (see also: UnMarshaller)                               600831   64026900
027000+D cBYTE_TYPE...                                                                                           600831   64027000
027100+D                 C                   'I'                                                                 600831   64027100
027200+D cBYTE_LEN...                                                                                            600831   64027200
027300+D                 C                   %len(wsdl_byte_t  )                                                 600831   64027300
027400+D cBYTE_DECPOS...                                                                                         600831   64027400
027500+D                 C                   %decpos(wsdl_byte_t )                                               600831   64027500
027600+ *                                                                                                        600831   64027600
027700+ *  Attributes of an integer value.                (see also: UnMarshaller)                               591118   64027700
027800+D cINT_TYPE...                                                                                            590804   64027800
027900+D                 C                   'I'                                                                 580905   64027900
028000+D cINT_LEN...                                                                                             590804   64028000
028100+D                 C                   %len(wsdl_int_t     )                                               590804   64028100
028200+D cINT_DECPOS...                                                                                          590804   64028200
028300+D                 C                   %decpos(wsdl_int_t  )                                               590804   64028300
028400+ *                                                                                                        590804   64028400
028500+ *  Attributes of an integer.                      (see also: UnMarshaller)                               591118   64028500
028600+D cINTEGER_TYPE...                                                                                        590804   64028600
028700+D                 C                   'I'                                                                 590804   64028700
028800+D cINTEGER_LEN...                                                                                         590804   64028800
028900+D                 C                   %len(wsdl_integer_t)                                                590804   64028900
029000+D cINTEGER_DECPOS...                                                                                      590804   64029000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    143
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
029100+D                 C                   %decpos(wsdl_integer_t)                                             590804   64029100
029200+ *                                                                                                        580905   64029200
029300+ *  Attributes of a long integer value.            (see also: UnMarshaller)                               591118   64029300
029400+D cLONG_TYPE...                                                                                           580905   64029400
029500+D                 C                   'I'                                                                 580905   64029500
029600+D cLONG_LEN...                                                                                            580905   64029600
029700+D                 C                   %len(wsdl_long_t  )                                                 580905   64029700
029800+D cLONG_DECPOS...                                                                                         580905   64029800
029900+D                 C                   %decpos(wsdl_long_t )                                               580905   64029900
030000+ *                                                                                                        580905   64030000
030100+ *  Attributes of an unsigned short integer value. (see also: UnMarshaller)                               591118   64030100
030200+D cUSHORT_TYPE...                                                                                         580905   64030200
030300+D                 C                   'U'                                                                 580905   64030300
030400+D cUSHORT_LEN...                                                                                          580905   64030400
030500+D                 C                   %len(wsdl_uShort_t )                                                580905   64030500
030600+D cUSHORT_DECPOS...                                                                                       580905   64030600
030700+D                 C                   %decpos(wsdl_uShort_t)                                              580905   64030700
030800+ *                                                                                                        600831   64030800
030900+ *  Attributes of an unsigned byte integer value.  (see also: UnMarshaller)                               600831   64030900
031000+D cUBYTE_TYPE...                                                                                          600831   64031000
031100+D                 C                   'U'                                                                 600831   64031100
031200+D cUBYTE_LEN...                                                                                           600831   64031200
031300+D                 C                   %len(wsdl_uByte_t  )                                                600831   64031300
031400+D cUBYTE_DECPOS...                                                                                        600831   64031400
031500+D                 C                   %decpos(wsdl_uByte_t )                                              600831   64031500
031600+ *                                                                                                        580905   64031600
031700+ *  Attributes of an unsigned integer value.       (see also: UnMarshaller)                               591118   64031700
031800+D cUINT_TYPE...                                                                                           590804   64031800
031900+D                 C                   'U'                                                                 580905   64031900
032000+D cUINT_LEN...                                                                                            590804   64032000
032100+D                 C                   %len(wsdl_uInt_t     )                                              590804   64032100
032200+D cUINT_DECPOS...                                                                                         590804   64032200
032300+D                 C                   %decpos(wsdl_uInt_t  )                                              590804   64032300
032400+ *                                                                                                        580905   64032400
032500+ *  Attributes of a long integer value.            (see also: UnMarshaller)                               591118   64032500
032600+D cULONG_TYPE...                                                                                          580905   64032600
032700+D                 C                   'U'                                                                 580905   64032700
032800+D cULONG_LEN...                                                                                           580905   64032800
032900+D                 C                   %len(wsdl_uLong_t  )                                                580905   64032900
033000+D cULONG_DECPOS...                                                                                        580905   64033000
033100+D                 C                   %decpos(wsdl_uLong_t )                                              580905   64033100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    144
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
033200+ *                                                                                                        580905   64033200
033300+ *  Attributes of a non negative integer value.    (see also: UnMarshaller)                               591118   64033300
033400+D cNON_NEG_INT_TYPE...                                                                                    580905   64033400
033500+D                 C                   'I'                                                                 580905   64033500
033600+D cNON_NEG_INT_LEN...                                                                                     580905   64033600
033700+D                 C                   %len(wsdl_nonNegInt_t )                                             580905   64033700
033800+D cNON_NEG_INT_DECPOS...                                                                                  580905   64033800
033900+D                 C                   %decpos(wsdl_nonNegInt_t )                                          580905   64033900
034000+ *                                                                                                        580905   64034000
034100+ *  Attributes of a non positive integer value.    (see also: UnMarshaller)                               591118   64034100
034200+D cNON_POS_INT_TYPE...                                                                                    580905   64034200
034300+D                 C                   'I'                                                                 580905   64034300
034400+D cNON_POS_INT_LEN...                                                                                     580905   64034400
034500+D                 C                   %len(wsdl_nonPosInt_t )                                             580905   64034500
034600+D cNON_POS_INT_DECPOS...                                                                                  580905   64034600
034700+D                 C                   %decpos(wsdl_nonPosInt_t )                                          580905   64034700
034800+ *                                                                                                        580905   64034800
034900+ *  Attributes of a negative integer value.        (see also: UnMarshaller)                               591118   64034900
035000+D cNEG_INT_TYPE...                                                                                        580905   64035000
035100+D                 C                   'I'                                                                 580905   64035100
035200+D cNEG_INT_LEN...                                                                                         580905   64035200
035300+D                 C                   %len(wsdl_negInt_t )                                                580905   64035300
035400+D cNEG_INT_DECPOS...                                                                                      580905   64035400
035500+D                 C                   %decpos(wsdl_negInt_t )                                             580905   64035500
035600+ *                                                                                                        580905   64035600
035700+ *  Attributes of a positive integer value.        (see also: UnMarshaller)                               591118   64035700
035800+D cPOS_INT_TYPE...                                                                                        580905   64035800
035900+D                 C                   'I'                                                                 580905   64035900
036000+D cPOS_INT_LEN...                                                                                         580905   64036000
036100+D                 C                   %len(wsdl_posInt_t )                                                580905   64036100
036200+D cPOS_INT_DECPOS...                                                                                      580905   64036200
036300+D                 C                   %decpos(wsdl_posInt_t )                                             580905   64036300
036400+ *                                                                                                        600605   64036400
036500+ *  Attributes of a gDay value.                    (see also: UnMarshaller)                               600605   64036500
036600+D cGDAY_TYPE...                                                                                           600606   64036600
036700+D                 C                   'I'                                                                 600605   64036700
036800+D cGDAY_LEN...                                                                                            600606   64036800
036900+D                 C                   %len(wsdl_gDay_t      )                                             600605   64036900
037000+D cGDAY_DECPOS...                                                                                         600606   64037000
037100+D                 C                   %decpos(wsdl_gDay_t   )                                             600605   64037100
037200+ *                                                                                                        600605   64037200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    145
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
037300+ *  Attributes of a gMonth value.                  (see also: UnMarshaller)                               600605   64037300
037400+D cGMONTH_TYPE...                                                                                         600606   64037400
037500+D                 C                   'I'                                                                 600605   64037500
037600+D cGMONTH_LEN...                                                                                          600606   64037600
037700+D                 C                   %len(wsdl_gMonth_t    )                                             600605   64037700
037800+D cGMONTH_DECPOS...                                                                                       600606   64037800
037900+D                 C                   %decpos(wsdl_gMonth_t )                                             600605   64037900
038000+ *                                                                                                        600605   64038000
038100+ *  Attributes of a gMonthDay value.               (see also: UnMarshaller)                               600605   64038100
038200+D cGMONTH_DAY_TYPE...                                                                                     600606   64038200
038300+D                 C                   'I'                                                                 600605   64038300
038400+D cGMONTH_DAY_LEN...                                                                                      600606   64038400
038500+D                 C                   %len(wsdl_gMonthDay_t    )                                          600605   64038500
038600+D cGMONTH_DAY_DECPOS...                                                                                   600606   64038600
038700+D                 C                   %decpos(wsdl_gMonthDay_t )                                          600605   64038700
038800+ *                                                                                                        600605   64038800
038900+ *  Attributes of a gYear value.                   (see also: UnMarshaller)                               600605   64038900
039000+D cGYEAR_TYPE...                                                                                          600606   64039000
039100+D                 C                   'I'                                                                 600605   64039100
039200+D cGYEAR_LEN...                                                                                           600606   64039200
039300+D                 C                   %len(wsdl_gYear_t        )                                          600605   64039300
039400+D cGYEAR_DECPOS...                                                                                        600606   64039400
039500+D                 C                   %decpos(wsdl_gYear_t     )                                          600605   64039500
039600+ *                                                                                                        600605   64039600
039700+ *  Attributes of a gYearMonth value               (see also: UnMarshaller)                               600605   64039700
039800+D cGYEAR_MONTH_TYPE...                                                                                    600606   64039800
039900+D                 C                   'I'                                                                 600605   64039900
040000+D cGYEAR_MONTH_LEN...                                                                                     600606   64040000
040100+D                 C                   %len(wsdl_gYearMonth_t   )                                          600605   64040100
040200+D cGYEAR_MONTH_DECPOS...                                                                                  600606   64040200
040300+D                 C                   %decpos(wsdl_gYearMonth_t)                                          600605   64040300
040400+ *                                                                                                        571126   64040400
040500+ *  Holds the parameter order of a Web Service operation                                                  571207   64040500
040600+D wsdl_parameterOrder_t...                                                                                571207   64040600
040700+D                 S                   like(wsdl_name_t )      based(pDummy)                               571207   64040700
040800+ *                                                                                                        571207   64040800
040900+ *  Holds the protocol specified for a web service port.                                                  571207   64040900
041000+D wsdl_protocol_t...                                                                                      571207   64041000
041100+D                 S             14A   varying                 based(pDummy)                               571207   64041100
041200+ *                                                                                                        571207   64041200
041300+ *  Holds the documentation of any element.                                                               571208   64041300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    146
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
041400+D wsdl_documentation_t...                                                                                 571208   64041400
041500+D                 S           4094A   varying                 based(pDummy)                               580116   64041500
041600+ *                                                                                                        571229   64041600
041700+ *  Specifies what encoding to use.                                                                       571229   64041700
041800+D wsdl_use_t...                                                                                           571229   64041800
041900+D                 S             14A   varying                 based(pDummy)                               571229   64041900
042000+ *                                                                                                        571208   64042000
042100+ *  Specifies the encoding style of a binding.                                                            571229   64042100
042200+D wsdl_style_t...                                                                                         571229   64042200
042300+D                 S             14A   varying                 based(pDummy)                               571229   64042300
042400+ *                                                                                                        580319   64042400
042500+ *  Specifies the type of a type definition (*ELEM/*TYPE)                                                 580319   64042500
042600+D wsdl_defType_t...                                                                                       580319   64042600
042700+D                 S              5A                           based(pDummy)                               580319   64042700
042800+ *                                                                                                        600607   64042800
042900+ *  ID to identify a specific object type                                                                 600607   64042900
043000+D wsdl_class_t...                                                                                         600607   64043000
043100+D                 DS                  qualified               based(pDummy)                               600607   64043100
043200+D  name                               like(wsdl_className_t )                                             600607   64043200
043300+D  size                         10I 0                                                                     600607   64043300
043400+D  reserved                     12A                                                                       610925   64043400
043500+ *                                                                                                        600607   64043500
043600+D wsdl_className_t...                                                                                     600607   64043600
043700+D                 S             62A   varying                 based(pDummy)                               600608   64043700
043800+ *                                                                                                        611011   64043800
043900+ *  Structure to hold a WSDL transcoder handle                                                            611011   64043900
044000+D wsdl_transcoder_t...                                                                                    611011   64044000
044100+D                 DS                  qualified               based(pDummy)                               611011   64044100
044200+D  class                              likeds(wsdl_class_t   )                                             611011   64044200
044300+D  fromCcsid                    10U 0                                                                     611011   64044300
044400+D  toCcsid                      10U 0                                                                     611011   64044400
044500+D  hIconv                             likeds(iconv_t        )                                             611011   64044500
044600+ *                                                                                                        571229   64044600
044700+ *  Holds the name and port of a server.                                                                  571126   64044700
044800+D wsdl_qServer_t...                                                                                       571126   64044800
044900+D                 DS                  qualified               based(pDummy)                               571126   64044900
045000+D  name                        126A   varying                                                             571126   64045000
045100+D  port                         10I 0                                                                     571126   64045100
045200+D  reserved_1                   12A                                                                       571126   64045200
045300+ *                                                                                                        571205   64045300
045400+ *  Structure to hold all services of a given WSDL file.                                                  571205   64045400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    147
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
045500+D wsdl_services_t...                                                                                      571205   64045500
045600+D                 DS                  qualified               based(pDummy)                               571205   64045600
045700+D  serviceList                        likeds(wsdl_map_t     )                                             571205   64045700
045800+ *                                                                                                        571205   64045800
045900+ *  Structure to hold a WSDL service definition                                                           571205   64045900
046000+D wsdl_service_t...                                                                                       571205   64046000
046100+D                 DS                  qualified               based(pDummy)                               571205   64046100
046200+D  qName                              likeds(wsdl_qName_t   )                                             571205   64046200
046300+D  portList                           likeds(wsdl_map_t     )                                             571205   64046300
046400+ *                                                                                                        571205   64046400
046500+ *  Structure to hold all types of a given WSDL file.                                                     571205   64046500
046600+D wsdl_types_t...                                                                                         571205   64046600
046700+D                 DS                  qualified               based(pDummy)                               571205   64046700
046800+D  typesList                          likeds(wsdl_map_t     )                                             571205   64046800
046900+ *                                                                                                        571108   64046900
047000+ *  Structure to hold a WSDL type definition                                                              571108   64047000
047100+D wsdl_type_t...                                                                                          571108   64047100
047200+D                 DS                  qualified               based(pDummy)                               571108   64047200
047300+D  class                              likeds(wsdl_class_t   )                                             610925   64047300
047400+D  isUsed                         N                                          1 byte                       600403   64047400
047500+D  isSequence                     N                                        + 1 byte                       581101   64047500
047600+D  isQualified                   1A                                        + 1 byte                       621012   64047600
047700+D  isExtension                    N                                        + 1 byte                       590826   64047700
047800+D  isSoapEncoded                  N                                        + 1 byte                       591015   64047800
047900+D  helperTypeId                  1A                                        + 1 byte                       601015   64047900
048000+D  isChoice                       N                                        + 1 byte                       600914   64048000
048100+D  referencesType...                                                                                      581101   64048100
048200+D                                 N                                        + 1 byte                       581101   64048200
048300+D  referencesQualified...                                                                                 620827   64048300
048400+D                                 N                                        + 1 byte                       620827   64048400
048500+D  arrayType                    10A   varying                              +12 byte                       581101   64048500
048600+D  arrayID                      10I 0                                      + 4 byte                       581101   64048600
048700+D  dim                                like(wsdl_dim_t       )              + 4 byte                       581101   64048700
048800+D  length                       10I 0                                      + 4 byte                       590507   64048800
048900+D  fraction                     10I 0                                      + 4 byte                       590507   64048900
049000+D  sortSeq                      10I 0                                      + 4 byte                       600901   64049000
049100+D  numSeqHlpType                10I 0                                      + 4 byte                       600901   64049100
049200+D  numChcHlpType                10I 0                                      + 4 byte                       600901   64049200
049300+D  defType                            like(wsdl_defType_t   )              + 5 byte                       581101   64049300
049400+D  reserved_1                   10A                                        +10 byte = 64                  620827   64049400
049500+D  qName                              likeds(wsdl_qName_t   )                                             571126   64049500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    148
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
049600+D  qType                              likeds(wsdl_qName_t   )                                             571126   64049600
049700+D  qNameOriginal                      likeds(wsdl_qName_t   )                                             620901   64049700
049800+D  subTypesList                       likeds(wsdl_map_t     )                                             571126   64049800
049900+D  uuid                         16A                                                                       620123   64049900
050000+ *                                                                                                        571213   64050000
050100+D cARRAY_NONE...                                                                                          571213   64050100
050200+D                 C                   '-'                                                                 571213   64050200
050300+D cARRAY_XML...                                                                                           571213   64050300
050400+D                 C                   'XML'                                                               571213   64050400
050500+D cARRAY_RPG...                                                                                           571213   64050500
050600+D                 C                   'RPG'                                                               571213   64050600
050700+D cARRAY_VALUE...                                                                                         571213   64050700
050800+D                 C                   'ARY-VALUE'                                                         571213   64050800
050900+D cARRAY_INDEX...                                                                                         571213   64050900
051000+D                 C                   'ARY-INDEX'                                                         571213   64051000
051100+D cTYPE_REFERENCE...                                                                                      580110   64051100
051200+D                 C                   '*REFERENCE'                                                        580110   64051200
051300+ *                                                                                                        571205   64051300
051400+ *  Structure to hold all messages of a given WSDL file.                                                  571205   64051400
051500+D wsdl_messages_t...                                                                                      571205   64051500
051600+D                 DS                  qualified               based(pDummy)                               571205   64051600
051700+D  msgList                            likeds(wsdl_map_t     )                                             571205   64051700
051800+ *                                                                                                        571126   64051800
051900+ *  Structure to hold a WSDL message definition                                                           571126   64051900
052000+D wsdl_message_t...                                                                                       571126   64052000
052100+D                 DS                  qualified               based(pDummy)                               571126   64052100
052200+D  class                              likeds(wsdl_class_t   )                                             600607   64052200
052300+D  qName                              likeds(wsdl_qName_t   )                                             571126   64052300
052400+D  partsList                          likeds(wsdl_map_t     )                                             571126   64052400
052500+ *                                                                                                        571205   64052500
052600+ *  Structure to hold a WSDL (message) part definition                                                    571205   64052600
052700+D wsdl_part_t...                                                                                          600521   64052700
052800+D                 DS                  qualified               based(pDummy)                               600521   64052800
052900+D  class                              likeds(wsdl_class_t   )                                             600607   64052900
053000+D  qName                              likeds(wsdl_qName_t    )                                            600521   64053000
053100+D  qElement                           likeds(wsdl_qName_t    )                                            600521   64053100
053200+D  defType                            like(wsdl_defType_t    )                                            600521   64053200
053300+D  isSoapHeader                   N                                                                       600607   64053300
053400+D  sortSeq                      10I 0                                                                     610131   64053400
053500+D  reserved_1                   11A                                                                       610131   64053500
053600+ *                                                                                                        571205   64053600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    149
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
053700+ *  Structure to hold all port types of a given WSDL file.                                                571205   64053700
053800+D wsdl_portTypes_t...                                                                                     571205   64053800
053900+D                 DS                  qualified               based(pDummy)                               571205   64053900
054000+D  portTypeList                       likeds(wsdl_map_t     )                                             571205   64054000
054100+ *                                                                                                        571205   64054100
054200+ *  Structure to hold a WSDL port type definition                                                         571205   64054200
054300+D wsdl_portType_t...                                                                                      571205   64054300
054400+D                 DS                  qualified               based(pDummy)                               571205   64054400
054500+D  qName                              likeds(wsdl_qName_t   )                                             571205   64054500
054600+D  operationList                      likeds(wsdl_map_t     )                                             571205   64054600
054700+ *                                                                                                        571208   64054700
054800+ *  Structure to hold a WSDL operation                                                                    571208   64054800
054900+D wsdl_operation_t...                                                                                     571208   64054900
055000+D                 DS                  qualified               based(pDummy)                               571208   64055000
055100+D  isUsed                         N                                                                       571208   64055100
055200+D  reserved_1                   15A                                                                       610927   64055200
055300+D  qName                              likeds(wsdl_qName_t   )                                             571208   64055300
055400+D  parameterOrder...                                                                                      571208   64055400
055500+D                                     like(wsdl_parameterOrder_t)                                         571208   64055500
055600+D  documentation                      like(wsdl_documentation_t)                                          571208   64055600
055700+D  input                              likeds(wsdl_operationIO_t)                                          571208   64055700
055800+D  output                             likeds(wsdl_operationIO_t)                                          571208   64055800
055900+ *                                                                                                        571208   64055900
056000+ *  Structure to hold the operation messages                                                              571208   64056000
056100+D wsdl_operationIO_t...                                                                                   571208   64056100
056200+D                 DS                  qualified               based(pDummy)                               571208   64056200
056300+D  qName                              likeds(wsdl_qName_t       )                                         571208   64056300
056400+D  qMessage                           likeds(wsdl_qName_t       )                                         571208   64056400
056500+ *                                                                                                        571123   64056500
056600+ *  Structure of a Map                                                                                    571205   64056600
056700+D wsdl_map_t...                                                                                           571126   64056700
056800+D                 DS                  qualified               based(pDummy)                               571123   64056800
056900+D  hMap                               like(BasicMap_handle_t)                                             571126   64056900
057000+D  curKey                             like(wsdl_mapKey_t    )                                             571126   64057000
057100+D  areChoices                     N                                                                       601010   64057100
057200+ *                                                                                                        571204   64057200
057300+ *  Structure to hold a WSDL port definition                                                              571204   64057300
057400+D wsdl_port_t...                                                                                          571204   64057400
057500+D                 DS                  qualified               based(pDummy)                               571204   64057500
057600+D  qName                              likeds(wsdl_qName_t   )                                             571204   64057600
057700+D  protocol                           like(wsdl_protocol_t  )                                             571207   64057700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    150
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
057800+D  qBinding                           likeds(wsdl_qName_t   )                                             571204   64057800
057900+D  address                            like(wsdl_url_t       )                                             571208   64057900
058000+ *                                                                                                        571205   64058000
058100+ *  Structure to hold all bindings of a given WSDL file                                                   571205   64058100
058200+D wsdl_bindings_t...                                                                                      571205   64058200
058300+D                 DS                  qualified               based(pDummy)                               571205   64058300
058400+D  bindingsList                       likeds(wsdl_map_t     )                                             571205   64058400
058500+ *                                                                                                        571204   64058500
058600+ *  Structure to hold a WSDL binding definition                                                           571204   64058600
058700+D wsdl_binding_t...                                                                                       571204   64058700
058800+D                 DS                  qualified               based(pDummy)                               571204   64058800
058900+D  qName                              likeds(wsdl_qName_t   )                                             571204   64058900
059000+D  qType                              likeds(wsdl_qName_t   )                                             571204   64059000
059100+D  style                              like(wsdl_style_t     )                                             571229   64059100
059200+D  boundOperationList...                                                                                  571204   64059200
059300+D                                     likeds(wsdl_map_t     )                                             571204   64059300
059400+ *                                                                                                        571204   64059400
059500+ *  Structure to hold a WSDL operation bound to a binding                                                 571205   64059500
059600+D wsdl_boundOperation_t...                                                                                571204   64059600
059700+D                 DS                  qualified               based(pDummy)                               571204   64059700
059800+D  qName                              likeds(wsdl_qName_t   )                                             571204   64059800
059900+D  soapAction                         like(wsdl_soapAction_t)                                             571208   64059900
060000+D  style                              like(wsdl_style_t     )                                             630514   64060000
060100+D  input                              likeds(wsdl_boundOperationIO_t )                                    571229   64060100
060200+D  output                             likeds(wsdl_boundOperationIO_t )                                    571229   64060200
060300+ *                                                                                                        571229   64060300
060400+ *  Structure to hold the attributes of a bound operation message.                                        571229   64060400
060500+D wsdl_boundOperationIO_t...                                                                              571229   64060500
060600+D                 DS                  qualified               based(pDummy)                               571229   64060600
060700+D  class                              likeds(wsdl_class_t     )                                           600608   64060700
060800+D  qName                              likeds(wsdl_qName_t     )                                           600608   64060800
060900+D  hSoapHeaders                       like(BasicList_handle_t )                                           600608   64060900
061000+D  body                               likeds(wsdl_soapBody_t  )                                           600608   64061000
061100+ *                                                                                                        600405   64061100
061200+D wsdl_soapHeader_t...                                                                                    600405   64061200
061300+D                 DS                  qualified                                                           600405   64061300
061400+D  use                                like(wsdl_use_t      )                                              600608   64061400
061500+D  qPart                              likeds(wsdl_qName_t  )                                              600608   64061500
061600+D  qMessage                           likeds(wsdl_qName_t  )                                              600608   64061600
061700+ *                                                                                                        600405   64061700
061800+D wsdl_soapBody_t...                                                                                      600405   64061800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    151
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
061900+D                 DS                  qualified                                                           600405   64061900
062000+D  use                                like(wsdl_use_t     )                                               600405   64062000
062100+ *                                                                                                        571129   64062100
062200+ *  Structure to hold a RPG D-Spec description                                                            571129   64062200
062300+D wsdl_dSpec_t...                                                                                         571129   64062300
062400+D                 DS                  qualified               based(pDummy)                               571129   64062400
062500+D  name                       4096A   varying                                                             571129   64062500
062600+D  declType                     20A                                                                       571130   64062600
062700+D  primitive                          likeds(wsdl_rpgType_t )                                             571129   64062700
062800+D  numKwds                      10I 0                                                                     571129   64062800
062900+D  keywords                   4096A   varying dim(cMAX_KWDS)                                              571204   64062900
063000+D  isComment                      N                                                                       600407   64063000
063100+ *                                                                                                        571204   64063100
063200+D cMAX_KWDS       C                   10                                                                  571204   64063200
063300+ *                                                                                                        571120   64063300
063400+ *  Structure to hold a RPG type definition                                                               571120   64063400
063500+D wsdl_rpgType_t  DS                  qualified               based(pDummy)                               571120   64063500
063600+D  length                        7S 0                                                                     571120   64063600
063700+D  dataType                      2A                                                                       571128   64063700
063800+D  decPos                        2S 0                                                                     571120   64063800
063900+D  keyword                      32A   varying                                                             571129   64063900
064000+D  refField                   4096A   varying                                                             571128   64064000
064100+D  hasV6Marshaller...                                                                                     610718   64064100
064200+D                                 N                                                                       610718   64064200
064300+D  hasV6UnMarshaller...                                                                                   610718   64064300
064400+D                                 N                                                                       610718   64064400
064500+D  requiresCcsid...                                                                                       611015   64064500
064600+D                                 N                                                                       611015   64064600
064700+ *                                                                                                        571108   64064700
064800+ *  Structure to hold a qualified name                                                                    571108   64064800
064900+D wsdl_qName_t...                                                                                         571108   64064900
065000+D                 DS                  qualified               based(pDummy)                               571108   64065000
065100+D  lName                              like(wsdl_lName_t   )                                               580528   64065100
065200+D  nsPrefix                           like(wsdl_nsPrefix_t)                                               580528   64065200
065300+D  nsValue                            like(wsdl_nsValue_t )                                               580531   64065300
065400+D  isQualified_                  1A                                                                       621012   64065400
065500+D  reserved_1                   15A                                                                       621012   64065500
065600+ *                                                                                                        571229   64065600
065700+ *  Structure to hold an attribute                                                                        571229   64065700
065800+D wsdl_attribute_t...                                                                                     571229   64065800
065900+D                 DS                  qualified               based(pDummy)                               571229   64065900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    152
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
066000+D  qName                              like(wsdl_QName_t)                                                  600404   64066000
066100+D  qType                              like(wsdl_QName_t)                                                  600404   64066100
066200+D  fixed                              like(wsdl_value_t)                                                  600406   64066200
066300+ *                                                                                                        571110   64066300
066400+ *  Structure to hold a 'from' / 'to' range value                                                         571110   64066400
066500+ *  See also: New_Range(from: to)                                                                         571110   64066500
066600+D wsdl_range_t    DS                  qualified               based(pDummy)                               571110   64066600
066700+D  from                         10I 0                                                                     571110   64066700
066800+D  to                           10I 0                                                                     571110   64066800
066900+D  reserved_1                    8A                                                                       571126   64066900
067000+ *                                                                                                        571120   64067000
067100+ *  Structure to hold a generator tag                                                                     571120   64067100
067200+D wsdl_genTag_t   DS                  qualified               based(pDummy)                               571120   64067200
067300+D  command                      30A   varying                                                             571120   64067300
067400+D  variable                    254A   varying                                                             590423   64067400
067500+D  length                       10I 0                                                                     571120   64067500
067600+D  startColumn                  10I 0                                                                     571120   64067600
067700+D  maxColumn                    10I 0                                                                     571120   64067700
067800+D  reserved_1                    4A                                                                       571126   64067800
067900+D  contChars                    14A   varying                                                             571201   64067900
068000+D  extension                   254A   varying                                                             590423   64068000
068100+D  addQuotes                      N                                                                       600301   64068100
068200+ *                                                                                                        601225   64068200
068300+ *  Structure describing a type definition                                                                601225   64068300
068400+ *  (used by the ParameterVisualizer)                                                                     601225   64068400
068500+D visualizedType_t...                                                                                     601225   64068500
068600+D                 DS                  qualified               based(pDummy)                               601225   64068600
068700+D  entryType                    20A   varying                                                             601225   64068700
068800+D  level                        10I 0                                                                     601225   64068800
068900+D  name                               like(wsdl_name_t      )                                             601225   64068900
069000+D  rpgType                            likeds(wsdl_rpgType_t )                                             601225   64069000
069100+D  extTypeInf                   20A   varying                                                             601225   64069100
069200+ *                                                                                                        130927   64069200
069300+D wsdl_streamPrfx_t...                                                                                    130927   64069300
069400+D                 S              2A   varying                 based(pDummy)                               130927   64069400
069500+ *                                                                                                        601225   64069500
069600+ *  Possible values of 'visualizedType.entryType'                                                         601225   64069600
069700+ *  ... request message                                                                                   601225   64069700
069800+D cENTRY_TYPE_REQUEST_MESSAGE...                                                                          601225   64069800
069900+D                 C                   '*REQUEST'                                                          601225   64069900
070000+ *  ... response message                                                                                  601225   64070000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    153
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
070100+D cENTRY_TYPE_RESPONSE_MESSAGE...                                                                         601225   64070100
070200+D                 C                   '*RESPONSE'                                                         601225   64070200
070300+ *                                                                                                        601225   64070300
070400+ *  Possible values of 'visualizedType.extTypeInf'                                                        601225   64070400
070500+ *  ... static arrays                                                                                     601225   64070500
070600+D cEXT_TYPE_INF_STATIC_ARRAY...                                                                           601225   64070600
070700+D                 C                   '*STATIC_ARRAY'                                                     601225   64070700
070800+D cEXT_TYPE_INF_ARRAY_INDEX...                                                                            601225   64070800
070900+D                 C                   '*ARRAY_INDEX'                                                      601225   64070900
071000+ *  ... dynamic arrays                                                                                    601225   64071000
071100+D cEXT_TYPE_INF_DYNAMIC_ARRAY...                                                                          601225   64071100
071200+D                 C                   '*DYNAMIC_ARRAY'                                                    601225   64071200
071300+ *  ... recursion indicator                                                                               611205   64071300
071400+D cEXT_TYPE_INF_RECURSION...                                                                              611205   64071400
071500+D                 C                   '*RECURSION'                                                        611205   64071500
071600+ *                                                                                                        571108   64071600
071700+ *  Error code                                                                                            571108   64071700
071800+D cWSDL_ERROR     C                   -1                                                                  571108   64071800
071900+D cWSDL_OK        C                   0                                                                   571108   64071900
072000+ *                                                                                                        571108   64072000
072100+ *  WSDL file constants                                                                                   571108   64072100
072200+ *  ... xPath                                                                                             571108   64072200
072300+D cWSDL_XPATH_DEFINITIONS...                                                                              571108   64072300
072400+D                 C                   '/definitions'                                                      571108   64072400
072500+ *                                                                                                        571108   64072500
072600+ *  ... attributes                                                                                        571108   64072600
072700+D cWSDL_ATTR_XMLNS...                                                                                     571108   64072700
072800+D                 C                   'xmlns:'                                                            571108   64072800
072900+ *                                                                                                        571110   64072900
073000+ *  Namespaces                                                                                            571110   64073000
073100+D cNS_WSDL...                                                                                             571110   64073100
073200+D                 C                   'http://schemas.xmlsoap.org/wsdl/'                                  571110   64073200
073300+D cNS_WSDL_SOAP...                                                                                        571110   64073300
073400+D                 C                   'http://schemas.xmlsoap.org/wsdl/+                                  571207   64073400
073500+D                                     soap/'                                                              571207   64073500
073600+D cNS_WSDL_SOAP12...                                                                                      601104   64073600
073700+D                 C                   'http://schemas.xmlsoap.org/wsdl/+                                  601104   64073700
073800+D                                     soap12/'                                                            601104   64073800
073900+D cNS_WSDL_SOAP_ENVELOPE...                                                                               571229   64073900
074000+D                 C                   'http://schemas.xmlsoap.org/+                                       571229   64074000
074100+D                                     soap/envelope/'                                                     571229   64074100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    154
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
074200+D cNS_WSDL_SOAP_12_ENVELOPE...                                                                            601120   64074200
074300+D                 C                   'http://www.w3.org/2003/05/+                                        601120   64074300
074400+D                                     soap-envelope'                                                      601120   64074400
074500+D cNS_WSDL_SOAP_ENCODING...                                                                               571229   64074500
074600+D                 C                   'http://schemas.xmlsoap.org/+                                       571229   64074600
074700+D                                     soap/encoding/'                                                     571229   64074700
074800+D cNS_WSDL_HTTP...                                                                                        571207   64074800
074900+D                 C                   'http://schemas.xmlsoap.org/wsdl/+                                  571207   64074900
075000+D                                     http/'                                                              571207   64075000
075100+D cNS_APACHE_SOAP...                                                                                      571110   64075100
075200+D                 C                   'http://xml.apache.org/xml-soap'                                    571110   64075200
075300+D cNS_SCHEMA...                                                                                           571110   64075300
075400+D                 C                   'http://www.w3.org/2001/XMLSchema'                                  571110   64075400
075500+D cNS_SCHEMA_INSTANCE...                                                                                  571231   64075500
075600+D                 C                   'http://www.w3.org/2001/+                                           571231   64075600
075700+D                                     XMLSchema-instance'                                                 571231   64075700
075800+ *                                                                                                        580531   64075800
075900+ *  Namespaces of WSDL2RPG                                                                                580531   64075900
076000+D cPREFIX_WSDL2RPG...                                                                                     580604   64076000
076100+D                 C                   'wns'                                                               580604   64076100
076200+D cNS_WSDL2RPG...                                                                                         580531   64076200
076300+D                 C                   'http://www.tools400.de/wsdl2rpg/'                                  580531   64076300
076400+ *                                                                                                        571229   64076400
076500+ *  WSDL styles                                                                                           571229   64076500
076600+D cWSDL_STYLE_RPC...                                                                                      571229   64076600
076700+D                 C                   'rpc'                                                               571229   64076700
076800+D cWSDL_STYLE_DOCUMENT...                                                                                 571229   64076800
076900+D                 C                   'document'                                                          571229   64076900
077000+ *                                                                                                        571231   64077000
077100+ *  WSDL usages                                                                                           571231   64077100
077200+D cWSDL_USE_LITERAL...                                                                                    571231   64077200
077300+D                 C                   'literal'                                                           571231   64077300
077400+D cWSDL_USE_ENCODED...                                                                                    571231   64077400
077500+D                 C                   'encoded'                                                           571231   64077500
077600+ *                                                                                                        571113   64077600
077700+ *  RPG generator                                                                                         571113   64077700
077800+D cREFERENCE_FIELD_SUFFIX...                                                                              571113   64077800
077900+D                 C                   '_t'                                                                571113   64077900
078000+D cDEFAULT_TAB_INDENT...                                                                                  571118   64078000
078100+D                 C                   3                                                                   571118   64078100
078200+D cDEFAULT_LEFT_MARGIN...                                                                                 571118   64078200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    155
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
078300+D                 C                   10                                                                  571118   64078300
078400+D cDEFAULT_RIGHT_MARGIN...                                                                                571118   64078400
078500+D                 C                   80                                                                  571118   64078500
078600+ *                                                                                                        571118   64078600
078700+D cCONTINUE_LITERAL...                                                                                    571118   64078700
078800+D                 C                   '+'                                                                 571118   64078800
078900+D cCONTINUE_NAME...                                                                                       571118   64078900
079000+D                 C                   '...'                                                               571118   64079000
079100+D cCONTINUE_NEXT_LINE...                                                                                  571129   64079100
079200+D                 C                   '...'                                                               571129   64079200
079300+D cEOL...                                                                                                 571118   64079300
079400+D                 C                   ';'                                                                 571118   64079400
079500+ *                                                                                                        571118   64079500
079600+D cSPEC_IF...                                                                                             580202   64079600
079700+D                 C                   'if'                                                                580202   64079700
079800+D cSPEC_ELSE...                                                                                           591018   64079800
079900+D                 C                   'else'                                                              591018   64079900
080000+D cSPEC_ENDIF...                                                                                          580202   64080000
080100+D                 C                   'endif'                                                             580202   64080100
080200+D cSPEC_WHEN...                                                                                           571118   64080200
080300+D                 C                   'when'                                                              571118   64080300
080400+D cSPEC_OTHER...                                                                                          590618   64080400
080500+D                 C                   'other'                                                             590618   64080500
080600+D cSPEC_SELECT...                                                                                         571118   64080600
080700+D                 C                   'select'                                                            571118   64080700
080800+D cSPEC_ENDSL...                                                                                          571118   64080800
080900+D                 C                   'endsl'                                                             571118   64080900
081000+D cSPEC_FOR...                                                                                            571214   64081000
081100+D                 C                   'for %iter% = %from% to %to%'                                       571214   64081100
081200+D cSPEC_ENDFOR...                                                                                         571214   64081200
081300+D                 C                   'endfor'                                                            571214   64081300
081400+D cSPEC_RETURN...                                                                                         580202   64081400
081500+D                 C                   'return'                                                            580202   64081500
081600+ *                                                                                                        571113   64081600
081700+D cBOOL_AND...                                                                                            571118   64081700
081800+D                 C                   'and'                                                               571118   64081800
081900+ *                                                                                                        571120   64081900
082000+D cGENERATOR_TAG_START...                                                                                 571120   64082000
082100+D                 C                   '%('                                                                571120   64082100
082200+D cGENERATOR_TAG_OPEN_BRAKET...                                                                           590108   64082200
082300+D                 C                   '('                                                                 590108   64082300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    156
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
082400+D cGENERATOR_TAG_CLOSE_BRAKET...                                                                          590108   64082400
082500+D                 C                   ')'                                                                 571120   64082500
082600+D cGENERATOR_TAG_FIRST_DELIMITER...                                                                       571120   64082600
082700+D                 C                   ':'                                                                 571120   64082700
082800+D cGENERATOR_TAG_NEXT_DELIMITER...                                                                        571120   64082800
082900+D                 C                   ';'                                                                 571120   64082900
083000+ *                                                                                                        571120   64083000
083100+D cGENERATOR_CALLBACK_START...                                                                            571120   64083100
083200+D                 C                   'Start'                                                             571120   64083200
083300+D cGENERATOR_CALLBACK_END...                                                                              571120   64083300
083400+D                 C                   'End'                                                               571120   64083400
083500+D cGENERATOR_SERIALIZER...                                                                                130922   64083500
083600+D                 C                   'Serializer'                                                        130922   64083600
083700+D cGENERATOR_REQUEST_BUFFER_NAME_V1...                                                                    131001   64083700
083800+D                 C                   'request'                                                           131001   64083800
083900+D cGENERATOR_REQUEST_BUFFER_NAME_V2...                                                                    131001   64083900
084000+D                 C                   'g_requestBuffer'                                                   130924   64084000
084100+D cGENERATOR_H_OUT_STREAM...                                                                              130927   64084100
084200+D                 C                   'hOutStream'                                                        130927   64084200
084300+ *                                                                                                        571120   64084300
084400+D cGENERATOR_CMD_GENERATE...                                                                              571120   64084400
084500+D                 C                   'generate'                                                          571120   64084500
084600+D cGENERATOR_CMD_GENERATE_OPERATION_PROCEDURE_PROTOTYPE...                                                571201   64084600
084700+D                 C                   'operationProcedurePrototype'                                       571201   64084700
084800+D cGENERATOR_CMD_GENERATE_OPERATION_REQUEST_PARAMETERS...                                                 571201   64084800
084900+D                 C                   'operationRequestParameters'                                        571201   64084900
085000+D cGENERATOR_CMD_GENERATE_OPERATION_REQUEST_PARAMETERS_PR...                                              611209   64085000
085100+D                 C                   'operationRequestParameters_PR'                                     611209   64085100
085200+D cGENERATOR_CMD_GENERATE_OPERATION_REQUEST_PARAMETER_LIST...                                             590623   64085200
085300+D                 C                   'operationRequestParameterList'                                     590623   64085300
085400+D cGENERATOR_CMD_GENERATE_OPERATION_REQUEST_PARAMETER_TYPES...                                            590623   64085400
085500+D                 C                   'operationRequestParameterTypes'                                    590623   64085500
085600+D cGENERATOR_CMD_GENERATE_OPERATION_RESPONSE_TYPE...                                                      590624   64085600
085700+D                 C                   'operationResponseType'                                             590624   64085700
085800+D cGENERATOR_CMD_GENERATE_TYPES...                                                                        571201   64085800
085900+D                 C                   'types'                                                             571201   64085900
086000+D cGENERATOR_CMD_GENERATE_PROTOTYPES...                                                                   571201   64086000
086100+D                 C                   'operationPrototypes'                                               571201   64086100
086200+D cGENERATOR_CMD_GENERATE_WEB_SERVICE_ENDPOINT...                                                         571201   64086200
086300+D                 C                   'webServiceEndPoint'                                                571201   64086300
086400+D cGENERATOR_CMD_GENERATE_OPERATION_PROCEDURE_INTERFACE...                                                571201   64086400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    157
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
086500+D                 C                   'operationProcedureInterface'                                       571201   64086500
086600+D cGENERATOR_CMD_GENERATE_OPERATION_RETURN_VALUE...                                                       571201   64086600
086700+D                 C                   'operationReturnValue'                                              571201   64086700
086800+D cGENERATOR_CMD_GENERATE_OPERATION_USERDATA...                                                           571201   64086800
086900+D                 C                   'operationUserData'                                                 571201   64086900
087000+D cGENERATOR_CMD_GENERATE_OPERATION_RESPONSE_SOAP_HEADER...                                               600406   64087000
087100+D                 C                   'operationResponseSoapHeader'                                       600406   64087100
087200+D cGENERATOR_CMD_GENERATE_END_OF_PROCEDURE...                                                             571201   64087200
087300+D                 C                   'endOfProcedure'                                                    571201   64087300
087400+D cGENERATOR_CMD_GENERATE_CALLBACKS...                                                                    571120   64087400
087500+D                 C                   'callbackProcedures'                                                571120   64087500
087600+D cGENERATOR_CMD_GENERATE_SERIALIZER_PROTOTYPES...                                                        130924   64087600
087700+D                 C                   'serializerPrototypes'                                              130924   64087700
087800+D cGENERATOR_CMD_GENERATE_SERIALIZER_PROCEDURES...                                                        130924   64087800
087900+D                 C                   'serializerProcedures'                                              130921   64087900
088000+D cGENERATOR_CMD_GENERATE_NAMESPACES...                                                                   571202   64088000
088100+D                 C                   'namespaces'                                                        571202   64088100
088200+D cGENERATOR_CMD_GENERATE_SOAP_HEADER...                                                                  600406   64088200
088300+D                 C                   'soapHeader'                                                        600406   64088300
088400+D cGENERATOR_CMD_GENERATE_REQUEST...                                                                      571202   64088400
088500+D                 C                   'request'                                                           571202   64088500
088600+D cGENERATOR_CMD_GENERATE_DIMENSIONS...                                                                   571205   64088600
088700+D                 C                   'dimensions'                                                        571205   64088700
088800+D cGENERATOR_CMD_GENERATE_ARRAY_ITERATOR...                                                               571214   64088800
088900+D                 C                   'arrayIterator'                                                     571214   64088900
089000+D cGENERATOR_CMD_GENERATE_ARRAY_ITEM...                                                                   620504   64089000
089100+D                 C                   'arrayItem'                                                         620504   64089100
089200+D cGENERATOR_CMD_GENERATE_SET_INPUT_PARAMETERS...                                                         600228   64089200
089300+D                 C                   'setInputParameters'                                                600228   64089300
089400+D cGENERATOR_CMD_GENERATE_LIST_OF_STUB_MODULES...                                                         611001   64089400
089500+D                 C                   'listOfStubModules'                                                 611001   64089500
089600+ *                                                                                                        571120   64089600
089700+D cGENERATOR_CMD_VARIABLE...                                                                              571120   64089700
089800+D                 C                   'var'                                                               571120   64089800
089900+D cGENERATOR_CMD_QUOTED_VARIABLE...                                                                       600301   64089900
090000+D                 C                   'qvar'                                                              600301   64090000
090100+D cGENERATOR_CMD_VARIABLE_OUTPUT_MEMBER...                                                                571201   64090100
090200+D                 C                   'outmbr'                                                            571201   64090200
090300+D cGENERATOR_CMD_VARIABLE_PORT_NAME...                                                                    571227   64090300
090400+D                 C                   'portName'                                                          571227   64090400
090500+D cGENERATOR_CMD_VARIABLE_WSDL_PORT_NAME...                                                               620531   64090500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    158
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
090600+D                 C                   'wsdlPortName'                                                      620531   64090600
090700+D cGENERATOR_CMD_VARIABLE_OPERATION_NAME...                                                               571201   64090700
090800+D                 C                   'operationName'                                                     571201   64090800
090900+D cGENERATOR_CMD_VARIABLE_MEMBER_TEXT...                                                                  590326   64090900
091000+D                 C                   'memberText'                                                        590326   64091000
091100+D cGENERATOR_CMD_VARIABLE_OPERATION_RESPONSE...                                                           571201   64091100
091200+D                 C                   'operationResponse'                                                 571201   64091200
091300+D cGENERATOR_CMD_VARIABLE_START_CALLBACK...                                                               571201   64091300
091400+D                 C                   'startCallback'                                                     571201   64091400
091500+D cGENERATOR_CMD_VARIABLE_END_CALLBACK...                                                                 571201   64091500
091600+D                 C                   'endCallback'                                                       571201   64091600
091700+D cGENERATOR_CMD_VARIABLE_START_HEADER_CALLBACK...                                                        600406   64091700
091800+D                 C                   'startHeaderCallback'                                               600406   64091800
091900+D cGENERATOR_CMD_VARIABLE_END_HEADER_CALLBACK...                                                          600406   64091900
092000+D                 C                   'endHeaderCallback'                                                 600406   64092000
092100+D cGENERATOR_CMD_VARIABLE_SOAP_ACTION...                                                                  571208   64092100
092200+D                 C                   'soapAction'                                                        571208   64092200
092300+D cGENERATOR_CMD_VARIABLE_ADDR_USERDATA...                                                                581030   64092300
092400+D                 C                   '%addr_userData_'                                                   590729   64092400
092500+D cGENERATOR_CMD_VARIABLE_CLEAR_RTNVALUE...                                                               581030   64092500
092600+D                 C                   'clear_rtnValue'                                                    581030   64092600
092700+D cGENERATOR_CMD_VARIABLE_RTNVALUE_USERDATA...                                                            581030   64092700
092800+D                 C                   'rtnValue_=_userData'                                               581030   64092800
092900+D cGENERATOR_CMD_VARIABLE_RTNVALUE...                                                                     581030   64092900
093000+D                 C                   'rtnValue'                                                          581030   64093000
093100+D cGENERATOR_CMD_VARIABLE_STUB...                                                                         590623   64093100
093200+D                 C                   'stub'                                                              590623   64093200
093300+D cGENERATOR_CMD_VARIABLE_FULL_QUALIFIED_STUB...                                                          601205   64093300
093400+D                 C                   'fullQualifiedStub'                                                 601205   64093400
093500+D cGENERATOR_CMD_VARIABLE_SRVMOD...                                                                       610929   64093500
093600+D                 C                   'srvMod'                                                            610929   64093600
093700+D cGENERATOR_CMD_VARIABLE_SRVPGM...                                                                       611001   64093700
093800+D                 C                   'srvPgm'                                                            611001   64093800
093900+D cGENERATOR_CMD_VARIABLE_FULL_QUALIFIED_SRVMOD...                                                        610929   64093900
094000+D                 C                   'fullQualifiedSrvMod'                                               610929   64094000
094100+D cGENERATOR_CMD_VARIABLE_PROCEDURE_NAME...                                                               590623   64094100
094200+D                 C                   'procedureName'                                                     590623   64094200
094300+D cGENERATOR_CMD_VARIABLE_OPERATION_RESPONSE_TYPE...                                                      590624   64094300
094400+D                 C                   'operationResponseType'                                             590624   64094400
094500+D cGENERATOR_CMD_VARIABLE_ENABLE_ATTACHMENTS...                                                           591019   64094500
094600+D                 C                   'enableAttachments'                                                 591019   64094600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    159
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
094700+D cGENERATOR_CMD_VARIABLE_SERVICE_UUID...                                                                 591019   64094700
094800+D                 C                   'serviceUUID'                                                       591019   64094800
094900+D cGENERATOR_CMD_VARIABLE_WSDL2RPG_VERSION...                                                             591024   64094900
095000+D                 C                   'version'                                                           591024   64095000
095100+D cGENERATOR_CMD_VARIABLE_WSDL2RPG_DATE...                                                                591024   64095100
095200+D                 C                   'date'                                                              591024   64095200
095300+D cGENERATOR_CMD_VARIABLE_WSDL2RPG_VERSION_INFO...                                                        591024   64095300
095400+D                 C                   'versionInfo'                                                       591024   64095400
095500+D cGENERATOR_CMD_VARIABLE_BUILD_ON...                                                                     591024   64095500
095600+D                 C                   'buildOn'                                                           591024   64095600
095700+D cGENERATOR_CMD_VARIABLE_PTR_RESP_SOAP_HEADER...                                                         600406   64095700
095800+D                 C                   'ptrRespSoapHeader'                                                 600406   64095800
095900+D cGENERATOR_CMD_VARIABLE_UNEXPECTED_ELEMENT_START_CALLBACK...                                            601201   64095900
096000+D                 C                   'unexpectedElemStart'                                               601201   64096000
096100+D cGENERATOR_CMD_VARIABLE_UNEXPECTED_ELEMENT_END_CALLBACK...                                              601201   64096100
096200+D                 C                   'unexpectedElemEnd'                                                 601201   64096200
096300+D cGENERATOR_CMD_VARIABLE_IGNORE_UNEXPECTED_SOAP_HDR...                                                   601203   64096300
096400+D                 C                   'ignoreUnexpectedSoapHdr'                                           601203   64096400
096500+D cGENERATOR_CMD_VARIABLE_TGTRLS...                                                                       610416   64096500
096600+D                 C                   'tgtrls'                                                            610416   64096600
096700+ *                                                                                                        571221   64096700
096800+D cGENERATOR_PREFIX_NAME_DELIMITER...                                                                     591024   64096800
096900+D                 C                   '_'                                                                 591024   64096900
097000+D cGENERATOR_NAME_CONCATENATION...                                                                        591024   64097000
097100+D                 C                   '_of_'                                                              591024   64097100
097200+D cGENERATOR_RPG_ARRAY_PREFIX...                                                                          571221   64097200
097300+D                 C                   'RpgArrayOf'                                                        571221   64097300
097400+D cGENERATOR_RENAME_TYPE_NAME_SUFFIX...                                                                   580121   64097400
097500+D                 C                   'Rnmd'                                                              580118   64097500
097600+D cGENERATOR_MOVED_TYPE_NAME_SUFFIX...                                                                    580121   64097600
097700+D                 C                   'Mvd'                                                               580121   64097700
097800+D cGENERATOR_REFERENCE_NAME_SUFFIX...                                                                     581028   64097800
097900+D                 C                   'Ref'                                                               581028   64097900
098000+D cGENERATOR_RPC_RESPONSE_NAME_SUFFIX...                                                                  590109   64098000
098100+D                 C                   'Response'                                                          621001   64098100
098200+D cGENERATOR_RPG_ARRAY_VALUE_NAME_1...                                                                    580125   64098200
098300+D                 C                   'item'                                                              580125   64098300
098400+D cGENERATOR_RPG_ARRAY_VALUE_NAME_2...                                                                    580125   64098400
098500+D                 C                   'value'                                                             580125   64098500
098600+D cGENERATOR_RPG_SEQUENCE_HELPER_TYPE...                                                                  600901   64098600
098700+D                 C                   'Sequence_type'                                                     600901   64098700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    160
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
098800+D cGENERATOR_RPG_CHOICE_HELPER_TYPE...                                                                    600901   64098800
098900+D                 C                   'Choice_type'                                                       600901   64098900
099000+D cGENERATOR_cNULL_CHECK_PROCEDURE_INPUT_PARAMETER...                                                     601010   64099000
099100+D                 C                   'value'                                                             601010   64099100
099200+D cGENERATOR_cNULL_CHECK_PROCEDURE_NULL_VALUE...                                                          601010   64099200
099300+D                 C                   'null'                                                              601010   64099300
099400+D cGENERATOR_cNULL_CHECK_PROCEDURE_RETURN_VALUE...                                                        601010   64099400
099500+D                 C                   'isNull'                                                            601010   64099500
099600+D cGENERATOR_cNULL_CHECK_PROCEDURE_SUFFIX...                                                              601010   64099600
099700+D                 C                   '_isNull'                                                           601010   64099700
099800+D cGENERATOR_UNEXPECTED_ELEMENT_START...                                                                  601201   64099800
099900+D                 C                   'SOAPMessage_unexpectedElementStart'                                601201   64099900
100000+D cGENERATOR_UNEXPECTED_ELEMENT_END...                                                                    601201   64100000
100100+D                 C                   'SOAPMessage_unexpectedElementEnd'                                  601201   64100100
100200+ *                                                                                                        591024   64100200
100300+D cTEMP_FILE_IDENTIFIER...                                                                                591024   64100300
100400+D                 C                   '_wsdl2rpg'                                                         591024   64100400
100500+ *                                                                                                        571201   64100500
100600+ *  General purpose constants                                                                             571113   64100600
100700+D cSINGLE_QUOTE...                                                                                        571113   64100700
100800+D                 C                   ''''                                                                571113   64100800
100900+D cDOUBLE_QUOTE...                                                                                        571202   64100900
101000+D                 C                   '"'                                                                 571202   64101000
101100+ *                                                                                                        580905   64101100
101200+D cEBCDIC_CRLF    C                   x'0D25'                                                             580905   64101200
101300+ *                                                                                                        591016   64101300
101400+D cSQUARE_BRAKETS...                                                                                      591016   64101400
101500+D                 C                   u'005B005D'                                                         591016   64101500
101600+D cSQUARE_BRAKET_LEFT...                                                                                  591208   64101600
101700+D                 C                   u'005B'                                                             591208   64101700
101800+D cSQUARE_BRAKET_RIGHT...                                                                                 591208   64101800
101900+D                 C                   u'005D'                                                             591208   64101900
102000+ *                                                                                                        591020   64102000
102100+D cOPEN_ANGLE...                                                                                          591020   64102100
102200+D                 C                   '<'                                                                 591020   64102200
102300+D cCLOSE_ANGLE...                                                                                         591020   64102300
102400+D                 C                   '>'                                                                 591020   64102400
102500+ *                                                                                                        600505   64102500
102600+ *  Dynamic List Constants                                                                                600505   64102600
102700+D CURRENT_ITEM    C                   'currentItem'                                                       600505   64102700
102800+D CURRENT_ITEM_PTR...                                                                                     600505   64102800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    161
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
102900+D                 C                   'pCurrentItem'                                                      600505   64102900
103000+D EMPTY_ITEM      C                   'emptyItem'                                                         600505   64103000
103100+D HANDLE_ITEMS    C                   'hItems'                                                            600514   64103100
103200+D PREFIX_CURRENT_ITEM...                                                                                  600514   64103200
103300+D                 C                   'cur'                                                               600514   64103300
103400+D PREFIX_NEW_ITEM...                                                                                      600514   64103400
103500+D                 C                   'new'                                                               600514   64103500
103600+D FULL_ELEM_DATA  C                   'itemValue'                                                         610718   64103600
103700+ *                                                                                                        571110   64103700
103800+ /ENDIF                                                                                                   571106   64103800
000600+ /COPY QWSDL2RPG,PWSDL2R87                                                                           CPY  130829    7000600
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R87                                                    *                    67
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R87)                                *                    67
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    67
        * Text 'description' . . . . :  WSDL2RPG: ManagedMemoryDataSource      (Prototype)           *                    67
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R87)                                                                               580609   67000100
000200+ /DEFINE PWSDL2R87                                                                                        580609   67000200
000300+ *                                                                                                        571108   67000300
000400+ /COPY QWSDL2RPG,TYPES_H                                                                             CPY  591118   67000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES_H                                                      *                    68
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES_H)                                  *                    68
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                    68
        * Text 'description' . . . . :  Type definitions (public)                                    *                    68
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(WSDL2RPG_WS_STUB_COMMON_TYPES)                                                           130912   68000100
            LINES EXCLUDED: 269
027100+ /ENDIF                                                                                                   571106   68027100
000500+ /COPY QWSDL2RPG,PWSDL2R86                    WSDL2RPG: Stream                                       CPY  580613   67000500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R86                                                    *                    69
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R86)                                *                    69
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    69
        * Text 'description' . . . . :  WSDL2RPG: Stream                       (Prototype)           *                    69
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R86)                                                                               580612   69000100
000200+ /DEFINE PWSDL2R86                                                                                        580612   69000200
000300+ *                                                                                                        580610   69000300
000400+D wsdl_hStream_t...                                                                                       580612   69000400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    162
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000500+D                 S             10I 0                         based(pDummy)                               580612   69000500
000600+ *                                                                                                        580612   69000600
000700+D wsdl_stream_t...                                                                                        580612   69000700
000800+D                 DS                  qualified  align        based(pDummy)                               580612   69000800
000900+D  hParent                        *                                                                       580612   69000900
001000+D  pRead                          *   procptr                                                             580612   69001000
001100+D  pWrite                         *   procptr                                                             580612   69001100
001200+D  pClose                         *   procptr                                                             580612   69001200
001300+D  isOpen                         N                                                                       580612   69001300
001400+D  typeIO                        1A                                                                       580612   69001400
001500+D  offset                       10I 0                                                                     580612   69001500
001600+D  fd                           10I 0                                                                     580612   69001600
001700+ *                                                                                                        130830   69001700
001800+D cFD_NULL...                                                                                             130830   69001800
001900+D                 C                   -1                                                                  130830   69001900
002000+ *                                                                                                        130830   69002000
002100+D cSTREAM_NULL...                                                                                         130830   69002100
002200+D                 C                   -1                                                                  130830   69002200
002300+ *                                                                                                        130830   69002300
002400+ *  Output stream                                                                                         130830   69002400
002500+D cSTREAM_TYPE_WRITE...                                                                                   130830   69002500
002600+D                 C                   'W'                                                                 130830   69002600
002700+ *                                                                                                        130830   69002700
002800+ *  Input stream                                                                                          130830   69002800
002900+D cSTREAM_TYPE_READ...                                                                                    130830   69002900
003000+D                 C                   'R'                                                                 130830   69003000
003100+ *                                                                                                        130830   69003100
003200+ *  Adds a given stream handle to the list of stream handles.                                             580612   69003200
003300+D Stream_add...                                                                                           580612   69003300
003400+D                 PR                         like(wsdl_hStream_t    )                                     580612   69003400
003500+D                                     extproc('WSDL2R86_+                                                 580613   69003500
003600+D                                     Stream_add+                                                         580612   69003600
003700+D                                     ')                                                                  580612   69003700
003800+D  i_pStream                      *   value                                                               580612   69003800
003900+ *                                                                                                        580612   69003900
004000+ *  Return the stream data associated to a given stream handle.                                           580612   69004000
004100+D Stream_get...                                                                                           580612   69004100
004200+D                 PR              *                                                                       580612   69004200
004300+D                                     extproc('WSDL2R86_+                                                 580613   69004300
004400+D                                     Stream_get+                                                         580612   69004400
004500+D                                     ')                                                                  580612   69004500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    163
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004600+D  i_hStream                          value  like(wsdl_hStream_t    )                                     580612   69004600
004700+ *                                                                                                        580612   69004700
004800+ *  Removes a given stream handle from the list of stream handles.                                        580612   69004800
004900+D Stream_remove...                                                                                        580612   69004900
005000+D                 PR                                                                                      580612   69005000
005100+D                                     extproc('WSDL2R86_+                                                 580613   69005100
005200+D                                     Stream_remove+                                                      580612   69005200
005300+D                                     ')                                                                  580612   69005300
005400+D  io_hStream                                like(wsdl_hStream_t    )                                     580612   69005400
005500+ *                                                                                                        580613   69005500
005600+ *  Return TRUE if a given stream is open for reading or writing.                                         580613   69005600
005700+D Stream_isOpen...                                                                                        580613   69005700
005800+D                 PR              N                                                                       580613   69005800
005900+D                                     extproc('WSDL2R86_+                                                 580613   69005900
006000+D                                     Stream_isOpen+                                                      580613   69006000
006100+D                                     ')                                                                  580613   69006100
006200+D  i_hStream                          value  like(wsdl_hStream_t    )                                     580613   69006200
006300+ *                                                                                                        130830   69006300
006400+ *  Reads data from a given stream.                                                                       130830   69006400
006500+D Stream_read...                                                                                          130830   69006500
006600+D                 PR            10I 0                                                                     130830   69006600
006700+D                                     extproc('WSDL2R86_+                                                 130830   69006700
006800+D                                     Stream_read+                                                        130830   69006800
006900+D                                     ')                                                                  130830   69006900
007000+D  i_hStream                          value  like(wsdl_hStream_t)                                         130830   69007000
007100+D  o_pData                        *   value                                                               130830   69007100
007200+D  i_length                     10I 0 value                                                               130830   69007200
007300+ *                                                                                                        130830   69007300
007400+ *  Appends data to a given stream.                                                                       130830   69007400
007500+D Stream_write...                                                                                         130830   69007500
007600+D                 PR            10I 0                                                                     130830   69007600
007700+D                                     extproc('WSDL2R86_+                                                 130830   69007700
007800+D                                     Stream_write+                                                       130830   69007800
007900+D                                     ')                                                                  130830   69007900
008000+D  i_hStream                          value  like(wsdl_hStream_t)                                         130830   69008000
008100+D  i_pData                        *   value                                                               130830   69008100
008200+D  i_length                     10I 0 value                                                               130830   69008200
008300+ *                                                                                                        130830   69008300
008400+ *  Closes a given stream.                                                                                130830   69008400
008500+D Stream_close...                                                                                         130830   69008500
008600+D                 PR                                                                                      130830   69008600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    164
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008700+D                                     extproc('WSDL2R86_+                                                 130830   69008700
008800+D                                     Stream_close+                                                       130830   69008800
008900+D                                     ')                                                                  130830   69008900
009000+D  io_hStream                                like(wsdl_hStream_t)                                         130830   69009000
009100+ *                                                                                                        130830   69009100
009200+ /ENDIF                                                                                                   571108   69009200
000600+ *                                                                                                        580610   67000600
000700+D wsdl_hDataSource_t...                                                                                   580610   67000700
000800+D                 S               *                           based(pDummy)                               580610   67000800
000900+ *                                                                                                        571219   67000900
001000+ *  Produces a new memory managed data source.                                                            580609   67001000
001100+D ManagedMemoryDataSource_new...                                                                          580609   67001100
001200+D                 PR                         like(wsdl_hDataSource_t)                                     580610   67001200
001300+D                                     extproc('WSDL2R87_+                                                 580609   67001300
001400+D                                     ManagedMemoryDataSource_new+                                        580609   67001400
001500+D                                     ')                                                                  571219   67001500
001600+D  i_maxCacheSize...                                                                                      580610   67001600
001700+D                               10I 0 const  options(*nopass)                                             580610   67001700
001800+ *                                                                                                        580612   67001800
001900+ *  Returns the "hash code" of the data source.                                                           580612   67001900
002000+D ManagedMemoryDataSource_hashCode...                                                                     580612   67002000
002100+D                 PR            32A                                                                       580612   67002100
002200+D                                     extproc('WSDL2R87_+                                                 580612   67002200
002300+D                                     ManagedMemoryDataSource_hashCode+                                   580612   67002300
002400+D                                     ')                                                                  580612   67002400
002500+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580612   67002500
002600+ *                                                                                                        580609   67002600
002700+ *  Sets the path to the file that contains the data source data.                                         580609   67002700
002800+D ManagedMemoryDataSource_setPath...                                                                      580609   67002800
002900+D                 PR            10I 0                                                                     580609   67002900
003000+D                                     extproc('WSDL2R87_+                                                 580609   67003000
003100+D                                     ManagedMemoryDataSource_setPath+                                    580609   67003100
003200+D                                     ')                                                                  580609   67003200
003300+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580610   67003300
003400+D  i_path                             const  like(wsdl_path_t       )                                     580610   67003400
003500+D  i_contentType                      const  like(wsdl_contentType_t)                                     580612   67003500
003600+ *                                                                                                        580610   67003600
003700+ *  Returns the path to the file that contains the data source data.                                      580609   67003700
003800+D ManagedMemoryDataSource_getPath...                                                                      580610   67003800
003900+D                 PR                         like(wsdl_path_t       )                                     580610   67003900
004000+D                                     extproc('WSDL2R87_+                                                 580609   67004000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    165
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004100+D                                     ManagedMemoryDataSource_getPath+                                    580609   67004100
004200+D                                     ')                                                                  580609   67004200
004300+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580610   67004300
004400+ *                                                                                                        130913   67004400
004500+ *  Returns the name of a given data source.                                                              130913   67004500
004600+D ManagedMemoryDataSource_getName...                                                                      130913   67004600
004700+D                 PR                         like(wsdl_path_t       )                                     130913   67004700
004800+D                                     extproc('WSDL2R87_+                                                 130913   67004800
004900+D                                     ManagedMemoryDataSource_getName+                                    130913   67004900
005000+D                                     ')                                                                  130913   67005000
005100+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     130913   67005100
005200+ *                                                                                                        130913   67005200
005300+ *  Uses the content of a given string to set the content of the                                          580612   67005300
005400+ *  data source.                                                                                          580612   67005400
005500+D ManagedMemoryDataSource_setString...                                                                    580612   67005500
005600+D                 PR            10I 0                                                                     580612   67005600
005700+D                                     extproc('WSDL2R87_+                                                 580612   67005700
005800+D                                     ManagedMemoryDataSource_setString+                                  580612   67005800
005900+D                                     ')                                                                  580612   67005900
006000+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580612   67006000
006100+D  i_string                  65535A          varying options(*varsize)                                    580612   67006100
006200+ /if not defined(NO_CONST_ON_INPUT_PARAMETERS)                                                            130913   67006200
            LINES EXCLUDED: 1
006400+ /endif                                                                                                   130913   67006400
006500+D  i_contentType                      const  like(wsdl_contentType_t)                                     580612   67006500
006600+D  i_ccsid                      10I 0 const                                                               580613   67006600
006700+ *                                                                                                        130912   67006700
006800+ *  Uses the content of a given buffer to set the content of the                                          130912   67006800
006900+ *  data source.                                                                                          130912   67006900
007000+D ManagedMemoryDataSource_setBuffer...                                                                    130912   67007000
007100+D                 PR            10I 0                                                                     130912   67007100
007200+D                                     extproc('WSDL2R87_+                                                 130912   67007200
007300+D                                     ManagedMemoryDataSource_setBuffer+                                  130912   67007300
007400+D                                     ')                                                                  130912   67007400
007500+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     130912   67007500
007600+D  i_name                             const  like(wsdl_path_t)                                            130918   67007600
007700+D  i_pBuffer                      *   const                                                               130912   67007700
007800+D  i_size                       10I 0 const                                                               130912   67007800
007900+D  i_contentType                      const  like(wsdl_contentType_t)                                     130912   67007900
008000+D  i_ccsid                      10I 0 const                                                               130912   67008000
008100+ *                                                                                                        130912   67008100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    166
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008200+ *  Sets the content type of a given data source.                                                         580612   67008200
008300+D ManagedMemoryDataSource_setContentType...                                                               580612   67008300
008400+D                 PR                                                                                      580612   67008400
008500+D                                     extproc('WSDL2R87_+                                                 580612   67008500
008600+D                                     ManagedMemoryDataSource_+                                           580612   67008600
008700+D                                     setContentType+                                                     580612   67008700
008800+D                                     ')                                                                  580612   67008800
008900+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580612   67008900
009000+D  i_contentType                      const  like(wsdl_contentType_t)                                     580612   67009000
009100+ *                                                                                                        580612   67009100
009200+ *  Returns the content type of a given data source.                                                      580612   67009200
009300+D ManagedMemoryDataSource_getContentType...                                                               580612   67009300
009400+D                 PR                         like(wsdl_contentType_t)                                     580612   67009400
009500+D                                     extproc('WSDL2R87_+                                                 580612   67009500
009600+D                                     ManagedMemoryDataSource_+                                           580612   67009600
009700+D                                     getContentType+                                                     580612   67009700
009800+D                                     ')                                                                  580612   67009800
009900+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580612   67009900
010000+ *                                                                                                        580610   67010000
010100+ *  Sets the CCSID of the data in the data source.                                                        580610   67010100
010200+D ManagedMemoryDataSource_setCcsid...                                                                     580610   67010200
010300+D                 PR            10I 0                                                                     580610   67010300
010400+D                                     extproc('WSDL2R87_+                                                 580610   67010400
010500+D                                     ManagedMemoryDataSource_setCcsid+                                   580610   67010500
010600+D                                     ')                                                                  580610   67010600
010700+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580610   67010700
010800+D  i_ccsid                      10I 0 const                                                               580610   67010800
010900+ *                                                                                                        580610   67010900
011000+ *  Returns the CCSID of the data of a given data source.                                                 580610   67011000
011100+D ManagedMemoryDataSource_getCcsid...                                                                     580610   67011100
011200+D                 PR            10I 0                                                                     580610   67011200
011300+D                                     extproc('WSDL2R87_+                                                 580610   67011300
011400+D                                     ManagedMemoryDataSource_getCcsid+                                   580610   67011400
011500+D                                     ')                                                                  580610   67011500
011600+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580610   67011600
011700+ *                                                                                                        580610   67011700
011800+ *  Returns the size if the data source.                                                                  580610   67011800
011900+D ManagedMemoryDataSource_getSize...                                                                      580610   67011900
012000+D                 PR            10I 0                                                                     580610   67012000
012100+D                                     extproc('WSDL2R87_+                                                 580610   67012100
012200+D                                     ManagedMemoryDataSource_getSize+                                    580610   67012200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    167
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012300+D                                     ')                                                                  580610   67012300
012400+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580610   67012400
012500+ *                                                                                                        580610   67012500
012600+ *  Returns cTrue if a stream (input or output) is open.                                                  580610   67012600
012700+D ManagedMemoryDataSource_Stream_isOpen...                                                                580610   67012700
012800+D                 PR              N                                                                       580610   67012800
012900+D                                     extproc('WSDL2R87_+                                                 580610   67012900
013000+D                                     ManagedMemoryDataSource_+                                           580610   67013000
013100+D                                     Stream_isOpen+                                                      580610   67013100
013200+D                                     ')                                                                  580610   67013200
013300+D  i_hStream                          value  like(wsdl_hStream_t    )                                     580610   67013300
013400+ *                                                                                                        580609   67013400
013500+ *  Opens the data source for 'write'.                                                                    580609   67013500
013600+D ManagedMemoryDataSource_OutputStream_open...                                                            580610   67013600
013700+D                 PR                         like(wsdl_hStream_t    )                                     580610   67013700
013800+D                                     extproc('WSDL2R87_+                                                 580609   67013800
013900+D                                     ManagedMemoryDataSource_+                                           580609   67013900
014000+D                                     OutputStream_open+                                                  580610   67014000
014100+D                                     ')                                                                  580609   67014100
014200+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580610   67014200
014300+D  i_contentType                      const  like(wsdl_contentType_t)                                     580616   67014300
014400+D  i_ccsid                      10I 0 const                                                               580613   67014400
014500+ *                                                                                                        580516   67014500
014600+ *  Writes data to a given output stream.                                                                 580609   67014600
014700+D ManagedMemoryDataSource_OutputStream_write...                                                           580610   67014700
014800+D                 PR            10I 0                                                                     580610   67014800
014900+D                                     extproc('WSDL2R87_+                                                 580609   67014900
015000+D                                     ManagedMemoryDataSource_+                                           580609   67015000
015100+D                                     OutputStream_write+                                                 580610   67015100
015200+D                                     ')                                                                  580516   67015200
015300+D  i_hStream                          value  like(wsdl_hStream_t    )                                     580610   67015300
015400+D  i_data                         *   value                                                               580609   67015400
015500+D  i_length                     10I 0 value                                                               580609   67015500
015600+ *                                                                                                        580609   67015600
015700+ *  Closes the stream of a given data source.                                                             580609   67015700
015800+D ManagedMemoryDataSource_OutputStream_close...                                                           580610   67015800
015900+D                 PR                                                                                      580609   67015900
016000+D                                     extproc('WSDL2R87_+                                                 580609   67016000
016100+D                                     ManagedMemoryDataSource_+                                           580609   67016100
016200+D                                     OutputStream_close+                                                 580610   67016200
016300+D                                     ')                                                                  580609   67016300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    168
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
016400+D  io_hStream                                like(wsdl_hStream_t    )                                     580610   67016400
016500+ *                                                                                                        580609   67016500
016600+ *  Opens the data source for 'read'.                                                                     580609   67016600
016700+D ManagedMemoryDataSource_InputStream_open...                                                             580610   67016700
016800+D                 PR                         like(wsdl_hStream_t    )                                     580610   67016800
016900+D                                     extproc('WSDL2R87_+                                                 580609   67016900
017000+D                                     ManagedMemoryDataSource_+                                           580609   67017000
017100+D                                     InputStream_open+                                                   580610   67017100
017200+D                                     ')                                                                  580609   67017200
017300+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     580610   67017300
017400+ *                                                                                                        580609   67017400
017500+ *   Reads data from a given input stream.                                                                580609   67017500
017600+D ManagedMemoryDataSource_InputStream_read...                                                             580610   67017600
017700+D                 PR            10I 0                                                                     580609   67017700
017800+D                                     extproc('WSDL2R87_+                                                 580609   67017800
017900+D                                     ManagedMemoryDataSource_+                                           580609   67017900
018000+D                                     InputStream_read+                                                   580610   67018000
018100+D                                     ')                                                                  580609   67018100
018200+D  i_hStream                          value  like(wsdl_hStream_t    )                                     580610   67018200
018300+D  i_data                         *   value                                                               580609   67018300
018400+D  i_length                     10I 0 value                                                               580609   67018400
018500+ *                                                                                                        580609   67018500
018600+ *  Closes the stream of a given data source.                                                             580609   67018600
018700+D ManagedMemoryDataSource_InputStream_close...                                                            580610   67018700
018800+D                 PR                                                                                      580609   67018800
018900+D                                     extproc('WSDL2R87_+                                                 580609   67018900
019000+D                                     ManagedMemoryDataSource_+                                           580609   67019000
019100+D                                     InputStream_close+                                                  580610   67019100
019200+D                                     ')                                                                  580609   67019200
019300+D  io_hStream                                like(wsdl_hStream_t    )                                     580610   67019300
019400+ *                                                                                                        580515   67019400
019500+ *  Deletes a given memory managed data source                                                            580609   67019500
019600+D ManagedMemoryDataSource_delete...                                                                       580609   67019600
019700+D                 PR                                                                                      580515   67019700
019800+D                                     extproc('WSDL2R87_+                                                 580609   67019800
019900+D                                     ManagedMemoryDataSource_delete+                                     580609   67019900
020000+D                                     ')                                                                  580610   67020000
020100+D  io_hDataSource...                                                                                      580610   67020100
020200+D                                            like(wsdl_hDataSource_t)                                     580610   67020200
020300+D  i_ignoreError                  N   const  options(*nopass: *omit)                                      130918   67020300
020400+ *                                                                                                        580610   67020400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    169
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
020500+ *  Returns cTrue if a type is NULL.                                                                      580610   67020500
020600+D ManagedMemoryDataSource_null...                                                                         580610   67020600
020700+D                 PR                         like(wsdl_hDataSource_t)                                     580610   67020700
020800+D                                     extproc('WSDL2R87_+                                                 580610   67020800
020900+D                                     ManagedMemoryDataSource_null+                                       580610   67020900
021000+D                                     ')                                                                  580610   67021000
021100+ *                                                                                                        580610   67021100
021200+ *  Returns cTrue if a managed memory data source is NULL.                                                580610   67021200
021300+D ManagedMemoryDataSource_isNull...                                                                       580610   67021300
021400+D                 PR              N                                                                       580610   67021400
021500+D                                     extproc('WSDL2R87_+                                                 580610   67021500
021600+D                                     ManagedMemoryDataSource_isNull+                                     580610   67021600
021700+D                                     ')                                                                  580610   67021700
021800+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     130828   67021800
021900+ *                                                                                                        571107   67021900
022000+ /ENDIF                                                                                                   571108   67022000
000700+ *                                                                                                        130829    7000700
000800+ *  Produces a new MessageContext.                                                                        130828    7000800
000900+D MessageContext_new...                                                                                   130828    7000900
001000+D                 PR                         like(wsdl_hMsgCtx_t)                                         130828    7001000
001100+D                                     extproc('WSDL2R85_+                                                 130828    7001100
001200+D                                     MessageContext_new+                                                 130828    7001200
001300+D                                     ')                                                                  600411    7001300
001400+ *                                                                                                        130911    7001400
001500+ *  Sets the CCSID (encoding) of the headers of the MIME message.                                         130911    7001500
001600+D MessageContext_setHeaderCcsid...                                                                        130911    7001600
001700+D                 PR                                                                                      130911    7001700
001800+D                                     extproc('WSDL2R85_+                                                 130911    7001800
001900+D                                     MessageContext_setHeaderCcsid+                                      130911    7001900
002000+D                                     ')                                                                  130911    7002000
002100+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130911    7002100
002200+D  i_ccsid                      10I 0 const                                                               130911    7002200
002300+ *                                                                                                        130912    7002300
002400+ *  Returns cTrue if a given message context is a MIME message.                                           130912    7002400
002500+D MessageContext_isMIMEMessage...                                                                         130912    7002500
002600+D                 PR              N                                                                       130912    7002600
002700+D                                     extproc('WSDL2R85_+                                                 130912    7002700
002800+D                                     MessageContext_isMIMEMessage+                                       130912    7002800
002900+D                                     ')                                                                  130912    7002900
003000+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130912    7003000
003100+ *                                                                                                        130918    7003100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    170
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003200+ *  Returns the SOAP part of a given message context.                                                     130918    7003200
003300+D MessageContext_getSoapPart...                                                                           130918    7003300
003400+D                 PR                         like(wsdl_hDataSource_t)                                     130918    7003400
003500+D                                     extproc('WSDL2R85_+                                                 130918    7003500
003600+D                                     MessageContext_getSoapPart+                                         130918    7003600
003700+D                                     ')                                                                  130918    7003700
003800+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130918    7003800
003900+D  i_cacheSize                  10I 0 const                                                               130918    7003900
004000+ *                                                                                                        130912    7004000
004100+ *  Returns the size of the message context.                                                              130830    7004100
004200+D MessageContext_getSize...                                                                               130830    7004200
004300+D                 PR            10I 0                                                                     130830    7004300
004400+D                                     extproc('WSDL2R85_+                                                 130830    7004400
004500+D                                     MessageContext_getSize+                                             130830    7004500
004600+D                                     ')                                                                  130830    7004600
004700+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130830    7004700
004800+ *                                                                                                        130912    7004800
004900+ *  Returns the MIME version header of a given message context.                                           130912    7004900
005000+D MessageContext_getMimeVersionHeader...                                                                  130912    7005000
005100+D                 PR                         like(wsdl_mimeVersion_t)                                     130912    7005100
005200+D                                     extproc('WSDL2R85_+                                                 130912    7005200
005300+D                                     MessageContext_getMimeVersionHeader+                                130912    7005300
005400+D                                     ')                                                                  130912    7005400
005500+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130912    7005500
005600+ *                                                                                                        130912    7005600
005700+ *  Returns the content type header of a given message context.                                           130912    7005700
005800+D MessageContext_getContentTypeHeader...                                                                  130912    7005800
005900+D                 PR                         like(wsdl_contentType_t)                                     130912    7005900
006000+D                                     extproc('WSDL2R85_+                                                 130912    7006000
006100+D                                     MessageContext_getContentTypeHeader+                                130912    7006100
006200+D                                     ')                                                                  130912    7006200
006300+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130912    7006300
006400+ *                                                                                                        130912    7006400
006500+ *  Returns the SOAP action header of a given message context.                                            130912    7006500
006600+D MessageContext_getSoapActionHeader...                                                                   130912    7006600
006700+D                 PR                         like(wsdl_soapAction_t)                                      130912    7006700
006800+D                                     extproc('WSDL2R85_+                                                 130912    7006800
006900+D                                     MessageContext_getSoapActionHeader+                                 130912    7006900
007000+D                                     ')                                                                  130912    7007000
007100+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130912    7007100
007200+ *                                                                                                        130912    7007200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    171
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
007300+ *  Sets the SOAP action for a given message context.                                                     130912    7007300
007400+D MessageContext_setSoapAction...                                                                         130912    7007400
007500+D                 PR                                                                                      130912    7007500
007600+D                                     extproc('WSDL2R85_+                                                 130912    7007600
007700+D                                     MessageContext_setSoapAction+                                       130912    7007700
007800+D                                     ')                                                                  130912    7007800
007900+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130912    7007900
008000+D  i_soapAction                       const  like(wsdl_soapAction_t)                                      130912    7008000
008100+D                                            options(*varsize)                                            130912    7008100
008200+ *                                                                                                        130912    7008200
008300+ *  Sets the SOAP part of the message.                                                                    130828    7008300
008400+D MessageContext_setSoapPart...                                                                           130830    7008400
008500+D                 PR                         like(wsdl_partId_t)                                          130829    7008500
008600+D                                     extproc('WSDL2R85_+                                                 130828    7008600
008700+D                                     MessageContext_setSoapPart+                                         130830    7008700
008800+D                                     ')                                                                  130828    7008800
008900+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130828    7008900
009000+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     130828    7009000
009100+ *                                                                                                        130828    7009100
009200+ *  Adds a SOAP attachment to a given message context.                                                    130828    7009200
009300+D MessageContext_addAttachment...                                                                         130828    7009300
009400+D                 PR                         like(wsdl_partId_t)                                          130829    7009400
009500+D                                     extproc('WSDL2R85_+                                                 130828    7009500
009600+D                                     MessageContext_addAttachment+                                       130828    7009600
009700+D                                     ')                                                                  130828    7009700
009800+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130828    7009800
009900+D  i_hDataSource                      const  like(wsdl_hDataSource_t)                                     130828    7009900
010000+D  i_contentTransferEncoding...                                                                           130912    7010000
010100+D                                     const like(                                                         130912    7010100
010200+D                                           wsdl_contentTransferEncoding_t)                               130912    7010200
010300+D                                           options(*nopass: *omit)                                       130912    7010300
010400+D  i_fileName                         const  like(wsdl_path_t)                                            130916    7010400
010500+D                                            options(*nopass: *omit)                                      130916    7010500
010600+ *                                                                                                        130912    7010600
010700+ *  Prepares the message for being transmitted.                                                           130910    7010700
010800+D MessageContext_prepareToSend...                                                                         130910    7010800
010900+D                 PR                                                                                      130910    7010900
011000+D                                     extproc('WSDL2R85_+                                                 130910    7011000
011100+D                                     MessageContext_prepareToSend+                                       130910    7011100
011200+D                                     ')                                                                  130910    7011200
011300+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130910    7011300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    172
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
011400+ *                                                                                                        130910    7011400
011500+ *  Deletes a given MessageContext.                                                                       130828    7011500
011600+D MessageContext_delete...                                                                                130828    7011600
011700+D                 PR                                                                                      620229    7011700
011800+D                                     extproc('WSDL2R85_+                                                 130828    7011800
011900+D                                     MessageContext_delete+                                              130828    7011900
012000+D                                     ')                                                                  620229    7012000
012100+D  io_hMsgCtx                                like(wsdl_hMsgCtx_t)                                         130828    7012100
012200+ *                                                                                                        130828    7012200
012300+ *  Returns cTrue if a MessageContext is NULL.                                                            130828    7012300
012400+D MessageContext_isNull...                                                                                130828    7012400
012500+D                 PR              N                                                                       130828    7012500
012600+D                                     extproc('WSDL2R85_+                                                 130828    7012600
012700+D                                     MessageContext_isNull+                                              130828    7012700
012800+D                                     ')                                                                  130828    7012800
012900+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130828    7012900
013000+ *                                                                                                        130828    7013000
013100+ *  Returns a NULL MessageContext.                                                                        130828    7013100
013200+D MessageContext_null...                                                                                  130828    7013200
013300+D                 PR                         like(wsdl_hMsgCtx_t)                                         130828    7013300
013400+D                                     extproc('WSDL2R85_+                                                 130828    7013400
013500+D                                     MessageContext_null+                                                130828    7013500
013600+D                                     ')                                                                  130828    7013600
013700+ *                                                                                                        130830    7013700
013800+ *  Open the input stream of a given MessageContext.                                                      130830    7013800
013900+ *  Returns 1 on success, else -1;                                                                        130830    7013900
014000+D MessageContext_InputStream_open...                                                                      130830    7014000
014100+D                 PR                         like(wsdl_hStream_t)                                         130830    7014100
014200+D                                     extproc('WSDL2R85_+                                                 130830    7014200
014300+D                                     MessageContext_InputStream_open+                                    130830    7014300
014400+D                                     ')                                                                  130830    7014400
014500+D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t)                                         130830    7014500
014600+ *                                                                                                        130830    7014600
014700+ *  Returns cTrue if the input stream of a given MessageContext                                           130830    7014700
014800+ *  is open, else cFalse.                                                                                 130830    7014800
014900+D MessageContext_InputStream_isOpen...                                                                    130830    7014900
015000+D                 PR              N                                                                       130830    7015000
015100+D                                     extproc('WSDL2R85_+                                                 130830    7015100
015200+D                                     MessageContext_InputStream_isOpen+                                  130830    7015200
015300+D                                     ')                                                                  130830    7015300
015400+D  i_hStream                          const  like(wsdl_hStream_t)                                         130830    7015400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    173
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
015500+ *                                                                                                        130830    7015500
015600+ *  Reads from a given input stream of a MessageContext.                                                  130830    7015600
015700+D MessageContext_InputStream_read...                                                                      130830    7015700
015800+D                 PR            10I 0                                                                     130830    7015800
015900+D                                     extproc('WSDL2R85_+                                                 130830    7015900
016000+D                                     MessageContext_InputStream_read+                                    130830    7016000
016100+D                                     ')                                                                  130830    7016100
016200+D  i_hStream                          value  like(wsdl_hStream_t)                                         130830    7016200
016300+D  o_pData                        *   value                                                               130830    7016300
016400+D  i_length                     10I 0 value                                                               130830    7016400
016500+ *                                                                                                        130830    7016500
016600+ *  Closes the input stream of a MessageContext.                                                          130830    7016600
016700+D MessageContext_InputStream_close...                                                                     130830    7016700
016800+D                 PR                                                                                      130830    7016800
016900+D                                     extproc('WSDL2R85_+                                                 130830    7016900
017000+D                                     MessageContext_InputStream_close+                                   130830    7017000
017100+D                                     ')                                                                  130830    7017100
017200+D  io_hStream                                like(wsdl_hStream_t)                                         130830    7017200
017300+ *                                                                                                        130830    7017300
017400+ /ENDIF                                                                                                   571108    7017400
000056+ /COPY QWSDL2RPG,PWSDL2R88                    WSDL2RPG: Public Helper Procedures                     CPY  000000    5000056
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R88                                                    *                    70
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R88)                                *                    70
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    70
        * Text 'description' . . . . :  WSDL2RPG: Public Helper Procedures     (Prototype)           *                    70
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R88)                                                                               600525   70000100
000200+ /DEFINE PWSDL2R88                                                                                        600525   70000200
000300+ *                                                                                                        571108   70000300
000400+ /COPY QWSDL2RPG,TYPES_H                                                                             CPY  591118   70000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES_H                                                      *                    71
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES_H)                                  *                    71
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                    71
        * Text 'description' . . . . :  Type definitions (public)                                    *                    71
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(WSDL2RPG_WS_STUB_COMMON_TYPES)                                                           130912   71000100
            LINES EXCLUDED: 269
027100+ /ENDIF                                                                                                   571106   71027100
000500+ /COPY QLOG4RPG,PLOG4RPG                      Log4rpg: The Log4rpg service program                   CPY  611003   70000500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    174
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PLOG4RPG                                                     *                    72
        * External name  . . . . . . :  WSDL2RPG/QLOG4RPG(PLOG4RPG)                                  *                    72
        * Last change  . . . . . . . :  11.06.15  08:16:20                                           *                    72
        * Text 'description' . . . . :  SrvPgm: LOG4RPG - Type Definitions          public           *                    72
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PLOG4RPG)                                                               RADDAT           000000   72000100
000200+ /DEFINE PLOG4RPG                                                                        RADDAT           000000   72000200
000300+ *                                                                                       RADDAT           000000   72000300
000400+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72000400
000500+ * -----------------------------------------                                             RADDAT           000000   72000500
000600+ *  Prototypes                                                                           RADDAT           000000   72000600
000700+ * -----------------------------------------                                             RADDAT           000000   72000700
000800+ /COPY QLOG4RPG,FDMSG                                                                    RADDAT      CPY  000000   72000800
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  FDMSG                                                        *                    73
        * External name  . . . . . . :  WSDL2RPG/QLOG4RPG(FDMSG)                                     *                    73
        * Last change  . . . . . . . :  11.06.15  08:16:19                                           *                    73
        * Text 'description' . . . . :  cpybk   : Message                                            *                    73
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(msg_t     )                                                             RADDAT           000000   73000100
            LINES EXCLUDED: 22
002400+ /ENDIF                                                                                  RADDAT           000000   73002400
000900+ *                                                                                       RADDAT           000000   72000900
001000+ * -----------------------------------------                                             RADDAT           000000   72001000
001100+ *  Type Definitions                                                                     RADDAT           000000   72001100
001200+ * -----------------------------------------                                             RADDAT           000000   72001200
001300+D LOG4RPG_text_t...                                                                      RADDAT           000000   72001300
001400+D                 S           2048A   varying             based(pDummy)                  RADDAT           000000   72001400
001500+ *                                                                                       RADDAT           000000   72001500
001600+D LOG4RPG_msg_t...                                                                       RADDAT           000000   72001600
001700+D                 DS                  likeds(msg_t    )   based(pDummy)                  RADDAT           000000   72001700
001800+ *                                                                                       RADDAT           000000   72001800
001900+D LOG4RPG_header_t...                                                                    RADDAT           000000   72001900
002000+D                 S           4096A   varying             based(pDummy)                  RADDAT           000000   72002000
002100+ *                                                                                       RADDAT           000000   72002100
002200+D LOG4RPG_footer_t...                                                                    RADDAT           000000   72002200
002300+D                 S                   like(LOG4RPG_header_t)                             RADDAT           000000   72002300
002400+D                                                         based(pDummy)                  RADDAT           000000   72002400
002500+ *                                                                                       RADDAT           000000   72002500
002600+D LOG4RPG_formattedText_t...                                                             RADDAT           000000   72002600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    175
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002700+D                 S           4096A   varying             based(pDummy)                  RADDAT           000000   72002700
002800+ *                                                                                       RADDAT           000000   72002800
002900+D cLOG4RPG_MAX_TEXT_LENGTH...                                                            RADDAT           000000   72002900
003000+D                 C                   const(4096)                                        RADDAT           000000   72003000
003100+ *                                                                                       RADDAT           000000   72003100
003200+D LOG4RPG_level_t...                                                                     RADDAT           000000   72003200
003300+D                 S             10A   varying             based(pDummy)                  RADDAT           000000   72003300
003400+D LOG4RPG_priority_t...                                                                  RADDAT           000000   72003400
003500+D                 S             10I 0                     based(pDummy)                  RADDAT           000000   72003500
003600+D LOG4RPG_hLogger_t...                                                                   RADDAT           000000   72003600
003700+D                 S               *                       based(pDummy)                  RADDAT           000000   72003700
003800+D LOG4RPG_loggerName_t...                                                                RADDAT           000000   72003800
003900+D                 S            128A   varying             based(pDummy)                  RADDAT           000000   72003900
004000+D LOG4RPG_debugMode_t...                                                                 RADDAT           000000   72004000
004100+D                 S             10A   varying             based(pDummy)                  RADDAT           000000   72004100
004200+D LOG4RPG_debugOutput_t...                                                               RADDAT           000000   72004200
004300+D                 S             10A   varying             based(pDummy)                  RADDAT           000000   72004300
004400+D LOG4RPG_path_t...                                                                      RADDAT           000000   72004400
004500+D                 S            256A   varying             based(pDummy)                  RADDAT           000000   72004500
004600+D LOG4RPG_implClass_t...                                                                 RADDAT           000000   72004600
004700+D                 S            128A   varying             based(pDummy)                  RADDAT           000000   72004700
004800+ *                                                                                       RADDAT           000000   72004800
004900+D LOG4RPG_pAppender_t...                                                                 RADDAT           000000   72004900
005000+D                 S               *                           based(pDummy)              RADDAT           000000   72005000
005100+D LOG4RPG_appenderName_t...                                                              RADDAT           000000   72005100
005200+D                 S             32A   varying             based(pDummy)                  RADDAT           000000   72005200
005300+D LOG4RPG_pFilter_t...                                                                   RADDAT           000000   72005300
005400+D                 S               *                           based(pDummy)              RADDAT           000000   72005400
005500+D LOG4RPG_filterName_t...                                                                RADDAT           000000   72005500
005600+D                 S             32A   varying                 based(pDummy)              RADDAT           000000   72005600
005700+D LOG4RPG_pLayout_t...                                                                   RADDAT           000000   72005700
005800+D                 S               *                           based(pDummy)              RADDAT           000000   72005800
005900+ *                                                                                       RADDAT           000000   72005900
006000+ * -----------------------------------------                                             RADDAT           000000   72006000
006100+ *  Constants                                                                            RADDAT           000000   72006100
006200+ * -----------------------------------------                                             RADDAT           000000   72006200
006300+ *                                                                                       RADDAT           000000   72006300
006400+ *  Special value *SEARCH for the library name when loading properties from              RADDAT           000000   72006400
006500+ *  a physical file member. When *SEARCH is specified as the library name,               RADDAT           000000   72006500
006600+ *  all files in the library list that matches the specified file name are               RADDAT           000000   72006600
006700+ *  searched for the member. The first member that is found is used to load              RADDAT           000000   72006700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    176
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
006800+ *  the configuration data.                                                              RADDAT           000000   72006800
006900+D cLOG4RPG_LIB_SEARCH...                                                                 RADDAT           000000   72006900
007000+D                 C                   const('*SEARCH')                                   RADDAT           000000   72007000
007100+ *                                                                                       RADDAT           000000   72007100
007200+ *  Default time to wait (in minutes) to check the properties file for changes.          RADDAT           000000   72007200
007300+D cLOG4RPG_CONFIGURATION_DEFAULT_RELOAD_DELAY...                                         RADDAT           000000   72007300
007400+D                 C                   const(1)                                           RADDAT           000000   72007400
007500+D cLOG4RPG_CONFIGURATION_DEFAULT_RELOAD_DELAY_UNIT...                                    RADDAT           000000   72007500
007600+D                 C                   const('*MINUTES')                                  RADDAT           000000   72007600
007700+ *                                                                                       RADDAT           000000   72007700
007800+ *  Debug Level:                 log4rpg.loggerName=                                     RADDAT           000000   72007800
007900+D cLOG4RPG_LEVEL_DEBUG...                                                                RADDAT           000000   72007900
008000+D                 C                   const('DEBUG')                                     RADDAT           000000   72008000
008100+D cLOG4RPG_LEVEL_INFO...                                                                 RADDAT           000000   72008100
008200+D                 C                   const('INFO')                                      RADDAT           000000   72008200
008300+D cLOG4RPG_LEVEL_WARN...                                                                 RADDAT           000000   72008300
008400+D                 C                   const('WARN')                                      RADDAT           000000   72008400
008500+D cLOG4RPG_LEVEL_ERROR...                                                                RADDAT           000000   72008500
008600+D                 C                   const('ERROR')                                     RADDAT           000000   72008600
008700+D cLOG4RPG_LEVEL_FATAL...                                                                RADDAT           000000   72008700
008800+D                 C                   const('FATAL')                                     RADDAT           000000   72008800
008900+ *                                                                                       RADDAT           000000   72008900
009000+ *  Debug mode:                 log4rpg.debug=                                           RADDAT           000000   72009000
009100+D cLOG4RPG_DEBUG_QUIET...                                                                                 000000   72009100
009200+D                 C                   const('quiet')                                                      000000   72009200
009300+D cLOG4RPG_DEBUG_OFF...                                                                  RADDAT           000000   72009300
009400+D                 C                   const('off')                                       RADDAT           000000   72009400
009500+D cLOG4RPG_DEBUG_ON...                                                                   RADDAT           000000   72009500
009600+D                 C                   const('on')                                        RADDAT           000000   72009600
009700+D cLOG4RPG_DEBUG_VERBOSE...                                                              RADDAT           000000   72009700
009800+D                 C                   const('verbose')                                   RADDAT           000000   72009800
009900+ *                                                                                       RADDAT           000000   72009900
010000+ *  Debug output:               log4rpg.debug=                                           RADDAT           000000   72010000
010100+D cLOG4RPG_DEBUG_OUTPUT_PRINTER...                                                       RADDAT           000000   72010100
010200+D                 C                   const('printer')                                   RADDAT           000000   72010200
010300+D cLOG4RPG_DEBUG_OUTPUT_STDOUT...                                                        RADDAT           000000   72010300
010400+D                 C                   const('stdout')                                    RADDAT           000000   72010400
010500+ *                                                                                       RADDAT           000000   72010500
010600+ *  Boolean values                                                                       RADDAT           000000   72010600
010700+ /IF NOT DEFINED(cTrue)                                                                  RADDAT           000000   72010700
            LINES EXCLUDED: 2
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    177
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
011000+ /ENDIF                                                                                  RADDAT           000000   72011000
011100+ *                                                                                       RADDAT           000000   72011100
011200+ /IF NOT DEFINED(cFalse)                                                                 RADDAT           000000   72011200
            LINES EXCLUDED: 2
011500+ /ENDIF                                                                                  RADDAT           000000   72011500
011600+ *                                                                                       RADDAT           000000   72011600
011700+ /ENDIF                                                                                  RADDAT           000000   72011700
011800+ *                                                                                       RADDAT           000000   72011800
011900+ * -----------------------------------------                                             RADDAT           000000   72011900
012000+ *  Logger:                                                                              RADDAT           000000   72012000
012100+ * -----------------------------------------                                             RADDAT           000000   72012100
012200+ *                                                                                       RADDAT           000000   72012200
012300+ *  Enables / Disables LOG4RPG.                                                          RADDAT           000000   72012300
012400+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72012400
012500+D Logger_setLogging...                                                                   RADDAT           000000   72012500
012600+D                 PR              N                                                      RADDAT           000000   72012600
012700+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72012700
012800+D                                     _Logger_setLogging+                                RADDAT           000000   72012800
012900+D                                     ')                                                 RADDAT           000000   72012900
013000+ /ELSE                                                                                   RADDAT           000000   72013000
            LINES EXCLUDED: 5
013600+ /ENDIF                                                                                  RADDAT           000000   72013600
013700+D  i_isLogging                    N   const                                              RADDAT           000000   72013700
013800+ *                                                                                       RADDAT           000000   72013800
013900+ *  Returns whether logging is enabled or not.                                           RADDAT           000000   72013900
014000+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72014000
014100+D Logger_isLogging...                                                                    RADDAT           000000   72014100
014200+D                 PR              N                                                      RADDAT           000000   72014200
014300+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72014300
014400+D                                     _Logger_isLogging+                                 RADDAT           000000   72014400
014500+D                                     ')                                                 RADDAT           000000   72014500
014600+ /ELSE                                                                                   RADDAT           000000   72014600
            LINES EXCLUDED: 5
015200+ /ENDIF                                                                                  RADDAT           000000   72015200
015300+ *                                                                                       RADDAT           000000   72015300
015400+ *  Returns the root logger.                                                             RADDAT           000000   72015400
015500+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72015500
015600+D Logger_getRootLogger...                                                                RADDAT           000000   72015600
015700+D                 PR                         like(LOG4RPG_hLogger_t )                    RADDAT           000000   72015700
015800+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72015800
015900+D                                     _Logger_getRootLogger+                             RADDAT           000000   72015900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    178
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
016000+D                                     ')                                                 RADDAT           000000   72016000
016100+ /ELSE                                                                                   RADDAT           000000   72016100
            LINES EXCLUDED: 5
016700+ /ENDIF                                                                                  RADDAT           000000   72016700
016800+ *                                                                                       RADDAT           000000   72016800
016900+ *  Returns a new logger named as the specified name.                                    RADDAT           000000   72016900
017000+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72017000
017100+D Logger_getLogger...                                                                    RADDAT           000000   72017100
017200+D                 PR                         like(LOG4RPG_hLogger_t )                    RADDAT           000000   72017200
017300+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72017300
017400+D                                     _Logger_getLogger+                                 RADDAT           000000   72017400
017500+D                                     ')                                                 RADDAT           000000   72017500
017600+ /ELSE                                                                                   RADDAT           000000   72017600
            LINES EXCLUDED: 5
018200+ /ENDIF                                                                                  RADDAT           000000   72018200
018300+D  i_logName                          const  like(LOG4RPG_loggerName_t)                  RADDAT           000000   72018300
018400+ *                                                                                       RADDAT           000000   72018400
018500+ *  Logs a DEBUG statement.                                                              RADDAT           000000   72018500
018600+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72018600
018700+D Logger_debug...                                                                        RADDAT           000000   72018700
018800+D                 PR                                                                     RADDAT           000000   72018800
018900+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72018900
019000+D                                     _Logger_debug+                                     RADDAT           000000   72019000
019100+D                                     ')                                                 RADDAT           000000   72019100
019200+ /ELSE                                                                                   RADDAT           000000   72019200
            LINES EXCLUDED: 5
019800+ /ENDIF                                                                                  RADDAT           000000   72019800
019900+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72019900
020000+D  i_text                             const  like(LOG4RPG_text_t    )                    RADDAT           000000   72020000
020100+ *                                                                                       RADDAT           000000   72020100
020200+ *  Logs a DEBUG message.                                                                RADDAT           000000   72020200
020300+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72020300
020400+D Logger_debugMsg...                                                                     RADDAT           000000   72020400
020500+D                 PR                                                                     RADDAT           000000   72020500
020600+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72020600
020700+D                                     _Logger_debugMsg+                                  RADDAT           000000   72020700
020800+D                                     ')                                                 RADDAT           000000   72020800
020900+ /ELSE                                                                                   RADDAT           000000   72020900
            LINES EXCLUDED: 5
021500+ /ENDIF                                                                                  RADDAT           000000   72021500
021600+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72021600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    179
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
021700+D  i_msg                              const  likeds(LOG4RPG_msg_t   )                    RADDAT           000000   72021700
021800+ *                                                                                       RADDAT           000000   72021800
021900+ *  Logs an INFO statement.                                                              RADDAT           000000   72021900
022000+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72022000
022100+D Logger_info...                                                                         RADDAT           000000   72022100
022200+D                 PR                                                                     RADDAT           000000   72022200
022300+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72022300
022400+D                                     _Logger_info+                                      RADDAT           000000   72022400
022500+D                                     ')                                                 RADDAT           000000   72022500
022600+ /ELSE                                                                                   RADDAT           000000   72022600
            LINES EXCLUDED: 5
023200+ /ENDIF                                                                                  RADDAT           000000   72023200
023300+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72023300
023400+D  i_text                             const  like(LOG4RPG_text_t    )                    RADDAT           000000   72023400
023500+ *                                                                                       RADDAT           000000   72023500
023600+ *  Logs an INFO message.                                                                RADDAT           000000   72023600
023700+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72023700
023800+D Logger_infoMsg...                                                                      RADDAT           000000   72023800
023900+D                 PR                                                                     RADDAT           000000   72023900
024000+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72024000
024100+D                                     _Logger_infoMsg+                                   RADDAT           000000   72024100
024200+D                                     ')                                                 RADDAT           000000   72024200
024300+ /ELSE                                                                                   RADDAT           000000   72024300
            LINES EXCLUDED: 5
024900+ /ENDIF                                                                                  RADDAT           000000   72024900
025000+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72025000
025100+D  i_msg                              const  likeds(LOG4RPG_msg_t   )                    RADDAT           000000   72025100
025200+ *                                                                                       RADDAT           000000   72025200
025300+ *  Logs a WARN statement.                                                               RADDAT           000000   72025300
025400+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72025400
025500+D Logger_warn...                                                                         RADDAT           000000   72025500
025600+D                 PR                                                                     RADDAT           000000   72025600
025700+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72025700
025800+D                                     _Logger_warn+                                      RADDAT           000000   72025800
025900+D                                     ')                                                 RADDAT           000000   72025900
026000+ /ELSE                                                                                   RADDAT           000000   72026000
            LINES EXCLUDED: 5
026600+ /ENDIF                                                                                  RADDAT           000000   72026600
026700+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72026700
026800+D  i_text                             const  like(LOG4RPG_text_t    )                    RADDAT           000000   72026800
026900+ *                                                                                       RADDAT           000000   72026900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    180
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
027000+ *  Logs a WARN message.                                                                 RADDAT           000000   72027000
027100+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72027100
027200+D Logger_warnMsg...                                                                      RADDAT           000000   72027200
027300+D                 PR                                                                     RADDAT           000000   72027300
027400+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72027400
027500+D                                     _Logger_warnMsg+                                   RADDAT           000000   72027500
027600+D                                     ')                                                 RADDAT           000000   72027600
027700+ /ELSE                                                                                   RADDAT           000000   72027700
            LINES EXCLUDED: 5
028300+ /ENDIF                                                                                  RADDAT           000000   72028300
028400+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72028400
028500+D  i_msg                              const  likeds(LOG4RPG_msg_t   )                    RADDAT           000000   72028500
028600+ *                                                                                       RADDAT           000000   72028600
028700+ *  Logs an ERROR statement.                                                             RADDAT           000000   72028700
028800+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72028800
028900+D Logger_error...                                                                        RADDAT           000000   72028900
029000+D                 PR                                                                     RADDAT           000000   72029000
029100+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72029100
029200+D                                     _Logger_error+                                     RADDAT           000000   72029200
029300+D                                     ')                                                 RADDAT           000000   72029300
029400+ /ELSE                                                                                   RADDAT           000000   72029400
            LINES EXCLUDED: 5
030000+ /ENDIF                                                                                  RADDAT           000000   72030000
030100+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72030100
030200+D  i_text                             const  like(LOG4RPG_text_t    )                    RADDAT           000000   72030200
030300+ *                                                                                       RADDAT           000000   72030300
030400+ *  Logs an ERROR message.                                                               RADDAT           000000   72030400
030500+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72030500
030600+D Logger_errorMsg...                                                                     RADDAT           000000   72030600
030700+D                 PR                                                                     RADDAT           000000   72030700
030800+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72030800
030900+D                                     _Logger_errorMsg+                                  RADDAT           000000   72030900
031000+D                                     ')                                                 RADDAT           000000   72031000
031100+ /ELSE                                                                                   RADDAT           000000   72031100
            LINES EXCLUDED: 5
031700+ /ENDIF                                                                                  RADDAT           000000   72031700
031800+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72031800
031900+D  i_msg                              const  likeds(LOG4RPG_msg_t   )                    RADDAT           000000   72031900
032000+ *                                                                                       RADDAT           000000   72032000
032100+ *  Logs a FATAL error statement.                                                        RADDAT           000000   72032100
032200+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72032200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    181
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
032300+D Logger_fatal...                                                                        RADDAT           000000   72032300
032400+D                 PR                                                                     RADDAT           000000   72032400
032500+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72032500
032600+D                                     _Logger_fatal+                                     RADDAT           000000   72032600
032700+D                                     ')                                                 RADDAT           000000   72032700
032800+ /ELSE                                                                                   RADDAT           000000   72032800
            LINES EXCLUDED: 5
033400+ /ENDIF                                                                                  RADDAT           000000   72033400
033500+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72033500
033600+D  i_text                             const  like(LOG4RPG_text_t    )                    RADDAT           000000   72033600
033700+ *                                                                                       RADDAT           000000   72033700
033800+ *  Logs a FATAL error message.                                                          RADDAT           000000   72033800
033900+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72033900
034000+D Logger_fatalMsg...                                                                     RADDAT           000000   72034000
034100+D                 PR                                                                     RADDAT           000000   72034100
034200+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72034200
034300+D                                     _Logger_fatalMsg+                                  RADDAT           000000   72034300
034400+D                                     ')                                                 RADDAT           000000   72034400
034500+ /ELSE                                                                                   RADDAT           000000   72034500
            LINES EXCLUDED: 5
035100+ /ENDIF                                                                                  RADDAT           000000   72035100
035200+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72035200
035300+D  i_msg                              const  likeds(LOG4RPG_msg_t   )                    RADDAT           000000   72035300
035400+ *                                                                                       RADDAT           000000   72035400
035500+ *  Logs the specified statement without further checking.                               RADDAT           000000   72035500
035600+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72035600
035700+D Logger_forcedLog...                                                                    RADDAT           000000   72035700
035800+D                 PR                                                                     RADDAT           000000   72035800
035900+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72035900
036000+D                                     _Logger_forcedLog+                                 RADDAT           000000   72036000
036100+D                                     ')                                                 RADDAT           000000   72036100
036200+ /ELSE                                                                                   RADDAT           000000   72036200
            LINES EXCLUDED: 5
036800+ /ENDIF                                                                                  RADDAT           000000   72036800
036900+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72036900
037000+D  i_level                            const  like(LOG4RPG_level_t   )                    RADDAT           000000   72037000
037100+D  i_text                             const  like(LOG4RPG_text_t    )                    RADDAT           000000   72037100
037200+ *                                                                                       RADDAT           000000   72037200
037300+ *  Logs the specified message without further checking.                                 RADDAT           000000   72037300
037400+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72037400
037500+D Logger_forcedLogMsg...                                                                 RADDAT           000000   72037500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    182
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
037600+D                 PR                                                                     RADDAT           000000   72037600
037700+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72037700
037800+D                                     _Logger_forcedLogMsg+                              RADDAT           000000   72037800
037900+D                                     ')                                                 RADDAT           000000   72037900
038000+ /ELSE                                                                                   RADDAT           000000   72038000
            LINES EXCLUDED: 5
038600+ /ENDIF                                                                                  RADDAT           000000   72038600
038700+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72038700
038800+D  i_level                            const  like(LOG4RPG_level_t   )                    RADDAT           000000   72038800
038900+D  i_msg                              const  likeds(LOG4RPG_msg_t   )                    RADDAT           000000   72038900
039000+ *                                                                                       RADDAT           000000   72039000
039100+ *  Returns cTrue if 'DEBUG' log events are logged.                                      RADDAT           000000   72039100
039200+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72039200
039300+D Logger_isDebugEnabled...                                                               RADDAT           000000   72039300
039400+D                 PR              N                                                      RADDAT           000000   72039400
039500+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72039500
039600+D                                     _Logger_isDebugEnabled+                            RADDAT           000000   72039600
039700+D                                     ')                                                 RADDAT           000000   72039700
039800+ /ELSE                                                                                   RADDAT           000000   72039800
            LINES EXCLUDED: 5
040400+ /ENDIF                                                                                  RADDAT           000000   72040400
040500+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72040500
040600+ *                                                                                       RADDAT           000000   72040600
040700+ *  Returns cTrue if 'INFO' log events are logged.                                       RADDAT           000000   72040700
040800+ *  (Including DEBUG log events)                                                         RADDAT           000000   72040800
040900+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72040900
041000+D Logger_isInfoEnabled...                                                                RADDAT           000000   72041000
041100+D                 PR              N                                                      RADDAT           000000   72041100
041200+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72041200
041300+D                                     _Logger_isInfoEnabled+                             RADDAT           000000   72041300
041400+D                                     ')                                                 RADDAT           000000   72041400
041500+ /ELSE                                                                                   RADDAT           000000   72041500
            LINES EXCLUDED: 5
042100+ /ENDIF                                                                                  RADDAT           000000   72042100
042200+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72042200
042300+ *                                                                                       RADDAT           000000   72042300
042400+ *  Returns cTrue if 'WARN' log events are logged.                                       RADDAT           000000   72042400
042500+ *  (Including INFO and DEBUG log events)                                                RADDAT           000000   72042500
042600+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72042600
042700+D Logger_isWarnEnabled...                                                                RADDAT           000000   72042700
042800+D                 PR              N                                                      RADDAT           000000   72042800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    183
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
042900+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72042900
043000+D                                     _Logger_isWarnEnabled+                             RADDAT           000000   72043000
043100+D                                     ')                                                 RADDAT           000000   72043100
043200+ /ELSE                                                                                   RADDAT           000000   72043200
            LINES EXCLUDED: 5
043800+ /ENDIF                                                                                  RADDAT           000000   72043800
043900+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72043900
044000+ *                                                                                       RADDAT           000000   72044000
044100+ *  Returns cTrue if 'ERROR' log events are logged.                                      RADDAT           000000   72044100
044200+ *  (Including WARN, INFO and DEBUG log events)                                          RADDAT           000000   72044200
044300+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72044300
044400+D Logger_isErrorEnabled...                                                               RADDAT           000000   72044400
044500+D                 PR              N                                                      RADDAT           000000   72044500
044600+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72044600
044700+D                                     _Logger_isErrorEnabled+                            RADDAT           000000   72044700
044800+D                                     ')                                                 RADDAT           000000   72044800
044900+ /ELSE                                                                                   RADDAT           000000   72044900
            LINES EXCLUDED: 5
045500+ /ENDIF                                                                                  RADDAT           000000   72045500
045600+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72045600
045700+ *                                                                                       RADDAT           000000   72045700
045800+ *  Returns cTrue if 'FATAL' log events are logged.                                      RADDAT           000000   72045800
045900+ *  (Including ERROR, WARN, INFO and DEBUG log events)                                   RADDAT           000000   72045900
046000+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72046000
046100+D Logger_isFatalEnabled...                                                               RADDAT           000000   72046100
046200+D                 PR              N                                                      RADDAT           000000   72046200
046300+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72046300
046400+D                                     _Logger_isFatalEnabled+                            RADDAT           000000   72046400
046500+D                                     ')                                                 RADDAT           000000   72046500
046600+ /ELSE                                                                                   RADDAT           000000   72046600
            LINES EXCLUDED: 5
047200+ /ENDIF                                                                                  RADDAT           000000   72047200
047300+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72047300
047400+ *                                                                                       RADDAT           000000   72047400
047500+ *  Returns the name of the specified logger.                                            RADDAT           000000   72047500
047600+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72047600
047700+D Logger_getName...                                                                      RADDAT           000000   72047700
047800+D                 PR                         like(LOG4RPG_loggerName_t)                  RADDAT           000000   72047800
047900+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72047900
048000+D                                     _Logger_getName+                                   RADDAT           000000   72048000
048100+D                                     ')                                                 RADDAT           000000   72048100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    184
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
048200+ /ELSE                                                                                   RADDAT           000000   72048200
            LINES EXCLUDED: 5
048800+ /ENDIF                                                                                  RADDAT           000000   72048800
048900+D  i_hLogger                          const  like(LOG4RPG_hLogger_t   )                  RADDAT           000000   72048900
049000+ *                                                                                       RADDAT           000000   72049000
049100+ *  Test the specified logger handle for a NULL value.                                   RADDAT           000000   72049100
049200+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72049200
049300+D Logger_isNull...                                                                       RADDAT           000000   72049300
049400+D                 PR              N                                                      RADDAT           000000   72049400
049500+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72049500
049600+D                                     _Logger_isNull+                                    RADDAT           000000   72049600
049700+D                                     ')                                                 RADDAT           000000   72049700
049800+ /ELSE                                                                                   RADDAT           000000   72049800
            LINES EXCLUDED: 5
050400+ /ENDIF                                                                                  RADDAT           000000   72050400
050500+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72050500
050600+ *                                                                                       RADDAT           000000   72050600
050700+ *  Returns a NULL handle.                                                               RADDAT           000000   72050700
050800+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72050800
050900+D Logger_null...                                                                         RADDAT           000000   72050900
051000+D                 PR                         like(LOG4RPG_hLogger_t )                    RADDAT           000000   72051000
051100+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72051100
051200+D                                     _Logger_null+                                      RADDAT           000000   72051200
051300+D                                     ')                                                 RADDAT           000000   72051300
051400+ /ELSE                                                                                   RADDAT           000000   72051400
            LINES EXCLUDED: 5
052000+ /ENDIF                                                                                  RADDAT           000000   72052000
052100+ *                                                                                       RADDAT           000000   72052100
052200+ *  Sets the logging level of the specified logger.                                      RADDAT           000000   72052200
052300+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72052300
052400+D Logger_setLevel...                                                                     RADDAT           000000   72052400
052500+D                 PR                                                                     RADDAT           000000   72052500
052600+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72052600
052700+D                                     _Logger_setLevel+                                  RADDAT           000000   72052700
052800+D                                     ')                                                 RADDAT           000000   72052800
052900+ /ELSE                                                                                   RADDAT           000000   72052900
            LINES EXCLUDED: 5
053500+ /ENDIF                                                                                  RADDAT           000000   72053500
053600+D  i_hLogger                          const  like(LOG4RPG_hLogger_t )                    RADDAT           000000   72053600
053700+D  i_level                            const  like(LOG4RPG_level_t   )                    RADDAT           000000   72053700
053800+ *                                                                                       RADDAT           000000   72053800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    185
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
053900+ *  Allows to enable/disable log4rpg internal logging.                                   RADDAT           000000   72053900
054000+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72054000
054100+D Logger_setInternalDebugging...                                                         RADDAT           000000   72054100
054200+D                 PR                                                                     RADDAT           000000   72054200
054300+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72054300
054400+D                                     _Logger_setInternalDebugging+                      RADDAT           000000   72054400
054500+D                                     ')                                                 RADDAT           000000   72054500
054600+ /ELSE                                                                                   RADDAT           000000   72054600
            LINES EXCLUDED: 5
055200+ /ENDIF                                                                                  RADDAT           000000   72055200
055300+D  i_debugMode                        const  like(LOG4RPG_debugMode_t  )                 RADDAT           000000   72055300
055400+D  i_output                           const  like(LOG4RPG_debugOutput_t)                 RADDAT           000000   72055400
055500+D                                            options(*nopass)                            RADDAT           000000   72055500
055600+ *                                                                                       RADDAT           000000   72055600
055700+ *  Returns the internal debug mode.                                                     RADDAT           000000   72055700
055800+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72055800
055900+D Logger_getInternalDebugMode...                                                         RADDAT           000000   72055900
056000+D                 PR                         like(LOG4RPG_debugMode_t  )                 RADDAT           000000   72056000
056100+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72056100
056200+D                                     _Logger_getInternalDebugMode+                      RADDAT           000000   72056200
056300+D                                     ')                                                 RADDAT           000000   72056300
056400+ /ELSE                                                                                   RADDAT           000000   72056400
            LINES EXCLUDED: 5
057000+ /ENDIF                                                                                  RADDAT           000000   72057000
057100+ *                                                                                       RADDAT           000000   72057100
057200+ *  Returns the target for internal log events.                                          RADDAT           000000   72057200
057300+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72057300
057400+D Logger_getInternalDebugOutput...                                                       RADDAT           000000   72057400
057500+D                 PR                         like(LOG4RPG_debugOutput_t)                 RADDAT           000000   72057500
057600+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72057600
057700+D                                     _Logger_getInternalDebugOutput+                    RADDAT           000000   72057700
057800+D                                     ')                                                 RADDAT           000000   72057800
057900+ /ELSE                                                                                   RADDAT           000000   72057900
            LINES EXCLUDED: 5
058500+ /ENDIF                                                                                  RADDAT           000000   72058500
058600+ *                                                                                       RADDAT           000000   72058600
058700+ * -----------------------------------------                                             RADDAT           000000   72058700
058800+ *  Prototypes of 'Configurator'                                                         RADDAT           000000   72058800
058900+ *  (copied from PLOG4RPG08)                                                             RADDAT           000000   72058900
059000+ * -----------------------------------------                                             RADDAT           000000   72059000
059100+ *                                                                                       RADDAT           000000   72059100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    186
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
059200+ *  Loads a default configuration.                                                       RADDAT           000000   72059200
059300+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72059300
059400+D Configurator_loadDefaultConfiguration...                                               RADDAT           000000   72059400
059500+D                 PR              N                                                      RADDAT           000000   72059500
059600+D                                     extproc('LOG4RPG08+                                RADDAT           000000   72059600
059700+D                                     _Configurator_+                                    RADDAT           000000   72059700
059800+D                                     loadDefaultConfiguration+                          RADDAT           000000   72059800
059900+D                                     ')                                                 RADDAT           000000   72059900
060000+ /ELSE                                                                                   RADDAT           000000   72060000
            LINES EXCLUDED: 5
060600+ /ENDIF                                                                                  RADDAT           000000   72060600
060700+ *                                                                                       RADDAT           000000   72060700
060800+ *  Configures LOG4RPG from a properties file.                                           RADDAT           000000   72060800
060900+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72060900
061000+D Configurator_loadPropertiesConfiguration...                                            RADDAT           000000   72061000
061100+D                 PR              N                                                      RADDAT           000000   72061100
061200+D                                     extproc('LOG4RPG08+                                RADDAT           000000   72061200
061300+D                                     _Configurator_+                                    RADDAT           000000   72061300
061400+D                                     loadPropertiesConfiguration+                       RADDAT           000000   72061400
061500+D                                     ')                                                 RADDAT           000000   72061500
061600+ /ELSE                                                                                   RADDAT           000000   72061600
            LINES EXCLUDED: 5
062200+ /ENDIF                                                                                  RADDAT           000000   72062200
062300+D  i_path                             const  like(LOG4RPG_path_t   )                     RADDAT           000000   72062300
062400+ *                                                                                       RADDAT           000000   72062400
062500+ *  Configures LOG4RPG from a properties file. Watches the properties                    RADDAT           000000   72062500
062600+ *  file for changes and reloads the configuration on changes.                           RADDAT           000000   72062600
062700+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72062700
062800+D Configurator_loadAndWatchPropertiesConfiguration...                                    RADDAT           000000   72062800
062900+D                 PR              N                                                      RADDAT           000000   72062900
063000+D                                     extproc('LOG4RPG08+                                RADDAT           000000   72063000
063100+D                                     _Configurator_+                                    RADDAT           000000   72063100
063200+D                                     loadAndWatchPropertiesConfiguration+               RADDAT           000000   72063200
063300+D                                     ')                                                 RADDAT           000000   72063300
063400+ /ELSE                                                                                   RADDAT           000000   72063400
            LINES EXCLUDED: 6
064100+ /ENDIF                                                                                  RADDAT           000000   72064100
064200+D  i_path                             const  like(LOG4RPG_path_t   )                     RADDAT           000000   72064200
064300+D  i_waitMinutes                10I 0 const  options(*nopass)                            RADDAT           000000   72064300
064400+D  i_unit                       10A   const  options(*nopass)                            RADDAT           000000   72064400
064500+ *                                                                                       RADDAT           000000   72064500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    187
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
064600+ *  Clears all configuration data.                                                       RADDAT           000000   72064600
064700+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72064700
064800+D Configurator_clearConfiguration...                                                     RADDAT           000000   72064800
064900+D                 PR                                                                     RADDAT           000000   72064900
065000+D                                     extproc('LOG4RPG08+                                RADDAT           000000   72065000
065100+D                                     _Configurator_clearConfiguration+                  RADDAT           000000   72065100
065200+D                                     ')                                                 RADDAT           000000   72065200
065300+ /ELSE                                                                                   RADDAT           000000   72065300
            LINES EXCLUDED: 5
065900+ /ENDIF                                                                                  RADDAT           000000   72065900
066000+ *                                                                                       RADDAT           000000   72066000
066100+ *  Creates a new layout.                                                                RADDAT           000000   72066100
066200+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72066200
066300+D Layout_new...                                                                          RADDAT           000000   72066300
066400+D                 PR                         like(LOG4RPG_pLayout_t      )               RADDAT           000000   72066400
066500+D                                     extproc('LOG4RPG11+                                RADDAT           000000   72066500
066600+D                                     _Layout_new+                                       RADDAT           000000   72066600
066700+D                                     ')                                                 RADDAT           000000   72066700
066800+ /ELSE                                                                                   RADDAT           000000   72066800
            LINES EXCLUDED: 5
067400+ /ENDIF                                                                                  RADDAT           000000   72067400
067500+D  i_layoutImpl                       const  like(LOG4RPG_implClass_t     )              RADDAT           000000   72067500
067600+D  i_pPropString                  *   const  options(*nopass:                            RADDAT           000000   72067600
067700+D                                                    *omit  : *string)                   RADDAT           000000   72067700
067800+ *                                                                                       RADDAT           000000   72067800
067900+ *  Returns a NULL layout.                                                               RADDAT           000000   72067900
068000+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72068000
068100+D Layout_null...                                                                         RADDAT           000000   72068100
068200+D                 PR                         like(LOG4RPG_pLayout_t      )               RADDAT           000000   72068200
068300+D                                     extproc('LOG4RPG11+                                RADDAT           000000   72068300
068400+D                                     _Layout_null+                                      RADDAT           000000   72068400
068500+D                                     ')                                                 RADDAT           000000   72068500
068600+ /ELSE                                                                                   RADDAT           000000   72068600
            LINES EXCLUDED: 5
069200+ /ENDIF                                                                                  RADDAT           000000   72069200
069300+ *                                                                                       RADDAT           000000   72069300
069400+ *  Creates a new appender.                                                              RADDAT           000000   72069400
069500+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72069500
069600+D Appender_new...                                                                        RADDAT           000000   72069600
069700+D                 PR                         like(LOG4RPG_pAppender_t    )               RADDAT           000000   72069700
069800+D                                     extproc('LOG4RPG03+                                RADDAT           000000   72069800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    188
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
069900+D                                     _Appender_new+                                     RADDAT           000000   72069900
070000+D                                     ')                                                 RADDAT           000000   72070000
070100+ /ELSE                                                                                   RADDAT           000000   72070100
            LINES EXCLUDED: 5
070700+ /ENDIF                                                                                  RADDAT           000000   72070700
070800+D  i_appName                          const  like(LOG4RPG_appenderName_t  )              RADDAT           000000   72070800
070900+D  i_appImpl                          const  like(LOG4RPG_implClass_t     )              RADDAT           000000   72070900
071000+D  i_pPropString                  *   const  options(*nopass:                            RADDAT           000000   72071000
071100+D                                                    *omit  : *string)                   RADDAT           000000   72071100
071200+ *                                                                                       RADDAT           000000   72071200
071300+ *  Returns a NULL appender.                                                             RADDAT           000000   72071300
071400+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72071400
071500+D Appender_null...                                                                       RADDAT           000000   72071500
071600+D                 PR                         like(LOG4RPG_pAppender_t    )               RADDAT           000000   72071600
071700+D                                     extproc('LOG4RPG03+                                RADDAT           000000   72071700
071800+D                                     _Appender_null+                                    RADDAT           000000   72071800
071900+D                                     ')                                                 RADDAT           000000   72071900
072000+ /ELSE                                                                                   RADDAT           000000   72072000
            LINES EXCLUDED: 5
072600+ /ENDIF                                                                                  RADDAT           000000   72072600
072700+ *                                                                                       RADDAT           000000   72072700
072800+ *  Sets the layout for the specified appender.                                          RADDAT           000000   72072800
072900+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72072900
073000+D Appender_setLayout...                                                                  RADDAT           000000   72073000
073100+D                 PR              N                                                      RADDAT           000000   72073100
073200+D                                     extproc('LOG4RPG03+                                RADDAT           000000   72073200
073300+D                                     _Appender_setLayout+                               RADDAT           000000   72073300
073400+D                                     ')                                                 RADDAT           000000   72073400
073500+ /ELSE                                                                                   RADDAT           000000   72073500
            LINES EXCLUDED: 5
074100+ /ENDIF                                                                                  RADDAT           000000   72074100
074200+D  i_pAppender                        const  like(LOG4RPG_pAppender_t     )              RADDAT           000000   72074200
074300+D  i_pLayout                          const  like(LOG4RPG_pLayout_t       )              RADDAT           000000   72074300
074400+ *                                                                                       RADDAT           000000   72074400
074500+ *  Sets the filter for the specified appender.                                          RADDAT           000000   72074500
074600+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72074600
074700+D Appender_setFilter...                                                                  RADDAT           000000   72074700
074800+D                 PR              N                                                      RADDAT           000000   72074800
074900+D                                     extproc('LOG4RPG03+                                RADDAT           000000   72074900
075000+D                                     _Appender_setFilter+                               RADDAT           000000   72075000
075100+D                                     ')                                                 RADDAT           000000   72075100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    189
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
075200+ /ELSE                                                                                   RADDAT           000000   72075200
            LINES EXCLUDED: 5
075800+ /ENDIF                                                                                  RADDAT           000000   72075800
075900+D  i_pAppender                        const  like(LOG4RPG_pAppender_t     )              RADDAT           000000   72075900
076000+D  i_pFilter                          const  like(LOG4RPG_pFilter_t       )              RADDAT           000000   72076000
076100+ *                                                                                       RADDAT           000000   72076100
076200+ *  Adds an appender to the specified logger.                                            RADDAT           000000   72076200
076300+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72076300
076400+D Logger_addAppender...                                                                  RADDAT           000000   72076400
076500+D                 PR                                                                     RADDAT           000000   72076500
076600+D                                     extproc('LOG4RPG01+                                RADDAT           000000   72076600
076700+D                                     _Logger_addAppender+                               RADDAT           000000   72076700
076800+D                                     ')                                                 RADDAT           000000   72076800
076900+ /ELSE                                                                                   RADDAT           000000   72076900
            LINES EXCLUDED: 5
077500+ /ENDIF                                                                                  RADDAT           000000   72077500
077600+D  i_hLogger                          const  like(LOG4RPG_hLogger_t       )              RADDAT           000000   72077600
077700+D  i_hAppender                        const  like(LOG4RPG_pAppender_t     )              RADDAT           000000   72077700
077800+ *                                                                                       RADDAT           000000   72077800
077900+ *  Creates a new filter.                                                                RADDAT           000000   72077900
078000+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72078000
078100+D Filter_new...                                                                          RADDAT           000000   72078100
078200+D                 PR                         like(LOG4RPG_pFilter_t       )              RADDAT           000000   72078200
078300+D                                     extproc('LOG4RPG17+                                RADDAT           000000   72078300
078400+D                                     _Filter_new+                                       RADDAT           000000   72078400
078500+D                                     ')                                                 RADDAT           000000   72078500
078600+ /ELSE                                                                                   RADDAT           000000   72078600
            LINES EXCLUDED: 5
079200+ /ENDIF                                                                                  RADDAT           000000   72079200
079300+D  i_fltName                          const  like(LOG4RPG_filterName_t    )              RADDAT           000000   72079300
079400+D  i_fltImpl                          const  like(LOG4RPG_implClass_t     )              RADDAT           000000   72079400
079500+D  i_pPropString                  *   const  options(*nopass:                            RADDAT           000000   72079500
079600+D                                                    *omit  : *string)                   RADDAT           000000   72079600
079700+ *                                                                                       RADDAT           000000   72079700
079800+ *  Returns a NULL filter.                                                               RADDAT           000000   72079800
079900+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72079900
080000+D Filter_null...                                                                         RADDAT           000000   72080000
080100+D                 PR                         like(LOG4RPG_pFilter_t       )              RADDAT           000000   72080100
080200+D                                     extproc('LOG4RPG17+                                RADDAT           000000   72080200
080300+D                                     _Filter_null+                                      RADDAT           000000   72080300
080400+D                                     ')                                                 RADDAT           000000   72080400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    190
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
080500+ /ELSE                                                                                   RADDAT           000000   72080500
            LINES EXCLUDED: 5
081100+ /ENDIF                                                                                  RADDAT           000000   72081100
081200+ *                                                                                       RADDAT           000000   72081200
081300+ *  Sets the next filter of the filter chain.                                            RADDAT           000000   72081300
081400+ /IF NOT DEFINED(LOGGER_STUB)                                                            RADDAT           000000   72081400
081500+D Filter_setNext...                                                                      RADDAT           000000   72081500
081600+D                 PR                                                                     RADDAT           000000   72081600
081700+D                                     extproc('LOG4RPG17+                                RADDAT           000000   72081700
081800+D                                     _Filter_setNext+                                   RADDAT           000000   72081800
081900+D                                     ')                                                 RADDAT           000000   72081900
082000+ /ELSE                                                                                   RADDAT           000000   72082000
            LINES EXCLUDED: 5
082600+ /ENDIF                                                                                  RADDAT           000000   72082600
082700+D  i_pFilter                          const  like(LOG4RPG_pFilter_t     )                RADDAT           000000   72082700
082800+D  i_pNextFilter                      const  like(LOG4RPG_pFilter_t     )                RADDAT           000000   72082800
082900+ *                                                                                       RADDAT           000000   72082900
083000+ /ENDIF                                                                                  RADDAT           000000   72083000
000600+ *                                                                                                        600525   70000600
000700+ *  Returns the IP address of the 5250 client of the                                                      601013   70000700
000800+ *  specified job.                                                                                        600525   70000800
000900+D Job_getTcpIpAddr...                                                                                     600525   70000900
001000+D                 PR            15A          varying                                                      600525   70001000
001100+D                                     extproc('WSDL2R88_+                                                 600525   70001100
001200+D                                     Job_getTcpIpAddr+                                                   600525   70001200
001300+D                                     ')                                                                  600525   70001300
001400+D  i_qJob                             const  likeds(wsdl_qJob_t )                                         600528   70001400
001500+D                                            options(*nopass)                                             600525   70001500
001600+ *                                                                                                        130918   70001600
001700+ *  Returns the CCSID of the specified job.                                                               130918   70001700
001800+D Job_getCcsid...                                                                                         130918   70001800
001900+D                 PR            10I 0                                                                     130918   70001900
002000+D                                     extproc('WSDL2R88_+                                                 130918   70002000
002100+D                                     Job_getCcsid+                                                       130918   70002100
002200+D                                     ')                                                                  130918   70002200
002300+D  i_qJob                             const  likeds(wsdl_qJob_t )                                         130918   70002300
002400+D                                            options(*nopass)                                             130918   70002400
002500+ *                                                                                                        620502   70002500
002600+ *  Returns cTrue for a batch job, else cFalse.                                                           620502   70002600
002700+D Job_isBatch...                                                                                          620502   70002700
002800+D                 PR              N                                                                       620502   70002800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    191
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002900+D                                     extproc('WSDL2R88_+                                                 620502   70002900
003000+D                                     Job_isBatch+                                                        620502   70003000
003100+D                                     ')                                                                  620502   70003100
003200+ *                                                                                                        601026   70003200
003300+ *  Returns the file name of a given path.                                                                601026   70003300
003400+D File_getName...                                                                                         601026   70003400
003500+D                 PR                         like(wsdl_path_t )                                           601026   70003500
003600+D                                     extproc('WSDL2R88_+                                                 601026   70003600
003700+D                                     File_getName+                                                       601026   70003700
003800+D                                     ')                                                                  601026   70003800
003900+D  i_path                             value  like(wsdl_path_t )                                           601026   70003900
004000+ *                                                                                                        601029   70004000
004100+ *  Fixes a given path name to meet System i requirements.                                                601029   70004100
004200+D File_fixPath...                                                                                         601029   70004200
004300+D                 PR                         like(wsdl_path_t )                                           601029   70004300
004400+D                                     extproc('WSDL2R88_+                                                 601029   70004400
004500+D                                     File_fixPath+                                                       601029   70004500
004600+D                                     ')                                                                  601029   70004600
004700+D  i_path                             value  like(wsdl_path_t )                                           601029   70004700
004800+ *                                                                                                        130920   70004800
004900+ *  Shortens a given path to the specified number of bytes.                                               130920   70004900
005000+D File_shortenName...                                                                                     130920   70005000
005100+D                 PR                         like(wsdl_path_t )                                           130920   70005100
005200+D                                     extproc('WSDL2R88_+                                                 130920   70005200
005300+D                                     File_shortenName+                                                   130920   70005300
005400+D                                     ')                                                                  130920   70005400
005500+D  i_path                             value  like(wsdl_path_t )                                           130920   70005500
005600+D  i_length                     10I 0 value                                                               130920   70005600
005700+ *                                                                                                        130920   70005700
005800+ *  Starts the Log4rpg logging service.                                                                   610930   70005800
005900+D Log4rpg_startLoggingService...                                                                          610930   70005900
006000+D                 PR                                                                                      610930   70006000
006100+D                                     extproc('WSDL2R88_+                                                 610930   70006100
006200+D                                     Log4rpg_startLoggingService+                                        610930   70006200
006300+D                                     ')                                                                  610930   70006300
006400+D  i_path                             const  like(LOG4RPG_path_t   )                                      610930   70006400
006500+D                                            options(*nopass)                                             610930   70006500
006600+D  i_waitMinutes                10I 0 const  options(*nopass)                                             610930   70006600
006700+D  i_unit                       10A   const  options(*nopass)                                             610930   70006700
006800+ *                                                                                                        620502   70006800
006900+ *  Returns the release level of the operating system.                                                    620502   70006900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    192
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
007000+D OperatingSystem_getRelease...                                                                           620502   70007000
007100+D                 PR             6A                                                                       620502   70007100
007200+D                                     extproc('WSDL2R88_+                                                 620502   70007200
007300+D                                     OperatingSystem_getRelease+                                         620502   70007300
007400+D                                     ')                                                                  620502   70007400
007500+ *                                                                                                        131002   70007500
007600+ *  Returns cTrue, if a given http return code indicates                                                  131002   70007600
007700+ *  a request for redirection.                                                                            131002   70007700
007800+D HttpResponse_isRedirect...                                                                              131002   70007800
007900+D                 PR              N                                                                       131002   70007900
008000+D                                     extproc('WSDL2R88_+                                                 131002   70008000
008100+D                                     HttpResponse_isRedirect+                                            131002   70008100
008200+D                                     ')                                                                  131002   70008200
008300+D  i_http_rc                    10I 0 value                                                               131002   70008300
008400+ *                                                                                                        131002   70008400
008500+ *  Returns cTrue, if the HTTPAPI received an authentication error                                        131002   70008500
008600+ *  from the proxy or the http server.                                                                    131002   70008600
008700+D HttpResponse_isAuthenticationError...                                                                   131002   70008700
008800+D                 PR              N                                                                       131002   70008800
008900+D                                     extproc('WSDL2R88_+                                                 131002   70008900
009000+D                                     HttpResponse_isAuthenticationError+                                 131002   70009000
009100+D                                     ')                                                                  131002   70009100
009200+D  i_http_rc                    10I 0 value                                                               131002   70009200
009300+ *                                                                                                        571107   70009300
009400+ /ENDIF                                                                                                   571108   70009400
000057+ /COPY QWSDL2RPG,PWSDL2R90                    WSDL2RPG: AppMsg                                       CPY  000000    5000057
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R90                                                    *                    74
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R90)                                *                    74
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    74
        * Text 'description' . . . . :  WSDL2RPG: Application Message          (Prototype)           *                    74
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R90)                                                                               571204   74000100
000200+ /DEFINE PWSDL2R90                                                                                        571204   74000200
000300+ *                                                                                                        571108   74000300
000400+ /COPY QWSDL2RPG,TYPES                                                                               CPY  571108   74000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES                                                        *                    75
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES)                                    *                    75
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                    75
        * Text 'description' . . . . :  Type definitions (private)                                   *                    75
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    193
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(TYPES)                                                                                   571106   75000100
            LINES EXCLUDED: 1036
103800+ /ENDIF                                                                                                   571106   75103800
000500+ *                                                                                                        571110   74000500
000600+ *  Sends a status message.                                                                               571110   74000600
000700+D AppMsg_sendStatusMsg...                                                                                 571204   74000700
000800+D                 PR                                                                                      571110   74000800
000900+D                                     extproc('WSDL2R90_+                                                 571204   74000900
001000+D                                     AppMsg_sendStatusMsg+                                               571204   74001000
001100+D                                     ')                                                                  571110   74001100
001200+D  i_msg                              const  likeds(msg_t )                                               590109   74001200
001300+ *                                                                                                        571212   74001300
001400+ *  Sends a diagnostic message.                                                                           571212   74001400
001500+D AppMsg_sendDiagMsg...                                                                                   571212   74001500
001600+D                 PR                                                                                      571212   74001600
001700+D                                     extproc('WSDL2R90_+                                                 571212   74001700
001800+D                                     AppMsg_sendDiagMsg+                                                 571212   74001800
001900+D                                     ')                                                                  571212   74001900
002000+D  i_msg                              const  likeds(msg_t )                                               571212   74002000
002100+D  i_toStkC                     10I 0 const  options(*nopass: *omit)                                      591223   74002100
002200+D  i_toProc                    256A   const  options(*nopass: *omit)                                      591223   74002200
002300+ *                                                                                                        581104   74002300
002400+ *  Sends an escape message.                                                                              581104   74002400
002500+D AppMsg_sendEscMsg...                                                                                    581104   74002500
002600+D                 PR                                                                                      581104   74002600
002700+D                                     extproc('WSDL2R90_+                                                 581104   74002700
002800+D                                     AppMsg_sendEscMsg+                                                  581104   74002800
002900+D                                     ')                                                                  581104   74002900
003000+D  i_msg                              const  likeds(msg_t )                                               581104   74003000
003100+D  i_toStkC                     10I 0 const  options(*nopass: *omit)                                      591223   74003100
003200+D  i_toProc                    256A   const  options(*nopass: *omit)                                      591223   74003200
003300+ *                                                                                                        620108   74003300
003400+ *  Dumps the call stack to the debug log and sends an escape message.                                    620108   74003400
003500+D AppMsg_sendEscMsgAndDump...                                                                             620108   74003500
003600+D                 PR                                                                                      620108   74003600
003700+D                                     extproc('WSDL2R90_+                                                 620108   74003700
003800+D                                     AppMsg_sendEscMsgAndDump+                                           620108   74003800
003900+D                                     ')                                                                  620108   74003900
004000+D  i_msg                              const  likeds(msg_t )                                               620108   74004000
004100+ *                                                                                                        571120   74004100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    194
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004200+ *  Creates a message.                                                                                    571120   74004200
004300+D AppMsg_new...                                                                                           571204   74004300
004400+D                 PR                         likeds(msg_t     )                                           571120   74004400
004500+D                                     extproc('WSDL2R90_+                                                 571204   74004500
004600+D                                     AppMsg_new+                                                         571204   74004600
004700+D                                     ')                                                                  571120   74004700
004800+D  i_ID                               const  like(msg_t.ID    )                                           571120   74004800
004900+D  i_data                             const  like(msg_t.data  )                                           571120   74004900
005000+D                                            options(*nopass)                                             571205   74005000
005100+D  i_type                             const  like(msg_t.data  )                                           571120   74005100
005200+D                                            options(*nopass)                                             571120   74005200
005300+ *                                                                                                        571205   74005300
005400+ *  Creates an error message.                                                                             571205   74005400
005500+D AppMsg_newError...                                                                                      571205   74005500
005600+D                 PR                         likeds(msg_t     )                                           571205   74005600
005700+D                                     extproc('WSDL2R90_+                                                 571205   74005700
005800+D                                     AppMsg_newError+                                                    571205   74005800
005900+D                                     ')                                                                  571205   74005900
006000+D  i_ID                               const  like(msg_t.ID    )                                           571205   74006000
006100+D  i_data                             const  like(msg_t.data  )                                           571205   74006100
006200+ *                                                                                                        571212   74006200
006300+ *  Sends an application message to cancel the application.                                               571212   74006300
006400+D AppMsg_sendCancelMsg...                                                                                 571212   74006400
006500+D                 PR                                                                                      571212   74006500
006600+D                                     extproc('WSDL2R90_+                                                 571212   74006600
006700+D                                     AppMsg_sendCancelMsg+                                               571212   74006700
006800+D                                     ')                                                                  571212   74006800
006900+D  i_msg                              const  likeds(msg_t )                                               571212   74006900
007000+ *                                                                                                        571120   74007000
007100+ *  Sends a message to the command line.                                                                  571120   74007100
007200+D AppMsg_sendToCmdLine...                                                                                 571204   74007200
007300+D                 PR                                                                                      571120   74007300
007400+D                                     extproc('WSDL2R90_+                                                 571204   74007400
007500+D                                     AppMsg_sendToCmdLine+                                               571204   74007500
007600+D                                     ')                                                                  571120   74007600
007700+D  i_msg                              value  likeds(msg_t )                                               571120   74007700
007800+ *                                                                                                        601230   74007800
007900+ *  Retrieves the first-level message text of a given message                                             601230   74007900
008000+ *  description.                                                                                          601230   74008000
008100+D AppMsg_retrieveMsgText...                                                                               601230   74008100
008200+D                 PR           132A   varying                                                             601230   74008200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    195
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008300+D                                     extproc('WSDL2R90_+                                                 601230   74008300
008400+D                                     AppMsg_retrieveMsgText+                                             601230   74008400
008500+D                                     ')                                                                  601230   74008500
008600+D  i_msgID                            value  like(msg_t.ID   )                                            601230   74008600
008700+D  i_msgData                          value  like(msg_t.data )                                            601230   74008700
008800+ *                                                                                                        601230   74008800
008900+ *  Retrieves the second-level message text of a given message                                            601230   74008900
009000+ *  description.                                                                                          601230   74009000
009100+D AppMsg_retrieveHelpText...                                                                              601230   74009100
009200+D                 PR          3000A   varying                                                             601230   74009200
009300+D                                     extproc('WSDL2R90_+                                                 601230   74009300
009400+D                                     AppMsg_retrieveHelpText+                                            601230   74009400
009500+D                                     ')                                                                  601230   74009500
009600+D  i_msgID                            value  like(msg_t.ID   )                                            601230   74009600
009700+D  i_msgData                          value  like(msg_t.data )                                            601230   74009700
009800+ *                                                                                                        571205   74009800
009900+ *  Creates an NULL message.                                                                              571205   74009900
010000+D AppMsg_null...                                                                                          571205   74010000
010100+D                 PR                         likeds(msg_t     )                                           571205   74010100
010200+D                                     extproc('WSDL2R90_+                                                 571205   74010200
010300+D                                     AppMsg_null+                                                        571205   74010300
010400+D                                     ')                                                                  571205   74010400
010500+ *                                                                                                        571205   74010500
010600+ *  Tests a given message for a NULL value.                                                               571205   74010600
010700+D AppMsg_isNull...                                                                                        571205   74010700
010800+D                 PR              N                                                                       571205   74010800
010900+D                                     extproc('WSDL2R90_+                                                 571205   74010900
011000+D                                     AppMsg_isNull+                                                      571205   74011000
011100+D                                     ')                                                                  571205   74011100
011200+D  i_msg                              const  likeds(msg_t     )                                           571205   74011200
011300+ *                                                                                                        600911   74011300
011400+ *  Sends a "deprecated" message.                                                                         600911   74011400
011500+D deprecated...                                                                                           600911   74011500
011600+D                 PR                                                                                      600911   74011600
011700+D                                     extproc('WSDL2R90_+                                                 600911   74011700
011800+D                                     deprecated+                                                         600911   74011800
011900+D                                     ')                                                                  600911   74011900
012000+ *                                                                                                        571107   74012000
012100+ /ENDIF                                                                                                   571108   74012100
000058+ *                                                                                                        000000    5000058
000059+ *   Array dimensions:                                                                                    000000    5000059
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    196
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000060+D DIM_A1          C                   128                                                                 000000    5000060
000061+D DIM_A2          C                   128                                                                 000000    5000061
000062+D DIM_A3          C                   128                                                                 000000    5000062
000063+ *                                                                                                        000000    5000063
000064+ *   Web Service specific types:                                                                          000000    5000064
000065+D xsd_string_of_string_t...                                                                               000000    5000065
000066+D                 S            128A   varying                                                             000000    5000066
000067+D                                     template                                                            000000    5000067
000068+ *                                                                                                        000000    5000068
000069+D ns_timianOrderItem_t...                                                                                 000000    5000069
000070+D                 DS                  template                                                            000000    5000070
000071+D                                     qualified                                                           000000    5000071
000072+D  amount                       31S15                                                                     000000    5000072
000073+D  amountWithVAT                31S15                                                                     000000    5000073
000074+D  barCode                     128A   varying                                                             000000    5000074
000075+D  itemId                       10I 0                                                                     000000    5000075
000076+D  model                       128A   varying                                                             000000    5000076
000077+D  orderRefId                   10I 0                                                                     000000    5000077
000078+D  qty                          31S15                                                                     000000    5000078
000079+D  qtyDelivered                 31S15                                                                     000000    5000079
000080+D  qtyUnits                     31S15                                                                     000000    5000080
000081+D  refModelId                   10I 0                                                                     000000    5000081
000082+D  title                       128A   varying                                                             000000    5000082
000083+D  units                       128A   varying                                                             000000    5000083
000084+ *                                                                                                        000000    5000084
000085+ *                                                                                                        000000    5000085
000086+D ns_timianOrderRnmd_t...                                                                                 000000    5000086
000087+D                 DS                  template                                                            000000    5000087
000088+D                                     qualified                                                           000000    5000088
000089+D  costInfo                    128A   varying                                                             000000    5000089
000090+D  customerSId                 128A   varying                                                             000000    5000090
000091+D  deliveryDate                   Z                                                                       000000    5000091
000092+D  deliveryInfo                128A   varying                                                             000000    5000092
000093+D  notes                              likeds(ns_ArrayOfStrings_t)                                         000000    5000093
000094+D  orderDate                      Z                                                                       000000    5000094
000095+D  orderItems                         likeds(ns_ArrayOfOrderItems_t)                                      000000    5000095
000096+D  refId                        10I 0                                                                     000000    5000096
000097+D  refNumber1                  128A   varying                                                             000000    5000097
000098+D  refNumber2                  128A   varying                                                             000000    5000098
000099+D  refNumber3                  128A   varying                                                             000000    5000099
000100+D  state                       128A   varying                                                             000000    5000100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    197
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000101+D  supplierSId                 128A   varying                                                             000000    5000101
000102+D  totalAmount                  31S15                                                                     150720    5000102
000103+D  totalAmountWithVAT...                                                                                  000000    5000103
000104+D                               31S15                                                                     150720    5000104
000105+ *                                                                                                        000000    5000105
000106+ *                                                                                                        000000    5000106
000107+D ns_ArrayOfOrders_t...                                                                                   000000    5000107
000108+D                 DS                  template                                                            000000    5000108
000109+D                                     qualified                                                           000000    5000109
000110+D  order                              likeds(ns_RpgArrayOfOrder_t)                                        000000    5000110
000111+ *                                                                                                        000000    5000111
000112+ *                                                                                                        000000    5000112
000113+D ns_ArrayOfOrderItems_t...                                                                               000000    5000113
000114+D                 DS                  template                                                            000000    5000114
000115+D                                     qualified                                                           000000    5000115
000116+D  orderItem                          likeds(ns_RpgArrayOfOrderItem_t)                                    000000    5000116
000117+ *                                                                                                        000000    5000117
000118+ *                                                                                                        000000    5000118
000119+D ns_ArrayOfStrings_t...                                                                                  000000    5000119
000120+D                 DS                  template                                                            000000    5000120
000121+D                                     qualified                                                           000000    5000121
000122+D  entry                              likeds(ns_RpgArrayOfEntry_t)                                        000000    5000122
000123+ *                                                                                                        000000    5000123
000124+ *                                                                                                        000000    5000124
000125+D ns_RpgArrayOfEntry_t...                                                                                 000000    5000125
000126+D                 DS                  template                                                            000000    5000126
000127+D                                     qualified                                                           000000    5000127
000128+D  x                            10I 0                                                                     000000    5000128
000129+D  string                             like(xsd_string_of_string_t)                                        000000    5000129
000130+D                                     dim(DIM_A2)                                                         000000    5000130
000131+ *                                                                                                        000000    5000131
000132+ *                                                                                                        000000    5000132
000133+D ns_RpgArrayOfOrder_t...                                                                                 000000    5000133
000134+D                 DS                  template                                                            000000    5000134
000135+D                                     qualified                                                           000000    5000135
000136+D  x                            10I 0                                                                     000000    5000136
000137+D  timianOrder                        likeds(ns_timianOrderRnmd_t)                                        000000    5000137
000138+D                                     dim(DIM_A1)                                                         000000    5000138
000139+ *                                                                                                        000000    5000139
000140+ *                                                                                                        000000    5000140
000141+D ns_RpgArrayOfOrderItem_t...                                                                             000000    5000141
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    198
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000142+D                 DS                  template                                                            000000    5000142
000143+D                                     qualified                                                           000000    5000143
000144+D  x                            10I 0                                                                     000000    5000144
000145+D  timianOrderItem...                                                                                     000000    5000145
000146+D                                     likeds(ns_timianOrderItem_t)                                        000000    5000146
000147+D                                     dim(DIM_A3)                                                         000000    5000147
000148+ *                                                                                                        000000    5000148
000149+D tns_fromTime_t  S            128A   varying                                                             000000    5000149
000150+D                                     template                                                            000000    5000150
000151+ *                                                                                                        000000    5000151
000152+D tns_getOrders_t...                                                                                      000000    5000152
000153+D                 DS                  template                                                            000000    5000153
000154+D                                     qualified                                                           000000    5000154
000155+D  fromTime                           like(tns_fromTime_t)                                                000000    5000155
000156+D  state                              like(tns_state_t)                                                   000000    5000156
000157+D  toTime                             like(tns_toTime_t)                                                  000000    5000157
000158+ *                                                                                                        000000    5000158
000159+ *                                                                                                        000000    5000159
000160+D tns_getOrdersResponse_t...                                                                              000000    5000160
000161+D                 DS                  template                                                            000000    5000161
000162+D                                     qualified                                                           000000    5000162
000163+D  orders                             likeds(ns_ArrayOfOrders_t)                                          000000    5000163
000164+ *                                                                                                        000000    5000164
000165+D tns_state_t     S            128A   varying                                                             000000    5000165
000166+D                                     template                                                            000000    5000166
000167+D tns_toTime_t    S            128A   varying                                                             000000    5000167
000168+D                                     template                                                            000000    5000168
000169+ *                                                                                                        000000    5000169
000170+ *   Public prototypes                                                                                    000000    5000170
000171+ *                                                                                                        000000    5000171
000172+ *   Web service: Returns the endpoint of the Web service                                                 000000    5000172
000173+D timianOrdersPort_Endpoint_get...                                                                        000000    5000173
000174+D                 PR         32767A          varying                                                      000000    5000174
000175+D                                     extproc('+                                                          000000    5000175
000176+D                                     timianOrdersPort+                                                   000000    5000176
000177+D                                     _Endpoint_get+                                                      000000    5000177
000178+D                                     ')                                                                  000000    5000178
000179+ *                                                                                                        000000    5000179
000180+ *   Web service: Sets the endpoint of the Web service                                                    000000    5000180
000181+D timianOrdersPort_Endpoint_set...                                                                        000000    5000181
000182+D                 PR                                                                                      000000    5000182
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    199
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000183+D                                     extproc('+                                                          000000    5000183
000184+D                                     timianOrdersPort+                                                   000000    5000184
000185+D                                     _Endpoint_set+                                                      000000    5000185
000186+D                                     ')                                                                  000000    5000186
000187+D  i_url                     32767A   const varying  options(*varsize)                                    000000    5000187
000188+ *                                                                                                        000000    5000188
000189+ *   Web service: Returns the host name of the Web Service endpoint                                       000000    5000189
000190+D timianOrdersPort_Endpoint_getHost...                                                                    000000    5000190
000191+D                 PR         32767A          varying                                                      000000    5000191
000192+D                                     extproc('+                                                          000000    5000192
000193+D                                     timianOrdersPort+                                                   000000    5000193
000194+D                                     _Endpoint_getHost+                                                  000000    5000194
000195+D                                     ')                                                                  000000    5000195
000196+ *                                                                                                        000000    5000196
000197+ *   Web service: Sets the host name of the Web service endpoint                                          000000    5000197
000198+D timianOrdersPort_Endpoint_setHost...                                                                    000000    5000198
000199+D                 PR                                                                                      000000    5000199
000200+D                                     extproc('+                                                          000000    5000200
000201+D                                     timianOrdersPort+                                                   000000    5000201
000202+D                                     _Endpoint_setHost+                                                  000000    5000202
000203+D                                     ')                                                                  000000    5000203
000204+D  i_url                     32767A   const varying  options(*varsize)                                    000000    5000204
000205+ *                                                                                                        000000    5000205
000206+ *   Web service: Returns the port of the Web Service endpoint                                            000000    5000206
000207+D timianOrdersPort_Endpoint_getPort...                                                                    000000    5000207
000208+D                 PR            10I 0                                                                     000000    5000208
000209+D                                     extproc('+                                                          000000    5000209
000210+D                                     timianOrdersPort+                                                   000000    5000210
000211+D                                     _Endpoint_getPort+                                                  000000    5000211
000212+D                                     ')                                                                  000000    5000212
000213+ *                                                                                                        000000    5000213
000214+ *   Web service: Sets the port of the Web service endpoint                                               000000    5000214
000215+D timianOrdersPort_Endpoint_setPort...                                                                    000000    5000215
000216+D                 PR                                                                                      000000    5000216
000217+D                                     extproc('+                                                          000000    5000217
000218+D                                     timianOrdersPort+                                                   000000    5000218
000219+D                                     _Endpoint_setPort+                                                  000000    5000219
000220+D                                     ')                                                                  000000    5000220
000221+D  i_port                       10I 0 const                                                               000000    5000221
000222+ *                                                                                                        000000    5000222
000223+ *   Web service: Initializes the web services port                                                       000000    5000223
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    200
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000224+D timianOrdersPort_Port_initialize...                                                                     000000    5000224
000225+D                 PR                                                                                      000000    5000225
000226+D                                     extproc('+                                                          000000    5000226
000227+D                                     timianOrdersPort+                                                   000000    5000227
000228+D                                     _Port_initialize+                                                   000000    5000228
000229+D                                     ')                                                                  000000    5000229
000230+D  i_operName                         const  like(wsdl_operName_t )                                       000000    5000230
000231+ *                                                                                                        000000    5000231
000232+ *   Web service: Sets the proxy server to use for the connection                                         000000    5000232
000233+D timianOrdersPort_Port_setHttpProxy...                                                                   000000    5000233
000234+D                 PR                                                                                      000000    5000234
000235+D                                     extproc('+                                                          000000    5000235
000236+D                                     timianOrdersPort+                                                   000000    5000236
000237+D                                     _Port_setHttpProxy+                                                 000000    5000237
000238+D                                     ')                                                                  000000    5000238
000239+D  i_server                    256A   const                                                               000000    5000239
000240+D  i_port                       10I 0 const                                                               000000    5000240
000241+ *                                                                                                        000000    5000241
000242+ *   Web service: Returns the proxy server to use for the connection                                      000000    5000242
000243+D timianOrdersPort_Port_getHttpProxy...                                                                   000000    5000243
000244+D                 PR                         likeds(wsdl_proxy_t )                                        000000    5000244
000245+D                                     extproc('+                                                          000000    5000245
000246+D                                     timianOrdersPort+                                                   000000    5000246
000247+D                                     _Port_getHttpProxy+                                                 000000    5000247
000248+D                                     ')                                                                  000000    5000248
000249+ *                                                                                                        000000    5000249
000250+ *   Web service: Enables/disables the debug log of HTTP API                                              000000    5000250
000251+D timianOrdersPort_Port_setHttpDebug...                                                                   000000    5000251
000252+D                 PR                                                                                      000000    5000252
000253+D                                     extproc('+                                                          000000    5000253
000254+D                                     timianOrdersPort+                                                   000000    5000254
000255+D                                     _Port_setHttpDebug+                                                 000000    5000255
000256+D                                     ')                                                                  000000    5000256
000257+D   i_status                      N   const                                                               000000    5000257
000258+D   i_fileName                 500A   const  varying  options(*nopass)                                    000000    5000258
000259+D   i_verbose                     N   const  options(*nopass)                                             000000    5000259
000260+ *                                                                                                        000000    5000260
000261+ *   Web service: Returns the HTTP API debug settings                                                     000000    5000261
000262+D timianOrdersPort_Port_getHttpDebug...                                                                   000000    5000262
000263+D                 PR                         likeds(wsdl_httpDebug_t )                                    000000    5000263
000264+D                                     extproc('+                                                          000000    5000264
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    201
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000265+D                                     timianOrdersPort+                                                   000000    5000265
000266+D                                     _Port_getHttpDebug+                                                 000000    5000266
000267+D                                     ')                                                                  000000    5000267
000268+ *                                                                                                        000000    5000268
000269+ *   Web service: Sets the CCSID used for POST data.                                                      000000    5000269
000270+D timianOrdersPort_Port_setPostCcsid...                                                                   000000    5000270
000271+D                 PR                                                                                      000000    5000271
000272+D                                     extproc('+                                                          000000    5000272
000273+D                                     timianOrdersPort+                                                   000000    5000273
000274+D                                     _Port_setPostCcsid+                                                 000000    5000274
000275+D                                     ')                                                                  000000    5000275
000276+D  i_post_ccsid                 10I 0 const                                                               000000    5000276
000277+ *                                                                                                        000000    5000277
000278+ *   Web service: Returns the CCSID used for POST data.                                                   000000    5000278
000279+D timianOrdersPort_Port_getPostCcsid...                                                                   000000    5000279
000280+D                 PR            10I 0                                                                     000000    5000280
000281+D                                     extproc('+                                                          000000    5000281
000282+D                                     timianOrdersPort+                                                   000000    5000282
000283+D                                     _Port_getPostCcsid+                                                 000000    5000283
000284+D                                     ')                                                                  000000    5000284
000285+ *                                                                                                        000000    5000285
000286+ *   Web service: Sets the timeout that HTTPAPI uses                                                      000000    5000286
000287+ *   when connecting to the server or waiting for response.                                               000000    5000287
000288+D timianOrdersPort_Port_setTimeout...                                                                     000000    5000288
000289+D                 PR                                                                                      000000    5000289
000290+D                                     extproc('+                                                          000000    5000290
000291+D                                     timianOrdersPort+                                                   000000    5000291
000292+D                                     _Port_setTimeout+                                                   000000    5000292
000293+D                                     ')                                                                  000000    5000293
000294+D  i_timeout                    10I 0 const                                                               000000    5000294
000295+ *                                                                                                        000000    5000295
000296+ *   Web service: Returns the timeout that HTTPAPI uses                                                   000000    5000296
000297+ *   when connecting to the server or waiting for response.                                               000000    5000297
000298+D timianOrdersPort_Port_getTimeout...                                                                     000000    5000298
000299+D                 PR            10I 0                                                                     000000    5000299
000300+D                                     extproc('+                                                          000000    5000300
000301+D                                     timianOrdersPort+                                                   000000    5000301
000302+D                                     _Port_getTimeout+                                                   000000    5000302
000303+D                                     ')                                                                  000000    5000303
000304+ *                                                                                                        000000    5000304
000305+ *   Web service: Sets the user-agent that HTTPAPI uses                                                   000000    5000305
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    202
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000306+ *   to identify the client at the server.                                                                000000    5000306
000307+D timianOrdersPort_Port_setUserAgent...                                                                   000000    5000307
000308+D                 PR                                                                                      000000    5000308
000309+D                                     extproc('+                                                          000000    5000309
000310+D                                     timianOrdersPort+                                                   000000    5000310
000311+D                                     _Port_setUserAgent+                                                 000000    5000311
000312+D                                     ')                                                                  000000    5000312
000313+D  i_userAgent                        const  like(wsdl_userAgent_t )                                      000000    5000313
000314+ *                                                                                                        000000    5000314
000315+ *   Web service: Returns the user-agent that HTTPAPI uses                                                000000    5000315
000316+ *   to identify the client at the server.                                                                000000    5000316
000317+D timianOrdersPort_Port_getUserAgent...                                                                   000000    5000317
000318+D                 PR                         like(wsdl_userAgent_t )                                      000000    5000318
000319+D                                     extproc('+                                                          000000    5000319
000320+D                                     timianOrdersPort+                                                   000000    5000320
000321+D                                     _Port_getUserAgent+                                                 000000    5000321
000322+D                                     ')                                                                  000000    5000322
000323+ *                                                                                                        000000    5000323
000324+ *   Web service: Clears all error information                                                            000000    5000324
000325+D timianOrdersPort_Port_clearErrors...                                                                    000000    5000325
000326+D                 PR                                                                                      000000    5000326
000327+D                                     extproc('+                                                          000000    5000327
000328+D                                     timianOrdersPort+                                                   000000    5000328
000329+D                                     _Port_clearErrors+                                                  000000    5000329
000330+D                                     ')                                                                  000000    5000330
000331+D  io_errors                                 likeds(wsdl_errors_t )                                       000000    5000331
000332+ *                                                                                                        000000    5000332
000333+ *   Web service: Sets error information                                                                  000000    5000333
000334+D timianOrdersPort_Port_setErrors...                                                                      000000    5000334
000335+D                 PR                                                                                      000000    5000335
000336+D                                     extproc('+                                                          000000    5000336
000337+D                                     timianOrdersPort+                                                   000000    5000337
000338+D                                     _Port_setErrors+                                                    000000    5000338
000339+D                                     ')                                                                  000000    5000339
000340+D  i_errors                           const  likeds(wsdl_errors_t )                                       000000    5000340
000341+ *                                                                                                        000000    5000341
000342+ *   Http: Returns cTrue in case of an error, else cFalse.                                                000000    5000342
000343+D timianOrdersPort_Port_isError...                                                                        000000    5000343
000344+D                 PR              N                                                                       000000    5000344
000345+D                                     extproc('+                                                          000000    5000345
000346+D                                     timianOrdersPort+                                                   000000    5000346
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    203
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000347+D                                     _Port_isError+                                                      000000    5000347
000348+D                                     ')                                                                  000000    5000348
000349+ *                                                                                                        000000    5000349
000350+ *   Http: Returns the last HTTP error (code) that occurred.                                              000000    5000350
000351+D timianOrdersPort_HttpError_getCode...                                                                   000000    5000351
000352+D                 PR                  like(wsdl_http_ErrorNo_t  )                                         000000    5000352
000353+D                                     extproc('+                                                          000000    5000353
000354+D                                     timianOrdersPort+                                                   000000    5000354
000355+D                                     _HttpError_getCode+                                                 000000    5000355
000356+D                                     ')                                                                  000000    5000356
000357+ *                                                                                                        000000    5000357
000358+ *   Http: Returns the last HTTP error (text) that occurred.                                              000000    5000358
000359+D timianOrdersPort_HttpError_getText...                                                                   000000    5000359
000360+D                 PR                  like(wsdl_http_ErrorText_t)                                         000000    5000360
000361+D                                     extproc('+                                                          000000    5000361
000362+D                                     timianOrdersPort+                                                   000000    5000362
000363+D                                     _HttpError_getText+                                                 000000    5000363
000364+D                                     ')                                                                  000000    5000364
000365+ *                                                                                                        000000    5000365
000366+ *   Soap: Returns the last SOAP error (code) that occurred.                                              000000    5000366
000367+D timianOrdersPort_SoapError_getCode...                                                                   000000    5000367
000368+D                 PR                  like(wsdl_soap_faultcode_t  )                                       000000    5000368
000369+D                                     extproc('+                                                          000000    5000369
000370+D                                     timianOrdersPort+                                                   000000    5000370
000371+D                                     _SoapError_getCode+                                                 000000    5000371
000372+D                                     ')                                                                  000000    5000372
000373+ *                                                                                                        000000    5000373
000374+ *   Soap: Returns the last SOAP error (text) that occurred.                                              000000    5000374
000375+D timianOrdersPort_SoapError_getText...                                                                   000000    5000375
000376+D                 PR                  like(wsdl_soap_faultstring_t)                                       000000    5000376
000377+D                                     extproc('+                                                          000000    5000377
000378+D                                     timianOrdersPort+                                                   000000    5000378
000379+D                                     _SoapError_getText+                                                 000000    5000379
000380+D                                     ')                                                                  000000    5000380
000381+ *                                                                                                        000000    5000381
000382+ *   Soap: Returns the last XML error (code) that occurred.                                               000000    5000382
000383+D timianOrdersPort_XmlError_getCode...                                                                    000000    5000383
000384+D                 PR                  like(wsdl_xml_errorNo_t    )                                        000000    5000384
000385+D                                     extproc('+                                                          000000    5000385
000386+D                                     timianOrdersPort+                                                   000000    5000386
000387+D                                     _XmlError_getCode+                                                  000000    5000387
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    204
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000388+D                                     ')                                                                  000000    5000388
000389+ *                                                                                                        000000    5000389
000390+ *   Soap: Returns the last XML error (text) that occurred.                                               000000    5000390
000391+D timianOrdersPort_XmlError_getText...                                                                    000000    5000391
000392+D                 PR                  like(wsdl_xml_ErrorText_t  )                                        000000    5000392
000393+D                                     extproc('+                                                          000000    5000393
000394+D                                     timianOrdersPort+                                                   000000    5000394
000395+D                                     _XmlError_getText+                                                  000000    5000395
000396+D                                     ')                                                                  000000    5000396
000397+ *                                                                                                        000000    5000397
000398+ *   Registers an user callback procedure, that is called whenever                                        000000    5000398
000399+ *   a web service requires user authentification.                                                        000000    5000399
000400+D timianOrdersPort_Port_registerLoginCallback...                                                          000000    5000400
000401+D                 PR                                                                                      000000    5000401
000402+D                                     extproc('+                                                          000000    5000402
000403+D                                     timianOrdersPort+                                                   000000    5000403
000404+D                                     _Port_registerLoginCallback+                                        000000    5000404
000405+D                                     ')                                                                  000000    5000405
000406+D  i_pLoginProc                   *   value  procptr                                                      000000    5000406
000407+ *                                                                                                        000000    5000407
000408+ *   Returns *ON if a login procedures has been registered.                                               000000    5000408
000409+D timianOrdersPort_Port_hasLoginCallback...                                                               000000    5000409
000410+D                 PR              N                                                                       000000    5000410
000411+D                                     extproc('+                                                          000000    5000411
000412+D                                     timianOrdersPort+                                                   000000    5000412
000413+D                                     _Port_hasLoginCallback+                                             000000    5000413
000414+D                                     ')                                                                  000000    5000414
000415+ *                                                                                                        000000    5000415
000416+ *   Sets the authentication type for a preemptive authentication.                                        000000    5000416
000417+D timianOrdersPort_Port_setPreemptiveAuthentication...                                                    000000    5000417
000418+D                 PR                                                                                      000000    5000418
000419+D                                     extproc('+                                                          000000    5000419
000420+D                                     timianOrdersPort+                                                   000000    5000420
000421+D                                     _Port_setPreemptiveAuthentication+                                  000000    5000421
000422+D                                     ')                                                                  000000    5000422
000423+D  i_authType                    1A   value                                                               000000    5000423
000424+D  i_isProxyAuth                  N   value options(*nopass)                                              000000    5000424
000425+ *                                                                                                        000000    5000425
000426+ *   Returns cTrue if preemptive authentication is enabled.                                               000000    5000426
000427+D timianOrdersPort_Port_isAuthenticatePreemptively...                                                     000000    5000427
000428+D                 PR              N                                                                       000000    5000428
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    205
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000429+D                                     extproc('+                                                          000000    5000429
000430+D                                     timianOrdersPort+                                                   000000    5000430
000431+D                                     _Port_isAuthenticatePreemptively+                                   000000    5000431
000432+D                                     ')                                                                  000000    5000432
000433+ *                                                                                                        000000    5000433
000434+ *   Login preemptively to proxy server or web service.                                                   000000    5000434
000435+D timianOrdersPort_Port_authenticatePreemptively...                                                       000000    5000435
000436+D                 PR            10I 0                                                                     000000    5000436
000437+D                                     extproc('+                                                          000000    5000437
000438+D                                     timianOrdersPort+                                                   000000    5000438
000439+D                                     _Port_authenticatePreemptively+                                     000000    5000439
000440+D                                     ')                                                                  000000    5000440
000441+ *                                                                                                        000000    5000441
000442+ *   Resets preemptive authentication.                                                                    000000    5000442
000443+D timianOrdersPort_Port_resetPreemptiveAuthentication...                                                  000000    5000443
000444+D                 PR                                                                                      000000    5000444
000445+D                                     extproc('+                                                          000000    5000445
000446+D                                     timianOrdersPort+                                                   000000    5000446
000447+D                                     _Port_resetPreemptiveAuthentication+                                000000    5000447
000448+D                                     ')                                                                  000000    5000448
000449+ *                                                                                                        000000    5000449
000450+ *   Login to proxy server or web service.                                                                000000    5000450
000451+D timianOrdersPort_Port_login...                                                                          000000    5000451
000452+D                 PR            10I 0                                                                     000000    5000452
000453+D                                     extproc('+                                                          000000    5000453
000454+D                                     timianOrdersPort+                                                   000000    5000454
000455+D                                     _Port_login+                                                        000000    5000455
000456+D                                     ')                                                                  000000    5000456
000457+D  i_http_err                   10I 0 value                                                               000000    5000457
000458+D  i_numAttempts                10I 0 value                                                               000000    5000458
000459+ *                                                                                                        000000    5000459
000460+ *   Returns the name of the web service port.                                                            000000    5000460
000461+D timianOrdersPort_Port_getName...                                                                        000000    5000461
000462+D                 PR           512A          varying                                                      000000    5000462
000463+D                                     extproc('+                                                          000000    5000463
000464+D                                     timianOrdersPort+                                                   000000    5000464
000465+D                                     _Port_getName+                                                      000000    5000465
000466+D                                     ')                                                                  000000    5000466
000467+ *                                                                                                        000000    5000467
000468+ *   Returns the UUID of the web service port.                                                            000000    5000468
000469+D timianOrdersPort_Port_getUuid...                                                                        000000    5000469
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    206
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000470+D                 PR                         like(wsdl_uuid_t )                                           000000    5000470
000471+D                                     extproc('+                                                          000000    5000471
000472+D                                     timianOrdersPort+                                                   000000    5000472
000473+D                                     _Port_getUuid+                                                      000000    5000473
000474+D                                     ')                                                                  000000    5000474
000475+ *                                                                                                        000000    5000475
000476+ *   Adds an attachments to the list of attachments.                                                      000000    5000476
000477+D timianOrdersPort_Attachments_put...                                                                     000000    5000477
000478+D                 PR                                                                                      000000    5000478
000479+D                                     extproc('+                                                          000000    5000479
000480+D                                     timianOrdersPort+                                                   000000    5000480
000481+D                                     _Attachments_put+                                                   000000    5000481
000482+D                                     ')                                                                  000000    5000482
000483+D  i_attachmentID...                                                                                      000000    5000483
000484+D                                     const  like(wsdl_attachmentID_t )                                   000000    5000484
000485+D  i_fileName                         const  like(wsdl_path_t         )                                   000000    5000485
000486+D  i_uuid                             const  like(wsdl_uuid_t         )                                   000000    5000486
000487+D                                            options(*nopass)                                             000000    5000487
000488+ *                                                                                                        000000    5000488
000489+ *   Returns the file name of the attachment that is associated to                                        000000    5000489
000490+ *   a given content ID.                                                                                  000000    5000490
000491+D timianOrdersPort_Attachments_get...                                                                     000000    5000491
000492+D                 PR                  like(wsdl_path_t     )                                              000000    5000492
000493+D                                     extproc('+                                                          000000    5000493
000494+D                                     timianOrdersPort+                                                   000000    5000494
000495+D                                     _Attachments_get+                                                   000000    5000495
000496+D                                     ')                                                                  000000    5000496
000497+D  i_attachmentID...                                                                                      000000    5000497
000498+D                                     const  like(wsdl_attachmentID_t )                                   000000    5000498
000499+D  i_uuid                             const  like(wsdl_uuid_t         )                                   000000    5000499
000500+D                                            options(*nopass)                                             000000    5000500
000501+ *                                                                                                        000000    5000501
000502+ *   Returns the file name of the attachment that is associated to                                        000000    5000502
000503+ *   a given index.                                                                                       000000    5000503
000504+D timianOrdersPort_Attachments_getAtPos...                                                                000000    5000504
000505+D                 PR                  likeds(wsdl_attachment_t )                                          000000    5000505
000506+D                                     extproc('+                                                          000000    5000506
000507+D                                     timianOrdersPort+                                                   000000    5000507
000508+D                                     _Attachments_getAtPos+                                              000000    5000508
000509+D                                     ')                                                                  000000    5000509
000510+D  i_index                      10I 0 const                                                               000000    5000510
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    207
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000511+D  i_uuid                             const  like(wsdl_uuid_t         )                                   000000    5000511
000512+D                                            options(*nopass)                                             000000    5000512
000513+ *                                                                                                        000000    5000513
000514+ *   Returns the number of attachments that were downloaded with the                                      000000    5000514
000515+ *   last call to the web service.                                                                        000000    5000515
000516+D timianOrdersPort_Attachments_getNumE...                                                                 000000    5000516
000517+D                 PR            10I 0                                                                     000000    5000517
000518+D                                     extproc('+                                                          000000    5000518
000519+D                                     timianOrdersPort+                                                   000000    5000519
000520+D                                     _Attachments_getNumE+                                               000000    5000520
000521+D                                     ')                                                                  000000    5000521
000522+D  i_uuid                             const  like(wsdl_uuid_t         )                                   000000    5000522
000523+D                                            options(*nopass)                                             000000    5000523
000524+ *                                                                                                        000000    5000524
000525+ *   Removes all attachments from the list of attachments of this web service.                            000000    5000525
000526+D timianOrdersPort_Attachments_removeAll...                                                               000000    5000526
000527+D                 PR                                                                                      000000    5000527
000528+D                                     extproc('+                                                          000000    5000528
000529+D                                     timianOrdersPort+                                                   000000    5000529
000530+D                                     _Attachments_removeAll+                                             000000    5000530
000531+D                                     ')                                                                  000000    5000531
000532+D  i_uuid                             const  like(wsdl_uuid_t         )                                   000000    5000532
000533+D                                            options(*nopass)                                             000000    5000533
000534+ *                                                                                                        000000    5000534
000535+ *   Specifies the name of the folder where to put attachments in.                                        000000    5000535
000536+D timianOrdersPort_Attachments_setFolder...                                                               000000    5000536
000537+D                 PR                                                                                      000000    5000537
000538+D                                     extproc('+                                                          000000    5000538
000539+D                                     timianOrdersPort+                                                   000000    5000539
000540+D                                     _Attachments_setFolder+                                             000000    5000540
000541+D                                     ')                                                                  000000    5000541
000542+D  i_folder                           const  like(wsdl_pathLong_t )                                       000000    5000542
000543+ *                                                                                                        000000    5000543
000544+ *   Returns the name of the folder where attachments are stored.                                         000000    5000544
000545+D timianOrdersPort_Attachments_getFolder...                                                               000000    5000545
000546+D                 PR                         like(wsdl_pathLong_t )                                       000000    5000546
000547+D                                     extproc('+                                                          000000    5000547
000548+D                                     timianOrdersPort+                                                   000000    5000548
000549+D                                     _Attachments_getFolder+                                             000000    5000549
000550+D                                     ')                                                                  000000    5000550
000551+ *                                                                                                        000000    5000551
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    208
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000552+ *   Enables redirection of the HTTP response message to a                                                000000    5000552
000553+ *   stream file in the IFS.                                                                              000000    5000553
000554+D timianOrdersPort_RedirectResponse_toStmf...                                                             000000    5000554
000555+D                 PR                                                                                      000000    5000555
000556+D                                     extproc('+                                                          000000    5000556
000557+D                                     timianOrdersPort+                                                   000000    5000557
000558+D                                     _RedirectResponse_toStmf+                                           000000    5000558
000559+D                                     ')                                                                  000000    5000559
000560+D  i_stmf                             const  like(wsdl_pathLong_t )                                       000000    5000560
000561+D  i_replace                      N   const  options(*nopass: *omit)                                      000000    5000561
000562+D  i_ccsid                      10I 0 const  options(*nopass: *omit)                                      000000    5000562
000563+D  i_auth                       10I 0 const  options(*nopass: *omit)                                      000000    5000563
000564+ *                                                                                                        000000    5000564
000565+ *   Returns cTrue if response redirection is active, otherwise cFalse.                                   000000    5000565
000566+D timianOrdersPort_RedirectResponse_isActive...                                                           000000    5000566
000567+D                 PR              N                                                                       000000    5000567
000568+D                                     extproc('+                                                          000000    5000568
000569+D                                     timianOrdersPort+                                                   000000    5000569
000570+D                                     _RedirectResponse_isActive+                                         000000    5000570
000571+D                                     ')                                                                  000000    5000571
000572+ *                                                                                                        000000    5000572
000573+ *   Terminates a response redirection and closes the                                                     000000    5000573
000574+ *   file that receiced the response.                                                                     000000    5000574
000575+D timianOrdersPort_RedirectResponse_write...                                                              000000    5000575
000576+D                 PR              N                                                                       000000    5000576
000577+D                                     extproc('+                                                          000000    5000577
000578+D                                     timianOrdersPort+                                                   000000    5000578
000579+D                                     _RedirectResponse_write+                                            000000    5000579
000580+D                                     ')                                                                  000000    5000580
000581+D  i_data                         *   value                                                               000000    5000581
000582+D  i_length                     10I 0 value                                                               000000    5000582
000583+ *                                                                                                        000000    5000583
000584+ *   Terminates a response redirection and closes the                                                     000000    5000584
000585+ *   file that receiced the response.                                                                     000000    5000585
000586+D timianOrdersPort_RedirectResponse_terminate...                                                          000000    5000586
000587+D                 PR                                                                                      000000    5000587
000588+D                                     extproc('+                                                          000000    5000588
000589+D                                     timianOrdersPort+                                                   000000    5000589
000590+D                                     _RedirectResponse_terminate+                                        000000    5000590
000591+D                                     ')                                                                  000000    5000591
000592+ *                                                                                                        000000    5000592
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    209
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000593+ * This procedure adds a file attachment. The attachment                                                  000000    5000593
000594+ * is sent to the server the next time the web service is called.                                         000000    5000594
000595+D timianOrdersPort_Attachments_addFile...                                                                 000000    5000595
000596+D                 PR                        like(wsdl_partID_t)                                           000000    5000596
000597+D                                     extproc('+                                                          000000    5000597
000598+D                                     timianOrdersPort+                                                   000000    5000598
000599+D                                     _Attachments_addFile+                                               000000    5000599
000600+D                                     ')                                                                  000000    5000600
000601+D  i_hMsgCtx                          const like(wsdl_hMsgCtx_t)                                          000000    5000601
000602+D  i_path                             const like(wsdl_path_t)                                             000000    5000602
000603+D  i_contentType                      const like(wsdl_contentType_t)                                      000000    5000603
000604+D  i_transferEncoding...                                                                                  000000    5000604
000605+D                                     const like(                                                         000000    5000605
000606+D                                           wsdl_contentTransferEncoding_t)                               000000    5000606
000607+D                                           options(*nopass: *omit)                                       000000    5000607
000608+D  i_suggestedFileName...                                                                                 000000    5000608
000609+D                                     const like(wsdl_path_t)                                             000000    5000609
000610+D                                           options(*nopass: *omit)                                       000000    5000610
000611+ *                                                                                                        000000    5000611
000612+ * This procedure adds a buffer attachment. The attachment                                                000000    5000612
000613+ * is sent to the server the next time the web service is called.                                         000000    5000613
000614+D timianOrdersPort_Attachments_addBuffer...                                                               000000    5000614
000615+D                 PR                        like(wsdl_partID_t)                                           000000    5000615
000616+D                                     extproc('+                                                          000000    5000616
000617+D                                     timianOrdersPort+                                                   000000    5000617
000618+D                                     _Attachments_addBuffer+                                             000000    5000618
000619+D                                     ')                                                                  000000    5000619
000620+D  i_hMsgCtx                          const like(wsdl_hMsgCtx_t)                                          000000    5000620
000621+D  i_name                             const like(wsdl_path_t)                                             000000    5000621
000622+D  i_pBuffer                      *   const                                                               000000    5000622
000623+D  i_size                       10I 0 const                                                               000000    5000623
000624+D  i_contentType                      const like(wsdl_contentType_t)                                      000000    5000624
000625+D  i_transferEncoding...                                                                                  000000    5000625
000626+D                                     const like(                                                         000000    5000626
000627+D                                           wsdl_contentTransferEncoding_t)                               000000    5000627
000628+D                                           options(*nopass: *omit)                                       000000    5000628
000629+D  i_targetCcsid                10I 0 const options(*nopass: *omit)                                       000000    5000629
000630+ *                                                                                                        000000    5000630
000631+ /ENDIF                                                                                                   000000    5000631
000632+ /IF DEFINED(PROTOTYPE_TIM001)                                                                            000000    5000632
000633+ /EOF                                                                                                     000000    5000633
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    210
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000153  /UNDEFINE PROTOTYPE_TIM001                                                                               000000     000153
000154  *                                                                                                        000000     000154
000155  /ENDIF                                                                                                   000000     000155
000156  /IF DEFINED(PROTOTYPE_TIM00101)                                                                          150611     000156
            LINES EXCLUDED: 1
000158  /ENDIF                                                                                                   000000     000158
000159  * ---------------------------------------------------------------------                                  000000     000159
000160  *                                                                                                        000000     000160
000161  *                                                                                                        000000     000161
000162  /COPY QBASICS1,PBASICS1                      Tools/400 Runtime Library                              CPY  000000     000162
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1                                                     *                    76
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1)                                  *                    76
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    76
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Include             cpybk           *                    76
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(D_BASIC)                                                                RADDAT           000000   76000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   76004200
000163  /COPY QMIME,PMIME                            Tools/400 MIME Parser                                  CPY  000000     000163
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PMIME                                                        *                    77
        * External name  . . . . . . :  WSDL2RPG/QMIME(PMIME)                                        *                    77
        * Last change  . . . . . . . :  19.04.15  17:02:10                                           *                    77
        * Text 'description' . . . . :  MIMEParser: public header member                             *                    77
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PMIME)                                                                                   590226   77000100
000200+ /DEFINE PMIME                                                                                            590226   77000200
000300+ *                                                                                                        590323   77000300
000400+ * -----------------------------------------------------------------------*                               590323   77000400
000500+ *   MIMEParser: public header member                                                                     590323   77000500
000600+ *                                                                                                        590323   77000600
000700+ *   This header member is intented to be used by developers who want                                     590323   77000700
000800+ *   to use the MIMEParser. Do not include this member if you want to                                     590323   77000800
000900+ *   use MIMEParser HTTP API adapter (member HTTPMIME).                                                   590324   77000900
001000+ * -----------------------------------------------------------------------*                               590323   77001000
001100+ *                                                                                                        590323   77001100
001200+ *  BasicPart content types                                                                               590324   77001200
001300+D cMIME_TYPE_TEXT...                                                                                      590324   77001300
001400+D                 C                   0                                                                   590323   77001400
001500+D cMIME_TYPE_AUDIO...                                                                                     590324   77001500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    211
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001600+D                 C                   1                                                                   590323   77001600
001700+D cMIME_TYPE_IMAGE...                                                                                     590324   77001700
001800+D                 C                   2                                                                   590323   77001800
001900+D cMIME_TYPE_VIDEO...                                                                                     590324   77001900
002000+D                 C                   3                                                                   590323   77002000
002100+D cMIME_TYPE_APPLICATION...                                                                               590324   77002100
002200+D                 C                   4                                                                   590323   77002200
002300+ *                                                                                                        590324   77002300
002400+ *  Other content types                                                                                   590324   77002400
002500+D cMIME_TYPE_MULTIPART...                                                                                 590324   77002500
002600+D                 C                   11                                                                  590324   77002600
002700+D cMIME_TYPE_MESSAGEPART...                                                                               590324   77002700
002800+D                 C                   12                                                                  590324   77002800
002900+ *                                                                                                        590323   77002900
003000+ * MIME parser handle                                                                                     590323   77003000
003100+D mime_hMime_t    S               *                           based(pDummy)                               590323   77003100
003200+ *                                                                                                        590313   77003200
003300+ /IF NOT DEFINED(mime_string_t)                                                                           590325   77003300
003400+ /DEFINE mime_string_t                                                                                    590325   77003400
003500+ * String value                                                                                           590323   77003500
003600+D mime_string_t   S           4096A   varying                 based(pDummy)                               590313   77003600
003700+ /ENDIF                                                                                                   590325   77003700
003800+ *                                                                                                        590323   77003800
003900+ * DATASink                                                                                               590323   77003900
004000+D mime_dataSink_t...                                                                                      590323   77004000
004100+D                 DS                  qualified               based(pDummy)                               590323   77004100
004200+D  pAddHeader                     *   procptr                                                             590323   77004200
004300+D  pBodyData                      *   procptr                                                             590323   77004300
004400+D  pBoundary                      *   procptr                                                             590323   77004400
004500+D  pContentDescription...                                                                                 590323   77004500
004600+D                                 *   procptr                                                             590323   77004600
004700+D  pContentDisposition...                                                                                 590323   77004700
004800+D                                 *   procptr                                                             590323   77004800
004900+D  pContentDispParams...                                                                                  590323   77004900
005000+D                                 *   procptr                                                             590323   77005000
005100+D  pContentEncoding...                                                                                    590323   77005100
005200+D                                 *   procptr                                                             590323   77005200
005300+D  pContentID                     *   procptr                                                             590323   77005300
005400+D  pContentMD5                    *   procptr                                                             590323   77005400
005500+D  pContentSubType...                                                                                     590323   77005500
005600+D                                 *   procptr                                                             590323   77005600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    212
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
005700+D  pContentType                   *   procptr                                                             590323   77005700
005800+D  pContentTypeParams...                                                                                  590323   77005800
005900+D                                 *   procptr                                                             590323   77005900
006000+D  pEndBasicPart                  *   procptr                                                             590323   77006000
006100+D  pEndMessage                    *   procptr                                                             590323   77006100
006200+D  pEndMessageHeader...                                                                                   590323   77006200
006300+D                                 *   procptr                                                             590323   77006300
006400+D  pEndMessagePart...                                                                                     590323   77006400
006500+D                                 *   procptr                                                             590323   77006500
006600+D  pEndMultiPart                  *   procptr                                                             590323   77006600
006700+D  pHeader                        *   procptr                                                             590323   77006700
006800+D  pStartBasicPart...                                                                                     590323   77006800
006900+D                                 *   procptr                                                             590323   77006900
007000+D  pStartMessage                  *   procptr                                                             590323   77007000
007100+D  pStartMessagePart...                                                                                   590323   77007100
007200+D                                 *   procptr                                                             590323   77007200
007300+D  pStartMultiPart...                                                                                     590323   77007300
007400+D                                 *   procptr                                                             590323   77007400
007500+ *                                                                                                        590323   77007500
007600+ *  Produces a MIME parser.                                                                               590323   77007600
007700+D MIMEParser_new...                                                                                       590323   77007700
007800+D                 PR                         like(mime_hMime_t     )                                      590323   77007800
007900+D                                     extproc('MIME01_+                                                   590323   77007900
008000+D                                     MIMEParser_new+                                                     590323   77008000
008100+D                                     ')                                                                  590323   77008100
008200+D  i_dataSink                         const  likeds(mime_dataSink_t)                                      590323   77008200
008300+D                                            options(*nopass: *omit)                                      590331   77008300
008400+D  i_bDecodeData                  N   const  options(*nopass: *omit)                                      590331   77008400
008500+ *                                                                                                        590323   77008500
008600+ *  Deletes a given MIME parser.                                                                          590323   77008600
008700+D MIMEParser_delete...                                                                                    590323   77008700
008800+D                 PR                                                                                      590323   77008800
008900+D                                     extproc('MIME01_+                                                   590323   77008900
009000+D                                     MIMEParser_delete+                                                  590323   77009000
009100+D                                     ')                                                                  590323   77009100
009200+D  io_hMime                                  like(mime_hMime_t )                                          590323   77009200
009300+ *                                                                                                        590331   77009300
009400+ *  Sets the data sink of a given MIME parser.                                                            590331   77009400
009500+D MIMEParser_setDataSink...                                                                               590331   77009500
009600+D                 PR                                                                                      590331   77009600
009700+D                                     extproc('MIME01_+                                                   590331   77009700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    213
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
009800+D                                     MIMEParser_setDataSink+                                             590331   77009800
009900+D                                     ')                                                                  590331   77009900
010000+D  i_hMime                            const  like(mime_hMime_t )                                          590331   77010000
010100+D  i_dataSink                         const  likeds(mime_dataSink_t )                                     590331   77010100
010200+ *                                                                                                        590331   77010200
010300+ *  Enables/disables decoding of data.                                                                    590331   77010300
010400+D MIMEParser_setDecodeData...                                                                             590331   77010400
010500+D                 PR                                                                                      590331   77010500
010600+D                                     extproc('MIME01_+                                                   590331   77010600
010700+D                                     MIMEParser_setDecodeData+                                           590331   77010700
010800+D                                     ')                                                                  590331   77010800
010900+D  i_hMime                            const  like(mime_hMime_t )                                          590331   77010900
011000+D  i_bDecodeData                  N   const                                                               590331   77011000
011100+ *                                                                                                        590323   77011100
011200+ *  Set character set IDs.                                                                                590323   77011200
011300+D MIMEParser_setCcsid...                                                                                  590323   77011300
011400+D                 PR                                                                                      590323   77011400
011500+D                                     extproc('MIME01_+                                                   590323   77011500
011600+D                                     MIMEParser_setCcsid+                                                590323   77011600
011700+D                                     ')                                                                  590323   77011700
011800+D  i_hMime                            const  like(mime_hMime_t )                                          590323   77011800
011900+D  i_ascii                      10I 0 const  options(*nopass: *omit)                                      590323   77011900
012000+D  i_ebcdic                     10I 0 const  options(*nopass: *omit)                                      590323   77012000
012100+ *                                                                                                        590325   77012100
012200+ *  Returns the ASCII CCSID.                                                                              590325   77012200
012300+D MIMEParser_getCcsidAscii...                                                                             590325   77012300
012400+D                 PR            10I 0                                                                     590325   77012400
012500+D                                     extproc('MIME01_+                                                   590325   77012500
012600+D                                     MIMEParser_getCcsidAscii+                                           590325   77012600
012700+D                                     ')                                                                  590325   77012700
012800+ *                                                                                                        590325   77012800
012900+ *  Returns the EBCDIC CCSID.                                                                             590325   77012900
013000+D MIMEParser_getCcsidEbcdic...                                                                            590325   77013000
013100+D                 PR            10I 0                                                                     590325   77013100
013200+D                                     extproc('MIME01_+                                                   590325   77013200
013300+D                                     MIMEParser_getCcsidEbcdic+                                          590325   77013300
013400+D                                     ')                                                                  590325   77013400
013500+ *                                                                                                        590323   77013500
013600+ *  Begin parse / reset parser.                                                                           590323   77013600
013700+D MIMEParser_beginParse...                                                                                590323   77013700
013800+D                 PR                                                                                      590323   77013800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    214
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
013900+D                                     extproc('MIME01_+                                                   590323   77013900
014000+D                                     MIMEParser_beginParse+                                              590323   77014000
014100+D                                     ')                                                                  590323   77014100
014200+D  i_hMime                            const  like(mime_hMime_t         )                                  590323   77014200
014300+ *                                                                                                        590323   77014300
014400+ *  Sets the content type of the MIME message.                                                            590323   77014400
014500+D MIMEParser_setContentType...                                                                            590323   77014500
014600+D                 PR                                                                                      590323   77014600
014700+D                                     extproc('MIME01_+                                                   590323   77014700
014800+D                                     MIMEParser_setContentType+                                          590323   77014800
014900+D                                     ')                                                                  590323   77014900
015000+D  i_hMime                            const  like(mime_hMime_t         )                                  590323   77015000
015100+D  i_contType                65535A   const  varying options(*nopass)                                     590324   77015100
015200+ *                                                                                                        590323   77015200
015300+ *  Sets the content transfer encoding of the MIME message.                                               590323   77015300
015400+D MIMEParser_setContentTransferEncoding...                                                                590323   77015400
015500+D                 PR                                                                                      590323   77015500
015600+D                                     extproc('MIME01_+                                                   590323   77015600
015700+D                                     MIMEParser_+                                                        590323   77015700
015800+D                                     setContentTransferEncoding+                                         590323   77015800
015900+D                                     ')                                                                  590323   77015900
016000+D  i_hMime                            const  like(mime_hMime_t         )                                  590323   77016000
016100+D  i_contEnc                 65535A   const  varying options(*nopass)                                     590323   77016100
016200+ *                                                                                                        590323   77016200
016300+ *  Retrieves the n-th key from the specified parameter string.                                           590323   77016300
016400+D MIMEParser_retrieveParameterKey...                                                                      590323   77016400
016500+D                 PR                         like(mime_string_t )                                         590323   77016500
016600+D                                     extproc('MIME01_+                                                   590323   77016600
016700+D                                     MIMEParser_retrieveParameterKey+                                    590323   77016700
016800+D                                     ')                                                                  590323   77016800
016900+D  i_pos                        10I 0 const                                                               590323   77016900
017000+D  i_string                  65535A   const  varying                                                      590323   77017000
017100+D                                            options(*varsize)                                            590323   77017100
017200+ *                                                                                                        590323   77017200
017300+ *  Retrieves the value of the specified parameter from a given                                           590323   77017300
017400+ *  parameter string.                                                                                     590323   77017400
017500+D MIMEParser_retrieveParameterValue...                                                                    590323   77017500
017600+D                 PR                         like(mime_string_t )                                         590323   77017600
017700+D                                     extproc('MIME01_+                                                   590323   77017700
017800+D                                     MIMEParser_retrieveParameterValue+                                  590323   77017800
017900+D                                     ')                                                                  590323   77017900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    215
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
018000+D  i_key                     65535A   const  varying                                                      590323   77018000
018100+D                                            options(*varsize)                                            590323   77018100
018200+D  i_string                  65535A   const  varying                                                      590323   77018200
018300+D                                            options(*varsize)                                            590323   77018300
018400+ *                                                                                                        590323   77018400
018500+ *  Parses given input data.                                                                              590323   77018500
018600+D MIMEParser_parse...                                                                                     590331   77018600
018700+D                 PR              N                                                                       590331   77018700
018800+D                                     extproc('MIME01_+                                                   590323   77018800
018900+D                                     MIMEParser_parse+                                                   590323   77018900
019000+D                                     ')                                                                  590323   77019000
019100+D  i_hMime                            const  like(mime_hMime_t         )                                  590331   77019100
019200+D  i_pBuffer                      *   const  options(*string)                                             590331   77019200
019300+D  i_size                       10I 0 const                                                               590331   77019300
019400+ *                                                                                                        590323   77019400
019500+ *  End parse. Tell parse there is no more data.                                                          590323   77019500
019600+D MIMEParser_endParse...                                                                                  590323   77019600
019700+D                 PR                                                                                      590323   77019700
019800+D                                     extproc('MIME01_+                                                   590323   77019800
019900+D                                     MIMEParser_endParse+                                                590323   77019900
020000+D                                     ')                                                                  590323   77020000
020100+D  i_hMime                            const  like(mime_hMime_t         )                                  590323   77020100
020200+ *                                                                                                        590323   77020200
020300+ *  Converts a given ASCII string to EBCDIC.                                                              590323   77020300
020400+D MIME_Ascii_toEbcdic...                                                                                  590324   77020400
020500+D                 PR                         like(mime_string_t )                                         590323   77020500
020600+D                                     extproc('MIME01_+                                                   590323   77020600
020700+D                                     MIME_Ascii_toEbcdic+                                                590324   77020700
020800+D                                     ')                                                                  590323   77020800
020900+D  i_string                       *   const  options(*string)                                             590323   77020900
021000+D  i_size                       10I 0 const  options(*nopass)                                             590323   77021000
021100+ *                                                                                                        590331   77021100
021200+ *  Converts a given EBCDIC string to ASCII.                                                              590331   77021200
021300+D MIME_Ebcdic_toAscii...                                                                                  590331   77021300
021400+D                 PR                         like(mime_string_t )                                         590331   77021400
021500+D                                     extproc('MIME01_+                                                   590331   77021500
021600+D                                     MIME_Ebcdic_toAscii+                                                590331   77021600
021700+D                                     ')                                                                  590331   77021700
021800+D  i_string                       *   const  options(*string)                                             590331   77021800
021900+D  i_size                       10I 0 const  options(*nopass)                                             590331   77021900
022000+ *                                                                                                        590323   77022000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    216
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
022100+ *  Converts a given EBCDIC string to lower case.                                                         590323   77022100
022200+D MIME_Ebcdic_toLower...                                                                                  590324   77022200
022300+D                 PR                         like(mime_string_t )                                         590323   77022300
022400+D                                     extproc('MIME01_+                                                   590323   77022400
022500+D                                     MIME_Ebcdic_toLower+                                                590324   77022500
022600+D                                     ')                                                                  590323   77022600
022700+D  i_string                           const  like(mime_string_t )                                         590323   77022700
022800+D                                            options(*varsize)                                            590323   77022800
022900+ *                                                                                                        590323   77022900
023000+ *  Returns a MIME parser NULL handle.                                                                    590323   77023000
023100+D MIMEParser_null...                                                                                      590323   77023100
023200+D                 PR                         like(mime_hMime_t )                                          590323   77023200
023300+D                                     extproc('MIME01_+                                                   590323   77023300
023400+D                                     MIMEParser_null+                                                    590323   77023400
023500+D                                     ')                                                                  590323   77023500
023600+ *                                                                                                        590323   77023600
023700+ *  Returns cTrue if a given MIME parser handle is NULL.                                                  590323   77023700
023800+D MIMEParser_isNull...                                                                                    590323   77023800
023900+D                 PR              N                                                                       590323   77023900
024000+D                                     extproc('MIME01_+                                                   590323   77024000
024100+D                                     MIMEParser_isNull+                                                  590323   77024100
024200+D                                     ')                                                                  590323   77024200
024300+D  i_hMime                            const  like(mime_hMime_t )                                          590323   77024300
024400+ *                                                                                                        590325   77024400
024500+ * -----------------------------------------------------------------------*                               590325   77024500
024600+ *  Html charset procedures                                                                               590325   77024600
024700+ * -----------------------------------------------------------------------*                               590325   77024700
024800+ *                                                                                                        590325   77024800
024900+ *  Converts a given HTML character set ID to an IBM CCSID.                                               590325   77024900
025000+D HTMLCharset_toCcsid...                                                                                  590325   77025000
025100+D                 PR            10I 0                                                                     590325   77025100
025200+D                                     extproc('MIME90_+                                                   590325   77025200
025300+D                                     HTMLCharset_toCcsid+                                                590325   77025300
025400+D                                     ')                                                                  590325   77025400
025500+D  i_charset                    64A   const  varying options(*varsize)                                    590325   77025500
025600+ *                                                                                                        590323   77025600
025700+ * -----------------------------------------------------------------------*                               590323   77025700
025800+ *  Miscellaneous procedures                                                                              590323   77025800
025900+ * -----------------------------------------------------------------------*                               590323   77025900
026000+ *                                                                                                        590323   77026000
026100+ *  RPG equivalent of the C Assert macro.                                                                 590323   77026100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    217
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
026200+D assert...                                                                                               590323   77026200
026300+D                 PR                                                                                      590323   77026300
026400+D                                     extproc('MIME99_+                                                   590323   77026400
026500+D                                     assert+                                                             590323   77026500
026600+D                                     ')                                                                  590323   77026600
026700+D  i_condition                    N   const                                                               590323   77026700
026800+D  i_msgText                   128A   const  options(*nopass)                                             590323   77026800
026900+ *                                                                                                        590323   77026900
027000+ *  Returns the procedure, module and program name                                                        590323   77027000
027100+ *  of the current procedure.                                                                             590323   77027100
027200+D this...                                                                                                 590323   77027200
027300+D                 PR           256A          varying                                                      590323   77027300
027400+D                                     extproc('MIME99_+                                                   590323   77027400
027500+D                                     this+                                                               590323   77027500
027600+D                                     ')                                                                  590323   77027600
027700+D  o_module                     10A          options(*nopass: *omit)                                      590323   77027700
027800+D  o_program                    10A          options(*nopass: *omit)                                      590323   77027800
027900+D  o_stmtID                     10A          options(*nopass: *omit)                                      590323   77027900
028000+ *                                                                                                        590323   77028000
028100+ *  Returns the procedure, module and program name                                                        590323   77028100
028200+ *  that called the current procedure.                                                                    590323   77028200
028300+D caller...                                                                                               590323   77028300
028400+D                 PR           256A          varying                                                      590323   77028400
028500+D                                     extproc('MIME99_+                                                   590323   77028500
028600+D                                     caller+                                                             590323   77028600
028700+D                                     ')                                                                  590323   77028700
028800+D  o_module                     10A          options(*nopass: *omit)                                      590323   77028800
028900+D  o_program                    10A          options(*nopass: *omit)                                      590323   77028900
029000+D  o_stmtID                     10A          options(*nopass: *omit)                                      590323   77029000
029100+D  i_offset                      3I 0 const  options(*nopass: *omit)                                      590323   77029100
029200+ *                                                                                                        590323   77029200
029300+ * -----------------------------------------------------------------------*                               590323   77029300
029400+ *  MIME DATASink callback procedures                                                                     590323   77029400
029500+ * -----------------------------------------------------------------------*                               590323   77029500
029600+ *                                                                                                        590323   77029600
029700+ *  Callback that supplies additional value for a header.                                                 590323   77029700
029800+ /if defined (datasink_procptr)                                                                           590323   77029800
            LINES EXCLUDED: 5
030400+ /else                                                                                                    590323   77030400
030500+D MIMEDataSink_addHeader...                                                                               590323   77030500
030600+D                 PR                                                                                      590323   77030600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    218
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
030700+D                                     extproc('+                                                          590323   77030700
030800+D                                     MIMEDataSink_addHeader+                                             590323   77030800
030900+D                                     ')                                                                  590323   77030900
031000+ /endif                                                                                                   590323   77031000
031100+D  i_pUserData                    *   const                                                               590323   77031100
031200+D  i_name                    65535A   const  varying options(*varsize)                                    590323   77031200
031300+D  i_value                   65535A   const  varying options(*varsize)                                    590323   77031300
031400+ *                                                                                                        590323   77031400
031500+ *  Callback that receives MIME body data.                                                                590323   77031500
031600+ /if defined (datasink_procptr)                                                                           590323   77031600
            LINES EXCLUDED: 5
032200+ /else                                                                                                    590323   77032200
032300+D MIMEDataSink_bodyData...                                                                                590323   77032300
032400+D                 PR                                                                                      590323   77032400
032500+D                                     extproc('+                                                          590323   77032500
032600+D                                     MIMEDataSink_bodyData+                                              590323   77032600
032700+D                                     ')                                                                  590323   77032700
032800+ /endif                                                                                                   590323   77032800
032900+D  i_pUserData                    *   const                                                               590323   77032900
033000+D  i_data                         *   const                                                               590323   77033000
033100+D  i_size                       10I 0 const                                                               590323   77033100
033200+ *                                                                                                        590323   77033200
033300+ *  Callback that indicates end of the MIMEBasicPart.                                                     590323   77033300
033400+ /if defined (datasink_procptr)                                                                           590323   77033400
            LINES EXCLUDED: 5
034000+ /else                                                                                                    590323   77034000
034100+D MIMEDataSink_endBasicPart...                                                                            590323   77034100
034200+D                 PR                                                                                      590323   77034200
034300+D                                     extproc('+                                                          590323   77034300
034400+D                                     MIMEDataSink_endBasicPart+                                          590323   77034400
034500+D                                     ')                                                                  590323   77034500
034600+ /endif                                                                                                   590323   77034600
034700+D  io_pUserData                   *                                                                       590323   77034700
034800+ *                                                                                                        590323   77034800
034900+ *  Callback that suppiles the boundary string.                                                           590323   77034900
035000+ /if defined (datasink_procptr)                                                                           590323   77035000
            LINES EXCLUDED: 5
035600+ /else                                                                                                    590323   77035600
035700+D MIMEDataSink_boundary...                                                                                590323   77035700
035800+D                 PR                                                                                      590323   77035800
035900+D                                     extproc('+                                                          590323   77035900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    219
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
036000+D                                     MIMEDataSink_boundary+                                              590323   77036000
036100+D                                     ')                                                                  590323   77036100
036200+ /endif                                                                                                   590323   77036200
036300+D  i_pUserData                    *   const                                                               590323   77036300
036400+D  i_boundary                65535A   const  varying options(*varsize)                                    590323   77036400
036500+ *                                                                                                        590323   77036500
036600+ *  Callback that supplies contentDescription.                                                            590323   77036600
036700+ /if defined (datasink_procptr)                                                                           590323   77036700
            LINES EXCLUDED: 5
037300+ /else                                                                                                    590323   77037300
037400+D MIMEDataSink_contentDescription...                                                                      590323   77037400
037500+D                 PR                                                                                      590323   77037500
037600+D                                     extproc('+                                                          590323   77037600
037700+D                                     MIMEDataSink_contentDescription+                                    590323   77037700
037800+D                                     ')                                                                  590323   77037800
037900+ /endif                                                                                                   590323   77037900
038000+D  i_pUserData                    *   const                                                               590323   77038000
038100+D  i_contDesc                65535A   const  varying options(*varsize)                                    590323   77038100
038200+ *                                                                                                        590323   77038200
038300+ *  Callback that supplies contentDisposition.                                                            590323   77038300
038400+ *     i_contDisp:   0 = attachment                                                                       590323   77038400
038500+ *                   1 = inline                                                                           590323   77038500
038600+ /if defined (datasink_procptr)                                                                           590323   77038600
            LINES EXCLUDED: 5
039200+ /else                                                                                                    590323   77039200
039300+D MIMEDataSink_contentDisposition...                                                                      590323   77039300
039400+D                 PR                                                                                      590323   77039400
039500+D                                     extproc('+                                                          590323   77039500
039600+D                                     MIMEDataSink_contentDisposition+                                    590323   77039600
039700+D                                     ')                                                                  590323   77039700
039800+ /endif                                                                                                   590323   77039800
039900+D  i_pUserData                    *   const                                                               590323   77039900
040000+D  i_contDisp                   10I 0 const                                                               590323   77040000
040100+D  i_contDispTxt             65535A   const  varying options(*varsize)                                    590323   77040100
040200+ *                                                                                                        590323   77040200
040300+ *  Callback that supplies contentDispParams.                                                             590323   77040300
040400+ /if defined (datasink_procptr)                                                                           590323   77040400
            LINES EXCLUDED: 5
041000+ /else                                                                                                    590323   77041000
041100+D MIMEDataSink_contentDispParams...                                                                       590323   77041100
041200+D                 PR                                                                                      590323   77041200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    220
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
041300+D                                     extproc('+                                                          590323   77041300
041400+D                                     MIMEDataSink_contentDispParams+                                     590323   77041400
041500+D                                     ')                                                                  590323   77041500
041600+ /endif                                                                                                   590323   77041600
041700+D  i_pUserData                    *   const                                                               590323   77041700
041800+D  i_contDispParams...                                                                                    590323   77041800
041900+D                            65535A   const  varying options(*varsize)                                    590323   77041900
042000+ *                                                                                                        590323   77042000
042100+ *  Callback that supplies ContentEncoding.                                                               590323   77042100
042200+ *     i_contEnc:    0 = base64                'base64'                                                   590323   77042200
042300+ *                   1 = quoted-printable      'quoted-printable'                                         590323   77042300
042400+ *                   2 = binary                'binary'                                                   590323   77042400
042500+ *                   3 = 7bit                  '7bit'                                                     590323   77042500
042600+ *                   4 = 8bit                  '8bit'                                                     590323   77042600
042700+ /if defined (datasink_procptr)                                                                           590323   77042700
            LINES EXCLUDED: 5
043300+ /else                                                                                                    590323   77043300
043400+D MIMEDataSink_contentEncoding...                                                                         590323   77043400
043500+D                 PR                                                                                      590323   77043500
043600+D                                     extproc('+                                                          590323   77043600
043700+D                                     MIMEDataSink_contentEncoding+                                       590323   77043700
043800+D                                     ')                                                                  590323   77043800
043900+ /endif                                                                                                   590323   77043900
044000+D  i_pUserData                    *   const                                                               590323   77044000
044100+D  i_contEnc                    10I 0 const                                                               590323   77044100
044200+D  i_contEncTxt              65535A   const  varying options(*varsize)                                    590323   77044200
044300+ *                                                                                                        590331   77044300
044400+ *  Callback that supplies contentID                                                                      590331   77044400
044500+ /if defined (datasink_procptr)                                                                           590331   77044500
            LINES EXCLUDED: 5
045100+ /else                                                                                                    590331   77045100
045200+D MIMEDataSink_contentID...                                                                               590331   77045200
045300+D                 PR                                                                                      590331   77045300
045400+D                                     extproc('+                                                          590331   77045400
045500+D                                     MIMEDataSink_contentID+                                             590331   77045500
045600+D                                     ')                                                                  590331   77045600
045700+ /endif                                                                                                   590331   77045700
045800+D  i_pUserData                    *   const                                                               590331   77045800
045900+D  i_contID                  65535A   const  varying options(*varsize)                                    590331   77045900
046000+ *                                                                                                        590323   77046000
046100+ *  Callback that supplies contentMD5.                                                                    590323   77046100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    221
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
046200+ /if defined (datasink_procptr)                                                                           590323   77046200
            LINES EXCLUDED: 5
046800+ /else                                                                                                    590323   77046800
046900+D MIMEDataSink_contentMD5...                                                                              590323   77046900
047000+D                 PR                                                                                      590323   77047000
047100+D                                     extproc('+                                                          590323   77047100
047200+D                                     MIMEDataSink_contentMD5+                                            590323   77047200
047300+D                                     ')                                                                  590323   77047300
047400+ /endif                                                                                                   590323   77047400
047500+D  i_pUserData                    *   const                                                               590323   77047500
047600+D  i_contMD5                 65535A   const  varying options(*varsize)                                    590323   77047600
047700+ *                                                                                                        590323   77047700
047800+ *  Callback that supplies contentSubType information.                                                    590323   77047800
047900+ /if defined (datasink_procptr)                                                                           590323   77047900
            LINES EXCLUDED: 5
048500+ /else                                                                                                    590323   77048500
048600+D MIMEDataSink_contentSubType...                                                                          590323   77048600
048700+D                 PR                                                                                      590323   77048700
048800+D                                     extproc('+                                                          590323   77048800
048900+D                                     MIMEDataSink_contentSubType+                                        590323   77048900
049000+D                                     ')                                                                  590323   77049000
049100+ /endif                                                                                                   590323   77049100
049200+D  i_pUserData                    *   const                                                               590323   77049200
049300+D  i_contSubType             65535A   const  varying options(*varsize)                                    590323   77049300
049400+ *                                                                                                        590323   77049400
049500+ *  Callback that supplies contentType information.                                                       590323   77049500
049600+ /if defined (datasink_procptr)                                                                           590323   77049600
            LINES EXCLUDED: 5
050200+ /else                                                                                                    590323   77050200
050300+D MIMEDataSink_contentType...                                                                             590323   77050300
050400+D                 PR                                                                                      590323   77050400
050500+D                                     extproc('+                                                          590323   77050500
050600+D                                     MIMEDataSink_contentType+                                           590323   77050600
050700+D                                     ')                                                                  590323   77050700
050800+ /endif                                                                                                   590323   77050800
050900+D  i_pUserData                    *   const                                                               590323   77050900
051000+D  i_contType                   10I 0 const                                                               590324   77051000
051100+D  i_contTypeTxt             65535A   const  varying options(*varsize)                                    590324   77051100
051200+ *                                                                                                        590323   77051200
051300+ *  Callback that supplies contentTypeParams information.                                                 590323   77051300
051400+ /if defined (datasink_procptr)                                                                           590323   77051400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    222
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
            LINES EXCLUDED: 5
052000+ /else                                                                                                    590323   77052000
052100+D MIMEDataSink_contentTypeParams...                                                                       590323   77052100
052200+D                 PR                                                                                      590323   77052200
052300+D                                     extproc('+                                                          590323   77052300
052400+D                                     MIMEDataSink_contentTypeParams+                                     590323   77052400
052500+D                                     ')                                                                  590323   77052500
052600+ /endif                                                                                                   590323   77052600
052700+D  i_pUserData                    *   const                                                               590323   77052700
052800+D  i_contTypeParams...                                                                                    590323   77052800
052900+D                            65535A   const  varying options(*varsize)                                    590323   77052900
053000+ *                                                                                                        590323   77053000
053100+ *  Callback that indicates end of MIMEMessage.                                                           590323   77053100
053200+ /if defined (datasink_procptr)                                                                           590323   77053200
            LINES EXCLUDED: 5
053800+ /else                                                                                                    590323   77053800
053900+D MIMEDataSink_endMessage...                                                                              590323   77053900
054000+D                 PR                                                                                      590323   77054000
054100+D                                     extproc('+                                                          590323   77054100
054200+D                                     MIMEDataSink_endMessage+                                            590323   77054200
054300+D                                     ')                                                                  590323   77054300
054400+ /endif                                                                                                   590323   77054400
054500+D  io_pUserData                   *                                                                       590323   77054500
054600+ *                                                                                                        590323   77054600
054700+ *  Callback to indicate end of headers on the top level message.                                         590323   77054700
054800+ /if defined (datasink_procptr)                                                                           590323   77054800
            LINES EXCLUDED: 5
055400+ /else                                                                                                    590323   77055400
055500+D MIMEDataSink_endMessageHeader...                                                                        590323   77055500
055600+D                 PR                                                                                      590323   77055600
055700+D                                     extproc('+                                                          590323   77055700
055800+D                                     MIMEDataSink_endMessageHeader+                                      590323   77055800
055900+D                                     ')                                                                  590323   77055900
056000+ /endif                                                                                                   590323   77056000
056100+D  i_pUserData                    *   const                                                               590323   77056100
056200+ *                                                                                                        590323   77056200
056300+ *  Callback that indicates end of the MessagePart.                                                       590323   77056300
056400+ /if defined (datasink_procptr)                                                                           590323   77056400
            LINES EXCLUDED: 5
057000+ /else                                                                                                    590323   77057000
057100+D MIMEDataSink_endMessagePart...                                                                          590323   77057100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    223
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
057200+D                 PR                                                                                      590323   77057200
057300+D                                     extproc('+                                                          590323   77057300
057400+D                                     MIMEDataSink_endMessagePart+                                        590323   77057400
057500+D                                     ')                                                                  590323   77057500
057600+ /endif                                                                                                   590323   77057600
057700+D  io_pUserData                   *                                                                       590323   77057700
057800+ *                                                                                                        590323   77057800
057900+ *  Callback that indicates end of the MultiPart.                                                         590323   77057900
058000+ /if defined (datasink_procptr)                                                                           590323   77058000
            LINES EXCLUDED: 5
058600+ /else                                                                                                    590323   77058600
058700+D MIMEDataSink_endMultiPart...                                                                            590323   77058700
058800+D                 PR                                                                                      590323   77058800
058900+D                                     extproc('+                                                          590323   77058900
059000+D                                     MIMEDataSink_endMultiPart+                                          590323   77059000
059100+D                                     ')                                                                  590323   77059100
059200+ /endif                                                                                                   590323   77059200
059300+D  io_pUserData                   *                                                                       590323   77059300
059400+ *                                                                                                        590323   77059400
059500+ *  Callback that supplies header information.                                                            590323   77059500
059600+ /if defined (datasink_procptr)                                                                           590323   77059600
            LINES EXCLUDED: 5
060200+ /else                                                                                                    590323   77060200
060300+D MIMEDataSink_header...                                                                                  590323   77060300
060400+D                 PR                                                                                      590323   77060400
060500+D                                     extproc('+                                                          590323   77060500
060600+D                                     MIMEDataSink_header+                                                590323   77060600
060700+D                                     ')                                                                  590323   77060700
060800+ /endif                                                                                                   590323   77060800
060900+D  i_pUserData                    *   const                                                               590323   77060900
061000+D  i_name                    65535A   const  varying options(*varsize)                                    590323   77061000
061100+D  i_value                   65535A   const  varying options(*varsize)                                    590323   77061100
061200+ *                                                                                                        590323   77061200
061300+ *  Callback that indicates start of a new MIMEBasicPart.                                                 590323   77061300
061400+ /if defined (datasink_procptr)                                                                           590323   77061400
            LINES EXCLUDED: 5
062000+ /else                                                                                                    590323   77062000
062100+D MIMEDataSink_startBasicPart...                                                                          590323   77062100
062200+D                 PR              *                                                                       590323   77062200
062300+D                                     extproc('+                                                          590323   77062300
062400+D                                     MIMEDataSink_startBasicPart+                                        590323   77062400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    224
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
062500+D                                     ')                                                                  590323   77062500
062600+ /endif                                                                                                   590323   77062600
062700+ *                                                                                                        590323   77062700
062800+ *  Callback that indicates start of a new MIMEMultiPart.                                                 590323   77062800
062900+ /if defined (datasink_procptr)                                                                           590323   77062900
            LINES EXCLUDED: 5
063500+ /else                                                                                                    590323   77063500
063600+D MIMEDataSink_startMultiPart...                                                                          590323   77063600
063700+D                 PR              *                                                                       590323   77063700
063800+D                                     extproc('+                                                          590323   77063800
063900+D                                     MIMEDataSink_startMultiPart+                                        590323   77063900
064000+D                                     ')                                                                  590323   77064000
064100+ /endif                                                                                                   590323   77064100
064200+ *                                                                                                        590323   77064200
064300+ *  Callback that indicates start of a new MIMEMessage.                                                   590323   77064300
064400+ /if defined (datasink_procptr)                                                                           590323   77064400
            LINES EXCLUDED: 5
065000+ /else                                                                                                    590323   77065000
065100+D MIMEDataSink_startMessage...                                                                            590323   77065100
065200+D                 PR              *                                                                       590323   77065200
065300+D                                     extproc('+                                                          590323   77065300
065400+D                                     MIMEDataSink_startMessage+                                          590323   77065400
065500+D                                     ')                                                                  590323   77065500
065600+ /endif                                                                                                   590323   77065600
065700+ *                                                                                                        590323   77065700
065800+ *  Callback that indicates start of a new MIMEMessagePart.                                               590323   77065800
065900+ /if defined (datasink_procptr)                                                                           590323   77065900
            LINES EXCLUDED: 5
066500+ /else                                                                                                    590323   77066500
066600+D MIMEDataSink_startMessagePart...                                                                        590323   77066600
066700+D                 PR              *                                                                       590323   77066700
066800+D                                     extproc('+                                                          590323   77066800
066900+D                                     MIMEDataSink_startMessagePart+                                      590323   77066900
067000+D                                     ')                                                                  590323   77067000
067100+ /endif                                                                                                   590323   77067100
067200+ *                                                                                                        590323   77067200
067300+ *  Returns a NULL MIME data sink.                                                                        590323   77067300
067400+D MIMEDataSink_null...                                                                                    590323   77067400
067500+D                 PR                         likeds(mime_dataSink_t)                                      590323   77067500
067600+D                                     extproc('MIME02_+                                                   590323   77067600
067700+D                                     MIMEDataSink_null+                                                  590323   77067700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    225
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
067800+D                                     ')                                                                  590323   77067800
067900+ *                                                                                                        590323   77067900
068000+ *  Returns cTrue if a given MIME data sink is NULL.                                                      590323   77068000
068100+D MIMEDataSink_isNull...                                                                                  590323   77068100
068200+D                 PR              N                                                                       590323   77068200
068300+D                                     extproc('MIME02_+                                                   590323   77068300
068400+D                                     MIMEDataSink_isNull+                                                590323   77068400
068500+D                                     ')                                                                  590323   77068500
068600+D  i_dataSink                         const  likeds(mime_dataSink_t)                                      590323   77068600
068700+ *                                                                                                        571107   77068700
068800+ /ENDIF                                                                                                   571108   77068800
000164  /COPY QMIME,HTTPMIME_H                       Tools/400 MIME Parser to HTTP API adapter              CPY  000000     000164
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  HTTPMIME_H                                                   *                    78
        * External name  . . . . . . :  WSDL2RPG/QMIME(HTTPMIME_H)                                   *                    78
        * Last change  . . . . . . . :  19.04.15  17:02:09                                           *                    78
        * Text 'description' . . . . :  HTTP MIME DataSink: public header member                     *                    78
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(HTTPMIME_H)                                                                              140404   78000100
000200+ /DEFINE HTTPMIME_H                                                                                       140404   78000200
000300+ *                                                                                                        140404   78000300
000400+ /IF NOT DEFINED(mime_string_t)                                                                           140404   78000400
            LINES EXCLUDED: 3
000800+ /ENDIF                                                                                                   140404   78000800
000900+ *                                                                                                        140404   78000900
001000+ * -----------------------------------------------------------------------*                               140404   78001000
001100+ *   HTTP MIME DataSink: public header member                                                             140404   78001100
001200+ *                                                                                                        140404   78001200
001300+ *   This header member defines the public data types and procedures                                      140404   78001300
001400+ *   that can be used by applications to process the data (MIME parts)                                    140404   78001400
001500+ *   received by the http_url_post_mime() procedure.                                                      140404   78001500
001600+ * -----------------------------------------------------------------------*                               140404   78001600
001700+ *                                                                                                        140404   78001700
001800+ *  Predefined header keys                                                                                140404   78001800
001900+D http_mime_content_type...                                                                               140404   78001900
002000+D                 C                   'content-type'                                                      140404   78002000
002100+D http_mime_content_type_name...                                                                          140404   78002100
002200+D                 C                   'content-type.name'                                                 140404   78002200
002300+D http_mime_content_type_charset...                                                                       140404   78002300
002400+D                 C                   'content-type.charset'                                              140404   78002400
002500+D http_mime_content_type_sub_type...                                                                      140404   78002500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    226
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002600+D                 C                   'content-type.subtype'                                              140404   78002600
002700+ *                                                                                                        140404   78002700
002800+D http_mime_content_transfer_encoding...                                                                  140404   78002800
002900+D                 C                   'content-transfer-encoding'                                         140404   78002900
003000+ *                                                                                                        140404   78003000
003100+D http_mime_content_disposition...                                                                        140404   78003100
003200+D                 C                   'content-disposition'                                               140404   78003200
003300+D http_mime_content_disposition_filename...                                                               140404   78003300
003400+D                 C                   'content-disposition.filename'                                      140404   78003400
003500+ *                                                                                                        140404   78003500
003600+D http_mime_content_id...                                                                                 140404   78003600
003700+D                 C                   'content-id'                                                        140404   78003700
003800+ *                                                                                                        140404   78003800
003900+ *  MIME part types                                                                                       140404   78003900
004000+D cMIME_MULTIPART...                                                                                      140404   78004000
004100+D                 C                   1                                                                   140404   78004100
004200+D cMIME_BASICPART...                                                                                      140404   78004200
004300+D                 C                   2                                                                   140404   78004300
004400+D cMIME_MESSAGEPART...                                                                                    140404   78004400
004500+D                 C                   2                                                                   140404   78004500
004600+ *                                                                                                        140404   78004600
004700+ *  MIME BasicPart content types                                                                          140404   78004700
004800+D cMIME_CONTENT_TYPE_TEXT...                                                                              140404   78004800
004900+D                 C                   0                                                                   140404   78004900
005000+D cMIME_CONTENT_TYPE_AUDIO...                                                                             140404   78005000
005100+D                 C                   1                                                                   140404   78005100
005200+D cMIME_CONTENT_TYPE_IMAGE...                                                                             140404   78005200
005300+D                 C                   2                                                                   140404   78005300
005400+D cMIME_CONTENT_TYPE_VIDEO...                                                                             140404   78005400
005500+D                 C                   3                                                                   140404   78005500
005600+D cMIME_CONTENT_TYPE_APPLICATION...                                                                       140404   78005600
005700+D                 C                   4                                                                   140404   78005700
005800+ *                                                                                                        140404   78005800
005900+ *  Other content types                                                                                   140404   78005900
006000+D cMIME_CONTENT_TYPE_MULTIPART...                                                                         140404   78006000
006100+D                 C                   11                                                                  140404   78006100
006200+D cMIME_CONTENT_TYPE_MESSAGEPART...                                                                       140404   78006200
006300+D                 C                   12                                                                  140404   78006300
006400+ *                                                                                                        140404   78006400
006500+ *  Content dispositions                                                                                  140404   78006500
006600+D cMIME_DISPOSITION_ATTACHMENT...                                                                         140404   78006600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    227
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
006700+D                 C                   0                                                                   140404   78006700
006800+D cMIME_DISPOSITION_INLINE...                                                                             140404   78006800
006900+D                 C                   1                                                                   140404   78006900
007000+ *                                                                                                        140404   78007000
007100+ *  Content transfer encodings                                                                            140404   78007100
007200+D cMIME_ENCODING_BASE64...                                                                                140404   78007200
007300+D                 C                   0                                                                   140404   78007300
007400+D cMIME_ENCODING_QP...                                                                                    140404   78007400
007500+D                 C                   1                                                                   140404   78007500
007600+D cMIME_ENCODING_BINARY...                                                                                140404   78007600
007700+D                 C                   2                                                                   140404   78007700
007800+D cMIME_ENCODING_E7BIT...                                                                                 140404   78007800
007900+D                 C                   3                                                                   140404   78007900
008000+D cMIME_ENCODING_E8BIT...                                                                                 140404   78008000
008100+D                 C                   4                                                                   140404   78008100
008200+ *                                                                                                        140404   78008200
008300+ *  Initializes the HTTP MIME adapter.                                                                    140404   78008300
008400+ *                                                                                                        140404   78008400
008500+ *  Context:            Must be called before any other call                                              140404   78008500
008600+ *                      this module.                                                                      140404   78008600
008700+ *                                                                                                        140404   78008700
008800+ *  Parameters:                                                                                           140404   78008800
008900+ *    i_pUserData       User data scoped to MIME message                                                  140404   78008900
009000+ *                      (global scope).                                                                   140404   78009000
009100+ *    pStartPart        Procedure pointer of callback procedure                                           140404   78009100
009200+ *                      that is called whenever a new MIME part is started.                               140404   78009200
009300+ *    pBodyData         Procedure pointer of callback procedure                                           140404   78009300
009400+ *                      that is called whenever body data has to be received.                             140404   78009400
009500+ *    pEndPart          Procedure pointer of callback procedure                                           140404   78009500
009600+ *                      that is called at the end of a MIME part.                                         140404   78009600
009700+ *                                                                                                        140404   78009700
009800+ *  Returns value:                                                                                        140404   78009800
009900+ *    void                                                                                                140404   78009900
010000+D http_mime_DataSink_initialize...                                                                        140404   78010000
010100+D                 PR                                                                                      140404   78010100
010200+D                                     extproc('HTTPMIME01_+                                               140404   78010200
010300+D                                     http_mime_DataSink_initialize+                                      140404   78010300
010400+D                                     ')                                                                  140404   78010400
010500+D  i_hMime                            const  like(mime_hMime_t )                                          140404   78010500
010600+D  i_pUserData                    *   const                                                               140404   78010600
010700+D  i_pStartPart                   *   const  procptr                                                      140404   78010700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    228
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
010800+D  i_pBodyData                    *   const  procptr                                                      140404   78010800
010900+D  i_pEndPart                     *   const  procptr                                                      140404   78010900
011000+ *                                                                                                        140404   78011000
011100+ *  Returns the MIME part type of a given MIME part.                                                      140404   78011100
011200+ *                                                                                                        140404   78011200
011300+ *  Context:            StartPart / BodyData / EndPart                                                    140404   78011300
011400+ *                                                                                                        140404   78011400
011500+ *  Parameters:                                                                                           140404   78011500
011600+ *    i_pMimePart       MIME part that owns the header map                                                140404   78011600
011700+ *                      that is used to return the requested key.                                         140404   78011700
011800+ *                                                                                                        140404   78011800
011900+ *  Returns value:                                                                                        140404   78011900
012000+ *    partType          Type of the MIME part: cMIME_BASICPART                                            140404   78012000
012100+ *                                             cMIME_MULTIPART                                            140404   78012100
012200+ *                                             cMIME_MESSAGEPART                                          140404   78012200
012300+D http_mime_Part_getType...                                                                               140404   78012300
012400+D                 PR            10I 0                                                                     140404   78012400
012500+D                                     extproc('HTTPMIME01_+                                               140404   78012500
012600+D                                     http_mime_Part_getType+                                             140404   78012600
012700+D                                     ')                                                                  140404   78012700
012800+D  i_pMimePart                    *   const                                                               140404   78012800
012900+ *                                                                                                        140404   78012900
013000+ *  Returns the key of the MIME header that is at the specified                                           140404   78013000
013100+ *  position in the header map of a given MIME part.                                                      140404   78013100
013200+ *  This procedure can be used to iterate over all header keys of                                         140404   78013200
013300+ *  a given MIME part.                                                                                    140404   78013300
013400+ *                                                                                                        140404   78013400
013500+ *  Context:            StartPart / BodyData / EndPart                                                    140404   78013500
013600+ *                                                                                                        140404   78013600
013700+ *  Parameters:                                                                                           140404   78013700
013800+ *    i_pMimePart       MIME part that owns the header map                                                140404   78013800
013900+ *                      that is used to return the requested key.                                         140404   78013900
014000+ *    i_index           Position of the key in the header map.                                            140404   78014000
014100+ *                                                                                                        140404   78014100
014200+ *  Returns value:                                                                                        140404   78014200
014300+ *    key               Value of the key on success, else *BLANKS.                                        140404   78014300
014400+D http_mime_Part_getHeaderKey...                                                                          140404   78014400
014500+D                 PR                         like(mime_string_t )                                         140404   78014500
014600+D                                     extproc('HTTPMIME01_+                                               140404   78014600
014700+D                                     http_mime_Part_getHeaderKey+                                        140404   78014700
014800+D                                     ')                                                                  140404   78014800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    229
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
014900+D  i_pMimePart                    *   const                                                               140404   78014900
015000+D  i_index                      10I 0 const                                                               140404   78015000
015100+ *                                                                                                        140404   78015100
015200+ *  Returns the value that is assigned to the specified key of                                            140404   78015200
015300+ *  the MIME header map of a given MIME part.                                                             140404   78015300
015400+ *                                                                                                        140404   78015400
015500+ *  Context:            StartPart / BodyData / EndPart                                                    140404   78015500
015600+ *                                                                                                        140404   78015600
015700+ *  Parameters:                                                                                           140404   78015700
015800+ *    i_pMimePart       MIME part that owns the header map                                                140404   78015800
015900+ *                      that is used to return the requested key.                                         140404   78015900
016000+ *    i_key             Key in the header map. HTTPMIME_H contains                                        140404   78016000
016100+ *                      predefined header keys.                                                           140404   78016100
016200+ *                                                                                                        140404   78016200
016300+ *  Returns value:                                                                                        140404   78016300
016400+ *    value             Value assigned to the specified key on success,                                   140404   78016400
016500+ *                      else *BLNAKS.                                                                     140404   78016500
016600+D http_mime_Part_getHeaderValue...                                                                        140404   78016600
016700+D                 PR                         like(mime_string_t )                                         140404   78016700
016800+D                                     extproc('HTTPMIME01_+                                               140404   78016800
016900+D                                     http_mime_Part_getHeaderValue+                                      140404   78016900
017000+D                                     ')                                                                  140404   78017000
017100+D  i_pMimePart                    *   const                                                               140404   78017100
017200+D  i_key                     65535A   const  varying                                                      140404   78017200
017300+D                                            options(*varsize)                                            140404   78017300
017400+D  i_noQuotes                     N   const  options(*nopass)                                             140404   78017400
017500+ *                                                                                                        140404   78017500
017600+ *  Returns the boundary of a given MIME part.                                                            140404   78017600
017700+ *                                                                                                        140404   78017700
017800+ *  Context:            StartPart / BodyData / EndPart                                                    140404   78017800
017900+ *                                                                                                        140404   78017900
018000+ *  Parameters:                                                                                           140404   78018000
018100+ *    i_pMimePart       MIME part whose boundary value is returned.                                       140404   78018100
018200+ *                                                                                                        140404   78018200
018300+ *  Returns value:                                                                                        140404   78018300
018400+ *    boundary          Value of the boundary on success, else *BLANKS.                                   140404   78018400
018500+D http_mime_Part_getBoundary...                                                                           140404   78018500
018600+D                 PR                         like(mime_string_t )                                         140404   78018600
018700+D                                     extproc('HTTPMIME01_+                                               140404   78018700
018800+D                                     http_mime_Part_getBoundary+                                         140404   78018800
018900+D                                     ')                                                                  140404   78018900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    230
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
019000+D  i_pMimePart                    *   const                                                               140404   78019000
019100+ *                                                                                                        140404   78019100
019200+ *  Returns the content type of a given MIME part as a numeric value.                                     140404   78019200
019300+ *  Please use http_mime_Part_getHeaderValue(pPart: http_mime_content_type)                               140404   78019300
019400+ *  to retrieve the content type as string.                                                               140404   78019400
019500+ *                                                                                                        140404   78019500
019600+ *  Context:            StartPart / BodyData / EndPart                                                    140404   78019600
019700+ *                                                                                                        140404   78019700
019800+ *  Parameters:                                                                                           140404   78019800
019900+ *    i_pMimePart       MIME part whose content type is returned.                                         140404   78019900
020000+ *                                                                                                        140404   78020000
020100+ *  Returns value:                                                                                        140404   78020100
020200+ *    contentType       Content type of the specified MIME part on                                        140404   78020200
020300+ *                      success, else *BLANKS. The possible return value                                  140404   78020300
020400+ *                      are:   cMIME_CONTENT_TYPE_TEXT                                                    140404   78020400
020500+ *                             cMIME_CONTENT_TYPE_AUDIO                                                   140404   78020500
020600+ *                             cMIME_CONTENT_TYPE_IMAGE                                                   140404   78020600
020700+ *                             cMIME_CONTENT_TYPE_VIDEO                                                   140404   78020700
020800+ *                             cMIME_CONTENT_TYPE_APPLICATION                                             140404   78020800
020900+D http_mime_Part_getContentType...                                                                        140404   78020900
021000+D                 PR            10I 0                                                                     140404   78021000
021100+D                                     extproc('HTTPMIME01_+                                               140404   78021100
021200+D                                     http_mime_Part_getContentType+                                      140404   78021200
021300+D                                     ')                                                                  140404   78021300
021400+D  i_pMimePart                    *   const                                                               140404   78021400
021500+ *                                                                                                        140404   78021500
021600+ *  Returns the content sub type of a given MIME part.                                                    140404   78021600
021700+ *                                                                                                        140404   78021700
021800+ *  Context:            StartPart / BodyData / EndPart                                                    140404   78021800
021900+ *                                                                                                        140404   78021900
022000+ *  Parameters:                                                                                           140404   78022000
022100+ *    i_pMimePart       MIME part whose content sub type is returned.                                     140404   78022100
022200+ *                                                                                                        140404   78022200
022300+ *  Returns value:                                                                                        140404   78022300
022400+ *    contentSubtype    Content sub type of the specified MIME part on                                    140404   78022400
022500+ *                      success, else *BLANKS.                                                            140404   78022500
022600+D http_mime_Part_getContentSubType...                                                                     140404   78022600
022700+D                 PR                         like(mime_string_t )                                         140404   78022700
022800+D                                     extproc('HTTPMIME01_+                                               140404   78022800
022900+D                                     http_mime_Part_getContentSubType+                                   140404   78022900
023000+D                                     ')                                                                  140404   78023000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    231
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
023100+D  i_pMimePart                    *   const                                                               140404   78023100
023200+ *                                                                                                        140404   78023200
023300+ *  Returns the content transfer encoding of a given MIME part.                                           140404   78023300
023400+ *                                                                                                        140404   78023400
023500+ *  Context:            StartPart                                                                         140404   78023500
023600+ *                                                                                                        140404   78023600
023700+ *  Parameters:                                                                                           140404   78023700
023800+ *    i_pMimePart       MIME part whose content transfer encoding is                                      140404   78023800
023900+ *                      returned.                                                                         140404   78023900
024000+ *                                                                                                        140404   78024000
024100+ *  Returns value:                                                                                        140404   78024100
024200+ *    contentEncoding   Content transfer encoding of the specified                                        140406   78024200
024300+ *                      MIME part on success, else -1.                                                    140406   78024300
024400+D http_mime_Part_getContentTransferEncoding...                                                            140404   78024400
024500+D                 PR            10I 0                                                                     140404   78024500
024600+D                                     extproc('HTTPMIME01_+                                               140404   78024600
024700+D                                     http_mime_Part_+                                                    140404   78024700
024800+D                                     getContentTransferEncoding+                                         140404   78024800
024900+D                                     ')                                                                  140404   78024900
025000+D  i_pMimePart                    *   const                                                               140404   78025000
025100+ *                                                                                                        140404   78025100
025200+ *  Returns the content ID of a given part.                                                               140404   78025200
025300+ *                                                                                                        140404   78025300
025400+ *  Context:            BodyData                                                                          140404   78025400
025500+ *                                                                                                        140404   78025500
025600+ *  Parameters:                                                                                           140404   78025600
025700+ *    i_pMimePart       MIME part whose content ID is returned.                                           140404   78025700
025800+ *                                                                                                        140404   78025800
025900+ *  Returns value:                                                                                        140404   78025900
026000+ *    contentID         Content ID the specified MIME part on                                             140404   78026000
026100+ *                      success, else -1.                                                                 140404   78026100
026200+D http_mime_Part_getContentID...                                                                          140404   78026200
026300+D                 PR                         like(mime_string_t )                                         140404   78026300
026400+D                                     extproc('HTTPMIME01_+                                               140404   78026400
026500+D                                     http_mime_Part_+                                                    140404   78026500
026600+D                                     getContentID+                                                       140404   78026600
026700+D                                     ')                                                                  140404   78026700
026800+D  i_pMimePart                    *   const                                                               140404   78026800
026900+ *                                                                                                        140404   78026900
027000+ *  Returns the CCSID of the body data.                                                                   140404   78027000
027100+ *                                                                                                        140404   78027100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    232
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
027200+ *  Context:            StartPart / BodyData / EndPart                                                    140404   78027200
027300+ *                                                                                                        140404   78027300
027400+ *  Parameters:                                                                                           140404   78027400
027500+ *    i_pMimePart       MIME part whose CCSID is returned.                                                140404   78027500
027600+ *                                                                                                        140404   78027600
027700+ *  Returns value:                                                                                        140404   78027700
027800+ *    ccsid             The CCSID that matches the HTML character                                         140404   78027800
027900+ *                      set specified at the "charset" attribute of                                       140404   78027900
028000+ *                      the content type parameters.                                                      140404   78028000
028100+D http_mime_Part_getCcsid...                                                                              140404   78028100
028200+D                 PR            10I 0                                                                     140404   78028200
028300+D                                     extproc('HTTPMIME01_+                                               140404   78028300
028400+D                                     http_mime_Part_getCcsid+                                            140404   78028400
028500+D                                     ')                                                                  140404   78028500
028600+D  i_pMimePart                    *   const                                                               140404   78028600
028700+ *                                                                                                        140404   78028700
028800+ *  Returns the external file name of a given MIME part.                                                  140404   78028800
028900+ *                                                                                                        140404   78028900
029000+ *  Context:            StartPart / BodyData / EndPart                                                    140404   78029000
029100+ *                                                                                                        140404   78029100
029200+ *  Parameters:                                                                                           140404   78029200
029300+ *    i_pMimePart       MIME part whose external file name is returned.                                   140404   78029300
029400+ *                                                                                                        140404   78029400
029500+ *  Returns value:                                                                                        140404   78029500
029600+ *    fileName          External file name of the specified MIME part                                     140404   78029600
029700+ *                      on success, else *BLANKS.                                                         140404   78029700
029800+D http_mime_Part_getFileName...                                                                           140404   78029800
029900+D                 PR                         like(mime_string_t )                                         140404   78029900
030000+D                                     extproc('HTTPMIME01_+                                               140404   78030000
030100+D                                     http_mime_Part_getFileName+                                         140404   78030100
030200+D                                     ')                                                                  140404   78030200
030300+D  i_pMimePart                    *   const                                                               140404   78030300
030400+ *                                                                                                        140404   78030400
030500+ *  Returns the user data of a given MIME part.                                                           140404   78030500
030600+ *                                                                                                        140404   78030600
030700+ *  Context:            BodyData / EndPart                                                                140404   78030700
030800+ *                                                                                                        140404   78030800
030900+ *  Parameters:                                                                                           140404   78030900
031000+ *    i_pMimePart       MIME part whose whose data is returned.                                           140404   78031000
031100+ *                                                                                                        140404   78031100
031200+ *  Returns value:                                                                                        140404   78031200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    233
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
031300+ *    userData          User data of the specified MIME part on success,                                  140404   78031300
031400+ *                      else *NULL.                                                                       140404   78031400
031500+D http_mime_Part_getUserData...                                                                           140404   78031500
031600+D                 PR              *                                                                       140404   78031600
031700+D                                     extproc('HTTPMIME01_+                                               140404   78031700
031800+D                                     http_mime_Part_getUserData+                                         140404   78031800
031900+D                                     ')                                                                  140404   78031900
032000+D  i_pMimePart                    *   const                                                               140404   78032000
032100+ *                                                                                                        140404   78032100
032200+ *  Sets the user data of a given MIME part.                                                              140404   78032200
032300+ *                                                                                                        140404   78032300
032400+ *  Context:            StartPart                                                                         140404   78032400
032500+ *                                                                                                        140404   78032500
032600+ *  Parameters:                                                                                           140404   78032600
032700+ *    i_pMimePart       MIME part whose whose data is returned.                                           140404   78032700
032800+ *    i_pUserData       User data of the specified MIME part.                                             140404   78032800
032900+ *                                                                                                        140404   78032900
033000+ *  Returns value:                                                                                        140404   78033000
033100+ *    void                                                                                                140404   78033100
033200+D http_mime_Part_setUserData...                                                                           140404   78033200
033300+D                 PR                                                                                      140404   78033300
033400+D                                     extproc('HTTPMIME01_+                                               140404   78033400
033500+D                                     http_mime_Part_setUserData+                                         140404   78033500
033600+D                                     ')                                                                  140404   78033600
033700+D  i_pMimePart                    *   const                                                               140404   78033700
033800+D  i_pUserData                    *   const                                                               140404   78033800
033900+ *                                                                                                        140404   78033900
034000+ *  Converts the body data of a given part to EBCDIC.                                                     140404   78034000
034100+ *                                                                                                        140404   78034100
034200+ *  Context:            BodyData                                                                          140404   78034200
034300+ *                                                                                                        140404   78034300
034400+ *  Parameters:                                                                                           140404   78034400
034500+ *    i_pMimePart       MIME part whose whose data is returned.                                           140404   78034500
034600+ *    i_pData           Pointer to the data that is translated to EBCDIC.                                 140404   78034600
034700+ *    i_length          Length of input data.                                                             140404   78034700
034800+ *    o_pData           Pointer to the tranlated output data.                                             140404   78034800
034900+ *    o_length          Length of output data.                                                            140404   78034900
035000+ *                                                                                                        140404   78035000
035100+ *  Returns value:                                                                                        140404   78035100
035200+ *    length            Length of output data on success, else -1.                                        140404   78035200
035300+D http_mime_Part_toEbcdic...                                                                              140404   78035300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    234
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
035400+D                 PR            10I 0                                                                     140404   78035400
035500+D                                     extproc('HTTPMIME01_+                                               140404   78035500
035600+D                                     http_mime_Part_toEbcdic+                                            140404   78035600
035700+D                                     ')                                                                  140404   78035700
035800+D  i_pMimePart                    *   const                                                               140404   78035800
035900+D  i_pData                        *   const                                                               140404   78035900
036000+D  i_length                     10I 0 const                                                               140404   78036000
036100+D  o_pData                        *                                                                       140404   78036100
036200+D  o_length                     10I 0                                                                     140404   78036200
036300+ *                                                                                                        140404   78036300
036400+ * -----------------------------------------------------------------------*                               140404   78036400
036500+ *  HTTP MIME DATASink callback procedures                                                                140404   78036500
036600+ * -----------------------------------------------------------------------*                               140404   78036600
036700+ *                                                                                                        140404   78036700
036800+ *  User callback: StartPart                                                                              140404   78036800
036900+ /if defined (http_datasink_procptr)                                                                      140404   78036900
            LINES EXCLUDED: 5
037500+ /else                                                                                                    140404   78037500
037600+D HTTPDataSink_startPart...                                                                               140404   78037600
037700+D                 PR                                                                                      140404   78037700
037800+D                                     extproc('+                                                          140404   78037800
037900+D                                     HTTPDataSink_startPart+                                             140404   78037900
038000+D                                     ')                                                                  140404   78038000
038100+ /endif                                                                                                   140404   78038100
038200+D  i_pPart                        *   const                                                               140404   78038200
038300+D  i_pUserData                    *   const                                                               140404   78038300
038400+ *                                                                                                        140404   78038400
038500+ *  User callback: BodyData                                                                               140404   78038500
038600+ /if defined (http_datasink_procptr)                                                                      140404   78038600
            LINES EXCLUDED: 5
039200+ /else                                                                                                    140404   78039200
039300+D HTTPDataSink_bodyData...                                                                                140404   78039300
039400+D                 PR                                                                                      140404   78039400
039500+D                                     extproc('+                                                          140404   78039500
039600+D                                     HTTPDataSink_bodyData+                                              140404   78039600
039700+D                                     ')                                                                  140404   78039700
039800+ /endif                                                                                                   140404   78039800
039900+D  i_pPart                        *   const                                                               140404   78039900
040000+D  i_pUserData                    *   const                                                               140404   78040000
040100+D  i_data                         *   const                                                               140404   78040100
040200+D  i_size                       10I 0 const                                                               140404   78040200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    235
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
040300+ *                                                                                                        140404   78040300
040400+ *  User callback: EndPart                                                                                140404   78040400
040500+ /if defined (http_datasink_procptr)                                                                      140404   78040500
            LINES EXCLUDED: 5
041100+ /else                                                                                                    140404   78041100
041200+D HTTPDataSink_endPart...                                                                                 140404   78041200
041300+D                 PR                                                                                      140404   78041300
041400+D                                     extproc('+                                                          140404   78041400
041500+D                                     HTTPDataSink_endPart+                                               140404   78041500
041600+D                                     ')                                                                  140404   78041600
041700+ /endif                                                                                                   140404   78041700
041800+D  i_pPart                        *   const                                                               140404   78041800
041900+D  i_pUserData                    *   const                                                               140404   78041900
042000+ *                                                                                                        140404   78042000
042100+ /ENDIF                                                                                                   140404   78042100
000165  /COPY QRPGLESRC,HTTPAPI_H                    HTTP-API Service Program                               CPY  000000     000165
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  HTTPAPI_H                                                    *                    79
        * External name  . . . . . . :  LIBHTTP/QRPGLESRC(HTTPAPI_H)                                 *                    79
        * Last change  . . . . . . . :  08.06.15  16:45:24                                           *                    79
        * Text 'description' . . . . :  HTTPAPI header member                                        *                    79
        *--------------------------------------------------------------------------------------------*
000100+/*-                                                                            +                          000000   79000100
000200+ * Copyright (c) 2001-2015 Scott C. Klement                                    +                          150102   79000200
000300+ * All rights reserved.                                                        +                          000000   79000300
000400+ *                                                                             +                          000000   79000400
000500+ * Redistribution and use in source and binary forms, with or without          +                          000000   79000500
000600+ * modification, are permitted provided that the following conditions          +                          000000   79000600
000700+ * are met:                                                                    +                          000000   79000700
000800+ * 1. Redistributions of source code must retain the above copyright           +                          000000   79000800
000900+ *    notice, this list of conditions and the following disclaimer.            +                          000000   79000900
001000+ * 2. Redistributions in binary form must reproduce the above copyright        +                          000000   79001000
001100+ *    notice, this list of conditions and the following disclaimer in the      +                          000000   79001100
001200+ *    documentation and/or other materials provided with the distribution.     +                          000000   79001200
001300+ *                                                                             +                          000000   79001300
001400+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ''AS IS'' AND      +                          000000   79001400
001500+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE       +                          000000   79001500
001600+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE  +                          000000   79001600
001700+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE     +                          000000   79001700
001800+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL  +                          000000   79001800
001900+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS     +                          000000   79001900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    236
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002000+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)       +                          000000   79002000
002100+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT  +                          000000   79002100
002200+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY   +                          000000   79002200
002300+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF      +                          000000   79002300
002400+ * SUCH DAMAGE.                                                                +                          000000   79002400
002500+ *                                                                             +                          000000   79002500
002600+ */                                                                            +                          000000   79002600
002700+                                                                                                          000000   79002700
002800+ /if defined(HTTPAPI_H)                                                                                   000000   79002800
            LINES EXCLUDED: 1
003000+ /endif                                                                                                   000000   79003000
003100+                                                                                                          000000   79003100
003200+D HTTPAPI_VERSION...                                                                                      000000   79003200
003300+D                 C                   CONST('1.29')                                                       150223   79003300
003400+D HTTPAPI_RELDATE...                                                                                      000000   79003400
003500+D                 C                   CONST('2015-02-23')                                                 150223   79003500
003600+                                                                                                          000000   79003600
003700+ /copy *LIBL/qrpglesrc,config_h                                                                           000000   79003700
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  CONFIG_H                                                     *                    80
        * External name  . . . . . . :  LIBHTTP/QRPGLESRC(CONFIG_H)                                  *                    80
        * Last change  . . . . . . . :  08.06.15  16:45:24                                           *                    80
        * Text 'description' . . . . :  HTTP-API compile-time configuration                          *                    80
        *--------------------------------------------------------------------------------------------*
000100+***  If you do not want SSL support, comment out the line below.                                          011020   80000100
000200+***   (You _must_ do this if you're running V4R4 or earlier)                                              011020   80000200
000300+                                                                                                          011020   80000300
000400+D/define HAVE_SSLAPI                                                                                      021030   80000400
000500+                                                                                                          040303   80000500
000600+***  define this if your RPG compiler supports 64-bit integers                                            040303   80000600
000700+***  (they were introduced in V4R4)                                                                       040303   80000700
000800+***                                                                                                       040303   80000800
000900+                                                                                                          040303   80000900
001000+D/define HAVE_INT64                                                                                       040303   80001000
001100+                                                                                                          040303   80001100
001200+***  define this if your RPG compiler supports                                                            040303   80001200
001300+***  options(*SRCSTMT: *NODEBUGIO: *NOSHOWCPY)                                                            040303   80001300
001400+***  (they were introduced in V4R4, but can be enabled as far                                             040303   80001400
001500+***   back as V3R2 using PTFs)                                                                            040303   80001500
001600+                                                                                                          040303   80001600
001700+D/define HAVE_SRCSTMT_NODEBUGIO                                                                           040303   80001700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    237
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001800+                                                                                                          050622   80001800
001900+***  In V4R5 it's possible to enable GSKit for SSL via                                                    050622   80001900
002000+***    PTFs. However, some functionality wasn't yet available                                             050622   80002000
002100+***    in that release. Define this if you need SSL to be limited                                         050622   80002100
002200+***    to what's available on a V4R5 system. (This is ignored                                             050622   80002200
002300+***    when SSL is disabled.)                                                                             050622   80002300
002400+                                                                                                          050622   80002400
002500+D/undefine V4R5_GSKIT                                                                                     050622   80002500
002600+                                                                                                          011020   80002600
002700+***  This is the default timeout value (in seconds) that HTTPAPI                                          011020   80002700
002800+***  uses if a timeout value isn't specified by the calling                                               011020   80002800
002900+***  program:                                                                                             011020   80002900
003000+                                                                                                          011020   80003000
003100+D HTTP_TIMEOUT    C                   CONST(60)                                                           060327   80003100
003200+                                                                                                          011020   80003200
003300+***  This is the 'User-Agent' name that is reported by this API                                           011020   80003300
003400+***  to the web servers if you don't specify it explcitly when                                            011020   80003400
003500+***  calling the routines.                                                                                011020   80003500
003600+                                                                                                          011020   80003600
003700+D HTTP_USERAGENT  C                   CONST('http-api/1.29')                                              150223   80003700
003800+                                                                                                          011020   80003800
003900+***  This is the 'Content-Type' that is reported by this API                                              011020   80003900
004000+***  to the web servers if you don't specify it explcitly when                                            011020   80004000
004100+***  calling the POST routines.   (the GET routines, by default,                                          011020   80004100
004200+***  do not specify a content-type.)                                                                      011020   80004200
004300+                                                                                                          011020   80004300
004400+D HTTP_CONTTYPE   C                   CONST('text/xml')                                                   031001   80004400
004500+                                                                                                          011020   80004500
004600+***  The original implementation of HTTPAPI used tables                                                   050623   80004600
004700+***  (*TBL objects) to translate from ASCII to EBCDIC. These can                                          050623   80004700
004800+***  be enabled/set by defining the HTTP_USE_TABLES condition,                                            050623   80004800
004900+***  and then setting the table names.  They can be overridden                                            050623   80004900
005000+***  at runtime by calling HTTP_setTables().                                                              050623   80005000
005100+***                                                                                                       050623   80005100
005200+***  In the current implementation, we prefer that you use CCSIDs                                         050623   80005200
005300+***  instead of tables. When HTTP_USE_TABLES is not defined,                                              050623   80005300
005400+***  the HTTP_EBCDIC and HTTP_ASCII constants represent the                                               050623   80005400
005500+***  default CCSIDs for ASCII<-->EBCDIC translation.  They can be                                         050623   80005500
005600+***  overridden at runtime by calling HTTP_setCCSIDs()                                                    050623   80005600
005700+***                                                                                                       050623   80005700
005800+                                                                                                          011020   80005800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    238
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
005900+ /undefine HTTP_USE_TABLES                                                                                060923   80005900
006000+ /if defined(HTTP_USE_TABLES)                                                                             050623   80006000
            LINES EXCLUDED: 2
006300+ /else                                                                                                    050623   80006300
006400+D HTTP_EBCDIC     C                   CONST(0)                                                            050623   80006400
006500+D HTTP_ASCII      C                   CONST(819)                                                          060330   80006500
006600+ /endif                                                                                                   050623   80006600
006700+                                                                                                          011020   80006700
006800+***  This is the codepage or CCSID assigned to downloaded stream                                          050623   80006800
006900+***  files by default. (Note: HTTPAPI does not convert the file                                           050623   80006900
007000+***  to this CCSID, it just assigns this number to the file's                                             050623   80007000
007100+***  attributes.)                                                                                         050623   80007100
007200+***                                                                                                       050623   80007200
007300+***  Whether this is treated as a CCSID or a codepage depends on                                          050623   80007300
007400+***  the value of the HTTP USE CCSID condition, below.                                                    050623   80007400
007500+***                                                                                                       050623   80007500
007600+***  Can be overridden at runtime by calling HTTP_SetFileCCSID()                                          050623   80007600
007700+                                                                                                          011020   80007700
007800+D HTTP_CCSID      C                   CONST(819)                                                          061116   80007800
007900+                                                                                                          050623   80007900
008000+***  Starting in V5R1, a full CCSID is available in the IFS                                               050623   80008000
008100+***  instead of a codepage. When this is defined, CCSID support                                           050623   80008100
008200+***  will be used instead of codepages                                                                    050623   80008200
008300+                                                                                                          050623   80008300
008400+D/define HTTP_USE_CCSID                                                                                   050623   80008400
008500+                                                                                                          011020   80008500
008600+***  This is the file mode used when creating files in the IFS.                                           011020   80008600
008700+***  (Caution: This mode is given in DECIMAL, not octal!)                                                 011020   80008700
008800+***  Octal 666 = Decimal 438  (RW-RW-RW-)                                                                 011020   80008800
008900+***  Octal 644 = Decimal 420  (RW-R--R--)                                                                 011020   80008900
009000+***  Octal 777 = Decimal 511  (RWXRWXRWX)                                                                 011020   80009000
009100+***  Octal 755 = Decimal 493  (RWXR-XR-X)                                                                 011020   80009100
009200+                                                                                                          011020   80009200
009300+D HTTP_IFSMODE    C                   CONST(511)                                                          011020   80009300
009400+                                                                                                          030327   80009400
009500+***  HTTPAPI normally uses non-blocking sockets to ensure that                                            050630   80009500
009600+***  the session never "hangs".  However, during the connection                                           050630   80009600
009700+***  progress, this can mean that information gets lost.                                                  050630   80009700
009800+***                                                                                                       050630   80009800
009900+***  Define this to wait until after the connection is established                                        050630   80009900
010000+***  before switching the socket to non-blocking.                                                         050630   80010000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    239
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
010100+D/undefine HTTP_BLOCK_ON_CONNECT                                                                          140530   80010100
010200+                                                                                                          060221   80010200
010300+***                                                                                                       060221   80010300
010400+*** This determines whether Cookies are turned *ON or *OFF                                                060221   80010400
010500+*** by default.                                                                                           060507   80010500
010600+***                                                                                                       060221   80010600
010700+DHTTP_COOKIE_DEFAULT...                                                                                   060221   80010700
010800+D                 C                   CONST(*ON)                                                          060507   80010800
010900+                                                                                                          050630   80010900
011000+***  This changes whether debugging is on or off by default.                                              041103   80011000
011100+***  You can override this at runtime by calling the http_debug()                                         041103   80011100
011200+***  procedure.                                                                                           041103   80011200
011300+D/undefine DEBUG                                                                                          060323   80011300
011400+DHTTP_DEBUG_FILE  s            500A   varying                                                             041103   80011400
011500+D                                     inz('/tmp/httpapi_debug.txt')                                       041103   80011500
011600+                                                                                                          070125   80011600
011700+***  This changes how memory is allocated.  If defined, HTTPAPI                                           070125   80011700
011800+***  will allocate memory in TERASPACE, thus allowing for very                                            070125   80011800
011900+***  large allocations.                                                                                   070828   80011900
012000+D/undefine USE_TS_MALLOC64                                                                                070828   80012000
012100+D/undefine USE_TS_MALLOC64                                                                                070828   80012100
012200+***  With both turned off (default) up to 16 MB per allocation.                                           070828   80012200
012300+***  WARNING: This is currently experimental!!  If you have                                               070828   80012300
012400+***           problems, make sure TERASPACE is undefined.                                                 070828   80012400
012500+D/undefine TERASPACE                                                                                      070426   80012500
012600+D/undefine USE_TS_MALLOC64                                                                                070828   80012600
012700+                                                                                                          071218   80012700
012800+***  This allows access to V5R3 (or higher) functions in the                                              071218   80012800
012900+***  SSL environment.  Only define this if HTTPAPI will be used                                           071218   80012900
013000+***  on V5R3 or later.                                                                                    071218   80013000
013100+D/define V5R3_GSKIT                                                                                       071218   80013100
013200+                                                                                                          150119   80013200
013300+***  NTLM is a Microsoft encryption required by some IIS servers                                          150119   80013300
013400+***  Support for NTLM requires the Cryptographic Access APIs that                                         150119   80013400
013500+***  IBM added in V5R3                                                                                    150119   80013500
013600+D/define NTLM_SUPPORT                                                                                     150119   80013600
003800+                                                                                                          000000   79003800
003900+ *********************************************************************                                    000000   79003900
004000+ **  procedure prototypes                                                                                 000000   79004000
004100+ *********************************************************************                                    000000   79004100
004200+                                                                                                          000000   79004200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    240
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79004300
004400+ *  http_get(): Retrieve an HTTP document                                                                 000000   79004400
004500+ *  http_url_get(): Retrieve an HTTP document                                                             000000   79004500
004600+ *                                                                                                        000000   79004600
004700+ *       peURL = url to grab  (i.e. http://www.blah.com/dir/file.txt)                                     000000   79004700
004800+ *  peFilename = filename in IFS to save response into                                                    000000   79004800
004900+ *  peTimeout  = (optional) give up if no data is received for                                            000000   79004900
005000+ *          this many seconds.                                                                            000000   79005000
005100+ *  peModTime  = (optional) only get file if it was changed since                                         000000   79005100
005200+ *          this timestamp.                                                                               000000   79005200
005300+ *  peContentType = (optional) content type to supply (mainly                                             000000   79005300
005400+ *          useful when talking to CGI scripts.) To supply the                                            000000   79005400
005500+ *          default value for this parm, you can supply the                                               000000   79005500
005600+ *          HTTP_CONTTYPE constant.                                                                       000000   79005600
005700+ *  peUserAgent = (optional) This specifies the name & version                                            000000   79005700
005800+ *          of your HTTP client to the server.  The server uses                                           000000   79005800
005900+ *          it for statistics and sometimes to restrict pages                                             000000   79005900
006000+ *          so that they're "only for Internet Explorer."                                                 000000   79006000
006100+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79006100
006200+ *          taken by some SOAP applications.                                                              000000   79006200
006300+ *          - pass *blanks to send an empty SoapAction.                                                   000000   79006300
006400+ *          - pass *omit (or don't pass the parm at all) if                                               000000   79006400
006500+ *             you don't want a SoapAction header to be sent.                                             000000   79006500
006600+ *                                                                                                        000000   79006600
006700+ *  Returns  -1 = internal error (check HTTP_ERROR)                                                       000000   79006700
006800+ *            0 = timeout while receiving data or connecting                                              000000   79006800
006900+ *            1 = file retrieved successfully                                                             000000   79006900
007000+ *          > 1 = HTTP response code indicating server's error reply                                      000000   79007000
007100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79007100
007200+D http_get        PR            10I 0 extproc('HTTP_URL_GET')                                             000000   79007200
007300+D  peURL                     32767A   varying const options(*varsize)                                     000000   79007300
007400+D  peFilename                32767A   varying const options(*varsize)                                     000000   79007400
007500+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79007500
007600+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79007600
            LINES EXCLUDED: 4
008100+ /else                                                                                                    000000   79008100
008200+D  peUserAgent               16384A   varying const                                                       000000   79008200
008300+D                                     options(*nopass:*omit)                                              000000   79008300
008400+D  peModTime                      Z   const options(*nopass:*omit)                                        000000   79008400
008500+D  peContentType             16384A   varying const                                                       000000   79008500
008600+D                                     options(*nopass:*omit)                                              000000   79008600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    241
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008700+D  peSOAPAction              16384A   varying const                                                       000000   79008700
008800+D                                     options(*nopass:*omit)                                              000000   79008800
008900+ /endif                                                                                                   000000   79008900
009000+D http_url_get    PR            10I 0                                                                     000000   79009000
009100+D  peURL                     32767A   varying const options(*varsize)                                     000000   79009100
009200+D  peFilename                32767A   varying const options(*varsize)                                     000000   79009200
009300+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79009300
009400+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79009400
            LINES EXCLUDED: 4
009900+ /else                                                                                                    000000   79009900
010000+D  peUserAgent               16384A   varying const                                                       000000   79010000
010100+D                                     options(*nopass:*omit)                                              000000   79010100
010200+D  peModTime                      Z   const options(*nopass:*omit)                                        000000   79010200
010300+D  peContentType             16384A   varying const                                                       000000   79010300
010400+D                                     options(*nopass:*omit)                                              000000   79010400
010500+D  peSOAPAction              16384A   varying const                                                       000000   79010500
010600+D                                     options(*nopass:*omit)                                              000000   79010600
010700+ /endif                                                                                                   000000   79010700
010800+                                                                                                          000000   79010800
010900+                                                                                                          000000   79010900
011000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79011000
011100+ *  http_url_post(): Post data to CGI script and get document                                             000000   79011100
011200+ *                                                                                                        000000   79011200
011300+ *         peURL = url to post to (http://www.blah.com/cgi-bin/etc)                                       000000   79011300
011400+ *    pePostData = pointer to data to post to CGI script.                                                 000000   79011400
011500+ * pePostDataLen = length of data to post to CGI script.                                                  000000   79011500
011600+ *   peFileName  = Filename in IFS to save response into                                                  000000   79011600
011700+ *    peTimeout  = (optional) give up if no data is received for                                          000000   79011700
011800+ *            this many seconds.                                                                          000000   79011800
011900+ * peUserAgent = (optional) User-Agent string passed to the                                               000000   79011900
012000+ *            server.  Pass the named constant HTTP_USERAGENT                                             000000   79012000
012100+ *            if you want to get the default value.                                                       000000   79012100
012200+ * peContentType = (optional) content type to supply (mainly                                              000000   79012200
012300+ *            useful when talking to CGI scripts)                                                         000000   79012300
012400+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79012400
012500+ *          taken by some SOAP applications.                                                              000000   79012500
012600+ *          - pass *blanks to send an empty SoapAction.                                                   000000   79012600
012700+ *          - pass *omit (or don't pass the parm at all) if                                               000000   79012700
012800+ *             you don't want a SoapAction header to be sent.                                             000000   79012800
012900+ *                                                                                                        000000   79012900
013000+ *  Returns  -1 = internal error (check HTTP_ERROR)                                                       000000   79013000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    242
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
013100+ *            0 = timeout while receiving data or connecting                                              000000   79013100
013200+ *            1 = file retrieved successfully                                                             000000   79013200
013300+ *          > 1 = HTTP response code indicating server's error reply                                      000000   79013300
013400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79013400
013500+D http_post       PR            10I 0 EXTPROC('HTTP_URL_POST')                                            000000   79013500
013600+D  peURL                     32767A   varying const options(*varsize)                                     000000   79013600
013700+D  pePostData                     *   value                                                               000000   79013700
013800+D  pePostDataLen                10I 0 value                                                               000000   79013800
013900+D  peFilename                32767A   varying const options(*varsize)                                     000000   79013900
014000+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79014000
014100+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79014100
            LINES EXCLUDED: 3
014500+ /else                                                                                                    000000   79014500
014600+D  peUserAgent               16384A   varying const                                                       000000   79014600
014700+D                                     options(*nopass:*omit)                                              000000   79014700
014800+D  peContentType             16384A   varying const                                                       000000   79014800
014900+D                                     options(*nopass:*omit)                                              000000   79014900
015000+D  peSOAPAction              16384A   varying const                                                       000000   79015000
015100+D                                     options(*nopass:*omit)                                              000000   79015100
015200+ /endif                                                                                                   000000   79015200
015300+D http_url_post   PR            10I 0                                                                     000000   79015300
015400+D  peURL                     32767A   varying const options(*varsize)                                     000000   79015400
015500+D  pePostData                     *   value                                                               000000   79015500
015600+D  pePostDataLen                10I 0 value                                                               000000   79015600
015700+D  peFilename                32767A   varying const options(*varsize)                                     000000   79015700
015800+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79015800
015900+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79015900
            LINES EXCLUDED: 3
016300+ /else                                                                                                    000000   79016300
016400+D  peUserAgent               16384A   varying const                                                       000000   79016400
016500+D                                     options(*nopass:*omit)                                              000000   79016500
016600+D  peContentType             16384A   varying const                                                       000000   79016600
016700+D                                     options(*nopass:*omit)                                              000000   79016700
016800+D  peSOAPAction              16384A   varying const                                                       000000   79016800
016900+D                                     options(*nopass:*omit)                                              000000   79016900
017000+ /endif                                                                                                   000000   79017000
017100+                                                                                                          000000   79017100
017200+                                                                                                          000000   79017200
017300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79017300
017400+ *  http_url_get_raw(): Retrieve an HTTP document (in raw mode)                                           000000   79017400
017500+ *                                                                                                        000000   79017500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    243
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
017600+ *       peURL = url to grab  (i.e. http://www.blah.com/dir/file.txt)                                     000000   79017600
017700+ *       peFD  = FD to pass back to peProc                                                                000000   79017700
017800+ *     peProc  = procedure to call each time data is received.                                            000000   79017800
017900+ *  peTimeout  = (optional) give up if no data is received for                                            000000   79017900
018000+ *          this many seconds.                                                                            000000   79018000
018100+ * peUserAgent = (optional) User-Agent string passed to the                                               000000   79018100
018200+ *            server.  Pass the named constant HTTP_USERAGENT                                             000000   79018200
018300+ *            if you want to get the default value.                                                       000000   79018300
018400+ *  peModTime  = (optiona) only get file if it was changed since                                          000000   79018400
018500+ *          this timestamp.                                                                               000000   79018500
018600+ *  peContentType = (optional) content type to supply (mainly                                             000000   79018600
018700+ *          useful when talking to CGI scripts)                                                           000000   79018700
018800+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79018800
018900+ *          taken by some SOAP applications.                                                              000000   79018900
019000+ *          - pass *blanks to send an empty SoapAction.                                                   000000   79019000
019100+ *          - pass *omit (or don't pass the parm at all) if                                               000000   79019100
019200+ *             you don't want a SoapAction header to be sent.                                             000000   79019200
019300+ *                                                                                                        000000   79019300
019400+ *  Returns  (same as http_url_get)                                                                       000000   79019400
019500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79019500
019600+D http_url_get_raw...                                                                                     000000   79019600
019700+D                 PR            10I 0                                                                     000000   79019700
019800+D  peURL                     32767A   varying const options(*varsize)                                     000000   79019800
019900+D  peFD                         10I 0 value                                                               000000   79019900
020000+D  peProc                         *   value procptr                                                       000000   79020000
020100+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79020100
020200+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79020200
            LINES EXCLUDED: 4
020700+ /else                                                                                                    000000   79020700
020800+D  peUserAgent               16384A   varying const                                                       000000   79020800
020900+D                                     options(*nopass:*omit)                                              000000   79020900
021000+D  peModTime                      Z   const options(*nopass:*omit)                                        000000   79021000
021100+D  peContentType             16384A   varying const                                                       000000   79021100
021200+D                                     options(*nopass:*omit)                                              000000   79021200
021300+D  peSOAPAction              16384A   varying const                                                       000000   79021300
021400+D                                     options(*nopass:*omit)                                              000000   79021400
021500+ /endif                                                                                                   000000   79021500
021600+                                                                                                          000000   79021600
021700+                                                                                                          000000   79021700
021800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79021800
021900+ *  http_url_post_raw(): Post data to CGI script and get document                                         000000   79021900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    244
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
022000+ *                                                                                                        000000   79022000
022100+ *         peURL = url to post to (http://www.blah.com/cgi-bin/etc)                                       000000   79022100
022200+ *    pePostData = pointer to data to post to CGI script.                                                 000000   79022200
022300+ * pePostDataLen = length of data to post to CGI script.                                                  000000   79022300
022400+ *         peFD  = FD to pass back to peProc                                                              000000   79022400
022500+ *       peProc  = procedure to call each time data is received.                                          000000   79022500
022600+ *    peTimeout  = (optional) give up if no data is received for                                          000000   79022600
022700+ *            this many seconds.                                                                          000000   79022700
022800+ *  peUserAgent  = (optional) User-Agent string passed to the                                             000000   79022800
022900+ *            server.  Pass the named constant HTTP_USERAGENT                                             000000   79022900
023000+ *            if you want to get the default value.                                                       000000   79023000
023100+ * peContentType = (optional) content type to supply (mainly                                              000000   79023100
023200+ *            useful when talking to CGI scripts)                                                         000000   79023200
023300+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79023300
023400+ *          taken by some SOAP applications.                                                              000000   79023400
023500+ *          - pass *blanks to send an empty SoapAction.                                                   000000   79023500
023600+ *          - pass *omit (or don't pass the parm at all) if                                               000000   79023600
023700+ *             you don't want a SoapAction header to be sent.                                             000000   79023700
023800+ *                                                                                                        000000   79023800
023900+ *  Returns  (same as http_url_post)                                                                      000000   79023900
024000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79024000
024100+D http_url_post_raw...                                                                                    000000   79024100
024200+D                 PR            10I 0                                                                     000000   79024200
024300+D  peURL                     32767A   varying const options(*varsize)                                     000000   79024300
024400+D  pePostData                     *   value                                                               000000   79024400
024500+D  pePostDataLen                10I 0 value                                                               000000   79024500
024600+D  peFD                         10I 0 value                                                               000000   79024600
024700+D  peProc                         *   value procptr                                                       000000   79024700
024800+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79024800
024900+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79024900
            LINES EXCLUDED: 3
025300+ /else                                                                                                    000000   79025300
025400+D  peUserAgent               16384A   varying const                                                       000000   79025400
025500+D                                     options(*nopass:*omit)                                              000000   79025500
025600+D  peContentType             16384A   varying const                                                       000000   79025600
025700+D                                     options(*nopass:*omit)                                              000000   79025700
025800+D  peSOAPAction              16384A   varying const                                                       000000   79025800
025900+D                                     options(*nopass:*omit)                                              000000   79025900
026000+ /endif                                                                                                   000000   79026000
026100+                                                                                                          000000   79026100
026200+                                                                                                          000000   79026200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    245
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
026300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79026300
026400+ *  http_ParseURL(): Parse URL into it's component parts                                                  000000   79026400
026500+ *                                                                                                        000000   79026500
026600+ *  Breaks a uniform resource locator (URL) into it's component                                           000000   79026600
026700+ *  pieces for use with the http: or https: protocols.  (would also                                       000000   79026700
026800+ *  work for FTP with minor tweaks)                                                                       000000   79026800
026900+ *                                                                                                        000000   79026900
027000+ *  peURL = URL that needs to be parsed.                                                                  000000   79027000
027100+ *  peService = service name from URL (i.e. http or https)                                                000000   79027100
027200+ *  peUserName = user name given, or *blanks                                                              000000   79027200
027300+ *  pePassword = password given, or *blanks                                                               000000   79027300
027400+ *  peHost = hostname given in URL. (could be domain name or IP)                                          000000   79027400
027500+ *  pePort = port number to connect to, if specified, otherwise 0.                                        000000   79027500
027600+ *  pePath = remaining path/request for server.                                                           000000   79027600
027700+ *                                                                                                        000000   79027700
027800+ *  returns -1 upon failure, or 0 upon success                                                            000000   79027800
027900+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79027900
028000+D http_ParseURL   PR            10I 0                                                                     000000   79028000
028100+D  peURL                       256A   const                                                               000000   79028100
028200+D  peService                    32A                                                                       000000   79028200
028300+D  peUserName                   32A                                                                       000000   79028300
028400+D  pePassword                   32A                                                                       000000   79028400
028500+D  peHost                      256A                                                                       000000   79028500
028600+D  pePort                       10I 0                                                                     000000   79028600
028700+D  pePath                      256A                                                                       000000   79028700
028800+                                                                                                          000000   79028800
028900+                                                                                                          000000   79028900
029000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79029000
029100+ *  http_build_sockaddr():  Build a socket address structure for a host                                   000000   79029100
029200+ *                                                                                                        000000   79029200
029300+ *        peHost = hostname to build sockaddr_in for                                                      000000   79029300
029400+ *     peService = service name (or port) to build sockaddr_in for                                        000000   79029400
029500+ *   peForcePort = numeric port to force entry to, overrides peService                                    000000   79029500
029600+ *    peSockAddr = pointer to a location to place a sockaddr_in into.                                     000000   79029600
029700+ *             (if *NULL, memory will be allocated, otherwise it will                                     000000   79029700
029800+ *                be re-alloc'ed)                                                                         000000   79029800
029900+ *                                                                                                        000000   79029900
030000+ *   returns -1 upon failure, 0 upon success                                                              000000   79030000
030100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79030100
030200+D http_build_sockaddr...                                                                                  000000   79030200
030300+D                 PR            10I 0                                                                     000000   79030300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    246
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
030400+D   peHost                     256A   const                                                               000000   79030400
030500+D   peService                   32A   const                                                               000000   79030500
030600+D   peForcePort                 10I 0 value                                                               000000   79030600
030700+D   peSockAddr                    *                                                                       000000   79030700
030800+                                                                                                          000000   79030800
030900+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79030900
031000+ *  http_close(): close HTTP connection                                                                   000000   79031000
031100+ *                                                                                                        000000   79031100
031200+ *         peSock = socket to close                                                                       000000   79031200
031300+ *         peComm = comm driver opened with http_select_commdriver()                                      000000   79031300
031400+ *                                                                                                        000000   79031400
031500+ *  returns -1 upon failure, or 0 upon success                                                            000000   79031500
031600+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79031600
031700+D http_close      PR            10I 0                                                                     000000   79031700
031800+D  peSock                       10I 0 value                                                               000000   79031800
031900+D  peComm                         *   value                                                               000000   79031900
032000+                                                                                                          000000   79032000
032100+                                                                                                          000000   79032100
032200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79032200
032300+ *  http_error():   Return the last error that occurred.                                                  000000   79032300
032400+ *                                                                                                        000000   79032400
032500+ *     peErrorNo = (optional) error number that occurred.                                                 000000   79032500
032600+ *                                                                                                        000000   79032600
032700+ *  Returns the human-readable error message.                                                             000000   79032700
032800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79032800
032900+D http_error      PR            80A                                                                       000000   79032900
033000+D   peErrorNo                   10I 0 options(*nopass:*omit)                                              000000   79033000
033100+                                                                                                          000000   79033100
033200+ /if defined(HAVE_SSLAPI)                                                                                 000000   79033200
033300+                                                                                                          000000   79033300
033400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79033400
033500+ * https_init():  Initialize https (HTTP over SSL/TLS) protocol                                           000000   79033500
033600+ *                                                                                                        000000   79033600
033700+ *     peAppID = This parameter controls how HTTPAPI associates                                           000000   79033700
033800+ *               itself with the Digital Certificate Manager.                                             000000   79033800
033900+ *               a) If you pass *BLANKS, HTTPAPI will use the                                             000000   79033900
034000+ *                   default settings for the *SYSTEM cert store                                          000000   79034000
034100+ *                   (This option most closely resembles what a                                           000000   79034100
034200+ *                    browser would do -- and is the default.)                                            000000   79034200
034300+ *               b) If you pass a string containing the / character                                       000000   79034300
034400+ *                   HTTPAPI will consider this an IFS pathname to                                        000000   79034400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    247
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
034500+ *                   a keyring file. (Only use this if you know                                           000000   79034500
034600+ *                   what you're doing.)                                                                  000000   79034600
034700+ *               c) In any other case, HTTPAPI will consider it an                                        000000   79034700
034800+ *                   application ID, and will use that application                                        000000   79034800
034900+ *                   profile from the "Manage Applications" section                                       000000   79034900
035000+ *                   of the Digital Certificate Manager. (Recommended                                     000000   79035000
035100+ *                   for high-security situations.)                                                       000000   79035100
035200+ *                                                                                                        000000   79035200
035300+ *     peSSLv2 = (optional) Turn SSL version 2 *ON/*OFF  (default OFF)                                    000000   79035300
035400+ *     peSSLv3 = (optional) Turn SSL version 3 *ON/*OFF  (default OFF)                                    000000   79035400
035500+ *    peTLSv10 = (optional) Turn TLS version 1.0 *ON/*OFF (default ON)                                    000000   79035500
035600+ *    peTLSv11 = (optional) Turn TLS version 1.1 *ON/*OFF (default ON)                                    000000   79035600
035700+ *    peTLSv12 = (optional) Turn TLS version 1.2 *ON/*OFF (default ON)                                    000000   79035700
035800+ *                                                                                                        000000   79035800
035900+ *  If any of the SSL/TLS flags, above, are not passed then the default                                   000000   79035900
036000+ *  values will be used.                                                                                  000000   79036000
036100+ *                                                                                                        000000   79036100
036200+ * Returns -1 upon failure.                                                                               000000   79036200
036300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79036300
036400+D https_init      PR            10I 0                                                                     000000   79036400
036500+D  peAppID                     100A   const                                                               000000   79036500
036600+D  peSSLv2                       1N   const options(*nopass)                                              000000   79036600
036700+D  peSSLv3                       1N   const options(*nopass)                                              000000   79036700
036800+D  peTLSv10                      1N   const options(*nopass)                                              000000   79036800
036900+D  peTLSv11                      1N   const options(*nopass)                                              000000   79036900
037000+D  peTLSv12                      1N   const options(*nopass)                                              000000   79037000
037100+                                                                                                          000000   79037100
037200+                                                                                                          000000   79037200
037300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79037300
037400+ *  Register your application with the Digital Certificate Manager                                        000000   79037400
037500+ *                                                                                                        000000   79037500
037600+ *    peAppID = application ID.  IBM recommends that you do                                               000000   79037600
037700+ *         something like:  COMPANY_COMPONENT_NAME                                                        000000   79037700
037800+ *         (example:  QIBM_DIRSRV_REPLICATION)                                                            000000   79037800
037900+ *                                                                                                        000000   79037900
038000+ *  peLimitCA = set to *On if you want to only want to allow the                                          000000   79038000
038100+ *         certificate authorities registered in D.C.M., or set to                                        000000   79038100
038200+ *         *Off if you'll manage that yourself.                                                           000000   79038200
038300+ *                                                                                                        000000   79038300
038400+ *   returns 0 for success, or -1 upon failure                                                            000000   79038400
038500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79038500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    248
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
038600+D https_dcm_reg   PR            10I 0                                                                     000000   79038600
038700+D  peAppID                     100A   const                                                               000000   79038700
038800+D  peLimitCA                     1N   const                                                               000000   79038800
038900+                                                                                                          000000   79038900
039000+                                                                                                          000000   79039000
039100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79039100
039200+ * https_cleanup():  Clean up & free storage used by the SSL                                              000000   79039200
039300+ *   environment.                                                                                         000000   79039300
039400+ *                                                                                                        000000   79039400
039500+ *  returns 0 if successful, -1 upon failure                                                              000000   79039500
039600+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79039600
039700+D https_cleanup   PR            10I 0                                                                     000000   79039700
039800+                                                                                                          000000   79039800
039900+                                                                                                          000000   79039900
040000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79040000
040100+ * https_idname(): Returns a string that describes an SSL certificate                                     000000   79040100
040200+ *                  data element id (for printing/debugging)                                              000000   79040200
040300+ *                                                                                                        000000   79040300
040400+ *       peID = (input) data ID to get name of                                                            000000   79040400
040500+ *                                                                                                        000000   79040500
040600+ * Returns the human-readable name                                                                        000000   79040600
040700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79040700
040800+D https_idname    PR            50A   varying                                                             000000   79040800
040900+D   peID                        10I 0 value                                                               000000   79040900
041000+                                                                                                          000000   79041000
041100+                                                                                                          000000   79041100
041200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79041200
041300+ * https_strict(): Force SSL to be strictly validated                                                     000000   79041300
041400+ *                                                                                                        000000   79041400
041500+ *      peSetting = (input) *ON  = use full validation                                                    000000   79041500
041600+ *                          *OFF = use passthru validation                                                000000   79041600
041700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79041700
041800+D https_strict    PR                                                                                      000000   79041800
041900+D   peSetting                    1n   const                                                               000000   79041900
042000+                                                                                                          000000   79042000
042100+ /endif                                                                                                   000000   79042100
042200+                                                                                                          000000   79042200
042300+                                                                                                          000000   79042300
042400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79042400
042500+ *  http_getauth():   Get HTTP Authentication Information                                                 000000   79042500
042600+ *                                                                                                        000000   79042600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    249
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
042700+ *   Call this proc after you receive a HTTP_NDAUTH error                                                 000000   79042700
042800+ *   to determine the authentication credentials that are required                                        000000   79042800
042900+ *                                                                                                        000000   79042900
043000+ *  The following parms are returned to your program:                                                     000000   79043000
043100+ *                                                                                                        000000   79043100
043200+ *     peBasic = *ON if BASIC auth is allowed                                                             000000   79043200
043300+ *    peDigest = *ON if MD5 DIGEST auth is allowed                                                        000000   79043300
043400+ *     peRealm = Auth realm.  Present this to the user to identify                                        000000   79043400
043500+ *               which password you're looking for.  For example                                          000000   79043500
043600+ *               if peRealm is "secureserver.com" you might say                                           000000   79043600
043700+ *               "enter password for secureserver.com" to user.                                           000000   79043700
043800+ *      peNTLM = *ON if NTLM auth is allowed                                                              000000   79043800
043900+ *                                                                                                        000000   79043900
044000+ *   After getting the userid & password from the user (or database)                                      000000   79044000
044100+ *   you'll need to call http_setauth()                                                                   000000   79044100
044200+ *                                                                                                        000000   79044200
044300+ *  Returns -1 upon error, or 0 if successful                                                             000000   79044300
044400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79044400
044500+D http_getauth    PR            10I 0                                                                     000000   79044500
044600+D   peBasic                      1N                                                                       000000   79044600
044700+D   peDigest                     1N                                                                       000000   79044700
044800+D   peRealm                    124A                                                                       000000   79044800
044900+D   peNTLM                       1N   options(*nopass)                                                    150102   79044900
045000+                                                                                                          000000   79045000
045100+                                                                                                          000000   79045100
045200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79045200
045300+ *  http_setauth():   Set HTTP Authentication Information                                                 000000   79045300
045400+ *                                                                                                        000000   79045400
045500+ *     peAuthType = Authentication Type (HTTP_AUTH_BASIC or                                               000000   79045500
045600+ *                     HTTP_AUTH_MD5_DIGEST)                                                              000000   79045600
045700+ *     peUsername = UserName to use                                                                       000000   79045700
045800+ *     pePasswd   = Password to use                                                                       000000   79045800
045900+ *                                                                                                        000000   79045900
046000+ *  Returns -1 upon error, or 0 if successful                                                             000000   79046000
046100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79046100
046200+D http_setauth    PR            10I 0                                                                     000000   79046200
046300+D   peAuthType                   1A   const                                                               000000   79046300
046400+D   peUsername                  80A   const                                                               000000   79046400
046500+D   pePasswd                  1024A   const                                                               000000   79046500
046600+                                                                                                          000000   79046600
046700+                                                                                                          000000   79046700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    250
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
046800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79046800
046900+ *  http_setproxy():   Set HTTP Proxy Address                                                             000000   79046900
047000+ *                                                                                                        000000   79047000
047100+ *     peHost = Proxy host name                                                                           000000   79047100
047200+ *     psPort = Proxy port                                                                                000000   79047200
047300+ *                                                                                                        000000   79047300
047400+ *  Returns -1 upon error, or 0 if successful                                                             000000   79047400
047500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79047500
047600+D http_setproxy   PR            10I 0                                                                     000000   79047600
047700+D   peHost                     256A   const                                                               000000   79047700
047800+D   pePort                      10I 0 const                                                               000000   79047800
047900+                                                                                                          000000   79047900
048000+                                                                                                          000000   79048000
048100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79048100
048200+ *  http_proxy_setauth():   Set HTTP Proxy Authentication Information                                     000000   79048200
048300+ *                                                                                                        000000   79048300
048400+ *     peAuthType = Authentication Type (HTTP_AUTH_NONE or                                                000000   79048400
048500+ *                     HTTP_AUTH_BASIC)                                                                   000000   79048500
048600+ *     peUsername = UserName to use                                                                       000000   79048600
048700+ *     pePasswd   = Password to use                                                                       000000   79048700
048800+ *                                                                                                        000000   79048800
048900+ *  Returns -1 upon error, or 0 if successful                                                             000000   79048900
049000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79049000
049100+D http_proxy_setauth...                                                                                   000000   79049100
049200+D                 PR            10I 0                                                                     000000   79049200
049300+D   peAuthType                   1A   const                                                               000000   79049300
049400+D   peUsername                  80A   const                                                               000000   79049400
049500+D   pePasswd                  1024A   const                                                               000000   79049500
049600+                                                                                                          000000   79049600
049700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79049700
049800+ *  http_proxy_getauth():   Get HTTP Proxy Authentication Information                                     000000   79049800
049900+ *                                                                                                        000000   79049900
050000+ *   Call this proc after you receive a HTTP_PXNDAUTH error                                               000000   79050000
050100+ *   to determine the authentication credentials that are required                                        000000   79050100
050200+ *                                                                                                        000000   79050200
050300+ *  The following parms are returned to your program:                                                     000000   79050300
050400+ *                                                                                                        000000   79050400
050500+ *     peBasic = *ON if BASIC auth is allowed                                                             000000   79050500
050600+ *     peRealm = Auth realm.  Present this to the user to identify                                        000000   79050600
050700+ *               which password you're looking for.  For example                                          000000   79050700
050800+ *               if peRealm is "secureproxy.com" you might say                                            000000   79050800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    251
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
050900+ *               "enter password for secureproxy.com" to user.                                            000000   79050900
051000+ *                                                                                                        000000   79051000
051100+ *   After getting the userid & password from the user (or database)                                      000000   79051100
051200+ *   you'll need to call http_proxy_setauth()                                                             000000   79051200
051300+ *                                                                                                        000000   79051300
051400+ *  Returns -1 upon error, or 0 if successful                                                             000000   79051400
051500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79051500
051600+D http_proxy_getauth...                                                                                   000000   79051600
051700+D                 PR            10I 0                                                                     000000   79051700
051800+D   peBasic                      1N                                                                       000000   79051800
051900+D   peRealm                    124A                                                                       000000   79051900
052000+                                                                                                          000000   79052000
052100+                                                                                                          000000   79052100
052200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79052200
052300+ *  http_xproc():  Register a procedure to be called back at                                              000000   79052300
052400+ *                 a given exit point                                                                     000000   79052400
052500+ *                                                                                                        000000   79052500
052600+ *     peExitPoint = exit point.  Should be one of the constants                                          000000   79052600
052700+ *                HTTP_POINT_XXX defined in the HTTPAPI_H member                                          000000   79052700
052800+ *          peProc = address of procedure to call for this                                                000000   79052800
052900+ *                exit point. (pass *NULL to disable this point)                                          000000   79052900
053000+ *      peUserData = Pointer to user data. This will be passed                                            000000   79053000
053100+ *                to your call-back procedure. You can set it to                                          000000   79053100
053200+ *                *NULL if you don't need/want it.                                                        000000   79053200
053300+ *                                                                                                        000000   79053300
053400+ *  Returns -1 upon error, or 0 if successful                                                             000000   79053400
053500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79053500
053600+D http_xproc      PR            10I 0                                                                     000000   79053600
053700+D  peExitPoint                  10I 0 value                                                               000000   79053700
053800+D  peProc                         *   procptr value                                                       000000   79053800
053900+D  peUserData                     *   value options(*nopass)                                              000000   79053900
054000+                                                                                                          000000   79054000
054100+                                                                                                          000000   79054100
054200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79054200
054300+ * http_redir_loc(): Retrieve location provided by a redirect                                             000000   79054300
054400+ *   request.                                                                                             000000   79054400
054500+ *                                                                                                        000000   79054500
054600+ *  returns redirect location, or '' if no redirect was given                                             000000   79054600
054700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79054700
054800+D http_redir_loc  PR          1024A   varying                                                             000000   79054800
054900+                                                                                                          000000   79054900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    252
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
055000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79055000
055100+ * http_url_encoder_new():  Create a URL encoder.                                                         000000   79055100
055200+ *                                                                                                        000000   79055200
055300+ *   returns an (opaque) pointer to the new encoder                                                       000000   79055300
055400+ *           or *NULL upon error.                                                                         000000   79055400
055500+ *                                                                                                        000000   79055500
055600+ * WARNING: To free the memory used by this routine, you MUST                                             000000   79055600
055700+ *          call http_url_encoder_free() after the data is sent.                                          000000   79055700
055800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79055800
055900+D HTTP_URL_ENCODER...                                                                                     000000   79055900
056000+D                 s               *                                                                       000000   79056000
056100+D http_url_encoder_new...                                                                                 000000   79056100
056200+D                 PR                  like(HTTP_URL_ENCODER)                                              000000   79056200
056300+ /if defined(WEBFORMS)                                                                                    000000   79056300
            LINES EXCLUDED: 3
056700+ /endif                                                                                                   000000   79056700
056800+                                                                                                          000000   79056800
056900+                                                                                                          000000   79056900
057000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79057000
057100+ * http_url_encoder_addvar():  Add a variable to what's stored                                            000000   79057100
057200+ *          a URL encoder.                                                                                000000   79057200
057300+ *                                                                                                        000000   79057300
057400+ *    peEncoder = pointer to encoder created by the                                                       000000   79057400
057500+ *                  http_url_encoder_new() routine                                                        000000   79057500
057600+ *   peVariable = variable name to add                                                                    000000   79057600
057700+ *       peData = pointer to data to store in variable                                                    000000   79057700
057800+ *   peDataSize = size of data to store in variable                                                       000000   79057800
057900+ *                                                                                                        000000   79057900
058000+ * Returns *ON if successful, *OFF otherwise.                                                             000000   79058000
058100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79058100
058200+D http_url_encoder_addvar...                                                                              000000   79058200
058300+D                 PR             1N                                                                       000000   79058300
058400+D    peEncoder                        like(HTTP_URL_ENCODER) value                                        000000   79058400
058500+D    peVariable                 50A   varying value                                                       000000   79058500
058600+D    peData                       *   value                                                               000000   79058600
058700+D    peDataSize                 10I 0 value                                                               000000   79058700
058800+ /if defined(WEBFORMS)                                                                                    000000   79058800
            LINES EXCLUDED: 6
059500+ /endif                                                                                                   000000   79059500
059600+                                                                                                          000000   79059600
059700+                                                                                                          000000   79059700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    253
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
059800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79059800
059900+ * http_url_encoder_getptr(): Get a pointer to the encoded                                                000000   79059900
060000+ *        data stored in a URL encoder                                                                    000000   79060000
060100+ *                                                                                                        000000   79060100
060200+ *     peEncoder = (input) pointer to encoder                                                             000000   79060200
060300+ *        peData = (output) pointer to encoded data                                                       000000   79060300
060400+ *        peSize = (output) size of encoded data                                                          000000   79060400
060500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79060500
060600+D http_url_encoder_getptr...                                                                              000000   79060600
060700+D                 PR                                                                                      000000   79060700
060800+D    peEncoder                        like(HTTP_URL_ENCODER) value                                        000000   79060800
060900+D    peData                       *                                                                       000000   79060900
061000+D    peSize                     10I 0                                                                     000000   79061000
061100+ /if defined(WEBFORMS)                                                                                    000000   79061100
            LINES EXCLUDED: 5
061700+ /endif                                                                                                   000000   79061700
061800+                                                                                                          000000   79061800
061900+                                                                                                          000000   79061900
062000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79062000
062100+ * http_url_encoder_getstr(): Get encoded data he encoded                                                 000000   79062100
062200+ *        data stored in a URL encoder as a string                                                        000000   79062200
062300+ *                                                                                                        000000   79062300
062400+ *     peEncoder = (input) pointer to encoder                                                             000000   79062400
062500+ *                                                                                                        000000   79062500
062600+ * NOTE: This routine is much slower than http_url_encoder_getptr()                                       000000   79062600
062700+ *       and is limited to a 32k return value.  It's suitable for                                         000000   79062700
062800+ *       use with data that's added to a URL, such as when                                                000000   79062800
062900+ *       performing a GET request to a web server, but you should                                         000000   79062900
063000+ *       use http_url_encoder_getptr() for POST requests.                                                 000000   79063000
063100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79063100
063200+D http_url_encoder_getstr...                                                                              000000   79063200
063300+D                 PR         32767A   varying                                                             000000   79063300
063400+D    peEncoder                        like(HTTP_URL_ENCODER) value                                        000000   79063400
063500+ /if defined(WEBFORMS)                                                                                    000000   79063500
            LINES EXCLUDED: 4
064000+ /endif                                                                                                   000000   79064000
064100+                                                                                                          000000   79064100
064200+                                                                                                          000000   79064200
064300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79064300
064400+ * http_url_encoder_free(): free resources allocated by both                                              000000   79064400
064500+ *        http_url_encoder_new() and http_url_encoder_addvar()                                            000000   79064500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    254
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
064600+ *                                                                                                        000000   79064600
064700+ *     peEncoder = pointer to encoder to free                                                             000000   79064700
064800+ *                                                                                                        000000   79064800
064900+ * Returns *ON if successful, *OFF otherwise.                                                             000000   79064900
065000+ *                                                                                                        000000   79065000
065100+ * WARNING: After calling this, do not use the encoder or                                                 000000   79065100
065200+ *          data returned by http_url_encoder_getptr() again.                                             000000   79065200
065300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79065300
065400+D http_url_encoder_free...                                                                                000000   79065400
065500+D                 PR             1N                                                                       000000   79065500
065600+D    peEncoder                        like(HTTP_URL_ENCODER) value                                        000000   79065600
065700+ /if defined(WEBFORMS)                                                                                    000000   79065700
            LINES EXCLUDED: 3
066100+ /endif                                                                                                   000000   79066100
066200+                                                                                                          000000   79066200
066300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79066300
066400+ * http_url_encoder_addvar_s():  Simplified (but limited)                                                 000000   79066400
066500+ *       interface to http_url_encoder_addvar().                                                          000000   79066500
066600+ *                                                                                                        000000   79066600
066700+ *    peEncoder = (input) HTTP_url_encoder object                                                         000000   79066700
066800+ *   peVariable = (input) variable name to set                                                            000000   79066800
066900+ *      peValue = (input) value to set variable to                                                        000000   79066900
067000+ *                                                                                                        000000   79067000
067100+ * Returns *ON if successful, *OFF otherwise                                                              000000   79067100
067200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79067200
067300+D http_url_encoder_addvar_s...                                                                            000000   79067300
067400+D                 PR             1N                                                                       000000   79067400
067500+D    peEncoder                        like(HTTP_URL_ENCODER) value                                        000000   79067500
067600+D    peVariable                 50A   varying value                                                       000000   79067600
067700+D    peValue                   256A   varying value                                                       000000   79067700
067800+ /if defined(WEBFORMS)                                                                                    000000   79067800
            LINES EXCLUDED: 5
068400+ /endif                                                                                                   000000   79068400
068500+                                                                                                          000000   79068500
068600+                                                                                                          000000   79068600
068700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79068700
068800+ *  http_long_ParseURL(): Parse URL into it's component parts                                             000000   79068800
068900+ *                                                                                                        000000   79068900
069000+ *  Breaks a uniform resource locator (URL) into it's component                                           000000   79069000
069100+ *  pieces for use with the http: or https: protocols.  (would also                                       000000   79069100
069200+ *  work for FTP with minor tweaks)                                                                       000000   79069200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    255
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
069300+ *                                                                                                        000000   79069300
069400+ *  peURL = URL that needs to be parsed.                                                                  000000   79069400
069500+ *  peService = service name from URL (i.e. http or https)                                                000000   79069500
069600+ *  peUserName = user name given, or *blanks                                                              000000   79069600
069700+ *  pePassword = password given, or *blanks                                                               000000   79069700
069800+ *  peHost = hostname given in URL. (could be domain name or IP)                                          000000   79069800
069900+ *  pePort = port number to connect to, if specified, otherwise 0.                                        000000   79069900
070000+ *  pePath = remaining path/request for server.                                                           000000   79070000
070100+ *                                                                                                        000000   79070100
070200+ *  returns -1 upon failure, or 0 upon success                                                            000000   79070200
070300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79070300
070400+d http_long_ParseURL...                                                                                   000000   79070400
070500+D                 PR            10I 0                                                                     000000   79070500
070600+D  peURL                     32767A   varying const options(*varsize)                                     000000   79070600
070700+D  peService                    32A                                                                       000000   79070700
070800+D  peUserName                   32A                                                                       000000   79070800
070900+D  pePassword                   32A                                                                       000000   79070900
071000+D  peHost                      256A                                                                       000000   79071000
071100+D  pePort                       10I 0                                                                     000000   79071100
071200+D  pePath                    32767A   varying                                                             000000   79071200
071300+                                                                                                          000000   79071300
071400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79071400
071500+ * http_select_commdriver():  Select & initialize communications                                          000000   79071500
071600+ *    driver.                                                                                             000000   79071600
071700+ *                                                                                                        000000   79071700
071800+ *      peCommType = (input) communications type (http/https)                                             000000   79071800
071900+ *                                                                                                        000000   79071900
072000+ * Returns pointer to comm driver, or *NULL upon failure                                                  000000   79072000
072100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79072100
072200+D http_select_commdriver...                                                                               000000   79072200
072300+D                 PR              *                                                                       000000   79072300
072400+D   peCommType                  32A   const                                                               000000   79072400
072500+                                                                                                          000000   79072500
072600+                                                                                                          000000   79072600
072700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79072700
072800+ *  http_url_post_raw2(): Post data to CGI script and get document                                        000000   79072800
072900+ *                                                                                                        000000   79072900
073000+ *         peURL = url to post to (http://www.blah.com/cgi-bin/etc)                                       000000   79073000
073100+ *      pePostFD = descriptor number to pass to pePostProc                                                000000   79073100
073200+ *    pePostProc = procedure to call to get POST data.                                                    000000   79073200
073300+ *     peDataLen = total length of data that will be sent.                                                000000   79073300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    256
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
073400+ *      peSaveFD = FD to pass back to peSaveProc                                                          000000   79073400
073500+ *    peSaveProc = procedure to call each time data is received.                                          000000   79073500
073600+ *    peTimeout  = (optional) give up if no data is received for                                          000000   79073600
073700+ *            this many seconds.                                                                          000000   79073700
073800+ * peUserAgent = (optional) User-Agent string passed to the                                               000000   79073800
073900+ *            server.  Pass the named constant HTTP_USERAGENT                                             000000   79073900
074000+ *            if you want to get the default value.                                                       000000   79074000
074100+ * peContentType = (optional) content type to supply (mainly                                              000000   79074100
074200+ *            useful when talking to CGI scripts)                                                         000000   79074200
074300+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79074300
074400+ *          taken by some SOAP applications.                                                              000000   79074400
074500+ *          - pass *blanks to send an empty SoapAction.                                                   000000   79074500
074600+ *          - pass *omit (or don't pass the parm at all) if                                               000000   79074600
074700+ *             you don't want a SoapAction header to be sent.                                             000000   79074700
074800+ *                                                                                                        000000   79074800
074900+ *  Returns  -1 upon failure, 0 upon timeout, or an HTTP response code                                    000000   79074900
075000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79075000
075100+D http_url_post_raw2...                                                                                   000000   79075100
075200+D                 PR            10I 0                                                                     000000   79075200
075300+D  peURL                     32767A   varying const options(*varsize)                                     000000   79075300
075400+D  pePostFD                     10I 0 value                                                               000000   79075400
075500+D  pePostProc                     *   procptr value                                                       000000   79075500
075600+D  peDataLen                    10I 0 value                                                               000000   79075600
075700+D  peSaveFD                     10I 0 value                                                               000000   79075700
075800+D  peSaveProc                     *   value procptr                                                       000000   79075800
075900+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79075900
076000+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79076000
            LINES EXCLUDED: 3
076400+ /else                                                                                                    000000   79076400
076500+D  peUserAgent               16384A   varying const                                                       000000   79076500
076600+D                                     options(*nopass:*omit)                                              000000   79076600
076700+D  peContentType             16384A   varying const                                                       000000   79076700
076800+D                                     options(*nopass:*omit)                                              000000   79076800
076900+D  peSOAPAction              16384A   varying const                                                       000000   79076900
077000+D                                     options(*nopass:*omit)                                              000000   79077000
077100+ /endif                                                                                                   000000   79077100
077200+                                                                                                          000000   79077200
077300+                                                                                                          000000   79077300
077400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79077400
077500+ *  http_url_post_stmf(): Post data to CGI script from stream file                                        000000   79077500
077600+ *                                                                                                        000000   79077600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    257
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
077700+ *         peURL = url to post to (http://www.blah.com/cgi-bin/etc)                                       000000   79077700
077800+ *    pePostFile = Filename (in IFS) of file to send to http server                                       000000   79077800
077900+ *    peRecvFile = Filename (in IFS) of stream file containing reply                                      000000   79077900
078000+ *    peTimeout  = (optional) give up if no data is received for                                          000000   79078000
078100+ *            this many seconds.                                                                          000000   79078100
078200+ * peUserAgent = (optional) User-Agent string passed to the                                               000000   79078200
078300+ *            server.  Pass the named constant HTTP_USERAGENT                                             000000   79078300
078400+ *            if you want to get the default value.                                                       000000   79078400
078500+ * peContentType = (optional) content type to supply (mainly                                              000000   79078500
078600+ *            useful when talking to CGI scripts)                                                         000000   79078600
078700+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79078700
078800+ *          taken by some SOAP applications.                                                              000000   79078800
078900+ *          - pass *blanks to send an empty SoapAction.                                                   000000   79078900
079000+ *          - pass *omit (or don't pass the parm at all) if                                               000000   79079000
079100+ *             you don't want a SoapAction header to be sent.                                             000000   79079100
079200+ *                                                                                                        000000   79079200
079300+ *  Returns  -1 upon failure, 0 upon timeout,                                                             000000   79079300
079400+ *            1 for success, or an HTTP response code                                                     000000   79079400
079500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79079500
079600+D http_url_post_stmf...                                                                                   000000   79079600
079700+D                 PR            10I 0                                                                     000000   79079700
079800+D  peURL                     32767A   varying const options(*varsize)                                     000000   79079800
079900+D  pePostFile                32767A   varying const options(*varsize)                                     000000   79079900
080000+D  peRecvFile                32767A   varying const options(*varsize)                                     000000   79080000
080100+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79080100
080200+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79080200
            LINES EXCLUDED: 3
080600+ /else                                                                                                    000000   79080600
080700+D  peUserAgent               16384A   varying const                                                       000000   79080700
080800+D                                     options(*nopass:*omit)                                              000000   79080800
080900+D  peContentType             16384A   varying const                                                       000000   79080900
081000+D                                     options(*nopass:*omit)                                              000000   79081000
081100+D  peSOAPAction              16384A   varying const                                                       000000   79081100
081200+D                                     options(*nopass:*omit)                                              000000   79081200
081300+ /endif                                                                                                   000000   79081300
081400+D http_post_stmf  PR            10I 0 extproc('HTTP_URL_POST_STMF')                                       000000   79081400
081500+D  peURL                     32767A   varying const options(*varsize)                                     000000   79081500
081600+D  pePostFile                32767A   varying const options(*varsize)                                     000000   79081600
081700+D  peRecvFile                32767A   varying const options(*varsize)                                     000000   79081700
081800+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79081800
081900+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79081900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    258
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
            LINES EXCLUDED: 3
082300+ /else                                                                                                    000000   79082300
082400+D  peUserAgent               16384A   varying const                                                       000000   79082400
082500+D                                     options(*nopass:*omit)                                              000000   79082500
082600+D  peContentType             16384A   varying const                                                       000000   79082600
082700+D                                     options(*nopass:*omit)                                              000000   79082700
082800+D  peSOAPAction              16384A   varying const                                                       000000   79082800
082900+D                                     options(*nopass:*omit)                                              000000   79082900
083000+ /endif                                                                                                   000000   79083000
083100+                                                                                                          000000   79083100
083200+                                                                                                          000000   79083200
083300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79083300
083400+ * http_get_xml();                                                                                        000000   79083400
083500+ * http_url_get_xml():  Send a GET request to an HTTP server and                                          000000   79083500
083600+ *     receive/parse an XML response.                                                                     000000   79083600
083700+ *                                                                                                        000000   79083700
083800+ *       peURL = (input) URL to perform GET request to                                                    000000   79083800
083900+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79083900
084000+ *                       of each XML element received.                                                    000000   79084000
084100+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79084100
084200+ *                       of each XML element received.                                                    000000   79084200
084300+ *    peUsrDta = (input) user-defined data that will be passed to the                                     000000   79084300
084400+ *                    call-back routine                                                                   000000   79084400
084500+ *                                                                                                        000000   79084500
084600+ * (other parms are identical to those in HTTP_url_get())                                                 000000   79084600
084700+ *                                                                                                        000000   79084700
084800+ * peStartProc should point to a procedure with a procedure                                               000000   79084800
084900+ * interface that's compatable with the following:                                                        000000   79084900
085000+ *                                                                                                        000000   79085000
085100+ *  D StartProc       PR                                                                                  000000   79085100
085200+ *  D   userdata                      *   value                                                           000000   79085200
085300+ *  D   depth                       10I 0 value                                                           000000   79085300
085400+ *  D   name                      1024A   varying const                                                   000000   79085400
085500+ *  D   path                     24576A   varying const                                                   000000   79085500
085600+ *  D   attrs                         *   dim(32767)                                                      000000   79085600
085700+ *  D                                     const options(*varsize)                                         000000   79085700
085800+ *                                                                                                        000000   79085800
085900+ * peEndProc should point to a procedure with a procedure                                                 000000   79085900
086000+ * interface that's compatable with the following:                                                        000000   79086000
086100+ *                                                                                                        000000   79086100
086200+ *  D EndProc         PR                                                                                  000000   79086200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    259
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
086300+ *  D   userdata                      *   value                                                           000000   79086300
086400+ *  D   depth                       10I 0 value                                                           000000   79086400
086500+ *  D   name                      1024A   varying const                                                   000000   79086500
086600+ *  D   path                     24576A   varying const                                                   000000   79086600
086700+ *  D   value                    32767A   varying const                                                   000000   79086700
086800+ *  D   attrs                         *   dim(32767)                                                      000000   79086800
086900+ *  D                                     const options(*varsize)                                         000000   79086900
087000+ *                                                                                                        000000   79087000
087100+ *  Returns 1 if successful, -1 upon error, 0 if timeout                                                  000000   79087100
087200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79087200
087300+D http_get_xml...                                                                                         000000   79087300
087400+D                 PR            10I 0 EXTPROC('HTTP_URL_GET_XML')                                         000000   79087400
087500+D  peURL                     32767A   varying const options(*varsize)                                     000000   79087500
087600+D  peStartProc                    *   value procptr                                                       000000   79087600
087700+D  peEndProc                      *   value procptr                                                       000000   79087700
087800+D  peUsrDta                       *   value                                                               000000   79087800
087900+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79087900
088000+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79088000
            LINES EXCLUDED: 4
088500+ /else                                                                                                    000000   79088500
088600+D  peUserAgent               16384A   varying const                                                       000000   79088600
088700+D                                     options(*nopass:*omit)                                              000000   79088700
088800+D  peModTime                      Z   const options(*nopass:*omit)                                        000000   79088800
088900+D  peContentType             16384A   varying const                                                       000000   79088900
089000+D                                     options(*nopass:*omit)                                              000000   79089000
089100+D  peSOAPAction              16384A   varying const                                                       000000   79089100
089200+D                                     options(*nopass:*omit)                                              000000   79089200
089300+ /endif                                                                                                   000000   79089300
089400+D http_url_get_xml...                                                                                     000000   79089400
089500+D                 PR            10I 0                                                                     000000   79089500
089600+D  peURL                     32767A   varying const options(*varsize)                                     000000   79089600
089700+D  peStartProc                    *   value procptr                                                       000000   79089700
089800+D  peEndProc                      *   value procptr                                                       000000   79089800
089900+D  peUsrDta                       *   value                                                               000000   79089900
090000+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79090000
090100+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79090100
            LINES EXCLUDED: 4
090600+ /else                                                                                                    000000   79090600
090700+D  peUserAgent               16384A   varying const                                                       000000   79090700
090800+D                                     options(*nopass:*omit)                                              000000   79090800
090900+D  peModTime                      Z   const options(*nopass:*omit)                                        000000   79090900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    260
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
091000+D  peContentType             16384A   varying const                                                       000000   79091000
091100+D                                     options(*nopass:*omit)                                              000000   79091100
091200+D  peSOAPAction              16384A   varying const                                                       000000   79091200
091300+D                                     options(*nopass:*omit)                                              000000   79091300
091400+ /endif                                                                                                   000000   79091400
091500+                                                                                                          000000   79091500
091600+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79091600
091700+ *  http_get_xmltf(): Request URL from server. Receive response                                           000000   79091700
091800+ *        to temporary file, then parse it.                                                               000000   79091800
091900+ *                                                                                                        000000   79091900
092000+ *       peURL = (input) URL to perform GET request to                                                    000000   79092000
092100+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79092100
092200+ *                       of each XML element received.                                                    000000   79092200
092300+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79092300
092400+ *                       of each XML element received.                                                    000000   79092400
092500+ *    peUsrDta = (input) user-defined data that will be passed to the                                     000000   79092500
092600+ *                    call-back routine                                                                   000000   79092600
092700+ *                                                                                                        000000   79092700
092800+ * (other parms are identical to those in HTTP_url_get())                                                 000000   79092800
092900+ *                                                                                                        000000   79092900
093000+ *  Returns 1 if successful, -1 upon error, 0 if timeout                                                  000000   79093000
093100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79093100
093200+D http_get_xmltf...                                                                                       000000   79093200
093300+D                 PR            10I 0                                                                     000000   79093300
093400+D  peURL                     32767A   varying const options(*varsize)                                     000000   79093400
093500+D  peStartProc                    *   value procptr                                                       000000   79093500
093600+D  peEndProc                      *   value procptr                                                       000000   79093600
093700+D  peUsrDta                       *   value                                                               000000   79093700
093800+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79093800
093900+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79093900
            LINES EXCLUDED: 4
094400+ /else                                                                                                    000000   79094400
094500+D  peUserAgent               16384A   varying const                                                       000000   79094500
094600+D                                     options(*nopass:*omit)                                              000000   79094600
094700+D  peModTime                      Z   const options(*nopass:*omit)                                        000000   79094700
094800+D  peContentType             16384A   varying const                                                       000000   79094800
094900+D                                     options(*nopass:*omit)                                              000000   79094900
095000+D  peSOAPAction              16384A   varying const                                                       000000   79095000
095100+D                                     options(*nopass:*omit)                                              000000   79095100
095200+ /endif                                                                                                   000000   79095200
095300+                                                                                                          000000   79095300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    261
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
095400+                                                                                                          000000   79095400
095500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79095500
095600+ * http_post_xml();                                                                                       000000   79095600
095700+ * http_url_post_xml():  Send a POST request to an HTTP server and                                        000000   79095700
095800+ *     receive/parse an XML response.                                                                     000000   79095800
095900+ *                                                                                                        000000   79095900
096000+ *          peURL = (input) URL to perform GET request to                                                 000000   79096000
096100+ *     pePostData = (input) data to POST to the web server                                                000000   79096100
096200+ *  pePostDataLen = (input) length of pePostData                                                          000000   79096200
096300+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79096300
096400+ *                       of each XML element received.                                                    000000   79096400
096500+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79096500
096600+ *                       of each XML element received.                                                    000000   79096600
096700+ *       peUsrDta = (input) user-defined data that will be passed                                         000000   79096700
096800+ *                          to the call-back routine                                                      000000   79096800
096900+ *                                                                                                        000000   79096900
097000+ * (other parms are identical to those in HTTP_url_post())                                                000000   79097000
097100+ *                                                                                                        000000   79097100
097200+ * peStartProc should point to a procedure with a procedure                                               000000   79097200
097300+ * interface that's compatable with the following:                                                        000000   79097300
097400+ *                                                                                                        000000   79097400
097500+ *  D StartProc       PR                                                                                  000000   79097500
097600+ *  D   userdata                      *   value                                                           000000   79097600
097700+ *  D   depth                       10I 0 value                                                           000000   79097700
097800+ *  D   name                      1024A   varying const                                                   000000   79097800
097900+ *  D   path                     24576A   varying const                                                   000000   79097900
098000+ *  D   attrs                         *   dim(32767)                                                      000000   79098000
098100+ *  D                                     const options(*varsize)                                         000000   79098100
098200+ *                                                                                                        000000   79098200
098300+ * peEndProc should point to a procedure with a procedure                                                 000000   79098300
098400+ * interface that's compatable with the following:                                                        000000   79098400
098500+ *                                                                                                        000000   79098500
098600+ *  D EndProc         PR                                                                                  000000   79098600
098700+ *  D   userdata                      *   value                                                           000000   79098700
098800+ *  D   depth                       10I 0 value                                                           000000   79098800
098900+ *  D   name                      1024A   varying const                                                   000000   79098900
099000+ *  D   path                     24576A   varying const                                                   000000   79099000
099100+ *  D   value                    32767A   varying const                                                   000000   79099100
099200+ *  D   attrs                         *   dim(32767)                                                      000000   79099200
099300+ *  D                                     const options(*varsize)                                         000000   79099300
099400+ *                                                                                                        000000   79099400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    262
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
099500+ *  Returns 1 if successful, -1 upon error, 0 if timeout                                                  000000   79099500
099600+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79099600
099700+D http_post_xml...                                                                                        000000   79099700
099800+D                 PR            10I 0 EXTPROC('HTTP_URL_POST_XML')                                        000000   79099800
099900+D  peURL                     32767A   varying const options(*varsize)                               1     000000   79099900
100000+D  pePostData                     *   value                                                         2     000000   79100000
100100+D  pePostDataLen                10I 0 value                                                         3     000000   79100100
100200+D  peStartProc                    *   value procptr                                                 4     000000   79100200
100300+D  peEndProc                      *   value procptr                                                 5     000000   79100300
100400+D  peUsrDta                       *   value                                                         6     000000   79100400
100500+D  peTimeout                    10I 0 value options(*nopass)                                        7     000000   79100500
100600+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79100600
            LINES EXCLUDED: 3
101000+ /else                                                                                                    000000   79101000
101100+D  peUserAgent               16384A   varying const                                                 8     000000   79101100
101200+D                                     options(*nopass:*omit)                                              000000   79101200
101300+D  peContentType             16384A   varying const                                                 9     000000   79101300
101400+D                                     options(*nopass:*omit)                                              000000   79101400
101500+D  peSOAPAction              16384A   varying const                                                       000000   79101500
101600+D                                     options(*nopass:*omit)                                              000000   79101600
101700+ /endif                                                                                                   000000   79101700
101800+D http_url_post_xml...                                                                                    000000   79101800
101900+D                 PR            10I 0                                                                     000000   79101900
102000+D  peURL                     32767A   varying const options(*varsize)                                     000000   79102000
102100+D  pePostData                     *   value                                                               000000   79102100
102200+D  pePostDataLen                10I 0 value                                                               000000   79102200
102300+D  peStartProc                    *   value procptr                                                       000000   79102300
102400+D  peEndProc                      *   value procptr                                                       000000   79102400
102500+D  peUsrDta                       *   value                                                               000000   79102500
102600+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79102600
102700+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79102700
            LINES EXCLUDED: 3
103100+ /else                                                                                                    000000   79103100
103200+D  peUserAgent               16384A   varying const                                                       000000   79103200
103300+D                                     options(*nopass:*omit)                                              000000   79103300
103400+D  peContentType             16384A   varying const                                                       000000   79103400
103500+D                                     options(*nopass:*omit)                                              000000   79103500
103600+D  peSOAPAction              16384A   varying const                                                       000000   79103600
103700+D                                     options(*nopass:*omit)                                              000000   79103700
103800+ /endif                                                                                                   000000   79103800
103900+                                                                                                          000000   79103900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    263
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
104000+                                                                                                          000000   79104000
104100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79104100
104200+ *  http_post_xmltf(): Post data from memory. Receive                                                     000000   79104200
104300+ *        response to temporary file, then parse it.                                                      000000   79104300
104400+ *                                                                                                        000000   79104400
104500+ *          peURL = (input) URL to perform GET request to                                                 000000   79104500
104600+ *     pePostData = (input) data to POST to the web server                                                000000   79104600
104700+ *  pePostDataLen = (input) length of pePostData                                                          000000   79104700
104800+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79104800
104900+ *                       of each XML element received.                                                    000000   79104900
105000+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79105000
105100+ *                       of each XML element received.                                                    000000   79105100
105200+ *       peUsrDta = (input) user-defined data that will be passed                                         000000   79105200
105300+ *                          to the call-back routine                                                      000000   79105300
105400+ *                                                                                                        000000   79105400
105500+ * (other parms are identical to those in HTTP_url_post())                                                000000   79105500
105600+ *                                                                                                        000000   79105600
105700+ *  Returns 1 if successful, -1 upon error, 0 if timeout                                                  000000   79105700
105800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79105800
105900+D http_post_xmltf...                                                                                      000000   79105900
106000+D                 PR            10I 0                                                                     000000   79106000
106100+D  peURL                     32767A   varying const options(*varsize)                                     000000   79106100
106200+D  pePostData                     *   value                                                               000000   79106200
106300+D  pePostDataLen                10I 0 value                                                               000000   79106300
106400+D  peStartProc                    *   value procptr                                                       000000   79106400
106500+D  peEndProc                      *   value procptr                                                       000000   79106500
106600+D  peUsrDta                       *   value                                                               000000   79106600
106700+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79106700
106800+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79106800
            LINES EXCLUDED: 3
107200+ /else                                                                                                    000000   79107200
107300+D  peUserAgent               16384A   varying const                                                       000000   79107300
107400+D                                     options(*nopass:*omit)                                              000000   79107400
107500+D  peContentType             16384A   varying const                                                       000000   79107500
107600+D                                     options(*nopass:*omit)                                              000000   79107600
107700+D  peSOAPAction              16384A   varying const                                                       000000   79107700
107800+D                                     options(*nopass:*omit)                                              000000   79107800
107900+ /endif                                                                                                   000000   79107900
108000+                                                                                                          000000   79108000
108100+                                                                                                          000000   79108100
108200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79108200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    264
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
108300+ *  http_post_stmf_xml();                                                                                 000000   79108300
108400+ *  http_url_post_stmf_xml(): Post data to CGI script from stream file                                    000000   79108400
108500+ *        and receive/parse an XML response                                                               000000   79108500
108600+ *                                                                                                        000000   79108600
108700+ *       peURL = (input) URL to post to                                                                   000000   79108700
108800+ *  pePostFile = (input) File of stream file (in IFS) to post                                             000000   79108800
108900+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79108900
109000+ *                       of each XML element received.                                                    000000   79109000
109100+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79109100
109200+ *                       of each XML element received.                                                    000000   79109200
109300+ *    peUsrDta = (input) user-defined data that will be passed                                            000000   79109300
109400+ *                          to the call-back routine                                                      000000   79109400
109500+ *  peTimeout  = (optional) give up if no data is received for                                            000000   79109500
109600+ *                       this many seconds.                                                               000000   79109600
109700+ * peUserAgent = (optional) User-Agent string passed to the                                               000000   79109700
109800+ *            server.  Pass the named constant HTTP_USERAGENT                                             000000   79109800
109900+ *            if you want to get the default value.                                                       000000   79109900
110000+ * peContentType = (optional) content type to supply (mainly                                              000000   79110000
110100+ *                       useful when talking to CGI scripts)                                              000000   79110100
110200+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79110200
110300+ *          taken by some SOAP applications.                                                              000000   79110300
110400+ *          - pass *blanks to send an empty SoapAction.                                                   000000   79110400
110500+ *          - pass *omit (or don't pass the parm at all) if                                               000000   79110500
110600+ *             you don't want a SoapAction header to be sent.                                             000000   79110600
110700+ *                                                                                                        000000   79110700
110800+ *  Returns  -1 upon failure, 0 upon timeout,                                                             000000   79110800
110900+ *            1 for success, or an HTTP response code                                                     000000   79110900
111000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79111000
111100+D http_post_stmf_xml...                                                                                   000000   79111100
111200+D                 PR            10I 0 extproc('HTTP_URL_POST_STMF_XML')                                   000000   79111200
111300+D  peURL                     32767A   varying const options(*varsize)                                     000000   79111300
111400+D  pePostFile                32767A   varying const options(*varsize)                                     000000   79111400
111500+D  peStartProc                    *   value procptr                                                       000000   79111500
111600+D  peEndProc                      *   value procptr                                                       000000   79111600
111700+D  peUsrDta                       *   value                                                               000000   79111700
111800+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79111800
111900+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79111900
            LINES EXCLUDED: 3
112300+ /else                                                                                                    000000   79112300
112400+D  peUserAgent               16384A   varying const                                                       000000   79112400
112500+D                                     options(*nopass:*omit)                                              000000   79112500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    265
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
112600+D  peContentType             16384A   varying const                                                       000000   79112600
112700+D                                     options(*nopass:*omit)                                              000000   79112700
112800+D  peSOAPAction              16384A   varying const                                                       000000   79112800
112900+D                                     options(*nopass:*omit)                                              000000   79112900
113000+ /endif                                                                                                   000000   79113000
113100+D http_url_post_stmf_xml...                                                                               000000   79113100
113200+D                 PR            10I 0                                                                     000000   79113200
113300+D  peURL                     32767A   varying const options(*varsize)                                     000000   79113300
113400+D  pePostFile                32767A   varying const options(*varsize)                                     000000   79113400
113500+D  peStartProc                    *   value procptr                                                       000000   79113500
113600+D  peEndProc                      *   value procptr                                                       000000   79113600
113700+D  peUsrDta                       *   value                                                               000000   79113700
113800+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79113800
113900+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79113900
            LINES EXCLUDED: 3
114300+ /else                                                                                                    000000   79114300
114400+D  peUserAgent               16384A   varying const                                                       000000   79114400
114500+D                                     options(*nopass:*omit)                                              000000   79114500
114600+D  peContentType             16384A   varying const                                                       000000   79114600
114700+D                                     options(*nopass:*omit)                                              000000   79114700
114800+D  peSOAPAction              16384A   varying const                                                       000000   79114800
114900+D                                     options(*nopass:*omit)                                              000000   79114900
115000+ /endif                                                                                                   000000   79115000
115100+                                                                                                          000000   79115100
115200+                                                                                                          000000   79115200
115300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79115300
115400+ *  http_post_stmf_xmltf(): Post data from stream file.  Receive                                          000000   79115400
115500+ *        response to temporary file, then parse it.                                                      000000   79115500
115600+ *                                                                                                        000000   79115600
115700+ *       peURL = (input) URL to post to                                                                   000000   79115700
115800+ *  pePostFile = (input) File of stream file (in IFS) to post                                             000000   79115800
115900+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79115900
116000+ *                       of each XML element received.                                                    000000   79116000
116100+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79116100
116200+ *                       of each XML element received.                                                    000000   79116200
116300+ *    peUsrDta = (input) user-defined data that will be passed                                            000000   79116300
116400+ *                          to the call-back routine                                                      000000   79116400
116500+ *  peTimeout  = (optional) give up if no data is received for                                            000000   79116500
116600+ *                       this many seconds.                                                               000000   79116600
116700+ * peContentType = (optional) content type to supply (mainly                                              000000   79116700
116800+ *                       useful when talking to CGI scripts)                                              000000   79116800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    266
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
116900+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79116900
117000+ *          taken by some SOAP applications.                                                              000000   79117000
117100+ *          - pass *blanks to send an empty SoapAction.                                                   000000   79117100
117200+ *          - pass *omit (or don't pass the parm at all) if                                               000000   79117200
117300+ *             you don't want a SoapAction header to be sent.                                             000000   79117300
117400+ *                                                                                                        000000   79117400
117500+ *  Returns  -1 upon failure, 0 upon timeout,                                                             000000   79117500
117600+ *            1 for success, or an HTTP response code                                                     000000   79117600
117700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79117700
117800+D http_post_stmf_xmltf...                                                                                 000000   79117800
117900+D                 PR            10I 0                                                                     000000   79117900
118000+D  peURL                     32767A   varying const options(*varsize)                                     000000   79118000
118100+D  pePostFile                32767A   varying const options(*varsize)                                     000000   79118100
118200+D  peStartProc                    *   value procptr                                                       000000   79118200
118300+D  peEndProc                      *   value procptr                                                       000000   79118300
118400+D  peUsrDta                       *   value                                                               000000   79118400
118500+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79118500
118600+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79118600
            LINES EXCLUDED: 3
119000+ /else                                                                                                    000000   79119000
119100+D  peUserAgent               16384A   varying const                                                       000000   79119100
119200+D                                     options(*nopass:*omit)                                              000000   79119200
119300+D  peContentType             16384A   varying const                                                       000000   79119300
119400+D                                     options(*nopass:*omit)                                              000000   79119400
119500+D  peSOAPAction              16384A   varying const                                                       000000   79119500
119600+D                                     options(*nopass:*omit)                                              000000   79119600
119700+ /endif                                                                                                   000000   79119700
119800+                                                                                                          000000   79119800
119900+                                                                                                          000000   79119900
120000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79120000
120100+ *  http_persist_open(): Open a persistent HTTP session                                                   000000   79120100
120200+ *                                                                                                        000000   79120200
120300+ *       peURL = url to connect to                                                                        000000   79120300
120400+ *  peTimeout  = (optional) give up if no data is received for                                            000000   79120400
120500+ *          this many seconds.                                                                            000000   79120500
120600+ *                                                                                                        000000   79120600
120700+ *  Returns *NULL upon failure, or                                                                        000000   79120700
120800+ *          pointer to HTTP communication session                                                         000000   79120800
120900+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79120900
121000+D http_persist_open...                                                                                    000000   79121000
121100+D                 PR              *                                                                       000000   79121100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    267
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
121200+D  peURL                     32767A   varying const options(*varsize)                                     000000   79121200
121300+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79121300
121400+                                                                                                          000000   79121400
121500+                                                                                                          000000   79121500
121600+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79121600
121700+ *  http_persist_get(): Get a file using a persistent HTTP session                                        000000   79121700
121800+ *                                                                                                        000000   79121800
121900+ *         peComm = (input) pointer to persistent HTTP comm session                                       000000   79121900
122000+ *          peURL = (input) URL to get from persistent HTTP                                               000000   79122000
122100+ *           peFD = (input) FD to pass back to peProc                                                     000000   79122100
122200+ *         peProc = (input) procedure to call each time data is                                           000000   79122200
122300+ *                          received.                                                                     000000   79122300
122400+ *      peTimeout = (input/optional) time-out when no data is received                                    000000   79122400
122500+ *                          for this many seconds.                                                        000000   79122500
122600+ *    peUserAgent = (optional) User-Agent string passed to the                                            000000   79122600
122700+ *                          server.  Pass the named constant called                                       000000   79122700
122800+ *                          HTTP_USERAGENT if you want to get the                                         000000   79122800
122900+ *                          default value.                                                                000000   79122900
123000+ *      peModTime = (input/optional) only get file if it was changed                                      000000   79123000
123100+ *                          since this timestamp.                                                         000000   79123100
123200+ *  peContentType = (input/optional) content type to supply (mainly                                       000000   79123200
123300+ *                          useful when talking to CGI scripts)                                           000000   79123300
123400+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79123400
123500+ *                          taken by some SOAP applications.                                              000000   79123500
123600+ *                - pass *blanks to send an empty SoapAction.                                             000000   79123600
123700+ *                - pass *omit (or don't pass the parm at all) if                                         000000   79123700
123800+ *                    you don't want a SoapAction header to be sent.                                      000000   79123800
123900+ *                                                                                                        000000   79123900
124000+ *  Returns  1 if successful,                                                                             000000   79124000
124100+ *           0 if timed out                                                                               000000   79124100
124200+ *          -1 if an internal error occurs                                                                000000   79124200
124300+ *          or an HTTP response code if an error comes from the server                                    000000   79124300
124400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79124400
124500+D http_persist_get...                                                                                     000000   79124500
124600+D                 PR            10I 0                                                                     000000   79124600
124700+D  peComm                         *   value                                                               000000   79124700
124800+D  peURL                     32767A   varying const options(*varsize)                                     000000   79124800
124900+D  peFD                         10I 0 value                                                               000000   79124900
125000+D  peProc                         *   value procptr                                                       000000   79125000
125100+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79125100
125200+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79125200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    268
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
            LINES EXCLUDED: 4
125700+ /else                                                                                                    000000   79125700
125800+D  peUserAgent               16384A   varying const                                                       000000   79125800
125900+D                                     options(*nopass:*omit)                                              000000   79125900
126000+D  peModTime                      Z   const options(*nopass:*omit)                                        000000   79126000
126100+D  peContentType             16384A   varying const                                                       000000   79126100
126200+D                                     options(*nopass:*omit)                                              000000   79126200
126300+D  peSOAPAction              16384A   varying const                                                       000000   79126300
126400+D                                     options(*nopass:*omit)                                              000000   79126400
126500+ /endif                                                                                                   000000   79126500
126600+                                                                                                          000000   79126600
126700+                                                                                                          000000   79126700
126800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79126800
126900+ *  http_persist_post(): Post data to CGI script and get document                                         000000   79126900
127000+ *                       using a persistent connection                                                    000000   79127000
127100+ *                                                                                                        000000   79127100
127200+ *         peComm = (input) pointer to persistent HTTP comm session                                       000000   79127200
127300+ *          peURL = (input) URL to post to with persistent HTTP                                           000000   79127300
127400+ * --------                                                                                               000000   79127400
127500+ *       pePostFD = (input) Opaque integer to pass to pePostProc                                          000000   79127500
127600+ *     pePostProc = (input) Pointer to call-back procedure for                                            000000   79127600
127700+ *                          posting data to server.  If you pass                                          000000   79127700
127800+ *                          *NULL for this, you should use pePostData                                     000000   79127800
127900+ *                          instead.                                                                      000000   79127900
128000+ * -- or --                                                                                               000000   79128000
128100+ *     pePostData = (input) Pointer to data to post.  If you pass                                         000000   79128100
128200+ *                          *NULL for this, you should use pePostProc                                     000000   79128200
128300+ *                          instead.                                                                      000000   79128300
128400+ * --------                                                                                               000000   79128400
128500+ *  pePostDataLen = (input) Total length, in bytes, of post data.                                         000000   79128500
128600+ *       peSaveFD = (input) Opaque integer passed to peSaveProc                                           000000   79128600
128700+ *     peSaveProc = (input) Pointer to call-back procedure that is                                        000000   79128700
128800+ *                          called when data is received from HTTP                                        000000   79128800
128900+ *                          server.                                                                       000000   79128900
129000+ *      peTimeout = (input/optional) time-out when no data is received                                    000000   79129000
129100+ *                          for this many seconds.                                                        000000   79129100
129200+ *    peUserAgent = (optional) User-Agent string passed to the                                            000000   79129200
129300+ *                          server.  Pass the named constant called                                       000000   79129300
129400+ *                          HTTP_USERAGENT if you want to get the                                         000000   79129400
129500+ *                          default value.                                                                000000   79129500
129600+ *  peContentType = (input/optional) content type to supply (mainly                                       000000   79129600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    269
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
129700+ *                          useful when talking to CGI scripts)                                           000000   79129700
129800+ *  peSOAPAction = (optional) string used to specify the action                                           000000   79129800
129900+ *                          taken by some SOAP applications.                                              000000   79129900
130000+ *                - pass *blanks to send an empty SoapAction.                                             000000   79130000
130100+ *                - pass *omit (or don't pass the parm at all) if                                         000000   79130100
130200+ *                    you don't want a SoapAction header to be sent.                                      000000   79130200
130300+ *                                                                                                        000000   79130300
130400+ *  Returns  1 if successful,                                                                             000000   79130400
130500+ *           0 if timed out                                                                               000000   79130500
130600+ *          -1 if an internal error occurs                                                                000000   79130600
130700+ *          or an HTTP response code if an error comes from the server                                    000000   79130700
130800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79130800
130900+D http_persist_post...                                                                                    000000   79130900
131000+D                 PR            10I 0                                                                     000000   79131000
131100+D  peComm                         *   value                                                               000000   79131100
131200+D  peURL                     32767A   varying const options(*varsize)                                     000000   79131200
131300+D  pePostFD                     10I 0 value                                                               000000   79131300
131400+D  pePostProc                     *   value procptr                                                       000000   79131400
131500+D  pePostData                     *   value                                                               000000   79131500
131600+D  pePostDataLen                10I 0 value                                                               000000   79131600
131700+D  peSaveFD                     10I 0 value                                                               000000   79131700
131800+D  peSaveProc                     *   value procptr                                                       000000   79131800
131900+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79131900
132000+ /if defined(HTTP_ORIG_SHORTFIELD)                                                                        000000   79132000
            LINES EXCLUDED: 3
132400+ /else                                                                                                    000000   79132400
132500+D  peUserAgent               16384A   varying const                                                       000000   79132500
132600+D                                     options(*nopass:*omit)                                              000000   79132600
132700+D  peContentType             16384A   varying const                                                       000000   79132700
132800+D                                     options(*nopass:*omit)                                              000000   79132800
132900+D  peSOAPAction              16384A   varying const                                                       000000   79132900
133000+D                                     options(*nopass:*omit)                                              000000   79133000
133100+ /endif                                                                                                   000000   79133100
133200+                                                                                                          000000   79133200
133300+                                                                                                          000000   79133300
133400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79133400
133500+ *  http_persist_req(): Perform (any) Persistent HTTP Request                                             000000   79133500
133600+ *                                                                                                        000000   79133600
133700+ *       peMethod = (input) Operation to perform. Should be one of:                                       000000   79133700
133800+ *                          'GET', 'DELETE', 'PUT', 'POST', 'HEAD'                                        000000   79133800
133900+ *         peComm = (input) pointer to persistent HTTP comm session                                       000000   79133900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    270
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
134000+ *          peURL = (input) URL of resource to perform operation on                                       000000   79134000
134100+ * --------                                                                                               000000   79134100
134200+ *        peUplFd = (input) Opaque integer to pass to peUplProc                                           000000   79134200
134300+ *      peUplProc = (input) Pointer to call-back procedure for                                            000000   79134300
134400+ *                          sending upload data to server during                                          000000   79134400
134500+ *                          PUT or POST requests. If this is null,                                        000000   79134500
134600+ *                          peUplData will be used, instead.                                              000000   79134600
134700+ * -- or --                                                                                               000000   79134700
134800+ *      peUplData = (input) Pointer to data to upload in a PUT/POST                                       000000   79134800
134900+ *                          request. If this is null, peUplProc will                                      000000   79134900
135000+ *                          be used, instead.                                                             000000   79135000
135100+ *   peUplDataLen = (input) Total length, in bytes, of peUplData                                          000000   79135100
135200+ * --------                                                                                               000000   79135200
135300+ *       peSaveFD = (input) Opaque integer passed to peSaveProc                                           000000   79135300
135400+ *     peSaveProc = (input) Pointer to call-back procedure that is                                        000000   79135400
135500+ *                          called when data is received from HTTP                                        000000   79135500
135600+ *                          server.                                                                       000000   79135600
135700+ *      peTimeout = (input/optional) time-out when no data is received                                    000000   79135700
135800+ *                          for this many seconds.                                                        000000   79135800
135900+ *  peContentType = (input/optional) content type to supply (mainly                                       000000   79135900
136000+ *                          useful when talking to CGI scripts)                                           000000   79136000
136100+ *   peSOAPAction = (input/optional) string to send in the SOAPAction:                                    000000   79136100
136200+ *                          HTTP header when making a SOAP request.                                       000000   79136200
136300+ *      peModTime = (input/optional) only download file if it has                                         000000   79136300
136400+ *                          changed since (this timestamp).                                               000000   79136400
136500+ *                                                                                                        000000   79136500
136600+ *  Returns  1 if successful,                                                                             000000   79136600
136700+ *           0 if timed out                                                                               000000   79136700
136800+ *          -1 if an internal error occurs                                                                000000   79136800
136900+ *          or an HTTP response code if an error comes from the server                                    000000   79136900
137000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79137000
137100+D http_persist_req...                                                                                     000000   79137100
137200+D                 PR            10I 0                                                                     000000   79137200
137300+D  peMethod                     10a   varying const                                                       000000   79137300
137400+D  peComm                         *   value                                                               000000   79137400
137500+D  peURL                     32767A   varying const options(*varsize)                                     000000   79137500
137600+D  peUplFD                      10I 0 value                                                               000000   79137600
137700+D  peUplProc                      *   value procptr                                                       000000   79137700
137800+D  peUplData                      *   value                                                               000000   79137800
137900+D  peUplDataLen                 10I 0 value                                                               000000   79137900
138000+D  peSaveFD                     10I 0 value                                                               000000   79138000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    271
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
138100+D  peSaveProc                     *   value procptr                                                       000000   79138100
138200+D  peTimeout                    10I 0 value options(*nopass)                                              000000   79138200
138300+D  peUserAgent               16384A   varying const                                                       000000   79138300
138400+D                                     options(*nopass:*omit)                                              000000   79138400
138500+D  peContentType             16384A   varying const                                                       000000   79138500
138600+D                                     options(*nopass:*omit)                                              000000   79138600
138700+D  peSoapAction              32767A   varying const                                                       000000   79138700
138800+D                                     options(*nopass:*omit)                                              000000   79138800
138900+D  peModTime                      Z   const options(*nopass:*omit)                                        000000   79138900
139000+                                                                                                          000000   79139000
139100+                                                                                                          000000   79139100
139200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79139200
139300+ *  http_persist_close(): End a persistent HTTP session                                                   000000   79139300
139400+ *                                                                                                        000000   79139400
139500+ *     peComm = (input) pointer to persistent HTTP comm session                                           000000   79139500
139600+ *                                                                                                        000000   79139600
139700+ *  returns 0 if successful, -1 otherwise                                                                 000000   79139700
139800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79139800
139900+D http_persist_close...                                                                                   000000   79139900
140000+D                 PR            10I 0                                                                     000000   79140000
140100+D  peComm                         *   value                                                               000000   79140100
140200+                                                                                                          000000   79140200
140300+                                                                                                          000000   79140300
140400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79140400
140500+ * http_mfd_encoder_open(): Create a multipart/form-data encoder                                          000000   79140500
140600+ *                                                                                                        000000   79140600
140700+ * A multipart/form-data encoder will encode the variables                                                000000   79140700
140800+ * and or stream files that you pass to it and store the results                                          000000   79140800
140900+ * in a stream file.  You can later POST those results with the                                           000000   79140900
141000+ * http_url_post_stmf() API.                                                                              000000   79141000
141100+ *                                                                                                        000000   79141100
141200+ *   peStmFile = (input) pathname to stream file to store                                                 000000   79141200
141300+ *               encoded results.                                                                         000000   79141300
141400+ *                                                                                                        000000   79141400
141500+ *   returns an (opaque) pointer to the new encoder                                                       000000   79141500
141600+ *           or *NULL upon error.                                                                         000000   79141600
141700+ *                                                                                                        000000   79141700
141800+ * WARNING: To free the memory used by this routine and close                                             000000   79141800
141900+ *          the stream file, you MUST call http_mfd_encoder_close()                                       000000   79141900
142000+ *          after the data is sent.                                                                       000000   79142000
142100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79142100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    272
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
142200+D http_mfd_encoder_open...                                                                                000000   79142200
142300+D                 PR              *                                                                       000000   79142300
142400+D  peStmFile                      *   value options(*string)                                              000000   79142400
142500+D  peContType                   64A                                                                       000000   79142500
142600+                                                                                                          000000   79142600
142700+                                                                                                          000000   79142700
142800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79142800
142900+ * http_mfd_encoder_addvar():  Add a variable to what's stored                                            000000   79142900
143000+ *          a multipart/form-data encoder.                                                                000000   79143000
143100+ *                                                                                                        000000   79143100
143200+ *    peEncoder = pointer to encoder created by the                                                       000000   79143200
143300+ *                  http_mfd_encoder_open() routine                                                       000000   79143300
143400+ *   peVariable = variable name to add                                                                    000000   79143400
143500+ *       peData = pointer to data to store in variable                                                    000000   79143500
143600+ *   peDataSize = size of data to store in variable                                                       000000   79143600
143700+ *                                                                                                        000000   79143700
143800+ * Returns *ON if successful, *OFF otherwise.                                                             000000   79143800
143900+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79143900
144000+D http_mfd_encoder_addvar...                                                                              000000   79144000
144100+D                 PR             1N                                                                       000000   79144100
144200+D    peEncoder                    *   value                                                               000000   79144200
144300+D    peVariable                 50A   varying value                                                       000000   79144300
144400+D    peData                       *   value                                                               000000   79144400
144500+D    peDataSize                 10I 0 value                                                               000000   79144500
144600+                                                                                                          000000   79144600
144700+                                                                                                          000000   79144700
144800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79144800
144900+ * http_mfd_encoder_addvar_s():  Simplified (but limited)                                                 000000   79144900
145000+ *       interface to http_mfd_encoder_addvar().                                                          000000   79145000
145100+ *                                                                                                        000000   79145100
145200+ *    peEncoder = (input) HTTP_mfd_encoder object                                                         000000   79145200
145300+ *   peVariable = (input) variable name to set                                                            000000   79145300
145400+ *      peValue = (input) value to set variable to                                                        000000   79145400
145500+ *                                                                                                        000000   79145500
145600+ * Returns *ON if successful, *OFF otherwise                                                              000000   79145600
145700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79145700
145800+D http_mfd_encoder_addvar_s...                                                                            000000   79145800
145900+D                 PR             1N                                                                       000000   79145900
146000+D    peEncoder                    *   value                                                               000000   79146000
146100+D    peVariable                 50A   varying value                                                       000000   79146100
146200+D    peValue                   256A   varying value                                                       000000   79146200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    273
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
146300+                                                                                                          000000   79146300
146400+                                                                                                          000000   79146400
146500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79146500
146600+ * http_mfd_encoder_addstmf(): Add a stream file to what's stored                                         000000   79146600
146700+ *       in a multipart/form-data encoder.                                                                000000   79146700
146800+ *                                                                                                        000000   79146800
146900+ *    peEncoder = pointer to encoder created by the                                                       000000   79146900
147000+ *                  http_mfd_encoder_open() routine                                                       000000   79147000
147100+ *   peVariable = variable name to add                                                                    000000   79147100
147200+ *   pePathName = Path name of stream file to add                                                         000000   79147200
147300+ *   peContType = Content-type of stream file to add                                                      000000   79147300
147400+ *                                                                                                        000000   79147400
147500+ * Returns *ON if successful, *OFF otherwise.                                                             000000   79147500
147600+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79147600
147700+D http_mfd_encoder_addstmf...                                                                             000000   79147700
147800+D                 PR             1N                                                                       000000   79147800
147900+D    peEncoder                    *   value                                                               000000   79147900
148000+D    peVariable                 50A   varying value                                                       000000   79148000
148100+D    pePathName                   *   value options(*string)                                              000000   79148100
148200+D    peContType                 64A   varying const                                                       000000   79148200
148300+                                                                                                          000000   79148300
148400+                                                                                                          000000   79148400
148500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79148500
148600+ * http_mfd_encoder_close():  close an open multipart/form-data                                           000000   79148600
148700+ *                            encoder.                                                                    000000   79148700
148800+ *                                                                                                        000000   79148800
148900+ *     peEncoder = (input) encoder to close                                                               000000   79148900
149000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79149000
149100+D http_mfd_encoder_close...                                                                               000000   79149100
149200+D                 PR                                                                                      000000   79149200
149300+D  peEncoder                      *   value                                                               000000   79149300
149400+                                                                                                          000000   79149400
149500+                                                                                                          000000   79149500
149600+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79149600
149700+ * http_debug():  Turn debugging info *ON or *OFF                                                         000000   79149700
149800+ *                                                                                                        000000   79149800
149900+ *      peStatus = (input) status (either *ON or *OFF)                                                    000000   79149900
150000+ *                                                                                                        000000   79150000
150100+ *    peFilename = (input/optional) filename that debug info will be                                      000000   79150100
150200+ *                    written to.  If not defined, the value from                                         000000   79150200
150300+ *                    CONFIG_H is used.                                                                   000000   79150300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    274
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
150400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79150400
150500+D http_debug      PR                                                                                      000000   79150500
150600+D   peStatus                     1N   const                                                               000000   79150600
150700+D   peFilename                 500A   varying const options(*nopass)                                      000000   79150700
150800+                                                                                                          000000   79150800
150900+                                                                                                          000000   79150900
151000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79151000
151100+ * HTTP_SetCCSIDs():  Set the CCSIDs used for ASCII/EBCDIC                                                000000   79151100
151200+ *                    translation                                                                         000000   79151200
151300+ *                                                                                                        000000   79151300
151400+ *     pePostRem = (input) Remote CCSID of POST data                                                      000000   79151400
151500+ *     pePostLoc = (input) Local CCSID of POST data                                                       000000   79151500
151600+ *     peProtRem = (input) Remote CCSID of Protocol data                                                  000000   79151600
151700+ *     peProtLoc = (input) Local CCSID of Protocol data                                                   000000   79151700
151800+ *                                                                                                        000000   79151800
151900+ * Returns 0 if successful, -1 otherwise                                                                  000000   79151900
152000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79152000
152100+D HTTP_SetCCSIDs  PR            10I 0                                                                     000000   79152100
152200+D   pePostRem                   10I 0 value                                                               000000   79152200
152300+D   pePostLoc                   10I 0 value                                                               000000   79152300
152400+D   peProtRem                   10I 0 value options(*nopass)                                              000000   79152400
152500+D   peProtLoc                   10I 0 value options(*nopass)                                              000000   79152500
152600+                                                                                                          000000   79152600
152700+                                                                                                          000000   79152700
152800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79152800
152900+ * HTTP_SetTables():  Set the translation tables used for                                                 000000   79152900
153000+ *                    ASCII/EBCDIC translation                                                            000000   79153000
153100+ *                                                                                                        000000   79153100
153200+ *     peASCII  = (input) Table for converting to ASCII                                                   000000   79153200
153300+ *     peEBCDIC = (input) Table for converting to EBCDIC                                                  000000   79153300
153400+ *                                                                                                        000000   79153400
153500+ * Returns 0 if successful, -1 otherwise                                                                  000000   79153500
153600+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79153600
153700+D HTTP_SetTables  PR            10I 0                                                                     000000   79153700
153800+D   peASCII                     10A   const                                                               000000   79153800
153900+D   peEBCDIC                    10A   const                                                               000000   79153900
154000+                                                                                                          000000   79154000
154100+                                                                                                          000000   79154100
154200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79154200
154300+ * HTTP_SetFileCCSID(): Set the CCSID that downloaded stream                                              000000   79154300
154400+ *                      files get tagged with                                                             000000   79154400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    275
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
154500+ *                                                                                                        000000   79154500
154600+ *     peCCSID  = (input) New CCSID to assign                                                             000000   79154600
154700+ *                                                                                                        000000   79154700
154800+ * NOTE: HTTPAPI does not do *any* translation of downloaded                                              000000   79154800
154900+ *       data. It only sets this number as part of the file's                                             000000   79154900
155000+ *       attributes.  You can change it with the CHGATR CL                                                000000   79155000
155100+ *       command.                                                                                         000000   79155100
155200+ *                                                                                                        000000   79155200
155300+ * NOTE: The IFS did not support CCSIDs in V4R5 and earlier.                                              000000   79155300
155400+ *       On those releases, this API will be used to set the                                              000000   79155400
155500+ *       codepage rather than the CCSID.                                                                  000000   79155500
155600+ *                                                                                                        000000   79155600
155700+ * Returns 0 if successful, -1 otherwise                                                                  000000   79155700
155800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79155800
155900+D HTTP_SetfileCCSID...                                                                                    000000   79155900
156000+D                 PR                                                                                      000000   79156000
156100+D   peCCSID                     10I 0 value                                                               000000   79156100
156200+                                                                                                          000000   79156200
156300+                                                                                                          000000   79156300
156400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79156400
156500+ * HTTP_xlate():  Translate data from ASCII <--> EBCDIC                                                   000000   79156500
156600+ *                                                                                                        000000   79156600
156700+ *       peSize = (input) Size of data to translate                                                       000000   79156700
156800+ *       peData = (input) Data                                                                            000000   79156800
156900+ *  peDirection = (input) can be set to the TO_ASCII or                                                   000000   79156900
157000+ *                         TO_EBCDIC constant.                                                            000000   79157000
157100+ *                                                                                                        000000   79157100
157200+ * Returns 0 if successful, -1 upon failure                                                               000000   79157200
157300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79157300
157400+D HTTP_xlate      PR            10I 0                                                                     000000   79157400
157500+D   peSize                      10I 0 value                                                               000000   79157500
157600+D   peData                   32766A   options(*varsize)                                                   000000   79157600
157700+D   peDirection                  1A   const                                                               000000   79157700
157800+                                                                                                          000000   79157800
157900+                                                                                                          000000   79157900
158000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79158000
158100+ * HTTP_xlatep(): Translate data from ASCII <--> EBCDIC                                                   000000   79158100
158200+ *                (using a pointer instead of a variable)                                                 000000   79158200
158300+ *                                                                                                        000000   79158300
158400+ *       peSize = (input) Size of data to translate                                                       000000   79158400
158500+ *       peData = (input) Data                                                                            000000   79158500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    276
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
158600+ *  peDirection = (input) can be set to the TO_ASCII or                                                   000000   79158600
158700+ *                         TO_EBCDIC constant.                                                            000000   79158700
158800+ *                                                                                                        000000   79158800
158900+ * Returns 0 if successful, -1 upon failure                                                               000000   79158900
159000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79159000
159100+D HTTP_xlatep     PR            10I 0                                                                     000000   79159100
159200+D   peSize                      10I 0 value                                                               000000   79159200
159300+D   peData                        *   value                                                               000000   79159300
159400+D   peDirection                  1A   const                                                               000000   79159400
159500+                                                                                                          000000   79159500
159600+                                                                                                          000000   79159600
159700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79159700
159800+ * HTTP_xlatedyn: Translate data from ASCII <--> EBCDIC                                                   000000   79159800
159900+ *                using a dynamically sized output buffer                                                 000000   79159900
160000+ *                                                                                                        000000   79160000
160100+ *      peSize = (input) size of data to translate                                                        000000   79160100
160200+ *      peData = (input) pointer to data to translate                                                     000000   79160200
160300+ * peDirection = (input) TO_ASCII or TO_EBCDIC                                                            000000   79160300
160400+ *    peOutput = (output) address of newly allocated memory                                               000000   79160400
160500+ *                                                                                                        000000   79160500
160600+ * returns the length of the translated data or -1 upon failure                                           000000   79160600
160700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79160700
160800+D HTTP_xlatedyn   PR            10I 0                                                                     000000   79160800
160900+D   peSize                      10I 0 value                                                               000000   79160900
161000+D   peData                        *   value                                                               000000   79161000
161100+D   peDirection                  1A   const                                                               000000   79161100
161200+D   peOutput                      *                                                                       000000   79161200
161300+                                                                                                          000000   79161300
161400+                                                                                                          000000   79161400
161500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79161500
161600+ * http_set_100_timeout(): Set value for 100-continue timeouts.                                           000000   79161600
161700+ *                                                                                                        000000   79161700
161800+ * HTTP's POST/PUT operations have a feature to let you detect                                            000000   79161800
161900+ * where your request URI is valid prior to uploading a document                                          000000   79161900
162000+ * body (such as POST data or a file upload).                                                             000000   79162000
162100+ *                                                                                                        000000   79162100
162200+ * HTTPAPI can send "Expect: 100-continue" and the server should                                          000000   79162200
162300+ * reply with status 100 to indicate that the upload should proceed                                       000000   79162300
162400+ * or else provide an error message if the upload should not proceed.                                     000000   79162400
162500+ *                                                                                                        000000   79162500
162600+ * Despite being a part of the HTTP/1.1 protocol standard, many                                           000000   79162600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    277
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
162700+ * servers do not implement this properly.                                                                000000   79162700
162800+ *                                                                                                        000000   79162800
162900+ * Therefore:                                                                                             000000   79162900
163000+ *    a) You may set the timeout to 0. HTTPAPI will not attempt                                           000000   79163000
163100+ *         to use the 100-continue feature.                                                               000000   79163100
163200+ *    b) You may set the timeout to a low value, so that HTTPAPI                                          000000   79163200
163300+ *         will use the feature if possible, but will time                                                000000   79163300
163400+ *         quickly if the feature isn't implemented                                                       000000   79163400
163500+ *    c) You may set the timeout to a higher value if you want                                            000000   79163500
163600+ *         to ensure that HTTPAPI always waits for it before                                              000000   79163600
163700+ *         sending an upload.                                                                             000000   79163700
163800+ *                                                                                                        000000   79163800
163900+ * The timeout value is expressed in seconds, and may range                                               000000   79163900
164000+ * from 0.001 (1 millisecond) to 9999999.999 (approx 116 days)                                            000000   79164000
164100+ * or 0 = don't wait at all.                                                                              000000   79164100
164200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79164200
164300+D http_set_100_timeout...                                                                                 000000   79164300
164400+D                 PR                                                                                      000000   79164400
164500+D   peTimeout                   10P 3 value                                                               000000   79164500
164600+                                                                                                          000000   79164600
164700+                                                                                                          000000   79164700
164800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79164800
164900+ * HTTP_xml_SetCCSIDs():  Set the CCSIDs used for ASCII/EBCDIC                                            000000   79164900
165000+ *                    translation for XML documents                                                       000000   79165000
165100+ *                                                                                                        000000   79165100
165200+ *     peRemote = (input) remote CCSID                                                                    000000   79165200
165300+ *     peLocal  = (input) local CCSID (can be 0 if you want                                               000000   79165300
165400+ *                 to use the CCSID of the current job)                                                   000000   79165400
165500+ *                                                                                                        000000   79165500
165600+ * Returns 0 if successful, -1 otherwise                                                                  000000   79165600
165700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                           000000   79165700
165800+D HTTP_xml_SetCCSIDs...                                                                                   000000   79165800
165900+D                 PR            10I 0                                                                     000000   79165900
166000+D   peRemote                    10I 0 value                                                               000000   79166000
166100+D   peLocal                     10I 0 value                                                               000000   79166100
166200+                                                                                                          000000   79166200
166300+                                                                                                          000000   79166300
166400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79166400
166500+ *  http_parse_xml_stmf(): Parse XML data directly from a stream file                                     000000   79166500
166600+ *                         (instead of downloading it from a server)                                      000000   79166600
166700+ *                                                                                                        000000   79166700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    278
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
166800+ *      peFile = (input) Stream file (in IFS) to read data from                                           000000   79166800
166900+ *     peCCSID = (input) CCSID of stream file,                                                            000000   79166900
167000+ *                    or HTTP_XML_CALC to attempt to calculate it                                         000000   79167000
167100+ *                       from the XML encoding                                                            000000   79167100
167200+ *                    or HTTP_STMF_CALC to use the stream file's                                          000000   79167200
167300+ *                       CCSID attribute.                                                                 000000   79167300
167400+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79167400
167500+ *                       of each XML element received.                                                    000000   79167500
167600+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79167600
167700+ *                       of each XML element received.                                                    000000   79167700
167800+ *    peUsrDta = (input) user-defined data that will be passed                                            000000   79167800
167900+ *                          to the call-back routine                                                      000000   79167900
168000+ *                                                                                                        000000   79168000
168100+ *  Returns  -1 upon failure, 0 if successful                                                             000000   79168100
168200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79168200
168300+D http_parse_xml_stmf...                                                                                  000000   79168300
168400+D                 PR            10I 0                                                                     000000   79168400
168500+D  peFile                    32767A   varying const options(*varsize)                                     000000   79168500
168600+D  peCCSID                      10I 0 value                                                               000000   79168600
168700+D  peStartProc                    *   value procptr                                                       000000   79168700
168800+D  peEndProc                      *   value procptr                                                       000000   79168800
168900+D  peUsrDta                       *   value                                                               000000   79168900
169000+                                                                                                          000000   79169000
169100+D HTTP_XML_CALC   C                   -1                                                                  000000   79169100
169200+D HTTP_STMF_CALC  C                   -2                                                                  000000   79169200
169300+                                                                                                          000000   79169300
169400+                                                                                                          000000   79169400
169500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79169500
169600+ * http_header():  retrieve the value of an HTTP header                                                   000000   79169600
169700+ *                                                                                                        000000   79169700
169800+ *      name = (input) name of header to look for                                                         000000   79169800
169900+ *       pos = (input/optional) position of header if there's                                             000000   79169900
170000+ *                 more than one with the same name                                                       000000   79170000
170100+ *                                                                                                        000000   79170100
170200+ * returns the value of the HTTP header, or '' if not found                                               000000   79170200
170300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79170300
170400+D http_header     PR         32500A   varying                                                             000000   79170400
170500+D   name                       256A   varying const                                                       000000   79170500
170600+D   pos                         10I 0 value options(*nopass)                                              000000   79170600
170700+                                                                                                          000000   79170700
170800+                                                                                                          000000   79170800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    279
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
170900+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79170900
171000+ * http_use_cookies(): Turns on/off HTTPAPI's cookie parsing and                                          000000   79171000
171100+ *                     caching routines.                                                                  000000   79171100
171200+ *                                                                                                        000000   79171200
171300+ *    peSetting = (input) *ON = HTTPAPI will read and send cookies                                        000000   79171300
171400+ *                       *OFF = HTTPAPI will ignore cookies                                               000000   79171400
171500+ *                              (has no affect on cookies supplied                                        000000   79171500
171600+ *                               via an exit procedure)                                                   000000   79171600
171700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79171700
171800+D http_use_cookies...                                                                                     000000   79171800
171900+D                 PR                                                                                      000000   79171900
172000+D   peSetting                    1N   const                                                               000000   79172000
172100+                                                                                                          000000   79172100
172200+                                                                                                          000000   79172200
172300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79172300
172400+ * http_cookie_file():  Set the name of the file that HTTPAPI                                             000000   79172400
172500+ *          will use to store cookies.                                                                    000000   79172500
172600+ *                                                                                                        000000   79172600
172700+ *    peFilename = (input) Filename (IFS path) to store cookie                                            000000   79172700
172800+ *                  data into.                                                                            000000   79172800
172900+ *     peSession = (input) include session cookies (temp cookies)                                         000000   79172900
173000+ *                  in cookie file?  Default = *OFF                                                       000000   79173000
173100+ *                                                                                                        000000   79173100
173200+ *  If the filename is set to '', or if you do not call this API,                                         000000   79173200
173300+ *  cookies will only be saved until the activation group is                                              000000   79173300
173400+ *  reclaimed.                                                                                            000000   79173400
173500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79173500
173600+D http_cookie_file...                                                                                     000000   79173600
173700+D                 PR                                                                                      000000   79173700
173800+D   peFilename                 256A   varying const                                                       000000   79173800
173900+D   peSession                    1n   const options(*nopass:*omit)                                        000000   79173900
174000+                                                                                                          000000   79174000
174100+                                                                                                          000000   79174100
174200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79174200
174300+ * http_comp(): Send a completion message                                                                 000000   79174300
174400+ *                                                                                                        000000   79174400
174500+ *      peMessage = message to send.                                                                      000000   79174500
174600+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79174600
174700+D http_comp       PR                                                                                      000000   79174700
174800+D   peMessage                  256A   const                                                               000000   79174800
174900+                                                                                                          000000   79174900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    280
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
175000+                                                                                                          000000   79175000
175100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79175100
175200+ * http_diag(): Send a diagnostic message                                                                 000000   79175200
175300+ *                                                                                                        000000   79175300
175400+ *      peMessage = message to send.                                                                      000000   79175400
175500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79175500
175600+D http_diag       PR                                                                                      000000   79175600
175700+D   peMessage                  256A   const                                                               000000   79175700
175800+                                                                                                          000000   79175800
175900+                                                                                                          000000   79175900
176000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79176000
176100+ * http_crash(): Send back an *ESCAPE message containing last                                             000000   79176100
176200+ *               error found in HTTPAPI.                                                                  000000   79176200
176300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79176300
176400+D http_crash      PR                                                                                      000000   79176400
176500+                                                                                                          000000   79176500
176600+                                                                                                          000000   79176600
176700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79176700
176800+ * http_tempfile():  Generate a unique temporary IFS file name                                            000000   79176800
176900+ *                                                                                                        000000   79176900
177000+ * returns the file name                                                                                  000000   79177000
177100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                     000000   79177100
177200+D http_tempfile   PR            40A   varying                                                             000000   79177200
177300+                                                                                                          000000   79177300
177400+                                                                                                          000000   79177400
177500+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79177500
177600+ * http_xmlns():  Enable XML Namespace processing                                                         000000   79177600
177700+ *                                                                                                        000000   79177700
177800+ *     peEnable = (input) *ON to enable parsing, *OFF to disable.                                         000000   79177800
177900+ *                        (it is disabled by default)                                                     000000   79177900
178000+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79178000
178100+D http_xmlns      PR                                                                                      000000   79178100
178200+D   peEnable                     1N   const                                                               000000   79178200
178300+                                                                                                          000000   79178300
178400+                                                                                                          000000   79178400
178500+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79178500
178600+ * http_XmlReturnPtr(): XML End Element Handler should return a                                           000000   79178600
178700+ *                      pointer to the full element value instead of                                      000000   79178700
178800+ *                      returning a VARYING character string.                                             000000   79178800
178900+ *                      (VARYING is limited to 64k)                                                       000000   79178900
179000+ *                                                                                                        000000   79179000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    281
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
179100+ *     peEnable = (input) *ON to return a pointer, *OFF to return                                         000000   79179100
179200+ *                        a VARYING string (*OFF = default)                                               000000   79179200
179300+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79179300
179400+D http_XmlReturnPtr...                                                                                    000000   79179400
179500+D                 PR                                                                                      000000   79179500
179600+D   peEnable                     1N   const                                                               000000   79179600
179700+                                                                                                          000000   79179700
179800+                                                                                                          000000   79179800
179900+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79179900
180000+ * http_XmlStripCRLF(): Enable stripping of CRLF characters                                               000000   79180000
180100+ *                                                                                                        000000   79180100
180200+ *     peEnable = (input) *ON to strip, *OFF to leave them in.                                            000000   79180200
180300+ *                        (they are stripped by default)                                                  000000   79180300
180400+ *                                                                                                        000000   79180400
180500+ * Note: To simplify your XML string manipulations, HTTPAPI                                               000000   79180500
180600+ *       strips CRLF characters from the response.  If you would                                          000000   79180600
180700+ *       prefer that they are left in the response, call this                                             000000   79180700
180800+ *       routine with a parameter of *OFF.                                                                000000   79180800
180900+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79180900
181000+D http_XmlStripCRLF...                                                                                    000000   79181000
181100+D                 PR                                                                                      000000   79181100
181200+D   peEnable                     1N   const                                                               000000   79181200
181300+                                                                                                          000000   79181300
181400+                                                                                                          000000   79181400
181500+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79181500
181600+ * http_parser_switch_cb(): delegates element processing to another                                       000000   79181600
181700+ *     set of start and end element callback procedures for the                                           000000   79181700
181800+ *     current element and its children.                                                                  000000   79181800
181900+ *                                                                                                        000000   79181900
182000+ *    peUsrDta = (input) user-defined data that will be passed to                                         000000   79182000
182100+ *                       the call-back routine. usuallay only that                                        000000   79182100
182200+ *                       portion of the curent user data is forwarded                                     000000   79182200
182300+ *                       to the new callback procedures that they are                                     000000   79182300
182400+ *                       responsible for.                                                                 000000   79182400
182500+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79182500
182600+ *                       of each XML element received.                                                    000000   79182600
182700+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79182700
182800+ *                       of each XML element received.                                                    000000   79182800
182900+ *                                                                                                        000000   79182900
183000+ *  Returns  -1 upon failure, 0 upon success                                                              000000   79183000
183100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79183100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    282
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
183200+D http_parser_switch_cb...                                                                                000000   79183200
183300+D                 PR            10I 0                                                                     000000   79183300
183400+D  peUsrDta                       *   value                                                               000000   79183400
183500+D  peStartProc                    *   value procptr                                                       000000   79183500
183600+D  peEndProc                      *   value procptr options(*nopass)                                      000000   79183600
183700+                                                                                                          000000   79183700
183800+                                                                                                          000000   79183800
183900+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79183900
184000+ * http_parser_get_start_cb(): returns the procedure pointer of                                           000000   79184000
184100+ *     the currently active start callback procedure.                                                     000000   79184100
184200+ *                                                                                                        000000   79184200
184300+ *  Returns procedure pointer of start callback procedure.                                                000000   79184300
184400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79184400
184500+D http_parser_get_start_cb...                                                                             000000   79184500
184600+D                 PR              *   procptr                                                             000000   79184600
184700+                                                                                                          000000   79184700
184800+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79184800
184900+ * http_parser_get_end_cb(): returns the procedure pointer of                                             000000   79184900
185000+ *     the currently active end callback procedure.                                                       000000   79185000
185100+ *                                                                                                        000000   79185100
185200+ *  Returns procedure pointer of end callback procedure.                                                  000000   79185200
185300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79185300
185400+D http_parser_get_end_cb...                                                                               000000   79185400
185500+D                 PR              *   procptr                                                             000000   79185500
185600+                                                                                                          000000   79185600
185700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79185700
185800+ * http_parser_get_userdata(): returns the procedure pointer of                                           000000   79185800
185900+ *     the currently active user data.                                                                    000000   79185900
186000+ *                                                                                                        000000   79186000
186100+ *  Returns procedure pointer of user data.                                                               000000   79186100
186200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                       000000   79186200
186300+D http_parser_get_userdata...                                                                             000000   79186300
186400+D                 PR              *                                                                       000000   79186400
186500+                                                                                                          000000   79186500
186600+                                                                                                          000000   79186600
186700+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79186700
186800+ * http_parse_xml_string():  Parse XML from an input string.                                              000000   79186800
186900+ *                         (instead of downloading it from a server)                                      000000   79186900
187000+ *                                                                                                        000000   79187000
187100+ *    peString = (input) Pointer to string                                                                000000   79187100
187200+ *       peLen = (input) Length of string to parse                                                        000000   79187200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    283
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
187300+ *     peCCSID = (input) CCSID of string to be parsed                                                     000000   79187300
187400+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79187400
187500+ *                       of each XML element received.                                                    000000   79187500
187600+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79187600
187700+ *                       of each XML element received.                                                    000000   79187700
187800+ *    peUsrDta = (input) user-defined data that will be passed                                            000000   79187800
187900+ *                          to the call-back routine                                                      000000   79187900
188000+ *                                                                                                        000000   79188000
188100+ *  Returns  -1 upon failure, 0 upon success                                                              000000   79188100
188200+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79188200
188300+D http_parse_xml_string...                                                                                000000   79188300
188400+D                 PR            10i 0                                                                     000000   79188400
188500+D  peString                       *   value                                                               000000   79188500
188600+D  peLen                        10I 0 value                                                               000000   79188600
188700+D  peCCSID                      10I 0 value                                                               000000   79188700
188800+D  peStartProc                    *   value procptr                                                       000000   79188800
188900+D  peEndProc                      *   value procptr                                                       000000   79188900
189000+D  peUsrDta                       *   value                                                               000000   79189000
189100+                                                                                                          000000   79189100
189200+                                                                                                          000000   79189200
189300+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79189300
189400+ * HTTP_nextXmlAttr():  Retrieve next XML attribute from attrs list                                       000000   79189400
189500+ *                                                                                                        000000   79189500
189600+ *      attrs = (input) attribute list to extract from                                                    000000   79189600
189700+ *        num = (i/o)   position in attribute list.  On first                                             000000   79189700
189800+ *                      call, set this to 1.  HTTPAPI will                                                000000   79189800
189900+ *                      increment this as it moves through the list                                       000000   79189900
190000+ *       name = (output) XML attribute name (from list)                                                   000000   79190000
190100+ *        val = (output) XML attribute value (from list)                                                  000000   79190100
190200+ *                                                                                                        000000   79190200
190300+ * Returns *ON normally, *OFF if there's no more attributes to read                                       000000   79190300
190400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79190400
190500+D HTTP_nextXmlAttr...                                                                                     000000   79190500
190600+D                 PR             1N                                                                       000000   79190600
190700+D   attrs                         *   dim(32767)                                                          000000   79190700
190800+D                                     const options(*varsize)                                             000000   79190800
190900+D   num                         10i 0                                                                     000000   79190900
191000+D   name                      1024a   varying                                                             000000   79191000
191100+D   val                      65535a   varying                                                             000000   79191100
191200+                                                                                                          000000   79191200
191300+                                                                                                          000000   79191300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    284
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
191400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79191400
191500+ * http_EscapeXml(): Escape any special characters used by XML                                            000000   79191500
191600+ *                                                                                                        000000   79191600
191700+ *     peString = (input) string to escape                                                                000000   79191700
191800+ *                                                                                                        000000   79191800
191900+ * Returns escaped string.                                                                                000000   79191900
192000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79192000
192100+D http_EscapeXml  PR          4096a   varying                                                             000000   79192100
192200+D  peString                   4096a   varying const                                                       000000   79192200
192300+                                                                                                          000000   79192300
192400+                                                                                                          000000   79192400
192500+ /if defined(HTTP_WSDL2RPG_STUFF)                                                                         000000   79192500
            LINES EXCLUDED: 32
195800+ /endif                                                                                                   000000   79195800
195900+                                                                                                          000000   79195900
196000+                                                                                                          000000   79196000
196100+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79196100
196200+ * http_dwrite(): Write raw (binary) data to the HTTPAPI debug                                            000000   79196200
196300+ *                log.                                                                                    000000   79196300
196400+ *                                                                                                        000000   79196400
196500+ *    peData = pointer to raw data to write                                                               000000   79196500
196600+ *    peLen  = length of the data to write                                                                000000   79196600
196700+ *                                                                                                        000000   79196700
196800+ * NOTE: The debug log is opened the first time http_dwrite()                                             000000   79196800
196900+ *       or http_dmsg() is called, and closed at the end of a                                             000000   79196900
197000+ *       an HTTP transaction (such as GET or POST) If you attempt                                         000000   79197000
197100+ *       to write after a transaction, the file will be re-opened                                         000000   79197100
197200+ *       and not closed until the next transaction, or until                                              000000   79197200
197300+ *       http_dclose() is called.                                                                         000000   79197300
197400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79197400
197500+D http_dwrite     PR                                                                                      000000   79197500
197600+D   peData                        *   value                                                               000000   79197600
197700+D   peLen                       10I 0 value                                                               000000   79197700
197800+                                                                                                          000000   79197800
197900+                                                                                                          000000   79197900
198000+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79198000
198100+ * http_dmsg(): Write one line of text to the HTTPAPI debug log                                           000000   79198100
198200+ *                                                                                                        000000   79198200
198300+ *    peMsgTxt = one message (one line of text) to write to                                               000000   79198300
198400+ *                the debug log.  CRLF will be added for you                                              000000   79198400
198500+ *                and the data will be undergo EBCDIC->ASCII                                              000000   79198500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    285
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
198600+ *                translation as it's written.                                                            000000   79198600
198700+ *                                                                                                        000000   79198700
198800+ * NOTE: The debug log is opened the first time http_dwrite()                                             000000   79198800
198900+ *       or http_dmsg() is called, and closed at the end of a                                             000000   79198900
199000+ *       an HTTP transaction (such as GET or POST) If you attempt                                         000000   79199000
199100+ *       to write after a transaction, the file will be re-opened                                         000000   79199100
199200+ *       and not closed until the next transaction, or until                                              000000   79199200
199300+ *       http_dclose() is called.                                                                         000000   79199300
199400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79199400
199500+D http_dmsg       PR                                                                                      000000   79199500
199600+D   peMsgTxt                   256A   const                                                               000000   79199600
199700+                                                                                                          000000   79199700
199800+                                                                                                          000000   79199800
199900+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79199900
200000+ * http_dclose():  Close the HTTPAPI debug log.                                                           000000   79200000
200100+ *                                                                                                        000000   79200100
200200+ * NOTE: Calling http_dmsg or http_dwrite will automatically                                              000000   79200200
200300+ *       reopen the log. The log is automatically closed at                                               000000   79200300
200400+ *       the end of an HTTP transaction (such as GET or POST)                                             000000   79200400
200500+ *       If you want to close it at another time, call this                                               000000   79200500
200600+ *       routine.                                                                                         000000   79200600
200700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                         000000   79200700
200800+D http_dclose     PR                                                                                      000000   79200800
200900+                                                                                                          000000   79200900
201000+                                                                                                          000000   79201000
201100+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79201100
201200+ * http_XmlReturnUCS(): The XML End Handler should get it's data                                          000000   79201200
201300+ *                      in UCS-2 Unicode (RPG data type C) instead                                        000000   79201300
201400+ *                      of EBCDIC (RPG data type A)                                                       000000   79201400
201500+ *                                                                                                        000000   79201500
201600+ *     peEnable = (input) *ON to return data in Unicode                                                   000000   79201600
201700+ *                       *OFF to return data in EBCDIC (default)                                          000000   79201700
201800+ *                                                                                                        000000   79201800
201900+ * NOTE: This can be used in conjunction with http_XmlReturnPtr.                                          000000   79201900
202000+ *       When XmlReturnPtr is off, the data is returned as a                                              000000   79202000
202100+ *       UCS-2 VARYING parameter.  When XmlReturnPtr=on, the data                                         000000   79202100
202200+ *       is returned as a pointer to a DS containing UCS-2                                                000000   79202200
202300+ *       data (as opposed to alphanumeric)                                                                000000   79202300
202400+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79202400
202500+D http_XmlReturnUCS...                                                                                    000000   79202500
202600+D                 PR                                                                                      000000   79202600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    286
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
202700+D   peEnable                     1N   const                                                               000000   79202700
202800+                                                                                                          000000   79202800
202900+                                                                                                          000000   79202900
203000+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79203000
203100+ * http_parser_init():   Initializes the XML parser.                                                      000000   79203100
203200+ *                       Afterwards http_parser_parseChunk() can                                          000000   79203200
203300+ *                       can be used to parse a given XML stream.                                         000000   79203300
203400+ *                                                                                                        000000   79203400
203500+ *     peCCSID = (input) CCSID of string to be parsed                                                     000000   79203500
203600+ * peStartProc = (input) call-back procedure to call at the start                                         000000   79203600
203700+ *                       of each XML element received.                                                    000000   79203700
203800+ *   peEndProc = (input) call-back procedure to call at the end                                           000000   79203800
203900+ *                       of each XML element received.                                                    000000   79203900
204000+ *    peUsrDta = (input) user-defined data that will be passed                                            000000   79204000
204100+ *                          to the call-back routine                                                      000000   79204100
204200+ *                                                                                                        000000   79204200
204300+ * Returns the length of the parsed data or -1 upon failure                                               000000   79204300
204400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79204400
204500+D http_parser_init...                                                                                     000000   79204500
204600+D                 PR                                                                                      000000   79204600
204700+D  peCCSID                      10I 0 const options(*omit)                                                000000   79204700
204800+D  peStartProc                    *   value procptr                                                       000000   79204800
204900+D  peEndProc                      *   value procptr                                                       000000   79204900
205000+D  peUsrDta                       *   value                                                               000000   79205000
205100+                                                                                                          000000   79205100
205200+                                                                                                          000000   79205200
205300+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79205300
205400+ * http_parser_parseChunk():  Parses a given chunk of XML data.                                           000000   79205400
205500+ *                            Can be invoked multiple times in                                            000000   79205500
205600+ *                            between http_parser_init() and                                              000000   79205600
205700+ *                            http_parser_free.                                                           000000   79205700
205800+ *                                                                                                        000000   79205800
205900+ *        peFD = (input) Open file descriptor. Not used here but                                          000000   79205900
206000+ *                       required for compatibility reasons.                                              000000   79206000
206100+ *      peData = (input) Pointer of the XML data.                                                         000000   79206100
206200+ *    peLength = (input) Length of the XML data.                                                          000000   79206200
206300+ *                                                                                                        000000   79206300
206400+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79206400
206500+D http_parser_parseChunk...                                                                               000000   79206500
206600+D                 PR            10I 0                                                                     000000   79206600
206700+D   peFD                        10I 0 value                                                               000000   79206700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    287
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
206800+D   peData                        *   value  options(*string)                                             000000   79206800
206900+D   peLength                    10I 0 value                                                               000000   79206900
207000+                                                                                                          000000   79207000
207100+                                                                                                          000000   79207100
207200+ *++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +                                  000000   79207200
207300+ * http_parser_free():  Frees a previously allocated parser.                                              000000   79207300
207400+ *                                                                                                        000000   79207400
207500+ *  peUpdError = (input) Update error information. Default: *ON.                                          000000   79207500
207600+ *                                                                                                        000000   79207600
207700+ *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++                                   000000   79207700
207800+D http_parser_free...                                                                                     000000   79207800
207900+D                 PR            10I 0                                                                     000000   79207900
208000+D   peUpdError                    N   const  options(*nopass: *omit)                                      000000   79208000
208100+                                                                                                          000000   79208100
208200+                                                                                                          000000   79208200
208300+ *********************************************************************                                    000000   79208300
208400+ **  Error codes that HTTP API can return                                                                 000000   79208400
208500+ *********************************************************************                                    000000   79208500
208600+ ** Invalid URL format                                                                                    000000   79208600
208700+D HTTP_BADURL     C                   CONST(1)                                                            000000   79208700
208800+ ** Host not found (not a valid IP address, or DNS lookup failed)                                         000000   79208800
208900+D HTTP_HOSTNF     C                   CONST(2)                                                            000000   79208900
209000+ ** Unable to create a new socket                                                                         000000   79209000
209100+D HTTP_SOCERR     C                   CONST(4)                                                            000000   79209100
209200+ ** Error when connecting to server                                                                       000000   79209200
209300+D HTTP_BADCNN     C                   CONST(6)                                                            000000   79209300
209400+ ** Timeout when connecting to server                                                                     000000   79209400
209500+D HTTP_CNNTIMO    C                   CONST(7)                                                            000000   79209500
209600+ ** HTTP response code logged (not an error, per se)                                                      000000   79209600
209700+D HTTP_RESP       C                   CONST(13)                                                           000000   79209700
209800+ ** Error calling user-specified procedure in the                                                         000000   79209800
209900+ **   recvdoc() procedure.  (user proc must return full count)                                            000000   79209900
210000+D HTTP_RDWERR     C                   CONST(16)                                                           000000   79210000
210100+ ** Unsupported transfer-encoding value                                                                   000000   79210100
210200+D HTTP_XFRENC     C                   CONST(20)                                                           000000   79210200
210300+ ** Error opening file to save data into.                                                                 000000   79210300
210400+D HTTP_FDOPEN     C                   CONST(22)                                                           000000   79210400
210500+ ** Problem with the Application ID for the DCM                                                           000000   79210500
210600+D HTTP_GSKAPPID   C                   CONST(23)                                                           000000   79210600
210700+ ** Error setting auth type                                                                               000000   79210700
210800+D HTTP_GSKATYP    C                   CONST(24)                                                           000000   79210800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    288
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
210900+ ** Error initializing GSKit environment                                                                  000000   79210900
211000+D HTTP_GSKENVI    C                   CONST(25)                                                           000000   79211000
211100+ ** Error opening GSKit environment                                                                       000000   79211100
211200+D HTTP_GSKENVO    C                   CONST(26)                                                           000000   79211200
211300+ ** Error setting session type (client | server | server_auth)                                            000000   79211300
211400+D HTTP_GSKSTYP    C                   CONST(27)                                                           000000   79211400
211500+ ** Error registering application w/DCM                                                                   000000   79211500
211600+D HTTP_REGERR     C                   CONST(28)                                                           000000   79211600
211700+ ** Error open secure socket                                                                              000000   79211700
211800+D HTTP_SSOPEN     C                   CONST(29)                                                           000000   79211800
211900+ ** Error setting SSL numeric file descriptor                                                             000000   79211900
212000+D HTTP_SSSNFD     C                   CONST(30)                                                           000000   79212000
212100+ ** Error setting SSL numeric timeout value                                                               000000   79212100
212200+D HTTP_SSSNTO     C                   CONST(31)                                                           000000   79212200
212300+ ** SSL handshake timed out                                                                               000000   79212300
212400+D HTTP_SSTIMO     C                   CONST(32)                                                           000000   79212400
212500+ ** This app is not registered with digital cert mgr                                                      000000   79212500
212600+D HTTP_NOTREG     C                   CONST(35)                                                           000000   79212600
212700+ ** This URI needs authorization (user/pass)                                                              000000   79212700
212800+D HTTP_NDAUTH     C                   CONST(36)                                                           000000   79212800
212900+ ** Invalid HTTP authentication type                                                                      000000   79212900
213000+D HTTP_ATHTYP     C                   CONST(37)                                                           000000   79213000
213100+ ** Error in value of an HTTP authentication string                                                       000000   79213100
213200+D HTTP_ATHVAL     C                   CONST(38)                                                           000000   79213200
213300+ ** Server didn't ask for authorizatin                                                                    000000   79213300
213400+D HTTP_NOAUTH     C                   CONST(39)                                                           000000   79213400
213500+ ** blockread() timed out waiting for more data                                                           000000   79213500
213600+D HTTP_BRTIME     C                   CONST(43)                                                           000000   79213600
213700+ ** blockread() error during recv() call                                                                  000000   79213700
213800+D HTTP_BRRECV     C                   CONST(44)                                                           000000   79213800
213900+ ** blockread() error during select() call                                                                000000   79213900
214000+D HTTP_BRSELE     C                   CONST(45)                                                           000000   79214000
214100+ ** recvchunk() did not get the trailing CRLF chars                                                       000000   79214100
214200+D HTTP_RDCRLF     C                   CONST(46)                                                           000000   79214200
214300+ ** Invalid exit point registered with HTTP_Xproc()                                                       000000   79214300
214400+D HTTP_BADPNT     C                   CONST(47)                                                           000000   79214400
214500+ ** Error retrieving SSL protocol                                                                         000000   79214500
214600+D HTTP_SSPROT     C                   CONST(48)                                                           000000   79214600
214700+ ** Unknown SSL protocol                                                                                  000000   79214700
214800+D HTTP_SSPUNK     C                   CONST(49)                                                           000000   79214800
214900+ ** Error setting SSL protocol                                                                            000000   79214900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    289
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
215000+D HTTP_SSPSET     C                   CONST(50)                                                           000000   79215000
215100+ ** Out of memory                                                                                         000000   79215100
215200+D HTTP_NOMEM      C                   CONST(51)                                                           000000   79215200
215300+ ** Must give data in order to encode it                                                                  000000   79215300
215400+D HTTP_NODATA     C                   CONST(52)                                                           000000   79215400
215500+ ** Pointer is invalid or already freed                                                                   000000   79215500
215600+D HTTP_INVPTR     C                   CONST(53)                                                           000000   79215600
215700+ ** Not enough space to add encoded variable                                                              000000   79215700
215800+D HTTP_NOSPAC     C                   CONST(54)                                                           000000   79215800
215900+ ** Error calling send() API in BlockWrite()                                                              000000   79215900
216000+D HTTP_BWSEND     C                   CONST(55)                                                           000000   79216000
216100+ ** Error calling select() API in BlockWrite()                                                            000000   79216100
216200+D HTTP_BWSELE     C                   CONST(56)                                                           000000   79216200
216300+ ** Timeout waiting to send in BlockWrite()                                                               000000   79216300
216400+D HTTP_BWTIME     C                   CONST(57)                                                           000000   79216400
216500+ ** Lineread() had problem with recv() API                                                                000000   79216500
216600+D HTTP_LRRECV     C                   CONST(58)                                                           000000   79216600
216700+ ** Lineread() had problem with select() API                                                              000000   79216700
216800+D HTTP_LRSELE     C                   CONST(59)                                                           000000   79216800
216900+ ** Lineread() had timeout                                                                                000000   79216900
217000+D HTTP_LRTIME     C                   CONST(60)                                                           000000   79217000
217100+ ** Procedure is no longer supported                                                                      000000   79217100
217200+D HTTP_NOTSUPP    C                   CONST(61)                                                           000000   79217200
217300+ ** No communication driver defined                                                                       000000   79217300
217400+D HTTP_NOCDRIV    C                   CONST(62)                                                           000000   79217400
217500+ ** Timeout sending data in blockwrite                                                                    000000   79217500
217600+D HTTP_BWTIMO     C                   CONST(63)                                                           000000   79217600
217700+ ** Timeout sending data in blockwrite                                                                    000000   79217700
217800+D HTTP_SWCERR     C                   CONST(64)                                                           000000   79217800
217900+ ** Timeout sending data in blockwrite                                                                    000000   79217900
218000+D HTTP_FDSTAT     C                   CONST(65)                                                           000000   79218000
218100+ ** Error parsing XML data                                                                                000000   79218100
218200+D HTTP_XMLERR     C                   CONST(66)                                                           000000   79218200
218300+ ** Error opening IFS file                                                                                000000   79218300
218400+D HTTP_IFOPEN     C                   CONST(67)                                                           000000   79218400
218500+ ** Error with SSL keyring                                                                                000000   79218500
218600+D HTTP_GSKKEYF    C                   CONST(68)                                                           000000   79218600
218700+ ** Must Use Table / Must not Use Table                                                                   000000   79218700
218800+D HTTP_MUTABLE    C                   CONST(69)                                                           000000   79218800
218900+ ** Cookie file cant be written                                                                           000000   79218900
219000+D HTTP_CKDUMP     C                   CONST(70)                                                           000000   79219000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    290
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
219100+ ** Cookie file cant be read                                                                              000000   79219100
219200+D HTTP_CKOPEN     C                   CONST(71)                                                           000000   79219200
219300+ ** Can't get stats on cookie file                                                                        000000   79219300
219400+D HTTP_CKSTAT     C                   CONST(72)                                                           000000   79219400
219500+ ** Error converting CCSIDs                                                                               000000   79219500
219600+D HTTP_CONVERR    C                   CONST(73)                                                           000000   79219600
219700+ ** Error setting stream file CCSID                                                                       000000   79219700
219800+D HTTP_SETATTR    C                   CONST(74)                                                           000000   79219800
219900+ ** This Proxy server needs authorization (user/pass)                                                     000000   79219900
220000+D HTTP_PXNDAUTH   C                   CONST(75)                                                           000000   79220000
220100+ ** XML callback switched illegally                                                                       000000   79220100
220200+D HTTP_ILLSWC     C                   CONST(76)                                                           000000   79220200
220300+ ** Error getting certificate info                                                                        000000   79220300
220400+D HTTP_SSLGCI     C                   CONST(77)                                                           000000   79220400
220500+ ** Error from certificate validation callback                                                            000000   79220500
220600+D HTTP_SSLVAL     C                   CONST(78)                                                           000000   79220600
220700+ ** Error setting TLS versions                                                                            000000   79220700
220800+D HTTP_TLSSET     C                   CONST(79)                                                           000000   79220800
220900+                                                                                                          000000   79220900
221000+                                                                                                          000000   79221000
221100+ *********************************************************************                                    000000   79221100
221200+ *  HTTP WWW-Authentication types                                                                         000000   79221200
221300+ *********************************************************************                                    000000   79221300
221400+D HTTP_AUTH_NONE...                                                                                       000000   79221400
221500+D                 C                   '0'                                                                 000000   79221500
221600+D HTTP_AUTH_BASIC...                                                                                      000000   79221600
221700+D                 C                   '1'                                                                 000000   79221700
221800+D HTTP_AUTH_MD5_DIGEST...                                                                                 000000   79221800
221900+D                 C                   '2'                                                                 000000   79221900
222000+D HTTP_AUTH_NTLM...                                                                                       150102   79222000
222100+D                 C                   '3'                                                                 150102   79222100
222400+                                                                                                          000000   79222400
222500+                                                                                                          000000   79222500
222600+ *********************************************************************                                    000000   79222600
222700+ *  HTTPAPI Exit points                                                                                   000000   79222700
222800+ *********************************************************************                                    000000   79222800
222900+ ** Debug exit point:  This is called when ASCII stream data is to be                                     000000   79222900
223000+ **                    to a log file.   Here's the prototype for a                                        000000   79223000
223100+ **                    debug exit procedure:                                                              000000   79223100
223200+ **                                                                                                       000000   79223200
223300+ **  D debug_proto     PR                                                                                 000000   79223300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    291
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
223400+ **  D   DataToLog                     *   value                                                          000000   79223400
223500+ **  D   Length                      10I 0 value                                                          000000   79223500
223600+ **                                                                                                       000000   79223600
223700+D HTTP_POINT_DEBUG...                                                                                     000000   79223700
223800+D                 C                   1                                                                   000000   79223800
223900+                                                                                                          000000   79223900
224000+ ** Upload status exit point:  This is called periodically during an                                      000000   79224000
224100+ **                            upload (POST) to an HTTP(S) server.                                        000000   79224100
224200+ **                            Allows you to display progress to the                                      000000   79224200
224300+ **                            user.                                                                      000000   79224300
224400+ **                                                                                                       000000   79224400
224500+ **  D upload_proto    PR                                                                                 000000   79224500
224600+ **  D   BytesSent                   10U 0 value                                                          000000   79224600
224700+ **  D   BytesTotal                  10U 0 value                                                          000000   79224700
224800+ **                                                                                                       000000   79224800
224900+D HTTP_POINT_UPLOAD_STATUS...                                                                             000000   79224900
225000+D                 C                   2                                                                   000000   79225000
225100+                                                                                                          000000   79225100
225200+ ** Download status exit point:  This is called periodically during a                                     000000   79225200
225300+ **                              download (POST or GET) from an HTTP(S)                                   000000   79225300
225400+ **                              server.  Allows you to display the                                       000000   79225400
225500+ **                              progress to the user.                                                    000000   79225500
225600+ **                                                                                                       000000   79225600
225700+ **  D download_proto  PR                                                                                 000000   79225700
225800+ **  D   BytesRecv                   10U 0 value                                                          000000   79225800
225900+ **  D   BytesTotal                  10U 0 value                                                          000000   79225900
226000+ **                                                                                                       000000   79226000
226100+D HTTP_POINT_DOWNLOAD_STATUS...                                                                           000000   79226100
226200+D                 C                   3                                                                   000000   79226200
226300+                                                                                                          000000   79226300
226400+ ** Additional Header fields exit point:                                                                  000000   79226400
226500+ **    Allows you to supply additional header data to be added                                            000000   79226500
226600+ **    to the HTTP request chain.  Data should be in EBCDIC with                                          000000   79226600
226700+ **    x'0d25' after each header record.                                                                  000000   79226700
226800+ **                                                                                                       000000   79226800
226900+ **  D addl_hdrs_prot  PR                                                                                 000000   79226900
227000+ **  D   HeaderData                1024A   varying                                                        000000   79227000
227100+ **                                                                                                       000000   79227100
227200+D HTTP_POINT_ADDL_HEADER...                                                                               000000   79227200
227300+D                 C                   4                                                                   000000   79227300
227400+                                                                                                          000000   79227400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    292
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
227500+ ** Header parse exit point:                                                                              000000   79227500
227600+ **    Allows you to examine the HTTP response chain received                                             000000   79227600
227700+ **    from the HTTP server.                                                                              000000   79227700
227800+ **                                                                                                       000000   79227800
227900+ **  D parse_hdr_prot  PR                                                                                 000000   79227900
228000+ **  D   HeaderData                2048A   const                                                          000000   79228000
228100+ **                                                                                                       000000   79228100
228200+D HTTP_POINT_PARSE_HEADER...                                                                              000000   79228200
228300+D                 C                   5                                                                   000000   79228300
228400+                                                                                                          000000   79228400
228500+ ** Header parse exit point:                                                                              000000   79228500
228600+ **    Allows you to examine the HTTP response chain received                                             000000   79228600
228700+ **    from the HTTP server. (allows longer headers)                                                      000000   79228700
228800+ **                                                                                                       000000   79228800
228900+ **  D parse_hdr_long  PR                                                                                 000000   79228900
229000+ **  D   HeaderData               32767A   const varying                                                  000000   79229000
229100+ **                                                                                                       000000   79229100
229200+D HTTP_POINT_PARSE_HDR_LONG...                                                                            000000   79229200
229300+D                 C                   6                                                                   000000   79229300
229400+                                                                                                          000000   79229400
229500+ ** SSL Certificate validation:                                                                           000000   79229500
229600+ **    This will be called repeatedly for each field in each                                              000000   79229600
229700+ **    certificate when parsed by HTTPAPI.                                                                000000   79229700
229800+ **                                                                                                       000000   79229800
229900+ **  D cert_valid      PR            10i 0                                                                000000   79229900
230000+ **  D   usrdta                        *   value                                                          000000   79230000
230100+ **  D   id                                like(CERT_DATA_ID) value                                       000000   79230100
230200+ **  D   data                     32767a   varying const                                                  000000   79230200
230300+ **  D   errmsg                      80a                                                                  000000   79230300
230400+ **                                                                                                       000000   79230400
230500+ **     id = certificate data id (see CERT_DATA_ID_T in GSKSSL_H)                                         000000   79230500
230600+ **   data = certificate element data.  (For binary elements, this                                        000000   79230600
230700+ **          is binary data. For others, it'll be EBCDIC data.)                                           000000   79230700
230800+ ** errmsg = the callback can use this to return a reason why a                                           000000   79230800
230900+ **          certificate wasn't valid.  (retrievable w/HTTP_error)                                        000000   79230900
231000+ **                                                                                                       000000   79231000
231100+ **  Return 0 if okay, -1 if you want to reject it.                                                       000000   79231100
231200+ **                                                                                                       000000   79231200
231300+D HTTP_POINT_CERT_VAL...                                                                                  000000   79231300
231400+D                 C                   7                                                                   000000   79231400
231500+                                                                                                          000000   79231500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    293
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
231600+ ** SSL Certificate validation (GSkit)                                                                    000000   79231600
231700+ **    This sets the GSK_CERT_                                                                            000000   79231700
231800+ **    within GSKit.  The GSKit (not HTTPAPI) will call back                                              000000   79231800
231900+ **    your procedure to validate a certificate.                                                          000000   79231900
232000+ **                                                                                                       000000   79232000
232100+ **    See the gsk_attribute_set_callback() API documentation                                             000000   79232100
232200+ **    in the IBM Information Center for details.                                                         000000   79232200
232300+ **                                                                                                       000000   79232300
232400+ **    Note: The UserData parameter to http_xproc() will be                                               000000   79232400
232500+ **          passed as the 3rd parameter to the                                                           000000   79232500
232600+ **          gsk_attribute_set_callback() API -- the peProc                                               000000   79232600
232700+ **          parameter to http_xproc() is ignored for this                                                000000   79232700
232800+ **          exit point.                                                                                  000000   79232800
232900+ **                                                                                                       000000   79232900
233000+D HTTP_POINT_GSKIT_CERT_VAL...                                                                            000000   79233000
233100+D                 C                   8                                                                   000000   79233100
233200+                                                                                                          000000   79233200
233300+                                                                                                          000000   79233300
233400+ *********************************************************************                                    000000   79233400
233500+ * Directions for HTTP_xlate() and HTTP_xlatep()                                                          000000   79233500
233600+ *********************************************************************                                    000000   79233600
233700+D TO_ASCII        C                   '1'                                                                 000000   79233700
233800+D TO_EBCDIC       C                   '2'                                                                 000000   79233800
000166  /COPY QWSDL2RPG,PWSDL2R70                    WSDL2RPG: HTTP API Header Extensions                   CPY  000000     000166
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R70                                                    *                    81
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R70)                                *                    81
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    81
        * Text 'description' . . . . :  WSDL2RPG: HTTP API Header Extensions   (Prototype)           *                    81
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R70)                                                                               590429   81000100
000200+ /DEFINE PWSDL2R70                                                                                        590429   81000200
000300+ *                                                                                                        590429   81000300
000400+ *  Returns the content type of the HTTP response stream.                                                 590429   81000400
000500+D http_getContentType...                                                                                  590429   81000500
000600+D                 PR         32500A   varying                                                             590429   81000600
000700+D                                     extproc('WSDL2R70_+                                                 590429   81000700
000800+D                                     http_getContentType+                                                590429   81000800
000900+D                                     ')                                                                  590429   81000900
001000+ *                                                                                                        590429   81001000
001100+ *  Returns the content type of the HTTP response stream.                                                 590429   81001100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    294
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001200+D http_getContentSubType...                                                                               590429   81001200
001300+D                 PR         32500A   varying                                                             590429   81001300
001400+D                                     extproc('WSDL2R70_+                                                 590429   81001400
001500+D                                     http_getContentSubType+                                             590429   81001500
001600+D                                     ')                                                                  590429   81001600
001700+ *                                                                                                        590429   81001700
001800+ *  Returns the value of the specified attribute of the content                                           590429   81001800
001900+ *  type header of the HTTP response stream.                                                              590429   81001900
002000+D http_getContentTypeAttr...                                                                              590429   81002000
002100+D                 PR         32500A   varying                                                             590429   81002100
002200+D                                     extproc('WSDL2R70_+                                                 590429   81002200
002300+D                                     http_getContentTypeAttr+                                            590429   81002300
002400+D                                     ')                                                                  590429   81002400
002500+D   attr                       256A   const  varying                                                      590429   81002500
002600+D                                            options(*varsize)                                            590429   81002600
002700+D   rmvAngles                     N   const  options(*nopass)                                             591020   81002700
002800+ *                                                                                                        571107   81002800
002900+ /ENDIF                                                                                                   571108   81002900
000167  /COPY QWSDL2RPG,PWSDL2R71                    WSDL2RPG: HTTP Debug Log                               CPY  000000     000167
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R71                                                    *                    82
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R71)                                *                    82
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    82
        * Text 'description' . . . . :  WSDL2RPG: HTTP Debug Log               (Prototype)           *                    82
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R71)                                                                               600411   82000100
000200+ /DEFINE PWSDL2R71                                                                                        600411   82000200
000300+ *                                                                                                        600411   82000300
000400+ /COPY QBASICS1,PBASICS1                                                                             CPY  600411   82000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1                                                     *                    83
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1)                                  *                    83
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    83
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Include             cpybk           *                    83
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(D_BASIC)                                                                RADDAT           000000   83000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   83004200
000500+ *                                                                                                        600411   82000500
000600+ *  Specifies the name of the HTTP API debug log file.                                                    600411   82000600
000700+D http_DebugLog_open...                                                                                   600411   82000700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    295
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000800+D                 PR                                                                                      600411   82000800
000900+D                                     extproc('WSDL2R71_+                                                 600411   82000900
001000+D                                     http_DebugLog_open+                                                 600411   82001000
001100+D                                     ')                                                                  600411   82001100
001200+D  i_fileName                  500A   const  varying                                                      620925   82001200
001300+ *                                                                                                        620229   82001300
001400+ *  Specifies whether or not additional messages are                                                      620229   82001400
001500+ *  appended to the debug log.                                                                            620229   82001500
001600+D http_DebugLog_setVerbose...                                                                             620229   82001600
001700+D                 PR                                                                                      620229   82001700
001800+D                                     extproc('WSDL2R71_+                                                 620229   82001800
001900+D                                     http_DebugLog_setVerbose+                                           620229   82001900
002000+D                                     ')                                                                  620229   82002000
002100+D  i_verbose                      N   const                                                               620229   82002100
002200+ *                                                                                                        600411   82002200
002300+ *  Rteurns cTrue if the debug log file is open.                                                          600411   82002300
002400+D http_DebugLog_isOpen...                                                                                 600411   82002400
002500+D                 PR              N                                                                       600411   82002500
002600+D                                     extproc('WSDL2R71_+                                                 600411   82002600
002700+D                                     http_DebugLog_isOpen+                                               600411   82002700
002800+D                                     ')                                                                  600411   82002800
002900+ *                                                                                                        600411   82002900
003000+ *  Appends the WSDL2RPG version info the the debug log.                                                  600411   82003000
003100+D http_DebugLog_appendVersion...                                                                          600411   82003100
003200+D                 PR                                                                                      600411   82003200
003300+D                                     extproc('WSDL2R71_+                                                 600411   82003300
003400+D                                     http_DebugLog_appendVersion+                                        600411   82003400
003500+D                                     ')                                                                  600411   82003500
003600+ *                                                                                                        600411   82003600
003700+ *  Appends a message line to the debug log file.                                                         600411   82003700
003800+D http_DebugLog_appendText...                                                                             600411   82003800
003900+D                 PR                                                                                      600411   82003900
004000+D                                     extproc('WSDL2R71_+                                                 600411   82004000
004100+D                                     http_DebugLog_appendText+                                           600411   82004100
004200+D                                     ')                                                                  600411   82004200
004300+D  i_text                      512A   const  varying options(*varsize)                                    600411   82004300
004400+ *                                                                                                        600411   82004400
004500+ *  Appends a message line to the debug log file.                                                         620301   82004500
004600+D http_DebugLog_appendTextVerbose...                                                                      620301   82004600
004700+D                 PR                                                                                      620301   82004700
004800+D                                     extproc('WSDL2R71_+                                                 620301   82004800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    296
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
004900+D                                     http_DebugLog_appendTextVerbose+                                    620301   82004900
005000+D                                     ')                                                                  620301   82005000
005100+D  i_text                      512A   const  varying options(*varsize)                                    620301   82005100
005200+ *                                                                                                        620301   82005200
005300+ *  Appends a received program message to the debug log file.                                             600411   82005300
005400+D http_DebugLog_appendRcvMsg...                                                                           600411   82005400
005500+D                 PR                                                                                      600411   82005500
005600+D                                     extproc('WSDL2R71_+                                                 600411   82005600
005700+D                                     http_DebugLog_appendRcvMsg+                                         600411   82005700
005800+D                                     ')                                                                  600411   82005800
005900+D  i_rcvm0200                         const  likeds(rcvm0200_t )                                          600411   82005900
006000+ *                                                                                                        600411   82006000
006100+ *  Appends a XML error to the debug log file.                                                            600411   82006100
006200+D http_DebugLog_appendXmlError...                                                                         600411   82006200
006300+D                 PR                                                                                      600411   82006300
006400+D                                     extproc('WSDL2R71_+                                                 600411   82006400
006500+D                                     http_DebugLog_appendXmlError+                                       600411   82006500
006600+D                                     ')                                                                  600411   82006600
006700+D  i_code                       10I 0 const                                                               600411   82006700
006800+D  i_text                      256A   const  varying                                                      600411   82006800
006900+D  i_proc                      256A   const  varying                                                      600411   82006900
007000+D  i_stmt                       10A   const                                                               600411   82007000
007100+D  i_line                       10I 0 const                                                               600411   82007100
007200+D  i_column                     10I 0 const                                                               600411   82007200
007300+ *                                                                                                        611111   82007300
007400+ *  Dumps the call stack frames to the debug log.                                                         611111   82007400
007500+D http_DebugLog_dumpCallStack...                                                                          611111   82007500
007600+D                 PR                                                                                      611111   82007600
007700+D                                     extproc('WSDL2R71_+                                                 611111   82007700
007800+D                                     http_DebugLog_dumpCallStack+                                        611111   82007800
007900+D                                     ')                                                                  611111   82007900
008000+ *                                                                                                        600411   82008000
008100+ *  Closes the debug log file.                                                                            600411   82008100
008200+D http_DebugLog_close...                                                                                  600411   82008200
008300+D                 PR                                                                                      600411   82008300
008400+D                                     extproc('WSDL2R71_+                                                 600411   82008400
008500+D                                     http_DebugLog_close+                                                600411   82008500
008600+D                                     ')                                                                  600411   82008600
008700+ *                                                                                                        571107   82008700
008800+ /ENDIF                                                                                                   571108   82008800
000168  /COPY QWSDL2RPG,PWSDL2R79                    WSDL2RPG: Static Array                                 CPY  000000     000168
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    297
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R79                                                    *                    84
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R79)                                *                    84
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    84
        * Text 'description' . . . . :  WSDL2RPG: Static Array                 (Prototype)           *                    84
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R79)                                                                               620203   84000100
000200+ /DEFINE PWSDL2R79                                                                                        620203   84000200
000300+ *                                                                                                        600315   84000300
000400+ /COPY QWSDL2RPG,TYPES                                                                               CPY  140422   84000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES                                                        *                    85
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES)                                    *                    85
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                    85
        * Text 'description' . . . . :  Type definitions (private)                                   *                    85
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(TYPES)                                                                                   571106   85000100
            LINES EXCLUDED: 1036
103800+ /ENDIF                                                                                                   571106   85103800
000500+ *                                                                                                        600324   84000500
000600+ *  Checks the array index and sends a 'Array index out of bounds'                                        620203   84000600
000700+ *  (USR5025) error message if the index is <=0 or >%elem().                                              620203   84000700
000800+D StaticArray_checkIndex...                                                                               620203   84000800
000900+D                 PR                                                                                      620203   84000900
001000+D                                     extproc('WSDL2R79_+                                                 620203   84001000
001100+D                                     StaticArray_checkIndex+                                             620203   84001100
001200+D                                     ')                                                                  620203   84001200
001300+D  i_arrayName                        const  like(wsdl_name_t )                                           620203   84001300
001400+D  i_index                      10I 0 const                                                               620203   84001400
001500+D  i_maxElements                10I 0 const                                                               620203   84001500
001600+D  i_dimConst                         const  like(wsdl_name_t )                                           620203   84001600
001700+ *                                                                                                        571107   84001700
001800+ /ENDIF                                                                                                   571108   84001800
000169  /COPY QWSDL2RPG,PWSDL2R85                    WSDL2RPG: MessageContext                               CPY  000000     000169
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R85                                                    *                    86
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R85)                                *                    86
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    86
        * Text 'description' . . . . :  WSDL2RPG: MessageContext               (Prototype)           *                    86
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R85)                                                                               130828   86000100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    298
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
            LINES EXCLUDED: 172
017400+ /ENDIF                                                                                                   571108   86017400
000170  /COPY QWSDL2RPG,PWSDL2R86                    WSDL2RPG: Stream                                       CPY  000000     000170
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R86                                                    *                    87
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R86)                                *                    87
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    87
        * Text 'description' . . . . :  WSDL2RPG: Stream                       (Prototype)           *                    87
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R86)                                                                               580612   87000100
            LINES EXCLUDED: 90
009200+ /ENDIF                                                                                                   571108   87009200
000171  /COPY QWSDL2RPG,PWSDL2R87                    WSDL2RPG: ManagedMemoryDataSource                      CPY  000000     000171
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R87                                                    *                    88
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R87)                                *                    88
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    88
        * Text 'description' . . . . :  WSDL2RPG: ManagedMemoryDataSource      (Prototype)           *                    88
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R87)                                                                               580609   88000100
            LINES EXCLUDED: 218
022000+ /ENDIF                                                                                                   571108   88022000
000172  /COPY QWSDL2RPG,PWSDL2R88                    WSDL2RPG: Public Helper Procedures                     CPY  000000     000172
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R88                                                    *                    89
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R88)                                *                    89
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    89
        * Text 'description' . . . . :  WSDL2RPG: Public Helper Procedures     (Prototype)           *                    89
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R88)                                                                               600525   89000100
            LINES EXCLUDED: 92
009400+ /ENDIF                                                                                                   571108   89009400
000173  /COPY QWSDL2RPG,PWSDL2R90                    WSDL2RPG: AppMsg                                       CPY  000000     000173
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R90                                                    *                    90
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R90)                                *                    90
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    90
        * Text 'description' . . . . :  WSDL2RPG: Application Message          (Prototype)           *                    90
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R90)                                                                               571204   90000100
            LINES EXCLUDED: 119
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    299
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012100+ /ENDIF                                                                                                   571108   90012100
000174  /COPY QWSDL2RPG,PWSDL2R94                    WSDL2RPG: MultiRef                                     CPY  000000     000174
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R94                                                    *                    91
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R94)                                *                    91
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    91
        * Text 'description' . . . . :  WSDL2RPG: MultiRef                     (Prototype)           *                    91
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R94)                                                                               580131   91000100
000200+ /DEFINE PWSDL2R94                                                                                        580131   91000200
000300+ *                                                                                                        571108   91000300
000400+ /COPY QBASICS1,PBASICS1                                                                             CPY  580131   91000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1                                                     *                    92
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1)                                  *                    92
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    92
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Include             cpybk           *                    92
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(D_BASIC)                                                                RADDAT           000000   92000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   92004200
000500+ *                                                                                                        591019   91000500
000600+D wsdl_multiRef_t...                                                                                      591019   91000600
000700+D                 DS                  qualified               based(pDummy)                               591019   91000700
000800+D  header                             likeds(wsdl_multiRefHeader_t )                                      591019   91000800
000900+D  item                               likeds(wsdl_multiRefItem_t   )                                      591019   91000900
001000+ *                                                                                                        580131   91001000
001100+D wsdl_multiRefHeader_t...                                                                                591019   91001100
001200+D                 DS                  qualified               based(pDummy)                               580131   91001200
001300+D  cbStart                        *   procptr                                                             591019   91001300
001400+D  cbEnd                          *   procptr                                                             591019   91001400
001500+D  pList                          *                                                                       591019   91001500
001600+D  depth                        10I 0                                                                     591019   91001600
001700+D  name                       1024A   varying                                                             591019   91001700
001800+D  namespace                  1024A   varying                                                             591019   91001800
001900+D  path                      24576A   varying                                                             600220   91001900
002000+D  hRef                        128A   varying                                                             591019   91002000
002100+D  arraySize                    10I 0                                                                     600223   91002100
002200+ *                                                                                                        591019   91002200
002300+D wsdl_multiRefItem_t...                                                                                  591019   91002300
002400+D                 DS                  qualified               based(pDummy)                               600222   91002400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    300
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002500+D  index                        10I 0                                                                     600222   91002500
002600+D  userData                       *                                                                       600221   91002600
002700+D  itemData                       *                                                                       600223   91002700
002800+D  length                       10I 0                                                                     600222   91002800
002900+D  hasData                        N                                                                       600609   91002900
003000+ *                                                                                                        580131   91003000
003100+ *  Creates a <multiRef> map.                                                                             580131   91003100
003200+D MultiRef_new...                                                                                         580131   91003200
003300+D                 PR                                                                                      580201   91003300
003400+D                                     extproc('WSDL2R94_+                                                 580131   91003400
003500+D                                     MultiRef_new+                                                       580131   91003500
003600+D                                     ')                                                                  580131   91003600
003700+ *                                                                                                        580201   91003700
003800+ *  Returns the procedure pointer of the <multiRef> start callback procedure.                             580201   91003800
003900+D MultiRef_getStartCallback...                                                                            580201   91003900
004000+D                 PR              *   procptr                                                             580201   91004000
004100+D                                     extproc('WSDL2R94_+                                                 580201   91004100
004200+D                                     MultiRef_getStartCallback+                                          580201   91004200
004300+D                                     ')                                                                  580201   91004300
004400+ *                                                                                                        580201   91004400
004500+ *  Returns the procedure pointer of the <multiRef> end callback procedure.                               580201   91004500
004600+D MultiRef_getEndCallback...                                                                              580201   91004600
004700+D                 PR              *   procptr                                                             580201   91004700
004800+D                                     extproc('WSDL2R94_+                                                 580201   91004800
004900+D                                     MultiRef_getEndCallback+                                            580201   91004900
005000+D                                     ')                                                                  580201   91005000
005100+ *                                                                                                        580131   91005100
005200+ *  Returns cTrue if the given element references a <multiRef> element.                                   580202   91005200
005300+D MultiRef_isReference...                                                                                 580202   91005300
005400+D                 PR              N                                                                       580131   91005400
005500+D                                     extproc('WSDL2R94_+                                                 580131   91005500
005600+D                                     MultiRef_isReference+                                               580202   91005600
005700+D                                     ')                                                                  580131   91005700
005800+D  attrs                          *   dim(32767)                                                          580131   91005800
005900+D                                     const options(*varsize)                                             580131   91005900
006000+ *                                                                                                        580202   91006000
006100+ *  Returns cTrue if the given element is a <multiRef> data element.                                      580202   91006100
006200+D MultiRef_isData...                                                                                      580202   91006200
006300+D                 PR              N                                                                       580202   91006300
006400+D                                     extproc('WSDL2R94_+                                                 580202   91006400
006500+D                                     MultiRef_isData+                                                    580202   91006500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    301
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
006600+D                                     ')                                                                  580202   91006600
006700+D  attrs                          *   dim(32767)                                                          580202   91006700
006800+D                                     const options(*varsize)                                             580202   91006800
006900+ *                                                                                                        580131   91006900
007000+ *  Adds an entry to the <multiRef> map.                                                                  580131   91007000
007100+D MultiRef_put...                                                                                         580131   91007100
007200+D                 PR                                                                                      580131   91007200
007300+D                                     extproc('WSDL2R94_+                                                 580131   91007300
007400+D                                     MultiRef_put+                                                       580131   91007400
007500+D                                     ')                                                                  580131   91007500
007600+D  i_attrs                        *   const  dim(32767) options(*varsize)                                 580201   91007600
007700+D  i_userData                     *   const                                                               580201   91007700
007800+D  i_depth                      10I 0 const                                                               580201   91007800
007900+D  i_namespace                1024A   const  varying                                                      580201   91007900
008000+D  i_name                     1024A   const  varying                                                      580201   91008000
008100+D  i_path                    24576A   const  varying                                                      580201   91008100
008200+D  i_cbStart                      *   const  procptr                                                      580201   91008200
008300+D  i_cbEnd                        *   const  procptr                                                      580201   91008300
008400+D  i_itemIndex                  10I 0 const  options(*nopass: *omit)                                      600223   91008400
008500+D  i_itemData                     *   const  options(*nopass)                                             600223   91008500
008600+D  i_length                     10I 0 const  options(*nopass)                                             600223   91008600
008700+ *                                                                                                        580131   91008700
008800+ *  Returns the <multiRef> information that is associated to a                                            580131   91008800
008900+ *  given key.                                                                                            580131   91008900
009000+D MultiRef_get...                                                                                         580131   91009000
009100+D                 PR                         likeds(wsdl_multiRef_t)                                      580131   91009100
009200+D                                     extproc('WSDL2R94_+                                                 580131   91009200
009300+D                                     MultiRef_get+                                                       580131   91009300
009400+D                                     ')                                                                  580131   91009400
009500+D  i_hRef                      128A   const  varying                                                      591019   91009500
009600+D  i_index                      10I 0 const                                                               591017   91009600
009700+D  i_name                     1024A   const  varying                                                      580201   91009700
009800+ *                                                                                                        600609   91009800
009900+ *  Sets the 'hasData' attribute of a given multiref item.                                                600609   91009900
010000+D MultiRef_setHasData...                                                                                  600609   91010000
010100+D                 PR                                                                                      600609   91010100
010200+D                                     extproc('WSDL2R94_+                                                 600609   91010200
010300+D                                     MultiRef_setHasData+                                                600609   91010300
010400+D                                     ')                                                                  600609   91010400
010500+D  i_multiRef                         const  likeds(wsdl_multiRef_t)                                      600609   91010500
010600+D  i_index                      10I 0 const                                                               600609   91010600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    302
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
010700+D  i_hasData                      N   const                                                               600609   91010700
010800+ *                                                                                                        580201   91010800
010900+ *  Releases an active <multiRef> environment.                                                            580201   91010900
011000+D MultiRef_release...                                                                                     580201   91011000
011100+D                 PR                                                                                      580201   91011100
011200+D                                     extproc('WSDL2R94_+                                                 580201   91011200
011300+D                                     MultiRef_release+                                                   580201   91011300
011400+D                                     ')                                                                  580201   91011400
011500+D  io_multiRef                               likeds(wsdl_multiRef_t)                                      580201   91011500
011600+ *                                                                                                        580131   91011600
011700+ *  Deletes a given <multiRef> map.                                                                       580131   91011700
011800+D MultiRef_delete...                                                                                      580131   91011800
011900+D                 PR                                                                                      580131   91011900
012000+D                                     extproc('WSDL2R94_+                                                 580131   91012000
012100+D                                     MultiRef_delete+                                                    580131   91012100
012200+D                                     ')                                                                  580131   91012200
012300+ *                                                                                                        580131   91012300
012400+ *  Returns a NULL <multiRef> map.                                                                        580131   91012400
012500+D MultiRef_null...                                                                                        580131   91012500
012600+D                 PR                         like(BasicMap_handle_t )                                     580131   91012600
012700+D                                     extproc('WSDL2R94_+                                                 580131   91012700
012800+D                                     MultiRef_null+                                                      580131   91012800
012900+D                                     ')                                                                  580131   91012900
013000+ *                                                                                                        580131   91013000
013100+ *  Returns cTrue if a given <multiRef> map is NULL.                                                      580131   91013100
013200+D MultiRef_isNull...                                                                                      580131   91013200
013300+D                 PR              N                                                                       580131   91013300
013400+D                                     extproc('WSDL2R94_+                                                 580201   91013400
013500+D                                     MultiRef_isNull+                                                    580201   91013500
013600+D                                     ')                                                                  580201   91013600
013700+ *                                                                                                        580201   91013700
013800+ *   Handles <multiRef> elements.                                                                         580201   91013800
013900+D MultiRef_startCallback...                                                                               580201   91013900
014000+D                 PR                                                                                      580201   91014000
014100+D                                     extproc('WSDL2R94_+                                                 580201   91014100
014200+D                                     MultiRef_startCallback+                                             580201   91014200
014300+D                                     ')                                                                  580201   91014300
014400+D   userdata                      *   value                                                               580201   91014400
014500+D   depth                       10I 0 value                                                               580201   91014500
014600+D   namespace                 1024A   varying const                                                       580201   91014600
014700+D   name                      1024A   varying const                                                       580201   91014700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    303
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
014800+D   path                     24576A   varying const                                                       580201   91014800
014900+D   attrs                         *   dim(32767)                                                          580201   91014900
015000+D                                     const options(*varsize)                                             580201   91015000
015100+ *                                                                                                        580201   91015100
015200+ *   Returns the Soap Fault Details Information.                                                          580201   91015200
015300+D MultiRef_endCallback...                                                                                 580201   91015300
015400+D                 PR                                                                                      580201   91015400
015500+D                                     extproc('WSDL2R94_+                                                 580201   91015500
015600+D                                     MultiRef_endCallback+                                               580201   91015600
015700+D                                     ')                                                                  580201   91015700
015800+D   userdata                      *   value                                                               580201   91015800
015900+D   depth                       10I 0 value                                                               580201   91015900
016000+D   namespace                 1024A   varying const                                                       580201   91016000
016100+D   name                      1024A   varying const                                                       580201   91016100
016200+D   path                     24576A   varying const                                                       580201   91016200
016300+D   value                    65535A   varying const                                                       580201   91016300
016400+D   attrs                         *   dim(32767)                                                          580201   91016400
016500+D                                     const options(*varsize)                                             580201   91016500
016600+ *                                                                                                        600503   91016600
016700+ *   Copies duplicate <multiRef> element data to destination elements.                                    600503   91016700
016800+D MultiRef_finalize...                                                                                    600503   91016800
016900+D                 PR                                                                                      600503   91016900
017000+D                                     extproc('WSDL2R94_+                                                 600503   91017000
017100+D                                     MultiRef_finalize+                                                  600503   91017100
017200+D                                     ')                                                                  600503   91017200
017300+ *                                                                                                        600530   91017300
017400+ *  Returns cTrue if the multiref entry specifies an item index.                                          600530   91017400
017500+D MultiRef_hasItemIndex...                                                                                600530   91017500
017600+D                 PR              N                                                                       600530   91017600
017700+D                                     extproc('WSDL2R94_+                                                 600530   91017700
017800+D                                     MultiRef_hasItemIndex+                                              600530   91017800
017900+D                                     ')                                                                  600530   91017900
018000+ *                                                                                                        591018   91018000
018100+ *  Returns index of the array item that is the target of the multiref data.                              591018   91018100
018200+D MultiRef_getItemIndex...                                                                                591018   91018200
018300+D                 PR            10I 0                                                                     591018   91018300
018400+D                                     extproc('WSDL2R94_+                                                 591018   91018400
018500+D                                     MultiRef_getItemIndex+                                              591018   91018500
018600+D                                     ')                                                                  591018   91018600
018700+ *                                                                                                        591018   91018700
018800+ *   Returns index of the source item of the multiref data.                                               591018   91018800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    304
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
018900+D MultiRef_getSourceItemIndex...                                                                          591018   91018900
019000+D                 PR            10I 0                                                                     591018   91019000
019100+D                                     extproc('WSDL2R94_+                                                 591018   91019100
019200+D                                     MultiRef_getSourceItemIndex+                                        591018   91019200
019300+D                                     ')                                                                  591018   91019300
019400+ *                                                                                                        591018   91019400
019500+ *   Returns index of the target item of the multiref data.                                               591018   91019500
019600+D MultiRef_getTargetItemIndex...                                                                          591018   91019600
019700+D                 PR            10I 0                                                                     591018   91019700
019800+D                                     extproc('WSDL2R94_+                                                 591018   91019800
019900+D                                     MultiRef_getTargetItemIndex+                                        591018   91019900
020000+D                                     ')                                                                  591018   91020000
020100+ *                                                                                                        600220   91020100
020200+ *   Returns the pointer of the source user data of a                                                     600220   91020200
020300+ *   multi-reference item.                                                                                600220   91020300
020400+D MultiRef_getSourceUserData...                                                                           600220   91020400
020500+D                 PR              *                                                                       600220   91020500
020600+D                                     extproc('WSDL2R94_+                                                 600220   91020600
020700+D                                     MultiRef_getSourceUserData+                                         600220   91020700
020800+D                                     ')                                                                  600220   91020800
020900+ *                                                                                                        600220   91020900
021000+ *   Returns the pointer of the target user data of a                                                     600220   91021000
021100+ *   multi-reference item.                                                                                600220   91021100
021200+D MultiRef_getTargetUserData...                                                                           600220   91021200
021300+D                 PR              *                                                                       600220   91021300
021400+D                                     extproc('WSDL2R94_+                                                 600220   91021400
021500+D                                     MultiRef_getTargetUserData+                                         600220   91021500
021600+D                                     ')                                                                  600220   91021600
021700+ *                                                                                                        591018   91021700
021800+ *   Returns cTrue if the stub module is called in order to                                               591018   91021800
021900+ *   capture <multiref> data.                                                                             591018   91021900
022000+D MultiRef_doCaptureData...                                                                               591018   91022000
022100+D                 PR              N                                                                       591018   91022100
022200+D                                     extproc('WSDL2R94_+                                                 591018   91022200
022300+D                                     MultiRef_doCaptureData+                                             591018   91022300
022400+D                                     ')                                                                  591018   91022400
022500+ *                                                                                                        591018   91022500
022600+ *   Returns cTrue if the stub module is called in order to                                               591018   91022600
022700+ *   copy <multiref> data.                                                                                591018   91022700
022800+D MultiRef_doCopyData...                                                                                  591018   91022800
022900+D                 PR              N                                                                       591018   91022900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    305
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
023000+D                                     extproc('WSDL2R94_+                                                 591018   91023000
023100+D                                     MultiRef_doCopyData+                                                591018   91023100
023200+D                                     ')                                                                  591018   91023200
023300+ *                                                                                                        591018   91023300
023400+ *   Sets the number of array elements.                                                                   591018   91023400
023500+D MultiRef_setSize...                                                                                     591018   91023500
023600+D                 PR                                                                                      591018   91023600
023700+D                                     extproc('WSDL2R94_+                                                 591018   91023700
023800+D                                     MultiRef_setSize+                                                   591018   91023800
023900+D                                     ')                                                                  591018   91023900
024000+D  i_arraySize                  10I 0 const                                                               600223   91024000
024100+ *                                                                                                        591018   91024100
024200+ *   Returns the number of array elements.                                                                591018   91024200
024300+D MultiRef_getSize...                                                                                     591018   91024300
024400+D                 PR            10I 0                                                                     591018   91024400
024500+D                                     extproc('WSDL2R94_+                                                 591018   91024500
024600+D                                     MultiRef_getSize+                                                   591018   91024600
024700+D                                     ')                                                                  591018   91024700
024800+ *                                                                                                        571107   91024800
024900+ /ENDIF                                                                                                   571108   91024900
000175  /COPY QWSDL2RPG,PWSDL2R97                    WSDL2RPG: eXpat Adapter                                CPY  000000     000175
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R97                                                    *                    93
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R97)                                *                    93
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    93
        * Text 'description' . . . . :  WSDL2RPG: eXpat Adapter                (Prototype)           *                    93
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R97)                                                                               571121   93000100
000200+ /DEFINE PWSDL2R97                                                                                        571121   93000200
000300+ *                                                                                                        571121   93000300
000400+ /COPY QWSDL2RPG,TYPES_H                                                                             CPY  600403   93000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES_H                                                      *                    94
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES_H)                                  *                    94
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                    94
        * Text 'description' . . . . :  Type definitions (public)                                    *                    94
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(WSDL2RPG_WS_STUB_COMMON_TYPES)                                                           130912   94000100
            LINES EXCLUDED: 269
027100+ /ENDIF                                                                                                   571106   94027100
000500+ /COPY QBASICS1,PBASICS1                                                                             CPY  590328   93000500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    306
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PBASICS1                                                     *                    95
        * External name  . . . . . . :  WSDL2RPG/QBASICS1(PBASICS1)                                  *                    95
        * Last change  . . . . . . . :  11.06.15  08:16:10                                           *                    95
        * Text 'description' . . . . :  SrvPgm: Basic Routines - Include             cpybk           *                    95
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(D_BASIC)                                                                RADDAT           000000   95000100
            LINES EXCLUDED: 40
004200+ /ENDIF                                                                                  RADDAT           000000   95004200
000600+ *                                                                                                        571120   93000600
000700+D xmlSaxParser_handle_t...                                                                                571121   93000700
000800+D                 S               *                           based(pDummy)                               590328   93000800
000900+ *                                                                                                        571121   93000900
001000+D xmlSAXValidationType_t...                                                                               571121   93001000
001100+D                 S             10A   varying                 based(pDummy)                               571121   93001100
001200+ *                                                                                                        571121   93001200
001300+D xmlCallback_t...                                                                                        571121   93001300
001400+D                 S             10I 0                         based(pDummy)                               571121   93001400
001500+ *                                                                                                        571121   93001500
001600+D xmlAttrValue_t...                                                                                       571121   93001600
001700+D                 S                   like(xmlNodeValue_t )   based(pDummy)                               571121   93001700
001800+ *                                                                                                        590328   93001800
001900+D xmlNamespaceName_t...                                                                                   590328   93001900
002000+D                 S            256A   varying                 based(pDummy)                               571121   93002000
002100+ *                                                                                                        571121   93002100
002200+D xmlNamespaceValue_t...                                                                                  571121   93002200
002300+D                 S            512A   varying                 based(pDummy)                               571121   93002300
002400+ *                                                                                                        571121   93002400
002500+D xmlElementName_t...                                                                                     571121   93002500
002600+D                 S                   like(xmlNodeName_t  )   based(pDummy)                               571121   93002600
002700+ *                                                                                                        571121   93002700
002800+D xmlNodeName_t...                                                                                        571121   93002800
002900+D                 S            256A   varying                 based(pDummy)                               571121   93002900
003000+ *                                                                                                        571121   93003000
003100+D xmlObjectRef_t...                                                                                       571121   93003100
003200+D                 S               *                           based(pDummy)                               571121   93003200
003300+ *                                                                                                        571121   93003300
003400+D xmlPath_t...                                                                                            571121   93003400
003500+D                 S            256A   varying                 based(pDummy)                               571121   93003500
003600+ *                                                                                                        571121   93003600
003700+D xmlNodeValue_t...                                                                                       571121   93003700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    307
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003800+D                 S           8192A   varying                 based(pDummy)                               571121   93003800
003900+ *                                                                                                        571121   93003900
004000+D xmlXPath_t...                                                                                           571121   93004000
004100+D                 S           4096A   varying                 based(pDummy)                               571121   93004100
004200+ *                                                                                                        571121   93004200
004300+D xmlNestingLvl_t...                                                                                      571121   93004300
004400+D                 S             10I 0                         based(pDummy)                               571121   93004400
004500+ *                                                                                                        571121   93004500
004600+D xmlError_t...                                                                                           571121   93004600
004700+D                 S             10I 0                         based(pDummy)                               571121   93004700
004800+ *                                                                                                        571226   93004800
004900+D xmlErrorLine_t...                                                                                       571226   93004900
005000+D                 S             10I 0                         based(pDummy)                               571226   93005000
005100+ *                                                                                                        571226   93005100
005200+D xmlErrorColumn_t...                                                                                     571226   93005200
005300+D                 S             10I 0                         based(pDummy)                               571226   93005300
005400+ *                                                                                                        571121   93005400
005500+D xmlErrorText_t...                                                                                       571121   93005500
005600+D                 S            256A   varying                 based(pDummy)                               571121   93005600
005700+ *                                                                                                        590328   93005700
005800+D xmlErrorProc_t...                                                                                       590328   93005800
005900+D                 DS                  likeds(qProc_t )        based(pDummy)                               590328   93005900
006000+ *                                                                                                        571121   93006000
006100+ *  Callback procedures                                                                                   571121   93006100
006200+D cXML_CB_SAX_STARTELEMENT...                                                                             571121   93006200
006300+D                 C                   const(3)                                                            571121   93006300
006400+D cXML_CB_SAX_ENDELEMENT...                                                                               571121   93006400
006500+D                 C                   const(4)                                                            571121   93006500
006600+D cXML_CB_SAX_START_NAMESPACE_DECL...                                                                     580529   93006600
006700+D                 C                   const(5)                                                            580529   93006700
006800+D cXML_CB_SAX_END_NAMESPACE_DECL...                                                                       580529   93006800
006900+D                 C                   const(6)                                                            580529   93006900
007000+ *                                                                                                        571121   93007000
007100+ *  SAX validation modes                                                                                  571121   93007100
007200+D cXML_SAX_VALIDATION_NONE...                                                                             571121   93007200
007300+D                 C                   const('*NONE')                                                      571121   93007300
007400+ *                                                                                                        571121   93007400
007500+ *  Error codes                                                                                           571121   93007500
007600+D cXML_UNEXPECTEDERR...                                                                                   571221   93007600
007700+D                 C                   const(-1009)                                                        571221   93007700
007800+ *                                                                                                        571121   93007800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    308
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
007900+ *  SAX Parser: Callback for "Start Element" event                                                        571121   93007900
008000+D cbSaxStartElement...                                                                                    571121   93008000
008100+D                 PR                                                                                      571121   93008100
008200+ /IF DEFINED(SAXPARSER)                                                                                   571121   93008200
            LINES EXCLUDED: 1
008400+ /ELSE                                                                                                    571121   93008400
008500+D                                     extproc('cbSaxStartElement')                                        571121   93008500
008600+ /ENDIF                                                                                                   571121   93008600
008700+D  i_pUserData                    *   value                                                               571121   93008700
008800+D  i_xPath                            value  like(xmlXPath_t           )                                  571121   93008800
008900+D  i_nestingLvl                       value  like(xmlNestingLvl_t      )                                  571121   93008900
009000+D  i_URI                              value  like(xmlNamespaceValue_t  )                                  571121   93009000
009100+D  i_LName                            value  like(xmlElementName_t     )                                  571121   93009100
009200+D  i_QName                            value  like(xmlNamespaceValue_t  )                                  571121   93009200
009300+D  i_pAttrList                        value  like(xmlObjectRef_t       )                                  571121   93009300
009400+D  o_cancel                       N                                                                       571121   93009400
009500+ *                                                                                                        571121   93009500
009600+ *  SAX Parser: Callback for "End Element" event                                                          571121   93009600
009700+D cbSaxEndElement...                                                                                      571121   93009700
009800+D                 PR                                                                                      571121   93009800
009900+ /IF DEFINED(SAXPARSER)                                                                                   571121   93009900
            LINES EXCLUDED: 1
010100+ /ELSE                                                                                                    571121   93010100
010200+D                                     extproc('cbSaxEndElement')                                          571121   93010200
010300+ /ENDIF                                                                                                   571121   93010300
010400+D  i_pUserData                    *   value                                                               571121   93010400
010500+D  i_xPath                            value  like(xmlXPath_t           )                                  571121   93010500
010600+D  i_nestingLvl                       value  like(xmlNestingLvl_t      )                                  571121   93010600
010700+D  i_URI                              value  like(xmlNamespaceValue_t  )                                  571121   93010700
010800+D  i_LName                            value  like(xmlElementName_t     )                                  571121   93010800
010900+D  i_QName                            value  like(xmlNamespaceValue_t  )                                  571121   93010900
011000+D  i_pElmData                     *   value                                                               571121   93011000
011100+D  i_length                     10I 0 value                                                               571121   93011100
011200+D  o_cancel                       N                                                                       571121   93011200
011300+ *                                                                                                        580530   93011300
011400+ *  SAX Parser: Callback for "Start Namespace Declaration" event                                          580530   93011400
011500+D cbSaxStartNamespaceDecl...                                                                              580530   93011500
011600+D                 PR                                                                                      580530   93011600
011700+ /IF DEFINED(SAXPARSER)                                                                                   580530   93011700
            LINES EXCLUDED: 1
011900+ /ELSE                                                                                                    580530   93011900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    309
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012000+D                                     extproc('cbSaxStartNamespaceDecl')                                  580530   93012000
012100+ /ENDIF                                                                                                   580530   93012100
012200+D  i_pUserData                    *   value                                                               580530   93012200
012300+D  i_prefix                           value  like(xmlNamespaceName_t   )                                  580530   93012300
012400+D  i_URI                              value  like(xmlNamespaceValue_t  )                                  580530   93012400
012500+D  o_cancel                       N                                                                       580530   93012500
012600+ *                                                                                                        580530   93012600
012700+ *  SAX Parser: Callback for "End Namespace Declaration" event                                            580530   93012700
012800+D cbSaxEndNamespaceDecl...                                                                                580530   93012800
012900+D                 PR                                                                                      580530   93012900
013000+ /IF DEFINED(SAXPARSER)                                                                                   580530   93013000
            LINES EXCLUDED: 1
013200+ /ELSE                                                                                                    580530   93013200
013300+D                                     extproc('cbSaxEndNamespaceDecl')                                    580530   93013300
013400+ /ENDIF                                                                                                   580530   93013400
013500+D  i_pUserData                    *   value                                                               580530   93013500
013600+D  i_prefix                           value  like(xmlNamespaceName_t   )                                  580530   93013600
013700+D  o_cancel                       N                                                                       580530   93013700
013800+ *                                                                                                        571122   93013800
013900+ *  Returns a NULL SAX parser.                                                                            571122   93013900
014000+D XMLSAXParser_null...                                                                                    590328   93014000
014100+D                 PR                         like(xmlSaxParser_handle_t)                                  590328   93014100
014200+D                                     extproc('WSDL2R97_+                                                 571122   93014200
014300+D                                     XMLSAXParser_null+                                                  571122   93014300
014400+D                                     ')                                                                  571122   93014400
014500+ *                                                                                                        571122   93014500
014600+ *  Checks a given SAX parser handle for a NULL value.                                                    571122   93014600
014700+D XMLSAXParser_isNull...                                                                                  571122   93014700
014800+D                 PR              N                                                                       571122   93014800
014900+D                                     extproc('WSDL2R97_+                                                 571122   93014900
015000+D                                     XMLSAXParser_isNull+                                                571122   93015000
015100+D                                     ')                                                                  571122   93015100
015200+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93015200
015300+ *                                                                                                        571121   93015300
015400+ *  Creates a new SAX parser                                                                              571121   93015400
015500+D XMLSAXParser_new...                                                                                     571121   93015500
015600+D                 PR              N                                                                       571121   93015600
015700+D                                     extproc('WSDL2R97_+                                                 571121   93015700
015800+D                                     XMLSAXParser_new+                                                   571121   93015800
015900+D                                     ')                                                                  571121   93015900
016000+D  o_hSAXParser                              like(xmlSaxParser_handle_t)                                  590328   93016000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    310
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
016100+D  i_isHttpApiCB                  N   const  options(*nopass)                                             590328   93016100
016200+ *                                                                                                        571121   93016200
016300+ *  Enables/disables XML schema.                                                                          571121   93016300
016400+D XMLSAXParser_setDoSchema...                                                                             571121   93016400
016500+D                 PR              N                                                                       571121   93016500
016600+D                                     extproc('WSDL2R97_+                                                 571121   93016600
016700+D                                     XMLSAXParser_setDoSchema+                                           571121   93016700
016800+D                                     ')                                                                  571121   93016800
016900+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93016900
017000+D  i_doSchema                     N   value                                                               571121   93017000
017100+ *                                                                                                        571121   93017100
017200+ *  Enables/disables name spaces.                                                                         571121   93017200
017300+ *  When set to true, parser starts enforcing all the constraints                                         571121   93017300
017400+ *  and rules specified by the NameSpace specification.                                                   571121   93017400
017500+D XMLSAXParser_setDoNamespaces...                                                                         571121   93017500
017600+D                 PR              N                                                                       571121   93017600
017700+D                                     extproc('WSDL2R97_+                                                 571121   93017700
017800+D                                     XMLSAXParser_setDoNamespaces+                                       571121   93017800
017900+D                                     ')                                                                  571121   93017900
018000+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93018000
018100+D  i_doNamespace...                                                                                       571121   93018100
018200+D                                 N   value                                                               571121   93018200
018300+ *                                                                                                        571121   93018300
018400+ *  Sets the validation feature of a given SAX parser.                                                    571121   93018400
018500+D XMLSAXParser_setValidationFeature...                                                                    571121   93018500
018600+D                 PR              N                                                                       571121   93018600
018700+D                                     extproc('WSDL2R97_+                                                 571121   93018700
018800+D                                     XMLSAXParser_setValidationFeature+                                  571121   93018800
018900+D                                     ')                                                                  571121   93018900
019000+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93019000
019100+D  i_doValidation...                                                                                      571121   93019100
019200+D                                     value  like(xmlSAXValidationType_t)                                 571121   93019200
019300+ *                                                                                                        571121   93019300
019400+ *  Registers a callback procedure                                                                        571121   93019400
019500+D XMLSAXParser_registerCallback...                                                                        571121   93019500
019600+D                 PR                                                                                      571121   93019600
019700+D                                     extproc('WSDL2R97_+                                                 571121   93019700
019800+D                                     XMLSAXParser_registerCallback+                                      571121   93019800
019900+D                                     ')                                                                  571121   93019900
020000+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93020000
020100+D  i_callback                         value  like(xmlCallback_t        )                                  571121   93020100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    311
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
020200+D  i_pCallback                    *   value  procptr                                                      571121   93020200
020300+ *                                                                                                        571121   93020300
020400+ *  Sets the input source to a file.                                                                      571121   93020400
020500+D XMLSAXParser_setInputSourceFile...                                                                      571121   93020500
020600+D                 PR              N                                                                       571121   93020600
020700+D                                     extproc('WSDL2R97_+                                                 571121   93020700
020800+D                                     XMLSAXParser_setInputSourceFile+                                    571121   93020800
020900+D                                     ')                                                                  571121   93020900
021000+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t )                                 590328   93021000
021100+D  i_path                             value  like(xmlPath_t             )                                 590328   93021100
021200+ *                                                                                                        571121   93021200
021300+ *  Sets the input source to a user callback.                                                             590328   93021300
021400+D XMLSAXParser_setInputSourceCallback...                                                                  590328   93021400
021500+D                 PR              N                                                                       590328   93021500
021600+D                                     extproc('WSDL2R97_+                                                 590328   93021600
021700+D                                     XMLSAXParser_setInputSourceCallback+                                590328   93021700
021800+D                                     ')                                                                  590328   93021800
021900+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t )                                 590328   93021900
022000+D  i_fd                         10I 0 value                                                               590328   93022000
022100+D  i_pReadProc                    *   value  procptr                                                      590328   93022100
022200+ *                                                                                                        590328   93022200
022300+ *  Parses a given .xml file or memory buffer.                                                            571121   93022300
022400+D XMLSAXParser_run...                                                                                     571121   93022400
022500+D                 PR              N                                                                       571121   93022500
022600+D                                     extproc('WSDL2R97_+                                                 571121   93022600
022700+D                                     XMLSAXParser_run+                                                   571121   93022700
022800+D                                     ')                                                                  571121   93022800
022900+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93022900
023000+D  i_pUserData                    *   value                                                               571121   93023000
023100+ *                                                                                                        590328   93023100
023200+ *  Prepares a given XMLSAXParser to get the data to parse.                                               590328   93023200
023300+ *  After having prepared the parser the XML data to parse can be feeded                                  590328   93023300
023400+ *  to the parser with XMLSAXParser_parse().                                                              590328   93023400
023500+D XMLSAXParser_prepareParse...                                                                            590328   93023500
023600+D                 PR              N                                                                       590328   93023600
023700+D                                     extproc('WSDL2R97_+                                                 590328   93023700
023800+D                                     XMLSAXParser_prepareParse+                                          590328   93023800
023900+D                                     ')                                                                  590328   93023900
024000+D  i_hSAXParser                              like(xmlSaxParser_handle_t)                                  590329   93024000
024100+D  i_pUserData                    *   value                                                               590328   93024100
024200+ *                                                                                                        590328   93024200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    312
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
024300+ *  Parses XML data after the parse was initialized by XMLSAXParser_prepareParse().                       590328   93024300
024400+D XMLSAXParser_parse...                                                                                   590328   93024400
024500+D                 PR              N                                                                       590328   93024500
024600+D                                     extproc('WSDL2R97_+                                                 590328   93024600
024700+D                                     XMLSAXParser_parse+                                                 590328   93024700
024800+D                                     ')                                                                  590328   93024800
024900+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93024900
025000+D  i_pBuffer                      *   value                                                               590328   93025000
025100+D  i_size                       10I 0 value                                                               590328   93025100
025200+ *                                                                                                        590328   93025200
025300+ *  Ends parsing with XMLSAXParser_parse().                                                               590328   93025300
025400+D XMLSAXParser_endParse...                                                                                590328   93025400
025500+D                 PR              N                                                                       590328   93025500
025600+D                                     extproc('WSDL2R97_+                                                 590328   93025600
025700+D                                     XMLSAXParser_endParse+                                              590328   93025700
025800+D                                     ')                                                                  590328   93025800
025900+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93025900
026000+ *                                                                                                        571121   93026000
026100+ *  Deletes the SAX parser                                                                                571121   93026100
026200+D XMLSAXParser_delete...                                                                                  571121   93026200
026300+D                 PR              N                                                                       571121   93026300
026400+D                                     extproc('WSDL2R97_+                                                 571121   93026400
026500+D                                     XMLSAXParser_delete+                                                571121   93026500
026600+D                                     ')                                                                  571121   93026600
026700+D  io_hSaxParser                             like(xmlSaxParser_handle_t)                                  590328   93026700
026800+ *                                                                                                        571121   93026800
026900+ *  Delegate element processing to dedicated 'Start Element' / 'End Element' procedures.                  571121   93026900
027000+D XMLSAXParser_delegateElementProcessing...                                                               571121   93027000
027100+D                 PR                                                                                      571121   93027100
027200+D                                     extproc('WSDL2R97_+                                                 571121   93027200
027300+D                                     XMLSAXParser_delegate+                                              571121   93027300
027400+D                                     ElementProcessing+                                                  571121   93027400
027500+D                                     ')                                                                  571121   93027500
027600+D  i_pUserData                    *   value                                                               571121   93027600
027700+D  i_pStartElem                   *   value  procptr                                                      571121   93027700
027800+D  i_pEndElem                     *   value  procptr                                                      571121   93027800
027900+ *                                                                                                        571122   93027900
028000+ *  Returns the number of attributes of the current element.                                              571122   93028000
028100+D XMLSAXParser_getNumAttributes...                                                                        571122   93028100
028200+D                 PR            10I 0                                                                     571122   93028200
028300+D                                     extproc('WSDL2R97_+                                                 571122   93028300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    313
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
028400+D                                     XMLSAXParser_getNumAttributes+                                      571122   93028400
028500+D                                     ')                                                                  571122   93028500
028600+D  i_attrs                        *   const  dim(32767) options(*varsize)                                 580131   93028600
028700+ *                                                                                                        571121   93028700
028800+ *  Returns the qualified attribute name of the attribute at the specified index.                         571121   93028800
028900+D XMLSAXParser_getAttributeQName...                                                                       571121   93028900
029000+D                 PR                         like(xmlNamespaceValue_t)                                    571121   93029000
029100+D                                     extproc('WSDL2R97_+                                                 571121   93029100
029200+D                                     XMLSAXParser_getAttributeQName+                                     571121   93029200
029300+D                                     ')                                                                  571121   93029300
029400+D  i_attrs                        *   const  dim(32767) options(*varsize)                                 580131   93029400
029500+D  i_index                      10I 0 const                                                               571122   93029500
029600+ *                                                                                                        571122   93029600
029700+ *  Returns the attribute value of the attribute at the specified index.                                  571122   93029700
029800+D XMLSAXParser_getAttributeValue...                                                                       571122   93029800
029900+D                 PR                         like(xmlAttrValue_t )                                        571122   93029900
030000+D                                     extproc('WSDL2R97_+                                                 571122   93030000
030100+D                                     XMLSAXParser_getAttributeValue+                                     571122   93030100
030200+D                                     ')                                                                  571122   93030200
030300+D  i_attrs                        *   const  dim(32767) options(*varsize)                                 580131   93030300
030400+D  i_index                      10I 0 const                                                               571122   93030400
030500+ *                                                                                                        571122   93030500
030600+ *  Returns the value of the attribute that matches the qualified name.                                   571122   93030600
030700+D XMLSAXParser_getAttributeValueByQName...                                                                571122   93030700
030800+D                 PR                         like(xmlAttrValue_t     )                                    571122   93030800
030900+D                                     extproc('WSDL2R97_+                                                 571122   93030900
031000+D                                     XMLSAXParser_getAttribute+                                          571122   93031000
031100+D                                     ValueByQName+                                                       571122   93031100
031200+D                                     ')                                                                  571122   93031200
031300+D  i_attrs                        *   const  dim(32767) options(*varsize)                                 580131   93031300
031400+D  i_qName                            const  like(xmlNamespaceValue_t)                                    571122   93031400
031500+ *                                                                                                        580904   93031500
031600+ *  Returns TRUE if the attribute that matches the                                                        580904   93031600
031700+ *  specified name is present, else FALSE.                                                                580904   93031700
031800+D XMLSAXParser_hasAttribute...                                                                            580904   93031800
031900+D                 PR              N                                                                       580904   93031900
032000+D                                     extproc('WSDL2R97_+                                                 580904   93032000
032100+D                                     XMLSAXParser_hasAttribute+                                          580904   93032100
032200+D                                     ')                                                                  580904   93032200
032300+D  i_attrs                        *   const  dim(32767) options(*varsize)                                 580904   93032300
032400+D  i_qName                            const  like(xmlNamespaceValue_t)                                    580904   93032400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    314
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
032500+ *                                                                                                        580131   93032500
032600+ *  Returns the procedure pointer of the currently active                                                 580131   93032600
032700+ *  start callback procedure.                                                                             580131   93032700
032800+D XMLSAXParser_getStartCallback...                                                                        580131   93032800
032900+D                 PR              *          procptr                                                      580131   93032900
033000+D                                     extproc('WSDL2R97_+                                                 580131   93033000
033100+D                                     XMLSAXParser_getStartCallback+                                      580131   93033100
033200+D                                     ')                                                                  580131   93033200
033300+ *                                                                                                        580131   93033300
033400+ *  Returns the procedure pointer of the currently active                                                 580131   93033400
033500+ *  end callback procedure.                                                                               580131   93033500
033600+D XMLSAXParser_getEndCallback...                                                                          580131   93033600
033700+D                 PR              *          procptr                                                      580131   93033700
033800+D                                     extproc('WSDL2R97_+                                                 580131   93033800
033900+D                                     XMLSAXParser_getEndCallback+                                        580131   93033900
034000+D                                     ')                                                                  580131   93034000
034100+ *                                                                                                        580131   93034100
034200+ *  Returns the pointer of the currently active user data.                                                580131   93034200
034300+D XMLSAXParser_getUserData...                                                                             580131   93034300
034400+D                 PR              *                                                                       580131   93034400
034500+D                                     extproc('WSDL2R97_+                                                 580131   93034500
034600+D                                     XMLSAXParser_getUserData+                                           580131   93034600
034700+D                                     ')                                                                  580131   93034700
034800+ *                                                                                                        591215   93034800
034900+ *  Returns the full element data.                                                                        591215   93034900
035000+D XMLSAXParser_getFullElementData...                                                                      591215   93035000
035100+D                 PR                         likeds(wsdl_fullElementData_t)                               591216   93035100
035200+D                                     extproc('WSDL2R97_+                                                 591215   93035200
035300+D                                     XMLSAXParser_getFullElementData+                                    591215   93035300
035400+D                                     ')                                                                  591215   93035400
035500+ *                                                                                                        600219   93035500
035600+ *  Makes the parser to skip the END callback procedure.                                                  600219   93035600
035700+D XMLSAXParser_setSkipEndCallback...                                                                      600219   93035700
035800+D                 PR                                                                                      600219   93035800
035900+D                                     extproc('WSDL2R97_+                                                 600219   93035900
036000+D                                     XMLSAXParser_setSkipEndCallback+                                    600219   93036000
036100+D                                     ')                                                                  600219   93036100
036200+ *                                                                                                        571122   93036200
036300+ *  Returns cTrue on error condition, else cFalse.                                                        571122   93036300
036400+D XMLToolkit_isError...                                                                                   571122   93036400
036500+D                 PR              N                                                                       571122   93036500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    315
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
036600+D                                     extproc('WSDL2R97_+                                                 571122   93036600
036700+D                                     XMLToolkit_isError+                                                 571122   93036700
036800+D                                     ')                                                                  571122   93036800
036900+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93036900
037000+ *                                                                                                        571122   93037000
037100+ *  Clears error information.                                                                             571122   93037100
037200+D XMLToolkit_clearError...                                                                                571122   93037200
037300+D                 PR                                                                                      571122   93037300
037400+D                                     extproc('WSDL2R97_+                                                 571122   93037400
037500+D                                     XMLToolkit_clearError+                                              571122   93037500
037600+D                                     ')                                                                  571122   93037600
037700+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93037700
037800+ *                                                                                                        571121   93037800
037900+ *  Sets a user error rmessage.                                                                           571121   93037900
038000+D XMLToolkit_setError...                                                                                  571121   93038000
038100+D                 PR                                                                                      571121   93038100
038200+D                                     extproc('WSDL2R97_+                                                 571121   93038200
038300+D                                     XMLToolkit_setError+                                                571121   93038300
038400+D                                     ')                                                                  571121   93038400
038500+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93038500
038600+D  i_error                            value  like(xmlError_t     )                                        571121   93038600
038700+D  i_errorText                        value  like(xmlErrorText_t )                                        571121   93038700
038800+D                                            options(*nopass)                                             571122   93038800
038900+D  i_line                             value  like(xmlErrorLine_t )                                        571226   93038900
039000+D                                            options(*nopass)                                             571226   93039000
039100+D  i_column                           value  like(xmlErrorColumn_t)                                       571226   93039100
039200+D                                            options(*nopass)                                             571226   93039200
039300+ *                                                                                                        571121   93039300
039400+ *  Gets the last error message of the XML Toolkit for iSeries                                            571121   93039400
039500+D XMLToolkit_getError...                                                                                  571121   93039500
039600+D                 PR                         like(xmlError_t     )                                        571121   93039600
039700+D                                     extproc('WSDL2R97_+                                                 571121   93039700
039800+D                                     XMLToolkit_getError+                                                571121   93039800
039900+D                                     ')                                                                  571121   93039900
040000+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93040000
040100+D  o_errorText                               like(xmlErrorText_t )                                        571121   93040100
040200+D                                            options(*nopass)                                             571121   93040200
040300+D  o_errorLine                               like(xmlErrorLine_t )                                        571226   93040300
040400+D                                            options(*nopass)                                             571226   93040400
040500+D  o_errorColumn                             like(xmlErrorColumn_t)                                       571226   93040500
040600+D                                            options(*nopass)                                             571226   93040600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    316
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
040700+ *                                                                                                        571121   93040700
040800+ *  Gets the name of the last procedure in error.                                                         571121   93040800
040900+D XMLToolkit_getErrorProc...                                                                              571121   93040900
041000+D                 PR                         likeds(xmlErrorProc_t)                                       590328   93041000
041100+D                                     extproc('WSDL2R97_+                                                 571121   93041100
041200+D                                     XMLToolkit_getErrorProc+                                            571121   93041200
041300+D                                     ')                                                                  571121   93041300
041400+D  i_hSAXParser                       value  like(xmlSaxParser_handle_t)                                  590328   93041400
041500+ *                                                                                                        571107   93041500
041600+ /ENDIF                                                                                                   571108   93041600
000176  /COPY QWSDL2RPG,PWSDL2R98                    WSDL2RPG: UnMarshaller/Marshaller                      CPY  000000     000176
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R98                                                    *                    96
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R98)                                *                    96
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    96
        * Text 'description' . . . . :  WSDL2RPG: UnMarshaller/Marshaller      (Prototype)           *                    96
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R98)                                                                               571120   96000100
000200+ /DEFINE PWSDL2R98                                                                                        571120   96000200
000300+ *                                                                                                        571108   96000300
000400+ /COPY QWSDL2RPG,TYPES                                                                               CPY  140422   96000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES                                                        *                    97
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES)                                    *                    97
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                    97
        * Text 'description' . . . . :  Type definitions (private)                                   *                    97
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(TYPES)                                                                                   571106   97000100
            LINES EXCLUDED: 1036
103800+ /ENDIF                                                                                                   571106   97103800
000500+ /COPY QWSDL2RPG,TYPES_H                                                                             CPY  140422   96000500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES_H                                                      *                    98
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES_H)                                  *                    98
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                    98
        * Text 'description' . . . . :  Type definitions (public)                                    *                    98
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(WSDL2RPG_WS_STUB_COMMON_TYPES)                                                           130912   98000100
            LINES EXCLUDED: 269
027100+ /ENDIF                                                                                                   571106   98027100
000600+ /COPY QWSDL2RPG,PWSDL2R86                    WSDL2RPG: Stream                                       CPY  610717   96000600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    317
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R86                                                    *                    99
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R86)                                *                    99
        * Last change  . . . . . . . :  19.04.15  17:01:55                                           *                    99
        * Text 'description' . . . . :  WSDL2RPG: Stream                       (Prototype)           *                    99
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R86)                                                                               580612   99000100
            LINES EXCLUDED: 90
009200+ /ENDIF                                                                                                   571108   99009200
000700+ *                                                                                                        620202   96000700
000800+ *  Sets the name and xpath of the field that is going                                                    620202   96000800
000900+ *  to be unmarshalled.                                                                                   620202   96000900
001000+D UnMarshaller_setFieldIdentifier...                                                                      620202   96001000
001100+D                 PR                                                                                      620202   96001100
001200+D                                     extproc('WSDL2R98_+                                                 620202   96001200
001300+D                                     UnMarshaller_setFieldIdentifier+                                    620202   96001300
001400+D                                     ')                                                                  620202   96001400
001500+D  i_name                     1024A   const  varying options(*varsize)                                    620202   96001500
001600+D  i_path                    24576A   const  varying options(*varsize)                                    620202   96001600
001700+D  i_index                      10I 0 const  options(*nopass)                                             620202   96001700
001800+ *                                                                                                        580206   96001800
001900+ *  Returns a given XML as 'anyType' (actually string).                                                   580206   96001900
002000+D UnMarshaller_toAnyType...                                                                               580206   96002000
002100+D                 PR         65535A          varying                                                      580206   96002100
002200+D                                     extproc('WSDL2R98_+                                                 580206   96002200
002300+D                                     UnMarshaller_toAnyType+                                             580206   96002300
002400+D                                     ')                                                                  580206   96002400
002500+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96002500
002600+ *                                                                                                        610718   96002600
002700+ *  Returns a given XML as 'anyType' (actually string).                                                   610718   96002700
002800+D UnMarshaller_toAnyTypeV6...                                                                             610718   96002800
002900+D                 PR                                                                                      610718   96002900
003000+D                                     extproc('WSDL2R98_+                                                 610718   96003000
003100+D                                     UnMarshaller_toAnyTypeV6+                                           610718   96003100
003200+D                                     ')                                                                  610718   96003200
003300+D  i_pField                       *   const                                                               610718   96003300
003400+D  i_pData                        *   const                                                               610718   96003400
003500+D  i_size                       10I 0 const                                                               610718   96003500
003600+D  i_pValue                       *   const                                                               610718   96003600
003700+D  i_length                     10I 0 const                                                               610718   96003700
003800+ *                                                                                                        611130   96003800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    318
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003900+ *  Returns a given XML as 'anySimpleType' (actually string).                                             611130   96003900
004000+D UnMarshaller_toAnySimpleType...                                                                         611130   96004000
004100+D                 PR         65535A          varying                                                      611130   96004100
004200+D                                     extproc('WSDL2R98_+                                                 611130   96004200
004300+D                                     UnMarshaller_toAnySimpleType+                                       611130   96004300
004400+D                                     ')                                                                  611130   96004400
004500+D  i_value                   65535A   const  varying  options(*varsize)                                   611130   96004500
004600+ *                                                                                                        611130   96004600
004700+ *  Returns a given XML as 'anySimpleType' (actually string).                                             611130   96004700
004800+D UnMarshaller_toAnySimpleTypeV6...                                                                       611130   96004800
004900+D                 PR                                                                                      611130   96004900
005000+D                                     extproc('WSDL2R98_+                                                 611130   96005000
005100+D                                     UnMarshaller_toAnySimpleTypeV6+                                     611130   96005100
005200+D                                     ')                                                                  611130   96005200
005300+D  i_pField                       *   const                                                               611130   96005300
005400+D  i_pData                        *   const                                                               611130   96005400
005500+D  i_size                       10I 0 const                                                               611130   96005500
005600+D  i_pValue                       *   const                                                               611130   96005600
005700+D  i_length                     10I 0 const                                                               611130   96005700
005800+ *                                                                                                        580207   96005800
005900+ *  Returns a given XML as 'any'     (actually string).                                                   580207   96005900
006000+D UnMarshaller_toAny...                                                                                   580207   96006000
006100+D                 PR         65535A          varying                                                      580207   96006100
006200+D                                     extproc('WSDL2R98_+                                                 580207   96006200
006300+D                                     UnMarshaller_toAny+                                                 580207   96006300
006400+D                                     ')                                                                  580207   96006400
006500+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96006500
006600+ *                                                                                                        610718   96006600
006700+ *  Returns a given XML as 'any'     (actually string).                                                   610718   96006700
006800+D UnMarshaller_toAnyV6...                                                                                 610718   96006800
006900+D                 PR                                                                                      610718   96006900
007000+D                                     extproc('WSDL2R98_+                                                 610718   96007000
007100+D                                     UnMarshaller_toAnyV6+                                               610718   96007100
007200+D                                     ')                                                                  610718   96007200
007300+D  i_pField                       *   const                                                               610718   96007300
007400+D  i_pData                        *   const                                                               610718   96007400
007500+D  i_size                       10I 0 const                                                               610718   96007500
007600+D  i_pValue                       *   const                                                               610718   96007600
007700+D  i_length                     10I 0 const                                                               610718   96007700
007800+ *                                                                                                        571125   96007800
007900+ *  Returns a given XML as 'string'.                                                                      571125   96007900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    319
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008000+D UnMarshaller_toString...                                                                                571125   96008000
008100+D                 PR         65535A          varying                                                      571125   96008100
008200+D                                     extproc('WSDL2R98_+                                                 571125   96008200
008300+D                                     UnMarshaller_toString+                                              571125   96008300
008400+D                                     ')                                                                  601208   96008400
008500+D  i_value                   65535A   const  varying  options(*varsize)                                   601208   96008500
008600+ *                                                                                                        610718   96008600
008700+ *  Returns a given XML as 'string'.                                                                      610718   96008700
008800+D UnMarshaller_toStringV6...                                                                              610718   96008800
008900+D                 PR                                                                                      610718   96008900
009000+D                                     extproc('WSDL2R98_+                                                 610718   96009000
009100+D                                     UnMarshaller_toStringV6+                                            610718   96009100
009200+D                                     ')                                                                  610718   96009200
009300+D  i_pField                       *   const                                                               610718   96009300
009400+D  i_pData                        *   const                                                               610718   96009400
009500+D  i_size                       10I 0 const                                                               610718   96009500
009600+D  i_pValue                       *   const                                                               610718   96009600
009700+D  i_length                     10I 0 const                                                               610718   96009700
009800+ *                                                                                                        601208   96009800
009900+ *  Returns a given XML as 'normalizedString'.                                                            601208   96009900
010000+D UnMarshaller_toNormalizedString...                                                                      601208   96010000
010100+D                 PR         65535A          varying                                                      601208   96010100
010200+D                                     extproc('WSDL2R98_+                                                 601208   96010200
010300+D                                     UnMarshaller_toNormalizedString+                                    601208   96010300
010400+D                                     ')                                                                  571125   96010400
010500+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96010500
010600+ *                                                                                                        610718   96010600
010700+ *  Returns a given XML as 'normalizedString'.                                                            610718   96010700
010800+D UnMarshaller_toNormalizedStringV6...                                                                    610718   96010800
010900+D                 PR                                                                                      610718   96010900
011000+D                                     extproc('WSDL2R98_+                                                 610718   96011000
011100+D                                     UnMarshaller_toNormalizedStringV6+                                  610718   96011100
011200+D                                     ')                                                                  610718   96011200
011300+D  i_pField                       *   const                                                               610718   96011300
011400+D  i_pData                        *   const                                                               610718   96011400
011500+D  i_size                       10I 0 const                                                               610718   96011500
011600+D  i_pValue                       *   const                                                               610718   96011600
011700+D  i_length                     10I 0 const                                                               610718   96011700
011800+ *                                                                                                        620619   96011800
011900+ *  Returns a given XML as 'QName'.                                                                       620619   96011900
012000+D UnMarshaller_toQName...                                                                                 620619   96012000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    320
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012100+D                 PR         65535A          varying                                                      620619   96012100
012200+D                                     extproc('WSDL2R98_+                                                 620619   96012200
012300+D                                     UnMarshaller_toQName+                                               620619   96012300
012400+D                                     ')                                                                  620619   96012400
012500+D  i_value                   65535A   const  varying  options(*varsize)                                   620619   96012500
012600+ *                                                                                                        620619   96012600
012700+ *  Returns a given XML as 'QName'.                                                                       620619   96012700
012800+D UnMarshaller_toQNameV6...                                                                               620619   96012800
012900+D                 PR                                                                                      620619   96012900
013000+D                                     extproc('WSDL2R98_+                                                 620619   96013000
013100+D                                     UnMarshaller_toQNameV6+                                             620619   96013100
013200+D                                     ')                                                                  620619   96013200
013300+D  i_pField                       *   const                                                               620619   96013300
013400+D  i_pData                        *   const                                                               620619   96013400
013500+D  i_size                       10I 0 const                                                               620619   96013500
013600+D  i_pValue                       *   const                                                               620619   96013600
013700+D  i_length                     10I 0 const                                                               620619   96013700
013800+ *                                                                                                        571125   96013800
013900+ *  Returns a given XML as 'boollean'.                                                                    571125   96013900
014000+D UnMarshaller_toBoolean...                                                                               571125   96014000
014100+D                 PR              N                                                                       571125   96014100
014200+D                                     extproc('WSDL2R98_+                                                 571125   96014200
014300+D                                     UnMarshaller_toBoolean+                                             571125   96014300
014400+D                                     ')                                                                  571125   96014400
014500+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96014500
014600+ *                                                                                                        571125   96014600
014700+ *  Returns a given XML as 'decimal'.                                                                     571125   96014700
014800+D UnMarshaller_toDecimal...                                                                               571125   96014800
014900+D                 PR                         like(wsdl_decimal_t )                                        571125   96014900
015000+D                                     extproc('WSDL2R98_+                                                 571125   96015000
015100+D                                     UnMarshaller_toDecimal+                                             571125   96015100
015200+D                                     ')                                                                  571125   96015200
015300+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96015300
015400+ *                                                                                                        571221   96015400
015500+ *  Returns a given XML as 'double'.                                                                      571221   96015500
015600+D UnMarshaller_toDouble...                                                                                571221   96015600
015700+D                 PR                         like(wsdl_double_t  )                                        571221   96015700
015800+D                                     extproc('WSDL2R98_+                                                 571221   96015800
015900+D                                     UnMarshaller_toDouble+                                              571221   96015900
016000+D                                     ')                                                                  571221   96016000
016100+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96016100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    321
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
016200+ *                                                                                                        580319   96016200
016300+ *  Returns a given XML as 'float'.                                                                       580319   96016300
016400+D UnMarshaller_toFloat...                                                                                 580319   96016400
016500+D                 PR                         like(wsdl_float_t  )                                         580319   96016500
016600+D                                     extproc('WSDL2R98_+                                                 580319   96016600
016700+D                                     UnMarshaller_toFloat+                                               580319   96016700
016800+D                                     ')                                                                  580319   96016800
016900+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96016900
017000+ *                                                                                                        571125   96017000
017100+ *  Returns a given XML as 'integer'.                                                                     571125   96017100
017200+D UnMarshaller_toInt...                                                                                   571125   96017200
017300+D                 PR                  like(wsdl_int_t     )                                               590804   96017300
017400+D                                     extproc('WSDL2R98_+                                                 571125   96017400
017500+D                                     UnMarshaller_toInt+                                                 571125   96017500
017600+D                                     ')                                                                  571125   96017600
017700+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96017700
017800+ *                                                                                                        580121   96017800
017900+ *  Returns a given XML as 'short integer'.                                                               580121   96017900
018000+D UnMarshaller_toShort...                                                                                 580121   96018000
018100+D                 PR                  like(wsdl_short_t )                                                 580121   96018100
018200+D                                     extproc('WSDL2R98_+                                                 580121   96018200
018300+D                                     UnMarshaller_toShort+                                               580121   96018300
018400+D                                     ')                                                                  580121   96018400
018500+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96018500
018600+ *                                                                                                        590804   96018600
018700+ *  Returns a given XML as 'byte integer'.                                                                600831   96018700
018800+D UnMarshaller_toByte...                                                                                  600831   96018800
018900+D                 PR                  like(wsdl_byte_t  )                                                 600831   96018900
019000+D                                     extproc('WSDL2R98_+                                                 600831   96019000
019100+D                                     UnMarshaller_toByte+                                                600831   96019100
019200+D                                     ')                                                                  600831   96019200
019300+D  i_value                   65535A   const  varying  options(*varsize)                                   600831   96019300
019400+ *                                                                                                        600831   96019400
019500+ *  Returns a given XML as 'integer'.                                                                     590804   96019500
019600+D UnMarshaller_toInteger...                                                                               590804   96019600
019700+D                 PR                  like(wsdl_integer_t)                                                590804   96019700
019800+D                                     extproc('WSDL2R98_+                                                 590804   96019800
019900+D                                     UnMarshaller_toInteger+                                             590804   96019900
020000+D                                     ')                                                                  590804   96020000
020100+D  i_value                   65535A   const  varying  options(*varsize)                                   590804   96020100
020200+ *                                                                                                        571125   96020200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    322
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
020300+ *  Returns a given XML as 'long integer'.                                                                580905   96020300
020400+D UnMarshaller_toLong...                                                                                  580905   96020400
020500+D                 PR                  like(wsdl_long_t  )                                                 580905   96020500
020600+D                                     extproc('WSDL2R98_+                                                 580905   96020600
020700+D                                     UnMarshaller_toLong+                                                580905   96020700
020800+D                                     ')                                                                  580905   96020800
020900+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96020900
021000+ *                                                                                                        580905   96021000
021100+ *  Returns a given XML as 'unsigned integer'.                                                            580905   96021100
021200+D UnMarshaller_toUnsignedInt...                                                                           580905   96021200
021300+D                 PR                  like(wsdl_uInt_t     )                                              590804   96021300
021400+D                                     extproc('WSDL2R98_+                                                 580905   96021400
021500+D                                     UnMarshaller_toUnsignedInt+                                         580905   96021500
021600+D                                     ')                                                                  580905   96021600
021700+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96021700
021800+ *                                                                                                        580905   96021800
021900+ *  Returns a given XML as 'unsigned short integer'.                                                      580905   96021900
022000+D UnMarshaller_toUnsignedShort...                                                                         580905   96022000
022100+D                 PR                  like(wsdl_uShort_t )                                                580905   96022100
022200+D                                     extproc('WSDL2R98_+                                                 580905   96022200
022300+D                                     UnMarshaller_toUnsignedShort+                                       580905   96022300
022400+D                                     ')                                                                  600831   96022400
022500+D  i_value                   65535A   const  varying  options(*varsize)                                   600831   96022500
022600+ *                                                                                                        600831   96022600
022700+ *  Returns a given XML as 'unsigned byte integer'.                                                       600831   96022700
022800+D UnMarshaller_toUnsignedByte...                                                                          600831   96022800
022900+D                 PR                  like(wsdl_uByte_t  )                                                600831   96022900
023000+D                                     extproc('WSDL2R98_+                                                 600831   96023000
023100+D                                     UnMarshaller_toUnsignedByte+                                        600831   96023100
023200+D                                     ')                                                                  580905   96023200
023300+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96023300
023400+ *                                                                                                        580905   96023400
023500+ *  Returns a given XML as 'unsigned long integer'.                                                       580905   96023500
023600+D UnMarshaller_toUnsignedLong...                                                                          580905   96023600
023700+D                 PR                  like(wsdl_uLong_t  )                                                580905   96023700
023800+D                                     extproc('WSDL2R98_+                                                 580905   96023800
023900+D                                     UnMarshaller_toUnsignedLong+                                        580905   96023900
024000+D                                     ')                                                                  580905   96024000
024100+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96024100
024200+ *                                                                                                        580905   96024200
024300+ *  Returns a given XML as 'non negative integer'.                                                        580905   96024300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    323
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
024400+D UnMarshaller_toNonNegativeInteger...                                                                    580905   96024400
024500+D                 PR                  like(wsdl_nonNegInt_t )                                             580905   96024500
024600+D                                     extproc('WSDL2R98_+                                                 580905   96024600
024700+D                                     UnMarshaller_toNonNegativeInteger+                                  580905   96024700
024800+D                                     ')                                                                  580905   96024800
024900+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96024900
025000+ *                                                                                                        580905   96025000
025100+ *  Returns a given XML as 'non positive integer'.                                                        580905   96025100
025200+D UnMarshaller_toNonPositiveInteger...                                                                    580905   96025200
025300+D                 PR                  like(wsdl_nonPosInt_t )                                             580905   96025300
025400+D                                     extproc('WSDL2R98_+                                                 580905   96025400
025500+D                                     UnMarshaller_toNonPositiveInteger+                                  580905   96025500
025600+D                                     ')                                                                  580905   96025600
025700+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96025700
025800+ *                                                                                                        580905   96025800
025900+ *  Returns a given XML as 'negative integer'.                                                            580905   96025900
026000+D UnMarshaller_toNegativeInteger...                                                                       580905   96026000
026100+D                 PR                  like(wsdl_negInt_t )                                                580905   96026100
026200+D                                     extproc('WSDL2R98_+                                                 580905   96026200
026300+D                                     UnMarshaller_toNegativeInteger+                                     580905   96026300
026400+D                                     ')                                                                  580905   96026400
026500+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96026500
026600+ *                                                                                                        580905   96026600
026700+ *  Returns a given XML as 'positive integer'.                                                            580905   96026700
026800+D UnMarshaller_toPositiveInteger...                                                                       580905   96026800
026900+D                 PR                  like(wsdl_posInt_t )                                                580905   96026900
027000+D                                     extproc('WSDL2R98_+                                                 580905   96027000
027100+D                                     UnMarshaller_toPositiveInteger+                                     580905   96027100
027200+D                                     ')                                                                  580905   96027200
027300+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96027300
027400+ *                                                                                                        580905   96027400
027500+ *  Returns a given XML as 'timestamp'.                                                                   571125   96027500
027600+D UnMarshaller_toDateTime...                                                                              571125   96027600
027700+D                 PR              Z                                                                       571125   96027700
027800+D                                     extproc('WSDL2R98_+                                                 571125   96027800
027900+D                                     UnMarshaller_toDateTime+                                            571125   96027900
028000+D                                     ')                                                                  580905   96028000
028100+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96028100
028200+ *                                                                                                        580905   96028200
028300+ *  Returns a given XML as 'date'.                                                                        580905   96028300
028400+D UnMarshaller_toDate...                                                                                  580905   96028400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    324
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
028500+D                 PR              D                                                                       580905   96028500
028600+D                                     extproc('WSDL2R98_+                                                 580905   96028600
028700+D                                     UnMarshaller_toDate+                                                580905   96028700
028800+D                                     ')                                                                  580905   96028800
028900+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96028900
029000+ *                                                                                                        580905   96029000
029100+ *  Returns a given XML as 'time'.                                                                        580905   96029100
029200+D UnMarshaller_toTime...                                                                                  580905   96029200
029300+D                 PR              T                                                                       580905   96029300
029400+D                                     extproc('WSDL2R98_+                                                 580905   96029400
029500+D                                     UnMarshaller_toTime+                                                580905   96029500
029600+D                                     ')                                                                  571125   96029600
029700+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96029700
029800+ *                                                                                                        600605   96029800
029900+ *  Returns a given XML as 'gDay'.                                                                        600605   96029900
030000+D UnMarshaller_togDay...                                                                                  600605   96030000
030100+D                 PR                         like(wsdl_gDay_t      )                                      600605   96030100
030200+D                                     extproc('WSDL2R98_+                                                 600605   96030200
030300+D                                     UnMarshaller_togDay+                                                600605   96030300
030400+D                                     ')                                                                  600605   96030400
030500+D  i_value                   65535A   const  varying  options(*varsize)                                   600605   96030500
030600+ *                                                                                                        600605   96030600
030700+ *  Returns a given XML as 'gMonth'.                                                                      600605   96030700
030800+D UnMarshaller_togMonth...                                                                                600605   96030800
030900+D                 PR                         like(wsdl_gMonth_t    )                                      600605   96030900
031000+D                                     extproc('WSDL2R98_+                                                 600605   96031000
031100+D                                     UnMarshaller_togMonth+                                              600605   96031100
031200+D                                     ')                                                                  600605   96031200
031300+D  i_value                   65535A   const  varying  options(*varsize)                                   600605   96031300
031400+ *                                                                                                        600605   96031400
031500+ *  Returns a given XML as 'gMonthDay'.                                                                   600605   96031500
031600+D UnMarshaller_togMonthDay...                                                                             600605   96031600
031700+D                 PR                         like(wsdl_gMonthDay_t )                                      600605   96031700
031800+D                                     extproc('WSDL2R98_+                                                 600605   96031800
031900+D                                     UnMarshaller_togMonthDay+                                           600605   96031900
032000+D                                     ')                                                                  600605   96032000
032100+D  i_value                   65535A   const  varying  options(*varsize)                                   600605   96032100
032200+ *                                                                                                        600605   96032200
032300+ *  Returns a given XML as 'gYear'.                                                                       600605   96032300
032400+D UnMarshaller_togYear...                                                                                 600605   96032400
032500+D                 PR                         like(wsdl_gYear_t     )                                      600605   96032500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    325
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
032600+D                                     extproc('WSDL2R98_+                                                 600605   96032600
032700+D                                     UnMarshaller_togYear+                                               600605   96032700
032800+D                                     ')                                                                  600605   96032800
032900+D  i_value                   65535A   const  varying  options(*varsize)                                   600605   96032900
033000+ *                                                                                                        600605   96033000
033100+ *  Returns a given XML as 'gYearMonth'.                                                                  600605   96033100
033200+D UnMarshaller_togYearMonth...                                                                            600605   96033200
033300+D                 PR                         like(wsdl_gYearMonth_t)                                      600605   96033300
033400+D                                     extproc('WSDL2R98_+                                                 600605   96033400
033500+D                                     UnMarshaller_togYearMonth+                                          600605   96033500
033600+D                                     ')                                                                  600605   96033600
033700+D  i_value                   65535A   const  varying  options(*varsize)                                   600605   96033700
033800+ *                                                                                                        581103   96033800
033900+ *  Decodes the Base64 encoded data of a given field value.                                               610710   96033900
034000+D UnMarshaller_toBase64Binary...                                                                          581103   96034000
034100+D                 PR         65535A          varying                                                      581103   96034100
034200+D                                     extproc('WSDL2R98_+                                                 581103   96034200
034300+D                                     UnMarshaller_toBase64Binary+                                        581103   96034300
034400+D                                     ')                                                                  581103   96034400
034500+D  i_value                   65535A   const  varying  options(*varsize)                                   581103   96034500
034600+D  i_ccsid                      10I 0 const  options(*nopass: *omit)                                      611023   96034600
034700+ *                                                                                                        630408   96034700
034800+ *  Decodes the Base64 encoded data of a given field value.                                               630408   96034800
034900+D UnMarshaller_toBase64BinaryV6...                                                                        630408   96034900
035000+D                 PR                                                                                      630408   96035000
035100+D                                     extproc('WSDL2R98_+                                                 630408   96035100
035200+D                                     UnMarshaller_toBase64BinaryV6+                                      630408   96035200
035300+D                                     ')                                                                  630408   96035300
035400+D  i_pField                       *   const                                                               630408   96035400
035500+D  i_pData                        *   const                                                               630408   96035500
035600+D  i_size                       10I 0 const                                                               630408   96035600
035700+D  i_pValue                       *   const                                                               630408   96035700
035800+D  i_length                     10I 0 const                                                               630408   96035800
035900+D  i_ccsid                      10I 0 const  options(*nopass: *omit)                                      630408   96035900
036000+ *                                                                                                        610710   96036000
036100+ *  DEPRECATED: Use UnMarshaller_fromBase64BufferToStmf() instead.                                        630408   96036100
036200+ *  Decodes the Base64 encoded data of a given buffer and                                                 630408   96036200
036300+ *  writes the decoded data to the specified IFS path.                                                    630408   96036300
036400+D UnMarshaller_toBase64BinaryStream...                                                                    610710   96036400
036500+D                 PR            10I 0                                                                     610710   96036500
036600+D                                     extproc('WSDL2R98_+                                                 610710   96036600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    326
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
036700+D                                     UnMarshaller_fromBase64BufferToStmf+                                630408   96036700
036800+D                                     ')                                                                  610710   96036800
036900+D  i_path                     5000A   const  varying  options(*varsize)                                   610710   96036900
037000+D  i_pBuffer                      *   const                                                               610710   96037000
037100+D  i_size                       10I 0 const                                                               610710   96037100
037200+D  i_codepage                   10I 0 const  options(*nopass: *omit)                                      610710   96037200
037300+ *                                                                                                        590325   96037300
037400+ *  Decodes the Base64 encoded data of a given buffer and                                                 630408   96037400
037500+ *  writes the decoded data to the specified IFS path.                                                    630408   96037500
037600+D UnMarshaller_fromBase64BufferToStmf...                                                                  630408   96037600
037700+D                 PR            10I 0                                                                     630408   96037700
037800+D                                     extproc('WSDL2R98_+                                                 630408   96037800
037900+D                                     UnMarshaller_fromBase64BufferToStmf+                                630408   96037900
038000+D                                     ')                                                                  630408   96038000
038100+D  i_path                     5000A   const  varying  options(*varsize)                                   630408   96038100
038200+D  i_pBuffer                      *   const                                                               630408   96038200
038300+D  i_size                       10I 0 const                                                               630408   96038300
038400+D  i_codepage                   10I 0 const  options(*nopass: *omit)                                      630408   96038400
038500+ *                                                                                                        141216   96038500
038600+ *  Decodes the HexBinary data of a given field value.                                                    141216   96038600
038700+D UnMarshaller_toHexBinary...                                                                             141216   96038700
038800+D                 PR         32767A          varying                                                      141216   96038800
038900+D                                     extproc('WSDL2R98_+                                                 141216   96038900
039000+D                                     UnMarshaller_toHexBinary+                                           141216   96039000
039100+D                                     ')                                                                  141216   96039100
039200+D  i_value                   65535A   const  varying  options(*varsize)                                   141216   96039200
039300+D  i_ccsid                      10I 0 const  options(*nopass: *omit)                                      141216   96039300
039400+ *                                                                                                        141216   96039400
039500+ *  Decodes the HexBinary data of a given field value.                                                    141216   96039500
039600+D UnMarshaller_toHexBinaryV6...                                                                           141216   96039600
039700+D                 PR                                                                                      141216   96039700
039800+D                                     extproc('WSDL2R98_+                                                 141216   96039800
039900+D                                     UnMarshaller_toHexBinaryV6+                                         141216   96039900
040000+D                                     ')                                                                  141216   96040000
040100+D  i_pField                       *   const                                                               141216   96040100
040200+D  i_pData                        *   const                                                               141216   96040200
040300+D  i_size                       10I 0 const                                                               141216   96040300
040400+D  i_pValue                       *   const                                                               141216   96040400
040500+D  i_length                     10I 0 const                                                               141216   96040500
040600+D  i_ccsid                      10I 0 const  options(*nopass: *omit)                                      141216   96040600
040700+ *                                                                                                        141216   96040700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    327
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
040800+ *  Decodes the HexBinary data of a given buffer and                                                      141216   96040800
040900+ *  writes the decoded data to the specified IFS path.                                                    141216   96040900
041000+D UnMarshaller_fromHexBinaryBufferToStmf...                                                               141216   96041000
041100+D                 PR            10I 0                                                                     141216   96041100
041200+D                                     extproc('WSDL2R98_+                                                 141216   96041200
041300+D                                     UnMarshaller_+                                                      141216   96041300
041400+D                                     fromHexBinaryBufferToStmf+                                          141216   96041400
041500+D                                     ')                                                                  141216   96041500
041600+D  i_path                     5000A   const  varying  options(*varsize)                                   141216   96041600
041700+D  i_pBuffer                      *   const                                                               141216   96041700
041800+D  i_size                       10I 0 const                                                               141216   96041800
041900+D  i_codepage                   10I 0 const  options(*nopass: *omit)                                      141216   96041900
042000+ *                                                                                                        630408   96042000
042100+ *  Returns a given XML as 'language'.                                                                    590325   96042100
042200+D UnMarshaller_toLanguage...                                                                              590325   96042200
042300+D                 PR         65535A          varying                                                      590325   96042300
042400+D                                     extproc('WSDL2R98_+                                                 590325   96042400
042500+D                                     UnMarshaller_toLanguage+                                            590325   96042500
042600+D                                     ')                                                                  590325   96042600
042700+D  i_value                   65535A   const  varying  options(*varsize)                                   590325   96042700
042800+ *                                                                                                        610718   96042800
042900+ *  Returns a given XML as 'language'.                                                                    610718   96042900
043000+D UnMarshaller_toLanguageV6...                                                                            610718   96043000
043100+D                 PR                                                                                      610718   96043100
043200+D                                     extproc('WSDL2R98_+                                                 610718   96043200
043300+D                                     UnMarshaller_toLanguageV6+                                          610718   96043300
043400+D                                     ')                                                                  610718   96043400
043500+D  i_pField                       *   const                                                               610718   96043500
043600+D  i_pData                        *   const                                                               610718   96043600
043700+D  i_size                       10I 0 const                                                               610718   96043700
043800+D  i_pValue                       *   const                                                               610718   96043800
043900+D  i_length                     10I 0 const                                                               610718   96043900
044000+ *                                                                                                        590325   96044000
044100+ *  Returns a given XML as 'token'.                                                                       590325   96044100
044200+D UnMarshaller_toToken...                                                                                 590325   96044200
044300+D                 PR         65535A          varying                                                      590325   96044300
044400+D                                     extproc('WSDL2R98_+                                                 590325   96044400
044500+D                                     UnMarshaller_toToken+                                               590325   96044500
044600+D                                     ')                                                                  590325   96044600
044700+D  i_value                   65535A   const  varying  options(*varsize)                                   590325   96044700
044800+ *                                                                                                        610718   96044800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    328
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
044900+ *  Returns a given XML as 'token'.                                                                       610718   96044900
045000+D UnMarshaller_toTokenV6...                                                                               610718   96045000
045100+D                 PR                                                                                      610718   96045100
045200+D                                     extproc('WSDL2R98_+                                                 610718   96045200
045300+D                                     UnMarshaller_toTokenV6+                                             610718   96045300
045400+D                                     ')                                                                  610718   96045400
045500+D  i_pField                       *   const                                                               610718   96045500
045600+D  i_pData                        *   const                                                               610718   96045600
045700+D  i_size                       10I 0 const                                                               610718   96045700
045800+D  i_pValue                       *   const                                                               610718   96045800
045900+D  i_length                     10I 0 const                                                               610718   96045900
046000+ *                                                                                                        130918   96046000
046100+ *  Returns a given XML as 'nmtoken'.                                                                     130918   96046100
046200+D UnMarshaller_toNmToken...                                                                               130918   96046200
046300+D                 PR         65535A          varying                                                      130918   96046300
046400+D                                     extproc('WSDL2R98_+                                                 130918   96046400
046500+D                                     UnMarshaller_toNmToken+                                             130918   96046500
046600+D                                     ')                                                                  130918   96046600
046700+D  i_value                   65535A   const  varying  options(*varsize)                                   130918   96046700
046800+ *                                                                                                        130918   96046800
046900+ *  Returns a given XML as 'nmtoken'.                                                                     130918   96046900
047000+D UnMarshaller_toNmTokenV6...                                                                             130918   96047000
047100+D                 PR                                                                                      130918   96047100
047200+D                                     extproc('WSDL2R98_+                                                 130918   96047200
047300+D                                     UnMarshaller_toNmTokenV6+                                           130918   96047300
047400+D                                     ')                                                                  130918   96047400
047500+D  i_pField                       *   const                                                               130918   96047500
047600+D  i_pData                        *   const                                                               130918   96047600
047700+D  i_size                       10I 0 const                                                               130918   96047700
047800+D  i_pValue                       *   const                                                               130918   96047800
047900+D  i_length                     10I 0 const                                                               130918   96047900
048000+ *                                                                                                        590325   96048000
048100+ *  Returns a given XML as 'anyURI'.                                                                      590325   96048100
048200+D UnMarshaller_toAnyURI...                                                                                590325   96048200
048300+D                 PR         65535A          varying                                                      590325   96048300
048400+D                                     extproc('WSDL2R98_+                                                 590325   96048400
048500+D                                     UnMarshaller_toAnyURI+                                              590325   96048500
048600+D                                     ')                                                                  590325   96048600
048700+D  i_value                   65535A   const  varying  options(*varsize)                                   590325   96048700
048800+ *                                                                                                        610718   96048800
048900+ *  Returns a given XML as 'anyURI'.                                                                      610718   96048900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    329
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
049000+D UnMarshaller_toAnyURIV6...                                                                              610718   96049000
049100+D                 PR                                                                                      610718   96049100
049200+D                                     extproc('WSDL2R98_+                                                 610718   96049200
049300+D                                     UnMarshaller_toAnyURIV6+                                            610718   96049300
049400+D                                     ')                                                                  610718   96049400
049500+D  i_pField                       *   const                                                               610718   96049500
049600+D  i_pData                        *   const                                                               610718   96049600
049700+D  i_size                       10I 0 const                                                               610718   96049700
049800+D  i_pValue                       *   const                                                               610718   96049800
049900+D  i_length                     10I 0 const                                                               610718   96049900
050000+ *                                                                                                        601123   96050000
050100+ *  Returns a given XML as 'AttributedURI'.                                                               601123   96050100
050200+D UnMarshaller_toAttributedURI...                                                                         601123   96050200
050300+D                 PR         65535A          varying                                                      601123   96050300
050400+D                                     extproc('WSDL2R98_+                                                 601123   96050400
050500+D                                     UnMarshaller_toAttributedURI+                                       601123   96050500
050600+D                                     ')                                                                  601123   96050600
050700+D  i_value                   65535A   const  varying  options(*varsize)                                   601123   96050700
050800+ *                                                                                                        610718   96050800
050900+ *  Returns a given XML as 'AttributedURI'.                                                               610718   96050900
051000+D UnMarshaller_toAttributedURIV6...                                                                       610718   96051000
051100+D                 PR                                                                                      610718   96051100
051200+D                                     extproc('WSDL2R98_+                                                 610718   96051200
051300+D                                     UnMarshaller_toAttributedURIV6+                                     610718   96051300
051400+D                                     ')                                                                  610718   96051400
051500+D  i_pField                       *   const                                                               610718   96051500
051600+D  i_pData                        *   const                                                               610718   96051600
051700+D  i_size                       10I 0 const                                                               610718   96051700
051800+D  i_pValue                       *   const                                                               610718   96051800
051900+D  i_length                     10I 0 const                                                               610718   96051900
052000+ *                                                                                                        571203   96052000
052100+ *  Returns a given XML as 'duration'.                                                                    590618   96052100
052200+D UnMarshaller_toDuration...                                                                              590618   96052200
052300+D                 PR                         likeds(wsdl_duration_t )                                     590618   96052300
052400+D                                     extproc('WSDL2R98_+                                                 590618   96052400
052500+D                                     UnMarshaller_toDuration+                                            590618   96052500
052600+D                                     ')                                                                  590618   96052600
052700+D  i_value                   65535A   const  varying  options(*varsize)                                   590618   96052700
052800+ *                                                                                                        590618   96052800
052900+ * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                    571203   96052900
053000+ *                                                                                                        580206   96053000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    330
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
053100+ *  Returns the XML encoded value of a given RPG anyType value.                                           580206   96053100
053200+D Marshaller_toAnyType...                                                                                 580206   96053200
053300+D                 PR         65535A          varying                                                      580206   96053300
053400+D                                     extproc('WSDL2R98_+                                                 580206   96053400
053500+D                                     Marshaller_toAnyType+                                               580206   96053500
053600+D                                     ')                                                                  580206   96053600
053700+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 610714   96053700
            LINES EXCLUDED: 1
053900+ /ELSE                                                                                                    610714   96053900
054000+D  i_value                   65535A   const  varying  options(*varsize)                                   610714   96054000
054100+ /ENDIF                                                                                                   610714   96054100
054200+ *                                                                                                        610717   96054200
054300+ *  Returns the XML encoded value of a given RPG anyType value.                                           610717   96054300
054400+D Marshaller_toAnyTypeV6...                                                                               610717   96054400
054500+D                 PR                                                                                      610717   96054500
054600+D                                     extproc('WSDL2R98_+                                                 610717   96054600
054700+D                                     Marshaller_toAnyTypeV6+                                             610717   96054700
054800+D                                     ')                                                                  610717   96054800
054900+D  i_pField                       *   const                                                               610717   96054900
055000+D  i_pData                        *   const                                                               610717   96055000
055100+D  i_length                     10I 0 const                                                               610717   96055100
055200+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         610717   96055200
055300+D  i_pWriteProc                   *   const  procptr                                                      610717   96055300
055400+D                                            options(*nopass: *omit)                                      610717   96055400
055500+ *                                                                                                        611130   96055500
055600+ *  Returns the XML encoded value of a given RPG anySimpleType value.                                     611130   96055600
055700+D Marshaller_toAnySimpleType...                                                                           611130   96055700
055800+D                 PR         65535A          varying                                                      611130   96055800
055900+D                                     extproc('WSDL2R98_+                                                 611130   96055900
056000+D                                     Marshaller_toAnySimpleType+                                         611130   96056000
056100+D                                     ')                                                                  611130   96056100
056200+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 611130   96056200
            LINES EXCLUDED: 1
056400+ /ELSE                                                                                                    611130   96056400
056500+D  i_value                   65535A   const  varying  options(*varsize)                                   611130   96056500
056600+ /ENDIF                                                                                                   611130   96056600
056700+ *                                                                                                        611130   96056700
056800+ *  Returns the XML encoded value of a given RPG anySimpleType value.                                     611130   96056800
056900+D Marshaller_toAnySimpleTypeV6...                                                                         611130   96056900
057000+D                 PR                                                                                      611130   96057000
057100+D                                     extproc('WSDL2R98_+                                                 611130   96057100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    331
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
057200+D                                     Marshaller_toAnySimpleTypeV6+                                       611130   96057200
057300+D                                     ')                                                                  611130   96057300
057400+D  i_pField                       *   const                                                               611130   96057400
057500+D  i_pData                        *   const                                                               611130   96057500
057600+D  i_length                     10I 0 const                                                               611130   96057600
057700+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         611130   96057700
057800+D  i_pWriteProc                   *   const  procptr                                                      611130   96057800
057900+D                                            options(*nopass: *omit)                                      611130   96057900
058000+ *                                                                                                        580207   96058000
058100+ *  Returns the XML encoded value of a given RPG 'any' value.                                             610722   96058100
058200+D Marshaller_toAny...                                                                                     580207   96058200
058300+D                 PR         65535A          varying                                                      580207   96058300
058400+D                                     extproc('WSDL2R98_+                                                 580207   96058400
058500+D                                     Marshaller_toAny+                                                   580207   96058500
058600+D                                     ')                                                                  580207   96058600
058700+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 610714   96058700
            LINES EXCLUDED: 1
058900+ /ELSE                                                                                                    610714   96058900
059000+D  i_value                   65535A   const  varying  options(*varsize)                                   610714   96059000
059100+ /ENDIF                                                                                                   610714   96059100
059200+ *                                                                                                        610717   96059200
059300+ *  Returns the XML encoded value of a given RPG 'any' value.                                             610722   96059300
059400+D Marshaller_toAnyV6...                                                                                   610717   96059400
059500+D                 PR                                                                                      610717   96059500
059600+D                                     extproc('WSDL2R98_+                                                 610717   96059600
059700+D                                     Marshaller_toAnyV6+                                                 610717   96059700
059800+D                                     ')                                                                  610717   96059800
059900+D  i_pField                       *   const                                                               610717   96059900
060000+D  i_pData                        *   const                                                               610717   96060000
060100+D  i_length                     10I 0 const                                                               610717   96060100
060200+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         610717   96060200
060300+D  i_pWriteProc                   *   const  procptr                                                      610717   96060300
060400+D                                            options(*nopass: *omit)                                      610717   96060400
060500+ *                                                                                                        571203   96060500
060600+ *  Returns the XML encoded value of a given RPG string value.                                            571203   96060600
060700+D Marshaller_toString...                                                                                  571203   96060700
060800+D                 PR         65535A          varying                                                      571203   96060800
060900+D                                     extproc('WSDL2R98_+                                                 571203   96060900
061000+D                                     Marshaller_toString+                                                571203   96061000
061100+D                                     ')                                                                  601208   96061100
061200+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 610714   96061200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    332
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
            LINES EXCLUDED: 1
061400+ /ELSE                                                                                                    610714   96061400
061500+D  i_value                   65535A   const  varying  options(*varsize)                                   610714   96061500
061600+ /ENDIF                                                                                                   610714   96061600
061700+ *                                                                                                        610716   96061700
061800+ *  Returns the XML encoded value of a given RPG string value.                                            610716   96061800
061900+D Marshaller_toStringV6...                                                                                610716   96061900
062000+D                 PR                                                                                      610716   96062000
062100+D                                     extproc('WSDL2R98_+                                                 610716   96062100
062200+D                                     Marshaller_toStringV6+                                              610716   96062200
062300+D                                     ')                                                                  610716   96062300
062400+D  i_pField                       *   const                                                               610716   96062400
062500+D  i_pData                        *   const                                                               610716   96062500
062600+D  i_length                     10I 0 const                                                               610717   96062600
062700+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         610717   96062700
062800+D  i_pWriteProc                   *   const  procptr                                                      610717   96062800
062900+D                                            options(*nopass: *omit)                                      610717   96062900
063000+ *                                                                                                        601208   96063000
063100+ *  Returns the XML encoded value of a given RPG string value.                                            601208   96063100
063200+D Marshaller_toNormalizedString...                                                                        601208   96063200
063300+D                 PR         65535A          varying                                                      601208   96063300
063400+D                                     extproc('WSDL2R98_+                                                 601208   96063400
063500+D                                     Marshaller_toNormalizedString+                                      601208   96063500
063600+D                                     ')                                                                  571203   96063600
063700+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 610714   96063700
            LINES EXCLUDED: 1
063900+ /ELSE                                                                                                    610714   96063900
064000+D  i_value                   65535A   const  varying  options(*varsize)                                   610714   96064000
064100+ /ENDIF                                                                                                   610714   96064100
064200+ *                                                                                                        610717   96064200
064300+ *  Returns the XML encoded value of a given RPG normalizedString value.                                  610717   96064300
064400+D Marshaller_toNormalizedStringV6...                                                                      610717   96064400
064500+D                 PR                                                                                      610717   96064500
064600+D                                     extproc('WSDL2R98_+                                                 610717   96064600
064700+D                                     Marshaller_toNormalizedStringV6+                                    610717   96064700
064800+D                                     ')                                                                  610717   96064800
064900+D  i_pField                       *   const                                                               610717   96064900
065000+D  i_pData                        *   const                                                               610717   96065000
065100+D  i_length                     10I 0 const                                                               610717   96065100
065200+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         610717   96065200
065300+D  i_pWriteProc                   *   const  procptr                                                      610717   96065300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    333
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
065400+D                                            options(*nopass: *omit)                                      610717   96065400
065500+ *                                                                                                        620619   96065500
065600+ *  Returns the XML encoded value of a given RPG string value.                                            620619   96065600
065700+D Marshaller_toQName...                                                                                   620619   96065700
065800+D                 PR         65535A          varying                                                      620619   96065800
065900+D                                     extproc('WSDL2R98_+                                                 620619   96065900
066000+D                                     Marshaller_toQName+                                                 620619   96066000
066100+D                                     ')                                                                  620619   96066100
066200+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 620619   96066200
            LINES EXCLUDED: 1
066400+ /ELSE                                                                                                    620619   96066400
066500+D  i_value                   65535A   const  varying  options(*varsize)                                   620619   96066500
066600+ /ENDIF                                                                                                   620619   96066600
066700+ *                                                                                                        620619   96066700
066800+ *  Returns the XML encoded value of a given RPG normalizedString value.                                  620619   96066800
066900+D Marshaller_toQNameV6...                                                                                 620619   96066900
067000+D                 PR                                                                                      620619   96067000
067100+D                                     extproc('WSDL2R98_+                                                 620619   96067100
067200+D                                     Marshaller_toQNameV6+                                               620619   96067200
067300+D                                     ')                                                                  620619   96067300
067400+D  i_pField                       *   const                                                               620619   96067400
067500+D  i_pData                        *   const                                                               620619   96067500
067600+D  i_length                     10I 0 const                                                               620619   96067600
067700+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         620619   96067700
067800+D  i_pWriteProc                   *   const  procptr                                                      620619   96067800
067900+D                                            options(*nopass: *omit)                                      620619   96067900
068000+ *                                                                                                        571203   96068000
068100+ *  Returns the XML encoded value of a given RPG boolean value.                                           571203   96068100
068200+D Marshaller_toBoolean...                                                                                 571203   96068200
068300+D                 PR         65535A          varying                                                      571203   96068300
068400+D                                     extproc('WSDL2R98_+                                                 571203   96068400
068500+D                                     Marshaller_toBoolean+                                               571203   96068500
068600+D                                     ')                                                                  571203   96068600
068700+D  i_boolean                      N   const                                                               571203   96068700
068800+ *                                                                                                        571203   96068800
068900+ *  Returns the XML encoded value of a given RPG decimal value.                                           571203   96068900
069000+D Marshaller_toDecimal...                                                                                 571203   96069000
069100+D                 PR         65535A          varying                                                      571203   96069100
069200+D                                     extproc('WSDL2R98_+                                                 571203   96069200
069300+D                                     Marshaller_toDecimal+                                               571203   96069300
069400+D                                     ')                                                                  571203   96069400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    334
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
069500+D  i_decimal                          const  like(wsdl_decimal_t )                                        571203   96069500
069600+ *                                                                                                        571221   96069600
069700+ *  Returns the XML encoded value of a given RPG double value.                                            571221   96069700
069800+D Marshaller_toDouble...                                                                                  571221   96069800
069900+D                 PR         65535A          varying                                                      571221   96069900
070000+D                                     extproc('WSDL2R98_+                                                 571221   96070000
070100+D                                     Marshaller_toDouble+                                                571221   96070100
070200+D                                     ')                                                                  571221   96070200
070300+D  i_double                           const  like(wsdl_double_t  )                                        571221   96070300
070400+ *                                                                                                        580319   96070400
070500+ *  Returns the XML encoded value of a given RPG float value.                                             580319   96070500
070600+D Marshaller_toFloat...                                                                                   580319   96070600
070700+D                 PR         65535A          varying                                                      580319   96070700
070800+D                                     extproc('WSDL2R98_+                                                 580319   96070800
070900+D                                     Marshaller_toFloat+                                                 580319   96070900
071000+D                                     ')                                                                  580319   96071000
071100+D  i_float                            const  like(wsdl_float_t   )                                        580319   96071100
071200+ *                                                                                                        571203   96071200
071300+ *  Returns the XML encoded value of a given RPG integer value.                                           571203   96071300
071400+D Marshaller_toInt...                                                                                     571203   96071400
071500+D                 PR         65535A          varying                                                      571203   96071500
071600+D                                     extproc('WSDL2R98_+                                                 571203   96071600
071700+D                                     Marshaller_toInt+                                                   571203   96071700
071800+D                                     ')                                                                  571203   96071800
071900+D  i_int                              const  like(wsdl_int_t     )                                        590804   96071900
072000+ *                                                                                                        580121   96072000
072100+ *  Returns the XML encoded value of a given RPG short integer value.                                     580121   96072100
072200+D Marshaller_toShort...                                                                                   580121   96072200
072300+D                 PR         65535A          varying                                                      580121   96072300
072400+D                                     extproc('WSDL2R98_+                                                 580121   96072400
072500+D                                     Marshaller_toShort+                                                 580121   96072500
072600+D                                     ')                                                                  580121   96072600
072700+D  i_short                            const  like(wsdl_short_t )                                          580121   96072700
072800+ *                                                                                                        590804   96072800
072900+ *  Returns the XML encoded value of a given RPG byte integer value.                                      600831   96072900
073000+D Marshaller_toByte...                                                                                    600831   96073000
073100+D                 PR         65535A          varying                                                      600831   96073100
073200+D                                     extproc('WSDL2R98_+                                                 600831   96073200
073300+D                                     Marshaller_toByte+                                                  600831   96073300
073400+D                                     ')                                                                  600831   96073400
073500+D  i_byte                             const  like(wsdl_byte_t  )                                          600831   96073500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    335
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
073600+ *                                                                                                        600831   96073600
073700+ *  Returns the XML encoded value of a given RPG integer value.                                           590804   96073700
073800+D Marshaller_toInteger...                                                                                 590804   96073800
073900+D                 PR         65535A          varying                                                      590804   96073900
074000+D                                     extproc('WSDL2R98_+                                                 590804   96074000
074100+D                                     Marshaller_toInteger+                                               590804   96074100
074200+D                                     ')                                                                  590804   96074200
074300+D  i_integer                          const  like(wsdl_integer_t)                                         590804   96074300
074400+ *                                                                                                        571203   96074400
074500+ *  Returns the XML encoded value of a given RPG long integer value.                                      580905   96074500
074600+D Marshaller_toLong...                                                                                    580905   96074600
074700+D                 PR         65535A          varying                                                      580905   96074700
074800+D                                     extproc('WSDL2R98_+                                                 580905   96074800
074900+D                                     Marshaller_toLong+                                                  580905   96074900
075000+D                                     ')                                                                  580905   96075000
075100+D  i_long                             const  like(wsdl_long_t  )                                          580905   96075100
075200+ *                                                                                                        580905   96075200
075300+ *  Returns the XML encoded value of a given RPG unsigned integer value.                                  580905   96075300
075400+D Marshaller_toUnsignedInt...                                                                             580905   96075400
075500+D                 PR         65535A          varying                                                      580905   96075500
075600+D                                     extproc('WSDL2R98_+                                                 580905   96075600
075700+D                                     Marshaller_toUnsignedInt+                                           580905   96075700
075800+D                                     ')                                                                  580905   96075800
075900+D  i_uInt                             const  like(wsdl_uInt_t     )                                       590804   96075900
076000+ *                                                                                                        580905   96076000
076100+ *  Returns the XML encoded value of a given RPG unsigned short integer value.                            580905   96076100
076200+D Marshaller_toUnsignedShort...                                                                           580905   96076200
076300+D                 PR         65535A          varying                                                      580905   96076300
076400+D                                     extproc('WSDL2R98_+                                                 580905   96076400
076500+D                                     Marshaller_toUnsignedShort+                                         580905   96076500
076600+D                                     ')                                                                  580905   96076600
076700+D  i_uShort                           const  like(wsdl_uShort_t )                                         580905   96076700
076800+ *                                                                                                        600831   96076800
076900+ *  Returns the XML encoded value of a given RPG unsigned byte integer value.                             600831   96076900
077000+D Marshaller_toUnsignedByte...                                                                            600831   96077000
077100+D                 PR         65535A          varying                                                      600831   96077100
077200+D                                     extproc('WSDL2R98_+                                                 600831   96077200
077300+D                                     Marshaller_toUnsignedByte+                                          600831   96077300
077400+D                                     ')                                                                  600831   96077400
077500+D  i_uByte                            const  like(wsdl_uByte_t  )                                         600831   96077500
077600+ *                                                                                                        580905   96077600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    336
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
077700+ *  Returns the XML encoded value of a given RPG unsigned long integer value.                             580905   96077700
077800+D Marshaller_toUnsignedLong...                                                                            580905   96077800
077900+D                 PR         65535A          varying                                                      580905   96077900
078000+D                                     extproc('WSDL2R98_+                                                 580905   96078000
078100+D                                     Marshaller_toUnsignedLong+                                          580905   96078100
078200+D                                     ')                                                                  580905   96078200
078300+D  i_uLong                            const  like(wsdl_uLong_t  )                                         580905   96078300
078400+ *                                                                                                        580905   96078400
078500+ *  Returns the XML encoded value of a given RPG non negative integer value.                              580905   96078500
078600+D Marshaller_toNonNegativeInteger...                                                                      580905   96078600
078700+D                 PR         65535A          varying                                                      580905   96078700
078800+D                                     extproc('WSDL2R98_+                                                 580905   96078800
078900+D                                     Marshaller_toNonNegativeInteger+                                    580905   96078900
079000+D                                     ')                                                                  580905   96079000
079100+D  i_nonNegInt                        const  like(wsdl_nonNegInt_t )                                      580905   96079100
079200+ *                                                                                                        580905   96079200
079300+ *  Returns the XML encoded value of a given RPG non positive integer value.                              580905   96079300
079400+D Marshaller_toNonPositiveInteger...                                                                      580905   96079400
079500+D                 PR         65535A          varying                                                      580905   96079500
079600+D                                     extproc('WSDL2R98_+                                                 580905   96079600
079700+D                                     Marshaller_toNonPositiveInteger+                                    580905   96079700
079800+D                                     ')                                                                  580905   96079800
079900+D  i_nonPosInt                        const  like(wsdl_nonPosInt_t )                                      580905   96079900
080000+                                                                                                          580905   96080000
080100+ *  Returns the XML encoded value of a given RPG negative integer value.                                  580905   96080100
080200+D Marshaller_toNegativeInteger...                                                                         580905   96080200
080300+D                 PR         65535A          varying                                                      580905   96080300
080400+D                                     extproc('WSDL2R98_+                                                 580905   96080400
080500+D                                     Marshaller_toNegativeInteger+                                       580905   96080500
080600+D                                     ')                                                                  580905   96080600
080700+D  i_negInt                           const  like(wsdl_negInt_t )                                         580905   96080700
080800+ *                                                                                                        580905   96080800
080900+ *  Returns the XML encoded value of a given RPG positive integer value.                                  580905   96080900
081000+D Marshaller_toPositiveInteger...                                                                         580905   96081000
081100+D                 PR         65535A          varying                                                      580905   96081100
081200+D                                     extproc('WSDL2R98_+                                                 580905   96081200
081300+D                                     Marshaller_toPositiveInteger+                                       580905   96081300
081400+D                                     ')                                                                  580905   96081400
081500+D  i_posInt                           const  like(wsdl_posInt_t )                                         580905   96081500
081600+ *                                                                                                        580905   96081600
081700+ *  Returns the XML encoded value of a given RPG timestamp value.                                         571203   96081700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    337
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
081800+D Marshaller_toDateTime...                                                                                571203   96081800
081900+D                 PR         65535A          varying                                                      571203   96081900
082000+D                                     extproc('WSDL2R98_+                                                 571203   96082000
082100+D                                     Marshaller_toDateTime+                                              571203   96082100
082200+D                                     ')                                                                  571203   96082200
082300+D  i_timestamp                    Z   const                                                               571203   96082300
082400+D  i_timeZone                    6A   const  options(*nopass)                                             600412   96082400
082500+ *                                                                                                        571107   96082500
082600+ *  Returns the XML encoded value of a given RPG date value.                                              580905   96082600
082700+D Marshaller_toDate...                                                                                    580905   96082700
082800+D                 PR         65535A          varying                                                      580905   96082800
082900+D                                     extproc('WSDL2R98_+                                                 580905   96082900
083000+D                                     Marshaller_toDate+                                                  580905   96083000
083100+D                                     ')                                                                  580905   96083100
083200+D  i_date                         D   const                                                               580905   96083200
083300+D  i_timeZone                    6A   const  options(*nopass)                                             580905   96083300
083400+ *                                                                                                        580905   96083400
083500+ *  Returns the XML encoded value of a given RPG time value.                                              580905   96083500
083600+D Marshaller_toTime...                                                                                    580905   96083600
083700+D                 PR         65535A          varying                                                      580905   96083700
083800+D                                     extproc('WSDL2R98_+                                                 580905   96083800
083900+D                                     Marshaller_toTime+                                                  580905   96083900
084000+D                                     ')                                                                  580905   96084000
084100+D  i_time                         T   const                                                               580905   96084100
084200+D  i_timeZone                    6A   const  options(*nopass)                                             580905   96084200
084300+ *                                                                                                        600605   96084300
084400+ *  Returns the XML encoded value of a given RPG day value.                                               600605   96084400
084500+D Marshaller_togDay...                                                                                    600605   96084500
084600+D                 PR         65535A          varying                                                      600605   96084600
084700+D                                     extproc('WSDL2R98_+                                                 600605   96084700
084800+D                                     Marshaller_togDay+                                                  600605   96084800
084900+D                                     ')                                                                  600605   96084900
085000+D  i_day                              const  like(wsdl_gDay_t      )                                      600605   96085000
085100+D  i_timeZone                    6A   const  options(*nopass)                                             600606   96085100
085200+ *                                                                                                        600605   96085200
085300+ *  Returns the XML encoded value of a given RPG month value.                                             600605   96085300
085400+D Marshaller_togMonth...                                                                                  600605   96085400
085500+D                 PR         65535A          varying                                                      600605   96085500
085600+D                                     extproc('WSDL2R98_+                                                 600605   96085600
085700+D                                     Marshaller_togMonth+                                                600605   96085700
085800+D                                     ')                                                                  600605   96085800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    338
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
085900+D  i_month                            const  like(wsdl_gMonth_t    )                                      600605   96085900
086000+D  i_timeZone                    6A   const  options(*nopass)                                             600606   96086000
086100+ *                                                                                                        600605   96086100
086200+ *  Returns the XML encoded value of a given RPG month-day value.                                         600605   96086200
086300+D Marshaller_togMonthDay...                                                                               600605   96086300
086400+D                 PR         65535A          varying                                                      600605   96086400
086500+D                                     extproc('WSDL2R98_+                                                 600605   96086500
086600+D                                     Marshaller_togMonthDay+                                             600605   96086600
086700+D                                     ')                                                                  600605   96086700
086800+D  i_monthDay                         const  like(wsdl_gMonthDay_t )                                      600605   96086800
086900+D  i_timeZone                    6A   const  options(*nopass)                                             600606   96086900
087000+ *                                                                                                        600605   96087000
087100+ *  Returns the XML encoded value of a given RPG year value.                                              600605   96087100
087200+D Marshaller_togYear...                                                                                   600605   96087200
087300+D                 PR         65535A          varying                                                      600605   96087300
087400+D                                     extproc('WSDL2R98_+                                                 600605   96087400
087500+D                                     Marshaller_togYear+                                                 600605   96087500
087600+D                                     ')                                                                  600605   96087600
087700+D  i_year                             const  like(wsdl_gYear_t     )                                      600605   96087700
087800+D  i_timeZone                    6A   const  options(*nopass)                                             600606   96087800
087900+ *                                                                                                        600605   96087900
088000+ *  Returns the XML encoded value of a given RPG year-month value.                                        600605   96088000
088100+D Marshaller_togYearMonth...                                                                              600605   96088100
088200+D                 PR         65535A          varying                                                      600605   96088200
088300+D                                     extproc('WSDL2R98_+                                                 600605   96088300
088400+D                                     Marshaller_togYearMonth+                                            600605   96088400
088500+D                                     ')                                                                  600605   96088500
088600+D  i_yearMonth                        const  like(wsdl_gYearMonth_t)                                      600605   96088600
088700+D  i_timeZone                    6A   const  options(*nopass)                                             600606   96088700
088800+ *                                                                                                        581103   96088800
088900+ *  Returns the XML (base64Binary) encoded value of a                                                     581103   96088900
089000+ *  given RPG string value.                                                                               581103   96089000
089100+D Marshaller_toBase64Binary...                                                                            581103   96089100
089200+D                 PR         65535A          varying                                                      581103   96089200
089300+D                                     extproc('WSDL2R98_+                                                 581103   96089300
089400+D                                     Marshaller_toBase64Binary+                                          581103   96089400
089500+D                                     ')                                                                  581103   96089500
089600+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 630408   96089600
            LINES EXCLUDED: 1
089800+ /ELSE                                                                                                    630408   96089800
089900+D  i_value                   65535A   const  varying  options(*varsize)                                   630408   96089900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    339
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
090000+ /ENDIF                                                                                                   630408   96090000
090100+D  i_ccsid                      10I 0 const  options(*nopass: *omit)                                      611015   96090100
090200+ *                                                                                                        630408   96090200
090300+ *  Returns the XML (base64Binary) encoded value of a                                                     630408   96090300
090400+ *  given RPG string value.                                                                               630408   96090400
090500+D Marshaller_toBase64BinaryV6...                                                                          630408   96090500
090600+D                 PR                                                                                      630408   96090600
090700+D                                     extproc('WSDL2R98_+                                                 630408   96090700
090800+D                                     Marshaller_toBase64BinaryV6+                                        630408   96090800
090900+D                                     ')                                                                  630408   96090900
091000+D  i_pField                       *   const                                                               630408   96091000
091100+D  i_pData                        *   const                                                               630408   96091100
091200+D  i_length                     10I 0 const                                                               630408   96091200
091300+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         630408   96091300
091400+D  i_pWriteProc                   *   const  procptr                                                      630408   96091400
091500+D                                            options(*nopass: *omit)                                      630408   96091500
091600+D  i_ccsid                      10I 0 const  options(*nopass: *omit)                                      630408   96091600
091700+ *                                                                                                        601026   96091700
091800+ *  DEPRECATED: Use Marshaller_fromFileToBase64Descriptor() instead.                                      630408   96091800
091900+ *  Encodes the content of a given  stream file to Base64 and                                             630408   96091900
092000+ *  writes the encoded data to the specified descriptor using                                             630408   96092000
092100+ *  the specified 'write' procedure.                                                                      630408   96092100
092200+D Marshaller_toBase64BinaryStream...                                                                      601026   96092200
092300+D                 PR            10I 0                                                                     601026   96092300
092400+D                                     extproc('WSDL2R98_+                                                 601026   96092400
092500+D                                     Marshaller_+                                                        630408   96092500
092600+D                                     fromFileToBase64Descriptor+                                         630408   96092600
092700+D                                     ')                                                                  601026   96092700
092800+D  i_path                     5000A   const  varying  options(*varsize)                                   601026   96092800
092900+D  i_fd                         10I 0 const                                                               601026   96092900
093000+D  i_pWrite                       *   const  procptr                                                      601026   96093000
093100+ *                                                                                                        610608   96093100
093200+ *  Encodes the content of a given  stream file to Base64 and                                             630408   96093200
093300+ *  writes the encoded data to the specified descriptor using                                             630408   96093300
093400+ *  the specified 'write' procedure.                                                                      630408   96093400
093500+D Marshaller_fromFileToBase64Descriptor...                                                                630408   96093500
093600+D                 PR            10I 0                                                                     630408   96093600
093700+D                                     extproc('WSDL2R98_+                                                 630408   96093700
093800+D                                     Marshaller_+                                                        630408   96093800
093900+D                                     fromFileToBase64Descriptor+                                         630408   96093900
094000+D                                     ')                                                                  630408   96094000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    340
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
094100+D  i_path                     5000A   const  varying  options(*varsize)                                   630408   96094100
094200+D  i_fd                         10I 0 const                                                               630408   96094200
094300+D  i_pWrite                       *   const  procptr                                                      630408   96094300
094400+ *                                                                                                        630408   96094400
094500+ *  DEPRECATED: Use Marshaller_fromBufferToBase64Descriptor() instead.                                    630408   96094500
094600+ *  Streams a given Base64 encoded memory buffer to the specified                                         630408   96094600
094700+ *  descriptor using the specfied 'write' procedure.                                                      630408   96094700
094800+D Marshaller_toBase64BinaryBuffer...                                                                      610608   96094800
094900+D                 PR            10I 0                                                                     610608   96094900
095000+D                                     extproc('WSDL2R98_+                                                 610608   96095000
095100+D                                     Marshaller_+                                                        630408   96095100
095200+D                                     fromBufferToBase64Descriptor+                                       630408   96095200
095300+D                                     ')                                                                  610608   96095300
095400+D  i_pBuffer                      *   const                                                               610608   96095400
095500+D  i_size                       10U 0 const                                                               610608   96095500
095600+D  i_fd                         10I 0 const                                                               610608   96095600
095700+D  i_pWrite                       *   const  procptr                                                      610608   96095700
095800+ *                                                                                                        630408   96095800
095900+ *  Streams a given Base64 encoded memory buffer to the specified                                         630408   96095900
096000+ *  descriptor using the specfied 'write' procedure.                                                      630408   96096000
096100+D Marshaller_fromBufferToBase64Descriptor...                                                              630408   96096100
096200+D                 PR            10I 0                                                                     630408   96096200
096300+D                                     extproc('WSDL2R98_+                                                 630408   96096300
096400+D                                     Marshaller_+                                                        630408   96096400
096500+D                                     fromBufferToBase64Descriptor+                                       630408   96096500
096600+D                                     ')                                                                  630408   96096600
096700+D  i_pBuffer                      *   const                                                               630408   96096700
096800+D  i_size                       10U 0 const                                                               630408   96096800
096900+D  i_fd                         10I 0 const                                                               630408   96096900
097000+D  i_pWrite                       *   const  procptr                                                      630408   96097000
097100+ *                                                                                                        141216   96097100
097200+ *  Returns the XML (HexBinary) encoded value of a                                                        141216   96097200
097300+ *  given RPG string value.                                                                               141216   96097300
097400+D Marshaller_toHexBinary...                                                                               141216   96097400
097500+D                 PR         65535A          varying                                                      141216   96097500
097600+D                                     extproc('WSDL2R98_+                                                 141216   96097600
097700+D                                     Marshaller_toHexBinary+                                             141216   96097700
097800+D                                     ')                                                                  141216   96097800
097900+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 141216   96097900
            LINES EXCLUDED: 1
098100+ /ELSE                                                                                                    141216   96098100
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    341
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
098200+D  i_value                   32767A   const  varying  options(*varsize)                                   141216   96098200
098300+ /ENDIF                                                                                                   141216   96098300
098400+D  i_ccsid                      10I 0 const  options(*nopass: *omit)                                      141216   96098400
098500+ *                                                                                                        141216   96098500
098600+ *  Returns the XML (HexBinary) encoded value of a                                                        141216   96098600
098700+ *  given RPG string value.                                                                               141216   96098700
098800+D Marshaller_toHexBinaryV6...                                                                             141216   96098800
098900+D                 PR                                                                                      141216   96098900
099000+D                                     extproc('WSDL2R98_+                                                 141216   96099000
099100+D                                     Marshaller_toHexBinaryV6+                                           141216   96099100
099200+D                                     ')                                                                  141216   96099200
099300+D  i_pField                       *   const                                                               141216   96099300
099400+D  i_pData                        *   const                                                               141216   96099400
099500+D  i_length                     10I 0 const                                                               141216   96099500
099600+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         141216   96099600
099700+D  i_pWriteProc                   *   const  procptr                                                      141216   96099700
099800+D                                            options(*nopass: *omit)                                      141216   96099800
099900+D  i_ccsid                      10I 0 const  options(*nopass: *omit)                                      141216   96099900
100000+ *                                                                                                        141216   96100000
100100+ *  Encodes the content of a given  stream file to HexBinary and                                          141216   96100100
100200+ *  writes the encoded data to the specified descriptor using                                             141216   96100200
100300+ *  the specified 'write' procedure.                                                                      141216   96100300
100400+D Marshaller_fromFileToHexBinaryDescriptor...                                                             141216   96100400
100500+D                 PR            10I 0                                                                     141216   96100500
100600+D                                     extproc('WSDL2R98_+                                                 141216   96100600
100700+D                                     Marshaller_+                                                        141216   96100700
100800+D                                     fromFileToHexBinaryDescriptor+                                      141216   96100800
100900+D                                     ')                                                                  141216   96100900
101000+D  i_path                     5000A   const  varying  options(*varsize)                                   141216   96101000
101100+D  i_fd                         10I 0 const                                                               141216   96101100
101200+D  i_pWrite                       *   const  procptr                                                      141216   96101200
101300+ *                                                                                                        141216   96101300
101400+ *  Streams a given HexBinary encoded memory buffer to the specified                                      141216   96101400
101500+ *  descriptor using the specfied 'write' procedure.                                                      141216   96101500
101600+D Marshaller_fromBufferToHexBinaryDescriptor...                                                           141216   96101600
101700+D                 PR            10I 0                                                                     141216   96101700
101800+D                                     extproc('WSDL2R98_+                                                 141216   96101800
101900+D                                     Marshaller_+                                                        141216   96101900
102000+D                                     fromBufferToHexBinaryDescriptor+                                    141216   96102000
102100+D                                     ')                                                                  141216   96102100
102200+D  i_pBuffer                      *   const                                                               141216   96102200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    342
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
102300+D  i_size                       10U 0 const                                                               141216   96102300
102400+D  i_fd                         10I 0 const                                                               141216   96102400
102500+D  i_pWrite                       *   const  procptr                                                      141216   96102500
102600+ *                                                                                                        590325   96102600
102700+ *  Returns the XML (language) encoded value of a                                                         590325   96102700
102800+ *  given RPG string value.                                                                               590325   96102800
102900+D Marshaller_toLanguage...                                                                                590325   96102900
103000+D                 PR         65535A          varying                                                      590325   96103000
103100+D                                     extproc('WSDL2R98_+                                                 590325   96103100
103200+D                                     Marshaller_toLanguage+                                              590325   96103200
103300+D                                     ')                                                                  590325   96103300
103400+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 610714   96103400
            LINES EXCLUDED: 1
103600+ /ELSE                                                                                                    610714   96103600
103700+D  i_value                   65535A   const  varying  options(*varsize)                                   610714   96103700
103800+ /ENDIF                                                                                                   610714   96103800
103900+ *                                                                                                        610717   96103900
104000+ *  Returns the XML (language) encoded value of a                                                         610717   96104000
104100+ *  given RPG string value.                                                                               610717   96104100
104200+D Marshaller_toLanguageV6...                                                                              610717   96104200
104300+D                 PR                                                                                      610717   96104300
104400+D                                     extproc('WSDL2R98_+                                                 610717   96104400
104500+D                                     Marshaller_toLanguageV6+                                            610717   96104500
104600+D                                     ')                                                                  610717   96104600
104700+D  i_pField                       *   const                                                               610717   96104700
104800+D  i_pData                        *   const                                                               610717   96104800
104900+D  i_length                     10I 0 const                                                               610717   96104900
105000+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         610717   96105000
105100+D  i_pWriteProc                   *   const  procptr                                                      610717   96105100
105200+D                                            options(*nopass: *omit)                                      610717   96105200
105300+ *                                                                                                        590325   96105300
105400+ *  Returns the XML (token) encoded value of a                                                            590325   96105400
105500+ *  given RPG string value.                                                                               590325   96105500
105600+D Marshaller_toToken...                                                                                   590325   96105600
105700+D                 PR         65535A          varying                                                      590325   96105700
105800+D                                     extproc('WSDL2R98_+                                                 590325   96105800
105900+D                                     Marshaller_toToken+                                                 590325   96105900
106000+D                                     ')                                                                  590325   96106000
106100+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 610714   96106100
            LINES EXCLUDED: 1
106300+ /ELSE                                                                                                    610714   96106300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    343
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
106400+D  i_value                   65535A   const  varying  options(*varsize)                                   610714   96106400
106500+ /ENDIF                                                                                                   610714   96106500
106600+ *                                                                                                        610717   96106600
106700+ *  Returns the XML (token) encoded value of a                                                            610717   96106700
106800+ *  given RPG string value.                                                                               610717   96106800
106900+D Marshaller_toTokenV6...                                                                                 610717   96106900
107000+D                 PR                                                                                      610717   96107000
107100+D                                     extproc('WSDL2R98_+                                                 610717   96107100
107200+D                                     Marshaller_toTokenV6+                                               610717   96107200
107300+D                                     ')                                                                  610717   96107300
107400+D  i_pField                       *   const                                                               610717   96107400
107500+D  i_pData                        *   const                                                               610717   96107500
107600+D  i_length                     10I 0 const                                                               610717   96107600
107700+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         610717   96107700
107800+D  i_pWriteProc                   *   const  procptr                                                      610717   96107800
107900+D                                            options(*nopass: *omit)                                      610717   96107900
108000+ *                                                                                                        130918   96108000
108100+ *  Returns the XML (nmtoken) encoded value of a                                                          130918   96108100
108200+ *  given RPG string value.                                                                               130918   96108200
108300+D Marshaller_toNmToken...                                                                                 130918   96108300
108400+D                 PR         65535A          varying                                                      130918   96108400
108500+D                                     extproc('WSDL2R98_+                                                 130918   96108500
108600+D                                     Marshaller_toNmToken+                                               130918   96108600
108700+D                                     ')                                                                  130918   96108700
108800+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 130918   96108800
            LINES EXCLUDED: 1
109000+ /ELSE                                                                                                    130918   96109000
109100+D  i_value                   65535A   const  varying  options(*varsize)                                   130918   96109100
109200+ /ENDIF                                                                                                   130918   96109200
109300+ *                                                                                                        130918   96109300
109400+ *  Returns the XML (token) encoded value of a                                                            130918   96109400
109500+ *  given RPG string value.                                                                               130918   96109500
109600+D Marshaller_toNmtokenV6...                                                                               130918   96109600
109700+D                 PR                                                                                      130918   96109700
109800+D                                     extproc('WSDL2R98_+                                                 130918   96109800
109900+D                                     Marshaller_toNmTokenV6+                                             130919   96109900
110000+D                                     ')                                                                  130918   96110000
110100+D  i_pField                       *   const                                                               130918   96110100
110200+D  i_pData                        *   const                                                               130918   96110200
110300+D  i_length                     10I 0 const                                                               130918   96110300
110400+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         130918   96110400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    344
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
110500+D  i_pWriteProc                   *   const  procptr                                                      130918   96110500
110600+D                                            options(*nopass: *omit)                                      130918   96110600
110700+ *                                                                                                        590325   96110700
110800+ *  Returns the XML (anyURI) encoded value of a                                                           590325   96110800
110900+ *  given RPG string value.                                                                               590325   96110900
111000+D Marshaller_toAnyURI...                                                                                  590325   96111000
111100+D                 PR         65535A          varying                                                      590325   96111100
111200+D                                     extproc('WSDL2R98_+                                                 590325   96111200
111300+D                                     Marshaller_toAnyURI+                                                590325   96111300
111400+D                                     ')                                                                  590325   96111400
111500+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 610714   96111500
            LINES EXCLUDED: 1
111700+ /ELSE                                                                                                    610714   96111700
111800+D  i_value                   65535A   const  varying  options(*varsize)                                   610714   96111800
111900+ /ENDIF                                                                                                   610714   96111900
112000+ *                                                                                                        610717   96112000
112100+ *  Returns the XML (anyURI) encoded value of a                                                           610717   96112100
112200+ *  given RPG string value.                                                                               610717   96112200
112300+D Marshaller_toAnyURIV6...                                                                                610717   96112300
112400+D                 PR                                                                                      610717   96112400
112500+D                                     extproc('WSDL2R98_+                                                 610717   96112500
112600+D                                     Marshaller_toAnyURIV6+                                              610717   96112600
112700+D                                     ')                                                                  610717   96112700
112800+D  i_pField                       *   const                                                               610717   96112800
112900+D  i_pData                        *   const                                                               610717   96112900
113000+D  i_length                     10I 0 const                                                               610717   96113000
113100+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         610717   96113100
113200+D  i_pWriteProc                   *   const  procptr                                                      610717   96113200
113300+D                                            options(*nopass: *omit)                                      610717   96113300
113400+ *                                                                                                        601123   96113400
113500+ *  Returns the XML (AttributedURI) encoded value of a                                                    601123   96113500
113600+ *  given RPG string value.                                                                               601123   96113600
113700+D Marshaller_toAttributedURI...                                                                           601123   96113700
113800+D                 PR         65535A          varying                                                      601123   96113800
113900+D                                     extproc('WSDL2R98_+                                                 601123   96113900
114000+D                                     Marshaller_toAttributedURI+                                         601123   96114000
114100+D                                     ')                                                                  601123   96114100
114200+ /IF DEFINED(INTERNALLY_COMPILE_WSDL2R98)                                                                 610714   96114200
            LINES EXCLUDED: 1
114400+ /ELSE                                                                                                    610714   96114400
114500+D  i_value                   65535A   const  varying  options(*varsize)                                   610714   96114500
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    345
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
114600+ /ENDIF                                                                                                   610714   96114600
114700+ *                                                                                                        610717   96114700
114800+ *  Returns the XML (AttributedURI) encoded value of a                                                    610717   96114800
114900+ *  given RPG string value.                                                                               610717   96114900
115000+D Marshaller_toAttributedURIV6...                                                                         610717   96115000
115100+D                 PR                                                                                      610717   96115100
115200+D                                     extproc('WSDL2R98_+                                                 610717   96115200
115300+D                                     Marshaller_toAttributedURIV6+                                       610717   96115300
115400+D                                     ')                                                                  610717   96115400
115500+D  i_pField                       *   const                                                               610717   96115500
115600+D  i_pData                        *   const                                                               610717   96115600
115700+D  i_length                     10I 0 const                                                               610717   96115700
115800+D  i_hOutStream                       const  like(wsdl_hStream_t)                                         610717   96115800
115900+D  i_pWriteProc                   *   const  procptr                                                      610717   96115900
116000+D                                            options(*nopass: *omit)                                      610717   96116000
116100+ *                                                                                                        580905   96116100
116200+ *  Returns the XML (duration) encoded value of a                                                         590618   96116200
116300+ *  given RPG duration structure.                                                                         590618   96116300
116400+D Marshaller_toDuration...                                                                                590618   96116400
116500+D                 PR         65535A          varying                                                      590618   96116500
116600+D                                     extproc('WSDL2R98_+                                                 590618   96116600
116700+D                                     Marshaller_toDuration+                                              590618   96116700
116800+D                                     ')                                                                  590618   96116800
116900+D  i_value                            const  likeds(wsdl_duration_t )                                     590618   96116900
117000+ *                                                                                                        590618   96117000
117100+ * Sets the size of the variable that takes the content                                                   590618   96117100
117200+ * of a XML 'schema' element.                                                                             590618   96117200
117300+D Schema_initialize...                                                                                    590618   96117300
117400+D                 PR                                                                                      590618   96117400
117500+D                                     extproc('WSDL2R98_+                                                 590618   96117500
117600+D                                     Schema_initialize+                                                  590618   96117600
117700+D                                     ')                                                                  590618   96117700
117800+D  i_size                       10I 0 value                                                               590618   96117800
117900+ *                                                                                                        610719   96117900
118000+ * Sets the size of the variable that takes the content                                                   610719   96118000
118100+ * of a XML 'schema' element.                                                                             610719   96118100
118200+D Schema_initializeV6...                                                                                  610719   96118200
118300+D                 PR                                                                                      610719   96118300
118400+D                                     extproc('WSDL2R98_+                                                 610719   96118400
118500+D                                     Schema_initializeV6+                                                610719   96118500
118600+D                                     ')                                                                  610719   96118600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    346
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
118700+D  i_pField                       *   const                                                               610719   96118700
118800+D  i_pData                        *   const                                                               610719   96118800
118900+D  i_size                       10I 0 const                                                               610719   96118900
119000+ *                                                                                                        590618   96119000
119100+ * Retrieves athe content of a XML 'schema' element                                                       590618   96119100
119200+ * from the XML stream.                                                                                   590618   96119200
119300+D Schema_start...                                                                                         590618   96119300
119400+D                 PR                                                                                      590618   96119400
119500+D                                     extproc('WSDL2R98_+                                                 590618   96119500
119600+D                                     Schema_start+                                                       590618   96119600
119700+D                                     ')                                                                  590618   96119700
119800+D  userdata                       *   value                                                               590618   96119800
119900+D  depth                        10I 0 value                                                               590618   96119900
120000+D  namespace                  1024A   varying const                                                       590618   96120000
120100+D  name                       1024A   varying const                                                       590618   96120100
120200+D  path                      24576A   varying const                                                       590618   96120200
120300+D  attrs                          *   dim(32767)                                                          590618   96120300
120400+D                                     const options(*varsize)                                             590618   96120400
120500+ *                                                                                                        590618   96120500
120600+ * Retrieves athe content of a XML 'schema' element                                                       590618   96120600
120700+ * from the XML stream.                                                                                   590618   96120700
120800+D Schema_end...                                                                                           590618   96120800
120900+D                 PR                                                                                      590618   96120900
121000+D                                     extproc('WSDL2R98_+                                                 590618   96121000
121100+D                                     Schema_end+                                                         590618   96121100
121200+D                                     ')                                                                  590618   96121200
121300+D  userdata                       *   value                                                               590618   96121300
121400+D  depth                        10I 0 value                                                               590618   96121400
121500+D  namespace                  1024A   varying const                                                       590618   96121500
121600+D  name                       1024A   varying const                                                       590618   96121600
121700+D  path                      24576A   varying const                                                       590618   96121700
121800+D  value                     65535A   varying const                                                       590618   96121800
121900+D  attrs                          *   dim(32767)                                                          590618   96121900
122000+D                                     const options(*varsize)                                             590618   96122000
122100+ *                                                                                                        590618   96122100
122200+ * Sets the size of the variable that takes the content                                                   590618   96122200
122300+ * of a XML 'any' element.                                                                                590618   96122300
122400+D Any_initialize...                                                                                       590618   96122400
122500+D                 PR                                                                                      590618   96122500
122600+D                                     extproc('WSDL2R98_+                                                 590618   96122600
122700+D                                     Any_initialize+                                                     590618   96122700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    347
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
122800+D                                     ')                                                                  590618   96122800
122900+D  i_size                       10I 0 value                                                               590618   96122900
123000+ *                                                                                                        610719   96123000
123100+ * Sets the size of the variable that takes the content                                                   610719   96123100
123200+ * of a XML 'any' element.                                                                                610719   96123200
123300+D Any_initializeV6...                                                                                     610719   96123300
123400+D                 PR                                                                                      610719   96123400
123500+D                                     extproc('WSDL2R98_+                                                 610719   96123500
123600+D                                     Any_initializeV6+                                                   610719   96123600
123700+D                                     ')                                                                  610719   96123700
123800+D  i_pField                       *   const                                                               610719   96123800
123900+D  i_pData                        *   const                                                               610719   96123900
124000+D  i_size                       10I 0 const                                                               610719   96124000
124100+ *                                                                                                        590618   96124100
124200+ * Retrieves athe content of a XML 'any' element                                                          590618   96124200
124300+ * from the XML stream.                                                                                   590618   96124300
124400+D Any_start...                                                                                            590618   96124400
124500+D                 PR                                                                                      590618   96124500
124600+D                                     extproc('WSDL2R98_+                                                 590618   96124600
124700+D                                     Any_start+                                                          590618   96124700
124800+D                                     ')                                                                  590618   96124800
124900+D  userdata                       *   value                                                               590618   96124900
125000+D  depth                        10I 0 value                                                               590618   96125000
125100+D  namespace                  1024A   varying const                                                       590618   96125100
125200+D  name                       1024A   varying const                                                       590618   96125200
125300+D  path                      24576A   varying const                                                       590618   96125300
125400+D  attrs                          *   dim(32767)                                                          590618   96125400
125500+D                                     const options(*varsize)                                             590618   96125500
125600+ *                                                                                                        590618   96125600
125700+ * Retrieves athe content of a XML 'any' element                                                          590618   96125700
125800+ * from the XML stream.                                                                                   590618   96125800
125900+D Any_end...                                                                                              590618   96125900
126000+D                 PR                                                                                      590618   96126000
126100+D                                     extproc('WSDL2R98_+                                                 590618   96126100
126200+D                                     Any_end+                                                            590618   96126200
126300+D                                     ')                                                                  590618   96126300
126400+D  userdata                       *   value                                                               590618   96126400
126500+D  depth                        10I 0 value                                                               590618   96126500
126600+D  namespace                  1024A   varying const                                                       590618   96126600
126700+D  name                       1024A   varying const                                                       590618   96126700
126800+D  path                      24576A   varying const                                                       590618   96126800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    348
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
126900+D  value                     65535A   varying const                                                       590618   96126900
127000+D  attrs                          *   dim(32767)                                                          590618   96127000
127100+D                                     const options(*varsize)                                             590618   96127100
127200+ *                                                                                                        591208   96127200
127300+ *  Returns cTrue if a given list contains a 'nil' attribute, set                                         591208   96127300
127400+ *  to 'true', else cFalse.                                                                               591208   96127400
127500+D Value_isNil...                                                                                          591208   96127500
127600+D                 PR              N                                                                       591208   96127600
127700+D                                     extproc('WSDL2R98_+                                                 591208   96127700
127800+D                                     Value_isNil+                                                        591208   96127800
127900+D                                     ')                                                                  591208   96127900
128000+D  i_attrs                        *   const  dim(32767) options(*varsize)                                 591208   96128000
128100+ *                                                                                                        130701   96128100
128200+ *  Enables/disables the integrated XML entity encode.                                                    130701   96128200
128300+D XmlEntityEncoder_setEnabled...                                                                          130701   96128300
128400+D                 PR                                                                                      130701   96128400
128500+D                                     extproc('WSDL2R98_+                                                 130701   96128500
128600+D                                     XmlEntityEncoder_setEnabled+                                        130701   96128600
128700+D                                     ')                                                                  130701   96128700
128800+D  i_isEnabled                    N   const                                                               130701   96128800
128900+ *                                                                                                        130701   96128900
129000+ *  Returns the enabled status of the integrated XML entity encoder.                                      130701   96129000
129100+D XmlEntityEncoder_isEnabled...                                                                           130701   96129100
129200+D                 PR              N                                                                       130701   96129200
129300+D                                     extproc('WSDL2R98_+                                                 130701   96129300
129400+D                                     XmlEntityEncoder_isEnabled+                                         130701   96129400
129500+D                                     ')                                                                  130701   96129500
129600+ *                                                                                                        130701   96129600
129700+ *  Encodes XML entities up to 64k (V5R4 and lower).                                                      130702   96129700
129800+D XmlEntityEncoder_encode...                                                                              130701   96129800
129900+D                 PR         65535A          varying                                                      130701   96129900
130000+D                                     extproc('WSDL2R98_+                                                 130701   96130000
130100+D                                     XmlEntityEncoder_encode+                                            130701   96130100
130200+D                                     ')                                                                  130701   96130200
130300+D  i_value                   65535A          varying  options(*varsize)                                   130701   96130300
130400+ *                                                                                                        130702   96130400
130500+ *  Encodes XML entities up to 1MB (V6R1 and lower).                                                      130702   96130500
130600+D XmlEntityEncoder_encodeLarge...                                                                         130702   96130600
130700+D                 PR                         like(wsdl_largeString_t)                                     130712   96130700
130800+D                                     extproc('WSDL2R98_+                                                 130702   96130800
130900+D                                     XmlEntityEncoder_encodeLarge+                                       130702   96130900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    349
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
131000+D                                     ')                                                                  130702   96131000
131100+D  i_value                                   like(wsdl_largeString_t)                                     130712   96131100
131200+D                                            options(*varsize)                                            130712   96131200
131300+ *                                                                                                        130701   96131300
131400+ *  Encodes XML entities up to 16MB (V6R1 and higher).                                                    130702   96131400
131500+D XmlEntityEncoder_encodeV6...                                                                            130701   96131500
131600+D                 PR                                                                                      130702   96131600
131700+D                                     extproc('WSDL2R98_+                                                 130701   96131700
131800+D                                     XmlEntityEncoder_encodeV6+                                          130701   96131800
131900+D                                     ')                                                                  130701   96131900
132000+D  i_value                                   like(wsdl_extraLargeString_t)                                130712   96132000
132100+D                                            options(*varsize)                                            130712   96132100
132200+D  i_pField                       *   const                                                               130702   96132200
132300+D  i_pData                        *   const                                                               130702   96132300
132400+D  i_size                       10I 0 const                                                               130702   96132400
132500+ *                                                                                                        590618   96132500
132600+ /ENDIF                                                                                                   571108   96132600
000177  /COPY QWSDL2RPG,PWSDL2R42                    WSDL2RPG: User name and password                       CPY  000000     000177
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  PWSDL2R42                                                    *                   100
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(PWSDL2R42)                                *                   100
        * Last change  . . . . . . . :  19.04.15  17:01:54                                           *                   100
        * Text 'description' . . . . :  WSDL2RPG: User name and password       (Prototype)           *                   100
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(PWSDL2R42)                                                                               590418  100000100
000200+ /DEFINE PWSDL2R42                                                                                        590418  100000200
000300+ *                                                                                                        571108  100000300
000400+ /COPY QWSDL2RPG,TYPES                                                                               CPY  571108  100000400
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  TYPES                                                        *                   101
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(TYPES)                                    *                   101
        * Last change  . . . . . . . :  19.04.15  17:01:56                                           *                   101
        * Text 'description' . . . . :  Type definitions (private)                                   *                   101
        *--------------------------------------------------------------------------------------------*
000100+ /IF NOT DEFINED(TYPES)                                                                                   571106  101000100
            LINES EXCLUDED: 1036
103800+ /ENDIF                                                                                                   571106  101103800
000500+ /COPY QWSDL2RPG,WORKSTN                                                                             CPY  571204  100000500
        *--------------------------------------------------------------------------------------------*
        * RPG member name  . . . . . :  WORKSTN                                                      *                   102
        * External name  . . . . . . :  WSDL2RPG/QWSDL2RPG(WORKSTN)                                  *                   102
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    350
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        * Last change  . . . . . . . :  19.04.15  17:02:00                                           *                   102
        * Text 'description' . . . . :  Workstation specific structures and constants                *                   102
        *--------------------------------------------------------------------------------------------*
000100+ /if not defined(WORKSTN)                                                                                 130620  102000100
000200+ /define WORKSTN                                                                                          130620  102000200
000300+ *                                                                                                        570816  102000300
000400+ *  Key pressed                                                                                           570816  102000400
000500+D keyPressed_t    S              1A   based(pDummy)                                                       570816  102000500
000600+ *                                                                                                        570326  102000600
000700+ *  Workstation information data structure                                                                570326  102000700
000800+D workstn_infds_t...                                                                                      570326  102000800
000900+D                 DS                  qualified               based(pDummy)                               570326  102000900
001000+D  open                   9      9A                                                                       570326  102001000
001100+D  status                11     15S 0                                                                     570326  102001100
001200+D  AID                  369    369A                                                                       570326  102001200
001300+ *                                                                                                        000000  102001300
001400+ *  Command keys                                                                                          570326  102001400
001500+D cKeyF1          C                   CONST(X'31')                                                        000000  102001500
001600+D cKeyF2          C                   CONST(X'32')                                                        000000  102001600
001700+D cKeyF3          C                   CONST(X'33')                                                        000000  102001700
001800+D cKeyF4          C                   CONST(X'34')                                                        000000  102001800
001900+D cKeyF5          C                   CONST(X'35')                                                        000000  102001900
002000+D cKeyF6          C                   CONST(X'36')                                                        000000  102002000
002100+D cKeyF7          C                   CONST(X'37')                                                        000000  102002100
002200+D cKeyF8          C                   CONST(X'38')                                                        000000  102002200
002300+D cKeyF9          C                   CONST(X'39')                                                        000000  102002300
002400+D cKeyF10         C                   CONST(X'3A')                                                        000000  102002400
002500+D cKeyF11         C                   CONST(X'3B')                                                        000000  102002500
002600+D cKeyF12         C                   CONST(X'3C')                                                        000000  102002600
002700+D cKeyF13         C                   CONST(X'B1')                                                        000000  102002700
002800+D cKeyF14         C                   CONST(X'B2')                                                        000000  102002800
002900+D cKeyF15         C                   CONST(X'B3')                                                        000000  102002900
003000+D cKeyF16         C                   CONST(X'B4')                                                        000000  102003000
003100+D cKeyF17         C                   CONST(X'B5')                                                        000000  102003100
003200+D cKeyF18         C                   CONST(X'B6')                                                        000000  102003200
003300+D cKeyF19         C                   CONST(X'B7')                                                        000000  102003300
003400+D cKeyF20         C                   CONST(X'B8')                                                        000000  102003400
003500+D cKeyF21         C                   CONST(X'B9')                                                        000000  102003500
003600+D cKeyF22         C                   CONST(X'BA')                                                        000000  102003600
003700+D cKeyF23         C                   CONST(X'BB')                                                        000000  102003700
003800+D cKeyF24         C                   CONST(X'BC')                                                        000000  102003800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    351
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003900+ *                                                                                                        000000  102003900
004000+D cKeyClear       C                   CONST(X'BD')                                                        000000  102004000
004100+D cKeyDelete      C                   CONST(X'BD')                                                        000000  102004100
004200+ *                                                                                                        000000  102004200
004300+D cKeyEnter       C                   CONST(X'F1')                                                        000000  102004300
004400+ *          Nicht definiert                   F2                                                          000000  102004400
004500+D cKeyHelp        C                   CONST(X'F3')                                                        000000  102004500
004600+D cKeyPageDown    C                   CONST(X'F4')                                                        000000  102004600
004700+D cKeyPageUp      C                   CONST(X'F5')                                                        000000  102004700
004800+D cKeyPrintScr    C                   CONST(X'F6')                                                        000000  102004800
004900+ *          Nicht definiert                   F7                                                          000000  102004900
005000+D cKeyReset       C                   CONST(X'F8')                                                        000000  102005000
005100+ *                                                                                                        000000  102005100
005200+D cKeyLightPen    C                   CONST(X'3F')                                                        000000  102005200
005300+ *                                                                                                        000000  102005300
005400+D cSflFold        C                   CONST(*off)                                                         000000  102005400
005500+D cSflDrop        C                   CONST(*on )                                                         000000  102005500
005600+ *                                                                                                        570911  102005600
005700+ *  5250 color codes                                                                                      570911  102005700
005800+ *------------------------------------------------------*                                                 570911  102005800
005900+ * Green                                                                                                  570911  102005900
006000+D c5250_GRN       C                   CONST(X'20')                                                        570911  102006000
006100+ * Green/Reverse                                                                                          570911  102006100
006200+D c5250_GRNR      C                   CONST(X'21')                                                        570911  102006200
006300+ * Green/Underscore                                                                                       570911  102006300
006400+D c5250_GRNU      C                   CONST(X'24')                                                        570911  102006400
006500+ * Green/Underscore/Reverse                                                                               570911  102006500
006600+D c5250_GRNUR     C                   CONST(X'25')                                                        570911  102006600
006700+ *------------------------------------------------------*                                                 570911  102006700
006800+ * White                                                                                                  570911  102006800
006900+D c5250_WHT       C                   CONST(X'22')                                                        570911  102006900
007000+ * White/Reverse                                                                                          570911  102007000
007100+D c5250_WHTR      C                   CONST(X'23')                                                        570911  102007100
007200+ * White/Underscore                                                                                       570911  102007200
007300+D c5250_WHTU      C                   CONST(X'26')                                                        570911  102007300
007400+ *------------------------------------------------------*                                                 570911  102007400
007500+ * Red                                                                                                    570911  102007500
007600+D c5250_RED       C                   CONST(X'28')                                                        570911  102007600
007700+ * Red/Reverse                                                                                            570911  102007700
007800+D c5250_REDR      C                   CONST(X'29')                                                        570911  102007800
007900+ * Red/Blink                                                                                              570911  102007900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    352
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
008000+D c5250_REDB      C                   CONST(X'2A')                                                        570911  102008000
008100+ * Red/Reverse/Blink                                                                                      570911  102008100
008200+D c5250_REDRB     C                   CONST(X'2B')                                                        570911  102008200
008300+ * Red/Underscore                                                                                         570911  102008300
008400+D c5250_REDU      C                   CONST(X'2C')                                                        570911  102008400
008500+ * Red/Underscore/Reverse                                                                                 570911  102008500
008600+D c5250_REDUR     C                   CONST(X'2D')                                                        570911  102008600
008700+ * Red/Underscore/Blink                                                                                   570911  102008700
008800+D c5250_REDUB     C                   CONST(X'2E')                                                        570911  102008800
008900+ *------------------------------------------------------*                                                 570911  102008900
009000+ * Turquoise/Column Separators                                                                            570911  102009000
009100+D c5250_TRQC      C                   CONST(X'30')                                                        570911  102009100
009200+ * Turquoise/Column Separators/Reverse                                                                    570911  102009200
009300+D c5250_TRQCR     C                   CONST(X'31')                                                        570911  102009300
009400+ * Turquoise/Underscore                                                                                   570911  102009400
009500+D c5250_TRQU      C                   CONST(X'34')                                                        570911  102009500
009600+ * Turquoise/Underscore/Reverse                                                                           570911  102009600
009700+D c5250_TRQUR     C                   CONST(X'35')                                                        570911  102009700
009800+ *------------------------------------------------------*                                                 570911  102009800
009900+ * Yellow/Column Separators                                                                               570911  102009900
010000+D c5250_YLWC      C                   CONST(X'32')                                                        570911  102010000
010100+ * Yellow/Column Separators/Reverse                                                                       570911  102010100
010200+D c5250_YLWCR     C                   CONST(X'33')                                                        570911  102010200
010300+ * Yellow/Underscore                                                                                      570911  102010300
010400+D c5250_YLWU      C                   CONST(X'36')                                                        570911  102010400
010500+ *------------------------------------------------------*                                                 570911  102010500
010600+ * Pink                                                                                                   570911  102010600
010700+D c5250_PNK       C                   CONST(X'38')                                                        570911  102010700
010800+ * Pink/Reverse                                                                                           570911  102010800
010900+D c5250_PNKR      C                   CONST(X'39')                                                        570911  102010900
011000+ * Pink/Underscore                                                                                        570911  102011000
011100+D c5250_PNKU      C                   CONST(X'3C')                                                        570911  102011100
011200+ * Pink/Underscore/Reverse                                                                                570911  102011200
011300+D c5250_PNKUR     C                   CONST(X'3D')                                                        570911  102011300
011400+ *------------------------------------------------------*                                                 570911  102011400
011500+ * Blue                                                                                                   570911  102011500
011600+D c5250_BLU       C                   CONST(X'3A')                                                        570911  102011600
011700+ * Blue/Reverse                                                                                           570911  102011700
011800+D c5250_BLUR      C                   CONST(X'3B')                                                        570911  102011800
011900+ * Blue/Underscore                                                                                        570911  102011900
012000+D c5250_BLUU      C                   CONST(X'3E')                                                        570911  102012000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    353
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
012100+ *------------------------------------------------------*                                                 570911  102012100
012200+ * Nondisplay                                                                                             570911  102012200
012300+D c5250_ND1       C                   CONST(X'27')                                                        570911  102012300
012400+ * Nondisplay                                                                                             570911  102012400
012500+D c5250_ND2       C                   CONST(X'2F')                                                        570911  102012500
012600+ * Nondisplay                                                                                             570911  102012600
012700+D c5250_ND3       C                   CONST(X'37')                                                        570911  102012700
012800+ * Nondisplay                                                                                             570911  102012800
012900+D c5250_ND4       C                   CONST(X'3F')                                                        570911  102012900
013000+ *                                                                                                        570911  102013000
013100+ /endif                                                                                                   130620  102013100
000600+ *                                                                                                        571204  100000600
000700+D cAUTH_TYPE_HTTP...                                                                                      090618  100000700
000800+D                 C                          '*HTTP'                                                      090618  100000800
000900+D cAUTH_TYPE_PROXY...                                                                                     090618  100000900
001000+D                 C                          '*PROXY'                                                     090618  100001000
001100+ *                                                                                                        090618  100001100
001200+ *  Returns the login data used to login to a given web server.                                           090618  100001200
001300+D getLoginData...                                                                                         590418  100001300
001400+D                 PR            10I 0                                                                     090618  100001400
001500+D                                            extproc('WSDL2R42_+                                          590418  100001500
001600+D                                            getLoginData+                                                590418  100001600
001700+D                                            ')                                                           571204  100001700
001800+D  i_authType                   14A          const  varying                                               090618  100001800
001900+D  i_realm                     126A          const  varying                                               090618  100001900
002000+D  i_numAttempts                10I 0        const                                                        090618  100002000
002100+D  o_user                       50A                 varying                                               090618  100002100
002200+D  o_password                   50A                 varying                                               090618  100002200
002300+D  o_cmdKey                                         like(keyPressed_t)                                    090618  100002300
002400+D                                                   options(*nopass)                                      090618  100002400
002500+ *                                                                                                        571107  100002500
002600+ /ENDIF                                                                                                   571108  100002600
000178  *                                                                                                        000000     000178
000179  * ------------------------------------                                                                   000000     000179
000180  *  Internal prototypes                                                                                   000000     000180
000181  * ------------------------------------                                                                   000000     000181
000182  *                                                                                                        000000     000182
000183  *   Reopens a given input stream in order to send it over                                                000000     000183
000184  *   the wire again.                                                                                      000000     000184
000185 D reOpenInputStream...                                                                                    000000     000185
000186 D                 PR                         like(wsdl_hStream_t    )                                     000000     000186
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    354
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000187 D                                     extproc('+                                                          000000     000187
000188 D                                     reOpenInputStream+                                                  000000     000188
000189 D                                     ')                                                                  000000     000189
000190 D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t    )                                     000000     000190
000191 D  i_hInpStream                       value  like(wsdl_hStream_t    )                                     000000     000191
000192  *                                                                                                        000000     000192
000193  *   Login in to proxy server or http server.                                                             000000     000193
000194 D login...                                                                                                000000     000194
000195 D                 PR            10I 0                                                                     000000     000195
000196 D                                     extproc('+                                                          000000     000196
000197 D                                     login+                                                              000000     000197
000198 D                                     ')                                                                  000000     000198
000199  *                                                                                                        000000     000199
000200  *   Sets the content type and the SOAP action of the POST message.                                       000000     000200
000201 D HTTP_setContentTypeAndSOAPAction...                                                                     000000     000201
000202 D                 PR                                                                                      000000     000202
000203 D                                     extproc('+                                                          000000     000203
000204 D                                     HTTP_setContentTypeAndSOAPAction+                                   000000     000204
000205 D                                     ')                                                                  000000     000205
000206 D  o_addlHdrs                 1024A          varying                                                      000000     000206
000207 D  i_pUserData                    *   value                                                               000000     000207
000208  *                                                                                                        000000     000208
000209  *                                                                                                        000000     000209
000210  * Message serializer for element or type:                                                                000000     000210
000211  * tns:getOrders                                                                                          000000     000211
000212 D tns_getOrdersSerializer...                                                                              000000     000212
000213 D                 PR                                                                                      000000     000213
000214 D                                     extproc('tns_getOrdersSerializer')                                  000000     000214
000215 D  i_hOutStream                       like(wsdl_hStream_t)                                                000000     000215
000216 D                                     const                                                               000000     000216
000217 D  i_getOrders                        likeds(tns_getOrders_t)                                             000000     000217
000218 D  i_elemName                         like(wsdl_name_t)                                                   000000     000218
000219 D                                     const                                                               000000     000219
000220  *                                                                                                        000000     000220
000221 D tns_getOrdersResponseStart...                                                                           000000     000221
000222 D                 PR                                                                                      000000     000222
000223 D                                     extproc('tns_getOrdersResponseStart')                               000000     000223
000224 D  userdata                       *   value                                                               000000     000224
000225 D  depth                        10I 0 value                                                               000000     000225
000226 D  namespace                  1024A   varying const                                                       000000     000226
000227 D  name                       1024A   varying const                                                       000000     000227
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    355
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000228 D  path                      24576A   varying const                                                       000000     000228
000229 D  attrs                          *   dim(32767)                                                          000000     000229
000230 D                                     const options(*varsize)                                             000000     000230
000231 D tns_getOrdersResponseEnd...                                                                             000000     000231
000232 D                 PR                                                                                      000000     000232
000233 D                                     extproc('tns_getOrdersResponseEnd')                                 000000     000233
000234 D  userdata                       *   value                                                               000000     000234
000235 D  depth                        10I 0 value                                                               000000     000235
000236 D  namespace                  1024A   varying const                                                       000000     000236
000237 D  name                       1024A   varying const                                                       000000     000237
000238 D  path                      24576A   varying const                                                       000000     000238
000239 D  value                     65535A   varying                                                             000000     000239
000240 D  attrs                          *   dim(32767)                                                          000000     000240
000241 D                                     const options(*varsize)                                             000000     000241
000242 D ns_ArrayOfOrdersStart...                                                                                000000     000242
000243 D                 PR                                                                                      000000     000243
000244 D                                     extproc('ns_ArrayOfOrdersStart')                                    000000     000244
000245 D  userdata                       *   value                                                               000000     000245
000246 D  depth                        10I 0 value                                                               000000     000246
000247 D  namespace                  1024A   varying const                                                       000000     000247
000248 D  name                       1024A   varying const                                                       000000     000248
000249 D  path                      24576A   varying const                                                       000000     000249
000250 D  attrs                          *   dim(32767)                                                          150720     000250
000251 D                                     const options(*varsize)                                             000000     000251
000252 D ns_ArrayOfOrdersEnd...                                                                                  000000     000252
000253 D                 PR                                                                                      000000     000253
000254 D                                     extproc('ns_ArrayOfOrdersEnd')                                      000000     000254
000255 D  userdata                       *   value                                                               000000     000255
000256 D  depth                        10I 0 value                                                               000000     000256
000257 D  namespace                  1024A   varying const                                                       000000     000257
000258 D  name                       1024A   varying const                                                       000000     000258
000259 D  path                      24576A   varying const                                                       000000     000259
000260 D  value                     65535A   varying                                                             000000     000260
000261 D  attrs                          *   dim(32767)                                                          000000     000261
000262 D                                     const options(*varsize)                                             000000     000262
000263 D ns_orderStart_of_ns_ArrayOfOrders...                                                                    000000     000263
000264 D                 PR                                                                                      000000     000264
000265 D                                     extproc('ns_orderStart_of_ns_ArrayOf+                               000000     000265
000266 D                                     Orders')                                                            000000     000266
000267 D  userdata                       *   value                                                               000000     000267
000268 D  depth                        10I 0 value                                                               000000     000268
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    356
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000269 D  namespace                  1024A   varying const                                                       000000     000269
000270 D  name                       1024A   varying const                                                       000000     000270
000271 D  path                      24576A   varying const                                                       000000     000271
000272 D  attrs                          *   dim(32767)                                                          000000     000272
000273 D                                     const options(*varsize)                                             000000     000273
000274 D ns_orderEnd_of_ns_ArrayOfOrders...                                                                      000000     000274
000275 D                 PR                                                                                      000000     000275
000276 D                                     extproc('ns_orderEnd_of_ns_ArrayOfOr+                               000000     000276
000277 D                                     ders')                                                              000000     000277
000278 D  userdata                       *   value                                                               000000     000278
000279 D  depth                        10I 0 value                                                               000000     000279
000280 D  namespace                  1024A   varying const                                                       000000     000280
000281 D  name                       1024A   varying const                                                       000000     000281
000282 D  path                      24576A   varying const                                                       000000     000282
000283 D  value                     65535A   varying                                                             000000     000283
000284 D  attrs                          *   dim(32767)                                                          000000     000284
000285 D                                     const options(*varsize)                                             000000     000285
000286 D ns_ArrayOfStringsStart...                                                                               000000     000286
000287 D                 PR                                                                                      000000     000287
000288 D                                     extproc('ns_ArrayOfStringsStart')                                   000000     000288
000289 D  userdata                       *   value                                                               000000     000289
000290 D  depth                        10I 0 value                                                               000000     000290
000291 D  namespace                  1024A   varying const                                                       000000     000291
000292 D  name                       1024A   varying const                                                       000000     000292
000293 D  path                      24576A   varying const                                                       000000     000293
000294 D  attrs                          *   dim(32767)                                                          000000     000294
000295 D                                     const options(*varsize)                                             000000     000295
000296 D ns_ArrayOfStringsEnd...                                                                                 000000     000296
000297 D                 PR                                                                                      000000     000297
000298 D                                     extproc('ns_ArrayOfStringsEnd')                                     000000     000298
000299 D  userdata                       *   value                                                               000000     000299
000300 D  depth                        10I 0 value                                                               000000     000300
000301 D  namespace                  1024A   varying const                                                       000000     000301
000302 D  name                       1024A   varying const                                                       000000     000302
000303 D  path                      24576A   varying const                                                       000000     000303
000304 D  value                     65535A   varying                                                             000000     000304
000305 D  attrs                          *   dim(32767)                                                          000000     000305
000306 D                                     const options(*varsize)                                             000000     000306
000307 D ns_entryStart_of_ns_ArrayOfStrings...                                                                   000000     000307
000308 D                 PR                                                                                      000000     000308
000309 D                                     extproc('ns_entryStart_of_ns_ArrayOf+                               000000     000309
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    357
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000310 D                                     Strings')                                                           000000     000310
000311 D  userdata                       *   value                                                               000000     000311
000312 D  depth                        10I 0 value                                                               000000     000312
000313 D  namespace                  1024A   varying const                                                       000000     000313
000314 D  name                       1024A   varying const                                                       000000     000314
000315 D  path                      24576A   varying const                                                       000000     000315
000316 D  attrs                          *   dim(32767)                                                          000000     000316
000317 D                                     const options(*varsize)                                             000000     000317
000318 D ns_entryEnd_of_ns_ArrayOfStrings...                                                                     000000     000318
000319 D                 PR                                                                                      000000     000319
000320 D                                     extproc('ns_entryEnd_of_ns_ArrayOfSt+                               000000     000320
000321 D                                     rings')                                                             000000     000321
000322 D  userdata                       *   value                                                               000000     000322
000323 D  depth                        10I 0 value                                                               000000     000323
000324 D  namespace                  1024A   varying const                                                       000000     000324
000325 D  name                       1024A   varying const                                                       000000     000325
000326 D  path                      24576A   varying const                                                       000000     000326
000327 D  value                     65535A   varying                                                             000000     000327
000328 D  attrs                          *   dim(32767)                                                          000000     000328
000329 D                                     const options(*varsize)                                             000000     000329
000330 D ns_ArrayOfOrderItemsStart...                                                                            000000     000330
000331 D                 PR                                                                                      000000     000331
000332 D                                     extproc('ns_ArrayOfOrderItemsStart')                                000000     000332
000333 D  userdata                       *   value                                                               000000     000333
000334 D  depth                        10I 0 value                                                               000000     000334
000335 D  namespace                  1024A   varying const                                                       000000     000335
000336 D  name                       1024A   varying const                                                       000000     000336
000337 D  path                      24576A   varying const                                                       000000     000337
000338 D  attrs                          *   dim(32767)                                                          000000     000338
000339 D                                     const options(*varsize)                                             000000     000339
000340 D ns_ArrayOfOrderItemsEnd...                                                                              000000     000340
000341 D                 PR                                                                                      000000     000341
000342 D                                     extproc('ns_ArrayOfOrderItemsEnd')                                  000000     000342
000343 D  userdata                       *   value                                                               000000     000343
000344 D  depth                        10I 0 value                                                               000000     000344
000345 D  namespace                  1024A   varying const                                                       000000     000345
000346 D  name                       1024A   varying const                                                       000000     000346
000347 D  path                      24576A   varying const                                                       000000     000347
000348 D  value                     65535A   varying                                                             000000     000348
000349 D  attrs                          *   dim(32767)                                                          000000     000349
000350 D                                     const options(*varsize)                                             000000     000350
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    358
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000351 D ns_orderItemStart_of_ns_ArrayOfOrderItems...                                                            000000     000351
000352 D                 PR                                                                                      000000     000352
000353 D                                     extproc('ns_orderItemStart_of_ns_Arr+                               000000     000353
000354 D                                     ayOfOrderItems')                                                    000000     000354
000355 D  userdata                       *   value                                                               000000     000355
000356 D  depth                        10I 0 value                                                               000000     000356
000357 D  namespace                  1024A   varying const                                                       000000     000357
000358 D  name                       1024A   varying const                                                       000000     000358
000359 D  path                      24576A   varying const                                                       000000     000359
000360 D  attrs                          *   dim(32767)                                                          000000     000360
000361 D                                     const options(*varsize)                                             000000     000361
000362 D ns_orderItemEnd_of_ns_ArrayOfOrderItems...                                                              000000     000362
000363 D                 PR                                                                                      000000     000363
000364 D                                     extproc('ns_orderItemEnd_of_ns_Array+                               000000     000364
000365 D                                     OfOrderItems')                                                      000000     000365
000366 D  userdata                       *   value                                                               000000     000366
000367 D  depth                        10I 0 value                                                               000000     000367
000368 D  namespace                  1024A   varying const                                                       000000     000368
000369 D  name                       1024A   varying const                                                       000000     000369
000370 D  path                      24576A   varying const                                                       000000     000370
000371 D  value                     65535A   varying                                                             000000     000371
000372 D  attrs                          *   dim(32767)                                                          000000     000372
000373 D                                     const options(*varsize)                                             000000     000373
000374  *                                                                                                        000000     000374
000375  *   Append a given data buffer to the specified output stream.                                           000000     000375
000376 D OutputStream_appendBuffer...                                                                            000000     000376
000377 D                 PR                  extproc('+                                                          000000     000377
000378 D                                     OutputStream_appendBuffer+                                          000000     000378
000379 D                                     ')                                                                  000000     000379
000380 D  i_hStream                          value  like(wsdl_hStream_t)                                         000000     000380
000381 D  i_data                         *   value                                                               000000     000381
000382 D  i_length                     10I 0 value                                                               000000     000382
000383  *                                                                                                        000000     000383
000384  *   Append the content of the global request buffer                                                      000000     000384
000385  *   (g_requestBuffer) to the specified output stream                                                     000000     000385
000386  *   and afterwards clears the buffer.                                                                    000000     000386
000387 D OutputStream_appendGlobalRequestBuffer...                                                               000000     000387
000388 D                 PR                  extproc('+                                                          000000     000388
000389 D                                     OutputStream_+                                                      000000     000389
000390 D                                     appendGlobalRequestBuffer+                                          000000     000390
000391 D                                     ')                                                                  000000     000391
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    359
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000392 D  i_hStream                    10I 0 value                                                               000000     000392
000393 D  io_requestBuffer...                                                                                    000000     000393
000394 D                            65535A          varying options(*varsize)                                    000000     000394
000395  *                                                                                                        000000     000395
000396  *   Receive response of Hendif;                                                                          000000     000396
000397 D HTTP_receiveResponse...                                                                                 000000     000397
000398 D                 PR            10I 0 extproc('+                                                          000000     000398
000399 D                                     HTTP_receiveResponse+                                               000000     000399
000400 D                                     ')                                                                  000000     000400
000401 D  i_hStream                    10I 0 value                                                               000000     000401
000402 D  i_data                         *   value                                                               000000     000402
000403 D  i_length                     10I 0 value                                                               000000     000403
000404  *                                                                                                        000000     000404
000405  *   Parses or redirects the web service response.                                                        000000     000405
000406 D parseOrRedirectResponse...                                                                              000000     000406
000407 D                 PR              N   extproc('+                                                          000000     000407
000408 D                                     parseOrRedirectResponse+                                            000000     000408
000409 D                                     ')                                                                  000000     000409
000410 D  i_data                         *   value                                                               000000     000410
000411 D  i_length                     10I 0 value                                                               000000     000411
000412  *                                                                                                        000000     000412
000413  *   SOAP message: Envelope                                                                               000000     000413
000414 D SOAPMessage_Envelope...                                                                                 000000     000414
000415 D                 PR                  extproc('+                                                          000000     000415
000416 D                                     SOAPMessage_Envelope+                                               000000     000416
000417 D                                     ')                                                                  000000     000417
000418 D   userdata                      *   value                                                               000000     000418
000419 D   depth                       10I 0 value                                                               000000     000419
000420 D   namespace                 1024A   varying const                                                       000000     000420
000421 D   name                      1024A   varying const                                                       000000     000421
000422 D   path                     24576A   varying const                                                       000000     000422
000423 D   attrs                         *   dim(32767)                                                          000000     000423
000424 D                                     const options(*varsize)                                             000000     000424
000425  *                                                                                                        000000     000425
000426  *   SOAP message: fault information                                                                      000000     000426
000427 D SOAPMessage_FaultStart...                                                                               000000     000427
000428 D                 PR                  extproc('+                                                          000000     000428
000429 D                                     SOAPMessage_FaultStart+                                             000000     000429
000430 D                                     ')                                                                  000000     000430
000431 D   userdata                      *   value                                                               000000     000431
000432 D   depth                       10I 0 value                                                               000000     000432
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    360
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000433 D   namespace                 1024A   varying const                                                       000000     000433
000434 D   name                      1024A   varying const                                                       000000     000434
000435 D   path                     24576A   varying const                                                       000000     000435
000436 D   attrs                         *   dim(32767)                                                          000000     000436
000437 D                                     const options(*varsize)                                             000000     000437
000438  *                                                                                                        000000     000438
000439  *   SOAP message: fault information                                                                      000000     000439
000440 D SOAPMessage_FaultEnd...                                                                                 000000     000440
000441 D                 PR                  extproc('+                                                          000000     000441
000442 D                                     SOAPMessage_FaultEnd+                                               000000     000442
000443 D                                     ')                                                                  000000     000443
000444 D   userdata                      *   value                                                               000000     000444
000445 D   depth                       10I 0 value                                                               000000     000445
000446 D   namespace                 1024A   varying const                                                       000000     000446
000447 D   name                      1024A   varying const                                                       000000     000447
000448 D   path                     24576A   varying const                                                       000000     000448
000449 D   value                    65535A   varying const                                                       000000     000449
000450 D   attrs                         *   dim(32767)                                                          000000     000450
000451 D                                     const options(*varsize)                                             000000     000451
000452  *                                                                                                        000000     000452
000453  *   SOAP message: fault details                                                                          000000     000453
000454 D SOAPMessage_FaultDetailStart...                                                                         000000     000454
000455 D                 PR                  extproc('+                                                          000000     000455
000456 D                                     SOAPMessage_FaultDetailStart+                                       000000     000456
000457 D                                     ')                                                                  000000     000457
000458 D   userdata                      *   value                                                               000000     000458
000459 D   depth                       10I 0 value                                                               000000     000459
000460 D   namespace                 1024A   varying const                                                       000000     000460
000461 D   name                      1024A   varying const                                                       000000     000461
000462 D   path                     24576A   varying const                                                       000000     000462
000463 D   attrs                         *   dim(32767)                                                          000000     000463
000464 D                                     const options(*varsize)                                             000000     000464
000465  *                                                                                                        000000     000465
000466  *   SOAP message: fault details                                                                          000000     000466
000467 D SOAPMessage_FaultDetailEnd...                                                                           000000     000467
000468 D                 PR                  extproc('+                                                          000000     000468
000469 D                                     SOAPMessage_FaultDetailEnd+                                         000000     000469
000470 D                                     ')                                                                  000000     000470
000471 D   userdata                      *   value                                                               000000     000471
000472 D   depth                       10I 0 value                                                               000000     000472
000473 D   namespace                 1024A   varying const                                                       000000     000473
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    361
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000474 D   name                      1024A   varying const                                                       000000     000474
000475 D   path                     24576A   varying const                                                       000000     000475
000476 D   value                    65535A   varying const                                                       000000     000476
000477 D   attrs                         *   dim(32767)                                                          000000     000477
000478 D                                     const options(*varsize)                                             000000     000478
000479  *                                                                                                        000000     000479
000480  *   SOAP message: NULL callback procedure                                                                000000     000480
000481 D SOAPMessage_unexpectedElementStart...                                                                   000000     000481
000482 D                 PR                                                                                      000000     000482
000483 D                                     extproc('+                                                          000000     000483
000484 D                                     SOAPMessage_unexpectedElementStart+                                 000000     000484
000485 D                                     ')                                                                  000000     000485
000486 D   userdata                      *   value                                                               000000     000486
000487 D   depth                       10I 0 value                                                               000000     000487
000488 D   namespace                 1024A   varying const                                                       000000     000488
000489 D   name                      1024A   varying const                                                       000000     000489
000490 D   path                     24576A   varying const                                                       000000     000490
000491 D   attrs                         *   dim(32767)                                                          000000     000491
000492 D                                     const options(*varsize)                                             000000     000492
000493  *                                                                                                        000000     000493
000494  *   SOAP message: NULL callback procedure                                                                000000     000494
000495 D SOAPMessage_unexpectedElementEnd...                                                                     000000     000495
000496 D                 PR                                                                                      000000     000496
000497 D                                     extproc('+                                                          000000     000497
000498 D                                     SOAPMessage_unexpectedElementEnd+                                   000000     000498
000499 D                                     ')                                                                  000000     000499
000500 D   userdata                      *   value                                                               000000     000500
000501 D   depth                       10I 0 value                                                               000000     000501
000502 D   namespace                 1024A   varying const                                                       000000     000502
000503 D   name                      1024A   varying const                                                       000000     000503
000504 D   path                     24576A   varying const                                                       000000     000504
000505 D   value                    65535A   varying const                                                       000000     000505
000506 D   attrs                         *   dim(32767)                                                          000000     000506
000507 D                                     const options(*varsize)                                             000000     000507
000508  *                                                                                                        000000     000508
000509 D ignoreUnexpectedSoapHeader...                                                                           000000     000509
000510 D                 PR              N                                                                       000000     000510
000511 D                                     extproc('+                                                          000000     000511
000512 D                                     ignoreUnexpectedSoapHeader+                                         000000     000512
000513 D                                     ')                                                                  000000     000513
000514  *                                                                                                        000000     000514
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    362
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000515 D getOperationUuid...                                                                                     000000     000515
000516 D                 PR                          like(wsdl_uuid_t )                                          000000     000516
000517 D                                     extproc('+                                                          000000     000517
000518 D                                     getOperationUuid+                                                   000000     000518
000519 D                                     ')                                                                  000000     000519
000520  *                                                                                                        000000     000520
000521 D getPortName...                                                                                          000000     000521
000522 D                 PR                          like(wsdl_portName_t )                                      000000     000522
000523 D                                     extproc('+                                                          000000     000523
000524 D                                     getPortName+                                                        000000     000524
000525 D                                     ')                                                                  000000     000525
000526  *                                                                                                        000000     000526
000527 D getOperationName...                                                                                     000000     000527
000528 D                 PR                          like(wsdl_operName_t )                                      000000     000528
000529 D                                     extproc('+                                                          000000     000529
000530 D                                     getOperationName+                                                   000000     000530
000531 D                                     ')                                                                  000000     000531
000532  *                                                                                                        000000     000532
000533 D getPostCcsid...                                                                                         000000     000533
000534 D                 PR            10I 0                                                                     000000     000534
000535 D                                     extproc('+                                                          000000     000535
000536 D                                     getPostCcsid+                                                       000000     000536
000537 D                                     ')                                                                  000000     000537
000538  *                                                                                                        000000     000538
000539 D getTimeout...                                                                                           000000     000539
000540 D                 PR            10I 0                                                                     000000     000540
000541 D                                     extproc('+                                                          000000     000541
000542 D                                     getTimeout+                                                         000000     000542
000543 D                                     ')                                                                  000000     000543
000544  *                                                                                                        000000     000544
000545 D getUserAgent...                                                                                         000000     000545
000546 D                 PR                         like(wsdl_userAgent_t )                                      000000     000546
000547 D                                     extproc('+                                                          000000     000547
000548 D                                     getUserAgent+                                                       000000     000548
000549 D                                     ')                                                                  000000     000549
000550  *                                                                                                        000000     000550
000551 D getMessageContext...                                                                                    000000     000551
000552 D                 PR                         like(wsdl_hMsgCtx_t)                                         000000     000552
000553 D                                     extproc('+                                                          000000     000553
000554 D                                     getMessageContext+                                                  000000     000554
000555 D                                     ')                                                                  000000     000555
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    363
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000556  *                                                                                                        000000     000556
000557 D mustRedirectStmf...                                                                                     000000     000557
000558 D                 PR              N                                                                       000000     000558
000559 D                                     extproc('+                                                          000000     000559
000560 D                                     mustRedirectStmf+                                                   000000     000560
000561 D                                     ')                                                                  000000     000561
000562  *                                                                                                        000000     000562
000563  * ------------------------------------                                                                   000000     000563
000564  *  Global fields & constants                                                                             000000     000564
000565  * ------------------------------------                                                                   000000     000565
000566  *                                                                                                        000000     000566
000567  *   Release, the client stub was compiled for                                                            000000     000567
000568 D COMPILED_FOR...                                                                                         000000     000568
000569 D                 C                   'V7R1M0'                                                            000000     000569
000570  *                                                                                                        000000     000570
000571  *   UUID of the web service operation as generated by WSDL2RPG                                           000000     000571
000572  *   (Using UUID of web service port for all operations by default)                                       000000     000572
000573  *cOPERATION_UUID...                                                                                      000000     000573
000574  *                C                   '110E4C013B1519BBBF5E0004AC179E49'                                  000000     000574
000575  *                                                                                                        000000     000575
000576  *   SOAP response header                                                                                 000000     000576
000577  *                                                                                                        000000     000577
000578  *   Reference to the 'respSoapHeader' field.                                                             000000     000578
000579 D g_pRespSoapHeader...                                                                                    000000     000579
000580 D                 S               *   inz                                                                 000000     000580
000581  *                                                                                                        000000     000581
000582  *   XMLSAXParser handle                                                                                  000000     000582
000583 D g_hSAXParser    S                   like(xmlSaxParser_handle_t) inz                                     000000     000583
000584  *                                                                                                        000000     000584
000585  *   MIME parser                                                                                          000000     000585
000586 D g_hMIMEParser   S                   like(mime_hMime_t ) inz                                             000000     000586
000587  *                                                                                                        000000     000587
000588  *   MIME message indicator                                                                               000000     000588
000589 D g_isMimeMessage...                                                                                      000000     000589
000590 D                 S               N   inz(cFalse)                                                         000000     000590
000591  *                                                                                                        000000     000591
000592  *   Content ID of the SOAP message part                                                                  000000     000592
000593 D g_SOAPMessageID...                                                                                      000000     000593
000594 D                 S            512A   varying inz                                                         000000     000594
000595  *                                                                                                        000000     000595
000596  *   Indicator "parse SOAP message"                                                                       000000     000596
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    364
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000597 D g_doParseSOAPMessage...                                                                                 000000     000597
000598 D                 S               N   inz(cFalse)                                                         000000     000598
000599  *                                                                                                        000000     000599
000600  *   Indicator "SOAP message parsed"                                                                      000000     000600
000601 D g_SOAPMessage_done...                                                                                   000000     000601
000602 D                 S               N   inz(cFalse)                                                         000000     000602
000603  *                                                                                                        000000     000603
000604  *   Body part counter                                                                                    000000     000604
000605 D g_BodyPart_counter...                                                                                   000000     000605
000606 D                 S             10I 0 inz                                                                 000000     000606
000607  *                                                                                                        000000     000607
000608  *   HTTP response "initialized" indicator                                                                000000     000608
000609 D g_HTTP_isInit...                                                                                        000000     000609
000610 D                 S               N   inz(cFalse)                                                         000000     000610
000611  *                                                                                                        000000     000611
000612  *   Error information of web service operation                                                           000000     000612
000613 D g_errors        DS                  likeds(wsdl_errors_t    ) inz                                       000000     000613
000614  *                                                                                                        000000     000614
000615  *   Switch for AXIS bug AXIS-2095                                                                        000000     000615
000616 D g_isAXIS_2095   S               N   inz(cFalse)                                                         000000     000616
000617  *                                                                                                        000000     000617
000618  *   Message context                                                                                      000000     000618
000619 D g_hMsgCtx       S                   like(wsdl_hMsgCtx_t) inz                                            000000     000619
000620  *                                                                                                        000000     000620
000621  *   Global buffer to build the request message.                                                          000000     000621
000622 D g_requestBuffer...                                                                                      000000     000622
000623 D                 S          65535A   varying inz                                                         000000     000623
000624  *                                                                                                        000000     000624
000625  * -------------------------------------------                                                            000000     000625
000626  *  TODO: Added to implement default                                                                      000000     000626
000627  *        attachment handling.                                                                            000000     000627
000628  * -------------------------------------------                                                            000000     000628
000629  /IF DEFINED(DEFAULT_ATTACHMENT_HANDLING)                                                                 000000     000629
            LINES EXCLUDED: 7
000637  /ENDIF                                                                                                   000000     000637
000638  * =====================================================================                                  000000     000638
000639  * Operation: getOrders                                                                                   000000     000639
000640  * Returns  : getOrdersResponse                                                                           000000     000640
000641  * =====================================================================                                  000000     000641
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    365
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000642 P timianOrdersPort_getOrders...                                                                           000000     000642
000643 P                 B                   export                                                              000000     000643
000644 D                 PI                  likeds(tns_getOrdersResponse_t)                                     000000     000644
000645 D  i_getOrders                        likeds(tns_getOrders_t)                                             000000     000645
000646 D  o_msg                       128A   varying                                                             000000     000646
000647  *                                                                                                        000000     000647
000648  *  Return value                                                                                          000000     000648
000649 D rtnValue        DS                  likeds(tns_getOrdersResponse_t)                                     000000     000649
000650 D                                     inz                                                                 000000     000650
000651  *                                                                                                        000000     000651
000652  *  Local fields                                                                                          000000     000652
000653 D isUnexpectedError...                                                                                    000000     000653
000654 D                 S               N   inz(cFalse)                                                         000000     000654
000655 D url             S          32767A   varying                                                             000000     000655
000656 D http_rc         S             10I 0 inz                                                                 000000     000656
000657 D rcvm0200        DS                  likeds(rcvm0200_t    ) inz                                          000000     000657
000658 D msg             DS                  likeds(msg_t         ) inz                                          000000     000658
000659 D headers         DS                  likeds(wsdl_headers_t) inz                                          000000     000659
000660  *                                                                                                        000000     000660
000661 D hMsgCtx         S                   like(wsdl_hMsgCtx_t       ) inz                                     000000     000661
000662 D hSoapPart       S                   like(wsdl_hDataSource_t   ) inz                                     000000     000662
000663 D hOutStream      S                   like(wsdl_hStream_t       ) inz                                     000000     000663
000664 D hSAXParser      S                   like(xmlSaxParser_handle_t) inz                                     000000     000664
000665 D hMIMEParser     S                   like(mime_hMime_t         ) inz                                     000000     000665
000666 D hInpStream      S                   like(wsdl_hStream_t       ) inz                                     000000     000666
000667 D contentType     S                   like(wsdl_contentType_t   ) inz                                     000000     000667
000668  *                                                                                                        000000     000668
000669  *   Proxy server to use                                                                                  000000     000669
000670 D httpProxy       DS                  likeds(wsdl_proxy_t     ) inz                                       000000     000670
000671  *                                                                                                        000000     000671
000672  *  Login helper fields                                                                                   000000     000672
000673 D err             S             10I 0 inz                                                                 000000     000673
000674  *                                                                                                        000000     000674
000675  *  User data                                                                                             000000     000675
000676 D userData        DS                  likeds(tns_getOrdersResponse_t)                                     000000     000676
000677 D                                     inz                                                                 000000     000677
000678  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                000000     000678
000679  /free                                                                                                    000000     000679
000680                                                                                                           000000     000680
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    366
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000681     o_msg = '';                                                                                           000000     000681
000682                                                                                                           000000     000682
000683     monitor;                                                                                    B01       000000     000683
000684                                                                                                           000000     000684
000685        // Initialize web service stub                                                                     000000     000685
000686        timianOrdersPort_Port_initialize(                                                         01       000000     000686
000687              getOperationName());                                                                01       000000     000687
000688                                                                                                           000000     000688
000689        // Enable/disable HTTP debug log                                                                   000000     000689
000690        // Starting with v1.15 the debug log is started in                                                 000000     000690
000691        // procedure http_DebugLog_open() which is called by                                               000000     000691
000692        // WebServiceStub_Port_setHttpDebug().                                                             000000     000692
000693                                                                                                           000000     000693
000694        http_DebugLog_appendText(                                                                 01       000000     000694
000695        '** ' + %char(%timestamp()) + ': Entering ' + f_this() + '()' +                           01       000000     000695
000696        ', compiled for ' + COMPILED_FOR);                                                        01       000000     000696
000697                                                                                                           000000     000697
000698        // Initialize map to manage <multiRef> elements                                                    000000     000698
000699        MultiRef_new();                                                                           01       000000     000699
000700                                                                                                           000000     000700
000701        // Remove all attachments of this service from the list of attachments                             000000     000701
000702        timianOrdersPort_Attachments_removeAll(                                                   01       000000     000702
000703              getOperationUuid());                                                                01       000000     000703
000704                                                                                                           000000     000704
000705        // Set proxy server to use                                                                         000000     000705
000706        httpProxy = timianOrdersPort_Port_getHttpProxy();                                         01       000000     000706
000707        http_setproxy(httpProxy.server: httpProxy.port);                                          01       000000     000707
000708                                                                                                           000000     000708
000709        // Set CCSID for POST data according                                                               000000     000709
000710        // to the encoding of the SOAP envelope                                                            000000     000710
000711        HTTP_SetCCSIDs(getPostCcsid(): HTTP_EBCDIC);                                              01       000000     000711
000712                                                                                                           000000     000712
000713        // Get (create) the message context and get the SOAP part.                                         000000     000713
000714        // Be sure to specify a reasonable cache size for best performance.                                000000     000714
000715        // Best performance is guaranteed, when the memory cache                                           000000     000715
000716        // is large enough to take the complete XML request message.                                       000000     000716
000717        hMsgCtx = getMessageContext();                                                            01       000000     000717
000718        hSoapPart = MessageContext_getSoapPart(hMsgCtx: 1024*1024*4); // 4 MB cache               01       000000     000718
000719        MessageContext_setSoapAction(hMsgCtx:                                                     01       000000     000719
000720           'timianorders/#getOrders'                                                              01       000000     000720
000721           );                                                                                     01       000000     000721
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    367
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000722                                                                                                           000000     000722
000723        // Produce SOAP request message                                                                    000000     000723
000724        http_DebugLog_appendTextVerbose(                                                          01       000000     000724
000725        '** ' + %char(%timestamp()) + ': Producing request messsage');                            01       000000     000725
000726                                                                                                           000000     000726
000727        // Open data source and write the request message to it                                            000000     000727
000728        contentType = 'text/xml';                                                                 01       000000     000728
000729        hOutStream = ManagedMemoryDataSource_OutputStream_open(                                   01       000000     000729
000730                           hSoapPart: contentType: getPostCcsid());                               01       000000     000730
000731                                                                                                           000000     000731
000732        g_requestBuffer =                                                                         01       000000     000732
000733           '<?xml version="1.0" encoding="UTF-8"?>'                     +                         01       000000     000733
000734           '<soapenv:Envelope'                                          +                         01       000000     000734
000735           ' xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/";';                          01       000000     000735
000736        OutputStream_appendBuffer(                                                                01       000000     000736
000737              hOutStream: %addr(g_requestBuffer)+2: %len(g_requestBuffer));                       01       000000     000737
000738                                                                                                           000000     000738
000739        // Namespaces                                                                                      000000     000739
000740        g_requestBuffer =                                                                         01       000000     000740
000741        ' xmlns:tns="timianorders"' +                                                             01       000000     000741
000742           '>';                                                                                   01       000000     000742
000743                                                                                                           000000     000743
000744        OutputStream_appendBuffer(                                                                01       000000     000744
000745              hOutStream: %addr(g_requestBuffer)+2: %len(g_requestBuffer));                       01       000000     000745
000746                                                                                                           000000     000746
000747        // SOAP header                                                                                     000000     000747
000748                                                                                                           000000     000748
000749        // Message body                                                                                    000000     000749
000750        g_requestBuffer =                                                                         01       000000     000750
000751           '<soapenv:Body>' +                                                                     01       000000     000751
000752        '';                                                                                       01       000000     000752
000753                                                                                                           000000     000753
000754     // Add previous bytes of request message to output stream                                             000000     000754
000755     OutputStream_appendGlobalRequestBuffer(                                                      01       000000     000755
000756        hOutStream                                                                                01       000000     000756
000757        : g_requestBuffer                                                                         01       000000     000757
000758        );                                                                                        01       000000     000758
000759                                                                                                           000000     000759
000760     tns_getOrdersSerializer(                                                                     01       000000     000760
000761        hOutStream                                                                                01       000000     000761
000762        : i_getOrders                                                                             01       000000     000762
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    368
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000763        : 'tns:getOrders'                                                                         01       000000     000763
000764        );                                                                                        01       000000     000764
000765                                                                                                           000000     000765
000766     g_requestBuffer =                                                                            01       000000     000766
000767           '</soapenv:Body>' +                                                                    01       000000     000767
000768           '</soapenv:Envelope>';                                                                 01       000000     000768
000769                                                                                                           000000     000769
000770        OutputStream_appendBuffer(                                                                01       000000     000770
000771              hOutStream: %addr(g_requestBuffer)+2: %len(g_requestBuffer));                       01       000000     000771
000772                                                                                                           000000     000772
000773        // Close data source and prepare it to send the message                                            000000     000773
000774        ManagedMemoryDataSource_OutputStream_close(hOutStream);                                   01       000000     000774
000775        MessageContext_prepareToSend(hMsgCtx);                                                    01       000000     000775
000776                                                                                                           000000     000776
000777        http_DebugLog_appendTextVerbose(                                                          01       000000     000777
000778        '** ' + %char(%timestamp()) + ': Finished request message');                              01       000000     000778
000779                                                                                                           000000     000779
000780        http_DebugLog_appendTextVerbose(                                                          01       000000     000780
000781        '** ' + %char(%timestamp()) + ': Preparing to send message');                             01       000000     000781
000782                                                                                                           000000     000782
000783        // Clear error code                                                                                000000     000783
000784        timianOrdersPort_Port_clearErrors(                                                        01       000000     000784
000785              g_errors);                                                                          01       000000     000785
000786                                                                                                           000000     000786
000787        // HTTPAPI: Enables additional headers                                                             000000     000787
000788        http_xproc(HTTP_POINT_ADDL_HEADER                                                         01       000000     000788
000789                   : %paddr('HTTP_setContentTypeAndSOAPAction')                                   01       000000     000789
000790                   : %addr(headers));                                                             01       000000     000790
000791                                                                                                           000000     000791
000792        // HTTPAPI: Add additional message headers                                                         000000     000792
000793        clear headers;                                                                            01       000000     000793
000794        if (MessageContext_isMIMEMessage(hMsgCtx));                                              B02  B01  000000     000794
000795           headers.mimeVersion =                                                                  02       000000     000795
000796                 MessageContext_getMimeVersionHeader(hMsgCtx);                                    02       000000     000796
000797        else;                                                                                    X02  X01  000000     000797
000798           headers.mimeVersion = '';                                                              02       000000     000798
000799        endif;                                                                                   E02  E01  000000     000799
000800        headers.contentType = MessageContext_getContentTypeHeader(hMsgCtx);                       01       000000     000800
000801        headers.soapAction = MessageContext_getSoapActionHeader(hMsgCtx);                         01       000000     000801
000802                                                                                                           000000     000802
000803        // ---------------------------------------                                                         000000     000803
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    369
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000804        //   Post request and parse response                                                               000000     000804
000805        // ---------------------------------------                                                         000000     000805
000806                                                                                                           000000     000806
000807        // Create parser (callbacks style: HTTP API)                                                       000000     000807
000808        if (not mustRedirectStmf());                                                             B02  B01  000000     000808
000809           XMLSAXParser_new(hSAXParser: cTrue);                                                   02       000000     000809
000810           XMLSAXParser_setDoNamespaces(hSAXParser: cTrue);                                       02       000000     000810
000811           XMLSAXParser_registerCallback(hSAXParser                                               02       000000     000811
000812              : cXML_CB_SAX_STARTELEMENT                                                          02       000000     000812
000813              : %paddr('SOAPMessage_Envelope'));                                                  02       000000     000813
000814           XMLSAXParser_prepareParse(hSAXParser: %addr(userData));                                02       000000     000814
000815        endif;                                                                                   E02  E01  000000     000815
000816                                                                                                           000000     000816
000817        // Create MIME parser in case we need it                                                           000000     000817
000818        hMIMEParser = MIMEParser_new();                                                           01       000000     000818
000819        MIMEParser_setDecodeData(hMIMEParser: cTrue);                                             01       000000     000819
000820        http_mime_DataSink_initialize(hMIMEParser                                                 01       000000     000820
000821                                      : *NULL                                                     01       000000     000821
000822                                      : %paddr('HTTPDataSink_startPart')                          01       000000     000822
000823                                      : %paddr('HTTPDataSink_bodyData')                           01       000000     000823
000824                                      : %paddr('HTTPDataSink_endPart'));                          01       000000     000824
000825                                                                                                           000000     000825
000826        // Make parser available for HTTP_receiveResponse()                                                000000     000826
000827        g_hSAXParser    = hSAXParser;                                                             01       000000     000827
000828        g_hMIMEParser   = hMIMEParser;                                                            01       000000     000828
000829        g_isMimeMessage = cFalse;                                                                 01       000000     000829
000830        g_HTTP_isInit   = cFalse;                                                                 01       000000     000830
000831        g_SOAPMessageID = '';                                                                     01       000000     000831
000832        g_doParseSOAPMessage = cFalse;                                                            01       000000     000832
000833        g_SOAPMessage_done   = cFalse;                                                            01       000000     000833
000834        g_BodyPart_counter   = 0;                                                                 01       000000     000834
000835                                                                                                           000000     000835
000836        // Make SOAP response header available to SOAPMessage_Envelope                                     000000     000836
000837        g_pRespSoapHeader = *NULL;                                                                01       000000     000837
000838                                                                                                           000000     000838
000839        // Open input stream in order to send the message                                                  000000     000839
000840        hInpStream = MessageContext_InputStream_open(hMsgCtx);                                    01       000000     000840
000841                                                                                                           000000     000841
000842        // eXpat: Post request and parse response                                                          000000     000842
000843        url = timianOrdersPort_Endpoint_get();                                                    01       000000     000843
000844                                                                                                           000000     000844
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    370
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000845        // Authenticate pre-emptively, if configured                                                       000000     000845
000846        if (timianOrdersPort_Port_isAuthenticatePreemptively());                                 B02  B01  000000     000846
000847           timianOrdersPort_Port_authenticatePreemptively();                                      02       000000     000847
000848        endif;                                                                                   E02  E01  000000     000848
000849                                                                                                           000000     000849
000850        dou (not HttpResponse_isAuthenticationError(http_rc));                                   B02  B01  000000     000850
000851           // Get document from server and handle http redirects                                           000000     000851
000852           // See also: WSDL2R88.HttpResponse_isRedirect()                                                 000000     000852
000853           dou (not HttpResponse_isRedirect(http_rc));                                           B03  B02  000000     000853
000854              http_DebugLog_appendText(                                                           03       000000     000854
000855              '** ' + %char(%timestamp()) + ': Sending request to server');                       03       000000     000855
000856                                                                                                           000000     000856
000857              http_rc =                                                                           03       000000     000857
000858                 http_url_post_raw2(                                                              03       000000     000858
000859                    url                                                                           03       000000     000859
000860                    : hInpStream                                                                  03       000000     000860
000861                    : %paddr('WSDL2R85_MessageContext_InputStream_read')                          03       000000     000861
000862                    : MessageContext_getSize(hMsgCtx)                                             03       000000     000862
000863                    : 0                                                                           03       000000     000863
000864                    : %paddr('HTTP_receiveResponse')                                              03       000000     000864
000865                    : getTimeout()                                                                03       000000     000865
000866                    : getUserAgent()                                                              03       000000     000866
000867                    : '');                                                                        03       000000     000867
000868                                                                                                           000000     000868
000869              if (HttpResponse_isRedirect(http_rc));                                             B04  B03  000000     000869
000870                 url = http_redir_loc();                                                          04       000000     000870
000871                 hInpStream = reOpenInputStream(hMsgCtx: hInpStream);                             04       000000     000871
000872              endif;                                                                             E04  E03  000000     000872
000873           enddo;                                                                                E03  E02  000000     000873
000874                                                                                                           000000     000874
000875           if (http_rc <> 1);                                                                    B03  B02  000000     000875
000876                                                                                                           000000     000876
000877              // Get the HTTP API error code.                                                              000000     000877
000878              http_error(err);                                                                    03       000000     000878
000879                                                                                                           000000     000879
000880              // The first time we request a document that requires user/password                          000000     000880
000881              // it will return a HTTP_NDAUTH error.                                                       000000     000881
000882              if (HttpResponse_isAuthenticationError(http_rc));                                  B04  B03  000000     000882
000883                 if (not timianOrdersPort_Port_hasLoginCallback());                              B05  B04  000000     000883
000884                    leave;                                                                        05       000000     000884
000885                 endif;                                                                          E05  E04  000000     000885
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    371
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000886                                                                                                           000000     000886
000887                 if (login() <> WSDL_SUCCESS);                                                   B05  B04  000000     000887
000888                    leave;                                                                        05       000000     000888
000889                 endif;                                                                          E05  E04  000000     000889
000890                                                                                                           000000     000890
000891                 hInpStream = reOpenInputStream(hMsgCtx: hInpStream);                             04       000000     000891
000892              endif;                                                                             E04  E03  000000     000892
000893           else;                                                                                 X03  X02  000000     000893
000894              MultiRef_finalize();                                                                03       000000     000894
000895              err = 0;                                                                            03       000000     000895
000896           endif;                                                                                E03  E02  000000     000896
000897        enddo;                                                                                   E02  E01  000000     000897
000898                                                                                                           000000     000898
000899        // Preserve parser error code and message text                                                     000000     000899
000900        if (err = HTTP_RDWERR);                                                                  B02  B01  000000     000900
000901           g_errors.xmlError.code = XMLToolkit_getError(                                          02       000000     000901
000902                                          hSAXParser                                              02       000000     000902
000903                                          : g_errors.xmlError.text                                02       000000     000903
000904                                          : g_errors.xmlError.line                                02       000000     000904
000905                                          : g_errors.xmlError.column);                            02       000000     000905
000906        endif;                                                                                   E02  E01  000000     000906
000907                                                                                                           000000     000907
000908        if (not mustRedirectStmf());                                                             B02  B01  000000     000908
000909           XMLSAXParser_endParse(hSAXParser);                                                     02       000000     000909
000910        endif;                                                                                   E02  E01  000000     000910
000911                                                                                                           000000     000911
000912        if (g_isMimeMessage);                                                                    B02  B01  000000     000912
000913           MIMEParser_endParse(hMIMEParser);                                                      02       000000     000913
000914           g_isMimeMessage = cFalse;                                                              02       000000     000914
000915        endif;                                                                                   E02  E01  000000     000915
000916                                                                                                           000000     000916
000917        g_HTTP_isInit = cFalse;                                                                   01       000000     000917
000918                                                                                                           000000     000918
000919     on-error;                                                                                   X01       000000     000919
000920        isUnexpectedError = cTrue;                                                                01       000000     000920
000921        rcvm0200 = f_rcvPgmMsg(cMsg_Any: *OMIT: cMsg_Act_Same: 0                                  01       000000     000921
000922                               : cMsg_Same: cMsg_ToMyself);                                       01       000000     000922
000923        http_DebugLog_appendRcvMsg(rcvm0200);                                                     01       000000     000923
000924        msg = f_cvtRcvMsgToMsg(rcvm0200);                                                         01       000000     000924
000925        g_errors.errType        = WSDL_HTTP_ERROR_UNEXPECTED;                                     01       000000     000925
000926        g_errors.httpError.no   = WSDL_HTTP_ERROR_UNEXPECTED;                                     01       000000     000926
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    372
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000927        g_errors.httpError.text = f_rtvMsgText(msg);                                              01       000000     000927
000928        http_rc = g_errors.httpError.no;                                                          01       000000     000928
000929        o_msg = g_errors.httpError.text;                                                          01       000000     000929
000930     endmon;                                                                                     E01       000000     000930
000931                                                                                                           000000     000931
000932     g_hSAXParser  = *NULL;                                                                                000000     000932
000933     g_hMIMEParser = *NULL;                                                                                000000     000933
000934                                                                                                           000000     000934
000935     if (not isUnexpectedError);                                                                 B01  B01  000000     000935
000936        if (err <> 0 or g_errors.errType <> WSDL_HTTP_SUCCESS);                                  B02  B02  000000     000936
000937           if (err <> 0);                                                                        B03  B03  000000     000937
000938              g_errors.errType = WSDL_HTTP_ERROR;                                                 03       000000     000938
000939                                                                                                           000000     000939
000940              // Set http error code and message text                                                      000000     000940
000941              g_errors.httpError.no   = err;                                                      03       000000     000941
000942              g_errors.httpError.text = http_error();                                             03       000000     000942
000943                                                                                                           000000     000943
000944              // Return error message text to caller                                                       000000     000944
000945              o_msg = g_errors.httpError.text;                                                    03       000000     000945
000946           else;                                                                                 X03  X03  000000     000946
000947              o_msg = g_errors.soapFault.string;                                                  03       000000     000947
000948           endif;                                                                                E03  E03  000000     000948
000949           clear rtnValue;                                                                        02       000000     000949
000950        else;                                                                                    X02       000000     000950
000951           o_msg = '';                                                                            02       000000     000951
000952           rtnValue = userData;                                                                   02       000000     000952
000953        endif;                                                                                   E02       000000     000953
000954     endif;                                                                                      E01  E02  000000     000954
000955                                                                                                           000000     000955
000956     if (timianOrdersPort_RedirectResponse_isActive());                                          B01  B02  000000     000956
000957        timianOrdersPort_RedirectResponse_terminate();                                            01       000000     000957
000958     endif;                                                                                      E01  E02  000000     000958
000959                                                                                                           000000     000959
000960     if (not XMLSAXParser_isNull(hSAXParser));                                                   B01  B02  000000     000960
000961        XMLSAXParser_delete(hSAXParser);                                                          01       000000     000961
000962     endif;                                                                                      E01  E02  000000     000962
000963                                                                                                           000000     000963
000964     if (not MIMEParser_isNull(hMIMEParser));                                                    B01  B02  000000     000964
000965        MIMEParser_delete(hMIMEParser);                                                           01       000000     000965
000966     endif;                                                                                      E01  E02  000000     000966
000967                                                                                                           000000     000967
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    373
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
000968     if (not ManagedMemoryDataSource_isNull(hSoapPart));                                         B01  B02  000000     000968
000969        if (ManagedMemoryDataSource_Stream_isOpen(hOutStream));                                  B02  B03  000000     000969
000970           ManagedMemoryDataSource_OutputStream_close(hOutStream);                                02       000000     000970
000971        endif;                                                                                   E02  E03  000000     000971
000972        // *************************************************                                               000000     000972
000973        // Do not delete the the SOAP part (hSoapPart) here.                                               000000     000973
000974        // It is deleted by MessageContext_delete().                                                       000000     000974
000975        // *************************************************                                               000000     000975
000976     endif;                                                                                      E01  E02  000000     000976
000977                                                                                                           000000     000977
000978     if (not MessageContext_isNull(g_hMsgCtx));                                                  B01  B02  000000     000978
000979        if (MessageContext_InputStream_isOpen(hInpStream));                                      B02  B03  000000     000979
000980           MessageContext_InputStream_close(hInpStream);                                          02       000000     000980
000981        endif;                                                                                   E02  E03  000000     000981
000982        MessageContext_delete(g_hMsgCtx);                                                         01       000000     000982
000983        g_hMsgCtx = MessageContext_null();                                                        01       000000     000983
000984     endif;                                                                                      E01  E02  000000     000984
000985                                                                                                           000000     000985
000986     if (not MultiRef_isNull());                                                                 B01  B02  000000     000986
000987        MultiRef_delete();                                                                        01       000000     000987
000988     endif;                                                                                      E01  E02  000000     000988
000989                                                                                                           000000     000989
000990     // Disable preemptive authentication. The user may not want                                           000000     000990
000991     // to authenticate preemptively with the next call.                                                   000000     000991
000992     timianOrdersPort_Port_resetPreemptiveAuthentication();                                                000000     000992
000993                                                                                                           000000     000993
000994     // Set error information of last service call                                                         000000     000994
000995     timianOrdersPort_Port_setErrors(                                                                      000000     000995
000996           g_errors);                                                                                      000000     000996
000997                                                                                                           000000     000997
000998     http_DebugLog_appendText(                                                                             000000     000998
000999     '** ' + %char(%timestamp()) + ': Leaving ' + f_this() + '()');                                        000000     000999
001000                                                                                                           000000     001000
001001     if (http_DebugLog_isOpen());                                                                B01  B02  000000     001001
001002        http_DebugLog_close();                                                                    01       000000     001002
001003     endif;                                                                                      E01  E02  000000     001003
001004                                                                                                           000000     001004
001005     return rtnValue;                                                                                      000000     001005
001006                                                                                                           000000     001006
001007  /end-free                                                                                                000000     001007
001008  *                                                                                                        000000     001008
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    374
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001009 P                 E                                                                                       000000     001009
001010  *                                                                                                        000000     001010
001011  *                                                                                                        000000     001011
001012  * ==================================================================                                     000000     001012
001013  * Message serializer for element or type:                                                                000000     001013
001014  * tns:getOrders                                                                                          000000     001014
001015  * ==================================================================                                     000000     001015
001016 P tns_getOrdersSerializer...                                                                              000000     001016
001017 P                 B                                                                                       000000     001017
001018 D                 PI                                                                                      000000     001018
001019 D  i_hOutStream                       like(wsdl_hStream_t)                                                000000     001019
001020 D                                     const                                                               000000     001020
001021 D  i_getOrders                        likeds(tns_getOrders_t)                                             000000     001021
001022 D  i_elemName                         like(wsdl_name_t)                                                   000000     001022
001023 D                                     const                                                               000000     001023
001024  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     001024
001025  /free                                                                                                    000000     001025
001026                                                                                                           000000     001026
001027     g_requestBuffer =                                                                                     000000     001027
001028     '<' + i_elemName + '>' +                                                                              000000     001028
001029     '<fromTime>' +                                                                                        000000     001029
001030        '';                                                                                                000000     001030
001031                                                                                                           000000     001031
001032     // Add previous bytes of request message to output stream                                             000000     001032
001033     OutputStream_appendGlobalRequestBuffer(                                                               000000     001033
001034        i_hOutStream                                                                                       000000     001034
001035        : g_requestBuffer                                                                                  000000     001035
001036        );                                                                                                 000000     001036
001037                                                                                                           000000     001037
001038     Marshaller_toStringV6(                                                                                000000     001038
001039        %addr(i_getOrders.fromTime)                                                                        000000     001039
001040        : %addr(i_getOrders.fromTime: *DATA)                                                               000000     001040
001041        : %len(i_getOrders.fromTime)                                                                       000000     001041
001042        : i_hOutStream);                                                                                   000000     001042
001043                                                                                                           000000     001043
001044     g_requestBuffer =                                                                                     000000     001044
001045     '</fromTime>' +                                                                                       000000     001045
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    375
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001046     '<toTime>' +                                                                                          000000     001046
001047        '';                                                                                                000000     001047
001048                                                                                                           000000     001048
001049     // Add previous bytes of request message to output stream                                             000000     001049
001050     OutputStream_appendGlobalRequestBuffer(                                                               000000     001050
001051        i_hOutStream                                                                                       000000     001051
001052        : g_requestBuffer                                                                                  000000     001052
001053        );                                                                                                 000000     001053
001054                                                                                                           000000     001054
001055     Marshaller_toStringV6(                                                                                000000     001055
001056        %addr(i_getOrders.toTime)                                                                          000000     001056
001057        : %addr(i_getOrders.toTime: *DATA)                                                                 000000     001057
001058        : %len(i_getOrders.toTime)                                                                         000000     001058
001059        : i_hOutStream);                                                                                   000000     001059
001060                                                                                                           000000     001060
001061     g_requestBuffer =                                                                                     000000     001061
001062     '</toTime>' +                                                                                         000000     001062
001063     '<state>' +                                                                                           000000     001063
001064        '';                                                                                                000000     001064
001065                                                                                                           000000     001065
001066     // Add previous bytes of request message to output stream                                             000000     001066
001067     OutputStream_appendGlobalRequestBuffer(                                                               000000     001067
001068        i_hOutStream                                                                                       000000     001068
001069        : g_requestBuffer                                                                                  000000     001069
001070        );                                                                                                 000000     001070
001071                                                                                                           000000     001071
001072     Marshaller_toStringV6(                                                                                000000     001072
001073        %addr(i_getOrders.state)                                                                           000000     001073
001074        : %addr(i_getOrders.state: *DATA)                                                                  000000     001074
001075        : %len(i_getOrders.state)                                                                          000000     001075
001076        : i_hOutStream);                                                                                   000000     001076
001077                                                                                                           000000     001077
001078     g_requestBuffer =                                                                                     000000     001078
001079     '</state>' +                                                                                          000000     001079
001080     '</' + i_elemName + '>' +                                                                             000000     001080
001081        '';                                                                                                000000     001081
001082                                                                                                           000000     001082
001083     // Add previous bytes of request message to output stream                                             000000     001083
001084     OutputStream_appendGlobalRequestBuffer(                                                               000000     001084
001085        i_hOutStream                                                                                       000000     001085
001086        : g_requestBuffer                                                                                  000000     001086
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    376
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001087        );                                                                                                 000000     001087
001088                                                                                                           000000     001088
001089  /end-free                                                                                                000000     001089
001090  *                                                                                                        000000     001090
001091 P                 E                                                                                       000000     001091
001092  *                                                                                                        000000     001092
001093  * =====================================================================                                  000000     001093
001094  *   Append a given data buffer to the specified output stream.                                           000000     001094
001095  * =====================================================================                                  000000     001095
001096 P OutputStream_appendBuffer...                                                                            000000     001096
001097 P                 B                                                                                  ERR  000000     001097
001098 D                 PI                                                                                      000000     001098
001099 D  i_hStream                          value  like(wsdl_hStream_t)                                         000000     001099
001100 D  i_data                         *   value                                                               000000     001100
001101 D  i_length                     10I 0 value                                                               000000     001101
001102  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     001102
001103  /free                                                                                                    000000     001103
001104                                                                                                           000000     001104
001105     if (i_length > 0);                                                                          B01       000000     001105
001106        // Add previous bytes of request message to output stream                                          000000     001106
001107        ManagedMemoryDataSource_OutputStream_write(                                               01       000000     001107
001108              i_hStream: i_data: i_length);                                                       01       000000     001108
001109     endif;                                                                                      E01       000000     001109
001110                                                                                                           000000     001110
001111  /end-free                                                                                                000000     001111
001112 P                 E                                                                                       000000     001112
001113  *                                                                                                        000000     001113
001114  * =====================================================================                                  000000     001114
001115  *   Append the content of the global request buffer                                                      000000     001115
001116  *   (g_requestBuffer) to the specified output stream                                                     000000     001116
001117  *   and afterwards clears the buffer.                                                                    000000     001117
001118  * =====================================================================                                  000000     001118
001119 P OutputStream_appendGlobalRequestBuffer...                                                               000000     001119
001120 P                 B                                                                                       000000     001120
001121 D                 PI                                                                                      000000     001121
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    377
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001122 D  i_hStream                    10I 0 value                                                               000000     001122
001123 D  io_requestBuffer...                                                                                    000000     001123
001124 D                            65535A          varying options(*varsize)                                    000000     001124
001125  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     001125
001126  /free                                                                                                    000000     001126
001127                                                                                                           000000     001127
001128     if (%len(io_requestBuffer) = 0);                                                            B01       000000     001128
001129        return;                                                                                   01       000000     001129
001130     endif;                                                                                      E01       000000     001130
001131                                                                                                           000000     001131
001132     OutputStream_appendBuffer(                                                                            000000     001132
001133        i_hStream: %addr(io_requestBuffer)+2: %len(io_requestBuffer));                                     000000     001133
001134     clear io_requestBuffer;                                                                               000000     001134
001135                                                                                                           000000     001135
001136  /end-free                                                                                                000000     001136
001137 P                 E                                                                                       000000     001137
001138  *                                                                                                        000000     001138
001139  * =====================================================================                                  000000     001139
001140  * This procedure adds a file attachment. The attachment                                                  000000     001140
001141  * is sent to the server the next time the web service is called.                                         000000     001141
001142  *                                                                                                        000000     001142
001143  * Parameters:                                                                                            000000     001143
001144  *  i_path            Path to the file that is added as an attachment.                                    000000     001144
001145  *                                                                                                        000000     001145
001146  *  i_contentType     Specifies the type of the MIME data.                                                000000     001146
001147  *                    Possible values are:                                                                000000     001147
001148  *                                                                                                        000000     001148
001149  *  Content type, example values:                                                                         000000     001149
001150  *                                                                                                        000000     001150
001151  *     application/octet-stream    executable file     *.bin *.exe *.com *.dll *.class                    000000     001151
001152  *     application/pdf             Adobe PDF file      *.pdf                                              000000     001152
001153  *     application/rtf             Microsoft RTF file  *.rtf                                              000000     001153
001154  *     application/xml             XML file            *.xml                                              000000     001154
001155  *     application/zip             ZIP file            *.zip                                              000000     001155
001156  *     audio/x-mpeg                MPEG file           *.mp2                                              000000     001156
001157  *     image/gif                   GIF image           *.gif                                              000000     001157
001158  *     image/jpeg                  JPEG image          *.jpeg *.jpg *.jpe                                 000000     001158
001159  *     image/png                   PNG image           *.png                                              000000     001159
001160  *     image/tiff                  TIFF image          *.tiff *.tif                                       000000     001160
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    378
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001161  *     text/comma-separated-values CSV file            *.csv                                              000000     001161
001162  *     text/rtf                    Microsoft RTF file  *.rtf                                              000000     001162
001163  *     text/xml                    XML file            *.xml                                              000000     001163
001164  *     text/plain                  Plain text file     *.txt                                              000000     001164
001165  *     video/mpeg                  MPEG video file     *.mpeg *.mpg *.mpe                                 000000     001165
001166  *                                                                                                        000000     001166
001167  *     See also: http://de.selfhtml.org/diverses/mimetypen.htm                                            000000     001167
001168  *                                                                                                        000000     001168
001169  *  i_contentType          Specifies the type of the MIME data.                                           000000     001169
001170  *                                                                                                        000000     001170
001171  *  i_transferEncoding     Specifies the encoding of the MIME data.                                       000000     001171
001172  *                         Possible values are:                                                           000000     001172
001173  *                                                                                                        000000     001173
001174  *                         WSDL_MIME_BINARY - binary data, no encoding                                    000000     001174
001175  *                         WSDL_MIME_BASE64 - converted to base64                                         000000     001175
001176  *                                                                                                        000000     001176
001177  *  i_suggestedFileName    Is the suggested file for saving the                                           000000     001177
001178  *                         attachment. Goes into the                                                      000000     001178
001179  *                         'Content-Disposition header', attribute 'filename'.                            000000     001179
001180  *                         The content disposition is always 'attachment'.                                000000     001180
001181  *                                                                                                        000000     001181
001182  * Return value:                                                                                          000000     001182
001183  *  partID                 Unique ID of the attachment. Usually this ID                                   000000     001183
001184  *                         is stored in the SOAP message, depending on                                    000000     001184
001185  *                         the description of the Web Service.                                            000000     001185
001186  * =====================================================================                                  000000     001186
001187 P timianOrdersPort_...                                                                                    000000     001187
001188 P getOrders_...                                                                                           000000     001188
001189 P Attachments_addFile...                                                                                  000000     001189
001190 P                 B                   export                                                              000000     001190
001191 D                 PI                        like(wsdl_partID_t)                                           000000     001191
001192 D  i_path                             const like(wsdl_path_t)                                             000000     001192
001193 D  i_contentType                      const like(wsdl_contentType_t)                                      000000     001193
001194 D  i_transferEncoding...                                                                                  000000     001194
001195 D                                     const like(                                                         000000     001195
001196 D                                           wsdl_contentTransferEncoding_t)                               000000     001196
001197 D                                           options(*nopass: *omit)                                       000000     001197
001198 D  i_suggestedFileName...                                                                                 000000     001198
001199 D                                     const like(wsdl_path_t)                                             000000     001199
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    379
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001200 D                                           options(*nopass: *omit)                                       000000     001200
001201  *                                                                                                        000000     001201
001202  *  Return value                                                                                          000000     001202
001203 D partID          S                   like(wsdl_partID_t) inz                                             000000     001203
001204  *                                                                                                        000000     001204
001205  *  Parameter positions                                                                                   000000     001205
001206 D p_transferEncoding...                                                                                   000000     001206
001207 D                 C                   3                                                                   000000     001207
001208 D p_suggestedFileName...                                                                                  000000     001208
001209 D                 C                   4                                                                   000000     001209
001210  *                                                                                                        000000     001210
001211  *  Optional parameters                                                                                   000000     001211
001212 D transferEncoding...                                                                                     000000     001212
001213 D                 S                   like(i_transferEncoding)                                            000000     001213
001214 D suggestedFileName...                                                                                    000000     001214
001215 D                 S                   like(i_suggestedFileName)                                           000000     001215
001216  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     001216
001217  /free                                                                                                    000000     001217
001218                                                                                                           000000     001218
001219     if (%parms() >= p_transferEncoding and                                                      B01       000000     001219
001220         %addr(i_transferEncoding) <> *NULL);                                                    B01       000000     001220
001221        transferEncoding = i_transferEncoding;                                                    01       000000     001221
001222     else;                                                                                       X01       000000     001222
001223        transferEncoding = WSDL_MIME_BINARY;                                                      01       000000     001223
001224     endif;                                                                                      E01       000000     001224
001225                                                                                                           000000     001225
001226     if (%parms() >= p_suggestedFileName and                                                     B01       000000     001226
001227         %addr(i_suggestedFileName) <> *NULL);                                                   B01       000000     001227
001228        suggestedFileName = i_suggestedFileName;                                                  01       000000     001228
001229     else;                                                                                       X01       000000     001229
001230        suggestedFileName = '';                                                                   01       000000     001230
001231     endif;                                                                                      E01       000000     001231
001232                                                                                                           000000     001232
001233     partID = timianOrdersPort_Attachments_addFile(                                                        000000     001233
001234                    getMessageContext(): i_path:                                                           000000     001234
001235                    i_contentType : transferEncoding: suggestedFileName);                                  000000     001235
001236                                                                                                           000000     001236
001237     return partID;                                                                                        000000     001237
001238                                                                                                           000000     001238
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    380
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001239  /end-free                                                                                                000000     001239
001240 P                 E                                                                                       000000     001240
001241  *                                                                                                        000000     001241
001242  * =====================================================================                                  000000     001242
001243  * This procedure adds a buffer attachment. The attachment                                                000000     001243
001244  * is sent to the server the next time the web service is called.                                         000000     001244
001245  *                                                                                                        000000     001245
001246  * Parameters:                                                                                            000000     001246
001247  *  i_suggestedFileName    Is the suggested file for saving the                                           000000     001247
001248  *                         attachment. Goes into the                                                      000000     001248
001249  *                         'Content-Disposition header', attribute 'filename'.                            000000     001249
001250  *                         The content disposition is always 'attachment'.                                000000     001250
001251  *                                                                                                        000000     001251
001252  *  i_pBuffer              Buffer, containing the attachment data.                                        000000     001252
001253  *                                                                                                        000000     001253
001254  *  i_size                 Size of the buffer.                                                            000000     001254
001255  *                                                                                                        000000     001255
001256  *  i_contentType          Specifies the type of the MIME data.                                           000000     001256
001257  *                                                                                                        000000     001257
001258  *  i_transferEncoding     Specifies the encoding of the MIME data.                                       000000     001258
001259  *                         Possible values are:                                                           000000     001259
001260  *                         WSDL_MIME_BINARY - binary data, no encoding                                    000000     001260
001261  *                         WSDL_MIME_BASE64 - converted to base64                                         000000     001261
001262  *                                                                                                        000000     001262
001263  *  i_targetCcsid          Specifies the character encoding that the                                      000000     001263
001264  *                         data shall arrive on the server.                                               000000     001264
001265  *                         -1   - No character translation                                                000000     001265
001266  *                         0    - Buffer is translated to the job CCSID                                   000000     001266
001267  *                         >0   - CCSID the buffer is translated to,                                      000000     001267
001268  *                                before it is encoded to Base64 or                                       000000     001268
001269  *                                before it is sent to the server when                                    000000     001269
001270  *                                sent as binary data.                                                    000000     001270
001271  *                                                                                                        000000     001271
001272  * Return value:                                                                                          000000     001272
001273  *  partID                 Unique ID of the attachment. Usually this ID                                   000000     001273
001274  *                         is stored in the SOAP message, depending on                                    000000     001274
001275  *                         the description of the Web Service.                                            000000     001275
001276  * =====================================================================                                  000000     001276
001277 P timianOrdersPort_...                                                                                    000000     001277
001278 P getOrders_...                                                                                           000000     001278
001279 P Attachments_addBuffer...                                                                                000000     001279
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    381
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001280 P                 B                   export                                                              000000     001280
001281 D                 PI                        like(wsdl_partID_t)                                           000000     001281
001282 D  i_name                             const like(wsdl_path_t)                                             000000     001282
001283 D  i_pBuffer                      *   const                                                               000000     001283
001284 D  i_size                       10I 0 const                                                               000000     001284
001285 D  i_contentType                      const like(wsdl_contentType_t)                                      000000     001285
001286 D  i_transferEncoding...                                                                                  000000     001286
001287 D                                     const like(                                                         000000     001287
001288 D                                           wsdl_contentTransferEncoding_t)                               000000     001288
001289 D                                           options(*nopass: *omit)                                       000000     001289
001290 D  i_targetCcsid                10I 0 const options(*nopass: *omit)                                       000000     001290
001291  *                                                                                                        000000     001291
001292  *  Return value                                                                                          000000     001292
001293 D partID          S                   like(wsdl_partID_t) inz                                             000000     001293
001294  *                                                                                                        000000     001294
001295  *  Parameter positions                                                                                   000000     001295
001296 D p_transferEncoding...                                                                                   000000     001296
001297 D                 C                   5                                                                   000000     001297
001298 D p_targetCcsid   C                   6                                                                   000000     001298
001299  *                                                                                                        000000     001299
001300  *  Optional parameters                                                                                   000000     001300
001301 D transferEncoding...                                                                                     000000     001301
001302 D                 S                   like(i_transferEncoding)                                            000000     001302
001303 D targetCcsid     S                   like(i_targetCcsid)                                                 000000     001303
001304  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     001304
001305  /free                                                                                                    000000     001305
001306                                                                                                           000000     001306
001307     if (%parms() >= p_transferEncoding and                                                      B01       000000     001307
001308         %addr(i_transferEncoding) <> *NULL);                                                    B01       000000     001308
001309        transferEncoding = i_transferEncoding;                                                    01       000000     001309
001310     else;                                                                                       X01       000000     001310
001311        transferEncoding = WSDL_MIME_BINARY;                                                      01       000000     001311
001312     endif;                                                                                      E01       000000     001312
001313                                                                                                           000000     001313
001314     if (%parms() >= p_targetCcsid and %addr(i_targetCcsid) <> *NULL);                           B01       000000     001314
001315        targetCcsid = i_targetCcsid;                                                              01       000000     001315
001316     else;                                                                                       X01       000000     001316
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    382
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001317        targetCcsid = -1; // binary data. no character translation.                               01       000000     001317
001318     endif;                                                                                      E01       000000     001318
001319                                                                                                           000000     001319
001320     partID = timianOrdersPort_Attachments_addBuffer(                                                      000000     001320
001321                    getMessageContext(): i_name: i_pBuffer: i_size                                         000000     001321
001322                    : i_contentType : transferEncoding: targetCcsid);                                      000000     001322
001323                                                                                                           000000     001323
001324     return partID;                                                                                        000000     001324
001325                                                                                                           000000     001325
001326  /end-free                                                                                                000000     001326
001327 P                 E                                                                                       000000     001327
001328  *                                                                                                        000000     001328
001329  * =====================================================================                                  000000     001329
001330  * This procedure adds a string attachment. The attachment                                                000000     001330
001331  * is sent to the server the next time the web service is called.                                         000000     001331
001332  *                                                                                                        000000     001332
001333  * Parameters:                                                                                            000000     001333
001334  *  i_suggestedFileName    Is the suggested file for saving the                                           000000     001334
001335  *                         attachment. Goes into the                                                      000000     001335
001336  *                         'Content-Disposition header', attribute 'filename'.                            000000     001336
001337  *                         The content disposition is always 'attachment'.                                000000     001337
001338  *                                                                                                        000000     001338
001339  *  i_pBuffer              Buffer, containing the attachment data.                                        000000     001339
001340  *                                                                                                        000000     001340
001341  *  i_size                 Size of the buffer.                                                            000000     001341
001342  *                                                                                                        000000     001342
001343  *  i_contentType          Specifies the type of the MIME data.                                           000000     001343
001344  *                                                                                                        000000     001344
001345  *  i_transferEncoding     Specifies the encoding of the MIME data.                                       000000     001345
001346  *                         Possible values are:                                                           000000     001346
001347  *                         WSDL_MIME_BINARY - binary data, no encoding                                    000000     001347
001348  *                         WSDL_MIME_BASE64 - converted to base64                                         000000     001348
001349  *                                                                                                        000000     001349
001350  *  i_targetCcsid          Specifies the character encoding that the                                      000000     001350
001351  *                         data shall arrive on the server.                                               000000     001351
001352  *                         -1   - No character translation                                                000000     001352
001353  *                         0    - Buffer is translated to the job CCSID                                   000000     001353
001354  *                         >0   - CCSID the buffer is translated to,                                      000000     001354
001355  *                                before it is encoded to Base64 or                                       000000     001355
001356  *                                before it is sent to the server when                                    000000     001356
001357  *                                sent as binary data.                                                    000000     001357
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    383
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001358  *                                                                                                        000000     001358
001359  * Return value:                                                                                          000000     001359
001360  *  partID                 Unique ID of the attachment. Usually this ID                                   000000     001360
001361  *                         is stored in the SOAP message, depending on                                    000000     001361
001362  *                         the description of the Web Service.                                            000000     001362
001363  * =====================================================================                                  000000     001363
001364 P timianOrdersPort_...                                                                                    000000     001364
001365 P getOrders_...                                                                                           000000     001365
001366 P Attachments_addString...                                                                                000000     001366
001367 P                 B                   export                                                              000000     001367
001368 D                 PI                        like(wsdl_partID_t)                                           000000     001368
001369 D  i_name                             const like(wsdl_path_t)                                             000000     001369
001370 D  i_string                  32767A         varying options(*varsize)                                     000000     001370
001371 D  i_contentType                      const like(wsdl_contentType_t)                                      000000     001371
001372 D  i_transferEncoding...                                                                                  000000     001372
001373 D                                     const like(                                                         000000     001373
001374 D                                           wsdl_contentTransferEncoding_t)                               000000     001374
001375 D                                           options(*nopass: *omit)                                       000000     001375
001376 D  i_targetCcsid                10I 0 const options(*nopass: *omit)                                       000000     001376
001377  *                                                                                                        000000     001377
001378  *  Return value                                                                                          000000     001378
001379 D partID          S                   like(wsdl_partID_t) inz                                             000000     001379
001380  *                                                                                                        000000     001380
001381  *  Parameter positions                                                                                   000000     001381
001382 D p_transferEncoding...                                                                                   000000     001382
001383 D                 C                   4                                                                   000000     001383
001384 D p_targetCcsid   C                   5                                                                   000000     001384
001385  *                                                                                                        000000     001385
001386  *  Optional parameters                                                                                   000000     001386
001387 D transferEncoding...                                                                                     000000     001387
001388 D                 S                   like(i_transferEncoding)                                            000000     001388
001389 D targetCcsid     S                   like(i_targetCcsid)                                                 000000     001389
001390  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     001390
001391  /free                                                                                                    000000     001391
001392                                                                                                           000000     001392
001393     if (%parms() >= p_transferEncoding and                                                      B01       000000     001393
001394         %addr(i_transferEncoding) <> *NULL);                                                    B01       000000     001394
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    384
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001395        transferEncoding = i_transferEncoding;                                                    01       000000     001395
001396     else;                                                                                       X01       000000     001396
001397        transferEncoding = WSDL_MIME_BINARY;                                                      01       000000     001397
001398     endif;                                                                                      E01       000000     001398
001399                                                                                                           000000     001399
001400     if (%parms() >= p_targetCcsid and %addr(i_targetCcsid) <> *NULL);                           B01       000000     001400
001401        targetCcsid = i_targetCcsid;                                                              01       000000     001401
001402     else;                                                                                       X01       000000     001402
001403        targetCcsid = -1; // binary data. no character translation.                               01       000000     001403
001404     endif;                                                                                      E01       000000     001404
001405                                                                                                           000000     001405
001406     partID = timianOrdersPort_Attachments_addBuffer(                                                      000000     001406
001407                    getMessageContext(): i_name                                                            000000     001407
001408                    : %addr(i_string)+1: %len(i_string)                                                    000000     001408
001409                    : i_contentType : transferEncoding: targetCcsid);                                      000000     001409
001410                                                                                                           000000     001410
001411     return partID;                                                                                        000000     001411
001412                                                                                                           000000     001412
001413  /end-free                                                                                                000000     001413
001414 P                 E                                                                                       000000     001414
001415  *                                                                                                        000000     001415
001416  *                                                                                                        000000     001416
001417  * ==================================================================                                     000000     001417
001418  * Return value: tns:getOrdersResponse                                                                    000000     001418
001419  * ==================================================================                                     000000     001419
001420 P tns_getOrdersResponseStart...                                                                           000000     001420
001421 P                 B                                                                                       000000     001421
001422 D                 PI                                                                                      000000     001422
001423 D  userdata                       *   value                                                               000000     001423
001424 D  depth                        10I 0 value                                                               000000     001424
001425 D  namespace                  1024A   varying const                                                       000000     001425
001426 D  name                       1024A   varying const                                                       000000     001426
001427 D  path                      24576A   varying const                                                       000000     001427
001428 D  attrs                          *   dim(32767)                                                          000000     001428
001429 D                                     const options(*varsize)                                             000000     001429
001430  *                                                                                                        000000     001430
001431 D currentItem     DS                  likeds(tns_getOrdersResponse_t)                                     000000     001431
001432 D                                     based(pCurrentItem)                                                 000000     001432
001433  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     001433
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    385
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001434  /free                                                                                                    000000     001434
001435                                                                                                           000000     001435
001436     // Get access to current item                                                                         000000     001436
001437     pCurrentItem = userdata;                                                                              000000     001437
001438                                                                                                           000000     001438
001439     select;                                                                                     B01       000000     001439
001440     when (depth = 1);                                                                           X01       000000     001440
001441        if (MultiRef_isReference(attrs));                                                        B02       000000     001441
001442           MultiRef_put(                                                                          02       000000     001442
001443              attrs                                                                               02       000000     001443
001444              : XMLSAXParser_getUserData()                                                        02       000000     001444
001445              : depth                                                                             02       000000     001445
001446              : namespace                                                                         02       000000     001446
001447              : name                                                                              02       000000     001447
001448              : path                                                                              02       000000     001448
001449              : XMLSAXParser_getStartCallback()                                                   02       000000     001449
001450              : XMLSAXParser_getEndCallback()                                                     02       000000     001450
001451              : *omit                                                                             02       000000     001451
001452              : %addr(currentItem)                                                                02       000000     001452
001453              : %size(currentItem)                                                                02       000000     001453
001454              );                                                                                  02       000000     001454
001455        endif;                                                                                   E02       000000     001455
001456        return;                                                                                   01       000000     001456
001457                                                                                                           000000     001457
001458     when (depth = 2                                                                             X01       000000     001458
001459            and                                                                                  X01       000000     001459
001460            name = 'orders');                                                                    X01       000000     001460
001461        XMLSAXParser_delegateElementProcessing(                                                   01       000000     001461
001462           %addr(currentItem.orders)                                                              01       000000     001462
001463           : %paddr('ns_ArrayOfOrdersStart')                                                      01       000000     001463
001464           : %paddr('ns_ArrayOfOrdersEnd')                                                        01       000000     001464
001465           );                                                                                     01       000000     001465
001466        return;                                                                                   01       000000     001466
001467                                                                                                           000000     001467
001468     endsl;                                                                                      E01       000000     001468
001469                                                                                                           000000     001469
001470  /end-free                                                                                                000000     001470
001471  *                                                                                                        000000     001471
001472 P                 E                                                                                       000000     001472
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    386
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001473  *                                                                                                        000000     001473
001474  * ==================================================================                                     000000     001474
001475  * Return value: tns:getOrdersResponse                                                                    000000     001475
001476  * ==================================================================                                     000000     001476
001477 P tns_getOrdersResponseEnd...                                                                             000000     001477
001478 P                 B                                                                                       000000     001478
001479 D                 PI                                                                                      000000     001479
001480 D  userdata                       *   value                                                               000000     001480
001481 D  depth                        10I 0 value                                                               000000     001481
001482 D  namespace                  1024A   varying const                                                       000000     001482
001483 D  name                       1024A   varying const                                                       000000     001483
001484 D  path                      24576A   varying const                                                       000000     001484
001485 D  value                     65535A   varying                                                             000000     001485
001486 D  attrs                          *   dim(32767)                                                          000000     001486
001487 D                                     const options(*varsize)                                             000000     001487
001488  *                                                                                                        000000     001488
001489 D currentItem     DS                  likeds(tns_getOrdersResponse_t)                                     000000     001489
001490 D                                     based(pCurrentItem)                                                 000000     001490
001491  *                                                                                                        000000     001491
001492 D itemValue       DS                  likeds(wsdl_fullElementData_t)                                      000000     001492
001493 D                                     inz                                                                 000000     001493
001494  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     001494
001495  /free                                                                                                    000000     001495
001496                                                                                                           000000     001496
001497     // Get access to current item                                                                         000000     001497
001498     pCurrentItem = userdata;                                                                              000000     001498
001499                                                                                                           000000     001499
001500     // Get full element data                                                                              000000     001500
001501     itemValue = XMLSAXParser_getFullElementData();                                                        000000     001501
001502                                                                                                           000000     001502
001503     select;                                                                                     B01       000000     001503
001504     endsl;                                                                                      E01       000000     001504
001505                                                                                                           000000     001505
001506  /end-free                                                                                                000000     001506
001507  *                                                                                                        000000     001507
001508 P                 E                                                                                       000000     001508
001509  *                                                                                                        000000     001509
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    387
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001510  * ==================================================================                                     000000     001510
001511  * Return value: tns:orders                                                                               000000     001511
001512  * ==================================================================                                     000000     001512
001513 P ns_ArrayOfOrdersStart...                                                                                000000     001513
001514 P                 B                                                                                       000000     001514
001515 D                 PI                                                                                      000000     001515
001516 D  userdata                       *   value                                                               000000     001516
001517 D  depth                        10I 0 value                                                               000000     001517
001518 D  namespace                  1024A   varying const                                                       000000     001518
001519 D  name                       1024A   varying const                                                       000000     001519
001520 D  path                      24576A   varying const                                                       000000     001520
001521 D  attrs                          *   dim(32767)                                                          150720     001521
001522 D                                     const options(*varsize)                                             000000     001522
001523  *                                                                                                        000000     001523
001524 D currentItem     DS                  likeds(ns_ArrayOfOrders_t)                                          000000     001524
001525 D                                     based(pCurrentItem)                                                 000000     001525
001526  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     001526
001527  /free                                                                                                    000000     001527
001528                                                                                                           000000     001528
001529     // Get access to current item                                                                         000000     001529
001530     pCurrentItem = userdata;                                                                              000000     001530
001531                                                                                                           000000     001531
001532     select;                                                                                     B01       000000     001532
001533     when (depth = 1);                                                                           X01       000000     001533
001534        if (MultiRef_isReference(attrs));                                                        B02       000000     001534
001535           MultiRef_put(                                                                          02       000000     001535
001536              attrs                                                                               02       000000     001536
001537              : XMLSAXParser_getUserData()                                                        02       000000     001537
001538              : depth                                                                             02       000000     001538
001539              : namespace                                                                         02       000000     001539
001540              : name                                                                              02       000000     001540
001541              : path                                                                              02       000000     001541
001542              : XMLSAXParser_getStartCallback()                                                   02       000000     001542
001543              : XMLSAXParser_getEndCallback()                                                     02       000000     001543
001544              : *omit                                                                             02       000000     001544
001545              : %addr(currentItem)                                                                02       000000     001545
001546              : %size(currentItem)                                                                02       000000     001546
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    388
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001547              );                                                                                  02       000000     001547
001548        endif;                                                                                   E02       000000     001548
001549        return;                                                                                   01       000000     001549
001550                                                                                                           000000     001550
001551     when (depth = 2                                                                             X01       000000     001551
001552            and                                                                                  X01       000000     001552
001553            name = 'order');                                                                     X01       000000     001553
001554        XMLSAXParser_delegateElementProcessing(                                                   01       000000     001554
001555           %addr(currentItem.order)                                                               01       000000     001555
001556           : %paddr('ns_orderStart_of_ns_ArrayOfOrders')                                          01       000000     001556
001557           : %paddr('ns_orderEnd_of_ns_ArrayOfOrders')                                            01       000000     001557
001558           );                                                                                     01       000000     001558
001559        return;                                                                                   01       000000     001559
001560                                                                                                           000000     001560
001561     endsl;                                                                                      E01       000000     001561
001562                                                                                                           000000     001562
001563  /end-free                                                                                                000000     001563
001564  *                                                                                                        000000     001564
001565 P                 E                                                                                       000000     001565
001566  *                                                                                                        000000     001566
001567  * ==================================================================                                     000000     001567
001568  * Return value: tns:orders                                                                               000000     001568
001569  * ==================================================================                                     000000     001569
001570 P ns_ArrayOfOrdersEnd...                                                                                  000000     001570
001571 P                 B                                                                                       000000     001571
001572 D                 PI                                                                                      000000     001572
001573 D  userdata                       *   value                                                               000000     001573
001574 D  depth                        10I 0 value                                                               000000     001574
001575 D  namespace                  1024A   varying const                                                       000000     001575
001576 D  name                       1024A   varying const                                                       000000     001576
001577 D  path                      24576A   varying const                                                       000000     001577
001578 D  value                     65535A   varying                                                             000000     001578
001579 D  attrs                          *   dim(32767)                                                          000000     001579
001580 D                                     const options(*varsize)                                             000000     001580
001581  *                                                                                                        000000     001581
001582 D currentItem     DS                  likeds(ns_ArrayOfOrders_t)                                          000000     001582
001583 D                                     based(pCurrentItem)                                                 000000     001583
001584  *                                                                                                        000000     001584
001585 D itemValue       DS                  likeds(wsdl_fullElementData_t)                                      000000     001585
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    389
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001586 D                                     inz                                                                 000000     001586
001587  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     001587
001588  /free                                                                                                    000000     001588
001589                                                                                                           000000     001589
001590     // Get access to current item                                                                         000000     001590
001591     pCurrentItem = userdata;                                                                              000000     001591
001592                                                                                                           000000     001592
001593     // Get full element data                                                                              000000     001593
001594     itemValue = XMLSAXParser_getFullElementData();                                                        000000     001594
001595                                                                                                           000000     001595
001596     select;                                                                                     B01       000000     001596
001597     endsl;                                                                                      E01       000000     001597
001598                                                                                                           000000     001598
001599  /end-free                                                                                                000000     001599
001600  *                                                                                                        000000     001600
001601 P                 E                                                                                       000000     001601
001602  *                                                                                                        000000     001602
001603  * ==================================================================                                     000000     001603
001604  * Return value: ns:order                                                                                 000000     001604
001605  * ==================================================================                                     000000     001605
001606 P ns_orderStart_of_ns_ArrayOfOrders...                                                                    000000     001606
001607 P                 B                                                                                       000000     001607
001608 D                 PI                                                                                      000000     001608
001609 D  userdata                       *   value                                                               000000     001609
001610 D  depth                        10I 0 value                                                               000000     001610
001611 D  namespace                  1024A   varying const                                                       000000     001611
001612 D  name                       1024A   varying const                                                       000000     001612
001613 D  path                      24576A   varying const                                                       000000     001613
001614 D  attrs                          *   dim(32767)                                                          000000     001614
001615 D                                     const options(*varsize)                                             000000     001615
001616  *                                                                                                        000000     001616
001617 D x               S             10I 0 inz                                                                 000000     001617
001618  *                                                                                                        000000     001618
001619 D ns_order        DS                  likeds(ns_RpgArrayOfOrder_t)                                        000000     001619
001620 D                                     based(userdata)                                                     000000     001620
001621  *                                                                                                        000000     001621
001622 D currentItem     DS                  likeds(ns_timianOrderRnmd_t)                                        000000     001622
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    390
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001623 D                                     based(pCurrentItem)                                                 000000     001623
001624  *                                                                                                        000000     001624
001625 D emptyItem       DS                  likeds(ns_timianOrderRnmd_t)                                        000000     001625
001626 D                                     inz                                                                 000000     001626
001627  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     001627
001628  /free                                                                                                    000000     001628
001629                                                                                                           000000     001629
001630     // Get access to current array item                                                                   000000     001630
001631     if (MultiRef_doCaptureData() and MultiRef_hasItemIndex());                                  B01       000000     001631
001632        x = MultiRef_getItemIndex();                                                              01       000000     001632
001633     else;                                                                                       X01       000000     001633
001634        if (depth = 1);                                                                          B02       000000     001634
001635           ns_order.x = ns_order.x + 1;                                                           02       000000     001635
001636        endif;                                                                                   E02       000000     001636
001637        x = ns_order.x;                                                                           01       000000     001637
001638     endif;                                                                                      E01       000000     001638
001639                                                                                                           000000     001639
001640     StaticArray_checkIndex(                                                                               000000     001640
001641        'ns_order.timianOrder'                                                                             000000     001641
001642        : x                                                                                                000000     001642
001643        : %elem(ns_order.timianOrder)                                                                      000000     001643
001644        : 'DIM_A1');                                                                                       000000     001644
001645                                                                                                           000000     001645
001646     pCurrentItem = %addr(ns_order.timianOrder(x));                                                        000000     001646
001647                                                                                                           000000     001647
001648     select;                                                                                     B01       000000     001648
001649     when (depth = 1);                                                                           X01       000000     001649
001650        if (MultiRef_isReference(attrs));                                                        B02       000000     001650
001651           MultiRef_put(                                                                          02       000000     001651
001652              attrs                                                                               02       000000     001652
001653              : XMLSAXParser_getUserData()                                                        02       000000     001653
001654              : depth                                                                             02       000000     001654
001655              : namespace                                                                         02       000000     001655
001656              : name                                                                              02       000000     001656
001657              : path                                                                              02       000000     001657
001658              : XMLSAXParser_getStartCallback()                                                   02       000000     001658
001659              : XMLSAXParser_getEndCallback()                                                     02       000000     001659
001660              : x                                                                                 02       000000     001660
001661              : %addr(currentItem)                                                                02       000000     001661
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    391
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001662              : %size(currentItem)                                                                02       000000     001662
001663              );                                                                                  02       000000     001663
001664        endif;                                                                                   E02       000000     001664
001665        return;                                                                                   01       000000     001665
001666                                                                                                           000000     001666
001667     when (depth = 2                                                                             X01       000000     001667
001668            and                                                                                  X01       000000     001668
001669            name = 'refId');                                                                     X01       000000     001669
001670        // Value is retrieved in corresponding END procedure                                               000000     001670
001671        if (MultiRef_isReference(attrs));                                                        B02       000000     001671
001672           MultiRef_put(                                                                          02       000000     001672
001673              attrs                                                                               02       000000     001673
001674              : XMLSAXParser_getUserData()                                                        02       000000     001674
001675              : depth                                                                             02       000000     001675
001676              : namespace                                                                         02       000000     001676
001677              : name                                                                              02       000000     001677
001678              : path                                                                              02       000000     001678
001679              : XMLSAXParser_getStartCallback()                                                   02       000000     001679
001680              : XMLSAXParser_getEndCallback()                                                     02       000000     001680
001681              : x                                                                                 02       000000     001681
001682              : %addr(currentItem.refId)                                                          02       000000     001682
001683              : %size(currentItem.refId)                                                          02       000000     001683
001684              );                                                                                  02       000000     001684
001685        endif;                                                                                   E02       000000     001685
001686        return;                                                                                   01       000000     001686
001687                                                                                                           000000     001687
001688     when (depth = 2                                                                             X01       000000     001688
001689            and                                                                                  X01       000000     001689
001690            name = 'customerSId');                                                               X01       000000     001690
001691        // Value is retrieved in corresponding END procedure                                               000000     001691
001692        if (MultiRef_isReference(attrs));                                                        B02       000000     001692
001693           MultiRef_put(                                                                          02       000000     001693
001694              attrs                                                                               02       000000     001694
001695              : XMLSAXParser_getUserData()                                                        02       000000     001695
001696              : depth                                                                             02       000000     001696
001697              : namespace                                                                         02       000000     001697
001698              : name                                                                              02       000000     001698
001699              : path                                                                              02       000000     001699
001700              : XMLSAXParser_getStartCallback()                                                   02       000000     001700
001701              : XMLSAXParser_getEndCallback()                                                     02       000000     001701
001702              : x                                                                                 02       000000     001702
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    392
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001703              : %addr(currentItem.customerSId)                                                    02       000000     001703
001704              : %size(currentItem.customerSId)                                                    02       000000     001704
001705              );                                                                                  02       000000     001705
001706        endif;                                                                                   E02       000000     001706
001707        return;                                                                                   01       000000     001707
001708                                                                                                           000000     001708
001709     when (depth = 2                                                                             X01       000000     001709
001710            and                                                                                  X01       000000     001710
001711            name = 'supplierSId');                                                               X01       000000     001711
001712        // Value is retrieved in corresponding END procedure                                               000000     001712
001713        if (MultiRef_isReference(attrs));                                                        B02       000000     001713
001714           MultiRef_put(                                                                          02       000000     001714
001715              attrs                                                                               02       000000     001715
001716              : XMLSAXParser_getUserData()                                                        02       000000     001716
001717              : depth                                                                             02       000000     001717
001718              : namespace                                                                         02       000000     001718
001719              : name                                                                              02       000000     001719
001720              : path                                                                              02       000000     001720
001721              : XMLSAXParser_getStartCallback()                                                   02       000000     001721
001722              : XMLSAXParser_getEndCallback()                                                     02       000000     001722
001723              : x                                                                                 02       000000     001723
001724              : %addr(currentItem.supplierSId)                                                    02       000000     001724
001725              : %size(currentItem.supplierSId)                                                    02       000000     001725
001726              );                                                                                  02       000000     001726
001727        endif;                                                                                   E02       000000     001727
001728        return;                                                                                   01       000000     001728
001729                                                                                                           000000     001729
001730     when (depth = 2                                                                             X01       000000     001730
001731            and                                                                                  X01       000000     001731
001732            name = 'deliveryInfo');                                                              X01       000000     001732
001733        // Value is retrieved in corresponding END procedure                                               000000     001733
001734        if (MultiRef_isReference(attrs));                                                        B02       000000     001734
001735           MultiRef_put(                                                                          02       000000     001735
001736              attrs                                                                               02       000000     001736
001737              : XMLSAXParser_getUserData()                                                        02       000000     001737
001738              : depth                                                                             02       000000     001738
001739              : namespace                                                                         02       000000     001739
001740              : name                                                                              02       000000     001740
001741              : path                                                                              02       000000     001741
001742              : XMLSAXParser_getStartCallback()                                                   02       000000     001742
001743              : XMLSAXParser_getEndCallback()                                                     02       000000     001743
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    393
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001744              : x                                                                                 02       000000     001744
001745              : %addr(currentItem.deliveryInfo)                                                   02       000000     001745
001746              : %size(currentItem.deliveryInfo)                                                   02       000000     001746
001747              );                                                                                  02       000000     001747
001748        endif;                                                                                   E02       000000     001748
001749        return;                                                                                   01       000000     001749
001750                                                                                                           000000     001750
001751     when (depth = 2                                                                             X01       000000     001751
001752            and                                                                                  X01       000000     001752
001753            name = 'costInfo');                                                                  X01       000000     001753
001754        // Value is retrieved in corresponding END procedure                                               000000     001754
001755        if (MultiRef_isReference(attrs));                                                        B02       000000     001755
001756           MultiRef_put(                                                                          02       000000     001756
001757              attrs                                                                               02       000000     001757
001758              : XMLSAXParser_getUserData()                                                        02       000000     001758
001759              : depth                                                                             02       000000     001759
001760              : namespace                                                                         02       000000     001760
001761              : name                                                                              02       000000     001761
001762              : path                                                                              02       000000     001762
001763              : XMLSAXParser_getStartCallback()                                                   02       000000     001763
001764              : XMLSAXParser_getEndCallback()                                                     02       000000     001764
001765              : x                                                                                 02       000000     001765
001766              : %addr(currentItem.costInfo)                                                       02       000000     001766
001767              : %size(currentItem.costInfo)                                                       02       000000     001767
001768              );                                                                                  02       000000     001768
001769        endif;                                                                                   E02       000000     001769
001770        return;                                                                                   01       000000     001770
001771                                                                                                           000000     001771
001772     when (depth = 2                                                                             X01       000000     001772
001773            and                                                                                  X01       000000     001773
001774            name = 'state');                                                                     X01       000000     001774
001775        // Value is retrieved in corresponding END procedure                                               000000     001775
001776        if (MultiRef_isReference(attrs));                                                        B02       000000     001776
001777           MultiRef_put(                                                                          02       000000     001777
001778              attrs                                                                               02       000000     001778
001779              : XMLSAXParser_getUserData()                                                        02       000000     001779
001780              : depth                                                                             02       000000     001780
001781              : namespace                                                                         02       000000     001781
001782              : name                                                                              02       000000     001782
001783              : path                                                                              02       000000     001783
001784              : XMLSAXParser_getStartCallback()                                                   02       000000     001784
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    394
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001785              : XMLSAXParser_getEndCallback()                                                     02       000000     001785
001786              : x                                                                                 02       000000     001786
001787              : %addr(currentItem.state)                                                          02       000000     001787
001788              : %size(currentItem.state)                                                          02       000000     001788
001789              );                                                                                  02       000000     001789
001790        endif;                                                                                   E02       000000     001790
001791        return;                                                                                   01       000000     001791
001792                                                                                                           000000     001792
001793     when (depth = 2                                                                             X01       000000     001793
001794            and                                                                                  X01       000000     001794
001795            name = 'notes');                                                                     X01       000000     001795
001796        XMLSAXParser_delegateElementProcessing(                                                   01       000000     001796
001797           %addr(currentItem.notes)                                                               01       000000     001797
001798           : %paddr('ns_ArrayOfStringsStart')                                                     01       000000     001798
001799           : %paddr('ns_ArrayOfStringsEnd')                                                       01       000000     001799
001800           );                                                                                     01       000000     001800
001801        return;                                                                                   01       000000     001801
001802                                                                                                           000000     001802
001803     when (depth = 2                                                                             X01       000000     001803
001804            and                                                                                  X01       000000     001804
001805            name = 'orderItems');                                                                X01       000000     001805
001806        XMLSAXParser_delegateElementProcessing(                                                   01       000000     001806
001807           %addr(currentItem.orderItems)                                                          01       000000     001807
001808           : %paddr('ns_ArrayOfOrderItemsStart')                                                  01       000000     001808
001809           : %paddr('ns_ArrayOfOrderItemsEnd')                                                    01       000000     001809
001810           );                                                                                     01       000000     001810
001811        return;                                                                                   01       000000     001811
001812                                                                                                           000000     001812
001813     when (depth = 2                                                                             X01       000000     001813
001814            and                                                                                  X01       000000     001814
001815            name = 'refNumber1');                                                                X01       000000     001815
001816        // Value is retrieved in corresponding END procedure                                               000000     001816
001817        if (MultiRef_isReference(attrs));                                                        B02       000000     001817
001818           MultiRef_put(                                                                          02       000000     001818
001819              attrs                                                                               02       000000     001819
001820              : XMLSAXParser_getUserData()                                                        02       000000     001820
001821              : depth                                                                             02       000000     001821
001822              : namespace                                                                         02       000000     001822
001823              : name                                                                              02       000000     001823
001824              : path                                                                              02       000000     001824
001825              : XMLSAXParser_getStartCallback()                                                   02       000000     001825
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    395
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001826              : XMLSAXParser_getEndCallback()                                                     02       000000     001826
001827              : x                                                                                 02       000000     001827
001828              : %addr(currentItem.refNumber1)                                                     02       000000     001828
001829              : %size(currentItem.refNumber1)                                                     02       000000     001829
001830              );                                                                                  02       000000     001830
001831        endif;                                                                                   E02       000000     001831
001832        return;                                                                                   01       000000     001832
001833                                                                                                           000000     001833
001834     when (depth = 2                                                                             X01       000000     001834
001835            and                                                                                  X01       000000     001835
001836            name = 'refNumber2');                                                                X01       000000     001836
001837        // Value is retrieved in corresponding END procedure                                               000000     001837
001838        if (MultiRef_isReference(attrs));                                                        B02       000000     001838
001839           MultiRef_put(                                                                          02       000000     001839
001840              attrs                                                                               02       000000     001840
001841              : XMLSAXParser_getUserData()                                                        02       000000     001841
001842              : depth                                                                             02       000000     001842
001843              : namespace                                                                         02       000000     001843
001844              : name                                                                              02       000000     001844
001845              : path                                                                              02       000000     001845
001846              : XMLSAXParser_getStartCallback()                                                   02       000000     001846
001847              : XMLSAXParser_getEndCallback()                                                     02       000000     001847
001848              : x                                                                                 02       000000     001848
001849              : %addr(currentItem.refNumber2)                                                     02       000000     001849
001850              : %size(currentItem.refNumber2)                                                     02       000000     001850
001851              );                                                                                  02       000000     001851
001852        endif;                                                                                   E02       000000     001852
001853        return;                                                                                   01       000000     001853
001854                                                                                                           000000     001854
001855     when (depth = 2                                                                             X01       000000     001855
001856            and                                                                                  X01       000000     001856
001857            name = 'refNumber3');                                                                X01       000000     001857
001858        // Value is retrieved in corresponding END procedure                                               000000     001858
001859        if (MultiRef_isReference(attrs));                                                        B02       000000     001859
001860           MultiRef_put(                                                                          02       000000     001860
001861              attrs                                                                               02       000000     001861
001862              : XMLSAXParser_getUserData()                                                        02       000000     001862
001863              : depth                                                                             02       000000     001863
001864              : namespace                                                                         02       000000     001864
001865              : name                                                                              02       000000     001865
001866              : path                                                                              02       000000     001866
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    396
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001867              : XMLSAXParser_getStartCallback()                                                   02       000000     001867
001868              : XMLSAXParser_getEndCallback()                                                     02       000000     001868
001869              : x                                                                                 02       000000     001869
001870              : %addr(currentItem.refNumber3)                                                     02       000000     001870
001871              : %size(currentItem.refNumber3)                                                     02       000000     001871
001872              );                                                                                  02       000000     001872
001873        endif;                                                                                   E02       000000     001873
001874        return;                                                                                   01       000000     001874
001875                                                                                                           000000     001875
001876     when (depth = 2                                                                             X01       000000     001876
001877            and                                                                                  X01       000000     001877
001878            name = 'orderDate');                                                                 X01       000000     001878
001879        // Value is retrieved in corresponding END procedure                                               000000     001879
001880        if (MultiRef_isReference(attrs));                                                        B02       000000     001880
001881           MultiRef_put(                                                                          02       000000     001881
001882              attrs                                                                               02       000000     001882
001883              : XMLSAXParser_getUserData()                                                        02       000000     001883
001884              : depth                                                                             02       000000     001884
001885              : namespace                                                                         02       000000     001885
001886              : name                                                                              02       000000     001886
001887              : path                                                                              02       000000     001887
001888              : XMLSAXParser_getStartCallback()                                                   02       000000     001888
001889              : XMLSAXParser_getEndCallback()                                                     02       000000     001889
001890              : x                                                                                 02       000000     001890
001891              : %addr(currentItem.orderDate)                                                      02       000000     001891
001892              : %size(currentItem.orderDate)                                                      02       000000     001892
001893              );                                                                                  02       000000     001893
001894        endif;                                                                                   E02       000000     001894
001895        return;                                                                                   01       000000     001895
001896                                                                                                           000000     001896
001897     when (depth = 2                                                                             X01       000000     001897
001898            and                                                                                  X01       000000     001898
001899            name = 'deliveryDate');                                                              X01       000000     001899
001900        // Value is retrieved in corresponding END procedure                                               000000     001900
001901        if (MultiRef_isReference(attrs));                                                        B02       000000     001901
001902           MultiRef_put(                                                                          02       000000     001902
001903              attrs                                                                               02       000000     001903
001904              : XMLSAXParser_getUserData()                                                        02       000000     001904
001905              : depth                                                                             02       000000     001905
001906              : namespace                                                                         02       000000     001906
001907              : name                                                                              02       000000     001907
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    397
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001908              : path                                                                              02       000000     001908
001909              : XMLSAXParser_getStartCallback()                                                   02       000000     001909
001910              : XMLSAXParser_getEndCallback()                                                     02       000000     001910
001911              : x                                                                                 02       000000     001911
001912              : %addr(currentItem.deliveryDate)                                                   02       000000     001912
001913              : %size(currentItem.deliveryDate)                                                   02       000000     001913
001914              );                                                                                  02       000000     001914
001915        endif;                                                                                   E02       000000     001915
001916        return;                                                                                   01       000000     001916
001917                                                                                                           000000     001917
001918     when (depth = 2                                                                             X01       000000     001918
001919            and                                                                                  X01       000000     001919
001920            name = 'totalAmount');                                                               X01       000000     001920
001921        // Value is retrieved in corresponding END procedure                                               000000     001921
001922        if (MultiRef_isReference(attrs));                                                        B02       000000     001922
001923           MultiRef_put(                                                                          02       000000     001923
001924              attrs                                                                               02       000000     001924
001925              : XMLSAXParser_getUserData()                                                        02       000000     001925
001926              : depth                                                                             02       000000     001926
001927              : namespace                                                                         02       000000     001927
001928              : name                                                                              02       000000     001928
001929              : path                                                                              02       000000     001929
001930              : XMLSAXParser_getStartCallback()                                                   02       000000     001930
001931              : XMLSAXParser_getEndCallback()                                                     02       000000     001931
001932              : x                                                                                 02       000000     001932
001933              : %addr(currentItem.totalAmount)                                                    02       000000     001933
001934              : %size(currentItem.totalAmount)                                                    02       000000     001934
001935              );                                                                                  02       000000     001935
001936        endif;                                                                                   E02       000000     001936
001937        return;                                                                                   01       000000     001937
001938                                                                                                           000000     001938
001939     when (depth = 2                                                                             X01       000000     001939
001940            and                                                                                  X01       000000     001940
001941            name = 'totalAmountWithVAT');                                                        X01       000000     001941
001942        // Value is retrieved in corresponding END procedure                                               000000     001942
001943        if (MultiRef_isReference(attrs));                                                        B02       000000     001943
001944           MultiRef_put(                                                                          02       000000     001944
001945              attrs                                                                               02       000000     001945
001946              : XMLSAXParser_getUserData()                                                        02       000000     001946
001947              : depth                                                                             02       000000     001947
001948              : namespace                                                                         02       000000     001948
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    398
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001949              : name                                                                              02       000000     001949
001950              : path                                                                              02       000000     001950
001951              : XMLSAXParser_getStartCallback()                                                   02       000000     001951
001952              : XMLSAXParser_getEndCallback()                                                     02       000000     001952
001953              : x                                                                                 02       000000     001953
001954              : %addr(currentItem.totalAmountWithVAT)                                             02       000000     001954
001955              : %size(currentItem.totalAmountWithVAT)                                             02       000000     001955
001956              );                                                                                  02       000000     001956
001957        endif;                                                                                   E02       000000     001957
001958        return;                                                                                   01       000000     001958
001959                                                                                                           000000     001959
001960     endsl;                                                                                      E01       000000     001960
001961                                                                                                           000000     001961
001962  /end-free                                                                                                000000     001962
001963  *                                                                                                        000000     001963
001964 P                 E                                                                                       000000     001964
001965  *                                                                                                        000000     001965
001966  * ==================================================================                                     000000     001966
001967  * Return value: ns:order                                                                                 000000     001967
001968  * ==================================================================                                     000000     001968
001969 P ns_orderEnd_of_ns_ArrayOfOrders...                                                                      000000     001969
001970 P                 B                                                                                       000000     001970
001971 D                 PI                                                                                      000000     001971
001972 D  userdata                       *   value                                                               000000     001972
001973 D  depth                        10I 0 value                                                               000000     001973
001974 D  namespace                  1024A   varying const                                                       000000     001974
001975 D  name                       1024A   varying const                                                       000000     001975
001976 D  path                      24576A   varying const                                                       000000     001976
001977 D  value                     65535A   varying                                                             000000     001977
001978 D  attrs                          *   dim(32767)                                                          000000     001978
001979 D                                     const options(*varsize)                                             000000     001979
001980  *                                                                                                        000000     001980
001981 D x               S             10I 0 inz                                                                 000000     001981
001982  *                                                                                                        000000     001982
001983 D ns_order        DS                  likeds(ns_RpgArrayOfOrder_t)                                        000000     001983
001984 D                                     based(userdata)                                                     000000     001984
001985  *                                                                                                        000000     001985
001986 D currentItem     DS                  likeds(ns_timianOrderRnmd_t)                                        000000     001986
001987 D                                     based(pCurrentItem)                                                 000000     001987
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    399
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
001988  *                                                                                                        000000     001988
001989 D itemValue       DS                  likeds(wsdl_fullElementData_t)                                      000000     001989
001990 D                                     inz                                                                 000000     001990
001991  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     001991
001992  /free                                                                                                    000000     001992
001993                                                                                                           000000     001993
001994     // Get access to current array item                                                                   000000     001994
001995     if (MultiRef_doCaptureData() and MultiRef_hasItemIndex());                                  B01       000000     001995
001996        x = MultiRef_getItemIndex();                                                              01       000000     001996
001997     else;                                                                                       X01       000000     001997
001998        x = ns_order.x;                                                                           01       000000     001998
001999     endif;                                                                                      E01       000000     001999
002000                                                                                                           000000     002000
002001     StaticArray_checkIndex(                                                                               000000     002001
002002        'ns_order.timianOrder'                                                                             000000     002002
002003        : x                                                                                                000000     002003
002004        : %elem(ns_order.timianOrder)                                                                      000000     002004
002005        : 'DIM_A1');                                                                                       000000     002005
002006                                                                                                           000000     002006
002007     pCurrentItem = %addr(ns_order.timianOrder(x));                                                        000000     002007
002008                                                                                                           000000     002008
002009     // Get full element data                                                                              000000     002009
002010     itemValue = XMLSAXParser_getFullElementData();                                                        000000     002010
002011                                                                                                           000000     002011
002012     select;                                                                                     B01       000000     002012
002013     when (depth = 2                                                                             X01       000000     002013
002014            and                                                                                  X01       000000     002014
002015            name = 'refId');                                                                     X01       000000     002015
002016        if (not Value_isNil(attrs));                                                             B02       000000     002016
002017           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002017
002018           currentItem.refId =                                                                    02       000000     002018
002019              UnMarshaller_toInt(value);                                                          02       000000     002019
002020        endif;                                                                                   E02       000000     002020
002021                                                                                                           000000     002021
002022     when (depth = 2                                                                             X01       000000     002022
002023            and                                                                                  X01       000000     002023
002024            name = 'customerSId');                                                               X01       000000     002024
002025        if (not Value_isNil(attrs));                                                             B02       000000     002025
002026           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002026
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    400
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002027           UnMarshaller_toStringV6(                                                               02       000000     002027
002028              %addr(currentItem.customerSId)                                                      02       000000     002028
002029              : %addr(currentItem.customerSId: *DATA)                                             02       000000     002029
002030              : %size(currentItem.customerSId)                                                    02       000000     002030
002031              : itemValue.pData                                                                   02       000000     002031
002032              : itemValue.size);                                                                  02       000000     002032
002033        endif;                                                                                   E02       000000     002033
002034                                                                                                           000000     002034
002035     when (depth = 2                                                                             X01       000000     002035
002036            and                                                                                  X01       000000     002036
002037            name = 'supplierSId');                                                               X01       000000     002037
002038        if (not Value_isNil(attrs));                                                             B02       000000     002038
002039           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002039
002040           UnMarshaller_toStringV6(                                                               02       000000     002040
002041              %addr(currentItem.supplierSId)                                                      02       000000     002041
002042              : %addr(currentItem.supplierSId: *DATA)                                             02       000000     002042
002043              : %size(currentItem.supplierSId)                                                    02       000000     002043
002044              : itemValue.pData                                                                   02       000000     002044
002045              : itemValue.size);                                                                  02       000000     002045
002046        endif;                                                                                   E02       000000     002046
002047                                                                                                           000000     002047
002048     when (depth = 2                                                                             X01       000000     002048
002049            and                                                                                  X01       000000     002049
002050            name = 'deliveryInfo');                                                              X01       000000     002050
002051        if (not Value_isNil(attrs));                                                             B02       000000     002051
002052           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002052
002053           UnMarshaller_toStringV6(                                                               02       000000     002053
002054              %addr(currentItem.deliveryInfo)                                                     02       000000     002054
002055              : %addr(currentItem.deliveryInfo: *DATA)                                            02       000000     002055
002056              : %size(currentItem.deliveryInfo)                                                   02       000000     002056
002057              : itemValue.pData                                                                   02       000000     002057
002058              : itemValue.size);                                                                  02       000000     002058
002059        endif;                                                                                   E02       000000     002059
002060                                                                                                           000000     002060
002061     when (depth = 2                                                                             X01       000000     002061
002062            and                                                                                  X01       000000     002062
002063            name = 'costInfo');                                                                  X01       000000     002063
002064        if (not Value_isNil(attrs));                                                             B02       000000     002064
002065           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002065
002066           UnMarshaller_toStringV6(                                                               02       000000     002066
002067              %addr(currentItem.costInfo)                                                         02       000000     002067
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    401
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002068              : %addr(currentItem.costInfo: *DATA)                                                02       000000     002068
002069              : %size(currentItem.costInfo)                                                       02       000000     002069
002070              : itemValue.pData                                                                   02       000000     002070
002071              : itemValue.size);                                                                  02       000000     002071
002072        endif;                                                                                   E02       000000     002072
002073                                                                                                           000000     002073
002074     when (depth = 2                                                                             X01       000000     002074
002075            and                                                                                  X01       000000     002075
002076            name = 'state');                                                                     X01       000000     002076
002077        if (not Value_isNil(attrs));                                                             B02       000000     002077
002078           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002078
002079           UnMarshaller_toStringV6(                                                               02       000000     002079
002080              %addr(currentItem.state)                                                            02       000000     002080
002081              : %addr(currentItem.state: *DATA)                                                   02       000000     002081
002082              : %size(currentItem.state)                                                          02       000000     002082
002083              : itemValue.pData                                                                   02       000000     002083
002084              : itemValue.size);                                                                  02       000000     002084
002085        endif;                                                                                   E02       000000     002085
002086                                                                                                           000000     002086
002087     when (depth = 2                                                                             X01       000000     002087
002088            and                                                                                  X01       000000     002088
002089            name = 'refNumber1');                                                                X01       000000     002089
002090        if (not Value_isNil(attrs));                                                             B02       000000     002090
002091           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002091
002092           UnMarshaller_toStringV6(                                                               02       000000     002092
002093              %addr(currentItem.refNumber1)                                                       02       000000     002093
002094              : %addr(currentItem.refNumber1: *DATA)                                              02       000000     002094
002095              : %size(currentItem.refNumber1)                                                     02       000000     002095
002096              : itemValue.pData                                                                   02       000000     002096
002097              : itemValue.size);                                                                  02       000000     002097
002098        endif;                                                                                   E02       000000     002098
002099                                                                                                           000000     002099
002100     when (depth = 2                                                                             X01       000000     002100
002101            and                                                                                  X01       000000     002101
002102            name = 'refNumber2');                                                                X01       000000     002102
002103        if (not Value_isNil(attrs));                                                             B02       000000     002103
002104           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002104
002105           UnMarshaller_toStringV6(                                                               02       000000     002105
002106              %addr(currentItem.refNumber2)                                                       02       000000     002106
002107              : %addr(currentItem.refNumber2: *DATA)                                              02       000000     002107
002108              : %size(currentItem.refNumber2)                                                     02       000000     002108
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    402
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002109              : itemValue.pData                                                                   02       000000     002109
002110              : itemValue.size);                                                                  02       000000     002110
002111        endif;                                                                                   E02       000000     002111
002112                                                                                                           000000     002112
002113     when (depth = 2                                                                             X01       000000     002113
002114            and                                                                                  X01       000000     002114
002115            name = 'refNumber3');                                                                X01       000000     002115
002116        if (not Value_isNil(attrs));                                                             B02       000000     002116
002117           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002117
002118           UnMarshaller_toStringV6(                                                               02       000000     002118
002119              %addr(currentItem.refNumber3)                                                       02       000000     002119
002120              : %addr(currentItem.refNumber3: *DATA)                                              02       000000     002120
002121              : %size(currentItem.refNumber3)                                                     02       000000     002121
002122              : itemValue.pData                                                                   02       000000     002122
002123              : itemValue.size);                                                                  02       000000     002123
002124        endif;                                                                                   E02       000000     002124
002125                                                                                                           000000     002125
002126     when (depth = 2                                                                             X01       000000     002126
002127            and                                                                                  X01       000000     002127
002128            name = 'orderDate');                                                                 X01       000000     002128
002129        if (not Value_isNil(attrs));                                                             B02       000000     002129
002130           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002130
002131           currentItem.orderDate =                                                                02       000000     002131
002132              UnMarshaller_toDateTime(value);                                                     02       000000     002132
002133        endif;                                                                                   E02       000000     002133
002134                                                                                                           000000     002134
002135     when (depth = 2                                                                             X01       000000     002135
002136            and                                                                                  X01       000000     002136
002137            name = 'deliveryDate');                                                              X01       000000     002137
002138        if (not Value_isNil(attrs));                                                             B02       000000     002138
002139           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002139
002140           currentItem.deliveryDate =                                                             02       000000     002140
002141              UnMarshaller_toDateTime(value);                                                     02       000000     002141
002142        endif;                                                                                   E02       000000     002142
002143                                                                                                           000000     002143
002144     when (depth = 2                                                                             X01       000000     002144
002145            and                                                                                  X01       000000     002145
002146            name = 'totalAmount');                                                               X01       000000     002146
002147        if (not Value_isNil(attrs));                                                             B02       000000     002147
002148           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002148
002149           currentItem.totalAmount =                                                              02       000000     002149
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    403
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002150              UnMarshaller_toFloat(value);                                                        02       000000     002150
002151        endif;                                                                                   E02       000000     002151
002152                                                                                                           000000     002152
002153     when (depth = 2                                                                             X01       000000     002153
002154            and                                                                                  X01       000000     002154
002155            name = 'totalAmountWithVAT');                                                        X01       000000     002155
002156        if (not Value_isNil(attrs));                                                             B02       000000     002156
002157           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002157
002158           currentItem.totalAmountWithVAT =                                                       02       000000     002158
002159              UnMarshaller_toFloat(value);                                                        02       000000     002159
002160        endif;                                                                                   E02       000000     002160
002161                                                                                                           000000     002161
002162     endsl;                                                                                      E01       000000     002162
002163                                                                                                           000000     002163
002164  /end-free                                                                                                000000     002164
002165  *                                                                                                        000000     002165
002166 P                 E                                                                                       000000     002166
002167  *                                                                                                        000000     002167
002168  * ==================================================================                                     000000     002168
002169  * Return value: ns:notes                                                                                 000000     002169
002170  * ==================================================================                                     000000     002170
002171 P ns_ArrayOfStringsStart...                                                                               000000     002171
002172 P                 B                                                                                       000000     002172
002173 D                 PI                                                                                      000000     002173
002174 D  userdata                       *   value                                                               000000     002174
002175 D  depth                        10I 0 value                                                               000000     002175
002176 D  namespace                  1024A   varying const                                                       000000     002176
002177 D  name                       1024A   varying const                                                       000000     002177
002178 D  path                      24576A   varying const                                                       000000     002178
002179 D  attrs                          *   dim(32767)                                                          000000     002179
002180 D                                     const options(*varsize)                                             000000     002180
002181  *                                                                                                        000000     002181
002182 D currentItem     DS                  likeds(ns_ArrayOfStrings_t)                                         000000     002182
002183 D                                     based(pCurrentItem)                                                 000000     002183
002184  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     002184
002185  /free                                                                                                    000000     002185
002186                                                                                                           000000     002186
002187     // Get access to current item                                                                         000000     002187
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    404
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002188     pCurrentItem = userdata;                                                                              000000     002188
002189                                                                                                           000000     002189
002190     select;                                                                                     B01       000000     002190
002191     when (depth = 1);                                                                           X01       000000     002191
002192        if (MultiRef_isReference(attrs));                                                        B02       000000     002192
002193           MultiRef_put(                                                                          02       000000     002193
002194              attrs                                                                               02       000000     002194
002195              : XMLSAXParser_getUserData()                                                        02       000000     002195
002196              : depth                                                                             02       000000     002196
002197              : namespace                                                                         02       000000     002197
002198              : name                                                                              02       000000     002198
002199              : path                                                                              02       000000     002199
002200              : XMLSAXParser_getStartCallback()                                                   02       000000     002200
002201              : XMLSAXParser_getEndCallback()                                                     02       000000     002201
002202              : *omit                                                                             02       000000     002202
002203              : %addr(currentItem)                                                                02       000000     002203
002204              : %size(currentItem)                                                                02       000000     002204
002205              );                                                                                  02       000000     002205
002206        endif;                                                                                   E02       000000     002206
002207        return;                                                                                   01       000000     002207
002208                                                                                                           000000     002208
002209     when (depth = 2                                                                             X01       000000     002209
002210            and                                                                                  X01       000000     002210
002211            name = 'entry');                                                                     X01       000000     002211
002212        XMLSAXParser_delegateElementProcessing(                                                   01       000000     002212
002213           %addr(currentItem.entry)                                                               01       000000     002213
002214           : %paddr('ns_entryStart_of_ns_ArrayOfStrings')                                         01       000000     002214
002215           : %paddr('ns_entryEnd_of_ns_ArrayOfStrings')                                           01       000000     002215
002216           );                                                                                     01       000000     002216
002217        return;                                                                                   01       000000     002217
002218                                                                                                           000000     002218
002219     endsl;                                                                                      E01       000000     002219
002220                                                                                                           000000     002220
002221  /end-free                                                                                                000000     002221
002222  *                                                                                                        000000     002222
002223 P                 E                                                                                       000000     002223
002224  *                                                                                                        000000     002224
002225  * ==================================================================                                     000000     002225
002226  * Return value: ns:notes                                                                                 000000     002226
002227  * ==================================================================                                     000000     002227
002228 P ns_ArrayOfStringsEnd...                                                                                 000000     002228
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    405
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002229 P                 B                                                                                       000000     002229
002230 D                 PI                                                                                      000000     002230
002231 D  userdata                       *   value                                                               000000     002231
002232 D  depth                        10I 0 value                                                               000000     002232
002233 D  namespace                  1024A   varying const                                                       000000     002233
002234 D  name                       1024A   varying const                                                       000000     002234
002235 D  path                      24576A   varying const                                                       000000     002235
002236 D  value                     65535A   varying                                                             000000     002236
002237 D  attrs                          *   dim(32767)                                                          000000     002237
002238 D                                     const options(*varsize)                                             000000     002238
002239  *                                                                                                        000000     002239
002240 D currentItem     DS                  likeds(ns_ArrayOfStrings_t)                                         000000     002240
002241 D                                     based(pCurrentItem)                                                 000000     002241
002242  *                                                                                                        000000     002242
002243 D itemValue       DS                  likeds(wsdl_fullElementData_t)                                      000000     002243
002244 D                                     inz                                                                 000000     002244
002245  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     002245
002246  /free                                                                                                    000000     002246
002247                                                                                                           000000     002247
002248     // Get access to current item                                                                         000000     002248
002249     pCurrentItem = userdata;                                                                              000000     002249
002250                                                                                                           000000     002250
002251     // Get full element data                                                                              000000     002251
002252     itemValue = XMLSAXParser_getFullElementData();                                                        000000     002252
002253                                                                                                           000000     002253
002254     select;                                                                                     B01       000000     002254
002255     endsl;                                                                                      E01       000000     002255
002256                                                                                                           000000     002256
002257  /end-free                                                                                                000000     002257
002258  *                                                                                                        000000     002258
002259 P                 E                                                                                       000000     002259
002260  *                                                                                                        000000     002260
002261  * ==================================================================                                     000000     002261
002262  * Return value: ns:entry                                                                                 000000     002262
002263  * ==================================================================                                     000000     002263
002264 P ns_entryStart_of_ns_ArrayOfStrings...                                                                   000000     002264
002265 P                 B                                                                                       000000     002265
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    406
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002266 D                 PI                                                                                      000000     002266
002267 D  userdata                       *   value                                                               000000     002267
002268 D  depth                        10I 0 value                                                               000000     002268
002269 D  namespace                  1024A   varying const                                                       000000     002269
002270 D  name                       1024A   varying const                                                       000000     002270
002271 D  path                      24576A   varying const                                                       000000     002271
002272 D  attrs                          *   dim(32767)                                                          000000     002272
002273 D                                     const options(*varsize)                                             000000     002273
002274  *                                                                                                        000000     002274
002275 D x               S             10I 0 inz                                                                 000000     002275
002276  *                                                                                                        000000     002276
002277 D ns_entry        DS                  likeds(ns_RpgArrayOfEntry_t)                                        000000     002277
002278 D                                     based(userdata)                                                     000000     002278
002279  *                                                                                                        000000     002279
002280 D currentItem     S                   like(xsd_string_of_string_t)                                        000000     002280
002281 D                                     based(pCurrentItem)                                                 000000     002281
002282  *                                                                                                        000000     002282
002283 D emptyItem       S                   like(xsd_string_of_string_t)                                        000000     002283
002284 D                                     inz                                                                 000000     002284
002285  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     002285
002286  /free                                                                                                    000000     002286
002287                                                                                                           000000     002287
002288     // Get access to current array item                                                                   000000     002288
002289     if (MultiRef_doCaptureData() and MultiRef_hasItemIndex());                                  B01       000000     002289
002290        x = MultiRef_getItemIndex();                                                              01       000000     002290
002291     else;                                                                                       X01       000000     002291
002292        if (depth = 1);                                                                          B02       000000     002292
002293           ns_entry.x = ns_entry.x + 1;                                                           02       000000     002293
002294        endif;                                                                                   E02       000000     002294
002295        x = ns_entry.x;                                                                           01       000000     002295
002296     endif;                                                                                      E01       000000     002296
002297                                                                                                           000000     002297
002298     StaticArray_checkIndex(                                                                               000000     002298
002299        'ns_entry.string'                                                                                  000000     002299
002300        : x                                                                                                000000     002300
002301        : %elem(ns_entry.string)                                                                           000000     002301
002302        : 'DIM_A2');                                                                                       000000     002302
002303                                                                                                           000000     002303
002304     pCurrentItem = %addr(ns_entry.string(x));                                                             000000     002304
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    407
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002305                                                                                                           000000     002305
002306     select;                                                                                     B01       000000     002306
002307     when (depth = 1);                                                                           X01       000000     002307
002308        if (MultiRef_isReference(attrs));                                                        B02       000000     002308
002309           MultiRef_put(                                                                          02       000000     002309
002310              attrs                                                                               02       000000     002310
002311              : XMLSAXParser_getUserData()                                                        02       000000     002311
002312              : depth                                                                             02       000000     002312
002313              : namespace                                                                         02       000000     002313
002314              : name                                                                              02       000000     002314
002315              : path                                                                              02       000000     002315
002316              : XMLSAXParser_getStartCallback()                                                   02       000000     002316
002317              : XMLSAXParser_getEndCallback()                                                     02       000000     002317
002318              : x                                                                                 02       000000     002318
002319              : %addr(currentItem)                                                                02       000000     002319
002320              : %size(currentItem)                                                                02       000000     002320
002321              );                                                                                  02       000000     002321
002322        endif;                                                                                   E02       000000     002322
002323        return;                                                                                   01       000000     002323
002324                                                                                                           000000     002324
002325     endsl;                                                                                      E01       000000     002325
002326                                                                                                           000000     002326
002327  /end-free                                                                                                000000     002327
002328  *                                                                                                        000000     002328
002329 P                 E                                                                                       000000     002329
002330  *                                                                                                        000000     002330
002331  * ==================================================================                                     000000     002331
002332  * Return value: ns:entry                                                                                 000000     002332
002333  * ==================================================================                                     000000     002333
002334 P ns_entryEnd_of_ns_ArrayOfStrings...                                                                     000000     002334
002335 P                 B                                                                                       000000     002335
002336 D                 PI                                                                                      000000     002336
002337 D  userdata                       *   value                                                               000000     002337
002338 D  depth                        10I 0 value                                                               000000     002338
002339 D  namespace                  1024A   varying const                                                       000000     002339
002340 D  name                       1024A   varying const                                                       000000     002340
002341 D  path                      24576A   varying const                                                       000000     002341
002342 D  value                     65535A   varying                                                             000000     002342
002343 D  attrs                          *   dim(32767)                                                          000000     002343
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    408
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002344 D                                     const options(*varsize)                                             000000     002344
002345  *                                                                                                        000000     002345
002346 D x               S             10I 0 inz                                                                 000000     002346
002347  *                                                                                                        000000     002347
002348 D ns_entry        DS                  likeds(ns_RpgArrayOfEntry_t)                                        000000     002348
002349 D                                     based(userdata)                                                     000000     002349
002350  *                                                                                                        000000     002350
002351 D currentItem     S                   like(xsd_string_of_string_t)                                        000000     002351
002352 D                                     based(pCurrentItem)                                                 000000     002352
002353  *                                                                                                        000000     002353
002354 D itemValue       DS                  likeds(wsdl_fullElementData_t)                                      000000     002354
002355 D                                     inz                                                                 000000     002355
002356  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     002356
002357  /free                                                                                                    000000     002357
002358                                                                                                           000000     002358
002359     // Get access to current array item                                                                   000000     002359
002360     if (MultiRef_doCaptureData() and MultiRef_hasItemIndex());                                  B01       000000     002360
002361        x = MultiRef_getItemIndex();                                                              01       000000     002361
002362     else;                                                                                       X01       000000     002362
002363        x = ns_entry.x;                                                                           01       000000     002363
002364     endif;                                                                                      E01       000000     002364
002365                                                                                                           000000     002365
002366     StaticArray_checkIndex(                                                                               000000     002366
002367        'ns_entry.string'                                                                                  000000     002367
002368        : x                                                                                                000000     002368
002369        : %elem(ns_entry.string)                                                                           000000     002369
002370        : 'DIM_A2');                                                                                       000000     002370
002371                                                                                                           000000     002371
002372     pCurrentItem = %addr(ns_entry.string(x));                                                             000000     002372
002373                                                                                                           000000     002373
002374     // Get full element data                                                                              000000     002374
002375     itemValue = XMLSAXParser_getFullElementData();                                                        000000     002375
002376                                                                                                           000000     002376
002377     select;                                                                                     B01       000000     002377
002378     when (depth = 1);                                                                           X01       000000     002378
002379        if (not Value_isNil(attrs));                                                             B02       000000     002379
002380           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002380
002381           UnMarshaller_toStringV6(                                                               02       000000     002381
002382              %addr(currentItem)                                                                  02       000000     002382
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    409
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002383              : %addr(currentItem: *DATA)                                                         02       000000     002383
002384              : %size(currentItem)                                                                02       000000     002384
002385              : itemValue.pData                                                                   02       000000     002385
002386              : itemValue.size);                                                                  02       000000     002386
002387        endif;                                                                                   E02       000000     002387
002388                                                                                                           000000     002388
002389     endsl;                                                                                      E01       000000     002389
002390                                                                                                           000000     002390
002391  /end-free                                                                                                000000     002391
002392  *                                                                                                        000000     002392
002393 P                 E                                                                                       000000     002393
002394  *                                                                                                        000000     002394
002395  * ==================================================================                                     000000     002395
002396  * Return value: ns:orderItems                                                                            000000     002396
002397  * ==================================================================                                     000000     002397
002398 P ns_ArrayOfOrderItemsStart...                                                                            000000     002398
002399 P                 B                                                                                       000000     002399
002400 D                 PI                                                                                      000000     002400
002401 D  userdata                       *   value                                                               000000     002401
002402 D  depth                        10I 0 value                                                               000000     002402
002403 D  namespace                  1024A   varying const                                                       000000     002403
002404 D  name                       1024A   varying const                                                       000000     002404
002405 D  path                      24576A   varying const                                                       000000     002405
002406 D  attrs                          *   dim(32767)                                                          000000     002406
002407 D                                     const options(*varsize)                                             000000     002407
002408  *                                                                                                        000000     002408
002409 D currentItem     DS                  likeds(ns_ArrayOfOrderItems_t)                                      000000     002409
002410 D                                     based(pCurrentItem)                                                 000000     002410
002411  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     002411
002412  /free                                                                                                    000000     002412
002413                                                                                                           000000     002413
002414     // Get access to current item                                                                         000000     002414
002415     pCurrentItem = userdata;                                                                              000000     002415
002416                                                                                                           000000     002416
002417     select;                                                                                     B01       000000     002417
002418     when (depth = 1);                                                                           X01       000000     002418
002419        if (MultiRef_isReference(attrs));                                                        B02       000000     002419
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    410
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002420           MultiRef_put(                                                                          02       000000     002420
002421              attrs                                                                               02       000000     002421
002422              : XMLSAXParser_getUserData()                                                        02       000000     002422
002423              : depth                                                                             02       000000     002423
002424              : namespace                                                                         02       000000     002424
002425              : name                                                                              02       000000     002425
002426              : path                                                                              02       000000     002426
002427              : XMLSAXParser_getStartCallback()                                                   02       000000     002427
002428              : XMLSAXParser_getEndCallback()                                                     02       000000     002428
002429              : *omit                                                                             02       000000     002429
002430              : %addr(currentItem)                                                                02       000000     002430
002431              : %size(currentItem)                                                                02       000000     002431
002432              );                                                                                  02       000000     002432
002433        endif;                                                                                   E02       000000     002433
002434        return;                                                                                   01       000000     002434
002435                                                                                                           000000     002435
002436     when (depth = 2                                                                             X01       000000     002436
002437            and                                                                                  X01       000000     002437
002438            name = 'orderItem');                                                                 X01       000000     002438
002439        XMLSAXParser_delegateElementProcessing(                                                   01       000000     002439
002440           %addr(currentItem.orderItem)                                                           01       000000     002440
002441           : %paddr('ns_orderItemStart_of_ns_ArrayOfOrderItems')                                  01       000000     002441
002442           : %paddr('ns_orderItemEnd_of_ns_ArrayOfOrderItems')                                    01       000000     002442
002443           );                                                                                     01       000000     002443
002444        return;                                                                                   01       000000     002444
002445                                                                                                           000000     002445
002446     endsl;                                                                                      E01       000000     002446
002447                                                                                                           000000     002447
002448  /end-free                                                                                                000000     002448
002449  *                                                                                                        000000     002449
002450 P                 E                                                                                       000000     002450
002451  *                                                                                                        000000     002451
002452  * ==================================================================                                     000000     002452
002453  * Return value: ns:orderItems                                                                            000000     002453
002454  * ==================================================================                                     000000     002454
002455 P ns_ArrayOfOrderItemsEnd...                                                                              000000     002455
002456 P                 B                                                                                       000000     002456
002457 D                 PI                                                                                      000000     002457
002458 D  userdata                       *   value                                                               000000     002458
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    411
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002459 D  depth                        10I 0 value                                                               000000     002459
002460 D  namespace                  1024A   varying const                                                       000000     002460
002461 D  name                       1024A   varying const                                                       000000     002461
002462 D  path                      24576A   varying const                                                       000000     002462
002463 D  value                     65535A   varying                                                             000000     002463
002464 D  attrs                          *   dim(32767)                                                          000000     002464
002465 D                                     const options(*varsize)                                             000000     002465
002466  *                                                                                                        000000     002466
002467 D currentItem     DS                  likeds(ns_ArrayOfOrderItems_t)                                      000000     002467
002468 D                                     based(pCurrentItem)                                                 000000     002468
002469  *                                                                                                        000000     002469
002470 D itemValue       DS                  likeds(wsdl_fullElementData_t)                                      000000     002470
002471 D                                     inz                                                                 000000     002471
002472  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     002472
002473  /free                                                                                                    000000     002473
002474                                                                                                           000000     002474
002475     // Get access to current item                                                                         000000     002475
002476     pCurrentItem = userdata;                                                                              000000     002476
002477                                                                                                           000000     002477
002478     // Get full element data                                                                              000000     002478
002479     itemValue = XMLSAXParser_getFullElementData();                                                        000000     002479
002480                                                                                                           000000     002480
002481     select;                                                                                     B01       000000     002481
002482     endsl;                                                                                      E01       000000     002482
002483                                                                                                           000000     002483
002484  /end-free                                                                                                000000     002484
002485  *                                                                                                        000000     002485
002486 P                 E                                                                                       000000     002486
002487  *                                                                                                        000000     002487
002488  * ==================================================================                                     000000     002488
002489  * Return value: ns:orderItem                                                                             000000     002489
002490  * ==================================================================                                     000000     002490
002491 P ns_orderItemStart_of_ns_ArrayOfOrderItems...                                                            000000     002491
002492 P                 B                                                                                       000000     002492
002493 D                 PI                                                                                      000000     002493
002494 D  userdata                       *   value                                                               000000     002494
002495 D  depth                        10I 0 value                                                               000000     002495
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    412
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002496 D  namespace                  1024A   varying const                                                       000000     002496
002497 D  name                       1024A   varying const                                                       000000     002497
002498 D  path                      24576A   varying const                                                       000000     002498
002499 D  attrs                          *   dim(32767)                                                          000000     002499
002500 D                                     const options(*varsize)                                             000000     002500
002501  *                                                                                                        000000     002501
002502 D x               S             10I 0 inz                                                                 000000     002502
002503  *                                                                                                        000000     002503
002504 D ns_orderItem    DS                  likeds(ns_RpgArrayOfOrderItem_t)                                    000000     002504
002505 D                                     based(userdata)                                                     000000     002505
002506  *                                                                                                        000000     002506
002507 D currentItem     DS                  likeds(ns_timianOrderItem_t)                                        000000     002507
002508 D                                     based(pCurrentItem)                                                 000000     002508
002509  *                                                                                                        000000     002509
002510 D emptyItem       DS                  likeds(ns_timianOrderItem_t)                                        000000     002510
002511 D                                     inz                                                                 000000     002511
002512  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     002512
002513  /free                                                                                                    000000     002513
002514                                                                                                           000000     002514
002515     // Get access to current array item                                                                   000000     002515
002516     if (MultiRef_doCaptureData() and MultiRef_hasItemIndex());                                  B01       000000     002516
002517        x = MultiRef_getItemIndex();                                                              01       000000     002517
002518     else;                                                                                       X01       000000     002518
002519        if (depth = 1);                                                                          B02       000000     002519
002520           ns_orderItem.x = ns_orderItem.x + 1;                                                   02       000000     002520
002521        endif;                                                                                   E02       000000     002521
002522        x = ns_orderItem.x;                                                                       01       000000     002522
002523     endif;                                                                                      E01       000000     002523
002524                                                                                                           000000     002524
002525     StaticArray_checkIndex(                                                                               000000     002525
002526        'ns_orderItem.timianOrderItem'                                                                     000000     002526
002527        : x                                                                                                000000     002527
002528        : %elem(ns_orderItem.timianOrderItem)                                                              000000     002528
002529        : 'DIM_A3');                                                                                       000000     002529
002530                                                                                                           000000     002530
002531     pCurrentItem = %addr(ns_orderItem.timianOrderItem(x));                                                000000     002531
002532                                                                                                           000000     002532
002533     select;                                                                                     B01       000000     002533
002534     when (depth = 1);                                                                           X01       000000     002534
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    413
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002535        if (MultiRef_isReference(attrs));                                                        B02       000000     002535
002536           MultiRef_put(                                                                          02       000000     002536
002537              attrs                                                                               02       000000     002537
002538              : XMLSAXParser_getUserData()                                                        02       000000     002538
002539              : depth                                                                             02       000000     002539
002540              : namespace                                                                         02       000000     002540
002541              : name                                                                              02       000000     002541
002542              : path                                                                              02       000000     002542
002543              : XMLSAXParser_getStartCallback()                                                   02       000000     002543
002544              : XMLSAXParser_getEndCallback()                                                     02       000000     002544
002545              : x                                                                                 02       000000     002545
002546              : %addr(currentItem)                                                                02       000000     002546
002547              : %size(currentItem)                                                                02       000000     002547
002548              );                                                                                  02       000000     002548
002549        endif;                                                                                   E02       000000     002549
002550        return;                                                                                   01       000000     002550
002551                                                                                                           000000     002551
002552     when (depth = 2                                                                             X01       000000     002552
002553            and                                                                                  X01       000000     002553
002554            name = 'orderRefId');                                                                X01       000000     002554
002555        // Value is retrieved in corresponding END procedure                                               000000     002555
002556        if (MultiRef_isReference(attrs));                                                        B02       000000     002556
002557           MultiRef_put(                                                                          02       000000     002557
002558              attrs                                                                               02       000000     002558
002559              : XMLSAXParser_getUserData()                                                        02       000000     002559
002560              : depth                                                                             02       000000     002560
002561              : namespace                                                                         02       000000     002561
002562              : name                                                                              02       000000     002562
002563              : path                                                                              02       000000     002563
002564              : XMLSAXParser_getStartCallback()                                                   02       000000     002564
002565              : XMLSAXParser_getEndCallback()                                                     02       000000     002565
002566              : x                                                                                 02       000000     002566
002567              : %addr(currentItem.orderRefId)                                                     02       000000     002567
002568              : %size(currentItem.orderRefId)                                                     02       000000     002568
002569              );                                                                                  02       000000     002569
002570        endif;                                                                                   E02       000000     002570
002571        return;                                                                                   01       000000     002571
002572                                                                                                           000000     002572
002573     when (depth = 2                                                                             X01       000000     002573
002574            and                                                                                  X01       000000     002574
002575            name = 'itemId');                                                                    X01       000000     002575
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    414
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002576        // Value is retrieved in corresponding END procedure                                               000000     002576
002577        if (MultiRef_isReference(attrs));                                                        B02       000000     002577
002578           MultiRef_put(                                                                          02       000000     002578
002579              attrs                                                                               02       000000     002579
002580              : XMLSAXParser_getUserData()                                                        02       000000     002580
002581              : depth                                                                             02       000000     002581
002582              : namespace                                                                         02       000000     002582
002583              : name                                                                              02       000000     002583
002584              : path                                                                              02       000000     002584
002585              : XMLSAXParser_getStartCallback()                                                   02       000000     002585
002586              : XMLSAXParser_getEndCallback()                                                     02       000000     002586
002587              : x                                                                                 02       000000     002587
002588              : %addr(currentItem.itemId)                                                         02       000000     002588
002589              : %size(currentItem.itemId)                                                         02       000000     002589
002590              );                                                                                  02       000000     002590
002591        endif;                                                                                   E02       000000     002591
002592        return;                                                                                   01       000000     002592
002593                                                                                                           000000     002593
002594     when (depth = 2                                                                             X01       000000     002594
002595            and                                                                                  X01       000000     002595
002596            name = 'refModelId');                                                                X01       000000     002596
002597        // Value is retrieved in corresponding END procedure                                               000000     002597
002598        if (MultiRef_isReference(attrs));                                                        B02       000000     002598
002599           MultiRef_put(                                                                          02       000000     002599
002600              attrs                                                                               02       000000     002600
002601              : XMLSAXParser_getUserData()                                                        02       000000     002601
002602              : depth                                                                             02       000000     002602
002603              : namespace                                                                         02       000000     002603
002604              : name                                                                              02       000000     002604
002605              : path                                                                              02       000000     002605
002606              : XMLSAXParser_getStartCallback()                                                   02       000000     002606
002607              : XMLSAXParser_getEndCallback()                                                     02       000000     002607
002608              : x                                                                                 02       000000     002608
002609              : %addr(currentItem.refModelId)                                                     02       000000     002609
002610              : %size(currentItem.refModelId)                                                     02       000000     002610
002611              );                                                                                  02       000000     002611
002612        endif;                                                                                   E02       000000     002612
002613        return;                                                                                   01       000000     002613
002614                                                                                                           000000     002614
002615     when (depth = 2                                                                             X01       000000     002615
002616            and                                                                                  X01       000000     002616
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    415
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002617            name = 'model');                                                                     X01       000000     002617
002618        // Value is retrieved in corresponding END procedure                                               000000     002618
002619        if (MultiRef_isReference(attrs));                                                        B02       000000     002619
002620           MultiRef_put(                                                                          02       000000     002620
002621              attrs                                                                               02       000000     002621
002622              : XMLSAXParser_getUserData()                                                        02       000000     002622
002623              : depth                                                                             02       000000     002623
002624              : namespace                                                                         02       000000     002624
002625              : name                                                                              02       000000     002625
002626              : path                                                                              02       000000     002626
002627              : XMLSAXParser_getStartCallback()                                                   02       000000     002627
002628              : XMLSAXParser_getEndCallback()                                                     02       000000     002628
002629              : x                                                                                 02       000000     002629
002630              : %addr(currentItem.model)                                                          02       000000     002630
002631              : %size(currentItem.model)                                                          02       000000     002631
002632              );                                                                                  02       000000     002632
002633        endif;                                                                                   E02       000000     002633
002634        return;                                                                                   01       000000     002634
002635                                                                                                           000000     002635
002636     when (depth = 2                                                                             X01       000000     002636
002637            and                                                                                  X01       000000     002637
002638            name = 'barCode');                                                                   X01       000000     002638
002639        // Value is retrieved in corresponding END procedure                                               000000     002639
002640        if (MultiRef_isReference(attrs));                                                        B02       000000     002640
002641           MultiRef_put(                                                                          02       000000     002641
002642              attrs                                                                               02       000000     002642
002643              : XMLSAXParser_getUserData()                                                        02       000000     002643
002644              : depth                                                                             02       000000     002644
002645              : namespace                                                                         02       000000     002645
002646              : name                                                                              02       000000     002646
002647              : path                                                                              02       000000     002647
002648              : XMLSAXParser_getStartCallback()                                                   02       000000     002648
002649              : XMLSAXParser_getEndCallback()                                                     02       000000     002649
002650              : x                                                                                 02       000000     002650
002651              : %addr(currentItem.barCode)                                                        02       000000     002651
002652              : %size(currentItem.barCode)                                                        02       000000     002652
002653              );                                                                                  02       000000     002653
002654        endif;                                                                                   E02       000000     002654
002655        return;                                                                                   01       000000     002655
002656                                                                                                           000000     002656
002657     when (depth = 2                                                                             X01       000000     002657
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    416
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002658            and                                                                                  X01       000000     002658
002659            name = 'title');                                                                     X01       000000     002659
002660        // Value is retrieved in corresponding END procedure                                               000000     002660
002661        if (MultiRef_isReference(attrs));                                                        B02       000000     002661
002662           MultiRef_put(                                                                          02       000000     002662
002663              attrs                                                                               02       000000     002663
002664              : XMLSAXParser_getUserData()                                                        02       000000     002664
002665              : depth                                                                             02       000000     002665
002666              : namespace                                                                         02       000000     002666
002667              : name                                                                              02       000000     002667
002668              : path                                                                              02       000000     002668
002669              : XMLSAXParser_getStartCallback()                                                   02       000000     002669
002670              : XMLSAXParser_getEndCallback()                                                     02       000000     002670
002671              : x                                                                                 02       000000     002671
002672              : %addr(currentItem.title)                                                          02       000000     002672
002673              : %size(currentItem.title)                                                          02       000000     002673
002674              );                                                                                  02       000000     002674
002675        endif;                                                                                   E02       000000     002675
002676        return;                                                                                   01       000000     002676
002677                                                                                                           000000     002677
002678     when (depth = 2                                                                             X01       000000     002678
002679            and                                                                                  X01       000000     002679
002680            name = 'qty');                                                                       X01       000000     002680
002681        // Value is retrieved in corresponding END procedure                                               000000     002681
002682        if (MultiRef_isReference(attrs));                                                        B02       000000     002682
002683           MultiRef_put(                                                                          02       000000     002683
002684              attrs                                                                               02       000000     002684
002685              : XMLSAXParser_getUserData()                                                        02       000000     002685
002686              : depth                                                                             02       000000     002686
002687              : namespace                                                                         02       000000     002687
002688              : name                                                                              02       000000     002688
002689              : path                                                                              02       000000     002689
002690              : XMLSAXParser_getStartCallback()                                                   02       000000     002690
002691              : XMLSAXParser_getEndCallback()                                                     02       000000     002691
002692              : x                                                                                 02       000000     002692
002693              : %addr(currentItem.qty)                                                            02       000000     002693
002694              : %size(currentItem.qty)                                                            02       000000     002694
002695              );                                                                                  02       000000     002695
002696        endif;                                                                                   E02       000000     002696
002697        return;                                                                                   01       000000     002697
002698                                                                                                           000000     002698
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    417
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002699     when (depth = 2                                                                             X01       000000     002699
002700            and                                                                                  X01       000000     002700
002701            name = 'qtyDelivered');                                                              X01       000000     002701
002702        // Value is retrieved in corresponding END procedure                                               000000     002702
002703        if (MultiRef_isReference(attrs));                                                        B02       000000     002703
002704           MultiRef_put(                                                                          02       000000     002704
002705              attrs                                                                               02       000000     002705
002706              : XMLSAXParser_getUserData()                                                        02       000000     002706
002707              : depth                                                                             02       000000     002707
002708              : namespace                                                                         02       000000     002708
002709              : name                                                                              02       000000     002709
002710              : path                                                                              02       000000     002710
002711              : XMLSAXParser_getStartCallback()                                                   02       000000     002711
002712              : XMLSAXParser_getEndCallback()                                                     02       000000     002712
002713              : x                                                                                 02       000000     002713
002714              : %addr(currentItem.qtyDelivered)                                                   02       000000     002714
002715              : %size(currentItem.qtyDelivered)                                                   02       000000     002715
002716              );                                                                                  02       000000     002716
002717        endif;                                                                                   E02       000000     002717
002718        return;                                                                                   01       000000     002718
002719                                                                                                           000000     002719
002720     when (depth = 2                                                                             X01       000000     002720
002721            and                                                                                  X01       000000     002721
002722            name = 'qtyUnits');                                                                  X01       000000     002722
002723        // Value is retrieved in corresponding END procedure                                               000000     002723
002724        if (MultiRef_isReference(attrs));                                                        B02       000000     002724
002725           MultiRef_put(                                                                          02       000000     002725
002726              attrs                                                                               02       000000     002726
002727              : XMLSAXParser_getUserData()                                                        02       000000     002727
002728              : depth                                                                             02       000000     002728
002729              : namespace                                                                         02       000000     002729
002730              : name                                                                              02       000000     002730
002731              : path                                                                              02       000000     002731
002732              : XMLSAXParser_getStartCallback()                                                   02       000000     002732
002733              : XMLSAXParser_getEndCallback()                                                     02       000000     002733
002734              : x                                                                                 02       000000     002734
002735              : %addr(currentItem.qtyUnits)                                                       02       000000     002735
002736              : %size(currentItem.qtyUnits)                                                       02       000000     002736
002737              );                                                                                  02       000000     002737
002738        endif;                                                                                   E02       000000     002738
002739        return;                                                                                   01       000000     002739
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    418
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002740                                                                                                           000000     002740
002741     when (depth = 2                                                                             X01       000000     002741
002742            and                                                                                  X01       000000     002742
002743            name = 'units');                                                                     X01       000000     002743
002744        // Value is retrieved in corresponding END procedure                                               000000     002744
002745        if (MultiRef_isReference(attrs));                                                        B02       000000     002745
002746           MultiRef_put(                                                                          02       000000     002746
002747              attrs                                                                               02       000000     002747
002748              : XMLSAXParser_getUserData()                                                        02       000000     002748
002749              : depth                                                                             02       000000     002749
002750              : namespace                                                                         02       000000     002750
002751              : name                                                                              02       000000     002751
002752              : path                                                                              02       000000     002752
002753              : XMLSAXParser_getStartCallback()                                                   02       000000     002753
002754              : XMLSAXParser_getEndCallback()                                                     02       000000     002754
002755              : x                                                                                 02       000000     002755
002756              : %addr(currentItem.units)                                                          02       000000     002756
002757              : %size(currentItem.units)                                                          02       000000     002757
002758              );                                                                                  02       000000     002758
002759        endif;                                                                                   E02       000000     002759
002760        return;                                                                                   01       000000     002760
002761                                                                                                           000000     002761
002762     when (depth = 2                                                                             X01       000000     002762
002763            and                                                                                  X01       000000     002763
002764            name = 'amount');                                                                    X01       000000     002764
002765        // Value is retrieved in corresponding END procedure                                               000000     002765
002766        if (MultiRef_isReference(attrs));                                                        B02       000000     002766
002767           MultiRef_put(                                                                          02       000000     002767
002768              attrs                                                                               02       000000     002768
002769              : XMLSAXParser_getUserData()                                                        02       000000     002769
002770              : depth                                                                             02       000000     002770
002771              : namespace                                                                         02       000000     002771
002772              : name                                                                              02       000000     002772
002773              : path                                                                              02       000000     002773
002774              : XMLSAXParser_getStartCallback()                                                   02       000000     002774
002775              : XMLSAXParser_getEndCallback()                                                     02       000000     002775
002776              : x                                                                                 02       000000     002776
002777              : %addr(currentItem.amount)                                                         02       000000     002777
002778              : %size(currentItem.amount)                                                         02       000000     002778
002779              );                                                                                  02       000000     002779
002780        endif;                                                                                   E02       000000     002780
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    419
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002781        return;                                                                                   01       000000     002781
002782                                                                                                           000000     002782
002783     when (depth = 2                                                                             X01       000000     002783
002784            and                                                                                  X01       000000     002784
002785            name = 'amountWithVAT');                                                             X01       000000     002785
002786        // Value is retrieved in corresponding END procedure                                               000000     002786
002787        if (MultiRef_isReference(attrs));                                                        B02       000000     002787
002788           MultiRef_put(                                                                          02       000000     002788
002789              attrs                                                                               02       000000     002789
002790              : XMLSAXParser_getUserData()                                                        02       000000     002790
002791              : depth                                                                             02       000000     002791
002792              : namespace                                                                         02       000000     002792
002793              : name                                                                              02       000000     002793
002794              : path                                                                              02       000000     002794
002795              : XMLSAXParser_getStartCallback()                                                   02       000000     002795
002796              : XMLSAXParser_getEndCallback()                                                     02       000000     002796
002797              : x                                                                                 02       000000     002797
002798              : %addr(currentItem.amountWithVAT)                                                  02       000000     002798
002799              : %size(currentItem.amountWithVAT)                                                  02       000000     002799
002800              );                                                                                  02       000000     002800
002801        endif;                                                                                   E02       000000     002801
002802        return;                                                                                   01       000000     002802
002803                                                                                                           000000     002803
002804     endsl;                                                                                      E01       000000     002804
002805                                                                                                           000000     002805
002806  /end-free                                                                                                000000     002806
002807  *                                                                                                        000000     002807
002808 P                 E                                                                                       000000     002808
002809  *                                                                                                        000000     002809
002810  * ==================================================================                                     000000     002810
002811  * Return value: ns:orderItem                                                                             000000     002811
002812  * ==================================================================                                     000000     002812
002813 P ns_orderItemEnd_of_ns_ArrayOfOrderItems...                                                              000000     002813
002814 P                 B                                                                                       000000     002814
002815 D                 PI                                                                                      000000     002815
002816 D  userdata                       *   value                                                               000000     002816
002817 D  depth                        10I 0 value                                                               000000     002817
002818 D  namespace                  1024A   varying const                                                       000000     002818
002819 D  name                       1024A   varying const                                                       000000     002819
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    420
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002820 D  path                      24576A   varying const                                                       000000     002820
002821 D  value                     65535A   varying                                                             000000     002821
002822 D  attrs                          *   dim(32767)                                                          000000     002822
002823 D                                     const options(*varsize)                                             000000     002823
002824  *                                                                                                        000000     002824
002825 D x               S             10I 0 inz                                                                 000000     002825
002826  *                                                                                                        000000     002826
002827 D ns_orderItem    DS                  likeds(ns_RpgArrayOfOrderItem_t)                                    000000     002827
002828 D                                     based(userdata)                                                     000000     002828
002829  *                                                                                                        000000     002829
002830 D currentItem     DS                  likeds(ns_timianOrderItem_t)                                        000000     002830
002831 D                                     based(pCurrentItem)                                                 000000     002831
002832  *                                                                                                        000000     002832
002833 D itemValue       DS                  likeds(wsdl_fullElementData_t)                                      000000     002833
002834 D                                     inz                                                                 000000     002834
002835  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                      000000     002835
002836  /free                                                                                                    000000     002836
002837                                                                                                           000000     002837
002838     // Get access to current array item                                                                   000000     002838
002839     if (MultiRef_doCaptureData() and MultiRef_hasItemIndex());                                  B01       000000     002839
002840        x = MultiRef_getItemIndex();                                                              01       000000     002840
002841     else;                                                                                       X01       000000     002841
002842        x = ns_orderItem.x;                                                                       01       000000     002842
002843     endif;                                                                                      E01       000000     002843
002844                                                                                                           000000     002844
002845     StaticArray_checkIndex(                                                                               000000     002845
002846        'ns_orderItem.timianOrderItem'                                                                     000000     002846
002847        : x                                                                                                000000     002847
002848        : %elem(ns_orderItem.timianOrderItem)                                                              000000     002848
002849        : 'DIM_A3');                                                                                       000000     002849
002850                                                                                                           000000     002850
002851     pCurrentItem = %addr(ns_orderItem.timianOrderItem(x));                                                000000     002851
002852                                                                                                           000000     002852
002853     // Get full element data                                                                              000000     002853
002854     itemValue = XMLSAXParser_getFullElementData();                                                        000000     002854
002855                                                                                                           000000     002855
002856     select;                                                                                     B01       000000     002856
002857     when (depth = 2                                                                             X01       000000     002857
002858            and                                                                                  X01       000000     002858
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    421
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002859            name = 'orderRefId');                                                                X01       000000     002859
002860        if (not Value_isNil(attrs));                                                             B02       000000     002860
002861           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002861
002862           currentItem.orderRefId =                                                               02       000000     002862
002863              UnMarshaller_toInt(value);                                                          02       000000     002863
002864        endif;                                                                                   E02       000000     002864
002865                                                                                                           000000     002865
002866     when (depth = 2                                                                             X01       000000     002866
002867            and                                                                                  X01       000000     002867
002868            name = 'itemId');                                                                    X01       000000     002868
002869        if (not Value_isNil(attrs));                                                             B02       000000     002869
002870           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002870
002871           currentItem.itemId =                                                                   02       000000     002871
002872              UnMarshaller_toInt(value);                                                          02       000000     002872
002873        endif;                                                                                   E02       000000     002873
002874                                                                                                           000000     002874
002875     when (depth = 2                                                                             X01       000000     002875
002876            and                                                                                  X01       000000     002876
002877            name = 'refModelId');                                                                X01       000000     002877
002878        if (not Value_isNil(attrs));                                                             B02       000000     002878
002879           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002879
002880           currentItem.refModelId =                                                               02       000000     002880
002881              UnMarshaller_toInt(value);                                                          02       000000     002881
002882        endif;                                                                                   E02       000000     002882
002883                                                                                                           000000     002883
002884     when (depth = 2                                                                             X01       000000     002884
002885            and                                                                                  X01       000000     002885
002886            name = 'model');                                                                     X01       000000     002886
002887        if (not Value_isNil(attrs));                                                             B02       000000     002887
002888           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002888
002889           UnMarshaller_toStringV6(                                                               02       000000     002889
002890              %addr(currentItem.model)                                                            02       000000     002890
002891              : %addr(currentItem.model: *DATA)                                                   02       000000     002891
002892              : %size(currentItem.model)                                                          02       000000     002892
002893              : itemValue.pData                                                                   02       000000     002893
002894              : itemValue.size);                                                                  02       000000     002894
002895        endif;                                                                                   E02       000000     002895
002896                                                                                                           000000     002896
002897     when (depth = 2                                                                             X01       000000     002897
002898            and                                                                                  X01       000000     002898
002899            name = 'barCode');                                                                   X01       000000     002899
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    422
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002900        if (not Value_isNil(attrs));                                                             B02       000000     002900
002901           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002901
002902           UnMarshaller_toStringV6(                                                               02       000000     002902
002903              %addr(currentItem.barCode)                                                          02       000000     002903
002904              : %addr(currentItem.barCode: *DATA)                                                 02       000000     002904
002905              : %size(currentItem.barCode)                                                        02       000000     002905
002906              : itemValue.pData                                                                   02       000000     002906
002907              : itemValue.size);                                                                  02       000000     002907
002908        endif;                                                                                   E02       000000     002908
002909                                                                                                           000000     002909
002910     when (depth = 2                                                                             X01       000000     002910
002911            and                                                                                  X01       000000     002911
002912            name = 'title');                                                                     X01       000000     002912
002913        if (not Value_isNil(attrs));                                                             B02       000000     002913
002914           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002914
002915           UnMarshaller_toStringV6(                                                               02       000000     002915
002916              %addr(currentItem.title)                                                            02       000000     002916
002917              : %addr(currentItem.title: *DATA)                                                   02       000000     002917
002918              : %size(currentItem.title)                                                          02       000000     002918
002919              : itemValue.pData                                                                   02       000000     002919
002920              : itemValue.size);                                                                  02       000000     002920
002921        endif;                                                                                   E02       000000     002921
002922                                                                                                           000000     002922
002923     when (depth = 2                                                                             X01       000000     002923
002924            and                                                                                  X01       000000     002924
002925            name = 'qty');                                                                       X01       000000     002925
002926        if (not Value_isNil(attrs));                                                             B02       000000     002926
002927           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002927
002928           currentItem.qty =                                                                      02       000000     002928
002929              UnMarshaller_toFloat(value);                                                        02       000000     002929
002930        endif;                                                                                   E02       000000     002930
002931                                                                                                           000000     002931
002932     when (depth = 2                                                                             X01       000000     002932
002933            and                                                                                  X01       000000     002933
002934            name = 'qtyDelivered');                                                              X01       000000     002934
002935        if (not Value_isNil(attrs));                                                             B02       000000     002935
002936           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002936
002937           currentItem.qtyDelivered =                                                             02       000000     002937
002938              UnMarshaller_toFloat(value);                                                        02       000000     002938
002939        endif;                                                                                   E02       000000     002939
002940                                                                                                           000000     002940
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    423
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002941     when (depth = 2                                                                             X01       000000     002941
002942            and                                                                                  X01       000000     002942
002943            name = 'qtyUnits');                                                                  X01       000000     002943
002944        if (not Value_isNil(attrs));                                                             B02       000000     002944
002945           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002945
002946           currentItem.qtyUnits =                                                                 02       000000     002946
002947              UnMarshaller_toFloat(value);                                                        02       000000     002947
002948        endif;                                                                                   E02       000000     002948
002949                                                                                                           000000     002949
002950     when (depth = 2                                                                             X01       000000     002950
002951            and                                                                                  X01       000000     002951
002952            name = 'units');                                                                     X01       000000     002952
002953        if (not Value_isNil(attrs));                                                             B02       000000     002953
002954           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002954
002955           UnMarshaller_toStringV6(                                                               02       000000     002955
002956              %addr(currentItem.units)                                                            02       000000     002956
002957              : %addr(currentItem.units: *DATA)                                                   02       000000     002957
002958              : %size(currentItem.units)                                                          02       000000     002958
002959              : itemValue.pData                                                                   02       000000     002959
002960              : itemValue.size);                                                                  02       000000     002960
002961        endif;                                                                                   E02       000000     002961
002962                                                                                                           000000     002962
002963     when (depth = 2                                                                             X01       000000     002963
002964            and                                                                                  X01       000000     002964
002965            name = 'amount');                                                                    X01       000000     002965
002966        if (not Value_isNil(attrs));                                                             B02       000000     002966
002967           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002967
002968           currentItem.amount =                                                                   02       000000     002968
002969              UnMarshaller_toFloat(value);                                                        02       000000     002969
002970        endif;                                                                                   E02       000000     002970
002971                                                                                                           000000     002971
002972     when (depth = 2                                                                             X01       000000     002972
002973            and                                                                                  X01       000000     002973
002974            name = 'amountWithVAT');                                                             X01       000000     002974
002975        if (not Value_isNil(attrs));                                                             B02       000000     002975
002976           UnMarshaller_setFieldIdentifier(name: path: x);                                        02       000000     002976
002977           currentItem.amountWithVAT =                                                            02       000000     002977
002978              UnMarshaller_toFloat(value);                                                        02       000000     002978
002979        endif;                                                                                   E02       000000     002979
002980                                                                                                           000000     002980
002981     endsl;                                                                                      E01       000000     002981
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    424
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
002982                                                                                                           000000     002982
002983  /end-free                                                                                                000000     002983
002984  *                                                                                                        000000     002984
002985 P                 E                                                                                       000000     002985
002986  *                                                                                                        000000     002986
002987  * =====================================================================                                  000000     002987
002988  *   Reopens a given input stream in order to send it over                                                000000     002988
002989  *   the wire again.                                                                                      000000     002989
002990  * =====================================================================                                  000000     002990
002991 P reOpenInputStream...                                                                                    000000     002991
002992 P                 B                                                                                       000000     002992
002993 D                 PI                         like(wsdl_hStream_t    )                                     000000     002993
002994 D  i_hMsgCtx                          const  like(wsdl_hMsgCtx_t    )                                     000000     002994
002995 D  i_hInpStream                       value  like(wsdl_hStream_t    )                                     000000     002995
002996  *                                                                                                        000000     002996
002997  *  Return value                                                                                          000000     002997
002998 D hInpStream      S                   like(wsdl_hStream_t       ) inz                                     000000     002998
002999  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     002999
003000  /free                                                                                                    000000     003000
003001                                                                                                           000000     003001
003002     MessageContext_InputStream_close(i_hInpStream);                                                       000000     003002
003003     hInpStream = MessageContext_InputStream_open(i_hMsgCtx);                                              000000     003003
003004                                                                                                           000000     003004
003005     return hInpStream;                                                                                    000000     003005
003006                                                                                                           000000     003006
003007  /end-free                                                                                                000000     003007
003008 P                 E                                                                                       000000     003008
003009  *                                                                                                        000000     003009
003010  * =====================================================================                                  000000     003010
003011  *   Login in to proxy server or http server.                                                             000000     003011
003012  *   Returns WSDL_SUCCESS on success, else WSDL_ERROR.                                                    000000     003012
003013  * =====================================================================                                  000000     003013
003014 P login...                                                                                                000000     003014
003015 P                 B                                                                                       000000     003015
003016 D                 PI            10I 0                                                                     000000     003016
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    425
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003017  *                                                                                                        000000     003017
003018  *  Return value                                                                                          000000     003018
003019 D rc              S             10I 0 inz                                                                 000000     003019
003020  *                                                                                                        000000     003020
003021  *  Local fields                                                                                          000000     003021
003022 D currErr         S             10I 0 inz                                                                 000000     003022
003023  *                                                                                                        000000     003023
003024  *  Local fields (static)                                                                                 000000     003024
003025 D lastErr         S             10I 0 inz static                                                          000000     003025
003026 D numAttempts     S             10I 0 inz static                                                          000000     003026
003027  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003027
003028  /free                                                                                                    000000     003028
003029                                                                                                           000000     003029
003030     http_DebugLog_appendText(                                                                             000000     003030
003031     '** ' + %char(%timestamp()) + ': Requesting user name and password');                                 000000     003031
003032                                                                                                           000000     003032
003033     http_error(currErr);                // Keep track of the number                                       000000     003033
003034     if (currErr <> lastErr);            // of failed login attempts.                            B01       000000     003034
003035        lastErr = currErr;                                                                        01       000000     003035
003036        numAttempts = 1;                                                                          01       000000     003036
003037     else;                                                                                       X01       000000     003037
003038        numAttempts = numAttempts + 1;                                                            01       000000     003038
003039     endif;                                                                                      E01       000000     003039
003040                                                                                                           000000     003040
003041     rc = timianOrdersPort_Port_login(                                                                     000000     003041
003042                currErr: numAttempts);                                                                     000000     003042
003043                                                                                                           000000     003043
003044     return rc;                                                                                            000000     003044
003045                                                                                                           000000     003045
003046  /end-free                                                                                                000000     003046
003047 P                 E                                                                                       000000     003047
003048  *                                                                                                        000000     003048
003049  * =====================================================================                                  000000     003049
003050  *   Sets the content type and the SOAP action of the POST message.                                       000000     003050
003051  * =====================================================================                                  000000     003051
003052 P HTTP_setContentTypeAndSOAPAction...                                                                     000000     003052
003053 P                 B                                                                                       000000     003053
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    426
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003054 D                 PI                                                                                      000000     003054
003055 D  o_addlHdrs                 1024A          varying                                                      000000     003055
003056 D  i_pUserData                    *   value                                                               000000     003056
003057  *                                                                                                        000000     003057
003058  *  User Data                                                                                             000000     003058
003059 D headers         DS                  likeds(headers_t) based(i_pUserData)                                000000     003059
003060  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003060
003061  /free                                                                                                    000000     003061
003062                                                                                                           000000     003062
003063     if (headers.mimeVersion <> '');                                                             B01       000000     003063
003064        o_addlHdrs = headers.mimeVersion;                                                         01       000000     003064
003065     else;                                                                                       X01       000000     003065
003066        o_addlHdrs = '';                                                                          01       000000     003066
003067     endif;                                                                                      E01       000000     003067
003068                                                                                                           000000     003068
003069     o_addlHdrs = o_addlHdrs + headers.contentType + headers.soapAction;                                   000000     003069
003070                                                                                                           000000     003070
003071  /end-free                                                                                                000000     003071
003072 P                 E                                                                                       000000     003072
003073  *                                                                                                        000000     003073
003074  * =====================================================================                                  000000     003074
003075  *   Receive response of HTTP post operation.                                                             000000     003075
003076  * =====================================================================                                  000000     003076
003077 P HTTP_receiveResponse...                                                                                 000000     003077
003078 P                 B                                                                                       000000     003078
003079 D                 PI            10I 0                                                                     000000     003079
003080 D  i_hStream                    10I 0 value                                                               000000     003080
003081 D  i_data                         *   value                                                               000000     003081
003082 D  i_length                     10I 0 value                                                               000000     003082
003083  *                                                                                                        000000     003083
003084 D rc              S             10I 0 inz(-1)                                                             000000     003084
003085 D contentType     S           1024A   inz                                                                 000000     003085
003086  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003086
003087  /free                                                                                                    000000     003087
003088                                                                                                           000000     003088
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    427
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003089     http_DebugLog_appendTextVerbose(                                                                      000000     003089
003090     '** ' + %char(%timestamp()) + ': Entering ' + f_this() + '()');                                       000000     003090
003091                                                                                                           000000     003091
003092     if (not g_HTTP_isInit);                                                                     B01       000000     003092
003093        http_DebugLog_appendText(                                                                 01       000000     003093
003094        '** '+%char(%timestamp())+': Preparing to parse received message');                       01       000000     003094
003095        select;                                                                                  B02       000000     003095
003096        when (http_getContentType() = 'text');                                                   X02       000000     003096
003097           if (http_getContentSubType() = 'html');                                               B03       000000     003097
003098              if (f_exist('WSDL2RPG': '*LIBL': '*MSGF'));                                        B04       000000     003098
003099                 clear USR0030;                                                                   04       000000     003099
003100                 USR00301 = getPortName();                                                        04       000000     003100
003101                 AppMsg_sendCancelMsg(AppMsg_newError('USR0030': USR0030));                       04       000000     003101
003102              else;                                                                              X04       000000     003102
003103                 AppMsg_sendCancelMsg(                                                            04       000000     003103
003104                    f_newMsg('CPF9898'                                                            04       000000     003104
003105                          : 'Unexpected HTML data received from web service'                      04       000000     003105
003106                          : '*ESCAPE'                                                             04       000000     003106
003107                          : 'QCPFMSG'));                                                          04       000000     003107
003108              endif;                                                                             E04       000000     003108
003109           endif;                                                                                E03       000000     003109
003110        when (http_getContentType() = 'multipart');                                              X02       000000     003110
003111           contentType = %trim(http_header('content-type'));                                      02       000000     003111
003112           MIMEParser_beginParse(g_hMIMEParser);                                                  02       000000     003112
003113           MIMEParser_setContentType(g_hMIMEParser: contentType);                                 02       000000     003113
003114           g_SOAPMessageID = http_getContentTypeAttr('start': cTrue);                             02       000000     003114
003115           g_isMimeMessage = cTrue;                                                               02       000000     003115
003116           http_DebugLog_appendText(                                                              02       000000     003116
003117           '** ' + %char(%timestamp()) + ': Detected MIME message');                              02       000000     003117
003118        endsl;                                                                                   E02       000000     003118
003119        g_HTTP_isInit = cTrue;                                                                    01       000000     003119
003120     endif;                                                                                      E01       000000     003120
003121                                                                                                           000000     003121
003122     if (g_isMimeMessage);                                                                       B01       000000     003122
003123        if (MIMEParser_parse(g_hMIMEParser: i_data: i_length) = cTrue);                          B02       000000     003123
003124           rc = i_length;                                                                         02       000000     003124
003125        else;                                                                                    X02       000000     003125
003126           rc = -1;                                                                               02       000000     003126
003127           http_DebugLog_appendText(                                                              02       000000     003127
003128           '** '+ %char(%timestamp()) +': Failed parsing MIME message');                          02       000000     003128
003129        endif;                                                                                   E02       000000     003129
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    428
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003130     else;                                                                                       X01       000000     003130
003131        if (parseOrRedirectResponse(i_data: i_length) = cTrue);                                  B02       000000     003131
003132           rc = i_length;                                                                         02       000000     003132
003133        else;                                                                                    X02       000000     003133
003134           rc = -1;                                                                               02       000000     003134
003135           http_DebugLog_appendText(                                                              02       000000     003135
003136           '** '+ %char(%timestamp()) +': Failed parsing XML message');                           02       000000     003136
003137        endif;                                                                                   E02       000000     003137
003138     endif;                                                                                      E01       000000     003138
003139                                                                                                           000000     003139
003140     http_DebugLog_appendTextVerbose(                                                                      000000     003140
003141     '** ' + %char(%timestamp()) + ': Leaving ' + f_this() + '()');                                        000000     003141
003142                                                                                                           000000     003142
003143     return rc;                                                                                            000000     003143
003144                                                                                                           000000     003144
003145  /end-free                                                                                                000000     003145
003146 P                 E                                                                                       000000     003146
003147  *                                                                                                        000000     003147
003148  * =====================================================================                                  000000     003148
003149  *   Parses or redirects the web service response.                                                        000000     003149
003150  * =====================================================================                                  000000     003150
003151 P parseOrRedirectResponse...                                                                              000000     003151
003152 P                 B                                                                                       000000     003152
003153 D                 PI              N                                                                       000000     003153
003154 D  i_data                         *   value                                                               000000     003154
003155 D  i_length                     10I 0 value                                                               000000     003155
003156  *                                                                                                        000000     003156
003157  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003157
003158  /free                                                                                                    000000     003158
003159                                                                                                           000000     003159
003160     if (timianOrdersPort_RedirectResponse_isActive());                                          B01       000000     003160
003161        // Append HTTP response to output file                                                             000000     003161
003162        if (not timianOrdersPort_RedirectResponse_write(                                         B02       000000     003162
003163                      i_data: i_length));                                                        B02       000000     003163
003164           http_DebugLog_appendText(                                                              02       000000     003164
003165           '** '+ %char(%timestamp()) +': Failed to redirect +                                    02       000000     003165
003166                                          XML message');                                          02       000000     003166
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    429
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003167           return cFalse;                                                                         02       000000     003167
003168        endif;                                                                                   E02       000000     003168
003169     else;                                                                                       X01       000000     003169
003170        // Parse HTTP response                                                                             000000     003170
003171        if (not XMLSAXParser_parse(g_hSAXParser: i_data: i_length) = cTrue);                     B02       000000     003171
003172           http_DebugLog_appendText(                                                              02       000000     003172
003173           '** '+ %char(%timestamp()) +': Failed parsing XML message');                           02       000000     003173
003174           return cFalse;                                                                         02       000000     003174
003175        endif;                                                                                   E02       000000     003175
003176     endif;                                                                                      E01       000000     003176
003177                                                                                                           000000     003177
003178     return cTrue;                                                                                         000000     003178
003179                                                                                                           000000     003179
003180  /end-free                                                                                                000000     003180
003181 P                 E                                                                                       000000     003181
003182  *                                                                                                        000000     003182
003183  * =====================================================================                                  000000     003183
003184  *   Starts a MIME body part.                                                                             000000     003184
003185  *   This procedure is called whenever a new part is started.                                             000000     003185
003186  * =====================================================================                                  000000     003186
003187  *   Parameters:                                                                                          000000     003187
003188  *     i_pPart            Handle of the current part.                                                     000000     003188
003189  *     i_pUserData        Pointer to user data as specified at                                            000000     003189
003190  *                        http_mime_DataSink_initialize().                                                000000     003190
003191  * =====================================================================                                  000000     003191
003192 P HTTPDataSink_startPart...                                                                               000000     003192
003193 P                 B                                                                                       000000     003193
003194 D                 PI                                                                                      000000     003194
003195 D  i_pPart                        *   const                                                               000000     003195
003196 D  i_pUserData                    *   const                                                               000000     003196
003197  *                                                                                                        000000     003197
003198 D contentID       S            512A   varying inz                                                         000000     003198
003199 D contentSubType  S             16A   varying inz                                                         000000     003199
003200  *                                                                                                        000000     003200
003201  * -------------------------------------------                                                            000000     003201
003202  *  TODO: Add fields to open                                                                              000000     003202
003203  *        the file and to store the                                                                       000000     003203
003204  *        file descriptor.                                                                                000000     003204
003205  * -------------------------------------------                                                            000000     003205
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    430
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003206  /IF DEFINED(DEFAULT_ATTACHMENT_HANDLING)                                                                 000000     003206
            LINES EXCLUDED: 6
003213  /ENDIF                                                                                                   000000     003213
003214  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003214
003215  /free                                                                                                    000000     003215
003216                                                                                                           000000     003216
003217     if (http_mime_Part_getType(i_pPart) <> cMIME_BASICPART);                                    B01       000000     003217
003218        return;                                                                                   01       000000     003218
003219     endif;                                                                                      E01       000000     003219
003220                                                                                                           000000     003220
003221     g_BodyPart_counter = g_BodyPart_counter + 1;                                                          000000     003221
003222                                                                                                           000000     003222
003223     contentID      = http_mime_Part_getContentID(i_pPart);                                                000000     003223
003224     contentSubType = http_mime_Part_getContentSubType(i_pPart);                                           000000     003224
003225                                                                                                           000000     003225
003226     if (not g_SOAPMessage_done);                                                                B01       000000     003226
003227        if (g_SOAPMessageID <> '');                                                              B02       000000     003227
003228           if (contentSubType = 'xml' and contentID = g_SOAPMessageID);                          B03       000000     003228
003229              g_doParseSOAPMessage = cTrue;                                                       03       000000     003229
003230              return;                                                                             03       000000     003230
003231           endif;                                                                                E03       000000     003231
003232        else;                                                                                    X02       000000     003232
003233           if (g_BodyPart_counter = 1);                                                          B03       000000     003233
003234              g_doParseSOAPMessage = cTrue;                                                       03       000000     003234
003235              return;                                                                             03       000000     003235
003236           endif;                                                                                E03       000000     003236
003237        endif;                                                                                   E02       000000     003237
003238     endif;                                                                                      E01       000000     003238
003239                                                                                                           000000     003239
003240     // -----------------------------------------                                                          000000     003240
003241     // TODO:                                                                                              000000     003241
003242     // Add your code to handle attachments here!                                                          000000     003242
003243     // E.g.: Open output file.                                                                            000000     003243
003244     // -----------------------------------------                                                          000000     003244
003245  /IF DEFINED(DEFAULT_ATTACHMENT_HANDLING)                                                                 000000     003245
            LINES EXCLUDED: 42
003288  /ENDIF                                                                                                   000000     003288
003289                                                                                                           000000     003289
003290     return;                                                                                               000000     003290
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    431
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003291                                                                                                           000000     003291
003292  /end-free                                                                                                000000     003292
003293 P                 E                                                                                       000000     003293
003294  *                                                                                                        000000     003294
003295  * =====================================================================                                  000000     003295
003296  *   Receives MIME part body data.                                                                        000000     003296
003297  *   This procedure is called whenever new body data is available.                                        000000     003297
003298  * =====================================================================                                  000000     003298
003299  *   Parameters:                                                                                          000000     003299
003300  *     i_pPart            Handle of the current part.                                                     000000     003300
003301  *     i_pUserData        Pointer to user data as specified at                                            000000     003301
003302  *                        http_mime_DataSink_initialize().                                                000000     003302
003303  *     i_data             Pointer to decoded body data.                                                   000000     003303
003304  *     i_size             Size of decoded body data.                                                      000000     003304
003305  * =====================================================================                                  000000     003305
003306 P HTTPDataSink_bodyData...                                                                                000000     003306
003307 P                 B                                                                                       000000     003307
003308 D                 PI                                                                                      000000     003308
003309 D  i_pPart                        *   const                                                               000000     003309
003310 D  i_pUserData                    *   const                                                               000000     003310
003311 D  i_data                         *   const                                                               000000     003311
003312 D  i_size                       10I 0 const                                                               000000     003312
003313  *                                                                                                        000000     003313
003314  * -------------------------------------------                                                            000000     003314
003315  *  TODO: Add fields to write                                                                             000000     003315
003316  *        the attachment to the file                                                                      000000     003316
003317  *        opened in HTTPDataSink_startPart().                                                             000000     003317
003318  * -------------------------------------------                                                            000000     003318
003319  /IF DEFINED(DEFAULT_ATTACHMENT_HANDLING)                                                                 000000     003319
            LINES EXCLUDED: 4
003324  /ENDIF                                                                                                   000000     003324
003325  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003325
003326  /free                                                                                                    000000     003326
003327                                                                                                           000000     003327
003328     if (g_doParseSOAPMessage);                                                                  B01       000000     003328
003329        parseOrRedirectResponse(i_data: i_size);                                                  01       000000     003329
003330        return;                                                                                   01       000000     003330
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    432
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003331     endif;                                                                                      E01       000000     003331
003332                                                                                                           000000     003332
003333     // -----------------------------------------                                                          000000     003333
003334     // TODO:                                                                                              000000     003334
003335     // Add your code to handle attachments here!                                                          000000     003335
003336     // E.g.: Write received data to output file.                                                          000000     003336
003337     // -----------------------------------------                                                          000000     003337
003338                                                                                                           000000     003338
003339  /IF DEFINED(DEFAULT_ATTACHMENT_HANDLING)                                                                 000000     003339
            LINES EXCLUDED: 13
003353  /ENDIF                                                                                                   000000     003353
003354                                                                                                           000000     003354
003355     return;                                                                                               000000     003355
003356                                                                                                           000000     003356
003357  /end-free                                                                                                000000     003357
003358 P                 E                                                                                       000000     003358
003359  *                                                                                                        000000     003359
003360  * =====================================================================                                  000000     003360
003361  *   Ends a MIME body part.                                                                               000000     003361
003362  *   This procedure is called whenever a new part ends.                                                   000000     003362
003363  * =====================================================================                                  000000     003363
003364  *   Parameters:                                                                                          000000     003364
003365  *     i_pPart            Handle of the current part.                                                     000000     003365
003366  *     i_pUserData        Pointer to user data as specified at                                            000000     003366
003367  *                        http_mime_DataSink_initialize().                                                000000     003367
003368  * =====================================================================                                  000000     003368
003369 P HTTPDataSink_endPart...                                                                                 000000     003369
003370 P                 B                                                                                       000000     003370
003371 D                 PI                                                                                      000000     003371
003372 D  i_pPart                        *   const                                                               000000     003372
003373 D  i_pUserData                    *   const                                                               000000     003373
003374  *                                                                                                        000000     003374
003375  * -------------------------------------------                                                            000000     003375
003376  *  TODO: Add fields to close the file                                                                    000000     003376
003377  *        opened in HTTPDataSink_startPart().                                                             000000     003377
003378  * -------------------------------------------                                                            000000     003378
003379  /IF DEFINED(DEFAULT_ATTACHMENT_HANDLING)                                                                 000000     003379
            LINES EXCLUDED: 4
003384  /ENDIF                                                                                                   000000     003384
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    433
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003385  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003385
003386  /free                                                                                                    000000     003386
003387                                                                                                           000000     003387
003388     if (http_mime_Part_getType(i_pPart) <> cMIME_BASICPART);                                    B01       000000     003388
003389        return;                                                                                   01       000000     003389
003390     endif;                                                                                      E01       000000     003390
003391                                                                                                           000000     003391
003392     if (g_doParseSOAPMessage);                                                                  B01       000000     003392
003393        g_doParseSOAPMessage = cFalse;                                                            01       000000     003393
003394        g_SOAPMessage_done   = cTrue;                                                             01       000000     003394
003395        return;                                                                                   01       000000     003395
003396     endif;                                                                                      E01       000000     003396
003397                                                                                                           000000     003397
003398     // -----------------------------------------                                                          000000     003398
003399     // TODO:                                                                                              000000     003399
003400     // Add your code to handle attachments here!                                                          000000     003400
003401     // E.g.: Close output file.                                                                           000000     003401
003402     // -----------------------------------------                                                          000000     003402
003403  /IF DEFINED(DEFAULT_ATTACHMENT_HANDLING)                                                                 000000     003403
            LINES EXCLUDED: 18
003422  /ENDIF                                                                                                   000000     003422
003423                                                                                                           000000     003423
003424     return;                                                                                               000000     003424
003425                                                                                                           000000     003425
003426  /end-free                                                                                                000000     003426
003427 P                 E                                                                                       000000     003427
003428  *                                                                                                        000000     003428
003429  * =====================================================================                                  000000     003429
003430  *   SOAP message: Envelope                                                                               000000     003430
003431  * =====================================================================                                  000000     003431
003432 P SOAPMessage_Envelope...                                                                                 000000     003432
003433 P                 B                                                                                       000000     003433
003434 D                 PI                                                                                      000000     003434
003435 D   userdata                      *   value                                                               000000     003435
003436 D   depth                       10I 0 value                                                               000000     003436
003437 D   namespace                 1024A   varying const                                                       000000     003437
003438 D   name                      1024A   varying const                                                       000000     003438
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    434
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003439 D   path                     24576A   varying const                                                       000000     003439
003440 D   attrs                         *   dim(32767)                                                          000000     003440
003441 D                                     const options(*varsize)                                             000000     003441
003442  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003442
003443  /free                                                                                                    000000     003443
003444                                                                                                           000000     003444
003445     if (depth = 1 and f_lcase(name) = 'html');                                                  B01       000000     003445
003446        if (f_exist('WSDL2RPG': '*LIBL': '*MSGF'));                                              B02       000000     003446
003447           clear USR0030;                                                                         02       000000     003447
003448           USR00301 = getPortName();                                                              02       000000     003448
003449           AppMsg_sendCancelMsg(AppMsg_newError('USR0030': USR0030));                             02       000000     003449
003450        else;                                                                                    X02       000000     003450
003451           AppMsg_sendCancelMsg(                                                                  02       000000     003451
003452                 f_newMsg('CPF9898'                                                               02       000000     003452
003453                          : 'Unexpected HTML data received from web service'                      02       000000     003453
003454                          : '*ESCAPE'                                                             02       000000     003454
003455                          : 'QCPFMSG'));                                                          02       000000     003455
003456        endif;                                                                                   E02       000000     003456
003457     endif;                                                                                      E01       000000     003457
003458                                                                                                           000000     003458
003459     select;                                                                                     B01       000000     003459
003460     when (path = '/Envelope/Header');                                                           X01       000000     003460
003461        XMLSAXParser_delegateElementProcessing(                                                   01       000000     003461
003462           g_pRespSoapHeader                                                                      01       000000     003462
003463           : %paddr('SOAPMessage_unexpectedElementStart')                                         01       000000     003463
003464           : %paddr('SOAPMessage_unexpectedElementEnd'));                                         01       000000     003464
003465       return;                                                                                    01       000000     003465
003466                                                                                                           000000     003466
003467     when (path = '/Envelope/Body');                                                             X01       000000     003467
003468                                                                                                           000000     003468
003469        select;                                                                                  B02       000000     003469
003470        when (name = 'Fault');                                                                   X02       000000     003470
003471           XMLSAXParser_delegateElementProcessing(                                                02       000000     003471
003472              %addr(g_errors.soapFault)                                                           02       000000     003472
003473              : %paddr('SOAPMessage_FaultStart')                                                  02       000000     003473
003474              : %paddr('SOAPMessage_FaultEnd'));                                                  02       000000     003474
003475          return;                                                                                 02       000000     003475
003476                                                                                                           000000     003476
003477        when (MultiRef_isData(attrs));                                                           X02       000000     003477
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    435
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003478           XMLSAXParser_delegateElementProcessing(                                                02       000000     003478
003479              *NULL                                                                               02       000000     003479
003480              : MultiRef_getStartCallback()                                                       02       000000     003480
003481              : MultiRef_getEndCallback());                                                       02       000000     003481
003482           return;                                                                                02       000000     003482
003483                                                                                                           000000     003483
003484        other;                                                                                   X02       000000     003484
003485           XMLSAXParser_delegateElementProcessing(                                                02       000000     003485
003486              userdata                                                                            02       000000     003486
003487              : %paddr('tns_getOrdersResponseStart')                                              02       000000     003487
003488              : %paddr('tns_getOrdersResponseEnd'));                                              02       000000     003488
003489          return;                                                                                 02       000000     003489
003490        endsl;                                                                                   E02       000000     003490
003491                                                                                                           000000     003491
003492     endsl;                                                                                      E01       000000     003492
003493                                                                                                           000000     003493
003494     return;                                                                                               000000     003494
003495                                                                                                           000000     003495
003496  /end-free                                                                                                000000     003496
003497 P                 E                                                                                       000000     003497
003498  *                                                                                                        000000     003498
003499  * =====================================================================                                  000000     003499
003500  *   SOAP message: fault information                                                                      000000     003500
003501  * =====================================================================                                  000000     003501
003502 P SOAPMessage_FaultStart...                                                                               000000     003502
003503 P                 B                                                                                       000000     003503
003504 D                 PI                                                                                      000000     003504
003505 D   userdata                      *   value                                                               000000     003505
003506 D   depth                       10I 0 value                                                               000000     003506
003507 D   namespace                 1024A   varying const                                                       000000     003507
003508 D   name                      1024A   varying const                                                       000000     003508
003509 D   path                     24576A   varying const                                                       000000     003509
003510 D   attrs                         *   dim(32767)                                                          000000     003510
003511 D                                     const options(*varsize)                                             000000     003511
003512  *                                                                                                        000000     003512
003513 D fault...                                                                                                000000     003513
003514 D                 DS                  based(userdata)                                                     000000     003514
003515 D                                     likeds(wsdl_soapFault_t )                                           000000     003515
003516  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003516
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    436
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003517  /free                                                                                                    000000     003517
003518                                                                                                           000000     003518
003519     if (depth = 1);                                                                             B01       000000     003519
003520        g_errors.errType = WSDL_HTTP_ERROR_SOAP;                                                  01       000000     003520
003521        g_errors.soapFault.code = 'WSDL2RPG';                                                     01       000000     003521
003522        g_errors.soapFault.string = 'WSDL2RPG: Unspecified SOAP error';                           01       000000     003522
003523        return;                                                                                   01       000000     003523
003524     endif;                                                                                      E01       000000     003524
003525                                                                                                           000000     003525
003526     select;                                                                                     B01       000000     003526
003527     when (name = 'detail');                                                                     X01       000000     003527
003528        XMLSAXParser_delegateElementProcessing(                                                   01       000000     003528
003529           %addr(fault.detail)                                                                    01       000000     003529
003530           : %paddr('SOAPMessage_FaultDetailStart')                                               01       000000     003530
003531           : %paddr('SOAPMessage_FaultDetailEnd'));                                               01       000000     003531
003532     endsl;                                                                                      E01       000000     003532
003533                                                                                                           000000     003533
003534  /end-free                                                                                                000000     003534
003535 P                 E                                                                                       000000     003535
003536  *                                                                                                        000000     003536
003537  * =====================================================================                                  000000     003537
003538  *   SOAP message: fault information                                                                      000000     003538
003539  * =====================================================================                                  000000     003539
003540 P SOAPMessage_FaultEnd...                                                                                 000000     003540
003541 P                 B                                                                                       000000     003541
003542 D                 PI                                                                                      000000     003542
003543 D   userdata                      *   value                                                               000000     003543
003544 D   depth                       10I 0 value                                                               000000     003544
003545 D   namespace                 1024A   varying const                                                       000000     003545
003546 D   name                      1024A   varying const                                                       000000     003546
003547 D   path                     24576A   varying const                                                       000000     003547
003548 D   value                    65535A   varying const                                                       000000     003548
003549 D   attrs                         *   dim(32767)                                                          000000     003549
003550 D                                     const options(*varsize)                                             000000     003550
003551  *                                                                                                        000000     003551
003552 D fault...                                                                                                000000     003552
003553 D                 DS                  based(userdata)                                                     000000     003553
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    437
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003554 D                                     likeds(wsdl_soapFault_t )                                           000000     003554
003555  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003555
003556  /free                                                                                                    000000     003556
003557                                                                                                           000000     003557
003558     if (depth = 1);                                                                             B01       000000     003558
003559        return;                                                                                   01       000000     003559
003560     endif;                                                                                      E01       000000     003560
003561                                                                                                           000000     003561
003562     select;                                                                                     B01       000000     003562
003563     when (name = 'faultcode');                                                                  X01       000000     003563
003564        fault.code = value;                                                                       01       000000     003564
003565     when (name = 'faultstring');                                                                X01       000000     003565
003566        fault.string = value;                                                                     01       000000     003566
003567     endsl;                                                                                      E01       000000     003567
003568                                                                                                           000000     003568
003569  /end-free                                                                                                000000     003569
003570 P                 E                                                                                       000000     003570
003571  *                                                                                                        000000     003571
003572  * =====================================================================                                  000000     003572
003573  *   SOAP message: fault details                                                                          000000     003573
003574  * =====================================================================                                  000000     003574
003575 P SOAPMessage_FaultDetailStart...                                                                         000000     003575
003576 P                 B                                                                                       000000     003576
003577 D                 PI                                                                                      000000     003577
003578 D   userdata                      *   value                                                               000000     003578
003579 D   depth                       10I 0 value                                                               000000     003579
003580 D   namespace                 1024A   varying const                                                       000000     003580
003581 D   name                      1024A   varying const                                                       000000     003581
003582 D   path                     24576A   varying const                                                       000000     003582
003583 D   attrs                         *   dim(32767)                                                          000000     003583
003584 D                                     const options(*varsize)                                             000000     003584
003585  *                                                                                                        000000     003585
003586 D detail...                                                                                               000000     003586
003587 D                 DS                  based(userdata)                                                     000000     003587
003588 D                                     likeds(wsdl_soap_faultDetail_t)                                     000000     003588
003589  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003589
003590  /free                                                                                                    000000     003590
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    438
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003591                                                                                                           000000     003591
003592     if (depth = 1);                                                                             B01       000000     003592
003593        return;                                                                                   01       000000     003593
003594     endif;                                                                                      E01       000000     003594
003595                                                                                                           000000     003595
003596     select;                                                                                     B01       000000     003596
003597     endsl;                                                                                      E01       000000     003597
003598                                                                                                           000000     003598
003599  /end-free                                                                                                000000     003599
003600 P                 E                                                                                       000000     003600
003601  *                                                                                                        000000     003601
003602  * =====================================================================                                  000000     003602
003603  *   SOAP message: fault details                                                                          000000     003603
003604  * =====================================================================                                  000000     003604
003605 P SOAPMessage_FaultDetailEnd...                                                                           000000     003605
003606 P                 B                                                                                       000000     003606
003607 D                 PI                                                                                      000000     003607
003608 D   userdata                      *   value                                                               000000     003608
003609 D   depth                       10I 0 value                                                               000000     003609
003610 D   namespace                 1024A   varying const                                                       000000     003610
003611 D   name                      1024A   varying const                                                       000000     003611
003612 D   path                     24576A   varying const                                                       000000     003612
003613 D   value                    65535A   varying const                                                       000000     003613
003614 D   attrs                         *   dim(32767)                                                          000000     003614
003615 D                                     const options(*varsize)                                             000000     003615
003616  *                                                                                                        000000     003616
003617 D detail...                                                                                               000000     003617
003618 D                 DS                  based(userdata)                                                     000000     003618
003619 D                                     likeds(wsdl_soap_faultDetail_t)                                     000000     003619
003620  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003620
003621  /free                                                                                                    000000     003621
003622                                                                                                           000000     003622
003623     if (depth = 1);                                                                             B01       000000     003623
003624        return;                                                                                   01       000000     003624
003625     endif;                                                                                      E01       000000     003625
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    439
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003626                                                                                                           000000     003626
003627     select;                                                                                     B01       000000     003627
003628     when (name = 'hostname');                                                                   X01       000000     003628
003629        detail.hostname = value;                                                                  01       000000     003629
003630     endsl;                                                                                      E01       000000     003630
003631                                                                                                           000000     003631
003632  /end-free                                                                                                000000     003632
003633 P                 E                                                                                       000000     003633
003634  *                                                                                                        000000     003634
003635  * =====================================================================                                  000000     003635
003636  *   SOAP message: NULL callback procedure                                                                000000     003636
003637  * =====================================================================                                  000000     003637
003638 P SOAPMessage_unexpectedElementStart...                                                                   000000     003638
003639 P                 B                                                                                       000000     003639
003640 D                 PI                                                                                      000000     003640
003641 D   userdata                      *   value                                                               000000     003641
003642 D   depth                       10I 0 value                                                               000000     003642
003643 D   namespace                 1024A   varying const                                                       000000     003643
003644 D   name                      1024A   varying const                                                       000000     003644
003645 D   path                     24576A   varying const                                                       000000     003645
003646 D   attrs                         *   dim(32767)                                                          000000     003646
003647 D                                     const options(*varsize)                                             000000     003647
003648  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003648
003649  /free                                                                                                    000000     003649
003650                                                                                                           000000     003650
003651     if (ignoreUnexpectedSoapHeader());                                                          B01       000000     003651
003652        http_DebugLog_appendText(                                                                 01       000000     003652
003653           'Warning: Received unexpected Soap header: <' + name + '>');                           01       000000     003653
003654        return;                                                                                   01       000000     003654
003655     endif;                                                                                      E01       000000     003655
003656                                                                                                           000000     003656
003657     if (f_exist('WSDL2RPG': '*LIBL': '*MSGF'));                                                 B01       000000     003657
003658        clear USR0042;                                                                            01       000000     003658
003659        USR00421 = 'SOAPMessage_unexpectedElementStart';                                          01       000000     003659
003660        USR00422 = 'SOAPMessage_unexpectedElementEnd';                                            01       000000     003660
003661        AppMsg_sendCancelMsg(AppMsg_newError('USR0042': USR0042));                                01       000000     003661
003662     else;                                                                                       X01       000000     003662
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    440
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003663        AppMsg_sendCancelMsg(                                                                     01       000000     003663
003664           f_newMsg('CPF9898'                                                                     01       000000     003664
003665                 : 'Unexpected Soap element received from web service.'                           01       000000     003665
003666                 : '*ESCAPE'                                                                      01       000000     003666
003667                 : 'QCPFMSG'));                                                                   01       000000     003667
003668     endif;                                                                                      E01       000000     003668
003669                                                                                                           000000     003669
003670     return;                                                                                               000000     003670
003671                                                                                                           000000     003671
003672  /end-free                                                                                                000000     003672
003673 P                 E                                                                                       000000     003673
003674  *                                                                                                        000000     003674
003675  * =====================================================================                                  000000     003675
003676  *   SOAP message: NULL callback procedure                                                                000000     003676
003677  * =====================================================================                                  000000     003677
003678 P SOAPMessage_unexpectedElementEnd...                                                                     000000     003678
003679 P                 B                                                                                       000000     003679
003680 D                 PI                                                                                      000000     003680
003681 D   userdata                      *   value                                                               000000     003681
003682 D   depth                       10I 0 value                                                               000000     003682
003683 D   namespace                 1024A   varying const                                                       000000     003683
003684 D   name                      1024A   varying const                                                       000000     003684
003685 D   path                     24576A   varying const                                                       000000     003685
003686 D   value                    65535A   varying const                                                       000000     003686
003687 D   attrs                         *   dim(32767)                                                          000000     003687
003688 D                                     const options(*varsize)                                             000000     003688
003689  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003689
003690  /free                                                                                                    000000     003690
003691                                                                                                           000000     003691
003692     if (ignoreUnexpectedSoapHeader());                                                          B01       000000     003692
003693        http_DebugLog_appendText(                                                                 01       000000     003693
003694           'Warning: Received unexpected Soap header: ' + value);                                 01       000000     003694
003695        http_DebugLog_appendText(                                                                 01       000000     003695
003696           'Warning: Received unexpected Soap header: </' + name + '>');                          01       000000     003696
003697        return;                                                                                   01       000000     003697
003698     endif;                                                                                      E01       000000     003698
003699                                                                                                           000000     003699
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    441
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003700     if (f_exist('WSDL2RPG': '*LIBL': '*MSGF'));                                                 B01       000000     003700
003701        clear USR0042;                                                                            01       000000     003701
003702        USR00421 = 'SOAPMessage_unexpectedElementStart';                                          01       000000     003702
003703        USR00422 = 'SOAPMessage_unexpectedElementEnd';                                            01       000000     003703
003704        AppMsg_sendCancelMsg(AppMsg_newError('USR0042': USR0042));                                01       000000     003704
003705     else;                                                                                       X01       000000     003705
003706        AppMsg_sendCancelMsg(                                                                     01       000000     003706
003707           f_newMsg('CPF9898'                                                                     01       000000     003707
003708                 : 'Unexpected Soap element received from web service.'                           01       000000     003708
003709                 : '*ESCAPE'                                                                      01       000000     003709
003710                 : 'QCPFMSG'));                                                                   01       000000     003710
003711     endif;                                                                                      E01       000000     003711
003712                                                                                                           000000     003712
003713     return;                                                                                               000000     003713
003714                                                                                                           000000     003714
003715  /end-free                                                                                                000000     003715
003716 P                 E                                                                                       000000     003716
003717  *                                                                                                        000000     003717
003718  * =====================================================================                                  000000     003718
003719  *   Specifies, whether unexpected Soap headers are ignored or not.                                       000000     003719
003720  * =====================================================================                                  000000     003720
003721 P ignoreUnexpectedSoapHeader...                                                                           000000     003721
003722 P                 B                                                                                       000000     003722
003723 D                 PI              N                                                                       000000     003723
003724  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003724
003725  /free                                                                                                    000000     003725
003726                                                                                                           000000     003726
003727     return cFalse;                                                                                        000000     003727
003728                                                                                                           000000     003728
003729  /end-free                                                                                                000000     003729
003730 P                 E                                                                                       000000     003730
003731  *                                                                                                        000000     003731
003732  * =====================================================================                                  000000     003732
003733  *   Returns the UUID of this web service operation.                                                      000000     003733
003734  *   All attachments and allocated memory block are attached to                                           000000     003734
003735  *   this UUID.                                                                                           000000     003735
003736  * =====================================================================                                  000000     003736
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    442
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003737 P getOperationUuid...                                                                                     000000     003737
003738 P                 B                                                                                       000000     003738
003739 D                 PI                          like(wsdl_uuid_t )                                          000000     003739
003740  *                                                                                                        000000     003740
003741  *  Return value                                                                                          000000     003741
003742 D uuid            S                   like(wsdl_uuid_t ) inz                                              000000     003742
003743  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003743
003744  /free                                                                                                    000000     003744
003745                                                                                                           000000     003745
003746     uuid = timianOrdersPort_Port_getUuid();                                                               000000     003746
003747                                                                                                           000000     003747
003748     return uuid;                                                                                          000000     003748
003749                                                                                                           000000     003749
003750  /end-free                                                                                                000000     003750
003751 P                 E                                                                                       000000     003751
003752  *                                                                                                        000000     003752
003753  * =====================================================================                                  000000     003753
003754  *   Returns the name of the web service port.                                                            000000     003754
003755  * =====================================================================                                  000000     003755
003756 P getPortName...                                                                                          000000     003756
003757 P                 B                                                                                       000000     003757
003758 D                 PI                          like(wsdl_portName_t )                                      000000     003758
003759  *                                                                                                        000000     003759
003760  *  Return value                                                                                          000000     003760
003761 D name            S                   like(wsdl_portName_t ) inz                                          000000     003761
003762  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003762
003763  /free                                                                                                    000000     003763
003764                                                                                                           000000     003764
003765     name = timianOrdersPort_Port_getName();                                                               000000     003765
003766                                                                                                           000000     003766
003767     return name;                                                                                          000000     003767
003768                                                                                                           000000     003768
003769  /end-free                                                                                                000000     003769
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    443
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003770 P                 E                                                                                       000000     003770
003771  *                                                                                                        000000     003771
003772  * =====================================================================                                  000000     003772
003773  *   Returns the name of this web service operation.                                                      000000     003773
003774  * =====================================================================                                  000000     003774
003775 P getOperationName...                                                                                     000000     003775
003776 P                 B                                                                                       000000     003776
003777 D                 PI                          like(wsdl_operName_t )                                      000000     003777
003778  *                                                                                                        000000     003778
003779  *  Return value                                                                                          000000     003779
003780 D name            S                   like(wsdl_operName_t ) inz                                          000000     003780
003781  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003781
003782  /free                                                                                                    000000     003782
003783                                                                                                           000000     003783
003784     name = 'getOrders';                                                                                   000000     003784
003785                                                                                                           000000     003785
003786     return name;                                                                                          000000     003786
003787                                                                                                           000000     003787
003788  /end-free                                                                                                000000     003788
003789 P                 E                                                                                       000000     003789
003790  *                                                                                                        000000     003790
003791  * =====================================================================                                  000000     003791
003792  *   Returns the CCSID of the remote POST data.                                                           000000     003792
003793  * =====================================================================                                  000000     003793
003794 P getPostCcsid...                                                                                         000000     003794
003795 P                 B                                                                                       000000     003795
003796 D                 PI            10I 0                                                                     000000     003796
003797  *                                                                                                        000000     003797
003798  *  Return value                                                                                          000000     003798
003799 D post_ccsid      S             10I 0 inz(1208)                                                           000000     003799
003800  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003800
003801  /free                                                                                                    000000     003801
003802                                                                                                           000000     003802
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    444
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003803     post_ccsid = timianOrdersPort_Port_getPostCcsid();                                                    000000     003803
003804                                                                                                           000000     003804
003805     return post_ccsid;                                                                                    000000     003805
003806                                                                                                           000000     003806
003807  /end-free                                                                                                000000     003807
003808 P                 E                                                                                       000000     003808
003809  *                                                                                                        000000     003809
003810  * =====================================================================                                  000000     003810
003811  *   Returns the timeout in seconds that HTTPAPI waits                                                    000000     003811
003812  *   for a connection to the server.                                                                      000000     003812
003813  * =====================================================================                                  000000     003813
003814 P getTimeout...                                                                                           000000     003814
003815 P                 B                                                                                       000000     003815
003816 D                 PI            10I 0                                                                     000000     003816
003817  *                                                                                                        000000     003817
003818  *  Return value                                                                                          000000     003818
003819 D timeoutSecs     S             10I 0 inz(HTTP_TIMEOUT)                                                   000000     003819
003820  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003820
003821  /free                                                                                                    000000     003821
003822                                                                                                           000000     003822
003823     timeoutSecs = timianOrdersPort_Port_getTimeout();                                                     000000     003823
003824                                                                                                           000000     003824
003825     return timeoutSecs;                                                                                   000000     003825
003826                                                                                                           000000     003826
003827  /end-free                                                                                                000000     003827
003828 P                 E                                                                                       000000     003828
003829  *                                                                                                        000000     003829
003830  * =====================================================================                                  000000     003830
003831  *   Returns the user agent identification used by HTTPAPI                                                000000     003831
003832  *   to identify the client to the server.                                                                000000     003832
003833  * =====================================================================                                  000000     003833
003834 P getUserAgent...                                                                                         000000     003834
003835 P                 B                                                                                       000000     003835
003836 D                 PI                         like(wsdl_userAgent_t )                                      000000     003836
003837  *                                                                                                        000000     003837
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    445
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003838  *  Return value                                                                                          000000     003838
003839 D userAgent       S                   like(wsdl_userAgent_t )                                             000000     003839
003840 D                                     inz(HTTP_USERAGENT)                                                 000000     003840
003841  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003841
003842  /free                                                                                                    000000     003842
003843                                                                                                           000000     003843
003844     userAgent = timianOrdersPort_Port_getUserAgent();                                                     000000     003844
003845                                                                                                           000000     003845
003846     return userAgent;                                                                                     000000     003846
003847                                                                                                           000000     003847
003848  /end-free                                                                                                000000     003848
003849 P                 E                                                                                       000000     003849
003850  *                                                                                                        000000     003850
003851  * =====================================================================                                  000000     003851
003852  *   Returns the message context. The context is created if                                               000000     003852
003853  *   it does not yet exist.                                                                               000000     003853
003854  * =====================================================================                                  000000     003854
003855 P getMessageContext...                                                                                    000000     003855
003856 P                 B                                                                                       000000     003856
003857 D                 PI                         like(wsdl_hMsgCtx_t)                                         000000     003857
003858  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003858
003859  /free                                                                                                    000000     003859
003860                                                                                                           000000     003860
003861     if (MessageContext_isNull(g_hMsgCtx));                                                      B01       000000     003861
003862        g_hMsgCtx = MessageContext_new();                                                         01       000000     003862
003863     endif;                                                                                      E01       000000     003863
003864                                                                                                           000000     003864
003865     return g_hMsgCtx;                                                                                     000000     003865
003866                                                                                                           000000     003866
003867  /end-free                                                                                                000000     003867
003868 P                 E                                                                                       000000     003868
003869  *                                                                                                        000000     003869
003870  * =====================================================================                                  000000     003870
003871  *   Returns cTrue if the response must be redirected to a stream                                         000000     003871
003872  *   file, otherwise cFalse.                                                                              000000     003872
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    446
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
003873  * =====================================================================                                  000000     003873
003874 P mustRedirectStmf...                                                                                     000000     003874
003875 P                 B                                                                                       000000     003875
003876 D                 PI              N                                                                       000000     003876
003877  *                                                                                                        000000     003877
003878  *  Return value                                                                                          000000     003878
003879 D mustRedirectStmf...                                                                                     000000     003879
003880 D                 S               N   inz(cFalse)                                                         000000     003880
003881  * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -                                  000000     003881
003882  /free                                                                                                    000000     003882
003883                                                                                                           000000     003883
003884     mustRedirectStmf =                                                                                    000000     003884
003885        timianOrdersPort_RedirectResponse_isActive();                                                      000000     003885
003886                                                                                                           000000     003886
003887     return mustRedirectStmf;                                                                              000000     003887
003888                                                                                                           000000     003888
003889  /end-free                                                                                                000000     003889
003890 P                 E                                                                                       000000     003890
003891  *                                                                                                        000000     003891
       * * * * *   E N D   O F   S O U R C E   * * * * *
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    447
          A d d i t i o n a l   D i a g n o s t i c   M e s s a g e s
 Msg id  Sv   Statement    Message text
*RNF5409 00        000707  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        000711  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        000788  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        000809  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        000810  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        000814  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        000847  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        000878  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        000909  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        000961  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        001107  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        003033  The prototyped call returns a value which is lost when
                           CALLP is used.
*RNF5409 00        003329  The prototyped call returns a value which is lost when
                           CALLP is used.
 * * * * *   E N D   O F   A D D I T I O N A L   D I A G N O S T I C   M E S S A G E S   * * * * *
                            / C o p y   M e m b e r s
Line   Src  RPG name   <-------- External name -------> CCSID  <- Last change ->
Number Id              Library    File       Member            Date     Time
    000149    1 TYPES_H    WSDL2RPG   QWSDL2RPG  TYPES_H      871  19.04.15 17:01:56
   1001500    2 USR0030    WSDL2RPG   QWSDL2RPG  USR0030      871  19.04.15 17:01:57
   1001600    3 USR0042    WSDL2RPG   QWSDL2RPG  USR0042      871  19.04.15 17:01:57
   1001700    4 USR0048    WSDL2RPG   QWSDL2RPG  USR0048      871  19.04.15 17:01:57
    000152    5 TIM001     SSSOLF     QRPGLESRC  TIM001       871  20.07.15 10:56:18
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    448
   5000054    6 TYPES_H    WSDL2RPG   QWSDL2RPG  TYPES_H      871  19.04.15 17:01:56
   5000055    7 PWSDL2R85  WSDL2RPG   QWSDL2RPG  PWSDL2R85    871  19.04.15 17:01:55
   7000400    8 PBASICS1   WSDL2RPG   QBASICS1   PBASICS1     871  11.06.15 08:16:10
   8002400    9 PBASICS1R1 WSDL2RPG   QBASICS1   PBASICS1R1   871  11.06.15 08:16:10
   9000500   10 FDMSG      WSDL2RPG   QBASICS1   FDMSG        871  11.06.15 08:16:10
   9000600   11 FDRCVM0200 WSDL2RPG   QBASICS1   FDRCVM0200   871  11.06.15 08:16:10
   9000700   12 FDRCVM0300 WSDL2RPG   QBASICS1   FDRCVM0300   871  11.06.15 08:16:10
   9000800   13 FDRTVM0100 WSDL2RPG   QBASICS1   FDRTVM0100   871  11.06.15 08:16:10
   9000900   14 FDRTVM0300 WSDL2RPG   QBASICS1   FDRTVM0300   871  11.06.15 08:16:10
   9001000   15 FDRTVM0400 WSDL2RPG   QBASICS1   FDRTVM0400   871  11.06.15 08:16:10
   9022700   16 PBASICS1R2 WSDL2RPG   QBASICS1   PBASICS1R2   871  11.06.15 08:16:10
  16000500   17 FDERRCODE  WSDL2RPG   QBASICS1   FDERRCODE    871  11.06.15 08:16:10
  16007200   18 PBASICS1R1 WSDL2RPG   QBASICS1   PBASICS1R1   871  11.06.15 08:16:10
   9022800   19 PBASICS1R4 WSDL2RPG   QBASICS1   PBASICS1R4   871  11.06.15 08:16:10
  19003900   20 PBASICS1R2 WSDL2RPG   QBASICS1   PBASICS1R2   871  11.06.15 08:16:10
  19004000   21 PBASICS1R5 WSDL2RPG   QBASICS1   PBASICS1R5   871  11.06.15 08:16:10
  21000500   22 FDQOBJ     WSDL2RPG   QBASICS1   FDQOBJ       871  11.06.15 08:16:10
  21000600   23 FDOBJD0100 WSDL2RPG   QBASICS1   FDOBJD0100   871  11.06.15 08:16:10
  21000700   24 FDMBRD0100 WSDL2RPG   QBASICS1   FDMBRD0100   871  11.06.15 08:16:10
  21000800   25 FDMBRD0200 WSDL2RPG   QBASICS1   FDMBRD0200   871  11.06.15 08:16:10
  21022300   26 MILIB      WSDL2RPG   QBASICS1   MILIB        871  11.06.15 08:16:10
  21022400   27 PBASICS1R1 WSDL2RPG   QBASICS1   PBASICS1R1   871  11.06.15 08:16:10
  21022500   28 PBASICS1R7 WSDL2RPG   QBASICS1   PBASICS1R7   871  11.06.15 08:16:10
  28013200   29 PBASICS1R3 WSDL2RPG   QBASICS1   PBASICS1R3   871  11.06.15 08:16:10
  29036500   30 PBASICS1R2 WSDL2RPG   QBASICS1   PBASICS1R2   871  11.06.15 08:16:10
  29036600   31 PBASICS1R4 WSDL2RPG   QBASICS1   PBASICS1R4   871  11.06.15 08:16:10
  29036700   32 PBASICS1R7 WSDL2RPG   QBASICS1   PBASICS1R7   871  11.06.15 08:16:10
  28013300   33 PBASICS1R4 WSDL2RPG   QBASICS1   PBASICS1R4   871  11.06.15 08:16:10
   9022900   34 PBASICS1R5 WSDL2RPG   QBASICS1   PBASICS1R5   871  11.06.15 08:16:10
   8002500   35 PBASICS1R2 WSDL2RPG   QBASICS1   PBASICS1R2   871  11.06.15 08:16:10
   8002600   36 PBASICS1R3 WSDL2RPG   QBASICS1   PBASICS1R3   871  11.06.15 08:16:10
   8002700   37 PBASICS1R4 WSDL2RPG   QBASICS1   PBASICS1R4   871  11.06.15 08:16:10
   8002800   38 PBASICS1R5 WSDL2RPG   QBASICS1   PBASICS1R5   871  11.06.15 08:16:10
   8002900   39 PBASICS1R6 WSDL2RPG   QBASICS1   PBASICS1R6   871  11.06.15 08:16:10
  39000500   40 FDENVVAR   WSDL2RPG   QBASICS1   FDENVVAR     871  11.06.15 08:16:10
  39010100   41 PBASICS1R1 WSDL2RPG   QBASICS1   PBASICS1R1   871  11.06.15 08:16:10
  39010200   42 PBASICS1R2 WSDL2RPG   QBASICS1   PBASICS1R2   871  11.06.15 08:16:10
   8003000   43 PBASICS1R7 WSDL2RPG   QBASICS1   PBASICS1R7   871  11.06.15 08:16:10
   8003100   44 PBASICS1R8 WSDL2RPG   QBASICS1   PBASICS1R8   871  11.06.15 08:16:10
  44014100   45 PBASICS1R4 WSDL2RPG   QBASICS1   PBASICS1R4   871  11.06.15 08:16:10
   8003200   46 PBASICS1R9 WSDL2RPG   QBASICS1   PBASICS1R9   871  11.06.15 08:16:10
  46006600   47 PBASICS1R2 WSDL2RPG   QBASICS1   PBASICS1R2   871  11.06.15 08:16:10
   8003300   48 PBASICS1RA WSDL2RPG   QBASICS1   PBASICS1RA   871  11.06.15 08:16:10
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    449
  48031900   49 PBASICS1R4 WSDL2RPG   QBASICS1   PBASICS1R4   871  11.06.15 08:16:10
  48032000   50 PBASICS1R8 WSDL2RPG   QBASICS1   PBASICS1R8   871  11.06.15 08:16:10
   8003400   51 PBASICS1RB WSDL2RPG   QBASICS1   PBASICS1RB   871  11.06.15 08:16:10
  51011300   52 PBASICS1RA WSDL2RPG   QBASICS1   PBASICS1RA   871  11.06.15 08:16:10
  51011400   53 PBASICS1R4 WSDL2RPG   QBASICS1   PBASICS1R4   871  11.06.15 08:16:10
   8003500   54 PBASICS1RC WSDL2RPG   QBASICS1   PBASICS1RC   871  11.06.15 08:16:10
  54026300   55 PBASICS1RA WSDL2RPG   QBASICS1   PBASICS1RA   871  11.06.15 08:16:10
  54026400   56 PBASICS1R4 WSDL2RPG   QBASICS1   PBASICS1R4   871  11.06.15 08:16:10
   8003600   57 PBASICS1RD WSDL2RPG   QBASICS1   PBASICS1RD   871  11.06.15 08:16:10
  57000400   58 FDURL      WSDL2RPG   QBASICS1   FDURL        871  11.06.15 08:16:10
   8003700   59 PBASICS1RE WSDL2RPG   QBASICS1   PBASICS1RE   871  11.06.15 08:16:10
   8003800   60 PBASICS1RF WSDL2RPG   QBASICS1   PBASICS1RF   871  11.06.15 08:16:10
   8003900   61 PBASICS1RG WSDL2RPG   QBASICS1   PBASICS1RG   871  11.06.15 08:16:10
   8004000   62 PBASICS1RH WSDL2RPG   QBASICS1   PBASICS1RH   871  11.06.15 08:16:10
  62000400   63 CLIB       WSDL2RPG   QBASICS1   CLIB         871  11.06.15 08:16:10
   7000500   64 TYPES      WSDL2RPG   QWSDL2RPG  TYPES        871  19.04.15 17:01:56
  64000800   65 PBASICS1   WSDL2RPG   QBASICS1   PBASICS1     871  11.06.15 08:16:10
  64000900   66 TYPES_H    WSDL2RPG   QWSDL2RPG  TYPES_H      871  19.04.15 17:01:56
   7000600   67 PWSDL2R87  WSDL2RPG   QWSDL2RPG  PWSDL2R87    871  19.04.15 17:01:55
  67000400   68 TYPES_H    WSDL2RPG   QWSDL2RPG  TYPES_H      871  19.04.15 17:01:56
  67000500   69 PWSDL2R86  WSDL2RPG   QWSDL2RPG  PWSDL2R86    871  19.04.15 17:01:55
   5000056   70 PWSDL2R88  WSDL2RPG   QWSDL2RPG  PWSDL2R88    871  19.04.15 17:01:55
  70000400   71 TYPES_H    WSDL2RPG   QWSDL2RPG  TYPES_H      871  19.04.15 17:01:56
  70000500   72 PLOG4RPG   WSDL2RPG   QLOG4RPG   PLOG4RPG     871  11.06.15 08:16:20
  72000800   73 FDMSG      WSDL2RPG   QLOG4RPG   FDMSG        871  11.06.15 08:16:19
   5000057   74 PWSDL2R90  WSDL2RPG   QWSDL2RPG  PWSDL2R90    871  19.04.15 17:01:55
  74000400   75 TYPES      WSDL2RPG   QWSDL2RPG  TYPES        871  19.04.15 17:01:56
    000162   76 PBASICS1   WSDL2RPG   QBASICS1   PBASICS1     871  11.06.15 08:16:10
    000163   77 PMIME      WSDL2RPG   QMIME      PMIME        871  19.04.15 17:02:10
    000164   78 HTTPMIME_H WSDL2RPG   QMIME      HTTPMIME_H   871  19.04.15 17:02:09
    000165   79 HTTPAPI_H  LIBHTTP    QRPGLESRC  HTTPAPI_H    871  08.06.15 16:45:24
  79003700   80 CONFIG_H   LIBHTTP    QRPGLESRC  CONFIG_H     871  08.06.15 16:45:24
    000166   81 PWSDL2R70  WSDL2RPG   QWSDL2RPG  PWSDL2R70    871  19.04.15 17:01:55
    000167   82 PWSDL2R71  WSDL2RPG   QWSDL2RPG  PWSDL2R71    871  19.04.15 17:01:55
  82000400   83 PBASICS1   WSDL2RPG   QBASICS1   PBASICS1     871  11.06.15 08:16:10
    000168   84 PWSDL2R79  WSDL2RPG   QWSDL2RPG  PWSDL2R79    871  19.04.15 17:01:55
  84000400   85 TYPES      WSDL2RPG   QWSDL2RPG  TYPES        871  19.04.15 17:01:56
    000169   86 PWSDL2R85  WSDL2RPG   QWSDL2RPG  PWSDL2R85    871  19.04.15 17:01:55
    000170   87 PWSDL2R86  WSDL2RPG   QWSDL2RPG  PWSDL2R86    871  19.04.15 17:01:55
    000171   88 PWSDL2R87  WSDL2RPG   QWSDL2RPG  PWSDL2R87    871  19.04.15 17:01:55
    000172   89 PWSDL2R88  WSDL2RPG   QWSDL2RPG  PWSDL2R88    871  19.04.15 17:01:55
    000173   90 PWSDL2R90  WSDL2RPG   QWSDL2RPG  PWSDL2R90    871  19.04.15 17:01:55
    000174   91 PWSDL2R94  WSDL2RPG   QWSDL2RPG  PWSDL2R94    871  19.04.15 17:01:55
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    450
  91000400   92 PBASICS1   WSDL2RPG   QBASICS1   PBASICS1     871  11.06.15 08:16:10
    000175   93 PWSDL2R97  WSDL2RPG   QWSDL2RPG  PWSDL2R97    871  19.04.15 17:01:55
  93000400   94 TYPES_H    WSDL2RPG   QWSDL2RPG  TYPES_H      871  19.04.15 17:01:56
  93000500   95 PBASICS1   WSDL2RPG   QBASICS1   PBASICS1     871  11.06.15 08:16:10
    000176   96 PWSDL2R98  WSDL2RPG   QWSDL2RPG  PWSDL2R98    871  19.04.15 17:01:55
  96000400   97 TYPES      WSDL2RPG   QWSDL2RPG  TYPES        871  19.04.15 17:01:56
  96000500   98 TYPES_H    WSDL2RPG   QWSDL2RPG  TYPES_H      871  19.04.15 17:01:56
  96000600   99 PWSDL2R86  WSDL2RPG   QWSDL2RPG  PWSDL2R86    871  19.04.15 17:01:55
    000177  100 PWSDL2R42  WSDL2RPG   QWSDL2RPG  PWSDL2R42    871  19.04.15 17:01:54
 100000400  101 TYPES      WSDL2RPG   QWSDL2RPG  TYPES        871  19.04.15 17:01:56
 100000500  102 WORKSTN    WSDL2RPG   QWSDL2RPG  WORKSTN      871  19.04.15 17:02:00
         * * * * *   E N D   O F   / C O P Y   M E M B E R S   * * * * *
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    451
                          C r o s s   R e f e r e n c e
      File and Record References:
         File              Device             References (D=Defined)
           Record
         No references in the source.
      Global Field References:
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ACTINF_T          DS(48)               26013700D
                           BASED(PDUMMY)
*RNF7031   ACTGRPMARK      I(10,0)              26014100D
*RNF7031   ACTMARK         I(10,0)              26014200D
*RNF7031   BYTAVL          I(10,0)              26013900D
*RNF7031   BYTRET          I(10,0)              26013800D
*RNF7031   FLAGS           A(1)                 26014400D
*RNF7031   RESERVED_1      A(8)                 26014000D
*RNF7031   RESERVED_2      A(7)                 26014300D
*RNF7031   RESERVED_3      A(16)                26014500D
*RNF7031 ACTPROC_T         DS(298)              21002100D   21020100
                           BASED(PDUMMY)
*RNF7031   ACTMARK         I(10,0)              21002300D
*RNF7031   LIB             A(10)                21002600D
*RNF7031   NAME            A(256)               21002400D
                           VARYING(2)
*RNF7031   PROCPTR         *(16) PROCPTR        21002200D
*RNF7031   SRVPGM          A(10)                21002500D
*RNF7031 ACTSRVPGM_T       DS(40)               21001500D   21019000    21020600
                           BASED(PDUMMY)
*RNF7031   ACTMARK         I(10,0)              21001700D
*RNF7031   LIB             A(10)                21001900D
*RNF7031   NAME            A(10)                21001800D
*RNF7031   PROCPTR         *(16) PROCPTR        21001600D
*RNF7031 ANDSTR            PROTOTYPE            26023200D
*RNF7031 ANY_END           PROTOTYPE            96125900D
*RNF7031 ANY_INITIALIZE    PROTOTYPE            96122400D
*RNF7031 ANY_INITIALIZEV6  PROTOTYPE            96123300D
*RNF7031 ANY_START         PROTOTYPE            96124400D
*RNF7031 APPENDER_NEW      *(16)                72069600D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    452
*RNF7031 APPENDER_NULL     *(16)                72071500D
                           PROTOTYPE
*RNF7031 APPENDER_SETFILTER...
                           N(1)                 72074700D
                           PROTOTYPE
*RNF7031 APPENDER_SETLAYOUT...
                           N(1)                 72073000D
                           PROTOTYPE
*RNF7031 APPMSG_ISNULL     N(1)                 74010700D
                           PROTOTYPE
*RNF7031 APPMSG_NEW        DS(549)              74004300D
                           PROTOTYPE
         APPMSG_NEWERROR   DS(549)              74005500D     003101      003449      003661
                           PROTOTYPE              003704
*RNF7031 APPMSG_NULL       DS(549)              74010000D
                           PROTOTYPE
*RNF7031 APPMSG_RETRIEVEHELPTEXT...
                           A(3000)              74009100D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 APPMSG_RETRIEVEMSGTEXT...
                           A(132)               74008100D
                           VARYING(2)
                           PROTOTYPE
         APPMSG_SENDCANCELMSG...
                           PROTOTYPE            74006400D     003101M     003103M     003449M
                                                  003451M     003661M     003663M     003704M
                                                  003706M
*RNF7031 APPMSG_SENDDIAGMSG...
                           PROTOTYPE            74001500D
*RNF7031 APPMSG_SENDESCMSG PROTOTYPE            74002500D
*RNF7031 APPMSG_SENDESCMSGANDDUMP...
                           PROTOTYPE            74003500D
*RNF7031 APPMSG_SENDSTATUSMSG...
                           PROTOTYPE            74000700D
*RNF7031 APPMSG_SENDTOCMDLINE...
                           PROTOTYPE            74007200D
*RNF7031 ASSERT            PROTOTYPE            77026200D
*RNF7031 ATOI              I(10,0)              63007100D
                           PROTOTYPE
         AUTH_ALL          CONST                26002100D
         AUTH_ALTER        CONST                26001900D
         AUTH_DELETE       CONST                26001300D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    453
         AUTH_EXCLUDED     CONST                26001600D
         AUTH_EXECUTE      CONST                26001800D
         AUTH_INSERT       CONST                26001200D
         AUTH_LST_MGMT     CONST                26001700D
         AUTH_NONE         CONST                26002200D
         AUTH_OBJ_CTRL     CONST                26000700D
         AUTH_OBJ_MGMT     CONST                26000800D
         AUTH_OWNER        CONST                26001500D
         AUTH_POINTER      CONST                26000900D
         AUTH_REF          CONST                26002000D
         AUTH_RETRIEVE     CONST                26001100D
         AUTH_SPACE        CONST                26001000D
         AUTH_UPDATE       CONST                26001400D
*RNF7031 BASICKEYSET_DELETE...
                           I(10,0)              54025300D
                           PROTOTYPE
*RNF7031 BASICKEYSET_GETFIRST...
                           A(4096)              54023700D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 BASICKEYSET_GETNEXT...
                           A(4096)              54024500D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 BASICKEYSET_HANDLE_T...
                           *(16)                54001000D   54023000    54024200    54025000
                           BASED(PDUMMY)        54025800    61021100
*RNF7031 BASICLIST_ADD     I(10,0)              48011900D
                           PROTOTYPE
*RNF7031 BASICLIST_ADDNULL I(10,0)              48013100D
                           PROTOTYPE
*RNF7031 BASICLIST_ADDPOINTER...
                           I(10,0)              48014800D
                           PROTOTYPE
*RNF7031 BASICLIST_ADDSTRING...
                           I(10,0)              48013900D
                           PROTOTYPE
*RNF7031 BASICLIST_CLEAR   I(10,0)              48026900D
                           PROTOTYPE
*RNF7031 BASICLIST_CLONE   *(16)                48003700D
                           PROTOTYPE
*RNF7031 BASICLIST_DELETE  I(10,0)              48028500D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    454
*RNF7031 BASICLIST_FIND    I(10,0)              48015700D
                           PROTOTYPE
*RNF7031 BASICLIST_FINDSTRING...
                           I(10,0)              48016700D
                           PROTOTYPE
*RNF7031 BASICLIST_GET     *(16)                48004500D
                           PROTOTYPE
*RNF7031 BASICLIST_GETHEAPID...
                           I(10,0)              48024400D
                           PROTOTYPE
*RNF7031 BASICLIST_GETLISTTYPE...
                           A(32)                48007400D
                           PROTOTYPE
*RNF7031 BASICLIST_GETNUME I(10,0)              48023600D
                           PROTOTYPE
*RNF7031 BASICLIST_GETPOINTER...
                           *(16)                48006500D
                           PROTOTYPE
*RNF7031 BASICLIST_GETSIZE I(10,0)              48011000D
                           PROTOTYPE
*RNF7031 BASICLIST_GETSTRING...
                           A(4096)              48005600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 BASICLIST_GETTOTALSIZE...
                           I(20,0)              48027700D
                           PROTOTYPE
*RNF7031 BASICLIST_GETTYPE A(32)                48010100D
                           PROTOTYPE
*RNF7031 BASICLIST_HANDLE_T...
                           *(16)                48000400D   48002700    48003800    48004200
                           BASED(PDUMMY)        48005000    48006100    48007000    48007900
                                                48008700    48009600    48010600    48011500
                                                48012400    48013600    48014400    48015300
                                                48016200    48017200    48018100    48019400
                                                48020300    48021300    48022300    48023200
                                                48024100    48024900    48025700    48026600
                                                48027400    48028200    48029000    48029400
                                                48030500    48031300    51000500    54000500
                                                54017900    54018900    64060900
*RNF7031 BASICLIST_ISLISTTYPEOF...
                           N(1)                 48008200D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    455
*RNF7031 BASICLIST_ISNULL  N(1)                 48030000D
                           PROTOTYPE
*RNF7031 BASICLIST_ISNULLVALUE...
                           N(1)                 48030800D
                           PROTOTYPE
*RNF7031 BASICLIST_ISSORTED...
                           N(1)                 48026100D
                           PROTOTYPE
*RNF7031 BASICLIST_ISTYPEOF...
                           N(1)                 48009100D
                           PROTOTYPE
*RNF7031 BASICLIST_NEW     *(16)                48002600D
                           PROTOTYPE
*RNF7031 BASICLIST_NULL    *(16)                48029300D
                           PROTOTYPE
*RNF7031 BASICLIST_REMOVE  I(10,0)              48022700D
                           PROTOTYPE
*RNF7031 BASICLIST_SET     I(10,0)              48017600D
                           PROTOTYPE
*RNF7031 BASICLIST_SETAUTOSORT...
                           N(1)                 48021800D
                           PROTOTYPE
*RNF7031 BASICLIST_SETNULL I(10,0)              48018900D
                           PROTOTYPE
*RNF7031 BASICLIST_SETPOINTER...
                           I(10,0)              48020800D
                           PROTOTYPE
*RNF7031 BASICLIST_SETSTRING...
                           I(10,0)              48019800D
                           PROTOTYPE
*RNF7031 BASICLIST_SORT    N(1)                 48025200D
                           PROTOTYPE
*RNF7031 BASICLIST_TYPE_T  A(32)                48000600D   48003100    48007500    48008800
                           BASED(PDUMMY)        48009800    48010200    48012700    48018500
*RNF7031 BASICMAP_CLEAR    I(10,0)              54019800D
                           PROTOTYPE
*RNF7031 BASICMAP_CLONE    *(16)                54002300D
                           PROTOTYPE
*RNF7031 BASICMAP_CONTAINSKEY...
                           N(1)                 54004100D
                           PROTOTYPE
*RNF7031 BASICMAP_DELETE   I(10,0)              54020600D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    456
*RNF7031 BASICMAP_GET      *(16)                54005100D
                           PROTOTYPE
*RNF7031 BASICMAP_GETHEAPID...
                           I(10,0)              54017000D
                           PROTOTYPE
*RNF7031 BASICMAP_GETINTEGER...
                           I(10,0)              54007300D
                           PROTOTYPE
*RNF7031 BASICMAP_GETKEYBYINDEX...
                           A(4096)              54009400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 BASICMAP_GETKEYS  *(16)                54017800D
                           PROTOTYPE
*RNF7031 BASICMAP_GETNUME  I(10,0)              54016200D
                           PROTOTYPE
*RNF7031 BASICMAP_GETSIZE  I(10,0)              54014300D
                           PROTOTYPE
*RNF7031 BASICMAP_GETSIZEBYINDEX...
                           I(10,0)              54015300D
                           PROTOTYPE
*RNF7031 BASICMAP_GETSTRING...
                           A(4096)              54006300D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 BASICMAP_GETVALUEBYINDEX...
                           *(16)                54008300D
                           PROTOTYPE
*RNF7031 BASICMAP_GETVALUES...
                           *(16)                54018800D
                           PROTOTYPE
*RNF7031 BASICMAP_HANDLE_T *(16)                54000400D   54001500    54002400    54002800
                           BASED(PDUMMY)        54003600    54004600    54005600    54006800
                                                54007800    54008800    54009900    54011000
                                                54012400    54013700    54014800    54015800
                                                54016700    54017500    54018300    54019300
                                                54020300    54021100    54021500    54022600
                                                54023400    64056900    91012600
*RNF7031 BASICMAP_ISNULL   N(1)                 54022100D
                           PROTOTYPE
*RNF7031 BASICMAP_KEY_T    A(4096)              54000700D   54003700    54004700    54005700
                           BASED(PDUMMY)        54006900    54007900    54009500    54011100
                           VARYING(2)           54012500    54013800    54014900    54023800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    457
                                                54024600    61005600    61006700    61007700
                                                61008900    61010000    61011100    61012300
                                                61013500    61014600    61015700
*RNF7031 BASICMAP_NEW      *(16)                54001400D
                           PROTOTYPE
*RNF7031 BASICMAP_NEWKEYSET...
                           *(16)                54022900D
                           PROTOTYPE
*RNF7031 BASICMAP_NULL     *(16)                54021400D
                           PROTOTYPE
*RNF7031 BASICMAP_PUT      I(10,0)              54010500D
                           PROTOTYPE
*RNF7031 BASICMAP_PUTINTEGER...
                           I(10,0)              54013200D
                           PROTOTYPE
*RNF7031 BASICMAP_PUTSTRING...
                           I(10,0)              54011900D
                           PROTOTYPE
*RNF7031 BASICMAP_REMOVE   I(10,0)              54003100D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_CLEAR...
                           I(10,0)              61017800D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_CLONE...
                           *(16)                61002000D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_CONTAINSKEY...
                           N(1)                 61006100D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_DECVAL_T...
                           P(31,10)             61000700D   61010600    61011300    61015200
                           BASED(PDUMMY)        61015900
*RNF7031 BASICPROPERTIES_DELETE...
                           I(10,0)              61018600D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_GETBOOLEAN...
                           N(1)                 61009400D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_GETDECIMAL...
                           P(31,10)             61010500D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_GETHEAPID...
                           I(10,0)              61017000D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    458
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_GETINTEGER...
                           I(10,0)              61008300D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_GETNUME...
                           I(10,0)              61016200D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_GETSTRING...
                           A(4096)              61007100D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_HANDLE_T...
                           *(16)                61000400D   61001200    61002100    61002500
                           BASED(PDUMMY)        61003300    61004600    61005500    61006600
                                                61007600    61008800    61009900    61011000
                                                61012200    61013400    61014500    61015600
                                                61016700    61017500    61018300    61019200
                                                61019600    61020700    61021500
*RNF7031 BASICPROPERTIES_ISNULL...
                           N(1)                 61020200D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_LOADFROMMEMBER...
                           I(10,0)              61002800D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_LOADFROMSTMF...
                           I(10,0)              61004100D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_NEW...
                           *(16)                61001100D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_NEWKEYSET...
                           *(16)                61021000D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_NULL...
                           *(16)                61019500D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_PUTBOOLEAN...
                           I(10,0)              61014000D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_PUTDECIMAL...
                           P(31,10)             61015100D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_PUTINTEGER...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    459
                           I(10,0)              61012900D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_PUTSTRING...
                           I(10,0)              61011700D
                           PROTOTYPE
*RNF7031 BASICPROPERTIES_REMOVE...
                           I(10,0)              61005000D
                           PROTOTYPE
*RNF7031 BASICSTACK_CLEAR  I(10,0)              51008000D
                           PROTOTYPE
*RNF7031 BASICSTACK_CLONE  *(16)                51001800D
                           PROTOTYPE
*RNF7031 BASICSTACK_DELETE I(10,0)              51008800D
                           PROTOTYPE
*RNF7031 BASICSTACK_GETHEAPID...
                           I(10,0)              51007200D
                           PROTOTYPE
*RNF7031 BASICSTACK_GETNUME...
                           I(10,0)              51006400D
                           PROTOTYPE
*RNF7031 BASICSTACK_GETSIZE...
                           I(10,0)              51005600D
                           PROTOTYPE
*RNF7031 BASICSTACK_HANDLE_T...
                           *(16)                51000400D   51001000    51001900    51002300
                           BASED(PDUMMY)        51003100    51004100    51005100    51006100
                                                51006900    51007700    51008500    51009300
                                                51009700    51010800
*RNF7031 BASICSTACK_ISNULL N(1)                 51010300D
                           PROTOTYPE
*RNF7031 BASICSTACK_NEW    *(16)                51000900D
                           PROTOTYPE
*RNF7031 BASICSTACK_NULL   *(16)                51009600D
                           PROTOTYPE
*RNF7031 BASICSTACK_PEEK   *(16)                51002600D
                           PROTOTYPE
*RNF7031 BASICSTACK_POP    *(16)                51003600D
                           PROTOTYPE
*RNF7031 BASICSTACK_PUSH   I(10,0)              51004600D
                           PROTOTYPE
*RNF7031 BSEARCH           *(16)                63029400D
                           PROTOTYPE
         C_CHECK_ALL       CONST                63020700D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    460
         C_CHECK_ALL_AND_ABORT...
                           CONST                63020900D
         C_CHECK_CHUNKS    CONST                63020400D
         C_CHECK_NODES     CONST                63020500D
         C_CHECK_TOTALS    CONST                63020300D
         C_CHECK_TREE      CONST                63020600D
         C_DUMP_ALL        CONST                63019900D
         C_DUMP_CHUNKS     CONST                63019200D
         C_DUMP_NODES      CONST                63019600D
         C_DUMP_TOTALS     CONST                63018900D
         C_DUMP_TREE       CONST                63019800D
*RNF7031 C_MALLINFO_T      DS(64)               63017400    63018300    63022400D
                           BASED(PDUMMY)
*RNF7031   ALLOCATED_BLOCKS...
                           I(20,0)              63023200D
*RNF7031   ALLOCATED_BYTES I(20,0)              63022800D
*RNF7031   OVERHEAD_BYTES  I(20,0)              63024000D
*RNF7031   PAD_BYTES       I(20,0)              63023800D
*RNF7031   REQUESTED_BYTES I(20,0)              63023600D
*RNF7031   TOTAL_BYTES     I(20,0)              63022600D
*RNF7031   UNALLOCATED_BLOCKS...
                           I(20,0)              63023400D
*RNF7031   UNALLOCATED_BYTES...
                           I(20,0)              63023000D
         C_NO_CHECKS       CONST                63020200D
         C_NO_DUMPS        CONST                63018700D
*RNF7031 CALLER            A(256)               77028300D
                           VARYING(2)
                           PROTOTYPE
         CARRAY_INDEX      CONST                64050900D
         CARRAY_NONE       CONST                64050100D
         CARRAY_RPG        CONST                64050500D
         CARRAY_VALUE      CONST                64050700D
         CARRAY_XML        CONST                64050300D
         CAUTH_TYPE_HTTP   CONST               100000700D
         CAUTH_TYPE_PROXY  CONST               100000900D
         CBASICLIST_REMOVE_ALL...
                           CONST                48000900D
         CBASICLIST_TYPE_CHARACTER...
                           CONST                48001600D
         CBASICLIST_TYPE_INTEGER...
                           CONST                48001800D
         CBASICLIST_TYPE_POINTER...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    461
                           CONST                48002200D
         CBASICLIST_TYPE_UINTEGER...
                           CONST                48002000D
         CBASICLIST_TYPE_UNKNOWN...
                           CONST                48001200D
         CBASICLIST_TYPE_VSTRING...
                           CONST                48001400D
         CBOOL_AND         CONST                64081700D
         CBOOLEAN_NULL     CONST                64002400D
*RNF7031 CBSAXENDELEMENT   PROTOTYPE            93009700D
*RNF7031 CBSAXENDNAMESPACEDECL...
                           PROTOTYPE            93012800D
*RNF7031 CBSAXSTARTELEMENT PROTOTYPE            93008000D
*RNF7031 CBSAXSTARTNAMESPACEDECL...
                           PROTOTYPE            93011500D
         CBYTE_DECPOS      CONST                64027400D
         CBYTE_LEN         CONST                64027200D
         CBYTE_TYPE        CONST                64027000D
         CCIPHER_FINAL     CONST                63094800D
         CCIPHER_FIRST     CONST                63094400D
         CCIPHER_HASH      CONST                63095100D
         CCIPHER_HMAC      CONST                63095300D
         CCIPHER_MD5       CONST                63093700D
         CCIPHER_MIDDLE    CONST                63094600D
         CCIPHER_ONLY      CONST                63094200D
         CCIPHER_SHA1      CONST                63093900D
         CCLOSE_ANGLE      CONST                64102300D
         CCMD_PRC_CHK_CL_STMT...
                           CONST                39001700D
         CCMD_PRC_CHK_CMDLINE...
                           CONST                39001500D
         CCMD_PRC_CHK_QCMDCHK...
                           CONST                39001100D
         CCMD_PRC_CHK_SEU_BND...
                           CONST                39002300D
         CCMD_PRC_CHK_SEU_CL...
                           CONST                39001900D
         CCMD_PRC_CHK_SEU_CLLE...
                           CONST                39002700D
         CCMD_PRC_CHK_SEU_CMD...
                           CONST                39002100D
         CCMD_PRC_CHK_UDO  CONST                39002500D
         CCMD_PRC_EXC_CMDLINE...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    462
                           CONST                39001300D
         CCMD_PRC_EXC_QCMDEXC...
                           CONST                39000900D
         CCMD_PRC_PROMPT_ALWAYS...
                           CONST                39003200D
         CCMD_PRC_PROMPT_HELP...
                           CONST                39003600D
         CCMD_PRC_PROMPT_NEVER...
                           CONST                39003000D
         CCMD_PRC_PROMPT_ON_REQUEST...
                           CONST                39003400D
         CCONTINUE_LITERAL CONST                64078700D
         CCONTINUE_NAME    CONST                64078900D
         CCONTINUE_NEXT_LINE...
                           CONST                64079100D
         CCRC32_FINAL      CONST                28005900D
         CCRC32_FIRST      CONST                28005500D
         CCRC32_MIDDLE     CONST                28005700D
         CCRC32_ONLY       CONST                28005300D
         CDECIMAL_DECPOS   CONST                64024300D
         CDECIMAL_LEN      CONST                64024100D
         CDECIMAL_TYPE     CONST                64023900D
         CDEFAULT_LEFT_MARGIN...
                           CONST                64078200D
         CDEFAULT_RIGHT_MARGIN...
                           CONST                64078400D
         CDEFAULT_TAB_INDENT...
                           CONST                64078000D
         CDIM_DIGITS       CONST                64023500D
         CDIM_LENGTH       CONST                64023400D
         CDIM_XML_UNBOUNDED...
                           CONST                64023600D
         CDISPLAY_MODE_DS3 CONST                46000800D
         CDISPLAY_MODE_DS4 CONST                46001000D
         CDOUBLE_DECPOS    CONST                64025000D
         CDOUBLE_LEN       CONST                64024800D
         CDOUBLE_QUOTE     CONST                64100900D
         CDOUBLE_TYPE      CONST                64024600D
         CEBCDIC_CRLF      CONST                64101200D
         CENTRY_TYPE_REQUEST_MESSAGE...
                           CONST                64069800D
         CENTRY_TYPE_RESPONSE_MESSAGE...
                           CONST                64070100D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    463
         CEOL              CONST                64079300D
         CEXT_TYPE_INF_ARRAY_INDEX...
                           CONST                64070800D
         CEXT_TYPE_INF_DYNAMIC_ARRAY...
                           CONST                64071100D
         CEXT_TYPE_INF_RECURSION...
                           CONST                64071400D
         CEXT_TYPE_INF_STATIC_ARRAY...
                           CONST                64070600D
         CFALSE            CONST                 8001400D     000590      000598      000602
                                                  000610      000616      000654      000829
                                                  000830      000832      000833      000914
                                                  000917      003167      003174      003393
                                                  003727      003880
         CFD_NULL          CONST                69001800D
         CFLOAT_DECPOS     CONST                64025800D
         CFLOAT_LEN        CONST                64025600D
         CFLOAT_TYPE       CONST                64025400D
         CGDAY_DECPOS      CONST                64037000D
         CGDAY_LEN         CONST                64036800D
         CGDAY_TYPE        CONST                64036600D
         CGENERATE_PGM     CONST                64002900D
         CGENERATE_SRVICE_MODULE...
                           CONST                64003100D
         CGENERATE_STUB    CONST                64002700D
         CGENERATOR_CALLBACK_END...
                           CONST                64083300D
         CGENERATOR_CALLBACK_START...
                           CONST                64083100D
         CGENERATOR_CMD_GENERATE...
                           CONST                64084400D
         CGENERATOR_CMD_GENERATE_ARRAY_ITEM...
                           CONST                64089000D
         CGENERATOR_CMD_GENERATE_ARRAY_ITERATOR...
                           CONST                64088800D
         CGENERATOR_CMD_GENERATE_CALLBACKS...
                           CONST                64087400D
         CGENERATOR_CMD_GENERATE_DIMENSIONS...
                           CONST                64088600D
         CGENERATOR_CMD_GENERATE_END_OF_PROCEDURE...
                           CONST                64087200D
         CGENERATOR_CMD_GENERATE_LIST_OF_STUB_MODULES...
                           CONST                64089400D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    464
         CGENERATOR_CMD_GENERATE_NAMESPACES...
                           CONST                64088000D
         CGENERATOR_CMD_GENERATE_OPERATION_PROCEDURE_INTERFACE...
                           CONST                64086400D
         CGENERATOR_CMD_GENERATE_OPERATION_PROCEDURE_PROTOTYPE...
                           CONST                64084600D
         CGENERATOR_CMD_GENERATE_OPERATION_REQUEST_PARAMETER_LIST...
                           CONST                64085200D
         CGENERATOR_CMD_GENERATE_OPERATION_REQUEST_PARAMETER_TYPES...
                           CONST                64085400D
         CGENERATOR_CMD_GENERATE_OPERATION_REQUEST_PARAMETERS...
                           CONST                64084800D
         CGENERATOR_CMD_GENERATE_OPERATION_REQUEST_PARAMETERS_PR...
                           CONST                64085000D
         CGENERATOR_CMD_GENERATE_OPERATION_RESPONSE_SOAP_HEADER...
                           CONST                64087000D
         CGENERATOR_CMD_GENERATE_OPERATION_RESPONSE_TYPE...
                           CONST                64085600D
         CGENERATOR_CMD_GENERATE_OPERATION_RETURN_VALUE...
                           CONST                64086600D
         CGENERATOR_CMD_GENERATE_OPERATION_USERDATA...
                           CONST                64086800D
         CGENERATOR_CMD_GENERATE_PROTOTYPES...
                           CONST                64086000D
         CGENERATOR_CMD_GENERATE_REQUEST...
                           CONST                64088400D
         CGENERATOR_CMD_GENERATE_SERIALIZER_PROCEDURES...
                           CONST                64087800D
         CGENERATOR_CMD_GENERATE_SERIALIZER_PROTOTYPES...
                           CONST                64087600D
         CGENERATOR_CMD_GENERATE_SET_INPUT_PARAMETERS...
                           CONST                64089200D
         CGENERATOR_CMD_GENERATE_SOAP_HEADER...
                           CONST                64088200D
         CGENERATOR_CMD_GENERATE_TYPES...
                           CONST                64085800D
         CGENERATOR_CMD_GENERATE_WEB_SERVICE_ENDPOINT...
                           CONST                64086200D
         CGENERATOR_CMD_QUOTED_VARIABLE...
                           CONST                64089900D
         CGENERATOR_CMD_VARIABLE...
                           CONST                64089700D
         CGENERATOR_CMD_VARIABLE_ADDR_USERDATA...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    465
                           CONST                64092300D
         CGENERATOR_CMD_VARIABLE_BUILD_ON...
                           CONST                64095500D
         CGENERATOR_CMD_VARIABLE_CLEAR_RTNVALUE...
                           CONST                64092500D
         CGENERATOR_CMD_VARIABLE_ENABLE_ATTACHMENTS...
                           CONST                64094500D
         CGENERATOR_CMD_VARIABLE_END_CALLBACK...
                           CONST                64091500D
         CGENERATOR_CMD_VARIABLE_END_HEADER_CALLBACK...
                           CONST                64091900D
         CGENERATOR_CMD_VARIABLE_FULL_QUALIFIED_SRVMOD...
                           CONST                64093900D
         CGENERATOR_CMD_VARIABLE_FULL_QUALIFIED_STUB...
                           CONST                64093300D
         CGENERATOR_CMD_VARIABLE_IGNORE_UNEXPECTED_SOAP_HDR...
                           CONST                64096300D
         CGENERATOR_CMD_VARIABLE_MEMBER_TEXT...
                           CONST                64090900D
         CGENERATOR_CMD_VARIABLE_OPERATION_NAME...
                           CONST                64090700D
         CGENERATOR_CMD_VARIABLE_OPERATION_RESPONSE...
                           CONST                64091100D
         CGENERATOR_CMD_VARIABLE_OPERATION_RESPONSE_TYPE...
                           CONST                64094300D
         CGENERATOR_CMD_VARIABLE_OUTPUT_MEMBER...
                           CONST                64090100D
         CGENERATOR_CMD_VARIABLE_PORT_NAME...
                           CONST                64090300D
         CGENERATOR_CMD_VARIABLE_PROCEDURE_NAME...
                           CONST                64094100D
         CGENERATOR_CMD_VARIABLE_PTR_RESP_SOAP_HEADER...
                           CONST                64095700D
         CGENERATOR_CMD_VARIABLE_RTNVALUE...
                           CONST                64092900D
         CGENERATOR_CMD_VARIABLE_RTNVALUE_USERDATA...
                           CONST                64092700D
         CGENERATOR_CMD_VARIABLE_SERVICE_UUID...
                           CONST                64094700D
         CGENERATOR_CMD_VARIABLE_SOAP_ACTION...
                           CONST                64092100D
         CGENERATOR_CMD_VARIABLE_SRVMOD...
                           CONST                64093500D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    466
         CGENERATOR_CMD_VARIABLE_SRVPGM...
                           CONST                64093700D
         CGENERATOR_CMD_VARIABLE_START_CALLBACK...
                           CONST                64091300D
         CGENERATOR_CMD_VARIABLE_START_HEADER_CALLBACK...
                           CONST                64091700D
         CGENERATOR_CMD_VARIABLE_STUB...
                           CONST                64093100D
         CGENERATOR_CMD_VARIABLE_TGTRLS...
                           CONST                64096500D
         CGENERATOR_CMD_VARIABLE_UNEXPECTED_ELEMENT_END_CALLBACK...
                           CONST                64096100D
         CGENERATOR_CMD_VARIABLE_UNEXPECTED_ELEMENT_START_CALLBACK...
                           CONST                64095900D
         CGENERATOR_CMD_VARIABLE_WSDL_PORT_NAME...
                           CONST                64090500D
         CGENERATOR_CMD_VARIABLE_WSDL2RPG_DATE...
                           CONST                64095100D
         CGENERATOR_CMD_VARIABLE_WSDL2RPG_VERSION...
                           CONST                64094900D
         CGENERATOR_CMD_VARIABLE_WSDL2RPG_VERSION_INFO...
                           CONST                64095300D
         CGENERATOR_CNULL_CHECK_PROCEDURE_INPUT_PARAMETER...
                           CONST                64099000D
         CGENERATOR_CNULL_CHECK_PROCEDURE_NULL_VALUE...
                           CONST                64099200D
         CGENERATOR_CNULL_CHECK_PROCEDURE_RETURN_VALUE...
                           CONST                64099400D
         CGENERATOR_CNULL_CHECK_PROCEDURE_SUFFIX...
                           CONST                64099600D
         CGENERATOR_H_OUT_STREAM...
                           CONST                64084100D
         CGENERATOR_MOVED_TYPE_NAME_SUFFIX...
                           CONST                64097600D
         CGENERATOR_NAME_CONCATENATION...
                           CONST                64097000D
         CGENERATOR_PREFIX_NAME_DELIMITER...
                           CONST                64096800D
         CGENERATOR_REFERENCE_NAME_SUFFIX...
                           CONST                64097800D
         CGENERATOR_RENAME_TYPE_NAME_SUFFIX...
                           CONST                64097400D
         CGENERATOR_REQUEST_BUFFER_NAME_V1...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    467
                           CONST                64083700D
         CGENERATOR_REQUEST_BUFFER_NAME_V2...
                           CONST                64083900D
         CGENERATOR_RPC_RESPONSE_NAME_SUFFIX...
                           CONST                64098000D
         CGENERATOR_RPG_ARRAY_PREFIX...
                           CONST                64097200D
         CGENERATOR_RPG_ARRAY_VALUE_NAME_1...
                           CONST                64098200D
         CGENERATOR_RPG_ARRAY_VALUE_NAME_2...
                           CONST                64098400D
         CGENERATOR_RPG_CHOICE_HELPER_TYPE...
                           CONST                64098800D
         CGENERATOR_RPG_SEQUENCE_HELPER_TYPE...
                           CONST                64098600D
         CGENERATOR_SERIALIZER...
                           CONST                64083500D
         CGENERATOR_TAG_CLOSE_BRAKET...
                           CONST                64082400D
         CGENERATOR_TAG_FIRST_DELIMITER...
                           CONST                64082600D
         CGENERATOR_TAG_NEXT_DELIMITER...
                           CONST                64082800D
         CGENERATOR_TAG_OPEN_BRAKET...
                           CONST                64082200D
         CGENERATOR_TAG_START...
                           CONST                64082000D
         CGENERATOR_UNEXPECTED_ELEMENT_END...
                           CONST                64100000D
         CGENERATOR_UNEXPECTED_ELEMENT_START...
                           CONST                64099800D
         CGMONTH_DAY_DECPOS...
                           CONST                64038600D
         CGMONTH_DAY_LEN   CONST                64038400D
         CGMONTH_DAY_TYPE  CONST                64038200D
         CGMONTH_DECPOS    CONST                64037800D
         CGMONTH_LEN       CONST                64037600D
         CGMONTH_TYPE      CONST                64037400D
         CGYEAR_DECPOS     CONST                64039400D
         CGYEAR_LEN        CONST                64039200D
         CGYEAR_MONTH_DECPOS...
                           CONST                64040200D
         CGYEAR_MONTH_LEN  CONST                64040000D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    468
         CGYEAR_MONTH_TYPE CONST                64039800D
         CGYEAR_TYPE       CONST                64039000D
*RNF7031 CHAR_T            A(1)                 63000800D
                           BASED(PDUMMY)
*RNF7031 CHDIR             I(10,0)              63052200D
                           PROTOTYPE
*RNF7031 CHMOD             I(10,0)              63053300D
                           PROTOTYPE
         CHTTP_HEADER_ATTR_BOUNDARY...
                           CONST                64010700D
         CHTTP_HEADER_ATTR_FILE_NAME...
                           CONST                64011100D
         CHTTP_HEADER_ATTR_NAME...
                           CONST                64011300D
         CHTTP_HEADER_ATTR_START...
                           CONST                64010900D
         CHTTP_HEADER_ATTR_TYPE...
                           CONST                64010500D
         CHTTP_HEADER_CONTENT_DISPOSITION...
                           CONST                64010100D
         CHTTP_HEADER_CONTENT_ID...
                           CONST                64009900D
         CHTTP_HEADER_CONTENT_TRANSFER_ENCODING...
                           CONST                64010300D
         CHTTP_HEADER_CONTENT_TYPE...
                           CONST                64009700D
         CHTTP_HEADER_MIME_VERSION...
                           CONST                64009500D
         CHTTP_HEADER_SOAP_ACTION...
                           CONST                64009300D
         CICONV_ERROR      CONST                63035500D
         CINT_DECPOS       CONST                64028200D
         CINT_LEN          CONST                64028000D
         CINT_TYPE         CONST                64027800D
         CINTEGER_DECPOS   CONST                64029000D
         CINTEGER_LEN      CONST                64028800D
         CINTEGER_TYPE     CONST                64028600D
*RNF7031 CIPHER            PROTOTYPE            63091900D
*RNF7031 CIPHERCTRLS_T     DS(96)               63092500D
                           BASED(PDUMMY)
*RNF7031   DATALENGTH      U(10,0)              63092900D
*RNF7031   FUNCTION        A(2)                 63092600D
*RNF7031   HASHALG         A(1)                 63092700D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    469
*RNF7031   HASHCONTEXT     *(16)                63093200D
*RNF7031   HMACKEY         *(16)                63093300D
*RNF7031   HMACKEYLENGTH   U(10,0)              63093400D
*RNF7031   OUTPUT          A(1)                 63093000D
*RNF7031   RESERVED_1      A(7)                 63093100D
*RNF7031   RESERVED_2      A(44)                63093500D
*RNF7031   SEQUENCE        A(1)                 63092800D
         CKEYCLEAR         CONST               102004000D
         CKEYDELETE        CONST               102004100D
         CKEYENTER         CONST               102004300D
         CKEYF1            CONST               102001500D
         CKEYF10           CONST               102002400D
         CKEYF11           CONST               102002500D
         CKEYF12           CONST               102002600D
         CKEYF13           CONST               102002700D
         CKEYF14           CONST               102002800D
         CKEYF15           CONST               102002900D
         CKEYF16           CONST               102003000D
         CKEYF17           CONST               102003100D
         CKEYF18           CONST               102003200D
         CKEYF19           CONST               102003300D
         CKEYF2            CONST               102001600D
         CKEYF20           CONST               102003400D
         CKEYF21           CONST               102003500D
         CKEYF22           CONST               102003600D
         CKEYF23           CONST               102003700D
         CKEYF24           CONST               102003800D
         CKEYF3            CONST               102001700D
         CKEYF4            CONST               102001800D
         CKEYF5            CONST               102001900D
         CKEYF6            CONST               102002000D
         CKEYF7            CONST               102002100D
         CKEYF8            CONST               102002200D
         CKEYF9            CONST               102002300D
         CKEYHELP          CONST               102004500D
         CKEYLIGHTPEN      CONST               102005200D
         CKEYPAGEDOWN      CONST               102004600D
         CKEYPAGEUP        CONST               102004700D
         CKEYPRINTSCR      CONST               102004800D
         CKEYRESET         CONST               102005000D
         CLASS_BOUND_OPERATION_IO...
                           CONST                64001800D
         CLASS_MESSAGE     CONST                64001400D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    470
         CLASS_PART        CONST                64001600D
         CLASS_TRANSCODER  CONST                64002000D
         CLASS_TYPE        CONST                64001200D
         CLOGGER           CONST                64003500D
         CLOGGER_APPLICATION_MESSAGE...
                           CONST                64007800D
         CLOGGER_ARRAY     CONST                64005800D
         CLOGGER_ATTACHMENT_PART...
                           CONST                64007200D
         CLOGGER_COMMON    CONST                64008400D
         CLOGGER_COMPILER_CONDITIONS...
                           CONST                64006000D
         CLOGGER_CONTROLLER...
                           CONST                64003600D
         CLOGGER_EXPAT_ADAPTER...
                           CONST                64008900D
         CLOGGER_HELPER_TYPES...
                           CONST                64004800D
         CLOGGER_MANAGED_MEMORY_DATA_SOURCE...
                           CONST                64006800D
         CLOGGER_MANAGED_MEMORY_DATA_SOURCE_ICONV...
                           CONST                64007000D
         CLOGGER_MEMORY_MANAGER...
                           CONST                64006200D
         CLOGGER_MIME_HEADERS...
                           CONST                64006400D
         CLOGGER_MULTIREF  CONST                64008600D
         CLOGGER_NAMESPACES...
                           CONST                64004000D
         CLOGGER_OPERATION CONST                64005000D
         CLOGGER_OPERATION_VISUALIZED_TYPES...
                           CONST                64005200D
         CLOGGER_QUALIFIED_NAME...
                           CONST                64008000D
         CLOGGER_REQ_INP_PARAM...
                           CONST                64003800D
         CLOGGER_RPG_ADAPTER...
                           CONST                64004200D
         CLOGGER_RPG_ARRAY CONST                64005600D
         CLOGGER_SOAP_MESSAGE...
                           CONST                64007400D
         CLOGGER_SOAP_MESSAGE_DATA...
                           CONST                64007600D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    471
         CLOGGER_STREAM    CONST                64006600D
         CLOGGER_TEMPFILE  CONST                64008200D
         CLOGGER_TYPES     CONST                64004600D
         CLOGGER_WSDL_PARSER...
                           CONST                64004400D
         CLOGGER_XML_ARRAY CONST                64005400D
         CLOG4RPG_CONFIGURATION_DEFAULT_RELOAD_DELAY...
                           CONST                72007300D
         CLOG4RPG_CONFIGURATION_DEFAULT_RELOAD_DELAY_UNIT...
                           CONST                72007500D
         CLOG4RPG_DEBUG_OFF...
                           CONST                72009300D
         CLOG4RPG_DEBUG_ON CONST                72009500D
         CLOG4RPG_DEBUG_OUTPUT_PRINTER...
                           CONST                72010100D
         CLOG4RPG_DEBUG_OUTPUT_STDOUT...
                           CONST                72010300D
         CLOG4RPG_DEBUG_QUIET...
                           CONST                72009100D
         CLOG4RPG_DEBUG_VERBOSE...
                           CONST                72009700D
         CLOG4RPG_LEVEL_DEBUG...
                           CONST                72007900D
         CLOG4RPG_LEVEL_ERROR...
                           CONST                72008500D
         CLOG4RPG_LEVEL_FATAL...
                           CONST                72008700D
         CLOG4RPG_LEVEL_INFO...
                           CONST                72008100D
         CLOG4RPG_LEVEL_WARN...
                           CONST                72008300D
         CLOG4RPG_LIB_SEARCH...
                           CONST                72006900D
         CLOG4RPG_MAX_TEXT_LENGTH...
                           CONST                72002900D
         CLONG_DECPOS      CONST                64029800D
         CLONG_LEN         CONST                64029600D
         CLONG_TYPE        CONST                64029400D
*RNF7031 CLOSE             I(10,0)              63069500D
                           PROTOTYPE
*RNF7031 CLOSEDIR          I(10,0)              63058700D
                           PROTOTYPE
         CMAX_KWDS         CONST                64062900    64063200D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    472
         CMAX_LENGTH_OF_OUTPUT_MEMBER_NAME...
                           CONST                64011700D
         CMAX_OPERATIONS   CONST                64017800    64018000D
         CMD5_FINAL        CONST                28002700D
         CMD5_FIRST        CONST                28002300D
         CMD5_HEX          CONST                28001700D
         CMD5_MIDDLE       CONST                28002500D
         CMD5_ONLY         CONST                28002100D
         CMD5_STRING       CONST                28001900D
         CMEM_SIZE_BYTE    CONST                29033500D
         CMEM_SIZE_EXA_BYTE...
                           CONST                29034700D
         CMEM_SIZE_GIGA_BYTE...
                           CONST                29034100D
         CMEM_SIZE_KILO_BYTE...
                           CONST                29033700D
         CMEM_SIZE_MEGA_BYTE...
                           CONST                29033900D
         CMEM_SIZE_PETA_BYTE...
                           CONST                29034500D
         CMEM_SIZE_TERA_BYTE...
                           CONST                29034300D
         CMEM_SIZE_ZETTA_BYTE...
                           CONST                29034900D
         CMIME_BASICPART   CONST                78004200D     003217      003388
         CMIME_CONTENT_TYPE_APPLICATION...
                           CONST                78005600D
         CMIME_CONTENT_TYPE_AUDIO...
                           CONST                78005000D
         CMIME_CONTENT_TYPE_IMAGE...
                           CONST                78005200D
         CMIME_CONTENT_TYPE_MESSAGEPART...
                           CONST                78006200D
         CMIME_CONTENT_TYPE_MULTIPART...
                           CONST                78006000D
         CMIME_CONTENT_TYPE_TEXT...
                           CONST                78004800D
         CMIME_CONTENT_TYPE_VIDEO...
                           CONST                78005400D
         CMIME_DISPOSITION_ATTACHMENT...
                           CONST                78006600D
         CMIME_DISPOSITION_INLINE...
                           CONST                78006800D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    473
         CMIME_ENCODING_BASE64...
                           CONST                78007200D
         CMIME_ENCODING_BINARY...
                           CONST                78007600D
         CMIME_ENCODING_E7BIT...
                           CONST                78007800D
         CMIME_ENCODING_E8BIT...
                           CONST                78008000D
         CMIME_ENCODING_QP CONST                78007400D
         CMIME_MESSAGEPART CONST                78004400D
         CMIME_MULTIPART   CONST                78004000D
         CMIME_TYPE_APPLICATION...
                           CONST                77002100D
         CMIME_TYPE_AUDIO  CONST                77001500D
         CMIME_TYPE_IMAGE  CONST                77001700D
         CMIME_TYPE_MESSAGEPART...
                           CONST                77002700D
         CMIME_TYPE_MULTIPART...
                           CONST                77002500D
         CMIME_TYPE_TEXT   CONST                77001300D
         CMIME_TYPE_VIDEO  CONST                77001900D
         CMSG_ACT_OLD      CONST                 9005000D
         CMSG_ACT_RMV      CONST                 9005100D
         CMSG_ACT_SAME     CONST                 9005200D     000921
         CMSG_ALLINACT     CONST                 9002000D
         CMSG_ANY          CONST                 9003200D     000921
         CMSG_COMP         CONST                 9003300D
         CMSG_COPY         CONST                 9003400D
         CMSG_DIAG         CONST                 9003500D
         CMSG_ESCAPE       CONST                 9003600D
         CMSG_ESCP         CONST                 9003700D
         CMSG_EXT          CONST                 9002100D
         CMSG_FIRST        CONST                 9003800D
         CMSG_ID_NONE      CONST                 9001600D
         CMSG_ID_NULL      CONST                 9001700D
         CMSG_ID_OK        CONST                 9001500D
         CMSG_INFO         CONST                 9003900D
         CMSG_INQ          CONST                 9004000D
         CMSG_LAST         CONST                 9004100D
         CMSG_NEXT         CONST                 9004200D
         CMSG_NOTIFY       CONST                 9004300D
         CMSG_PREVIOUS     CONST                 9004400D
         CMSG_PRV          CONST                 9002200D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    474
         CMSG_RMV_ALL      CONST                 9005500D
         CMSG_RMV_BYKEY    CONST                 9005600D
         CMSG_RMV_NEW      CONST                 9005700D
         CMSG_RMV_OLD      CONST                 9005800D
         CMSG_RMV_SCOPE    CONST                 9005900D
         CMSG_RPY          CONST                 9004500D
         CMSG_RQS          CONST                 9004600D
         CMSG_RTNCTRLCHAR_NO...
                           CONST                 9006400D
         CMSG_RTNCTRLCHAR_YES...
                           CONST                 9006200D
         CMSG_SAME         CONST                 9002300D     000922
         CMSG_STATUS       CONST                 9004700D
         CMSG_TOCTLBDY     CONST                 9002800D
         CMSG_TOMYSELF     CONST                 9002600D     000922
         CMSG_TOPGM        CONST                 9002900D
         CMSG_TOPGMBDY     CONST                 9002700D
         CNEG_INT_DECPOS   CONST                64035400D
         CNEG_INT_LEN      CONST                64035200D
         CNEG_INT_TYPE     CONST                64035000D
         CNON_NEG_INT_DECPOS...
                           CONST                64033800D
         CNON_NEG_INT_LEN  CONST                64033600D
         CNON_NEG_INT_TYPE CONST                64033400D
         CNON_POS_INT_DECPOS...
                           CONST                64034600D
         CNON_POS_INT_LEN  CONST                64034400D
         CNON_POS_INT_TYPE CONST                64034200D
         CNS_APACHE_SOAP   CONST                64075100D
         CNS_SCHEMA        CONST                64075300D
         CNS_SCHEMA_INSTANCE...
                           CONST                64075500D
         CNS_WSDL          CONST                64073100D
         CNS_WSDL_HTTP     CONST                64074800D
         CNS_WSDL_SOAP     CONST                64073300D
         CNS_WSDL_SOAP_ENCODING...
                           CONST                64074500D
         CNS_WSDL_SOAP_ENVELOPE...
                           CONST                64073900D
         CNS_WSDL_SOAP_12_ENVELOPE...
                           CONST                64074200D
         CNS_WSDL_SOAP12   CONST                64073600D
         CNS_WSDL2RPG      CONST                64076200D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    475
         COMPILED_FOR      CONST                  000568D     000696
*RNF7031 COMSTR            PROTOTYPE            26025600D
*RNF7031 CONFIGURATOR_CLEARCONFIGURATION...
                           PROTOTYPE            72064800D
*RNF7031 CONFIGURATOR_LOADANDWATCHPROPERTIESCONFIGURATION...
                           N(1)                 72062800D
                           PROTOTYPE
*RNF7031 CONFIGURATOR_LOADDEFAULTCONFIGURATION...
                           N(1)                 72059400D
                           PROTOTYPE
*RNF7031 CONFIGURATOR_LOADPROPERTIESCONFIGURATION...
                           N(1)                 72061000D
                           PROTOTYPE
         COPEN_ANGLE       CONST                64102100D
         CPARMSTRUCT_DISPLAY...
                           CONST                64012800D
         CPARMSTRUCT_STMF  CONST                64012600D
         CPOS_INT_DECPOS   CONST                64036200D
         CPOS_INT_LEN      CONST                64036000D
         CPOS_INT_TYPE     CONST                64035800D
         CPREFIX_WSDL2RPG  CONST                64076000D
*RNF7031 CRC32_T           DS(42)               28006200D   28012100
*RNF7031   LENGTH          U(5,0)               28006300D
*RNF7031   VALUE           A(40)                28006400D
         CREFERENCE_FIELD_SUFFIX...
                           CONST                64077800D
         CSFLDROP          CONST               102005500D
         CSFLFOLD          CONST               102005400D
         CSHA1_FINAL       CONST                28004500D
         CSHA1_FIRST       CONST                28004100D
         CSHA1_HEX         CONST                28003500D
         CSHA1_MIDDLE      CONST                28004300D
         CSHA1_ONLY        CONST                28003900D
         CSHA1_STRING      CONST                28003700D
         CSHORT_DECPOS     CONST                64026600D
         CSHORT_LEN        CONST                64026400D
         CSHORT_TYPE       CONST                64026200D
         CSINGLE_QUOTE     CONST                64100700D
         CSPEC_ELSE        CONST                64079800D
         CSPEC_ENDFOR      CONST                64081200D
         CSPEC_ENDIF       CONST                64080000D
         CSPEC_ENDSL       CONST                64080800D
         CSPEC_FOR         CONST                64081000D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    476
         CSPEC_IF          CONST                64079600D
         CSPEC_OTHER       CONST                64080400D
         CSPEC_RETURN      CONST                64081400D
         CSPEC_SELECT      CONST                64080600D
         CSPEC_WHEN        CONST                64080200D
         CSQUARE_BRAKET_LEFT...
                           CONST                64101600D
         CSQUARE_BRAKET_RIGHT...
                           CONST                64101800D
         CSQUARE_BRAKETS   CONST                64101400D
         CSRCMBR_NONE      CONST                64012100D
         CSTREAM_NULL      CONST                69002100D
         CSTREAM_TYPE_READ CONST                69002900D
         CSTREAM_TYPE_WRITE...
                           CONST                69002500D
         CTEMP_FILE_IDENTIFIER...
                           CONST                64100300D
         CTESTPTR_ERROR_INVALID...
                           CONST                26018000D
         CTESTPTR_ERROR_NOT_EXIST...
                           CONST                26017800D
         CTESTPTR_ERROR_OBJECT_DESTROYED...
                           CONST                26018200D
         CTESTPTR_NO_OPTIMIZED_PARAMETER_PASSING...
                           CONST                26016600D
         CTESTPTR_NON_TERASPACE...
                           CONST                26017300D
         CTESTPTR_OPTIMIZED_PARAMETER_PASSING...
                           CONST                26016800D
         CTESTPTR_TERASPACE...
                           CONST                26017500D
         CTESTPTR_TYPE_MEMPTR...
                           CONST                26017100D
         CTESTPTR_TYPE_PROCPTR...
                           CONST                26016400D
         CTRUE             CONST                 8000900D     000809      000810      000819
                                                  000920      003114      003115      003119
                                                  003123      003131      003171      003178
                                                  003229      003234      003394
         CTYPE_REFERENCE   CONST                64051100D
         CUBYTE_DECPOS     CONST                64031400D
         CUBYTE_LEN        CONST                64031200D
         CUBYTE_TYPE       CONST                64031000D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    477
         CUINT_DECPOS      CONST                64032200D
         CUINT_LEN         CONST                64032000D
         CUINT_TYPE        CONST                64031800D
         CULONG_DECPOS     CONST                64033000D
         CULONG_LEN        CONST                64032800D
         CULONG_TYPE       CONST                64032600D
         CURL_ERROR_EMPTY_URL...
                           CONST                57000700D
         CURL_ERROR_INVALID_OBJECT_DATA...
                           CONST                57001700D
         CURL_ERROR_INVALID_PORT_NUMBER...
                           CONST                57001300D
         CURL_ERROR_NO_PROTOCOL...
                           CONST                57000900D
         CURL_ERROR_UNSUPPORTED_OPERATION...
                           CONST                57001500D
         CURL_ERROR_UNSUPPORTED_PROTOCOL...
                           CONST                57001100D
         CURRENT_ITEM      CONST                64102700D
         CURRENT_ITEM_PTR  CONST                64102800D
         CUSHORT_DECPOS    CONST                64030600D
         CUSHORT_LEN       CONST                64030400D
         CUSHORT_TYPE      CONST                64030200D
         CUUID_HEX         CONST                28000700D
         CUUID_STRING      CONST                28000900D
*RNF7031 CVTCH             PROTOTYPE            63091200D
*RNF7031 CVTEFND           F(8)                 63085900D
                           PROTOTYPE
*RNF7031 CVTHC             PROTOTYPE            63090500D
         CWAIT_MOD_AS_ENTER...
                           CONST                26026900D
         CWAIT_MOD_AS_LEAVE...
                           CONST                26027100D
         CWAIT_MPL_SET     CONST                26027300D
         CWAIT_NORMAL      CONST                26026700D
         CWAIT_SIGNALS     CONST                26027500D
         CWORDWRAP_PARAGRAPH_MSGD...
                           CONST                29000900D
         CWORDWRAP_PARAGRAPH_NONE...
                           CONST                29000700D
         CWORDWRAP_PARAGRAPH_TEXT...
                           CONST                29001100D
         CWORDWRAP_PARAGRAPH_TRIMR...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    478
                           CONST                29001300D
         CWSDL_ATTR_XMLNS  CONST                64072700D
         CWSDL_ERROR       CONST                64071800D
         CWSDL_OK          CONST                64071900D
         CWSDL_STYLE_DOCUMENT...
                           CONST                64076800D
         CWSDL_STYLE_RPC   CONST                64076600D
         CWSDL_USE_ENCODED CONST                64077400D
         CWSDL_USE_LITERAL CONST                64077200D
         CWSDL_XPATH_DEFINITIONS...
                           CONST                64072300D
         CXML_CB_SAX_END_NAMESPACE_DECL...
                           CONST                93006800D
         CXML_CB_SAX_ENDELEMENT...
                           CONST                93006400D
         CXML_CB_SAX_START_NAMESPACE_DECL...
                           CONST                93006600D
         CXML_CB_SAX_STARTELEMENT...
                           CONST                93006200D     000812
         CXML_SAX_VALIDATION_NONE...
                           CONST                93007200D
         CXML_UNEXPECTEDERR...
                           CONST                93007600D
         C5250_BLU         CONST               102011600D
         C5250_BLUR        CONST               102011800D
         C5250_BLUU        CONST               102012000D
         C5250_GRN         CONST               102006000D
         C5250_GRNR        CONST               102006200D
         C5250_GRNU        CONST               102006400D
         C5250_GRNUR       CONST               102006600D
         C5250_ND1         CONST               102012300D
         C5250_ND2         CONST               102012500D
         C5250_ND3         CONST               102012700D
         C5250_ND4         CONST               102012900D
         C5250_PNK         CONST               102010700D
         C5250_PNKR        CONST               102010900D
         C5250_PNKU        CONST               102011100D
         C5250_PNKUR       CONST               102011300D
         C5250_RED         CONST               102007600D
         C5250_REDB        CONST               102008000D
         C5250_REDR        CONST               102007800D
         C5250_REDRB       CONST               102008200D
         C5250_REDU        CONST               102008400D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    479
         C5250_REDUB       CONST               102008800D
         C5250_REDUR       CONST               102008600D
         C5250_TRQC        CONST               102009100D
         C5250_TRQCR       CONST               102009300D
         C5250_TRQU        CONST               102009500D
         C5250_TRQUR       CONST               102009700D
         C5250_WHT         CONST               102006900D
         C5250_WHTR        CONST               102007100D
         C5250_WHTU        CONST               102007300D
         C5250_YLWC        CONST               102010000D
         C5250_YLWCR       CONST               102010200D
         C5250_YLWU        CONST               102010400D
*RNF7031 DEPRECATED        PROTOTYPE            74011500D
         DIM_A1            CONST                 5000060D    5000138
         DIM_A2            CONST                 5000061D    5000130
         DIM_A3            CONST                 5000062D    5000147
*RNF7031 DIRENT_T          DS(696)              63055900D
                           BASED(PDUMMY)
*RNF7031   D_FILENO        U(10,0)              63056300D
*RNF7031   D_FILENO_GEN_ID U(10,0)              63056100D
*RNF7031   D_NAME          A(640)               63057300D
*RNF7031   D_NAMELEN       U(10,0)              63057200D
*RNF7031   D_NLSINFO       DS(12)               63057000D
*RNF7031   D_RECLEN        U(10,0)              63056400D
*RNF7031   D_RESERV1       A(16)                63056000D
*RNF7031   D_RESERV3       I(10,0)              63056500D
*RNF7031   D_RESERV4       A(8)                 63056600D
*RNF7031 DISPLAY_GETCOLUMNS...
                           I(5,0)               46004400D
                           PROTOTYPE
*RNF7031 DISPLAY_GETMODE   A(4)                 46001400D
                           PROTOTYPE
*RNF7031 DISPLAY_GETROWS   I(5,0)               46003500D
                           PROTOTYPE
*RNF7031 DISPLAY_MODE_T    A(4)                 46000500D   46001500    46004000    46004900
                           BASED(PDUMMY)        46005800
*RNF7031 DISPLAY_SUPPORTSDS4...
                           N(1)                 46002100D
                           PROTOTYPE
*RNF7031 DISPLAY_SUPPORTSGUI...
                           N(1)                 46002800D
                           PROTOTYPE
*RNF7031 DOUBLE_T          F(8)                 63001600D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    480
                           BASED(PDUMMY)
         EACCES_C          CONST                63074700D
         EADDRINUSE_C      CONST                63075800D
         EADDRNOTAVAIL_C   CONST                63075900D
         EAFNOSUPPORT_C    CONST                63076100D
         EAGAIN_C          CONST                63075200D
         EALREADY_C        CONST                63076200D
         EASPGRPNOTSET_C   CONST                63084900D
         EBADDATA_C        CONST                63072700D
         EBADF_C           CONST                63079100D
         EBADFID_C         CONST                63082600D
         EBADFUNC_C        CONST                63072500D
         EBADH_C           CONST                63083100D
         EBADKEYLN_C       CONST                63073200D
         EBADMODE_C        CONST                63072000D
         EBADNAME_C        CONST                63071900D
         EBADOPT_C         CONST                63072800D
         EBADPOS_C         CONST                63072100D
         EBADSEEK_C        CONST                63071800D
         EBUSY_C           CONST                63074200D
         ECHILD_C          CONST                63083000D
         ECLOSED_C         CONST                63075700D
         ECONNABORTED_C    CONST                63076300D
         ECONNREFUSED_C    CONST                63076400D
         ECONNRESET_C      CONST                63076500D
         ECONVERT_C        CONST                63081400D
         EDAMAGE_C         CONST                63080800D
         EDATALINK_C       CONST                63084400D
         EDEADLK_C         CONST                63079600D
         EDESTADDRREQ_C    CONST                63076600D
         EDESTROYED_C      CONST                63079900D
         EDOM_C            CONST                63070800D
         EEXIST_C          CONST                63079500D
         EFAULT_C          CONST                63075400D
         EFBIG_C           CONST                63082200D
         EFBIG2_C          CONST                63084700D
         EFILECVT_C        CONST                63082500D
         EGETANDPUT_C      CONST                63073400D
         EHOSTDOWN_C       CONST                63076700D
         EHOSTUNREACH_C    CONST                63076800D
         EIDRM_C           CONST                63082300D
         EILSEQ_C          CONST                63081600D
         EINPROGRESS_C     CONST                63076900D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    481
         EINTR_C           CONST                63075300D
         EINVAL_C          CONST                63073900D
         EIO_C             CONST                63074000D
         EIOERROR_C        CONST                63073500D
         EIORECERR_C       CONST                63073600D
         EISCONN_C         CONST                63077000D
         EISDIR_C          CONST                63080400D
         EITERBAD_C        CONST                63080700D
         EJOURNALED_C      CONST                63084100D
         EJRNDAMAGE_C      CONST                63083500D
         EJRNENTTOOLONG_C  CONST                63084200D
         EJRNINACTIVE_C    CONST                63083600D
         EJRNRCVSPC_C      CONST                63083700D
         EJRNRMT_C         CONST                63083800D
         ELOCKED_C         CONST                63082100D
         ELOOP_C           CONST                63080900D
         EMFILE_C          CONST                63079200D
         EMLINK_C          CONST                63080100D
         EMPTY_ITEM        CONST                64103000D
         EMSGSIZE_C        CONST                63077100D
         ENAMETOOLONG_C    CONST                63081000D
         ENETDOWN_C        CONST                63077200D
         ENETRESET_C       CONST                63077300D
         ENETUNREACH_C     CONST                63077400D
         ENEWJRN_C         CONST                63084000D
         ENEWJRNRCV_C      CONST                63083900D
         ENFILE_C          CONST                63079300D
         ENOBUFS_C         CONST                63077500D
         ENODEV_C          CONST                63074100D
         ENOENT_C          CONST                63074300D
         ENOLCK_C          CONST                63081100D
         ENOMEM_C          CONST                63079700D
         ENOMSG_C          CONST                63082400D
         ENOPOS_C          CONST                63072200D
         ENOPROTOOPT_C     CONST                63077600D
         ENOREC_C          CONST                63072600D
         ENOSPC_C          CONST                63074900D
         ENOSYS_C          CONST                63080300D
         ENOSYSRSC_C       CONST                63081300D
         ENOTAVAIL_C       CONST                63084500D
         ENOTCONN_C        CONST                63077700D
         ENOTDIR_C         CONST                63074800D
         ENOTDLT_C         CONST                63073000D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    482
         ENOTEMPTY_C       CONST                63081200D
         ENOTENROLL_C      CONST                63081800D
         ENOTOPEN_C        CONST                63071100D
         ENOTREAD_C        CONST                63071200D
         ENOTSAFE_C        CONST                63083300D
         ENOTSIGINIT_C     CONST                63082900D
         ENOTSOCK_C        CONST                63077800D
         ENOTSUP_C         CONST                63077900D
         ENOTTY_C          CONST                63084600D
         ENOTUPD_C         CONST                63072900D
         ENOTWRITE_C       CONST                63071400D
         ENUMMBRS_C        CONST                63072300D
         ENUMRECS_C        CONST                63072400D
*RNF7031 ENVIRON           *(16)                63089000D
*RNF7031 ENVVAR_T          DS(1156)             40000700D   39006400    39006500    39008400
                           BASED(PDUMMY)
*RNF7031   NAME            A(128)               40000800D   39006400
                           VARYING(2)
*RNF7031   VALUE           A(1024)              40000900D   39006500
                           VARYING(2)
         ENXIO_C           CONST                63075600D
         EOFFLINE_C        CONST                63081900D
         EOPNOTSUPP_C      CONST                63078000D
         EOVERFLOW_C       CONST                63083400D
         EOWNERTERM_C      CONST                63079800D
         EPAD_C            CONST                63073100D
         EPERM_C           CONST                63074400D
         EPFNOSUPPORT_C    CONST                63078100D
         EPIPE_C           CONST                63079400D
         EPROTONOSUPPORT_C CONST                63078200D
         EPROTOTYPE_C      CONST                63078400D
         EPUTANDGET_C      CONST                63073300D
         ERANGE_C          CONST                63070900D
         ERCVDERR_C        CONST                63078500D
         ERECIO_C          CONST                63071300D
         ERESTART_C        CONST                63085100D
         EROFS_C           CONST                63080500D
         EROOBJ_C          CONST                63082000D
*RNF7031 ERRCODE_T         DS(272)              17000600D   16000900    16002100    16002900
                           BASED(PDUMMY)
*RNF7031   BYTAVL          I(10,0)              17000800D
*RNF7031   BYTPRV          I(10,0)              17000700D
*RNF7031   EXCDTA          A(256)               17001100D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    483
*RNF7031   EXCID           A(7)                 17000900D
*RNF7031   RESERVED_1      A(1)                 17001000D
*RNF7031 ERRNO             *(16)                63070100D
                           PROTOTYPE
         ESCANFAILURE_C    CONST                63085200D
         ESHUTDOWN_C       CONST                63078600D
         ESOCKTNOSUPPORT_C CONST                63078700D
         ESOFTDAMAGE_C     CONST                63081700D
         ESPIPE_C          CONST                63080200D
         ESRCH_C           CONST                63082800D
         ESTALE_C          CONST                63082700D
         ESTDERR_C         CONST                63071700D
         ESTDIN_C          CONST                63071500D
         ESTDOUT_C         CONST                63071600D
         ETERM_C           CONST                63080000D
         ETIME_C           CONST                63075500D
         ETIMEDOUT_C       CONST                63078900D
         ETOOMANYREFS_C    CONST                63083200D
         ETRUNC_C          CONST                63071000D
         ETXTBSY_C         CONST                63084800D
         EUNATCH_C         CONST                63079000D
         EUNKNOWN_C        CONST                63080600D
         EWOULDBLOCK_C     CONST                63075100D
*RNF7031 EXCP_MSGID        A(7)                 63002800D
         EXDEV_C           CONST                63075000D
         E2BIG_C           CONST                63081500D
*RNF7031 F_ACTIVATESRVPGM  DS(40)               21018900D
                           PROTOTYPE
*RNF7031 F_ADDQUOTES       A(4096)              29019300D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_ALIGNR          A(4096)              29021100D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_CALLER          A(256)               19002600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_CENTER          A(4096)              29020200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_CHGUSRSPCAUTOEXT...
                           N(1)                 21015400D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    484
*RNF7031 F_CHGUSRSPCINITVALUE...
                           A(1)                 21016600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_CHGUSRSPCSIZE   I(10,0)              21014200D
                           PROTOTYPE
*RNF7031 F_CLCLENGTHOFRPGINTFIELDFROMBUFSIZE...
                           U(5,0)               28008400D
                           PROTOTYPE
*RNF7031 F_CLRERRNO        PROTOTYPE            16003900D
*RNF7031 F_CONTAINSINVALIDCHARAT...
                           N(1)                 29027800D
                           PROTOTYPE
*RNF7031 F_CONTAINSSTRINGAT...
                           N(1)                 29028900D
                           PROTOTYPE
*RNF7031 F_CRTUSRSPC       N(1)                 21008200D
                           PROTOTYPE
*RNF7031 F_CVTAPIERRCODETOMSG...
                           A(549)               16002400D
                           PROTOTYPE
*RNF7031 F_CVTBUFFERTOHEXSTRING...
                           A(4096)              29025000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_CVTERRNOTOMSG   A(549)               16006200D
                           PROTOTYPE
*RNF7031 F_CVTHEXSTRINGTOBUFFER...
                           U(5,0)               29026700D
                           PROTOTYPE
*RNF7031 F_CVTPTRTOHEXSTRING...
                           A(32)                29025900D
                           VARYING(2)
                           PROTOTYPE
         F_CVTRCVMSGTOMSG  DS(549)               9018600D     000924
                           PROTOTYPE
*RNF7031 F_DATESERIAL      D(10*ISO-)           59000500D
                           PROTOTYPE
*RNF7031 F_DELENVVAR       N(1)                 39006800D
                           PROTOTYPE
*RNF7031 F_DLTUSRSPC       N(1)                 21017800D
                           PROTOTYPE
*RNF7031 F_EBCDIC          U(3,0)               29010000D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    485
                           PROTOTYPE
*RNF7031 F_EDITCODE        A(64)                29013200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_EDITWORD        A(512)               29014500D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_ENDSWITH        N(1)                 29005400D
                           PROTOTYPE
*RNF7031 F_ERRNO           I(10,0)              16003200D
                           PROTOTYPE
*RNF7031 F_EXECUTE         N(1)                 39004000D
                           PROTOTYPE
         F_EXIST           N(1)                 21002900D     003098      003446      003657
                           PROTOTYPE              003700
*RNF7031 F_FORMATDATE      A(128)               29031700D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_FORMATMEMSIZE   A(128)               29035300D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_GENCRC32        DS(42)               28012000D
                           PROTOTYPE
*RNF7031 F_GENMD5          DS(34)               28010000D
                           PROTOTYPE
*RNF7031 F_GENSHA1         DS(42)               28011000D
                           PROTOTYPE
*RNF7031 F_GENSTRCMP       N(1)                 29022000D
                           PROTOTYPE
*RNF7031 F_GENSTRCMPIGNCASE...
                           N(1)                 29023000D
                           PROTOTYPE
*RNF7031 F_GENUUID         DS(34)               28009200D
                           PROTOTYPE
*RNF7031 F_GETDISPLAYMODE  A(4)                 46005700D
                           PROTOTYPE
*RNF7031 F_GETENVVAR       A(1024)              39005100D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_GETENVVARBYINDEX...
                           DS(1156)             39008300D
                           PROTOTYPE
*RNF7031 F_GETLENGTHEDITCODE...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    486
                           U(5,0)               29015600D
                           PROTOTYPE
*RNF7031 F_GETLENGTHEDITWORD...
                           U(5,0)               29016600D
                           PROTOTYPE
*RNF7031 F_GETNUMENVVAR    I(10,0)              39007600D
                           PROTOTYPE
*RNF7031 F_GETOBJLIB       A(10)                21021100D
                           PROTOTYPE
*RNF7031 F_GETPROCPTRBYNAME...
                           DS(298)              21020000D
                           PROTOTYPE
*RNF7031 F_GETSNDINFOFRCVMSG...
                           DS(700)               9021300D
                           PROTOTYPE
*RNF7031 F_GETTMPNAME      A(20)                21006600D
                           PROTOTYPE
*RNF7031 F_GETUNIQUENAME   A(20)                21007300D
                           PROTOTYPE
*RNF7031 F_GETUSRSPCAUTOEXT...
                           N(1)                 21012000D
                           PROTOTYPE
*RNF7031 F_GETUSRSPCINITVALUE...
                           A(1)                 21013100D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_GETUSRSPCSIZE   I(10,0)              21010800D
                           PROTOTYPE
*RNF7031 F_ISAPIERROR      N(1)                 16001600D
                           PROTOTYPE
*RNF7031 F_ISBITON         N(1)                 28006700D
                           PROTOTYPE
         F_LCASE           A(4096)              29007200D     003445
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_LEFT            A(4096)              29001700D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_LOG10           F(8)                 28007600D
                           PROTOTYPE
*RNF7031 F_NEWAPIERRCODE   DS(272)              16000800D
                           PROTOTYPE
         F_NEWMSG          DS(549)               9007700D     003104      003452      003664
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    487
                           PROTOTYPE              003707
*RNF7031 F_OBJNAME         A(21)                29029900D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_PARSEDATE       D(10*ISO-)           29032600D
                           PROTOTYPE
         F_RCVPGMMSG       DS(4272)              9010800D     000921
                           PROTOTYPE
*RNF7031 F_RCVPGMMSGOBJ    DS(549)               9019600D
                           PROTOTYPE
*RNF7031 F_REPLACE         A(4096)              29008900D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_RIGHT           A(4096)              29004500D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_RMVKEYWORD      A(4096)              29017500D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_RMVQUOTES       A(4096)              29018400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_RPLUNPRTCHARS   A(4096)              29030800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_RTVMBRD         A(1024)              21005300D
                           PROTOTYPE
*RNF7031 F_RTVMSGHELPTEXT  A(4096)               9015200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_RTVMSGHELPTEXTRAW...
                           A(4096)               9017500D
                           VARYING(2)
                           PROTOTYPE
         F_RTVMSGTEXT      A(4096)               9014100D     000927
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_RTVMSGTEXTRAW   A(4096)               9016400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_RTVOBJD         A(1024)              21004000D
                           PROTOTYPE
*RNF7031 F_RTVSYSVAL_CHAR  A(4096)              60000500D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    488
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_RTVSYSVAL_NUM   P(15,5)              60001500D
                           PROTOTYPE
*RNF7031 F_RTVUSRSPCPTR    *(16)                21009700D
                           PROTOTYPE
*RNF7031 F_SCANR           I(5,0)               29024000D
                           PROTOTYPE
*RNF7031 F_SETENVVAR       N(1)                 39005900D
                           PROTOTYPE
*RNF7031 F_SETERRNO        PROTOTYPE            16004600D
*RNF7031 F_SNDPGMMSG       A(4)                  9009400D
                           PROTOTYPE
*RNF7031 F_SPACE           A(4096)              29006300D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_STARTSWITH      N(1)                 29002600D
                           PROTOTYPE
*RNF7031 F_STARTSWITHIGNORECASE...
                           N(1)                 29003600D
                           PROTOTYPE
*RNF7031 F_STRERROR        A(128)               16005400D
                           VARYING(2)
                           PROTOTYPE
         F_THIS            A(256)               19001500D     000695      000999      003090
                           VARYING(2)             003141
                           PROTOTYPE
*RNF7031 F_UCASE           A(4096)              29008000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 F_VAL             F(8)                 29010800D
                           PROTOTYPE
*RNF7031 F_WORDWRAP        A(4096)              29012000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 FILE_FIXPATH      A(254)               70004200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 FILE_GETNAME      A(254)               70003400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 FILE_SHORTENNAME  A(254)               70005000D
                           VARYING(2)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    489
                           PROTOTYPE
*RNF7031 FILTER_NEW        *(16)                72078100D
                           PROTOTYPE
*RNF7031 FILTER_NULL       *(16)                72080000D
                           PROTOTYPE
*RNF7031 FILTER_SETNEXT    PROTOTYPE            72081500D
*RNF7031 FLOAT_T           F(4)                 63001500D
                           BASED(PDUMMY)
*RNF7031 FREE              PROTOTYPE            63025300D
*RNF7031 FSTAT             I(10,0)              63036900D
                           PROTOTYPE
*RNF7031 FTRUNCATE         I(10,0)              63065800D
                           PROTOTYPE
         FULL_ELEM_DATA    CONST                64103600D
         G_BODYPART_COUNTER...
                           I(10,0)                000605D     000834M     003221M     003221
                                                  003233
         G_DOPARSESOAPMESSAGE...
                           N(1)                   000597D     000832M     003229M     003234M
                                                  003328      003392      003393M
         G_ERRORS          DS(1182)               000613D     000785      000901M     000903
                                                  000904      000905      000925M     000926M
                                                  000927M     000928      000929      000936
                                                  000938M     000941M     000942M     000945
                                                  000947      000996      003472      003520M
                                                  003521M     003522M
           ERRTYPE         I(10,0)                000925      000936      000938      003520
           HTTPERROR       DS(134)                000926      000927      000928      000929
                                                  000941      000942      000945
             NO            I(10,0)                000926      000928      000941
             TEXT          A(128)                 000927      000929      000942      000945
                           VARYING(2)
           SOAPFAULT       DS(774)                000947      003472      003521      003522
             CODE          A(256)                 003521
                           VARYING(2)
             STRING        A(256)                 000947      003522
                           VARYING(2)
           XMLERROR        DS(270)                000901      000903      000904      000905
             CODE          I(10,0)                000901
             COLUMN        I(10,0)                000905
             LINE          I(10,0)                000904
             TEXT          A(256)                 000903
                           VARYING(2)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    490
         G_HMIMEPARSER     *(16)                  000586D     000828M     000933M     003112
                                                  003113      003123
         G_HMSGCTX         *(16)                  000619D     000978      000982      000983M
                                                  003861      003862M     003865
         G_HSAXPARSER      *(16)                  000583D     000827M     000932M     003171
         G_HTTP_ISINIT     N(1)                   000609D     000830M     000917M     003092
                                                  003119M
*RNF7031 G_ISAXIS_2095     N(1)                   000616D
         G_ISMIMEMESSAGE   N(1)                   000589D     000829M     000912      000914M
                                                  003115M     003122
         G_PRESPSOAPHEADER *(16)                  000579D     000837M     003462
         G_REQUESTBUFFER   A(65535)               000622D     000732M     000737      000737
                           VARYING(2)             000740M     000745      000745      000750M
                                                  000757      000766M     000771      000771
                                                  001027M     001035      001044M     001052
                                                  001061M     001069      001078M     001086
         G_SOAPMESSAGE_DONE...
                           N(1)                   000601D     000833M     003226      003394M
         G_SOAPMESSAGEID   A(512)                 000593D     000831M     003114M     003227
                           VARYING(2)             003228
*RNF7031 GENUUID           PROTOTYPE            63089300D
*RNF7031 GETCWD            *(16)                63051000D
                           PROTOTYPE
*RNF7031 GETENV            *(16)                63087200D
                           PROTOTYPE
*RNF7031 GETLOGINDATA      I(10,0)             100001300D
                           PROTOTYPE
         GETMESSAGECONTEXT *(16)                  000551D     000717      001234      001321
                           PROTOTYPE              001407      003855
         GETOPERATIONNAME  A(512)                 000527D     000687      003775
                           VARYING(2)
                           PROTOTYPE
         GETOPERATIONUUID  A(32)                  000515D     000703      003737
                           PROTOTYPE
         GETPORTNAME       A(512)                 000521D     003100      003448      003756
                           VARYING(2)
                           PROTOTYPE
         GETPOSTCCSID      I(10,0)                000533D     000711      000730      003794
                           PROTOTYPE
*RNF7031 GETSEED           I(10,0)              63026600D
                           PROTOTYPE
         GETTIMEOUT        I(10,0)                000539D     000865      003814
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    491
         GETUSERAGENT      A(256)                 000545D     000866      003834
                           VARYING(2)
                           PROTOTYPE
*RNF7031 HANDLE_DELETE     PROTOTYPE            44005100D
*RNF7031 HANDLE_GETPOINTER *(16)                44004300D
                           PROTOTYPE
*RNF7031 HANDLE_HANDLE_T   I(10,0)              44000400D   44001100    44002000    44003100
                           BASED(PDUMMY)        44003900    44004800    44005600
*RNF7031 HANDLE_ISNULL     N(1)                 44002600D
                           PROTOTYPE
*RNF7031 HANDLE_ISTYPEOF   N(1)                 44003400D
                           PROTOTYPE
         HANDLE_ITEMS      CONST                64103100D
*RNF7031 HANDLE_NEW        I(10,0)              44001000D
                           PROTOTYPE
*RNF7031 HANDLE_NULL       I(10,0)              44001900D
                           PROTOTYPE
*RNF7031 HANDLE_TYPE_T     A(20)                44000600D   44001500    44004000
                           BASED(PDUMMY)
*RNF7031 HEADERS_T         DS(2050)              1012600D     003059
*RNF7031 HTMLCHARSET_TOCCSID...
                           I(10,0)              77025000D
                           PROTOTYPE
         HTTP_API_DEFAULT_LOG_FILE...
                           CONST                 1000700D
         HTTP_ASCII        CONST                80006500D
         HTTP_ATHTYP       CONST                79213000D
         HTTP_ATHVAL       CONST                79213200D
         HTTP_AUTH_BASIC   CONST                79221600D
         HTTP_AUTH_MD5_DIGEST...
                           CONST                79221800D
         HTTP_AUTH_NONE    CONST                79221400D
         HTTP_AUTH_NTLM    CONST                79222000D
         HTTP_BADCNN       CONST                79209300D
         HTTP_BADPNT       CONST                79214400D
         HTTP_BADURL       CONST                79208700D
         HTTP_BRRECV       CONST                79213800D
         HTTP_BRSELE       CONST                79214000D
         HTTP_BRTIME       CONST                79213600D
*RNF7031 HTTP_BUILD_SOCKADDR...
                           I(10,0)              79030200D
                           PROTOTYPE
         HTTP_BWSELE       CONST                79216200D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    492
         HTTP_BWSEND       CONST                79216000D
         HTTP_BWTIME       CONST                79216400D
         HTTP_BWTIMO       CONST                79217600D
         HTTP_CCSID        CONST                80007800D
         HTTP_CKDUMP       CONST                79219000D
         HTTP_CKOPEN       CONST                79219200D
         HTTP_CKSTAT       CONST                79219400D
*RNF7031 HTTP_CLOSE        I(10,0)              79031700D
                           PROTOTYPE
         HTTP_CNNTIMO      CONST                79209500D
*RNF7031 HTTP_COMP         PROTOTYPE            79174700D
         HTTP_CONTTYPE     CONST                80004400D
         HTTP_CONVERR      CONST                79219600D
         HTTP_COOKIE_DEFAULT...
                           CONST                80010700D
*RNF7031 HTTP_COOKIE_FILE  PROTOTYPE            79173600D
*RNF7031 HTTP_CRASH        PROTOTYPE            79176400D
*RNF7031 HTTP_DCLOSE       PROTOTYPE            79200800D
*RNF7031 HTTP_DEBUG        PROTOTYPE            79150500D
*RNF7031 HTTP_DEBUG_FILE   A(500)               80011400D
                           VARYING(2)
         HTTP_DEBUGLOG_APPENDRCVMSG...
                           PROTOTYPE            82005400D     000923M
         HTTP_DEBUGLOG_APPENDTEXT...
                           PROTOTYPE            82003800D     000694M     000854M     000998M
                                                  003030M     003093M     003116M     003127M
                                                  003135M     003164M     003172M     003652M
                                                  003693M     003695M
         HTTP_DEBUGLOG_APPENDTEXTVERBOSE...
                           PROTOTYPE            82004600D     000724M     000777M     000780M
                                                  003089M     003140M
*RNF7031 HTTP_DEBUGLOG_APPENDVERSION...
                           PROTOTYPE            82003100D
*RNF7031 HTTP_DEBUGLOG_APPENDXMLERROR...
                           PROTOTYPE            82006200D
         HTTP_DEBUGLOG_CLOSE...
                           PROTOTYPE            82008200D     001002M
*RNF7031 HTTP_DEBUGLOG_DUMPCALLSTACK...
                           PROTOTYPE            82007500D
         HTTP_DEBUGLOG_ISOPEN...
                           N(1)                 82002400D     001001
                           PROTOTYPE
*RNF7031 HTTP_DEBUGLOG_OPEN...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    493
                           PROTOTYPE            82000700D
*RNF7031 HTTP_DEBUGLOG_SETVERBOSE...
                           PROTOTYPE            82001600D
*RNF7031 HTTP_DIAG         PROTOTYPE            79175600D
*RNF7031 HTTP_DMSG         PROTOTYPE            79199500D
*RNF7031 HTTP_DWRITE       PROTOTYPE            79197500D
         HTTP_EBCDIC       CONST                80006400D     000711
         HTTP_ERROR        A(80)                79032900D     000878M     000942      003033M
                           PROTOTYPE
*RNF7031 HTTP_ESCAPEXML    A(4096)              79192100D
                           VARYING(2)
                           PROTOTYPE
         HTTP_FDOPEN       CONST                79210400D
         HTTP_FDSTAT       CONST                79218000D
*RNF7031 HTTP_GET          I(10,0)              79007200D
                           PROTOTYPE
*RNF7031 HTTP_GET_XML      I(10,0)              79087300D
                           PROTOTYPE
*RNF7031 HTTP_GET_XMLTF    I(10,0)              79093200D
                           PROTOTYPE
*RNF7031 HTTP_GETAUTH      I(10,0)              79044500D
                           PROTOTYPE
         HTTP_GETCONTENTSUBTYPE...
                           A(32500)             81001200D     003097
                           VARYING(2)
                           PROTOTYPE
         HTTP_GETCONTENTTYPE...
                           A(32500)             81000500D     003096      003110
                           VARYING(2)
                           PROTOTYPE
         HTTP_GETCONTENTTYPEATTR...
                           A(32500)             81002000D     003114
                           VARYING(2)
                           PROTOTYPE
         HTTP_GSKAPPID     CONST                79210600D
         HTTP_GSKATYP      CONST                79210800D
         HTTP_GSKENVI      CONST                79211000D
         HTTP_GSKENVO      CONST                79211200D
         HTTP_GSKKEYF      CONST                79218600D
         HTTP_GSKSTYP      CONST                79211400D
         HTTP_HEADER       A(32500)             79170400D     003111
                           VARYING(2)
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    494
         HTTP_HOSTNF       CONST                79208900D
         HTTP_IFOPEN       CONST                79218400D
         HTTP_IFSMODE      CONST                80009300D
         HTTP_ILLSWC       CONST                79220200D
         HTTP_INVPTR       CONST                79215600D
*RNF7031 HTTP_LONG_PARSEURL...
                           I(10,0)              79070400D
                           PROTOTYPE
         HTTP_LRRECV       CONST                79216600D
         HTTP_LRSELE       CONST                79216800D
         HTTP_LRTIME       CONST                79217000D
*RNF7031 HTTP_MFD_ENCODER_ADDSTMF...
                           N(1)                 79147700D
                           PROTOTYPE
*RNF7031 HTTP_MFD_ENCODER_ADDVAR...
                           N(1)                 79144000D
                           PROTOTYPE
*RNF7031 HTTP_MFD_ENCODER_ADDVAR_S...
                           N(1)                 79145800D
                           PROTOTYPE
*RNF7031 HTTP_MFD_ENCODER_CLOSE...
                           PROTOTYPE            79149100D
*RNF7031 HTTP_MFD_ENCODER_OPEN...
                           *(16)                79142200D
                           PROTOTYPE
         HTTP_MIME_CONTENT_DISPOSITION...
                           CONST                78003100D
         HTTP_MIME_CONTENT_DISPOSITION_FILENAME...
                           CONST                78003300D
         HTTP_MIME_CONTENT_ID...
                           CONST                78003600D
         HTTP_MIME_CONTENT_TRANSFER_ENCODING...
                           CONST                78002800D
         HTTP_MIME_CONTENT_TYPE...
                           CONST                78001900D
         HTTP_MIME_CONTENT_TYPE_CHARSET...
                           CONST                78002300D
         HTTP_MIME_CONTENT_TYPE_NAME...
                           CONST                78002100D
         HTTP_MIME_CONTENT_TYPE_SUB_TYPE...
                           CONST                78002500D
         HTTP_MIME_DATASINK_INITIALIZE...
                           PROTOTYPE            78010000D     000820M
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    495
*RNF7031 HTTP_MIME_PART_GETBOUNDARY...
                           A(4096)              78018500D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 HTTP_MIME_PART_GETCCSID...
                           I(10,0)              78028100D
                           PROTOTYPE
         HTTP_MIME_PART_GETCONTENTID...
                           A(4096)              78026200D     003223
                           VARYING(2)
                           PROTOTYPE
         HTTP_MIME_PART_GETCONTENTSUBTYPE...
                           A(4096)              78022600D     003224
                           VARYING(2)
                           PROTOTYPE
*RNF7031 HTTP_MIME_PART_GETCONTENTTRANSFERENCODING...
                           I(10,0)              78024400D
                           PROTOTYPE
*RNF7031 HTTP_MIME_PART_GETCONTENTTYPE...
                           I(10,0)              78020900D
                           PROTOTYPE
*RNF7031 HTTP_MIME_PART_GETFILENAME...
                           A(4096)              78029800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 HTTP_MIME_PART_GETHEADERKEY...
                           A(4096)              78014400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 HTTP_MIME_PART_GETHEADERVALUE...
                           A(4096)              78016600D
                           VARYING(2)
                           PROTOTYPE
         HTTP_MIME_PART_GETTYPE...
                           I(10,0)              78012300D     003217      003388
                           PROTOTYPE
*RNF7031 HTTP_MIME_PART_GETUSERDATA...
                           *(16)                78031500D
                           PROTOTYPE
*RNF7031 HTTP_MIME_PART_SETUSERDATA...
                           PROTOTYPE            78033200D
*RNF7031 HTTP_MIME_PART_TOEBCDIC...
                           I(10,0)              78035300D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    496
                           PROTOTYPE
         HTTP_MUTABLE      CONST                79218800D
         HTTP_NDAUTH       CONST                79212800D
*RNF7031 HTTP_NEXTXMLATTR  N(1)                 79190500D
                           PROTOTYPE
         HTTP_NOAUTH       CONST                79213400D
         HTTP_NOCDRIV      CONST                79217400D
         HTTP_NODATA       CONST                79215400D
         HTTP_NOMEM        CONST                79215200D
         HTTP_NOSPAC       CONST                79215800D
         HTTP_NOTREG       CONST                79212600D
         HTTP_NOTSUPP      CONST                79217200D
*RNF7031 HTTP_PARSE_XML_STMF...
                           I(10,0)              79168300D
                           PROTOTYPE
*RNF7031 HTTP_PARSE_XML_STRING...
                           I(10,0)              79188300D
                           PROTOTYPE
*RNF7031 HTTP_PARSER_FREE  I(10,0)              79207800D
                           PROTOTYPE
*RNF7031 HTTP_PARSER_GET_END_CB...
                           *(16) PROCPTR        79185400D
                           PROTOTYPE
*RNF7031 HTTP_PARSER_GET_START_CB...
                           *(16) PROCPTR        79184500D
                           PROTOTYPE
*RNF7031 HTTP_PARSER_GET_USERDATA...
                           *(16)                79186300D
                           PROTOTYPE
*RNF7031 HTTP_PARSER_INIT  PROTOTYPE            79204500D
*RNF7031 HTTP_PARSER_PARSECHUNK...
                           I(10,0)              79206500D
                           PROTOTYPE
*RNF7031 HTTP_PARSER_SWITCH_CB...
                           I(10,0)              79183200D
                           PROTOTYPE
*RNF7031 HTTP_PARSEURL     I(10,0)              79028000D
                           PROTOTYPE
*RNF7031 HTTP_PERSIST_CLOSE...
                           I(10,0)              79139900D
                           PROTOTYPE
*RNF7031 HTTP_PERSIST_GET  I(10,0)              79124500D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    497
*RNF7031 HTTP_PERSIST_OPEN *(16)                79121000D
                           PROTOTYPE
*RNF7031 HTTP_PERSIST_POST I(10,0)              79130900D
                           PROTOTYPE
*RNF7031 HTTP_PERSIST_REQ  I(10,0)              79137100D
                           PROTOTYPE
         HTTP_POINT_ADDL_HEADER...
                           CONST                79227200D     000788
         HTTP_POINT_CERT_VAL...
                           CONST                79231300D
         HTTP_POINT_DEBUG  CONST                79223700D
         HTTP_POINT_DOWNLOAD_STATUS...
                           CONST                79226100D
         HTTP_POINT_GSKIT_CERT_VAL...
                           CONST                79233000D
         HTTP_POINT_PARSE_HDR_LONG...
                           CONST                79229200D
         HTTP_POINT_PARSE_HEADER...
                           CONST                79228200D
         HTTP_POINT_UPLOAD_STATUS...
                           CONST                79224900D
*RNF7031 HTTP_POST         I(10,0)              79013500D
                           PROTOTYPE
*RNF7031 HTTP_POST_STMF    I(10,0)              79081400D
                           PROTOTYPE
*RNF7031 HTTP_POST_STMF_XML...
                           I(10,0)              79111100D
                           PROTOTYPE
*RNF7031 HTTP_POST_STMF_XMLTF...
                           I(10,0)              79117800D
                           PROTOTYPE
*RNF7031 HTTP_POST_XML     I(10,0)              79099700D
                           PROTOTYPE
*RNF7031 HTTP_POST_XMLTF   I(10,0)              79105900D
                           PROTOTYPE
*RNF7031 HTTP_PROXY_GETAUTH...
                           I(10,0)              79051600D
                           PROTOTYPE
*RNF7031 HTTP_PROXY_SETAUTH...
                           I(10,0)              79049100D
                           PROTOTYPE
         HTTP_PXNDAUTH     CONST                79220000D
         HTTP_RDCRLF       CONST                79214200D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    498
         HTTP_RDWERR       CONST                79210000D     000900
         HTTP_RECEIVERESPONSE...
                           I(10,0)                000397D     003077
                           PROTOTYPE
         HTTP_REDIR_LOC    A(1024)              79054800D     000870
                           VARYING(2)
                           PROTOTYPE
         HTTP_REGERR       CONST                79211600D
         HTTP_RESP         CONST                79209700D
*RNF7031 HTTP_SELECT_COMMDRIVER...
                           *(16)                79072200D
                           PROTOTYPE
*RNF7031 HTTP_SET_100_TIMEOUT...
                           PROTOTYPE            79164300D
         HTTP_SETATTR      CONST                79219800D
*RNF7031 HTTP_SETAUTH      I(10,0)              79046200D
                           PROTOTYPE
         HTTP_SETCCSIDS    I(10,0)              79152100D     000711M
                           PROTOTYPE
         HTTP_SETCONTENTTYPEANDSOAPACTION...
                           PROTOTYPE              000201D     003052
*RNF7031 HTTP_SETFILECCSID PROTOTYPE            79155900D
         HTTP_SETPROXY     I(10,0)              79047600D     000707M
                           PROTOTYPE
*RNF7031 HTTP_SETTABLES    I(10,0)              79153700D
                           PROTOTYPE
         HTTP_SOCERR       CONST                79209100D
         HTTP_SSLGCI       CONST                79220400D
         HTTP_SSLVAL       CONST                79220600D
         HTTP_SSOPEN       CONST                79211800D
         HTTP_SSPROT       CONST                79214600D
         HTTP_SSPSET       CONST                79215000D
         HTTP_SSPUNK       CONST                79214800D
         HTTP_SSSNFD       CONST                79212000D
         HTTP_SSSNTO       CONST                79212200D
         HTTP_SSTIMO       CONST                79212400D
         HTTP_STMF_CALC    CONST                79169200D
         HTTP_SWCERR       CONST                79217800D
*RNF7031 HTTP_TEMPFILE     A(40)                79177200D
                           VARYING(2)
                           PROTOTYPE
         HTTP_TIMEOUT      CONST                80003100D     003819
         HTTP_TLSSET       CONST                79220800D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    499
*RNF7031 HTTP_URL_ENCODER  *(16)                79055900D   79056200    79058400    79060800
                                                79063400    79065600    79067500
*RNF7031 HTTP_URL_ENCODER_ADDVAR...
                           N(1)                 79058200D
                           PROTOTYPE
*RNF7031 HTTP_URL_ENCODER_ADDVAR_S...
                           N(1)                 79067300D
                           PROTOTYPE
*RNF7031 HTTP_URL_ENCODER_FREE...
                           N(1)                 79065400D
                           PROTOTYPE
*RNF7031 HTTP_URL_ENCODER_GETPTR...
                           PROTOTYPE            79060600D
*RNF7031 HTTP_URL_ENCODER_GETSTR...
                           A(32767)             79063200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 HTTP_URL_ENCODER_NEW...
                           *(16)                79056100D
                           PROTOTYPE
*RNF7031 HTTP_URL_GET      I(10,0)              79009000D
                           PROTOTYPE
*RNF7031 HTTP_URL_GET_RAW  I(10,0)              79019600D
                           PROTOTYPE
*RNF7031 HTTP_URL_GET_XML  I(10,0)              79089400D
                           PROTOTYPE
*RNF7031 HTTP_URL_POST     I(10,0)              79015300D
                           PROTOTYPE
*RNF7031 HTTP_URL_POST_RAW I(10,0)              79024100D
                           PROTOTYPE
         HTTP_URL_POST_RAW2...
                           I(10,0)              79075100D     000858
                           PROTOTYPE
*RNF7031 HTTP_URL_POST_STMF...
                           I(10,0)              79079600D
                           PROTOTYPE
*RNF7031 HTTP_URL_POST_STMF_XML...
                           I(10,0)              79113100D
                           PROTOTYPE
*RNF7031 HTTP_URL_POST_XML I(10,0)              79101800D
                           PROTOTYPE
*RNF7031 HTTP_USE_COOKIES  PROTOTYPE            79171800D
         HTTP_USERAGENT    CONST                80003700D     003840
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    500
         HTTP_XFRENC       CONST                79210200D
*RNF7031 HTTP_XLATE        I(10,0)              79157400D
                           PROTOTYPE
*RNF7031 HTTP_XLATEDYN     I(10,0)              79160800D
                           PROTOTYPE
*RNF7031 HTTP_XLATEP       I(10,0)              79159100D
                           PROTOTYPE
         HTTP_XML_CALC     CONST                79169100D
*RNF7031 HTTP_XML_SETCCSIDS...
                           I(10,0)              79165800D
                           PROTOTYPE
         HTTP_XMLERR       CONST                79218200D
*RNF7031 HTTP_XMLNS        PROTOTYPE            79178100D
*RNF7031 HTTP_XMLRETURNPTR PROTOTYPE            79179400D
*RNF7031 HTTP_XMLRETURNUCS PROTOTYPE            79202500D
*RNF7031 HTTP_XMLSTRIPCRLF PROTOTYPE            79181000D
         HTTP_XPROC        I(10,0)              79053600D     000788M
                           PROTOTYPE
         HTTPAPI_RELDATE   CONST                79003400D
         HTTPAPI_VERSION   CONST                79003200D
         HTTPDATASINK_BODYDATA...
                           PROTOTYPE            78039300D     003306
         HTTPDATASINK_ENDPART...
                           PROTOTYPE            78041200D     003369
         HTTPDATASINK_STARTPART...
                           PROTOTYPE            78037600D     003192
         HTTPRESPONSE_ISAUTHENTICATIONERROR...
                           N(1)                 70008700D     000850      000882
                           PROTOTYPE
         HTTPRESPONSE_ISREDIRECT...
                           N(1)                 70007800D     000853      000869
                           PROTOTYPE
*RNF7031 HTTPS_CLEANUP     I(10,0)              79039700D
                           PROTOTYPE
*RNF7031 HTTPS_DCM_REG     I(10,0)              79038600D
                           PROTOTYPE
*RNF7031 HTTPS_IDNAME      A(50)                79040800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 HTTPS_INIT        I(10,0)              79036400D
                           PROTOTYPE
*RNF7031 HTTPS_STRICT      PROTOTYPE            79041800D
*RNF7031 ICONV             U(10,0)              63034700D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    501
                           PROTOTYPE
*RNF7031 ICONV_CLOSE       I(10,0)              63035800D
                           PROTOTYPE
*RNF7031 ICONV_FROMCODE_T  DS(32)               63031200D
                           BASED(PDUMMY)
*RNF7031   CCSID           A(5)                 63031500D
*RNF7031   CONVALT         A(3)                 63031600D
*RNF7031   ERROPTION       A(1)                 63032000D
*RNF7031   IBMCCSID        A(8)                 63031400D
*RNF7031   INPLENGTHOPT    A(1)                 63031900D
*RNF7031   RESERVED        A(12)                63032100D
*RNF7031   SHIFTSTATEALT   A(1)                 63031800D
*RNF7031   SUBSTALT        A(1)                 63031700D
*RNF7031 ICONV_OPEN        A(52)                63030200D
                           PROTOTYPE
*RNF7031 ICONV_T           DS(52)               63030400    63030800D   63033200    63034900
                           BASED(PDUMMY)        63036000    64044500
*RNF7031   CD(12)          I(10,0)              63031000D
*RNF7031   RETURN_VALUE    I(10,0)              63030900D
*RNF7031 ICONV_TOCODE_T    DS(32)               63032300D
                           BASED(PDUMMY)
*RNF7031   CCSID           A(5)                 63032600D
*RNF7031   IBMCCSID        A(8)                 63032500D
*RNF7031   RESERVED        A(19)                63032700D
*RNF7031 IFS_TMPNAM        *(16)                63027900D
                           PROTOTYPE
         IGNOREUNEXPECTEDSOAPHEADER...
                           N(1)                   000509D     003651      003692      003721
                           PROTOTYPE
*RNF7031 INT_T             I(10,0)              63001100D
                           BASED(PDUMMY)
*RNF7031 JOB_GETCCSID      I(10,0)              70001800D
                           PROTOTYPE
*RNF7031 JOB_GETTCPIPADDR  A(15)                70000900D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 JOB_ISBATCH       N(1)                 70002700D
                           PROTOTYPE
*RNF7031 KEYPRESSED_T      A(1)                102000500D  100002300
                           BASED(PDUMMY)
         L_TMPNAM          CONST                63028200D
*RNF7031 LAYOUT_NEW        *(16)                72066300D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    502
*RNF7031 LAYOUT_NULL       *(16)                72068100D
                           PROTOTYPE
*RNF7031 LOCALTIME         *(16)                63005500D
                           PROTOTYPE
*RNF7031 LOCALTIME_R       *(16)                63006000D
                           PROTOTYPE
*RNF7031 LOGGER_ADDAPPENDER...
                           PROTOTYPE            72076400D
*RNF7031 LOGGER_DEBUG      PROTOTYPE            72018700D
*RNF7031 LOGGER_DEBUGMSG   PROTOTYPE            72020400D
*RNF7031 LOGGER_ERROR      PROTOTYPE            72028900D
*RNF7031 LOGGER_ERRORMSG   PROTOTYPE            72030600D
*RNF7031 LOGGER_FATAL      PROTOTYPE            72032300D
*RNF7031 LOGGER_FATALMSG   PROTOTYPE            72034000D
*RNF7031 LOGGER_FORCEDLOG  PROTOTYPE            72035700D
*RNF7031 LOGGER_FORCEDLOGMSG...
                           PROTOTYPE            72037500D
*RNF7031 LOGGER_GETINTERNALDEBUGMODE...
                           A(10)                72055900D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 LOGGER_GETINTERNALDEBUGOUTPUT...
                           A(10)                72057400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 LOGGER_GETLOGGER  *(16)                72017100D
                           PROTOTYPE
*RNF7031 LOGGER_GETNAME    A(128)               72047700D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 LOGGER_GETROOTLOGGER...
                           *(16)                72015600D
                           PROTOTYPE
*RNF7031 LOGGER_INFO       PROTOTYPE            72022100D
*RNF7031 LOGGER_INFOMSG    PROTOTYPE            72023800D
*RNF7031 LOGGER_ISDEBUGENABLED...
                           N(1)                 72039300D
                           PROTOTYPE
*RNF7031 LOGGER_ISERRORENABLED...
                           N(1)                 72044400D
                           PROTOTYPE
*RNF7031 LOGGER_ISFATALENABLED...
                           N(1)                 72046100D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    503
                           PROTOTYPE
*RNF7031 LOGGER_ISINFOENABLED...
                           N(1)                 72041000D
                           PROTOTYPE
*RNF7031 LOGGER_ISLOGGING  N(1)                 72014100D
                           PROTOTYPE
*RNF7031 LOGGER_ISNULL     N(1)                 72049300D
                           PROTOTYPE
*RNF7031 LOGGER_ISWARNENABLED...
                           N(1)                 72042700D
                           PROTOTYPE
*RNF7031 LOGGER_NULL       *(16)                72050900D
                           PROTOTYPE
*RNF7031 LOGGER_SETINTERNALDEBUGGING...
                           PROTOTYPE            72054100D
*RNF7031 LOGGER_SETLEVEL   PROTOTYPE            72052400D
*RNF7031 LOGGER_SETLOGGING N(1)                 72012500D
                           PROTOTYPE
*RNF7031 LOGGER_WARN       PROTOTYPE            72025500D
*RNF7031 LOGGER_WARNMSG    PROTOTYPE            72027200D
         LOGIN             I(10,0)                000194D     000887      003014
                           PROTOTYPE
*RNF7031 LOG4RPG_APPENDERNAME_T...
                           A(32)                72005100D   72070800
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_DEBUGMODE_T...
                           A(10)                72004000D   72055300    72056000
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_DEBUGOUTPUT_T...
                           A(10)                72004200D   72055400    72057500
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_FILTERNAME_T...
                           A(32)                72005500D   72079300
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_FOOTER_T  A(4096)              72002200D
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_FORMATTEDTEXT_T...
                           A(4096)              72002600D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    504
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_HEADER_T  A(4096)              72001900D   72002300
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_HLOGGER_T *(16)                72003600D   72015700    72017200    72019900
                           BASED(PDUMMY)        72021600    72023300    72025000    72026700
                                                72028400    72030100    72031800    72033500
                                                72035200    72036900    72038700    72040500
                                                72042200    72043900    72045600    72047300
                                                72048900    72050500    72051000    72053600
                                                72077600
*RNF7031 LOG4RPG_IMPLCLASS_T...
                           A(128)               72004600D   72067500    72070900    72079400
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_LEVEL_T   A(10)                72003200D   72037000    72038800    72053700
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_LOGGERNAME_T...
                           A(128)               72003800D   72018300    72047800
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_MSG_T     DS(549)              72001600D   72021700    72025100    72028500
                           BASED(PDUMMY)        72031900    72035300    72038900
*RNF7031 LOG4RPG_PAPPENDER_T...
                           *(16)                72004900D   72069700    72071600    72074200
                           BASED(PDUMMY)        72075900    72077700
*RNF7031 LOG4RPG_PATH_T    A(256)               72004400D   72062300    72064200    70006400
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 LOG4RPG_PFILTER_T *(16)                72005300D   72076000    72078200    72080100
                           BASED(PDUMMY)        72082700    72082800
*RNF7031 LOG4RPG_PLAYOUT_T *(16)                72005700D   72066400    72068200    72074300
                           BASED(PDUMMY)
*RNF7031 LOG4RPG_PRIORITY_T...
                           I(10,0)              72003400D
                           BASED(PDUMMY)
*RNF7031 LOG4RPG_STARTLOGGINGSERVICE...
                           PROTOTYPE            70005900D
*RNF7031 LOG4RPG_TEXT_T    A(2048)              72001300D   72020000    72023400    72026800
                           BASED(PDUMMY)        72030200    72033600    72037100
                           VARYING(2)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    505
*RNF7031 LONG_T            I(10,0)              63001300D
                           BASED(PDUMMY)
*RNF7031 LSEEK             I(10,0)              63066400D
                           PROTOTYPE
*RNF7031 LSTAT             I(10,0)              63037500D
                           PROTOTYPE
*RNF7031 MALLOC            *(16)                63024400D
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_DELETE...
                           PROTOTYPE            67019600D
*RNF7031 MANAGEDMEMORYDATASOURCE_GETCCSID...
                           I(10,0)              67011100D
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_GETCONTENTTYPE...
                           A(1024)              67009300D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_GETNAME...
                           A(254)               67004600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_GETPATH...
                           A(254)               67003800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_GETSIZE...
                           I(10,0)              67011900D
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_HASHCODE...
                           A(32)                67002000D
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_INPUTSTREAM_CLOSE...
                           PROTOTYPE            67018700D
*RNF7031 MANAGEDMEMORYDATASOURCE_INPUTSTREAM_OPEN...
                           I(10,0)              67016700D
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_INPUTSTREAM_READ...
                           I(10,0)              67017600D
                           PROTOTYPE
         MANAGEDMEMORYDATASOURCE_ISNULL...
                           N(1)                 67021300D     000968
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_NEW...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    506
                           *(16)                67001100D
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_NULL...
                           *(16)                67020600D
                           PROTOTYPE
         MANAGEDMEMORYDATASOURCE_OUTPUTSTREAM_CLOSE...
                           PROTOTYPE            67015800D     000774M     000970M
         MANAGEDMEMORYDATASOURCE_OUTPUTSTREAM_OPEN...
                           I(10,0)              67013600D     000729
                           PROTOTYPE
         MANAGEDMEMORYDATASOURCE_OUTPUTSTREAM_WRITE...
                           I(10,0)              67014700D     001107M
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_SETBUFFER...
                           I(10,0)              67007000D
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_SETCCSID...
                           I(10,0)              67010200D
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_SETCONTENTTYPE...
                           PROTOTYPE            67008300D
*RNF7031 MANAGEDMEMORYDATASOURCE_SETPATH...
                           I(10,0)              67002800D
                           PROTOTYPE
*RNF7031 MANAGEDMEMORYDATASOURCE_SETSTRING...
                           I(10,0)              67005500D
                           PROTOTYPE
         MANAGEDMEMORYDATASOURCE_STREAM_ISOPEN...
                           N(1)                 67012700D     000969
                           PROTOTYPE
*RNF7031 MARSHALLER_FROMBUFFERTOBASE64DESCRIPTOR...
                           I(10,0)              96096100D
                           PROTOTYPE
*RNF7031 MARSHALLER_FROMBUFFERTOHEXBINARYDESCRIPTOR...
                           I(10,0)              96101600D
                           PROTOTYPE
*RNF7031 MARSHALLER_FROMFILETOBASE64DESCRIPTOR...
                           I(10,0)              96093500D
                           PROTOTYPE
*RNF7031 MARSHALLER_FROMFILETOHEXBINARYDESCRIPTOR...
                           I(10,0)              96100400D
                           PROTOTYPE
*RNF7031 MARSHALLER_TOANY  A(65535)             96058200D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    507
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOANYSIMPLETYPE...
                           A(65535)             96055700D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOANYSIMPLETYPEV6...
                           PROTOTYPE            96056900D
*RNF7031 MARSHALLER_TOANYTYPE...
                           A(65535)             96053200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOANYTYPEV6...
                           PROTOTYPE            96054400D
*RNF7031 MARSHALLER_TOANYURI...
                           A(65535)             96111000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOANYURIV6...
                           PROTOTYPE            96112300D
*RNF7031 MARSHALLER_TOANYV6...
                           PROTOTYPE            96059400D
*RNF7031 MARSHALLER_TOATTRIBUTEDURI...
                           A(65535)             96113700D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOATTRIBUTEDURIV6...
                           PROTOTYPE            96115000D
*RNF7031 MARSHALLER_TOBASE64BINARY...
                           A(65535)             96089100D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOBASE64BINARYBUFFER...
                           I(10,0)              96094800D
                           PROTOTYPE
*RNF7031 MARSHALLER_TOBASE64BINARYSTREAM...
                           I(10,0)              96092200D
                           PROTOTYPE
*RNF7031 MARSHALLER_TOBASE64BINARYV6...
                           PROTOTYPE            96090500D
*RNF7031 MARSHALLER_TOBOOLEAN...
                           A(65535)             96068200D
                           VARYING(2)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    508
                           PROTOTYPE
*RNF7031 MARSHALLER_TOBYTE A(65535)             96073000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TODATE A(65535)             96082700D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TODATETIME...
                           A(65535)             96081800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TODECIMAL...
                           A(65535)             96069000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TODOUBLE...
                           A(65535)             96069800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TODURATION...
                           A(65535)             96116400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOFLOAT...
                           A(65535)             96070600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOGDAY A(65535)             96084500D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOGMONTH...
                           A(65535)             96085400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOGMONTHDAY...
                           A(65535)             96086300D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOGYEAR...
                           A(65535)             96087200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOGYEARMONTH...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    509
                           A(65535)             96088100D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOHEXBINARY...
                           A(65535)             96097400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOHEXBINARYV6...
                           PROTOTYPE            96098800D
*RNF7031 MARSHALLER_TOINT  A(65535)             96071400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOINTEGER...
                           A(65535)             96073800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOLANGUAGE...
                           A(65535)             96102900D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOLANGUAGEV6...
                           PROTOTYPE            96104200D
*RNF7031 MARSHALLER_TOLONG A(65535)             96074600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TONEGATIVEINTEGER...
                           A(65535)             96080200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TONMTOKEN...
                           A(65535)             96108300D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TONMTOKENV6...
                           PROTOTYPE            96109600D
*RNF7031 MARSHALLER_TONONNEGATIVEINTEGER...
                           A(65535)             96078600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TONONPOSITIVEINTEGER...
                           A(65535)             96079400D
                           VARYING(2)
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    510
*RNF7031 MARSHALLER_TONORMALIZEDSTRING...
                           A(65535)             96063200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TONORMALIZEDSTRINGV6...
                           PROTOTYPE            96064400D
*RNF7031 MARSHALLER_TOPOSITIVEINTEGER...
                           A(65535)             96081000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOQNAME...
                           A(65535)             96065700D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOQNAMEV6...
                           PROTOTYPE            96066900D
*RNF7031 MARSHALLER_TOSHORT...
                           A(65535)             96072200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOSTRING...
                           A(65535)             96060700D
                           VARYING(2)
                           PROTOTYPE
         MARSHALLER_TOSTRINGV6...
                           PROTOTYPE            96061900D     001038M     001055M     001072M
*RNF7031 MARSHALLER_TOTIME A(65535)             96083600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOTOKEN...
                           A(65535)             96105600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOTOKENV6...
                           PROTOTYPE            96106900D
*RNF7031 MARSHALLER_TOUNSIGNEDBYTE...
                           A(65535)             96077000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOUNSIGNEDINT...
                           A(65535)             96075400D
                           VARYING(2)
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    511
*RNF7031 MARSHALLER_TOUNSIGNEDLONG...
                           A(65535)             96077800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MARSHALLER_TOUNSIGNEDSHORT...
                           A(65535)             96076200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MATPTR            I(10,0)              26018700D
                           PROTOTYPE
*RNF7031 MATPTR_SPACEPTR_TPL_T...
                           DS(88)               26019700D
                           BASED(PDUMMY)
*RNF7031   BASEINF         DS(9)                26019900D
*RNF7031   CONTEXTID       A(32)                26020000D
*RNF7031   CONTEXTNAME     A(30)                26020400D
*RNF7031   CONTEXTSUBTYPE  A(1)                 26020200D
*RNF7031   CONTEXTTYPE     A(1)                 26020100D
*RNF7031   EXTOFFSPACE     I(20,0)              26021300D
*RNF7031   OBJECTID        A(32)                26020500D
*RNF7031   OBJECTNAME      A(30)                26020900D
*RNF7031   OBJECTSUBTYPE   A(1)                 26020700D
*RNF7031   OBJECTTYPE      A(1)                 26020600D
*RNF7031   OFFSPACE        I(10,0)              26021000D
*RNF7031   PTRTRAGETINF    A(2)                 26021100D
*RNF7031   RESERVED_1      A(1)                 26021200D
*RNF7031 MATPTR_TPL_T      DS(9)                26019200D   26019900
                           BASED(PDUMMY)
*RNF7031   BYTAVL          I(10,0)              26019400D
*RNF7031   BYTPRV          I(10,0)              26019300D
*RNF7031   TYPE            A(1)                 26019500D
*RNF7031 MBRD0100_T        DS(135)              24000600D
                           BASED(PDUMMY)
*RNF7031   ATTR            A(10)                24001200D
*RNF7031   BYTEAVL         I(10,0)              24000800D
*RNF7031   BYTEPRV         I(10,0)              24000700D
*RNF7031   CHGDATTIM       A(13)                24001500D
*RNF7031   CRTDATTIM       A(13)                24001400D
*RNF7031   FILLIB          A(10)                24001000D
*RNF7031   FILNME          A(10)                24000900D
*RNF7031   ISSRCFILE       A(1)                 24001700D
*RNF7031   MBR             A(10)                24001100D
*RNF7031   SRCTYP          A(10)                24001300D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    512
*RNF7031   TEXT            A(50)                24001600D
*RNF7031 MBRD0200_T        DS(266)              25000600D
                           BASED(PDUMMY)
*RNF7031   ACCPTHSIZE      I(10,0)              25002600D
*RNF7031   ACCPTHSIZEMULT  I(10,0)              25003800D
*RNF7031   ATTR            A(10)                25001200D
*RNF7031   BYTEAVL         I(10,0)              25000800D
*RNF7031   BYTEPRV         I(10,0)              25000700D
*RNF7031   CHGDATTIM       A(13)                25001500D
*RNF7031   CRTDATTIM       A(13)                25001400D
*RNF7031   DATELASTUSED    A(7)                 25003400D
*RNF7031   DTASPCSIZE      I(10,0)              25002500D
*RNF7031   DTASPCSIZEMULT  I(10,0)              25003700D
*RNF7031   FILLIB          A(10)                25001000D
*RNF7031   FILNME          A(10)                25000900D
*RNF7031   ISSRCFILE       A(1)                 25001700D
*RNF7031   LENADDINF       I(10,0)              25004100D
*RNF7031   LGLFILE         A(1)                 25002000D
*RNF7031   MBR             A(10)                25001100D
*RNF7031   MBRCHGDATTIM    A(13)                25002800D
*RNF7031   MBREXPDATE      A(7)                 25003100D
*RNF7031   MBRRSTDATTIM    A(13)                25003000D
*RNF7031   MBRSAVDATTIM    A(13)                25002900D
*RNF7031   MBRTEXTCCSID    I(10,0)              25003900D
*RNF7031   NUMDAYSUSED     I(10,0)              25003300D
*RNF7031   NUMDLTRCD       I(10,0)              25002400D
*RNF7031   NUMDLTRCDU      U(10,0)              25004300D
*RNF7031   NUMPHYMBRS      I(10,0)              25002700D
*RNF7031   NUMRCDALLMBR    I(10,0)              25002300D
*RNF7031   NUMRCDALLMBRU   U(10,0)              25004200D
*RNF7031   ODPSHARING      A(1)                 25002100D
*RNF7031   OFSADDINF       I(10,0)              25004000D
*RNF7031   RESERVED_1      A(2)                 25002200D
*RNF7031   RESERVED_2      A(6)                 25003200D
*RNF7031   RESERVED_3      A(2)                 25003600D
*RNF7031   RESERVED_4      A(6)                 25004400D
*RNF7031   RMTFILE         A(1)                 25001900D
*RNF7031   SRCTYP          A(10)                25001300D
*RNF7031   TEXT            A(50)                25001600D
*RNF7031   USERESETDATE    A(7)                 25003500D
*RNF7031 MD5_T             DS(34)               28003000D   28010100
*RNF7031   LENGTH          U(5,0)               28003100D
*RNF7031   VALUE           A(32)                28003200D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    513
*RNF7031 MEMCMP            I(10,0)              63009500D
                           PROTOTYPE
*RNF7031 MEMCPY            *(16)                63007500D
                           PROTOTYPE
*RNF7031 MEMICMP           I(10,0)              63010100D
                           PROTOTYPE
*RNF7031 MEMMOVE           *(16)                63008900D
                           PROTOTYPE
*RNF7031 MEMORY_ALLOCATE   *(16)                44005900D
                           PROTOTYPE
*RNF7031 MEMORY_FREE       PROTOTYPE            44007600D
*RNF7031 MEMORY_FREEALL    PROTOTYPE            44006800D
*RNF7031 MEMORYMANAGER_ALLOCATE...
                           *(16)                44009800D
                           PROTOTYPE
*RNF7031 MEMORYMANAGER_CREATEHEAP...
                           I(10,0)              44012100D
                           PROTOTYPE
*RNF7031 MEMORYMANAGER_DELETEHEAP...
                           PROTOTYPE            44013100D
*RNF7031 MEMORYMANAGER_FREE...
                           PROTOTYPE            44011400D
*RNF7031 MEMORYMANAGER_GETDEFAULTMANAGER...
                           DS(48)               44009100D
                           PROTOTYPE
*RNF7031 MEMORYMANAGER_MANAGER_T...
                           DS(48)               44008400D   44009200
                           BASED(PDUMMY)
*RNF7031   PALLOCATE       *(16) PROCPTR        44008600D
*RNF7031   PFREE           *(16) PROCPTR        44008800D
*RNF7031   PREALLOCATE     *(16) PROCPTR        44008700D
*RNF7031 MEMORYMANAGER_REALLOCATE...
                           *(16)                44010600D
                           PROTOTYPE
*RNF7031 MEMORYREADER_DELETE...
                           PROTOTYPE            62006500D
*RNF7031 MEMORYREADER_NEW  I(10,0)              62004600D
                           PROTOTYPE
*RNF7031 MEMORYREADER_READ I(10,0)              62005500D
                           PROTOTYPE
*RNF7031 MEMORYREADER_READPROC...
                           *(16) PROCPTR        62007300D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    514
*RNF7031 MEMORYWRITER_DELETE...
                           PROTOTYPE            62003100D
*RNF7031 MEMORYWRITER_NEW  I(10,0)              62001200D
                           PROTOTYPE
*RNF7031 MEMORYWRITER_WRITE...
                           I(10,0)              62002100D
                           PROTOTYPE
*RNF7031 MEMORYWRITER_WRITEPROC...
                           *(16) PROCPTR        62003900D
                           PROTOTYPE
*RNF7031 MEMRDR_HANDLE_T   I(10,0)              62000800D   62004700    62006000    62007000
                           BASED(PDUMMY)
*RNF7031 MEMSET            *(16)                63008100D
                           PROTOTYPE
*RNF7031 MEMWTR_HANDLE_T   I(10,0)              62000600D   62001300    62002600    62003600
                           BASED(PDUMMY)
*RNF7031 MESSAGECONTEXT_ADDATTACHMENT...
                           A(128)                7009300D
                           VARYING(2)
                           PROTOTYPE
         MESSAGECONTEXT_DELETE...
                           PROTOTYPE             7011600D     000982M
         MESSAGECONTEXT_GETCONTENTTYPEHEADER...
                           A(1024)               7005800D     000800
                           VARYING(2)
                           PROTOTYPE
         MESSAGECONTEXT_GETMIMEVERSIONHEADER...
                           A(510)                7005000D     000796
                           VARYING(2)
                           PROTOTYPE
         MESSAGECONTEXT_GETSIZE...
                           I(10,0)               7004200D     000862
                           PROTOTYPE
         MESSAGECONTEXT_GETSOAPACTIONHEADER...
                           A(510)                7006600D     000801
                           VARYING(2)
                           PROTOTYPE
         MESSAGECONTEXT_GETSOAPPART...
                           *(16)                 7003300D     000718
                           PROTOTYPE
         MESSAGECONTEXT_INPUTSTREAM_CLOSE...
                           PROTOTYPE             7016700D     000980M     003002M
         MESSAGECONTEXT_INPUTSTREAM_ISOPEN...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    515
                           N(1)                  7014900D     000979
                           PROTOTYPE
         MESSAGECONTEXT_INPUTSTREAM_OPEN...
                           I(10,0)               7014000D     000840      003003
                           PROTOTYPE
*RNF7031 MESSAGECONTEXT_INPUTSTREAM_READ...
                           I(10,0)               7015700D
                           PROTOTYPE
         MESSAGECONTEXT_ISMIMEMESSAGE...
                           N(1)                  7002500D     000794
                           PROTOTYPE
         MESSAGECONTEXT_ISNULL...
                           N(1)                  7012400D     000978      003861
                           PROTOTYPE
         MESSAGECONTEXT_NEW...
                           *(16)                 7000900D     003862
                           PROTOTYPE
         MESSAGECONTEXT_NULL...
                           *(16)                 7013200D     000983
                           PROTOTYPE
         MESSAGECONTEXT_PREPARETOSEND...
                           PROTOTYPE             7010800D     000775M
*RNF7031 MESSAGECONTEXT_SETHEADERCCSID...
                           PROTOTYPE             7001600D
         MESSAGECONTEXT_SETSOAPACTION...
                           PROTOTYPE             7007400D     000719M
*RNF7031 MESSAGECONTEXT_SETSOAPPART...
                           A(128)                7008400D
                           VARYING(2)
                           PROTOTYPE
         MI_LIBRARY        CONST                26002600D
         MI_PROGRAM        CONST                26002500D
*RNF7031 MI_TIME_T         A(8)                 26026300D   26028000    26028500
         MI_USRIDX         CONST                26002900D
         MI_USRQ           CONST                26002800D
         MI_USRSPC         CONST                26002700D
*RNF7031 MIME_ASCII_TOEBCDIC...
                           A(4096)              77020400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MIME_DATASINK_T   DS(352)              77004000D   77008200    77010100    77067500
                           BASED(PDUMMY)        77068600
*RNF7031   PADDHEADER      *(16) PROCPTR        77004200D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    516
*RNF7031   PBODYDATA       *(16) PROCPTR        77004300D
*RNF7031   PBOUNDARY       *(16) PROCPTR        77004400D
*RNF7031   PCONTENTDESCRIPTION...
                           *(16) PROCPTR        77004500D
*RNF7031   PCONTENTDISPOSITION...
                           *(16) PROCPTR        77004700D
*RNF7031   PCONTENTDISPPARAMS...
                           *(16) PROCPTR        77004900D
*RNF7031   PCONTENTENCODING...
                           *(16) PROCPTR        77005100D
*RNF7031   PCONTENTID      *(16) PROCPTR        77005300D
*RNF7031   PCONTENTMD5     *(16) PROCPTR        77005400D
*RNF7031   PCONTENTSUBTYPE *(16) PROCPTR        77005500D
*RNF7031   PCONTENTTYPE    *(16) PROCPTR        77005700D
*RNF7031   PCONTENTTYPEPARAMS...
                           *(16) PROCPTR        77005800D
*RNF7031   PENDBASICPART   *(16) PROCPTR        77006000D
*RNF7031   PENDMESSAGE     *(16) PROCPTR        77006100D
*RNF7031   PENDMESSAGEHEADER...
                           *(16) PROCPTR        77006200D
*RNF7031   PENDMESSAGEPART *(16) PROCPTR        77006400D
*RNF7031   PENDMULTIPART   *(16) PROCPTR        77006600D
*RNF7031   PHEADER         *(16) PROCPTR        77006700D
*RNF7031   PSTARTBASICPART *(16) PROCPTR        77006800D
*RNF7031   PSTARTMESSAGE   *(16) PROCPTR        77007000D
*RNF7031   PSTARTMESSAGEPART...
                           *(16) PROCPTR        77007100D
*RNF7031   PSTARTMULTIPART *(16) PROCPTR        77007300D
*RNF7031 MIME_EBCDIC_TOASCII...
                           A(4096)              77021300D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MIME_EBCDIC_TOLOWER...
                           A(4096)              77022200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MIME_HMIME_T      *(16)                77003100D   77007800    77009200    77010000
                           BASED(PDUMMY)        77010900    77011800    77014200    77015000
                                                77016000    77019100    77020100    77023200
                                                77024300    78010500      000586      000665
*RNF7031 MIME_STRING_T     A(4096)              77003600D   77016500    77017600    77020500
                           BASED(PDUMMY)        77021400    77022300    77022700    78014500
                           VARYING(2)           78016700    78018600    78022700    78026300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    517
                                                78029900
*RNF7031 MIMEDATASINK_ADDHEADER...
                           PROTOTYPE            77030500D
*RNF7031 MIMEDATASINK_BODYDATA...
                           PROTOTYPE            77032300D
*RNF7031 MIMEDATASINK_BOUNDARY...
                           PROTOTYPE            77035700D
*RNF7031 MIMEDATASINK_CONTENTDESCRIPTION...
                           PROTOTYPE            77037400D
*RNF7031 MIMEDATASINK_CONTENTDISPOSITION...
                           PROTOTYPE            77039300D
*RNF7031 MIMEDATASINK_CONTENTDISPPARAMS...
                           PROTOTYPE            77041100D
*RNF7031 MIMEDATASINK_CONTENTENCODING...
                           PROTOTYPE            77043400D
*RNF7031 MIMEDATASINK_CONTENTID...
                           PROTOTYPE            77045200D
*RNF7031 MIMEDATASINK_CONTENTMD5...
                           PROTOTYPE            77046900D
*RNF7031 MIMEDATASINK_CONTENTSUBTYPE...
                           PROTOTYPE            77048600D
*RNF7031 MIMEDATASINK_CONTENTTYPE...
                           PROTOTYPE            77050300D
*RNF7031 MIMEDATASINK_CONTENTTYPEPARAMS...
                           PROTOTYPE            77052100D
*RNF7031 MIMEDATASINK_ENDBASICPART...
                           PROTOTYPE            77034100D
*RNF7031 MIMEDATASINK_ENDMESSAGE...
                           PROTOTYPE            77053900D
*RNF7031 MIMEDATASINK_ENDMESSAGEHEADER...
                           PROTOTYPE            77055500D
*RNF7031 MIMEDATASINK_ENDMESSAGEPART...
                           PROTOTYPE            77057100D
*RNF7031 MIMEDATASINK_ENDMULTIPART...
                           PROTOTYPE            77058700D
*RNF7031 MIMEDATASINK_HEADER...
                           PROTOTYPE            77060300D
*RNF7031 MIMEDATASINK_ISNULL...
                           N(1)                 77068100D
                           PROTOTYPE
*RNF7031 MIMEDATASINK_NULL DS(352)              77067400D
                           PROTOTYPE
*RNF7031 MIMEDATASINK_STARTBASICPART...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    518
                           *(16)                77062100D
                           PROTOTYPE
*RNF7031 MIMEDATASINK_STARTMESSAGE...
                           *(16)                77065100D
                           PROTOTYPE
*RNF7031 MIMEDATASINK_STARTMESSAGEPART...
                           *(16)                77066600D
                           PROTOTYPE
*RNF7031 MIMEDATASINK_STARTMULTIPART...
                           *(16)                77063600D
                           PROTOTYPE
         MIMEPARSER_BEGINPARSE...
                           PROTOTYPE            77013700D     003112M
         MIMEPARSER_DELETE PROTOTYPE            77008700D     000965M
         MIMEPARSER_ENDPARSE...
                           PROTOTYPE            77019600D     000913M
*RNF7031 MIMEPARSER_GETCCSIDASCII...
                           I(10,0)              77012300D
                           PROTOTYPE
*RNF7031 MIMEPARSER_GETCCSIDEBCDIC...
                           I(10,0)              77013000D
                           PROTOTYPE
         MIMEPARSER_ISNULL N(1)                 77023800D     000964
                           PROTOTYPE
         MIMEPARSER_NEW    *(16)                77007700D     000818
                           PROTOTYPE
*RNF7031 MIMEPARSER_NULL   *(16)                77023100D
                           PROTOTYPE
         MIMEPARSER_PARSE  N(1)                 77018600D     003123
                           PROTOTYPE
*RNF7031 MIMEPARSER_RETRIEVEPARAMETERKEY...
                           A(4096)              77016400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MIMEPARSER_RETRIEVEPARAMETERVALUE...
                           A(4096)              77017500D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 MIMEPARSER_SETCCSID...
                           PROTOTYPE            77011300D
*RNF7031 MIMEPARSER_SETCONTENTTRANSFERENCODING...
                           PROTOTYPE            77015400D
         MIMEPARSER_SETCONTENTTYPE...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    519
                           PROTOTYPE            77014500D     003113M
*RNF7031 MIMEPARSER_SETDATASINK...
                           PROTOTYPE            77009500D
         MIMEPARSER_SETDECODEDATA...
                           PROTOTYPE            77010400D     000819M
*RNF7031 MITIME            *(16)                26028400D
                           PROTOTYPE
*RNF7031 MKDIR             I(10,0)              63053900D
                           PROTOTYPE
*RNF7031 MSG_T             DS(549)              10000700D    9007800     9008200     9008600
                           BASED(PDUMMY)         9008800     9009000     9009900     9010400
                                                 9012100     9013600     9014600     9014700
                                                 9015700     9015900     9016900     9017000
                                                 9018000     9018200     9018700     9019200
                                                 9019700     9020900     9022100    16002500
                                                16006300    21004900    21006200    21009300
                                                21010400    21011500    21012700    21013800
                                                21015000    21016200    21017400    21018500
                                                21019600    21020700    39004700    60001100
                                                60002100    72001700    74001200    74002000
                                                74003000    74004000    74004400    74004800
                                                74004900    74005100    74005600    74006000
                                                74006100    74006900    74007700    74008600
                                                74008700    74009600    74009700    74010100
                                                74011200      000658
*RNF7031   DATA            A(512)               10001300D   74004900    74005100    74006100
                                                74008700    74009700
*RNF7031   FILE            A(10)                10001500D    9008800
*RNF7031   ID              DS(7)                10000900D    9008200    74004800    74006000
                                                74008600    74009600
*RNF7031   LIB             A(10)                10001600D    9009000
*RNF7031   TYPE            A(10)                10001400D    9008600     9019200
*RNF7031 MSGID_T           DS(7)                10000900    10001900D
                           BASED(PDUMMY)
*RNF7031   NBR             S(4,0)               10002100D
*RNF7031   PREFIX          A(3)                 10002000D
         MULTIREF_DELETE   PROTOTYPE            91011800D     000987M
         MULTIREF_DOCAPTUREDATA...
                           N(1)                 91022000D     001631      001995      002289
                           PROTOTYPE              002360      002516      002839
*RNF7031 MULTIREF_DOCOPYDATA...
                           N(1)                 91022800D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    520
*RNF7031 MULTIREF_ENDCALLBACK...
                           PROTOTYPE            91015300D
         MULTIREF_FINALIZE PROTOTYPE            91016800D     000894M
*RNF7031 MULTIREF_GET      DS(26869)            91009000D
                           PROTOTYPE
         MULTIREF_GETENDCALLBACK...
                           *(16) PROCPTR        91004600D     003481
                           PROTOTYPE
         MULTIREF_GETITEMINDEX...
                           I(10,0)              91018200D     001632      001996      002290
                           PROTOTYPE              002361      002517      002840
*RNF7031 MULTIREF_GETSIZE  I(10,0)              91024300D
                           PROTOTYPE
*RNF7031 MULTIREF_GETSOURCEITEMINDEX...
                           I(10,0)              91018900D
                           PROTOTYPE
*RNF7031 MULTIREF_GETSOURCEUSERDATA...
                           *(16)                91020400D
                           PROTOTYPE
         MULTIREF_GETSTARTCALLBACK...
                           *(16) PROCPTR        91003900D     003480
                           PROTOTYPE
*RNF7031 MULTIREF_GETTARGETITEMINDEX...
                           I(10,0)              91019600D
                           PROTOTYPE
*RNF7031 MULTIREF_GETTARGETUSERDATA...
                           *(16)                91021200D
                           PROTOTYPE
         MULTIREF_HASITEMINDEX...
                           N(1)                 91017500D     001631      001995      002289
                           PROTOTYPE              002360      002516      002839
         MULTIREF_ISDATA   N(1)                 91006200D     003477
                           PROTOTYPE
         MULTIREF_ISNULL   N(1)                 91013200D     000986
                           PROTOTYPE
         MULTIREF_ISREFERENCE...
                           N(1)                 91005300D     001441      001534      001650
                           PROTOTYPE              001671      001692      001713      001734
                                                  001755      001776      001817      001838
                                                  001859      001880      001901      001922
                                                  001943      002192      002308      002419
                                                  002535      002556      002577      002598
                                                  002619      002640      002661      002682
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    521
                                                  002703      002724      002745      002766
                                                  002787
         MULTIREF_NEW      PROTOTYPE            91003200D     000699M
*RNF7031 MULTIREF_NULL     *(16)                91012500D
                           PROTOTYPE
         MULTIREF_PUT      PROTOTYPE            91007100D     001442M     001535M     001651M
                                                  001672M     001693M     001714M     001735M
                                                  001756M     001777M     001818M     001839M
                                                  001860M     001881M     001902M     001923M
                                                  001944M     002193M     002309M     002420M
                                                  002536M     002557M     002578M     002599M
                                                  002620M     002641M     002662M     002683M
                                                  002704M     002725M     002746M     002767M
                                                  002788M
*RNF7031 MULTIREF_RELEASE  PROTOTYPE            91011000D
*RNF7031 MULTIREF_SETHASDATA...
                           PROTOTYPE            91010000D
*RNF7031 MULTIREF_SETSIZE  PROTOTYPE            91023500D
*RNF7031 MULTIREF_STARTCALLBACK...
                           PROTOTYPE            91013900D
         MUSTREDIRECTSTMF  N(1)                   000557D     000808      000908      003874
                           PROTOTYPE
*RNF7031 NS_ARRAYOFORDERITEMS_T...
                           DS(87940)             5000095     5000113D     002409      002467
                           TEMPLATE
*RNF7031   ORDERITEM       DS(87940)             5000116D
         NS_ARRAYOFORDERITEMSEND...
                           PROTOTYPE              000340D     002455
         NS_ARRAYOFORDERITEMSSTART...
                           PROTOTYPE              000330D     002398
*RNF7031 NS_ARRAYOFORDERS_T...
                           DS(13534980)          5000107D    5000163      001524      001582
                           TEMPLATE
*RNF7031   ORDER           DS(13534980)          5000110D
         NS_ARRAYOFORDERSEND...
                           PROTOTYPE              000252D     001570
         NS_ARRAYOFORDERSSTART...
                           PROTOTYPE              000242D     001513
*RNF7031 NS_ARRAYOFSTRINGS_T...
                           DS(16644)             5000093     5000119D     002182      002240
                           TEMPLATE
*RNF7031   ENTRY           DS(16644)             5000122D
         NS_ARRAYOFSTRINGSEND...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    522
                           PROTOTYPE              000296D     002228
         NS_ARRAYOFSTRINGSSTART...
                           PROTOTYPE              000286D     002171
         NS_ENTRYEND_OF_NS_ARRAYOFSTRINGS...
                           PROTOTYPE              000318D     002334
         NS_ENTRYSTART_OF_NS_ARRAYOFSTRINGS...
                           PROTOTYPE              000307D     002264
         NS_ORDEREND_OF_NS_ARRAYOFORDERS...
                           PROTOTYPE              000274D     001969
         NS_ORDERITEMEND_OF_NS_ARRAYOFORDERITEMS...
                           PROTOTYPE              000362D     002813
         NS_ORDERITEMSTART_OF_NS_ARRAYOFORDERITEMS...
                           PROTOTYPE              000351D     002491
         NS_ORDERSTART_OF_NS_ARRAYOFORDERS...
                           PROTOTYPE              000263D     001606
*RNF7031 NS_RPGARRAYOFENTRY_T...
                           DS(16644)             5000122     5000125D     002277      002348
                           TEMPLATE
*RNF7031   STRING(128)     A(128)                5000129D
                           VARYING(2)
*RNF7031   X               I(10,0)               5000128D
*RNF7031 NS_RPGARRAYOFORDER_T...
                           DS(13534980)          5000110     5000133D     001619      001983
                           TEMPLATE
*RNF7031   TIMIANORDER(128)...
                           DS(105742)            5000137D
*RNF7031   X               I(10,0)               5000136D
*RNF7031 NS_RPGARRAYOFORDERITEM_T...
                           DS(87940)             5000116     5000141D     002504      002827
                           TEMPLATE
*RNF7031   TIMIANORDERITEM(128)...
                           DS(687)               5000145D
*RNF7031   X               I(10,0)               5000144D
*RNF7031 NS_TIMIANORDERITEM_T...
                           DS(687)               5000069D    5000146      002507      002510
                           TEMPLATE               002830
*RNF7031   AMOUNT          S(31,15)              5000072D
*RNF7031   AMOUNTWITHVAT   S(31,15)              5000073D
*RNF7031   BARCODE         A(128)                5000074D
                           VARYING(2)
*RNF7031   ITEMID          I(10,0)               5000075D
*RNF7031   MODEL           A(128)                5000076D
                           VARYING(2)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    523
*RNF7031   ORDERREFID      I(10,0)               5000077D
*RNF7031   QTY             S(31,15)              5000078D
*RNF7031   QTYDELIVERED    S(31,15)              5000079D
*RNF7031   QTYUNITS        S(31,15)              5000080D
*RNF7031   REFMODELID      I(10,0)               5000081D
*RNF7031   TITLE           A(128)                5000082D
                           VARYING(2)
*RNF7031   UNITS           A(128)                5000083D
                           VARYING(2)
*RNF7031 NS_TIMIANORDERRNMD_T...
                           DS(105742)            5000086D    5000137      001622      001625
                           TEMPLATE               001986
*RNF7031   COSTINFO        A(128)                5000089D
                           VARYING(2)
*RNF7031   CUSTOMERSID     A(128)                5000090D
                           VARYING(2)
*RNF7031   DELIVERYDATE    Z(26)                 5000091D
*RNF7031   DELIVERYINFO    A(128)                5000092D
                           VARYING(2)
*RNF7031   NOTES           DS(16644)             5000093D
*RNF7031   ORDERDATE       Z(26)                 5000094D
*RNF7031   ORDERITEMS      DS(87940)             5000095D
*RNF7031   REFID           I(10,0)               5000096D
*RNF7031   REFNUMBER1      A(128)                5000097D
                           VARYING(2)
*RNF7031   REFNUMBER2      A(128)                5000098D
                           VARYING(2)
*RNF7031   REFNUMBER3      A(128)                5000099D
                           VARYING(2)
*RNF7031   STATE           A(128)                5000100D
                           VARYING(2)
*RNF7031   SUPPLIERSID     A(128)                5000101D
                           VARYING(2)
*RNF7031   TOTALAMOUNT     S(31,15)              5000102D
*RNF7031   TOTALAMOUNTWITHVAT...
                           S(31,15)              5000103D
         O_APPEND          CONST                63062500D
         O_CCSID           CONST                63063100D
         O_CODEPAGE        CONST                63062700D
         O_CREAT           CONST                63062100D
         O_EXCL            CONST                63062200D
         O_FORCE_SCAN      CONST                63062900D
         O_INHERITMODE     CONST                63063000D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    524
         O_RDONLY          CONST                63063900D
         O_RDWR            CONST                63064100D
         O_SHARE_NONE      CONST                63063700D
         O_SHARE_RDONLY    CONST                63063400D
         O_SHARE_RDWR      CONST                63063600D
         O_SHARE_WRONLY    CONST                63063500D
         O_TEXT_CREAT      CONST                63063200D
         O_TEXTDATA        CONST                63062800D
         O_TRUNC           CONST                63062300D
         O_WRONLY          CONST                63064000D
*RNF7031 OBJD0100_T        DS(90)               23000700D
                           BASED(PDUMMY)
*RNF7031   AUXSTGP         I(10,0)              23001400D
*RNF7031   BYTAVL          I(10,0)              23000900D
*RNF7031   BYTRET          I(10,0)              23000800D
*RNF7031   CHGDATTIM       A(13)                23001800D
*RNF7031   CRTDATTIM       A(13)                23001700D
*RNF7031   DOMAIN          A(2)                 23001600D
*RNF7031   LIB             A(10)                23001100D
*RNF7031   NAME            A(10)                23001000D
*RNF7031   OWNER           A(10)                23001500D
*RNF7031   RTNLIB          A(10)                23001300D
*RNF7031   TYPE            A(10)                23001200D
*RNF7031 OFF_T             I(10,0)              63052700D   63066100    63066500    63066700
                           BASED(PDUMMY)
*RNF7031 OPEN              I(10,0)              63059200D
                           PROTOTYPE
*RNF7031 OPENDIR           *(16)                63055000D
                           PROTOTYPE
*RNF7031 OPERATINGSYSTEM_GETRELEASE...
                           A(6)                 70007000D
                           PROTOTYPE
*RNF7031 ORSTR             PROTOTYPE            26024000D
         OUTPUTSTREAM_APPENDBUFFER...
                           PROTOTYPE              000376D     000736M     000744M     000770M
                                                  001096      001132M
         OUTPUTSTREAM_APPENDGLOBALREQUESTBUFFER...
                           PROTOTYPE              000387D     000755M     001033M     001050M
                                                  001067M     001084M     001119
*RNF7031 P_ASSERT          PROTOTYPE            19000500D
*RNF7031 P_RMVPGMMSG       PROTOTYPE             9012500D
*RNF7031 P_SETAPPMSGFILE   PROTOTYPE             9006800D
*RNF7031 P_WAIT            PROTOTYPE            39009100D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    525
         PARSEORREDIRECTRESPONSE...
                           N(1)                   000406D     003131      003151      003329M
                           PROTOTYPE
         PDUMMY            *(16)                 1002100     1002400     1002600     1003000
                                                 1003400     1003700     1004000     1004300
                                                 1004600     1005000     1005300     1005500
                                                 1005700     1010200     1010500     1011000
                                                 1011500     1012000     1013000     1013600
                                                 1014000     1014700     1015200     1015800
                                                 1016200     1017000     1017400     1017800
                                                 1018000     1018400     1019300     1019700
                                                 1020100     1021000     1021700     1021900
                                                 1022200     1023200     1023400     1023600
                                                 1023800     1024000     1024200     1024400
                                                 1024600     1024800     1025000     1025200
                                                 1025400     1025600     1025800     1026100
                                                 1026300     1026500     1026700     1026900
                                                10000700    10001900    11000700    12000700
                                                12008300    13000700    14000700    15000700
                                                17000600    22000700    23000700    24000600
                                                25000600    21001000    21001500    21002100
                                                26013700    26019200    26019800    40000700
                                                44000500    44000700    44008500    46000500
                                                48000500    48000700    51000600    54000600
                                                54000800    54001100    61000500    61000800
                                                63000800    63000900    63001000    63001100
                                                63001200    63001300    63001400    63001500
                                                63001600    63004300    63022500    63030800
                                                63031300    63032400    63033700    63038000
                                                63041700    63045300    63045800    63052700
                                                63052800    63052900    63053000    63055900
                                                63057500    63089800    63092500    62000700
                                                62000900    64013400    64013600    64014800
                                                64015400    64016300    64017000    64017700
                                                64018500    64019100    64019400    64019700
                                                64020100    64020300    64020700    64021100
                                                64021500    64021900    64022300    64022500
                                                64022800    64023200    64040700    64041100
                                                64041500    64041900    64042300    64042700
                                                64043100    64043700    64044100    64044900
                                                64045600    64046100    64046700    64047200
                                                64051600    64052100    64052800    64053900
                                                64054400    64055000    64056200    64056800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    526
                                                64057500    64058300    64058800    64059700
                                                64060600    64062400    64063500    64065000
                                                64065900    64066600    64067200    64068600
                                                64069400    69000500    69000800    67000800
                                                72001400    72001700    72002000    72002400
                                                72002700    72003300    72003500    72003700
                                                72003900    72004100    72004300    72004500
                                                72004700    72005000    72005200    72005400
                                                72005600    72005800    77003100    77003600
                                                77004100    91000700    91001200    91002400
                                                93000800    93001100    93001400    93001700
                                                93002000    93002300    93002600    93002900
                                                93003200    93003500    93003800    93004100
                                                93004400    93004700    93005000    93005300
                                                93005600    93005900   102000500   102000900
         PREFIX_CURRENT_ITEM...
                           CONST                64103200D
         PREFIX_NEW_ITEM   CONST                64103400D
*RNF7031 PUTENV            I(10,0)              63087700D
                           PROTOTYPE
*RNF7031 QLEACTBNDPGM      I(10,0)              26012900D
                           PROTOTYPE
*RNF7031 QLEGETEXP         *(16)                26014800D
                           PROTOTYPE
*RNF7031 QLG_ATTRARRAY_T   DS(260)              63040900    63045200D
                           BASED(PDUMMY)
*RNF7031   ATTR(64)        I(10,0)              63045500D
*RNF7031   NUME            I(10,0)              63045400D
         QLG_CHAR_DOUBLE   CONST                63044500D
         QLG_CHAR_SINGLE   CONST                63043700D
*RNF7031 QLG_NLS_T         DS(12)               63057000    63057500D
                           BASED(PDUMMY)
*RNF7031   CCSID           I(10,0)              63057600D
*RNF7031   COUNTRY_ID      A(2)                 63057700D
*RNF7031   LANGUAGE_ID     A(3)                 63057800D
*RNF7031   NLS_RESERVED    A(3)                 63057900D
         QLG_PATH_JOB_CCSID...
                           CONST                63042900D
         QLG_PATH_JOB_COUNTRYID...
                           CONST                63043100D
         QLG_PATH_JOB_LANGUAGEID...
                           CONST                63043300D
*RNF7031 QLG_PATH_NAME_T   DS(288)              63040800    63041600D   63050600    63051900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    527
                           BASED(PDUMMY)
*RNF7031   CCSID           I(10,0)              63041800D
*RNF7031   COUNTRY_ID      A(2)                 63041900D
*RNF7031   LANGUAGE_ID     A(3)                 63042000D
*RNF7031   PATH_LENGTH     I(10,0)              63042300D
*RNF7031   PATH_NAME       A(256)               63042700D
*RNF7031   PATH_NAME_DELIMITER...
                           A(2)                 63042400D
*RNF7031   PATH_TYPE       U(10,0)              63042200D
*RNF7031   RESERVED        A(3)                 63042100D
*RNF7031   RESERVED2       A(10)                63042600D
         QLG_PTR_DOUBLE    CONST                63044900D
         QLG_PTR_SINGLE    CONST                63044100D
*RNF7031 QLG_RTNATTR_T     DS(16)               63045700D
                           BASED(PDUMMY)
*RNF7031   ID              I(10,0)              63046000D
*RNF7031   OFSNEXTATTR     I(10,0)              63045900D
*RNF7031   RESERVED        A(4)                 63046200D
*RNF7031   SIZE            I(10,0)              63046100D
*RNF7031 QLGCHDIR          I(10,0)              63051700D
                           PROTOTYPE
*RNF7031 QLGGETCWD         *(16)                63050400D
                           PROTOTYPE
*RNF7031 QLICVTTP          PROTOTYPE            26022400D
*RNF7031 QOBJ_T            DS(20)               22000700D   21001300    21006700    21007400
                           BASED(PDUMMY)        29030400
*RNF7031   LIB             A(10)                22000900D
*RNF7031   NAME            A(10)                22000800D
*RNF7031 QPROC_T           DS(288)              21001000D   93005900
                           BASED(PDUMMY)
*RNF7031   MODULE          A(10)                21001200D
*RNF7031   NAME            A(256)               21001100D
                           VARYING(2)
*RNF7031   QPGM            DS(20)               21001300D
         QP0L_ATTR_ACCESS_TIME...
                           CONST                63047400D
         QP0L_ATTR_ALLOC_SIZE...
                           CONST                63046800D
         QP0L_ATTR_CHANGE_TIME...
                           CONST                63047600D
         QP0L_ATTR_CHECKED_OUT...
                           CONST                63048200D
         QP0L_ATTR_CREATE_TIME...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    528
                           CONST                63047200D
         QP0L_ATTR_DATA_SIZE...
                           CONST                63046600D
         QP0L_ATTR_EXTENDED_ATTR_SIZE...
                           CONST                63047000D
         QP0L_ATTR_LOCAL_REMOTE...
                           CONST                63048400D
         QP0L_ATTR_MODIFY_TIME...
                           CONST                63047800D
         QP0L_ATTR_OBJTYPE CONST                63046400D
         QP0L_ATTR_STG_FREE...
                           CONST                63048000D
         QP0L_CHECKED_OUT  CONST                63049400D
         QP0L_DONOT_FOLLOW_SYMLNK...
                           CONST                63048700D
         QP0L_FOLLOW_SYMLNK...
                           CONST                63048900D
         QP0L_LOCAL_OBJ    CONST                63049700D
         QP0L_NOT_CHECKED_OUT...
                           CONST                63049200D
         QP0L_REMOTE_OBJ   CONST                63049900D
*RNF7031 QP0LGETATTR       I(10,0)              63040600D
                           PROTOTYPE
*RNF7031 QP0LRENAMEKEEP    I(10,0)              63068100D
                           PROTOTYPE
*RNF7031 QP0LRENAMEUNLINK  I(10,0)              63068700D
                           PROTOTYPE
*RNF7031 QP0ZDLTENV        I(10,0)              63088200D
                           PROTOTYPE
*RNF7031 QP0ZINITENV       I(10,0)              63088700D
                           PROTOTYPE
*RNF7031 QSORT             *(16)                63028700D
                           PROTOTYPE
*RNF7031 QTQCODE_T         DS(36)               63033300    63033400    63033600D
                           BASED(PDUMMY)
*RNF7031   CCSID           I(10,0)              63033800D
*RNF7031   CONVERSIONA     I(10,0)              63033900D
*RNF7031   ERROPTMXDDTA    I(10,0)              63034300D
*RNF7031   INPLENOPT       I(10,0)              63034200D
*RNF7031   RESERVED        A(12)                63034400D
*RNF7031   SHIFTSTATEA     I(10,0)              63034100D
*RNF7031   SUBSTITUTIONA   I(10,0)              63034000D
*RNF7031 QTQICONV_OPEN     DS(52)               63033000D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    529
                           PROTOTYPE
*RNF7031 RAND              I(10,0)              63026100D
                           PROTOTYPE
         RAND_MAX          CONST                63026300D
         RC_ERROR          CONST                63085600D
         RC_OK             CONST                63085500D
*RNF7031 RCVM0200_T        DS(4272)             11000700D    9010900     9019100     9021800
                           BASED(PDUMMY)        82005900      000657
*RNF7031   ALROPT          A(9)                 11005500D
*RNF7031   BYTAVL          I(10,0)              11001100D
*RNF7031   BYTRET          I(10,0)              11000900D
*RNF7031   CCSIDMH         I(10,0)              11005700D
*RNF7031   CCSIDRD         I(10,0)              11005900D
*RNF7031   CSTIDDT         I(10,0)              11005300D
*RNF7031   CSTIDTX         I(10,0)              11005100D
*RNF7031   LNMGA           I(10,0)              11006700D
*RNF7031   LNMGHA          I(10,0)              11007100D
*RNF7031   LNMGHR          I(10,0)              11006900D
*RNF7031   LNMGR           I(10,0)              11006500D
*RNF7031   LNRPLDTA        I(10,0)              11006300D
*RNF7031   LNRPLDTR        I(10,0)              11006100D
*RNF7031   MSGF            A(10)                11002100D
*RNF7031   MSGID           A(7)                 11001500D
*RNF7031   MSGKEY          A(4)                 11001900D
*RNF7031   MSGLS           A(10)                11002300D
*RNF7031   MSGLU           A(10)                11002500D
*RNF7031   MSGSEV          I(10,0)              11001300D
*RNF7031   MSGTYPE         A(2)                 11001700D
*RNF7031   RCVINB          A(4)                 11004300D
*RNF7031   RCVPGM          A(10)                11004100D
*RNF7031   RCVTYP          A(1)                 11004700D
*RNF7031   RESERVED_01     A(1)                 11004900D
*RNF7031   SNDDAT          A(7)                 11003700D
*RNF7031   SNDINB          A(4)                 11003500D
*RNF7031   SNDJOB          A(10)                11002700D
*RNF7031   SNDNBR          A(6)                 11003100D
*RNF7031   SNDPGM          A(12)                11003300D
*RNF7031   SNDTIM          A(6)                 11003900D
*RNF7031   SNDTYP          A(1)                 11004500D
*RNF7031   SNDUSR          A(10)                11002900D
*RNF7031   VALUE           A(4096)              11007300D
*RNF7031 RCVM0300_T        DS(112)              12000700D
                           BASED(PDUMMY)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    530
*RNF7031   ALERTOPT        A(9)                 12002700D
*RNF7031   BYTAVL          I(10,0)              12001100D
*RNF7031   BYTRET          I(10,0)              12000900D
*RNF7031   CCSIDCONVSTATMSG...
                           I(10,0)              12002900D
*RNF7031   CCSIDCONVSTATMSGDATA...
                           I(10,0)              12003200D
*RNF7031   CCSIDMSGHLP     I(10,0)              12003800D
*RNF7031   CCSIDRPLDATA    I(10,0)              12003500D
*RNF7031   LENMSGA         I(10,0)              12005000D
*RNF7031   LENMSGHLPA      I(10,0)              12005600D
*RNF7031   LENMSGHLPR      I(10,0)              12005300D
*RNF7031   LENMSGR         I(10,0)              12004700D
*RNF7031   LENRPLDATAA     I(10,0)              12004400D
*RNF7031   LENRPLDATAR     I(10,0)              12004100D
*RNF7031   LENSNDINFA      I(10,0)              12006200D
*RNF7031   LENSNDINFR      I(10,0)              12005900D
*RNF7031   MSGF            A(10)                12002100D
*RNF7031   MSGID           A(7)                 12001500D
*RNF7031   MSGKEY          A(4)                 12001900D
*RNF7031   MSGLS           A(10)                12002300D
*RNF7031   MSGLU           A(10)                12002500D
*RNF7031   MSGSEV          I(10,0)              12001300D
*RNF7031   MSGTYPE         A(2)                 12001700D
*RNF7031 READ              I(10,0)              63064400D
                           PROTOTYPE
*RNF7031 READDIR           *(16)                63055500D
                           PROTOTYPE
*RNF7031 REALLOC           *(16)                63024800D
                           PROTOTYPE
         REOPENINPUTSTREAM I(10,0)                000185D     000871      000891      002991
                           PROTOTYPE
*RNF7031 REWINDDIR         PROTOTYPE            63058200D
*RNF7031 RMDIR             I(10,0)              63054500D
                           PROTOTYPE
*RNF7031 RSLVSP            *(16) PROCPTR        26021600D
                           PROTOTYPE
*RNF7031 RTVM0100_T        DS(2072)             13000700D
                           BASED(PDUMMY)
*RNF7031   BYTAVL          B(9,0)               13001100D
*RNF7031   BYTRET          B(9,0)               13000900D
*RNF7031   DATA            A(2048)              13002100D
*RNF7031   LENHLPAVL       B(9,0)               13001900D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    531
*RNF7031   LENHLPRET       B(9,0)               13001700D
*RNF7031   LENMSGAVL       B(9,0)               13001500D
*RNF7031   LENMSGRET       B(9,0)               13001300D
*RNF7031 RTVM0300_T        DS(4200)             14000700D
                           BASED(PDUMMY)
*RNF7031   ALTIDX          I(10,0)              14001500D
*RNF7031   ALTOPT          A(9)                 14001700D
*RNF7031   BYTAVL          I(10,0)              14001100D
*RNF7031   BYTRET          I(10,0)              14000900D
*RNF7031   CCSIDTXT        I(10,0)              14003100D
*RNF7031   CSINDDTA        I(10,0)              14002900D
*RNF7031   CSINDTXT        I(10,0)              14002700D
*RNF7031   DATA            A(4096)              14005900D
*RNF7031   LENDFTRPYA      I(10,0)              14003700D
*RNF7031   LENDFTRPYR      I(10,0)              14003500D
*RNF7031   LENMSGA         I(10,0)              14004300D
*RNF7031   LENMSGHLPA      I(10,0)              14004900D
*RNF7031   LENMSGHLPR      I(10,0)              14004700D
*RNF7031   LENMSGR         I(10,0)              14004100D
*RNF7031   LENVARFMTA      I(10,0)              14005500D
*RNF7031   LENVARFMTE      I(10,0)              14005700D
*RNF7031   LENVARFMTR      I(10,0)              14005300D
*RNF7031   LOGIND          A(1)                 14001900D
*RNF7031   MSGID           A(7)                 14002100D
*RNF7031   MSGSEV          I(10,0)              14001300D
*RNF7031   NUMVARFMT       I(10,0)              14002500D
*RNF7031   OFSDFTR         I(10,0)              14003300D
*RNF7031   OFSMSG          I(10,0)              14003900D
*RNF7031   OFSMSGHLP       I(10,0)              14004500D
*RNF7031   OFSVARFMT       I(10,0)              14005100D
*RNF7031   RESERVED_01     A(3)                 14002300D
*RNF7031 RTVM0400_T        DS(4360)             15000700D
                           BASED(PDUMMY)
*RNF7031   ALTIDX          I(10,0)              15001500D
*RNF7031   ALTOPT          A(9)                 15001700D
*RNF7031   BYTAVL          I(10,0)              15001100D
*RNF7031   BYTRET          I(10,0)              15000900D
*RNF7031   CCSIDTXT        I(10,0)              15003100D
*RNF7031   CRTDATE         A(7)                 15010500D
*RNF7031   CRTLVLNBR       I(10,0)              15010900D
*RNF7031   CSINDDTA        I(10,0)              15002900D
*RNF7031   CSINDTXT        I(10,0)              15002700D
*RNF7031   DATA            A(4096)              15013100D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    532
*RNF7031   DFTPGMLIB       A(10)                15012900D
*RNF7031   DFTPGMNAME      A(10)                15012700D
*RNF7031   LENDFTRPYA      I(10,0)              15003700D
*RNF7031   LENDFTRPYR      I(10,0)              15003500D
*RNF7031   LENDMPLISTEA    I(10,0)              15012500D
*RNF7031   LENDMPLISTER    I(10,0)              15012300D
*RNF7031   LENLOWRPYEA     I(10,0)              15009100D
*RNF7031   LENLOWRPYER     I(10,0)              15008900D
*RNF7031   LENMSGA         I(10,0)              15004300D
*RNF7031   LENMSGHLPA      I(10,0)              15004900D
*RNF7031   LENMSGHLPR      I(10,0)              15004700D
*RNF7031   LENMSGR         I(10,0)              15004100D
*RNF7031   LENRELTESTEA    I(10,0)              15010300D
*RNF7031   LENRELTESTER    I(10,0)              15010100D
*RNF7031   LENRPYE         I(10,0)              15007500D
*RNF7031   LENRPYEA        I(10,0)              15007300D
*RNF7031   LENRPYER        I(10,0)              15007100D
*RNF7031   LENSPCRPYE      I(10,0)              15008500D
*RNF7031   LENSPCRPYEA     I(10,0)              15008300D
*RNF7031   LENSPCRPYER     I(10,0)              15008100D
*RNF7031   LENVARFMTA      I(10,0)              15005500D
*RNF7031   LENVARFMTE      I(10,0)              15005700D
*RNF7031   LENVARFMTR      I(10,0)              15005300D
*RNF7031   LOGIND          A(1)                 15001900D
*RNF7031   MAXRPYDECPOS    I(10,0)              15006500D
*RNF7031   MAXRPYLEN       I(10,0)              15006300D
*RNF7031   MODDATE         A(7)                 15011100D
*RNF7031   MODLVLNBR       I(10,0)              15011500D
*RNF7031   MSGID           A(7)                 15002100D
*RNF7031   MSGSEV          I(10,0)              15001300D
*RNF7031   NUMDMPLISTER    I(10,0)              15012100D
*RNF7031   NUMRPYER        I(10,0)              15006900D
*RNF7031   NUMSPCRPYER     I(10,0)              15007900D
*RNF7031   NUMVARFMT       I(10,0)              15002500D
*RNF7031   OFSDFTR         I(10,0)              15003300D
*RNF7031   OFSDMPLISTE     I(10,0)              15011900D
*RNF7031   OFSLOWRPYE      I(10,0)              15008700D
*RNF7031   OFSMSG          I(10,0)              15003900D
*RNF7031   OFSMSGHLP       I(10,0)              15004500D
*RNF7031   OFSRELTESTE     I(10,0)              15009900D
*RNF7031   OFSRPYE         I(10,0)              15006700D
*RNF7031   OFSSPCRPYE      I(10,0)              15007700D
*RNF7031   OFSUPRPYE       I(10,0)              15009300D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    533
*RNF7031   OFSUPRPYEA      I(10,0)              15009700D
*RNF7031   OFSUPRPYER      I(10,0)              15009500D
*RNF7031   OFSVARFMT       I(10,0)              15005100D
*RNF7031   RESERVED_01     A(3)                 15002300D
*RNF7031   RESERVED_02     A(2)                 15006100D
*RNF7031   RESERVED_03     A(1)                 15010700D
*RNF7031   RESERVED_04     A(1)                 15011300D
*RNF7031   RPYTYPE         A(10)                15005900D
*RNF7031   STOREDCCSID     I(10,0)              15011700D
         S_IRGRP           CONST                63060600D
         S_IROTH           CONST                63061100D
         S_IRUSR           CONST                63060100D
         S_IRWXG           CONST                63060900D
         S_IRWXO           CONST                63061400D
         S_IRWXU           CONST                63060400D
         S_ISGID           CONST                63061700D
         S_ISUID           CONST                63061600D
         S_ISVTX           CONST                63061800D
         S_IWGRP           CONST                63060700D
         S_IWOTH           CONST                63061200D
         S_IWUSR           CONST                63060200D
         S_IXGRP           CONST                63060800D
         S_IXOTH           CONST                63061300D
         S_IXUSR           CONST                63060300D
*RNF7031 SCHEMA_END        PROTOTYPE            96120800D
*RNF7031 SCHEMA_INITIALIZE PROTOTYPE            96117300D
*RNF7031 SCHEMA_INITIALIZEV6...
                           PROTOTYPE            96118200D
*RNF7031 SCHEMA_START      PROTOTYPE            96119300D
         SEEK_CUR          CONST                63067200D
         SEEK_END          CONST                63067300D
         SEEK_SET          CONST                63067100D
*RNF7031 SHA1_T            DS(42)               28004800D   28011100
*RNF7031   LENGTH          U(5,0)               28004900D
*RNF7031   VALUE           A(40)                28005000D
*RNF7031 SHORT_T           I(5,0)               63000900D
                           BASED(PDUMMY)
*RNF7031 SIZE_T            U(10,0)              63009200    63009800    63028900    63029000
                           BASED(PDUMMY)        63029700    63029800    63050700    63051300
                                                63052800D   63064800    63065500    62001800
                                                62002800    62005200    62006200
*RNF7031 SNDINF_T          DS(700)              12008300D    9021400
                           BASED(PDUMMY)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    534
*RNF7031   DATE            A(7)                 12009400D
*RNF7031   JOB             A(10)                12008500D
*RNF7031   JOBNBR          A(6)                 12009100D
*RNF7031   LENRCVPRCLNAME  I(10,0)              12016800D
*RNF7031   LENSNDPGMLNAME  I(10,0)              12015600D
*RNF7031   LENSNDPRCLNAME  I(10,0)              12016200D
*RNF7031   OFSRCVPRCLNAME  I(10,0)              12016500D
*RNF7031   OFSSNDPGMLNAME  I(10,0)              12015300D
*RNF7031   OFSSNDPRCLNAME  I(10,0)              12015900D
*RNF7031   RCVMODULE       A(10)                12013100D
*RNF7031   RCVPGM          A(10)                12012800D
*RNF7031   RCVPGMNUMSTMTNBRS...
                           I(10,0)              12014100D
*RNF7031   RCVPGMSTMTNBR(3)...
                           A(10)                12014700D
           RCVPGMSTMTNBRS  A(30)                12014500D   12014800
*RNF7031   RCVPROC         A(256)               12013400D
*RNF7031   RCVTYPE         A(1)                 12010300D
*RNF7031   RESERVED_01     A(1)                 12011500D
*RNF7031   RESERVED_02     A(10)                12013700D
*RNF7031   RESERVED_03     A(2)                 12015000D
*RNF7031   SNDMODULE       A(10)                12010900D
*RNF7031   SNDPGM          A(12)                12010600D
*RNF7031   SNDPGMNUMSTMTNBRS...
                           A(4)                 12011900D
*RNF7031   SNDPGMSTMTNBR(3)...
                           A(10)                12012500D
           SNDPGMSTMTNBRS  A(30)                12012300D   12012600
*RNF7031   SNDPROC         A(256)               12011200D
*RNF7031   SNDTYPE         A(1)                 12010000D
*RNF7031   TIME            A(6)                 12009700D
*RNF7031   USER            A(10)                12008800D
         SOAPMESSAGE_ENVELOPE...
                           PROTOTYPE              000414D     003432
         SOAPMESSAGE_FAULTDETAILEND...
                           PROTOTYPE              000467D     003605
         SOAPMESSAGE_FAULTDETAILSTART...
                           PROTOTYPE              000454D     003575
         SOAPMESSAGE_FAULTEND...
                           PROTOTYPE              000440D     003540
         SOAPMESSAGE_FAULTSTART...
                           PROTOTYPE              000427D     003502
         SOAPMESSAGE_UNEXPECTEDELEMENTEND...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    535
                           PROTOTYPE              000495D     003678
         SOAPMESSAGE_UNEXPECTEDELEMENTSTART...
                           PROTOTYPE              000481D     003638
*RNF7031 SRAND             PROTOTYPE            63025700D
*RNF7031 SSIZE_T           I(10,0)              63052900D   63064500    63065200    62002200
                           BASED(PDUMMY)        62005600
*RNF7031 ST_STAT_T         DS(128)              63037200    63038000D
                           BASED(PDUMMY)
*RNF7031   ALLOCSIZE       U(10,0)              63039300D
*RNF7031   ATIME           I(10,0)              63038800D
*RNF7031   BLKSIZE         U(10,0)              63039200D
*RNF7031   CCSID           U(5,0)               63039700D
*RNF7031   CODEPAGE        U(5,0)               63039600D
*RNF7031   CTIME           I(10,0)              63039000D
*RNF7031   DEV             U(10,0)              63039100D
*RNF7031   DEV64           U(20,0)              63040100D
*RNF7031   GID             U(10,0)              63038600D
*RNF7031   INO             U(10,0)              63038200D
*RNF7031   INO_GEN_ID      U(10,0)              63040300D
*RNF7031   MODE            U(10,0)              63038100D
*RNF7031   MTIME           I(10,0)              63038900D
*RNF7031   NLINK           U(5,0)               63038300D
*RNF7031   NLINK32         U(10,0)              63039900D
*RNF7031   OBJTYPE         A(11)                63039400D
*RNF7031   RDEV            U(10,0)              63039800D
*RNF7031   RDEV64          U(20,0)              63040000D
*RNF7031   RESERVED1       A(36)                63040200D
*RNF7031   RESERVED2       A(2)                 63038400D
*RNF7031   RESERVED3       A(1)                 63039500D
*RNF7031   SIZE            I(10,0)              63038700D
*RNF7031   UID             U(10,0)              63038500D
*RNF7031 STAT              I(10,0)              63036300D
                           PROTOTYPE
         STATICARRAY_CHECKINDEX...
                           PROTOTYPE            84000800D     001640M     002001M     002298M
                                                  002366M     002525M     002845M
*RNF7031 STDERR            *(16)                63002200D
*RNF7031 STDIN             *(16)                63002000D
*RNF7031 STDOUT            *(16)                63002100D
*RNF7031 STRCASECMP        I(10,0)              63012000D
                           PROTOTYPE
*RNF7031 STRCMP            I(10,0)              63011000D
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    536
*RNF7031 STREAM_ADD        I(10,0)              69003300D
                           PROTOTYPE
*RNF7031 STREAM_CLOSE      PROTOTYPE            69008500D
*RNF7031 STREAM_GET        *(16)                69004100D
                           PROTOTYPE
*RNF7031 STREAM_ISOPEN     N(1)                 69005700D
                           PROTOTYPE
*RNF7031 STREAM_READ       I(10,0)              69006500D
                           PROTOTYPE
*RNF7031 STREAM_REMOVE     PROTOTYPE            69004900D
*RNF7031 STREAM_WRITE      I(10,0)              69007500D
                           PROTOTYPE
*RNF7031 STRERROR          *(16)                63070400D
                           PROTOTYPE
*RNF7031 STRFTIME          I(10,0)              63003600D
                           PROTOTYPE
*RNF7031 STRLEN            U(10,0)              63027000D
                           PROTOTYPE
*RNF7031 STRTOK            *(16)                63006600D
                           PROTOTYPE
*RNF7031 SYSTEM            I(10,0)              63002500D
                           PROTOTYPE
*RNF7031 TESTPTR           I(10,0)              26016000D
                           PROTOTYPE
*RNF7031 THIS              A(256)               77027200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 TIME              I(10,0)              63003100D
                           PROTOTYPE
*RNF7031 TIME_T            I(10,0)              63053000D
                           BASED(PDUMMY)
         TIMIANORDERSPORT_ATTACHMENTS_ADDBUFFER...
                           A(128)                5000614D     001320      001406
                           VARYING(2)
                           PROTOTYPE
         TIMIANORDERSPORT_ATTACHMENTS_ADDFILE...
                           A(128)                5000595D     001233
                           VARYING(2)
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_ATTACHMENTS_GET...
                           A(254)                5000491D
                           VARYING(2)
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    537
*RNF7031 TIMIANORDERSPORT_ATTACHMENTS_GETATPOS...
                           DS(512)               5000504D
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_ATTACHMENTS_GETFOLDER...
                           A(1024)               5000545D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_ATTACHMENTS_GETNUME...
                           I(10,0)               5000516D
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_ATTACHMENTS_PUT...
                           PROTOTYPE             5000477D
         TIMIANORDERSPORT_ATTACHMENTS_REMOVEALL...
                           PROTOTYPE             5000526D     000702M
*RNF7031 TIMIANORDERSPORT_ATTACHMENTS_SETFOLDER...
                           PROTOTYPE             5000536D
         TIMIANORDERSPORT_ENDPOINT_GET...
                           A(32767)              5000173D     000843
                           VARYING(2)
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_ENDPOINT_GETHOST...
                           A(32767)              5000190D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_ENDPOINT_GETPORT...
                           I(10,0)               5000207D
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_ENDPOINT_SET...
                           PROTOTYPE             5000181D
*RNF7031 TIMIANORDERSPORT_ENDPOINT_SETHOST...
                           PROTOTYPE             5000198D
*RNF7031 TIMIANORDERSPORT_ENDPOINT_SETPORT...
                           PROTOTYPE             5000215D
         TIMIANORDERSPORT_GETORDERS...
                           DS(13534980)           000078D     000642
                           PROTOTYPE
         TIMIANORDERSPORT_GETORDERS_ATTACHMENTS_ADDBUFFER...
                           A(128)                 000110D     001277
                           VARYING(2)
                           PROTOTYPE
         TIMIANORDERSPORT_GETORDERS_ATTACHMENTS_ADDFILE...
                           A(128)                 000089D     001187
                           VARYING(2)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    538
                           PROTOTYPE
         TIMIANORDERSPORT_GETORDERS_ATTACHMENTS_ADDSTRING...
                           A(128)                 000131D     001364
                           VARYING(2)
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_HTTPERROR_GETCODE...
                           I(10,0)               5000351D
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_HTTPERROR_GETTEXT...
                           A(128)                5000359D
                           VARYING(2)
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_AUTHENTICATEPREEMPTIVELY...
                           I(10,0)               5000435D     000847M
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_CLEARERRORS...
                           PROTOTYPE             5000325D     000784M
*RNF7031 TIMIANORDERSPORT_PORT_GETHTTPDEBUG...
                           DS(503)               5000262D
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_GETHTTPPROXY...
                           DS(260)               5000243D     000706
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_GETNAME...
                           A(512)                5000461D     003765
                           VARYING(2)
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_GETPOSTCCSID...
                           I(10,0)               5000279D     003803
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_GETTIMEOUT...
                           I(10,0)               5000298D     003823
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_GETUSERAGENT...
                           A(256)                5000317D     003844
                           VARYING(2)
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_GETUUID...
                           A(32)                 5000469D     003746
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_HASLOGINCALLBACK...
                           N(1)                  5000409D     000883
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    539
         TIMIANORDERSPORT_PORT_INITIALIZE...
                           PROTOTYPE             5000224D     000686M
         TIMIANORDERSPORT_PORT_ISAUTHENTICATEPREEMPTIVELY...
                           N(1)                  5000427D     000846
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_PORT_ISERROR...
                           N(1)                  5000343D
                           PROTOTYPE
         TIMIANORDERSPORT_PORT_LOGIN...
                           I(10,0)               5000451D     003041
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_PORT_REGISTERLOGINCALLBACK...
                           PROTOTYPE             5000400D
         TIMIANORDERSPORT_PORT_RESETPREEMPTIVEAUTHENTICATION...
                           PROTOTYPE             5000443D     000992M
         TIMIANORDERSPORT_PORT_SETERRORS...
                           PROTOTYPE             5000334D     000995M
*RNF7031 TIMIANORDERSPORT_PORT_SETHTTPDEBUG...
                           PROTOTYPE             5000251D
*RNF7031 TIMIANORDERSPORT_PORT_SETHTTPPROXY...
                           PROTOTYPE             5000233D
*RNF7031 TIMIANORDERSPORT_PORT_SETPOSTCCSID...
                           PROTOTYPE             5000270D
*RNF7031 TIMIANORDERSPORT_PORT_SETPREEMPTIVEAUTHENTICATION...
                           PROTOTYPE             5000417D
*RNF7031 TIMIANORDERSPORT_PORT_SETTIMEOUT...
                           PROTOTYPE             5000288D
*RNF7031 TIMIANORDERSPORT_PORT_SETUSERAGENT...
                           PROTOTYPE             5000307D
         TIMIANORDERSPORT_REDIRECTRESPONSE_ISACTIVE...
                           N(1)                  5000566D     000956      003160      003885
                           PROTOTYPE
         TIMIANORDERSPORT_REDIRECTRESPONSE_TERMINATE...
                           PROTOTYPE             5000586D     000957M
*RNF7031 TIMIANORDERSPORT_REDIRECTRESPONSE_TOSTMF...
                           PROTOTYPE             5000554D
         TIMIANORDERSPORT_REDIRECTRESPONSE_WRITE...
                           N(1)                  5000575D     003162
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_SOAPERROR_GETCODE...
                           A(256)                5000367D
                           VARYING(2)
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    540
*RNF7031 TIMIANORDERSPORT_SOAPERROR_GETTEXT...
                           A(256)                5000375D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_XMLERROR_GETCODE...
                           I(10,0)               5000383D
                           PROTOTYPE
*RNF7031 TIMIANORDERSPORT_XMLERROR_GETTEXT...
                           A(256)                5000391D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 TM_T              DS(36)               63004100    63004300D   63006300
                           BASED(PDUMMY)
*RNF7031   TM_HOUR         I(10,0)              63004600D
*RNF7031   TM_ISDST        I(10,0)              63005200D
*RNF7031   TM_MDAY         I(10,0)              63004700D
*RNF7031   TM_MIN          I(10,0)              63004500D
*RNF7031   TM_MON          I(10,0)              63004800D
*RNF7031   TM_SEC          I(10,0)              63004400D
*RNF7031   TM_WDAY         I(10,0)              63005000D
*RNF7031   TM_YDAY         I(10,0)              63005100D
*RNF7031   TM_YEAR         I(10,0)              63004900D
         TMP_MAX           CONST                63028400D
*RNF7031 TMPNAM            *(16)                63027500D
                           PROTOTYPE
*RNF7031 TNS_FROMTIME_T    A(128)                5000149D    5000155
                           VARYING(2)
                           TEMPLATE
*RNF7031 TNS_GETORDERS_T   DS(390)                000081     5000152D     000217      000645
                           TEMPLATE               001021
*RNF7031   FROMTIME        A(128)                5000155D
                           VARYING(2)
*RNF7031   STATE           A(128)                5000156D
                           VARYING(2)
*RNF7031   TOTIME          A(128)                5000157D
                           VARYING(2)
*RNF7031 TNS_GETORDERSRESPONSE_T...
                           DS(13534980)           000079     5000160D     000644      000649
                           TEMPLATE               000676      001431      001489
*RNF7031   ORDERS          DS(13534980)          5000163D
         TNS_GETORDERSRESPONSEEND...
                           PROTOTYPE              000231D     001477
         TNS_GETORDERSRESPONSESTART...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    541
                           PROTOTYPE              000221D     001420
         TNS_GETORDERSSERIALIZER...
                           PROTOTYPE              000212D     000760M     001016
*RNF7031 TNS_STATE_T       A(128)                5000156     5000165D
                           VARYING(2)
                           TEMPLATE
*RNF7031 TNS_TOTIME_T      A(128)                5000157     5000167D
                           VARYING(2)
                           TEMPLATE
         TO_ASCII          CONST                79233700D
         TO_EBCDIC         CONST                79233800D
*RNF7031 TS_FREE           PROTOTYPE            63016700D
*RNF7031 TS_MALLOC         *(16)                63015600D
                           PROTOTYPE
*RNF7031 TS_MALLOC_DEBUG   I(10,0)              63017900D
                           PROTOTYPE
*RNF7031 TS_MALLOC_INFO    I(10,0)              63017200D
                           PROTOTYPE
*RNF7031 TS_REALLOC        *(16)                63016100D
                           PROTOTYPE
*RNF7031 TSTBTS            I(10,0)              63086600D
                           PROTOTYPE
*RNF7031 UINT_T            U(10,0)              63001200D
                           BASED(PDUMMY)
*RNF7031 ULONG_T           U(10,0)              63001400D
                           BASED(PDUMMY)
*RNF7031 UNLINK            I(10,0)              63067600D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_FROMBASE64BUFFERTOSTMF...
                           I(10,0)              96037600D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_FROMHEXBINARYBUFFERTOSTMF...
                           I(10,0)              96041000D
                           PROTOTYPE
         UNMARSHALLER_SETFIELDIDENTIFIER...
                           PROTOTYPE            96001000D     002017M     002026M     002039M
                                                  002052M     002065M     002078M     002091M
                                                  002104M     002117M     002130M     002139M
                                                  002148M     002157M     002380M     002861M
                                                  002870M     002879M     002888M     002901M
                                                  002914M     002927M     002936M     002945M
                                                  002954M     002967M     002976M
*RNF7031 UNMARSHALLER_TOANY...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    542
                           A(65535)             96006000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOANYSIMPLETYPE...
                           A(65535)             96004000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOANYSIMPLETYPEV6...
                           PROTOTYPE            96004800D
*RNF7031 UNMARSHALLER_TOANYTYPE...
                           A(65535)             96002000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOANYTYPEV6...
                           PROTOTYPE            96002800D
*RNF7031 UNMARSHALLER_TOANYURI...
                           A(65535)             96048200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOANYURIV6...
                           PROTOTYPE            96049000D
*RNF7031 UNMARSHALLER_TOANYV6...
                           PROTOTYPE            96006800D
*RNF7031 UNMARSHALLER_TOATTRIBUTEDURI...
                           A(65535)             96050200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOATTRIBUTEDURIV6...
                           PROTOTYPE            96051000D
*RNF7031 UNMARSHALLER_TOBASE64BINARY...
                           A(65535)             96034000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOBASE64BINARYSTREAM...
                           I(10,0)              96036400D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOBASE64BINARYV6...
                           PROTOTYPE            96034900D
*RNF7031 UNMARSHALLER_TOBOOLEAN...
                           N(1)                 96014000D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOBYTE...
                           I(3,0)               96018800D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    543
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TODATE...
                           D(10*ISO-)           96028400D
                           PROTOTYPE
         UNMARSHALLER_TODATETIME...
                           Z(26)                96027600D     002132      002141
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TODECIMAL...
                           S(31,15)             96014800D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TODOUBLE...
                           S(31,15)             96015600D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TODURATION...
                           DS(25)               96052200D
                           PROTOTYPE
         UNMARSHALLER_TOFLOAT...
                           S(31,15)             96016400D     002150      002159      002929
                           PROTOTYPE              002938      002947      002969      002978
*RNF7031 UNMARSHALLER_TOGDAY...
                           I(10,0)              96030000D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOGMONTH...
                           I(10,0)              96030800D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOGMONTHDAY...
                           I(10,0)              96031600D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOGYEAR...
                           I(10,0)              96032400D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOGYEARMONTH...
                           I(10,0)              96033200D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOHEXBINARY...
                           A(32767)             96038700D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOHEXBINARYV6...
                           PROTOTYPE            96039600D
         UNMARSHALLER_TOINT...
                           I(10,0)              96017200D     002019      002863      002872
                           PROTOTYPE              002881
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    544
*RNF7031 UNMARSHALLER_TOINTEGER...
                           I(20,0)              96019600D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOLANGUAGE...
                           A(65535)             96042200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOLANGUAGEV6...
                           PROTOTYPE            96043000D
*RNF7031 UNMARSHALLER_TOLONG...
                           I(20,0)              96020400D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TONEGATIVEINTEGER...
                           I(10,0)              96026000D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TONMTOKEN...
                           A(65535)             96046200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TONMTOKENV6...
                           PROTOTYPE            96047000D
*RNF7031 UNMARSHALLER_TONONNEGATIVEINTEGER...
                           I(10,0)              96024400D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TONONPOSITIVEINTEGER...
                           I(10,0)              96025200D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TONORMALIZEDSTRING...
                           A(65535)             96010000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TONORMALIZEDSTRINGV6...
                           PROTOTYPE            96010800D
*RNF7031 UNMARSHALLER_TOPOSITIVEINTEGER...
                           I(10,0)              96026800D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOQNAME...
                           A(65535)             96012000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOQNAMEV6...
                           PROTOTYPE            96012800D
*RNF7031 UNMARSHALLER_TOSHORT...
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    545
                           I(5,0)               96018000D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOSTRING...
                           A(65535)             96008000D
                           VARYING(2)
                           PROTOTYPE
         UNMARSHALLER_TOSTRINGV6...
                           PROTOTYPE            96008800D     002027M     002040M     002053M
                                                  002066M     002079M     002092M     002105M
                                                  002118M     002381M     002889M     002902M
                                                  002915M     002955M
*RNF7031 UNMARSHALLER_TOTIME...
                           T(8*ISO.)            96029200D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOTOKEN...
                           A(65535)             96044200D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOTOKENV6...
                           PROTOTYPE            96045000D
*RNF7031 UNMARSHALLER_TOUNSIGNEDBYTE...
                           U(3,0)               96022800D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOUNSIGNEDINT...
                           U(10,0)              96021200D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOUNSIGNEDLONG...
                           U(20,0)              96023600D
                           PROTOTYPE
*RNF7031 UNMARSHALLER_TOUNSIGNEDSHORT...
                           U(5,0)               96022000D
                           PROTOTYPE
*RNF7031 URL_GETFILE       A(446)               57010600D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 URL_GETHOST       A(446)               57004900D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 URL_GETMBR        N(1)                 57015300D
                           PROTOTYPE
*RNF7031 URL_GETPATH       A(446)               57008700D
                           VARYING(2)
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    546
*RNF7031 URL_GETPORT       I(10,0)              57006800D
                           PROTOTYPE
*RNF7031 URL_GETPROTOCOL   A(446)               57003000D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 URL_GETQUERY      A(446)               57012500D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 URL_NEW           A(446)               57002100D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 URL_SETFILE       N(1)                 57011500D
                           PROTOTYPE
*RNF7031 URL_SETHOST       N(1)                 57005800D
                           PROTOTYPE
*RNF7031 URL_SETPATH       N(1)                 57009600D
                           PROTOTYPE
*RNF7031 URL_SETPORT       N(1)                 57007700D
                           PROTOTYPE
*RNF7031 URL_SETPROTOCOL   N(1)                 57003900D
                           PROTOTYPE
*RNF7031 URL_SETQUERY      N(1)                 57013400D
                           PROTOTYPE
*RNF7031 URL_T             A(446)               58000500D   57002200    57002600    57003100
                           VARYING(2)           57003500    57004400    57004500    57005000
                                                57005400    57006300    57006400    57007300
                                                57008200    57008800    57009200    57010100
                                                57010200    57010700    57011100    57012000
                                                57012100    57012600    57013000    57013900
                                                57014000    57014900    57015800
*RNF7031 URL_TOSTRING      A(512)               57014400D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 USHORT_T          U(5,0)               63001000D
                           BASED(PDUMMY)
         USR0030           DS(256)               2000006D     003099M     003101      003447M
                                                  003449
*RNF7031 USR0030_SIZE      B(8,0)                2000008D
         USR00301          A(256)                2000007D     003100M     003448M
         USR0042           DS(80)                3000006D     003658M     003661      003701M
                                                  003704
*RNF7031 USR0042_SIZE      B(8,0)                3000009D
         USR00421          A(40)                 3000007D     003659M     003702M
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    547
         USR00422          A(40)                 3000008D     003660M     003703M
*RNF7031 USR0048           DS(256)               4000006D
*RNF7031 USR0048_SIZE      B(8,0)                4000008D
*RNF7031 USR00481          A(256)                4000007D
*RNF7031 UUID_T            DS(34)               28001200D   28009300
*RNF7031   LENGTH          U(5,0)               28001300D
*RNF7031   VALUE           A(32)                28001400D
*RNF7031 UUID_TEMPLATE_T   DS(32)               63089700D
                           BASED(PDUMMY)
*RNF7031   BYTAVL          U(10,0)              63090000D
*RNF7031   BYTPRV          U(10,0)              63089900D
*RNF7031   RESERVED        A(8)                 63090100D
*RNF7031   UUID            A(16)                63090200D
         VALUE_ISNIL       N(1)                 96127500D     002016      002025      002038
                           PROTOTYPE              002051      002064      002077      002090
                                                  002103      002116      002129      002138
                                                  002147      002156      002379      002860
                                                  002869      002878      002887      002900
                                                  002913      002926      002935      002944
                                                  002953      002966      002975
*RNF7031 VISUALIZEDTYPE_T  DS(8290)             64068500D
                           BASED(PDUMMY)
*RNF7031   ENTRYTYPE       A(20)                64068700D
                           VARYING(2)
*RNF7031   EXTTYPEINF      A(20)                64069100D
                           VARYING(2)
*RNF7031   LEVEL           I(10,0)              64068800D
*RNF7031   NAME            A(4094)              64068900D
                           VARYING(2)
*RNF7031   RPGTYPE         DS(4146)             64069000D
*RNF7031 WAITTIME          PROTOTYPE            26027900D
         WLI_ALRTBL        CONST                26003000D
         WLI_AUTL          CONST                26003100D
         WLI_BLKSF         CONST                26003200D
         WLI_BNDDIR        CONST                26003300D
         WLI_CFGL          CONST                26003400D
         WLI_CHTFMT        CONST                26003500D
         WLI_CLD           CONST                26003600D
         WLI_CLS           CONST                26003700D
         WLI_CMD           CONST                26003800D
         WLI_CNNL          CONST                26003900D
         WLI_COSD          CONST                26004000D
         WLI_CRG           CONST                26004100D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    548
         WLI_CRQD          CONST                26004200D
         WLI_CSI           CONST                26004300D
         WLI_CSPMAP        CONST                26004400D
         WLI_CSPTBL        CONST                26004500D
         WLI_CTLD          CONST                26004600D
         WLI_DDIR          CONST                26004700D
         WLI_DEVD          CONST                26004800D
         WLI_DIR           CONST                26004900D
         WLI_DOC           CONST                26005000D
         WLI_DSTMF         CONST                26005100D
         WLI_DTAARA        CONST                26005200D
         WLI_DTADCT        CONST                26005300D
         WLI_DTAQ          CONST                26005400D
         WLI_EDTD          CONST                26005500D
         WLI_EXITRG        CONST                26005600D
         WLI_FCT           CONST                26005700D
         WLI_FILE          CONST                26005800D
         WLI_FLR           CONST                26005900D
         WLI_FNTRSC        CONST                26006000D
         WLI_FNTTBL        CONST                26006100D
         WLI_FORMDF        CONST                26006200D
         WLI_FTR           CONST                26006300D
         WLI_GSS           CONST                26006400D
         WLI_IGCDCT        CONST                26006500D
         WLI_IGCSRT        CONST                26006600D
         WLI_IGCTBL        CONST                26006700D
         WLI_IPXD          CONST                26006800D
         WLI_JOBD          CONST                26006900D
         WLI_JOBQ          CONST                26007000D
         WLI_JOBSCD        CONST                26007100D
         WLI_JRN           CONST                26007200D
         WLI_JRNRCV        CONST                26007300D
         WLI_LIB           CONST                26007400D
         WLI_LIND          CONST                26007500D
         WLI_LOCALE        CONST                26007600D
         WLI_MEDDFN        CONST                26007700D
         WLI_MENU          CONST                26007800D
         WLI_MGTCOL        CONST                26007900D
         WLI_MODD          CONST                26008000D
         WLI_MODULE        CONST                26008100D
         WLI_MSGF          CONST                26008200D
         WLI_MSGQ          CONST                26008300D
         WLI_M36           CONST                26008400D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    549
         WLI_M36CFG        CONST                26008500D
         WLI_NODGRP        CONST                26009000D
         WLI_NODL          CONST                26008600D
         WLI_NTBD          CONST                26008700D
         WLI_NWID          CONST                26008800D
         WLI_NWSD          CONST                26008900D
         WLI_OOPOOL        CONST                26009100D
         WLI_OUTQ          CONST                26009200D
         WLI_OVL           CONST                26009300D
         WLI_PAGDFN        CONST                26009400D
         WLI_PAGSEG        CONST                26009500D
         WLI_PDG           CONST                26009600D
         WLI_PGM           CONST                26009700D
         WLI_PNLGRP        CONST                26009800D
         WLI_PRDAVL        CONST                26009900D
         WLI_PRDDFN        CONST                26010000D
         WLI_PRDLOD        CONST                26010100D
         WLI_PSFCFG        CONST                26010200D
         WLI_QMFORM        CONST                26010300D
         WLI_QMQRY         CONST                26010400D
         WLI_QRYDFN        CONST                26010500D
         WLI_RCT           CONST                26010600D
         WLI_SBSD          CONST                26010800D
         WLI_SCHIDX        CONST                26010900D
         WLI_SOCKET        CONST                26011000D
         WLI_SOMOBJ        CONST                26011100D
         WLI_SPADCT        CONST                26011200D
         WLI_SQLPKG        CONST                26011300D
         WLI_SQLUDT        CONST                26011400D
         WLI_SRVPGM        CONST                26011500D
         WLI_SSND          CONST                26011600D
         WLI_STMF          CONST                26011700D
         WLI_SVRSTG        CONST                26011800D
         WLI_SYMLNK        CONST                26011900D
         WLI_S36           CONST                26010700D
         WLI_TBL           CONST                26012000D
         WLI_USRIDX        CONST                26012200D
         WLI_USRPRF        CONST                26012100D
         WLI_USRQ          CONST                26012300D
         WLI_USRSPC        CONST                26012400D
         WLI_VLDL          CONST                26012500D
         WLI_WSCST         CONST                26012600D
*RNF7031 WORKSTN_INFDS_T   DS(369)             102000800D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    550
                           BASED(PDUMMY)
*RNF7031   AID             A(1)                102001200D
*RNF7031   OPEN            A(1)                102001000D
*RNF7031   STATUS          S(5,0)              102001100D
*RNF7031 WRITE             I(10,0)              63065100D
                           PROTOTYPE
*RNF7031 WSDL_ARRAYNAME_T  A(128)                1002500D
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_ATTACHMENT_T DS(512)               1018300D    5000505
                           BASED(PDUMMY)
*RNF7031   FILENAME        A(254)                1018600D
                           VARYING(2)
*RNF7031   ID              A(254)                1018500D
                           VARYING(2)
*RNF7031 WSDL_ATTACHMENTID_T...
                           A(254)                1016900D    1018500     5000484     5000498
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_ATTRIBUTE_T  DS(6240)             64065800D
                           BASED(PDUMMY)
*RNF7031   FIXED           A(4094)              64066200D
                           VARYING(2)
*RNF7031   QNAME           A(1072)              64066000D
*RNF7031   QTYPE           A(1072)              64066100D
         WSDL_AUTH_BASIC   CONST                 1008600D
         WSDL_AUTH_MD5_DIGEST...
                           CONST                 1008800D
         WSDL_AUTH_NTLM    CONST                 1009000D
         WSDL_AUTH_TYPE_HTTP...
                           CONST                 1009600D
         WSDL_AUTH_TYPE_PROXY...
                           CONST                 1009800D
*RNF7031 WSDL_BINDING_T    DS(3201)             64058700D
                           BASED(PDUMMY)
*RNF7031   BOUNDOPERATIONLIST...
                           DS(1041)             64059200D
*RNF7031   QNAME           DS(1072)             64058900D
*RNF7031   QTYPE           DS(1072)             64059000D
*RNF7031   STYLE           A(14)                64059100D
                           VARYING(2)
*RNF7031 WSDL_BINDINGS_T   DS(1041)             64058200D
                           BASED(PDUMMY)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    551
*RNF7031   BINDINGSLIST    DS(1041)             64058400D
*RNF7031 WSDL_BOUNDOPERATION_T...
                           DS(3968)             64059600D
                           BASED(PDUMMY)
*RNF7031   INPUT           DS(1184)             64060100D
*RNF7031   OUTPUT          DS(1184)             64060200D
*RNF7031   QNAME           DS(1072)             64059800D
*RNF7031   SOAPACTION      A(510)               64059900D
                           VARYING(2)
*RNF7031   STYLE           A(14)                64060000D
                           VARYING(2)
*RNF7031 WSDL_BOUNDOPERATIONIO_T...
                           DS(1184)             64060100    64060200    64060500D
                           BASED(PDUMMY)
*RNF7031   BODY            DS(16)               64061000D
*RNF7031   CLASS           DS(80)               64060700D
*RNF7031   HSOAPHEADERS    *(16)                64060900D
*RNF7031   QNAME           DS(1072)             64060800D
         WSDL_BYTE_T       I(3,0)                1024900D   64027300    64027500    96018900
                           BASED(PDUMMY)        96073500
*RNF7031 WSDL_CLASS_T      DS(80)               64043000D   64044200    64047300    64052200
                           BASED(PDUMMY)        64052900    64060700
*RNF7031   NAME            A(62)                64043200D
                           VARYING(2)
*RNF7031   RESERVED        A(12)                64043400D
*RNF7031   SIZE            I(10,0)              64043300D
*RNF7031 WSDL_CLASSNAME_T  A(62)                64043200    64043600D
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_CMDSERVER_T  DS(146)              64014700D
                           BASED(PDUMMY)
*RNF7031   NUME            I(5,0)               64014900D
*RNF7031   PROXYSERVER     DS(144)              64015000D
*RNF7031 WSDL_CONTENTTRANSFERENCODING_T...
                           A(64)                  000102      000125      000145     1013500D
                           BASED(PDUMMY)         7010200     5000606     5000627      001196
                           VARYING(2)             001288      001374
*RNF7031 WSDL_CONTENTTYPE_T...
                           A(1024)                000099      000122      000142     1012100
                           BASED(PDUMMY)         1017300D   67003500    67006500    67007900
                           VARYING(2)           67009000    67009400    67014300     7005900
                                                 5000603     5000624      000667      001193
                                                  001285      001371
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    552
         WSDL_DECIMAL_T    S(31,15)              1021600D    1021900     1023200    64024200
                           BASED(PDUMMY)        64024400    96014900    96069500
*RNF7031 WSDL_DEFTYPE_T    A(5)                 64042600D   64049300    64053200
                           BASED(PDUMMY)
         WSDL_DIM_T        I(10,0)              64022400D   64023400    64023500    64048700
                           BASED(PDUMMY)
*RNF7031 WSDL_DIMXML_T     A(30)                64022200D
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_DOCUMENTATION_T...
                           A(4094)              64041400D   64055600
                           BASED(PDUMMY)
                           VARYING(2)
         WSDL_DOUBLE_T     S(31,15)              1021800D   64024900    64025100    96015700
                           BASED(PDUMMY)        96070300
*RNF7031 WSDL_DSPEC_T      DS(49249)            64062300D
                           BASED(PDUMMY)
*RNF7031   DECLTYPE        A(20)                64062600D
*RNF7031   ISCOMMENT       N(1)                 64063000D
*RNF7031   KEYWORDS(10)    A(4096)              64062900D
                           VARYING(2)
*RNF7031   NAME            A(4096)              64062500D
                           VARYING(2)
*RNF7031   NUMKWDS         I(10,0)              64062800D
*RNF7031   PRIMITIVE       DS(4146)             64062700D
*RNF7031 WSDL_DURATION_T   DS(25)                1022100D   96052300    96116900
                           BASED(PDUMMY)
*RNF7031   DAYS            I(10,0)               1022600D
*RNF7031   HOURS           I(10,0)               1022700D
*RNF7031   ISNEGATIVE      N(1)                  1022300D
*RNF7031   MINUTES         I(10,0)               1022800D
*RNF7031   MONTHS          I(10,0)               1022500D
*RNF7031   SECONDS         I(10,0)               1022900D
*RNF7031   YEARS           I(10,0)               1022400D
         WSDL_ERROR        CONST                 1007800D
*RNF7031 WSDL_ERROR_T      I(10,0)              64021000D
                           BASED(PDUMMY)
*RNF7031 WSDL_ERRORS_T     DS(1182)              1013900D    5000331     5000340      000613
                           BASED(PDUMMY)
*RNF7031   ERRTYPE         I(10,0)               1014100D
*RNF7031   HTTPERROR       DS(134)               1014200D
*RNF7031   SOAPFAULT       DS(774)               1014300D
*RNF7031   XMLERROR        DS(270)               1014400D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    553
*RNF7031 WSDL_ERRTEXT_T    A(128)                 000085     1002900D
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_EXTRALARGESTRING_T...
                           A(16773100)          64013500D   96132000
                           BASED(PDUMMY)
                           VARYING(4)
*RNF7031 WSDL_FIELDV6_T    DS(36)               64018400D
                           BASED(PDUMMY)
*RNF7031   PDATA           *(16)                64018700D
*RNF7031   PFIELD          *(16)                64018600D
*RNF7031   SIZE            I(10,0)              64018800D
         WSDL_FLOAT_T      S(31,15)              1023100D   64025700    64025900    96016500
                           BASED(PDUMMY)        96071100
*RNF7031 WSDL_FULLELEMENTDATA_T...
                           DS(20)                1011400D   93035100      001492      001585
                           BASED(PDUMMY)          001989      002243      002354      002470
                                                  002833
*RNF7031   PDATA           *(16)                 1011600D
*RNF7031   SIZE            I(10,0)               1011700D
         WSDL_GDAY_T       I(10,0)               1026000D   64036900    64037100    96030100
                           BASED(PDUMMY)        96085000
*RNF7031 WSDL_GENTAG_T     DS(577)              64067200D
                           BASED(PDUMMY)
*RNF7031   ADDQUOTES       N(1)                 64068100D
*RNF7031   COMMAND         A(30)                64067300D
                           VARYING(2)
*RNF7031   CONTCHARS       A(14)                64067900D
                           VARYING(2)
*RNF7031   EXTENSION       A(254)               64068000D
                           VARYING(2)
*RNF7031   LENGTH          I(10,0)              64067500D
*RNF7031   MAXCOLUMN       I(10,0)              64067700D
*RNF7031   RESERVED_1      A(4)                 64067800D
*RNF7031   STARTCOLUMN     I(10,0)              64067600D
*RNF7031   VARIABLE        A(254)               64067400D
                           VARYING(2)
         WSDL_GMONTH_T     I(10,0)               1026200D   64037700    64037900    96030900
                           BASED(PDUMMY)        96085900
         WSDL_GMONTHDAY_T  I(10,0)               1026400D   64038500    64038700    96031700
                           BASED(PDUMMY)        96086800
         WSDL_GYEAR_T      I(10,0)               1026600D   64039300    64039500    96032500
                           BASED(PDUMMY)        96087700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    554
         WSDL_GYEARMONTH_T I(10,0)               1026800D   64040100    64040300    96033300
                           BASED(PDUMMY)        96088600
*RNF7031 WSDL_HARRAY_T     *(16)                 1002400D
                           BASED(PDUMMY)
*RNF7031 WSDL_HDATASOURCE_T...
                           *(16)                67000700D   67001200    67002500    67003300
                           BASED(PDUMMY)        67004300    67005100    67006000    67007500
                                                67008900    67009900    67010700    67011600
                                                67012400    67014200    67017300    67020200
                                                67020700    67021800     7003400     7009000
                                                 7009900      000662
*RNF7031 WSDL_HEADERS_T    DS(2050)              1011900D    1012600      000659
                           BASED(PDUMMY)
*RNF7031   CONTENTTYPE     A(1024)               1012100D
                           VARYING(2)
*RNF7031   MIMEVERSION     A(510)                1012300D
                           VARYING(2)
*RNF7031   SOAPACTION      A(510)                1012200D
                           VARYING(2)
*RNF7031 WSDL_HMSGCTX_T    *(16)                64022800D    7001000     7002100     7003000
                           BASED(PDUMMY)         7003800     7004700     7005500     7006300
                                                 7007100     7007900     7008900     7009800
                                                 7011300     7012100     7012900     7013300
                                                 7014500     5000601     5000620      000190
                                                  000552      000619      000661      002994
                                                  003857
*RNF7031 WSDL_HSTREAM_T    I(10,0)              69000400D   69003400    69004600    69005400
                           BASED(PDUMMY)        69006200    69007000    69008000    69009000
                                                67013300    67013700    67015300    67016400
                                                67016800    67018200    67019300     7014100
                                                 7015400     7016200     7017200    96055200
                                                96057700    96060200    96062700    96065200
                                                96067700    96091300    96099600    96105000
                                                96107700    96110400    96113100    96115800
                                                  000186      000191      000215      000380
                                                  000663      000666      001019      001099
                                                  002993      002995      002998
*RNF7031 WSDL_HTRANSCODER_T...
                           *(16)                 1002000D
                           BASED(PDUMMY)
         WSDL_HTTP_ERROR   CONST                 1006200D     000938
         WSDL_HTTP_ERROR_SOAP...
                           CONST                 1006600D     003520
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    555
         WSDL_HTTP_ERROR_UNEXPECTED...
                           CONST                 1006400D     000925      000926
         WSDL_HTTP_ERROR_UNKNOWN...
                           CONST                 1006800D
*RNF7031 WSDL_HTTP_ERRORNO_T...
                           I(10,0)               1003300D    1014800     5000352
                           BASED(PDUMMY)
*RNF7031 WSDL_HTTP_ERRORTEXT_T...
                           A(128)                1003600D    1014900     5000360
                           BASED(PDUMMY)
                           VARYING(2)
         WSDL_HTTP_SUCCESS CONST                 1006000D     000936
*RNF7031 WSDL_HTTPDEBUG_T  DS(503)               1010900D    5000263
                           BASED(PDUMMY)
*RNF7031   FILENAME        A(500)                1011200D
                           VARYING(2)
*RNF7031   STATUS          N(1)                  1011100D
*RNF7031 WSDL_HTTPERROR_T  DS(134)               1014200     1014600D
                           BASED(PDUMMY)
*RNF7031   NO              I(10,0)               1014800D
*RNF7031   TEXT            A(128)                1014900D
                           VARYING(2)
         WSDL_INT_T        I(10,0)               1023300D   64028100    64028300    96017300
                           BASED(PDUMMY)        96071900
         WSDL_INTEGER_T    I(20,0)               1023500D   64028900    64029100    96019700
                           BASED(PDUMMY)        96074300
*RNF7031 WSDL_LARGESTRING_T...
                           A(1048576)           64013300D   96130700    96131100
                           BASED(PDUMMY)
                           VARYING(4)
*RNF7031 WSDL_LNAME_T      A(510)               64021400D   64065100
                           BASED(PDUMMY)
                           VARYING(2)
         WSDL_LOCAL_TIMEZONE...
                           CONST                 1020400D
         WSDL_LONG_T       I(20,0)               1023700D   64029700    64029900    96020500
                           BASED(PDUMMY)        96075100
*RNF7031 WSDL_MAP_T        DS(1041)             64045700    64046300    64046800    64049800
                           BASED(PDUMMY)        64051700    64052400    64054000    64054600
                                                64056700D   64058400    64059300
*RNF7031   ARECHOICES      N(1)                 64057100D
*RNF7031   CURKEY          A(1022)              64057000D
                           VARYING(2)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    556
*RNF7031   HMAP            *(16)                64056900D
*RNF7031 WSDL_MAPKEY_T     A(1022)              64020000D   64057000
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_MESSAGE_T    DS(2193)             64052000D
                           BASED(PDUMMY)
*RNF7031   CLASS           DS(80)               64052200D
*RNF7031   PARTSLIST       DS(1041)             64052400D
*RNF7031   QNAME           DS(1072)             64052300D
*RNF7031 WSDL_MESSAGES_T   DS(1041)             64051500D
                           BASED(PDUMMY)
*RNF7031   MSGLIST         DS(1041)             64051700D
         WSDL_MIME_BASE64  CONST                 1007300D
         WSDL_MIME_BINARY  CONST                 1007100D     001223      001311      001397
*RNF7031 WSDL_MIMEVERSION_T...
                           A(510)                1012300     1012900D    7005100
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_MULTIREF_T   DS(26869)            91000600D   91009100    91010500    91011500
                           BASED(PDUMMY)
*RNF7031   HEADER          DS(26816)            91000800D
*RNF7031   ITEM            DS(53)               91000900D
*RNF7031 WSDL_MULTIREFHEADER_T...
                           DS(26816)            91000800    91001100D
                           BASED(PDUMMY)
*RNF7031   ARRAYSIZE       I(10,0)              91002100D
*RNF7031   CBEND           *(16) PROCPTR        91001400D
*RNF7031   CBSTART         *(16) PROCPTR        91001300D
*RNF7031   DEPTH           I(10,0)              91001600D
*RNF7031   HREF            A(128)               91002000D
                           VARYING(2)
*RNF7031   NAME            A(1024)              91001700D
                           VARYING(2)
*RNF7031   NAMESPACE       A(1024)              91001800D
                           VARYING(2)
*RNF7031   PATH            A(24576)             91001900D
                           VARYING(2)
*RNF7031   PLIST           *(16)                91001500D
*RNF7031 WSDL_MULTIREFITEM_T...
                           DS(53)               91000900    91002300D
                           BASED(PDUMMY)
*RNF7031   HASDATA         N(1)                 91002900D
*RNF7031   INDEX           I(10,0)              91002500D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    557
*RNF7031   ITEMDATA        *(16)                91002700D
*RNF7031   LENGTH          I(10,0)              91002800D
*RNF7031   USERDATA        *(16)                91002600D
*RNF7031 WSDL_NAME_T       A(4094)              64019400D   64040700    64068900    84001300
                           BASED(PDUMMY)        84001600      000218      001022
                           VARYING(2)
         WSDL_NEGINT_T     I(10,0)               1023900D   64035300    64035500    96026100
                           BASED(PDUMMY)        96080700
         WSDL_NO_TIMEZONE  CONST                 1020600D
         WSDL_NONNEGINT_T  I(10,0)               1024100D   64033700    64033900    96024500
                           BASED(PDUMMY)        96079100
         WSDL_NONPOSINT_T  I(10,0)               1024300D   64034500    64034700    96025300
                           BASED(PDUMMY)        96079900
*RNF7031 WSDL_NSPREFIX_T   A(30)                64020600D   64065200
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_NSVALUE_T    A(510)               64021800D   64065300
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_NUMOPER_T    S(3,0)               64019100D
                           BASED(PDUMMY)
*RNF7031 WSDL_OPERATION_T  DS(13568)            64054900D
                           BASED(PDUMMY)
*RNF7031   DOCUMENTATION   A(4094)              64055600D
                           VARYING(2)
*RNF7031   INPUT           DS(2144)             64055700D
*RNF7031   ISUSED          N(1)                 64055100D
*RNF7031   OUTPUT          DS(2144)             64055800D
*RNF7031   PARAMETERORDER  A(4094)              64055400D
                           VARYING(2)
*RNF7031   QNAME           DS(1072)             64055300D
*RNF7031   RESERVED_1      A(15)                64055200D
*RNF7031 WSDL_OPERATIONIO_T...
                           DS(2144)             64055700    64055800    64056100D
                           BASED(PDUMMY)
*RNF7031   QMESSAGE        DS(1072)             64056400D
*RNF7031   QNAME           DS(1072)             64056300D
*RNF7031 WSDL_OPERATIONSX_T...
                           DS(64500)            64015900    64017600D
                           BASED(PDUMMY)
*RNF7031   NAME(250)       A(256)               64017800D
                           VARYING(2)
*RNF7031 WSDL_OPERNAME_T   A(512)                1020000D    5000230      000528      003777
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    558
                           BASED(PDUMMY)          003780
                           VARYING(2)
*RNF7031 WSDL_PARAMETERORDER_T...
                           A(4094)              64040600D   64055500
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_PART_T       DS(2245)             64052700D
                           BASED(PDUMMY)
*RNF7031   CLASS           DS(80)               64052900D
*RNF7031   DEFTYPE         A(5)                 64053200D
*RNF7031   ISSOAPHEADER    N(1)                 64053300D
*RNF7031   QELEMENT        DS(1072)             64053100D
*RNF7031   QNAME           DS(1072)             64053000D
*RNF7031   RESERVED_1      A(11)                64053500D
*RNF7031   SORTSEQ         I(10,0)              64053400D
*RNF7031 WSDL_PARTID_T     A(128)                 000092      000113      000134     1018900D
                           VARYING(2)            7008500     7009400     5000596     5000615
                                                  001191      001203      001281      001293
                                                  001368      001379
*RNF7031 WSDL_PATH_T       A(254)                 000098      000105      000119      000140
                           BASED(PDUMMY)         1017700D    1018600    67003400    67003900
                           VARYING(2)           67004700    67007600     7010400    70003500
                                                70003900    70004300    70004700    70005100
                                                70005500     5000485     5000492     5000602
                                                 5000609     5000621      001192      001199
                                                  001282      001369
*RNF7031 WSDL_PATHLONG_T   A(1024)               1017900D    5000542     5000546     5000560
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_PORT_T       DS(2416)             64057400D
                           BASED(PDUMMY)
*RNF7031   ADDRESS         A(254)               64057900D
                           VARYING(2)
*RNF7031   PROTOCOL        A(14)                64057700D
                           VARYING(2)
*RNF7031   QBINDING        DS(1072)             64057800D
*RNF7031   QNAME           DS(1072)             64057600D
*RNF7031 WSDL_PORTNAME_T   A(512)                1019600D     000522      003758      003761
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_PORTTYPE_T   DS(2113)             64054300D
                           BASED(PDUMMY)
*RNF7031   OPERATIONLIST   DS(1041)             64054600D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    559
*RNF7031   QNAME           DS(1072)             64054500D
*RNF7031 WSDL_PORTTYPES_T  DS(1041)             64053800D
                           BASED(PDUMMY)
*RNF7031   PORTTYPELIST    DS(1041)             64054000D
         WSDL_POSINT_T     I(10,0)               1024500D   64036100    64036300    96026900
                           BASED(PDUMMY)        96081500
*RNF7031 WSDL_PROTOCOL_T   A(14)                64041000D   64057700
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_PROXY_T      DS(260)               1010400D    5000244      000670
                           BASED(PDUMMY)
*RNF7031   PORT            I(10,0)               1010700D
*RNF7031   SERVER          A(256)                1010600D
*RNF7031 WSDL_QJOB_T       DS(26)                1021000D   70001400    70002300
                           BASED(PDUMMY)
*RNF7031   NAME            A(10)                 1021100D
*RNF7031   NBR             A(6)                  1021300D
*RNF7031   USER            A(10)                 1021200D
*RNF7031 WSDL_QNAME_T      DS(1072)             64046200    64049500    64049600    64049700
                           BASED(PDUMMY)        64052300    64053000    64053100    64054500
                                                64055300    64056300    64056400    64057600
                                                64057800    64058900    64059000    64059800
                                                64060800    64061500    64061600    64064900D
                                                64066000    64066100
*RNF7031   ISQUALIFIED_    A(1)                 64065400D
*RNF7031   LNAME           A(510)               64065100D
                           VARYING(2)
*RNF7031   NSPREFIX        A(30)                64065200D
                           VARYING(2)
*RNF7031   NSVALUE         A(510)               64065300D
                           VARYING(2)
*RNF7031   RESERVED_1      A(15)                64065500D
*RNF7031 WSDL_QSERVER_T    DS(144)              64015000    64044800D
                           BASED(PDUMMY)
*RNF7031   NAME            A(126)               64045000D
                           VARYING(2)
*RNF7031   PORT            I(10,0)              64045100D
*RNF7031   RESERVED_1      A(12)                64045200D
*RNF7031 WSDL_RANGE_T      DS(16)               64066600D
                           BASED(PDUMMY)
*RNF7031   FROM            I(10,0)              64066700D
*RNF7031   RESERVED_1      A(8)                 64066900D
*RNF7031   TO              I(10,0)              64066800D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    560
         WSDL_REALM_PREEMPTIVE_AUTHENTICATION...
                           CONST                 1009300D
*RNF7031 WSDL_RPGTYPE_T    DS(4146)             64062700    64063500D   64069000
                           BASED(PDUMMY)
*RNF7031   DATATYPE        A(2)                 64063700D
*RNF7031   DECPOS          S(2,0)               64063800D
*RNF7031   HASV6MARSHALLER N(1)                 64064100D
*RNF7031   HASV6UNMARSHALLER...
                           N(1)                 64064300D
*RNF7031   KEYWORD         A(32)                64063900D
                           VARYING(2)
*RNF7031   LENGTH          S(7,0)               64063600D
*RNF7031   REFFIELD        A(4096)              64064000D
                           VARYING(2)
*RNF7031   REQUIRESCCSID   N(1)                 64064500D
*RNF7031 WSDL_SERVICE_T    DS(2113)             64046000D
                           BASED(PDUMMY)
*RNF7031   PORTLIST        DS(1041)             64046300D
*RNF7031   QNAME           DS(1072)             64046200D
*RNF7031 WSDL_SERVICES_T   DS(1041)             64045500D
                           BASED(PDUMMY)
*RNF7031   SERVICELIST     DS(1041)             64045700D
         WSDL_SHORT_T      I(5,0)                1024700D   64026500    64026700    96018100
                           BASED(PDUMMY)        96072700
*RNF7031 WSDL_SOAP_FAULTCODE_T...
                           A(256)                1003900D    1015300     5000368
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_SOAP_FAULTDETAIL_T...
                           DS(258)               1015500     1015700D     003588      003619
                           BASED(PDUMMY)
*RNF7031   HOSTNAME        A(256)                1015900D
                           VARYING(2)
*RNF7031 WSDL_SOAP_FAULTSTRING_T...
                           A(256)                1004200D    1015400     5000376
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_SOAPACTION_T A(510)                1004500D    1012200    64059900     7006700
                           BASED(PDUMMY)         7008000
                           VARYING(2)
*RNF7031 WSDL_SOAPBODY_T   DS(16)               64061000    64061800D
*RNF7031   USE             A(14)                64062000D
                           VARYING(2)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    561
*RNF7031 WSDL_SOAPFAULT_T  DS(774)               1014300     1015100D     003515      003554
                           BASED(PDUMMY)
*RNF7031   CODE            A(256)                1015300D
                           VARYING(2)
*RNF7031   DETAIL          DS(258)               1015500D
*RNF7031   STRING          A(256)                1015400D
                           VARYING(2)
*RNF7031 WSDL_SOAPHEADER_T DS(2160)             64061200D
*RNF7031   QMESSAGE        DS(1072)             64061600D
*RNF7031   QPART           DS(1072)             64061500D
*RNF7031   USE             A(14)                64061400D
                           VARYING(2)
*RNF7031 WSDL_SRCMBROPTS_T DS(13)               64016200D
                           BASED(PDUMMY)
*RNF7031   DOREPLACE       N(1)                 64016600D
*RNF7031   NAME            A(10)                64016500D
*RNF7031   NUMPARMS        I(5,0)               64016400D
*RNF7031 WSDL_STREAM_T     DS(76)               69000700D
                           BASED(PDUMMY)
*RNF7031   FD              I(10,0)              69001600D
*RNF7031   HPARENT         *(16)                69000900D
*RNF7031   ISOPEN          N(1)                 69001300D
*RNF7031   OFFSET          I(10,0)              69001500D
*RNF7031   PCLOSE          *(16) PROCPTR        69001200D
*RNF7031   PREAD           *(16) PROCPTR        69001000D
*RNF7031   PWRITE          *(16) PROCPTR        69001100D
*RNF7031   TYPEIO          A(1)                 69001400D
*RNF7031 WSDL_STREAMPRFX_T A(2)                 64069300D
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_STRUCTSTMFOPTS_T...
                           DS(5005)             64016900D
                           BASED(PDUMMY)
*RNF7031   DOREPLACE       N(1)                 64017300D
*RNF7031   NUMPARMS        I(5,0)               64017100D
*RNF7031   PATH            A(5000)              64017200D
                           VARYING(2)
*RNF7031 WSDL_STYLE_T      A(14)                64042200D   64059100    64060000
                           BASED(PDUMMY)
                           VARYING(2)
         WSDL_SUCCESS      CONST                 1007600D     000887
*RNF7031 WSDL_TGTRLS_T     A(6)                 64023100D
                           BASED(PDUMMY)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    562
*RNF7031 WSDL_TRANSCODER_T DS(140)              64044000D
                           BASED(PDUMMY)
*RNF7031   CLASS           DS(80)               64044200D
*RNF7031   FROMCCSID       U(10,0)              64044300D
*RNF7031   HICONV          DS(52)               64044500D
*RNF7031   TOCCSID         U(10,0)              64044400D
*RNF7031 WSDL_TYPE_T       DS(4417)             64047100D
                           BASED(PDUMMY)
*RNF7031   ARRAYID         I(10,0)              64048600D
*RNF7031   ARRAYTYPE       A(10)                64048500D
                           VARYING(2)
*RNF7031   CLASS           DS(80)               64047300D
*RNF7031   DEFTYPE         A(5)                 64049300D
*RNF7031   DIM             I(10,0)              64048700D
*RNF7031   FRACTION        I(10,0)              64048900D
*RNF7031   HELPERTYPEID    A(1)                 64047900D
*RNF7031   ISCHOICE        N(1)                 64048000D
*RNF7031   ISEXTENSION     N(1)                 64047700D
*RNF7031   ISQUALIFIED     A(1)                 64047600D
*RNF7031   ISSEQUENCE      N(1)                 64047500D
*RNF7031   ISSOAPENCODED   N(1)                 64047800D
*RNF7031   ISUSED          N(1)                 64047400D
*RNF7031   LENGTH          I(10,0)              64048800D
*RNF7031   NUMCHCHLPTYPE   I(10,0)              64049200D
*RNF7031   NUMSEQHLPTYPE   I(10,0)              64049100D
*RNF7031   QNAME           DS(1072)             64049500D
*RNF7031   QNAMEORIGINAL   DS(1072)             64049700D
*RNF7031   QTYPE           DS(1072)             64049600D
*RNF7031   REFERENCESQUALIFIED...
                           N(1)                 64048300D
*RNF7031   REFERENCESTYPE  N(1)                 64048100D
*RNF7031   RESERVED_1      A(10)                64049400D
*RNF7031   SORTSEQ         I(10,0)              64049000D
*RNF7031   SUBTYPESLIST    DS(1041)             64049800D
*RNF7031   UUID            A(16)                64049900D
*RNF7031 WSDL_TYPES_T      DS(1041)             64046600D
                           BASED(PDUMMY)
*RNF7031   TYPESLIST       DS(1041)             64046800D
         WSDL_UBYTE_T      U(3,0)                1025700D   64031300    64031500    96022900
                           BASED(PDUMMY)        96077500
         WSDL_UINT_T       U(10,0)               1025100D   64032100    64032300    96021300
                           BASED(PDUMMY)        96075900
         WSDL_ULONG_T      U(20,0)               1025300D   64032900    64033100    96023700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    563
                           BASED(PDUMMY)        96078300
*RNF7031 WSDL_URL_T        A(254)               64020300D   64057900
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_USE_T        A(14)                64041800D   64061400    64062000
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_USERAGENT_T  A(256)                1010100D    5000313     5000318      000546
                           BASED(PDUMMY)          003836      003839
                           VARYING(2)
         WSDL_USHORT_T     U(5,0)                1025500D   64030500    64030700    96022100
                           BASED(PDUMMY)        96076700
*RNF7031 WSDL_UUID_T       A(32)                 1019200D    5000470     5000486     5000499
                           BASED(PDUMMY)         5000511     5000522     5000532      000516
                                                  003739      003742
*RNF7031 WSDL_VALUE_T      A(4094)              64019700D   64066200
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_WEBSERVICE_T DS(64764)            64015300D
                           BASED(PDUMMY)
*RNF7031   NUMOPERATIONS   I(5,0)               64015800D
*RNF7031   NUMPARMS        I(5,0)               64015500D
*RNF7031   OFSOPERNMES     I(5,0)               64015700D
*RNF7031   OPERATIONS      DS(64500)            64015900D
*RNF7031   PORT            A(256)               64015600D
                           VARYING(2)
*RNF7031 WSDL_XML_COLUMN_T I(10,0)               1005600D    1016600
                           BASED(PDUMMY)
*RNF7031 WSDL_XML_ERRORNO_T...
                           I(10,0)               1004900D    1016300     5000384
                           BASED(PDUMMY)
*RNF7031 WSDL_XML_ERRORTEXT_T...
                           A(256)                1005200D    1016400     5000392
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 WSDL_XML_LINE_T   I(10,0)               1005400D    1016500
                           BASED(PDUMMY)
*RNF7031 WSDL_XMLERROR_T   DS(270)               1014400     1016100D
                           BASED(PDUMMY)
*RNF7031   CODE            I(10,0)               1016300D
*RNF7031   COLUMN          I(10,0)               1016600D
*RNF7031   LINE            I(10,0)               1016500D
*RNF7031   TEXT            A(256)                1016400D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    564
                           VARYING(2)
*RNF7031 XMLATTRVALUE_T    A(8192)              93001600D   93029900    93030800
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 XMLCALLBACK_T     I(10,0)              93001300D   93020100
                           BASED(PDUMMY)
*RNF7031 XMLELEMENTNAME_T  A(256)               93002500D   93009100    93010800
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 XMLENTITYENCODER_ENCODE...
                           A(65535)             96129800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 XMLENTITYENCODER_ENCODELARGE...
                           A(1048576)           96130600D
                           VARYING(4)
                           PROTOTYPE
*RNF7031 XMLENTITYENCODER_ENCODEV6...
                           PROTOTYPE            96131500D
*RNF7031 XMLENTITYENCODER_ISENABLED...
                           N(1)                 96129100D
                           PROTOTYPE
*RNF7031 XMLENTITYENCODER_SETENABLED...
                           PROTOTYPE            96128300D
*RNF7031 XMLERROR_T        I(10,0)              93004600D   93038600    93039600
                           BASED(PDUMMY)
*RNF7031 XMLERRORCOLUMN_T  I(10,0)              93005200D   93039100    93040500
                           BASED(PDUMMY)
*RNF7031 XMLERRORLINE_T    I(10,0)              93004900D   93038900    93040300
                           BASED(PDUMMY)
*RNF7031 XMLERRORPROC_T    DS(288)              93005800D   93041000
                           BASED(PDUMMY)
*RNF7031 XMLERRORTEXT_T    A(256)               93005500D   93038700    93040100
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 XMLNAMESPACENAME_T...
                           A(256)               93001900D   93012300    93013600
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 XMLNAMESPACEVALUE_T...
                           A(512)               93002200D   93009000    93009200    93010700
                           BASED(PDUMMY)        93010900    93012400    93029000    93031400
                           VARYING(2)           93032400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    565
*RNF7031 XMLNESTINGLVL_T   I(10,0)              93004300D   93008900    93010600
                           BASED(PDUMMY)
*RNF7031 XMLNODENAME_T     A(256)               93002600    93002800D
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 XMLNODEVALUE_T    A(8192)              93001700    93003700D
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 XMLOBJECTREF_T    *(16)                93003100D   93009300
                           BASED(PDUMMY)
*RNF7031 XMLPATH_T         A(256)               93003400D   93021100
                           BASED(PDUMMY)
                           VARYING(2)
         XMLSAXPARSER_DELEGATEELEMENTPROCESSING...
                           PROTOTYPE            93027000D     001461M     001554M     001796M
                                                  001806M     002212M     002439M     003461M
                                                  003471M     003478M     003485M     003528M
         XMLSAXPARSER_DELETE...
                           N(1)                 93026200D     000961M
                           PROTOTYPE
         XMLSAXPARSER_ENDPARSE...
                           N(1)                 93025400D     000909M
                           PROTOTYPE
*RNF7031 XMLSAXPARSER_GETATTRIBUTEQNAME...
                           A(512)               93028900D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 XMLSAXPARSER_GETATTRIBUTEVALUE...
                           A(8192)              93029800D
                           VARYING(2)
                           PROTOTYPE
*RNF7031 XMLSAXPARSER_GETATTRIBUTEVALUEBYQNAME...
                           A(8192)              93030700D
                           VARYING(2)
                           PROTOTYPE
         XMLSAXPARSER_GETENDCALLBACK...
                           *(16) PROCPTR        93033600D     001450      001543      001659
                           PROTOTYPE              001680      001701      001722      001743
                                                  001764      001785      001826      001847
                                                  001868      001889      001910      001931
                                                  001952      002201      002317      002428
                                                  002544      002565      002586      002607
                                                  002628      002649      002670      002691
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    566
                                                  002712      002733      002754      002775
                                                  002796
         XMLSAXPARSER_GETFULLELEMENTDATA...
                           DS(20)               93035000D     001501      001594      002010
                           PROTOTYPE              002252      002375      002479      002854
*RNF7031 XMLSAXPARSER_GETNUMATTRIBUTES...
                           I(10,0)              93028100D
                           PROTOTYPE
         XMLSAXPARSER_GETSTARTCALLBACK...
                           *(16) PROCPTR        93032800D     001449      001542      001658
                           PROTOTYPE              001679      001700      001721      001742
                                                  001763      001784      001825      001846
                                                  001867      001888      001909      001930
                                                  001951      002200      002316      002427
                                                  002543      002564      002585      002606
                                                  002627      002648      002669      002690
                                                  002711      002732      002753      002774
                                                  002795
         XMLSAXPARSER_GETUSERDATA...
                           *(16)                93034300D     001444      001537      001653
                           PROTOTYPE              001674      001695      001716      001737
                                                  001758      001779      001820      001841
                                                  001862      001883      001904      001925
                                                  001946      002195      002311      002422
                                                  002538      002559      002580      002601
                                                  002622      002643      002664      002685
                                                  002706      002727      002748      002769
                                                  002790
*RNF7031 XMLSAXPARSER_HANDLE_T...
                           *(16)                93000700D   93014100    93015200    93016000
                           BASED(PDUMMY)        93016900    93018000    93019000    93020000
                                                93021000    93021900    93022900    93024000
                                                93024900    93025900    93026700    93036900
                                                93037700    93038500    93040000    93041400
                                                  000583      000664
*RNF7031 XMLSAXPARSER_HASATTRIBUTE...
                           N(1)                 93031800D
                           PROTOTYPE
         XMLSAXPARSER_ISNULL...
                           N(1)                 93014700D     000960
                           PROTOTYPE
         XMLSAXPARSER_NEW  N(1)                 93015500D     000809M
                           PROTOTYPE
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    567
*RNF7031 XMLSAXPARSER_NULL *(16)                93014000D
                           PROTOTYPE
         XMLSAXPARSER_PARSE...
                           N(1)                 93024400D     003171
                           PROTOTYPE
         XMLSAXPARSER_PREPAREPARSE...
                           N(1)                 93023500D     000814M
                           PROTOTYPE
         XMLSAXPARSER_REGISTERCALLBACK...
                           PROTOTYPE            93019500D     000811M
*RNF7031 XMLSAXPARSER_RUN  N(1)                 93022400D
                           PROTOTYPE
         XMLSAXPARSER_SETDONAMESPACES...
                           N(1)                 93017500D     000810M
                           PROTOTYPE
*RNF7031 XMLSAXPARSER_SETDOSCHEMA...
                           N(1)                 93016400D
                           PROTOTYPE
*RNF7031 XMLSAXPARSER_SETINPUTSOURCECALLBACK...
                           N(1)                 93021400D
                           PROTOTYPE
*RNF7031 XMLSAXPARSER_SETINPUTSOURCEFILE...
                           N(1)                 93020500D
                           PROTOTYPE
*RNF7031 XMLSAXPARSER_SETSKIPENDCALLBACK...
                           PROTOTYPE            93035700D
*RNF7031 XMLSAXPARSER_SETVALIDATIONFEATURE...
                           N(1)                 93018500D
                           PROTOTYPE
*RNF7031 XMLSAXVALIDATIONTYPE_T...
                           A(10)                93001000D   93019200
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 XMLTOOLKIT_CLEARERROR...
                           PROTOTYPE            93037200D
         XMLTOOLKIT_GETERROR...
                           I(10,0)              93039500D     000901
                           PROTOTYPE
*RNF7031 XMLTOOLKIT_GETERRORPROC...
                           DS(288)              93040900D
                           PROTOTYPE
*RNF7031 XMLTOOLKIT_ISERROR...
                           N(1)                 93036400D
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    568
                           PROTOTYPE
*RNF7031 XMLTOOLKIT_SETERROR...
                           PROTOTYPE            93038000D
*RNF7031 XMLXPATH_T        A(4096)              93004000D   93008800    93010500
                           BASED(PDUMMY)
                           VARYING(2)
*RNF7031 XORSTR            PROTOTYPE            26024800D
*RNF7031 XSD_STRING_OF_STRING_T...
                           A(128)                5000065D    5000129      002280      002283
                           VARYING(2)             002351
                           TEMPLATE
      Field References for subprocedure TIMIANORDERSPORT_GETORDERS
         Field             Attributes         References (D=Defined M=Modified)
         CONTENTTYPE       A(1024)                000667D     000728M     000730
                           VARYING(2)
         ERR               I(10,0)                000673D     000878      000895M     000900
                                                  000936      000937      000941
         HEADERS           DS(2050)               000659D     000790      000793M     000795M
                                                  000798M     000800M     000801M
           CONTENTTYPE     A(1024)                000800
                           VARYING(2)
           MIMEVERSION     A(510)                 000795      000798
                           VARYING(2)
           SOAPACTION      A(510)                 000801
                           VARYING(2)
         HINPSTREAM        I(10,0)                000666D     000840M     000860      000871M
                                                  000871      000891M     000891      000979
                                                  000980
         HMIMEPARSER       *(16)                  000665D     000818M     000819      000820
                                                  000828      000913      000964      000965
         HMSGCTX           *(16)                  000661D     000717M     000718      000719
                                                  000775      000794      000796      000800
                                                  000801      000840      000862      000871
                                                  000891
         HOUTSTREAM        I(10,0)                000663D     000729M     000737      000745
                                                  000756      000761      000771      000774
                                                  000969      000970
         HSAXPARSER        *(16)                  000664D     000809      000810      000811
                                                  000814      000827      000902      000909
                                                  000960      000961
         HSOAPPART         *(16)                  000662D     000718M     000730      000968
         HTTP_RC           I(10,0)                000656D     000850      000853      000857M
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    569
                                                  000869      000875      000882      000928M
         HTTPPROXY         DS(260)                000670D     000706M     000707      000707
           PORT            I(10,0)                000707
           SERVER          A(256)                 000707
         I_GETORDERS       DS(390)                000645D     000762
                           BASED(_QRNL_PST+)
         ISUNEXPECTEDERROR N(1)                   000653D     000920M     000935
         MSG               DS(549)                000658D     000924M     000927
         O_MSG             A(128)                 000646D     000681M     000929M     000945M
                           BASED(_QRNL_PST+)      000947M     000951M
                           VARYING(2)
         RCVM0200          DS(4272)               000657D     000921M     000923      000924
         RTNVALUE          DS(13534980)           000649D     000949M     000952M     001005
         URL               A(32767)               000655D     000843M     000859      000870M
                           VARYING(2)
         USERDATA          DS(13534980)           000676D     000814      000952
      Field References for subprocedure TNS_GETORDERSSERIALIZER
         Field             Attributes         References (D=Defined M=Modified)
         I_ELEMNAME        A(4094)                001022D     001028      001080
                           BASED(_QRNL_PST+)
                           VARYING(2)
         I_GETORDERS       DS(390)                001021D     001039      001040      001041
                           BASED(_QRNL_PST+)      001056      001057      001058      001073
                                                  001074      001075
           FROMTIME        A(128)                 001039      001040      001041
                           VARYING(2)
           STATE           A(128)                 001073      001074      001075
                           VARYING(2)
           TOTIME          A(128)                 001056      001057      001058
                           VARYING(2)
         I_HOUTSTREAM      I(10,0)                001019D     001034      001042      001051
                           BASED(_QRNL_PST+)      001059      001068      001076      001085
      Field References for subprocedure OUTPUTSTREAM_APPENDBUFFER
         Field             Attributes         References (D=Defined M=Modified)
         I_DATA            *(16)                  001100D     001108
         I_HSTREAM         I(10,0)                001099D     001108
         I_LENGTH          I(10,0)                001101D     001105      001108
      Field References for subprocedure OUTPUTSTREAM_APPENDGLOBALREQUESTBUFFER
         Field             Attributes         References (D=Defined M=Modified)
         I_HSTREAM         I(10,0)                001122D     001133
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    570
         IO_REQUESTBUFFER  A(65535)               001123D     001128      001133      001133
                           BASED(_QRNL_PST+)      001134M
                           VARYING(2)
      Field References for subprocedure TIMIANORDERSPORT_GETORDERS_ATTACHMENTS_ADDFILE
         Field             Attributes         References (D=Defined M=Modified)
         I_CONTENTTYPE     A(1024)                001193D     001235
                           BASED(_QRNL_PST+)
                           VARYING(2)
         I_PATH            A(254)                 001192D     001234
                           BASED(_QRNL_PST+)
                           VARYING(2)
         I_SUGGESTEDFILENAME...
                           A(254)                 001198D     001215      001227      001228
                           BASED(_QRNL_PST+)
                           VARYING(2)
         I_TRANSFERENCODING...
                           A(64)                  001194D     001213      001220      001221
                           BASED(_QRNL_PST+)
                           VARYING(2)
         P_SUGGESTEDFILENAME...
                           CONST                  001208D     001226
         P_TRANSFERENCODING...
                           CONST                  001206D     001219
         PARTID            A(128)                 001203D     001233M     001237
                           VARYING(2)
         SUGGESTEDFILENAME A(254)                 001214D     001228M     001230M     001235
                           VARYING(2)
         TRANSFERENCODING  A(64)                  001212D     001221M     001223M     001235
                           VARYING(2)
      Field References for subprocedure TIMIANORDERSPORT_GETORDERS_ATTACHMENTS_ADDBUFFER
         Field             Attributes         References (D=Defined M=Modified)
         I_CONTENTTYPE     A(1024)                001285D     001322
                           BASED(_QRNL_PST+)
                           VARYING(2)
         I_NAME            A(254)                 001282D     001321
                           BASED(_QRNL_PST+)
                           VARYING(2)
         I_PBUFFER         *(16)                  001283D     001321
                           BASED(_QRNL_PST+)
         I_SIZE            I(10,0)                001284D     001321
                           BASED(_QRNL_PST+)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    571
         I_TARGETCCSID     I(10,0)                001290D     001303      001314      001315
                           BASED(_QRNL_PST+)
         I_TRANSFERENCODING...
                           A(64)                  001286D     001302      001308      001309
                           BASED(_QRNL_PST+)
                           VARYING(2)
         P_TARGETCCSID     CONST                  001298D     001314
         P_TRANSFERENCODING...
                           CONST                  001296D     001307
         PARTID            A(128)                 001293D     001320M     001324
                           VARYING(2)
         TARGETCCSID       I(10,0)                001303D     001315M     001317M     001322
         TRANSFERENCODING  A(64)                  001301D     001309M     001311M     001322
                           VARYING(2)
      Field References for subprocedure TIMIANORDERSPORT_GETORDERS_ATTACHMENTS_ADDSTRING
         Field             Attributes         References (D=Defined M=Modified)
         I_CONTENTTYPE     A(1024)                001371D     001409
                           BASED(_QRNL_PST+)
                           VARYING(2)
         I_NAME            A(254)                 001369D     001407
                           BASED(_QRNL_PST+)
                           VARYING(2)
         I_STRING          A(32767)               001370D     001408      001408
                           BASED(_QRNL_PST+)
                           VARYING(2)
         I_TARGETCCSID     I(10,0)                001376D     001389      001400      001401
                           BASED(_QRNL_PST+)
         I_TRANSFERENCODING...
                           A(64)                  001372D     001388      001394      001395
                           BASED(_QRNL_PST+)
                           VARYING(2)
         P_TARGETCCSID     CONST                  001384D     001400
         P_TRANSFERENCODING...
                           CONST                  001382D     001393
         PARTID            A(128)                 001379D     001406M     001411
                           VARYING(2)
         TARGETCCSID       I(10,0)                001389D     001401M     001403M     001409
         TRANSFERENCODING  A(64)                  001387D     001395M     001397M     001409
                           VARYING(2)
      Field References for subprocedure TNS_GETORDERSRESPONSESTART
         Field             Attributes         References (D=Defined M=Modified)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    572
         ATTRS(32767)      *(16)                  001428D     001441      001443
                           BASED(_QRNL_PST+)
         CURRENTITEM       DS(13534980)           001431D     001452      001453      001462
                           BASED(PCURRENTI+)
           ORDERS          DS(13534980)           001462
         DEPTH             I(10,0)                001424D     001440      001445      001458
         NAME              A(1024)                001426D     001447      001460
                           BASED(_QRNL_PST+)
                           VARYING(2)
         NAMESPACE         A(1024)                001425D     001446
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PATH              A(24576)               001427D     001448
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  001432      001437M
         USERDATA          *(16)                  001423D     001437
      Field References for subprocedure TNS_GETORDERSRESPONSEEND
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  001486D
                           BASED(_QRNL_PST+)
*RNF7031 CURRENTITEM       DS(13534980)           001489D
                           BASED(PCURRENTI+)
*RNF7031 DEPTH             I(10,0)                001481D
         ITEMVALUE         DS(20)                 001492D     001501M
*RNF7031 NAME              A(1024)                001483D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                001482D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               001484D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  001490      001498M
         USERDATA          *(16)                  001480D     001498
*RNF7031 VALUE             A(65535)               001485D
                           BASED(_QRNL_PST+)
                           VARYING(2)
      Field References for subprocedure NS_ARRAYOFORDERSSTART
         Field             Attributes         References (D=Defined M=Modified)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    573
         ATTRS(32767)      *(16)                  001521D     001534      001536
                           BASED(_QRNL_PST+)
         CURRENTITEM       DS(13534980)           001524D     001545      001546      001555
                           BASED(PCURRENTI+)
           ORDER           DS(13534980)           001555
         DEPTH             I(10,0)                001517D     001533      001538      001551
         NAME              A(1024)                001519D     001540      001553
                           BASED(_QRNL_PST+)
                           VARYING(2)
         NAMESPACE         A(1024)                001518D     001539
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PATH              A(24576)               001520D     001541
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  001525      001530M
         USERDATA          *(16)                  001516D     001530
      Field References for subprocedure NS_ARRAYOFORDERSEND
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  001579D
                           BASED(_QRNL_PST+)
*RNF7031 CURRENTITEM       DS(13534980)           001582D
                           BASED(PCURRENTI+)
*RNF7031 DEPTH             I(10,0)                001574D
         ITEMVALUE         DS(20)                 001585D     001594M
*RNF7031 NAME              A(1024)                001576D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                001575D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               001577D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  001583      001591M
         USERDATA          *(16)                  001573D     001591
*RNF7031 VALUE             A(65535)               001578D
                           BASED(_QRNL_PST+)
                           VARYING(2)
      Field References for subprocedure NS_ORDERSTART_OF_NS_ARRAYOFORDERS
         Field             Attributes         References (D=Defined M=Modified)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    574
         ATTRS(32767)      *(16)                  001614D     001650      001652      001671
                           BASED(_QRNL_PST+)      001673      001692      001694      001713
                                                  001715      001734      001736      001755
                                                  001757      001776      001778      001817
                                                  001819      001838      001840      001859
                                                  001861      001880      001882      001901
                                                  001903      001922      001924      001943
                                                  001945
         CURRENTITEM       DS(105742)             001622D     001661      001662      001682
                           BASED(PCURRENTI+)      001683      001703      001704      001724
                                                  001725      001745      001746      001766
                                                  001767      001787      001788      001797
                                                  001807      001828      001829      001849
                                                  001850      001870      001871      001891
                                                  001892      001912      001913      001933
                                                  001934      001954      001955
           COSTINFO        A(128)                 001766      001767
                           VARYING(2)
           CUSTOMERSID     A(128)                 001703      001704
                           VARYING(2)
           DELIVERYDATE    Z(26)                  001912      001913
           DELIVERYINFO    A(128)                 001745      001746
                           VARYING(2)
           NOTES           DS(16644)              001797
           ORDERDATE       Z(26)                  001891      001892
           ORDERITEMS      DS(87940)              001807
           REFID           I(10,0)                001682      001683
           REFNUMBER1      A(128)                 001828      001829
                           VARYING(2)
           REFNUMBER2      A(128)                 001849      001850
                           VARYING(2)
           REFNUMBER3      A(128)                 001870      001871
                           VARYING(2)
           STATE           A(128)                 001787      001788
                           VARYING(2)
           SUPPLIERSID     A(128)                 001724      001725
                           VARYING(2)
           TOTALAMOUNT     S(31,15)               001933      001934
           TOTALAMOUNTWITHVAT...
                           S(31,15)               001954      001955
         DEPTH             I(10,0)                001610D     001634      001649      001654
                                                  001667      001675      001688      001696
                                                  001709      001717      001730      001738
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    575
                                                  001751      001759      001772      001780
                                                  001793      001803      001813      001821
                                                  001834      001842      001855      001863
                                                  001876      001884      001897      001905
                                                  001918      001926      001939      001947
*RNF7031 EMPTYITEM         DS(105742)             001625D
         NAME              A(1024)                001612D     001656      001669      001677
                           BASED(_QRNL_PST+)      001690      001698      001711      001719
                           VARYING(2)             001732      001740      001753      001761
                                                  001774      001782      001795      001805
                                                  001815      001823      001836      001844
                                                  001857      001865      001878      001886
                                                  001899      001907      001920      001928
                                                  001941      001949
         NAMESPACE         A(1024)                001611D     001655      001676      001697
                           BASED(_QRNL_PST+)      001718      001739      001760      001781
                           VARYING(2)             001822      001843      001864      001885
                                                  001906      001927      001948
         NS_ORDER          DS(13534980)           001619D     001635M     001635      001637
                           BASED(USERDATA)        001643      001646
           TIMIANORDER(128)...
                           DS(105742)             001643      001646
           X               I(10,0)                001635      001635      001637
         PATH              A(24576)               001613D     001657      001678      001699
                           BASED(_QRNL_PST+)      001720      001741      001762      001783
                           VARYING(2)             001824      001845      001866      001887
                                                  001908      001929      001950
         PCURRENTITEM      *(16)                  001623      001646M
         USERDATA          *(16)                  001609D     001620
         X                 I(10,0)                001617D     001632M     001637M     001642
                                                  001646      001660      001681      001702
                                                  001723      001744      001765      001786
                                                  001827      001848      001869      001890
                                                  001911      001932      001953
      Field References for subprocedure NS_ORDEREND_OF_NS_ARRAYOFORDERS
         Field             Attributes         References (D=Defined M=Modified)
         ATTRS(32767)      *(16)                  001978D     002016      002025      002038
                           BASED(_QRNL_PST+)      002051      002064      002077      002090
                                                  002103      002116      002129      002138
                                                  002147      002156
         CURRENTITEM       DS(105742)             001986D     002018M     002028      002029
                           BASED(PCURRENTI+)      002030      002041      002042      002043
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    576
                                                  002054      002055      002056      002067
                                                  002068      002069      002080      002081
                                                  002082      002093      002094      002095
                                                  002106      002107      002108      002119
                                                  002120      002121      002131M     002140M
                                                  002149M     002158M
           COSTINFO        A(128)                 002067      002068      002069
                           VARYING(2)
           CUSTOMERSID     A(128)                 002028      002029      002030
                           VARYING(2)
           DELIVERYDATE    Z(26)                  002140
           DELIVERYINFO    A(128)                 002054      002055      002056
                           VARYING(2)
           ORDERDATE       Z(26)                  002131
           REFID           I(10,0)                002018
           REFNUMBER1      A(128)                 002093      002094      002095
                           VARYING(2)
           REFNUMBER2      A(128)                 002106      002107      002108
                           VARYING(2)
           REFNUMBER3      A(128)                 002119      002120      002121
                           VARYING(2)
           STATE           A(128)                 002080      002081      002082
                           VARYING(2)
           SUPPLIERSID     A(128)                 002041      002042      002043
                           VARYING(2)
           TOTALAMOUNT     S(31,15)               002149
           TOTALAMOUNTWITHVAT...
                           S(31,15)               002158
         DEPTH             I(10,0)                001973D     002013      002022      002035
                                                  002048      002061      002074      002087
                                                  002100      002113      002126      002135
                                                  002144      002153
         ITEMVALUE         DS(20)                 001989D     002010M     002031      002032
                                                  002044      002045      002057      002058
                                                  002070      002071      002083      002084
                                                  002096      002097      002109      002110
                                                  002122      002123
           PDATA           *(16)                  002031      002044      002057      002070
                                                  002083      002096      002109      002122
           SIZE            I(10,0)                002032      002045      002058      002071
                                                  002084      002097      002110      002123
         NAME              A(1024)                001975D     002015      002017      002024
                           BASED(_QRNL_PST+)      002026      002037      002039      002050
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    577
                           VARYING(2)             002052      002063      002065      002076
                                                  002078      002089      002091      002102
                                                  002104      002115      002117      002128
                                                  002130      002137      002139      002146
                                                  002148      002155      002157
*RNF7031 NAMESPACE         A(1024)                001974D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         NS_ORDER          DS(13534980)           001983D     001998      002004      002007
                           BASED(USERDATA)
           TIMIANORDER(128)...
                           DS(105742)             002004      002007
           X               I(10,0)                001998
         PATH              A(24576)               001976D     002017      002026      002039
                           BASED(_QRNL_PST+)      002052      002065      002078      002091
                           VARYING(2)             002104      002117      002130      002139
                                                  002148      002157
         PCURRENTITEM      *(16)                  001987      002007M
         USERDATA          *(16)                  001972D     001984
         VALUE             A(65535)               001977D     002019      002132      002141
                           BASED(_QRNL_PST+)      002150      002159
                           VARYING(2)
         X                 I(10,0)                001981D     001996M     001998M     002003
                                                  002007      002017      002026      002039
                                                  002052      002065      002078      002091
                                                  002104      002117      002130      002139
                                                  002148      002157
      Field References for subprocedure NS_ARRAYOFSTRINGSSTART
         Field             Attributes         References (D=Defined M=Modified)
         ATTRS(32767)      *(16)                  002179D     002192      002194
                           BASED(_QRNL_PST+)
         CURRENTITEM       DS(16644)              002182D     002203      002204      002213
                           BASED(PCURRENTI+)
           ENTRY           DS(16644)              002213
         DEPTH             I(10,0)                002175D     002191      002196      002209
         NAME              A(1024)                002177D     002198      002211
                           BASED(_QRNL_PST+)
                           VARYING(2)
         NAMESPACE         A(1024)                002176D     002197
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PATH              A(24576)               002178D     002199
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    578
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  002183      002188M
         USERDATA          *(16)                  002174D     002188
      Field References for subprocedure NS_ARRAYOFSTRINGSEND
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  002237D
                           BASED(_QRNL_PST+)
*RNF7031 CURRENTITEM       DS(16644)              002240D
                           BASED(PCURRENTI+)
*RNF7031 DEPTH             I(10,0)                002232D
         ITEMVALUE         DS(20)                 002243D     002252M
*RNF7031 NAME              A(1024)                002234D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                002233D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               002235D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  002241      002249M
         USERDATA          *(16)                  002231D     002249
*RNF7031 VALUE             A(65535)               002236D
                           BASED(_QRNL_PST+)
                           VARYING(2)
      Field References for subprocedure NS_ENTRYSTART_OF_NS_ARRAYOFSTRINGS
         Field             Attributes         References (D=Defined M=Modified)
         ATTRS(32767)      *(16)                  002272D     002308      002310
                           BASED(_QRNL_PST+)
         CURRENTITEM       A(128)                 002280D     002319      002320
                           BASED(PCURRENTI+)
                           VARYING(2)
         DEPTH             I(10,0)                002268D     002292      002307      002312
*RNF7031 EMPTYITEM         A(128)                 002283D
                           VARYING(2)
         NAME              A(1024)                002270D     002314
                           BASED(_QRNL_PST+)
                           VARYING(2)
         NAMESPACE         A(1024)                002269D     002313
                           BASED(_QRNL_PST+)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    579
                           VARYING(2)
         NS_ENTRY          DS(16644)              002277D     002293M     002293      002295
                           BASED(USERDATA)        002301      002304
           STRING(128)     A(128)                 002301      002304
                           VARYING(2)
           X               I(10,0)                002293      002293      002295
         PATH              A(24576)               002271D     002315
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  002281      002304M
         USERDATA          *(16)                  002267D     002278
         X                 I(10,0)                002275D     002290M     002295M     002300
                                                  002304      002318
      Field References for subprocedure NS_ENTRYEND_OF_NS_ARRAYOFSTRINGS
         Field             Attributes         References (D=Defined M=Modified)
         ATTRS(32767)      *(16)                  002343D     002379
                           BASED(_QRNL_PST+)
         CURRENTITEM       A(128)                 002351D     002382      002383      002384
                           BASED(PCURRENTI+)
                           VARYING(2)
         DEPTH             I(10,0)                002338D     002378
         ITEMVALUE         DS(20)                 002354D     002375M     002385      002386
           PDATA           *(16)                  002385
           SIZE            I(10,0)                002386
         NAME              A(1024)                002340D     002380
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                002339D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         NS_ENTRY          DS(16644)              002348D     002363      002369      002372
                           BASED(USERDATA)
           STRING(128)     A(128)                 002369      002372
                           VARYING(2)
           X               I(10,0)                002363
         PATH              A(24576)               002341D     002380
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  002352      002372M
         USERDATA          *(16)                  002337D     002349
*RNF7031 VALUE             A(65535)               002342D
                           BASED(_QRNL_PST+)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    580
                           VARYING(2)
         X                 I(10,0)                002346D     002361M     002363M     002368
                                                  002372      002380
      Field References for subprocedure NS_ARRAYOFORDERITEMSSTART
         Field             Attributes         References (D=Defined M=Modified)
         ATTRS(32767)      *(16)                  002406D     002419      002421
                           BASED(_QRNL_PST+)
         CURRENTITEM       DS(87940)              002409D     002430      002431      002440
                           BASED(PCURRENTI+)
           ORDERITEM       DS(87940)              002440
         DEPTH             I(10,0)                002402D     002418      002423      002436
         NAME              A(1024)                002404D     002425      002438
                           BASED(_QRNL_PST+)
                           VARYING(2)
         NAMESPACE         A(1024)                002403D     002424
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PATH              A(24576)               002405D     002426
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  002410      002415M
         USERDATA          *(16)                  002401D     002415
      Field References for subprocedure NS_ARRAYOFORDERITEMSEND
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  002464D
                           BASED(_QRNL_PST+)
*RNF7031 CURRENTITEM       DS(87940)              002467D
                           BASED(PCURRENTI+)
*RNF7031 DEPTH             I(10,0)                002459D
         ITEMVALUE         DS(20)                 002470D     002479M
*RNF7031 NAME              A(1024)                002461D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                002460D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               002462D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PCURRENTITEM      *(16)                  002468      002476M
         USERDATA          *(16)                  002458D     002476
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    581
*RNF7031 VALUE             A(65535)               002463D
                           BASED(_QRNL_PST+)
                           VARYING(2)
      Field References for subprocedure NS_ORDERITEMSTART_OF_NS_ARRAYOFORDERITEMS
         Field             Attributes         References (D=Defined M=Modified)
         ATTRS(32767)      *(16)                  002499D     002535      002537      002556
                           BASED(_QRNL_PST+)      002558      002577      002579      002598
                                                  002600      002619      002621      002640
                                                  002642      002661      002663      002682
                                                  002684      002703      002705      002724
                                                  002726      002745      002747      002766
                                                  002768      002787      002789
         CURRENTITEM       DS(687)                002507D     002546      002547      002567
                           BASED(PCURRENTI+)      002568      002588      002589      002609
                                                  002610      002630      002631      002651
                                                  002652      002672      002673      002693
                                                  002694      002714      002715      002735
                                                  002736      002756      002757      002777
                                                  002778      002798      002799
           AMOUNT          S(31,15)               002777      002778
           AMOUNTWITHVAT   S(31,15)               002798      002799
           BARCODE         A(128)                 002651      002652
                           VARYING(2)
           ITEMID          I(10,0)                002588      002589
           MODEL           A(128)                 002630      002631
                           VARYING(2)
           ORDERREFID      I(10,0)                002567      002568
           QTY             S(31,15)               002693      002694
           QTYDELIVERED    S(31,15)               002714      002715
           QTYUNITS        S(31,15)               002735      002736
           REFMODELID      I(10,0)                002609      002610
           TITLE           A(128)                 002672      002673
                           VARYING(2)
           UNITS           A(128)                 002756      002757
                           VARYING(2)
         DEPTH             I(10,0)                002495D     002519      002534      002539
                                                  002552      002560      002573      002581
                                                  002594      002602      002615      002623
                                                  002636      002644      002657      002665
                                                  002678      002686      002699      002707
                                                  002720      002728      002741      002749
                                                  002762      002770      002783      002791
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    582
*RNF7031 EMPTYITEM         DS(687)                002510D
         NAME              A(1024)                002497D     002541      002554      002562
                           BASED(_QRNL_PST+)      002575      002583      002596      002604
                           VARYING(2)             002617      002625      002638      002646
                                                  002659      002667      002680      002688
                                                  002701      002709      002722      002730
                                                  002743      002751      002764      002772
                                                  002785      002793
         NAMESPACE         A(1024)                002496D     002540      002561      002582
                           BASED(_QRNL_PST+)      002603      002624      002645      002666
                           VARYING(2)             002687      002708      002729      002750
                                                  002771      002792
         NS_ORDERITEM      DS(87940)              002504D     002520M     002520      002522
                           BASED(USERDATA)        002528      002531
           TIMIANORDERITEM(128)...
                           DS(687)                002528      002531
           X               I(10,0)                002520      002520      002522
         PATH              A(24576)               002498D     002542      002563      002584
                           BASED(_QRNL_PST+)      002605      002626      002647      002668
                           VARYING(2)             002689      002710      002731      002752
                                                  002773      002794
         PCURRENTITEM      *(16)                  002508      002531M
         USERDATA          *(16)                  002494D     002505
         X                 I(10,0)                002502D     002517M     002522M     002527
                                                  002531      002545      002566      002587
                                                  002608      002629      002650      002671
                                                  002692      002713      002734      002755
                                                  002776      002797
      Field References for subprocedure NS_ORDERITEMEND_OF_NS_ARRAYOFORDERITEMS
         Field             Attributes         References (D=Defined M=Modified)
         ATTRS(32767)      *(16)                  002822D     002860      002869      002878
                           BASED(_QRNL_PST+)      002887      002900      002913      002926
                                                  002935      002944      002953      002966
                                                  002975
         CURRENTITEM       DS(687)                002830D     002862M     002871M     002880M
                           BASED(PCURRENTI+)      002890      002891      002892      002903
                                                  002904      002905      002916      002917
                                                  002918      002928M     002937M     002946M
                                                  002956      002957      002958      002968M
                                                  002977M
           AMOUNT          S(31,15)               002968
           AMOUNTWITHVAT   S(31,15)               002977
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    583
           BARCODE         A(128)                 002903      002904      002905
                           VARYING(2)
           ITEMID          I(10,0)                002871
           MODEL           A(128)                 002890      002891      002892
                           VARYING(2)
           ORDERREFID      I(10,0)                002862
           QTY             S(31,15)               002928
           QTYDELIVERED    S(31,15)               002937
           QTYUNITS        S(31,15)               002946
           REFMODELID      I(10,0)                002880
           TITLE           A(128)                 002916      002917      002918
                           VARYING(2)
           UNITS           A(128)                 002956      002957      002958
                           VARYING(2)
         DEPTH             I(10,0)                002817D     002857      002866      002875
                                                  002884      002897      002910      002923
                                                  002932      002941      002950      002963
                                                  002972
         ITEMVALUE         DS(20)                 002833D     002854M     002893      002894
                                                  002906      002907      002919      002920
                                                  002959      002960
           PDATA           *(16)                  002893      002906      002919      002959
           SIZE            I(10,0)                002894      002907      002920      002960
         NAME              A(1024)                002819D     002859      002861      002868
                           BASED(_QRNL_PST+)      002870      002877      002879      002886
                           VARYING(2)             002888      002899      002901      002912
                                                  002914      002925      002927      002934
                                                  002936      002943      002945      002952
                                                  002954      002965      002967      002974
                                                  002976
*RNF7031 NAMESPACE         A(1024)                002818D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         NS_ORDERITEM      DS(87940)              002827D     002842      002848      002851
                           BASED(USERDATA)
           TIMIANORDERITEM(128)...
                           DS(687)                002848      002851
           X               I(10,0)                002842
         PATH              A(24576)               002820D     002861      002870      002879
                           BASED(_QRNL_PST+)      002888      002901      002914      002927
                           VARYING(2)             002936      002945      002954      002967
                                                  002976
         PCURRENTITEM      *(16)                  002831      002851M
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    584
         USERDATA          *(16)                  002816D     002828
         VALUE             A(65535)               002821D     002863      002872      002881
                           BASED(_QRNL_PST+)      002929      002938      002947      002969
                           VARYING(2)             002978
         X                 I(10,0)                002825D     002840M     002842M     002847
                                                  002851      002861      002870      002879
                                                  002888      002901      002914      002927
                                                  002936      002945      002954      002967
                                                  002976
      Field References for subprocedure REOPENINPUTSTREAM
         Field             Attributes         References (D=Defined M=Modified)
         HINPSTREAM        I(10,0)                002998D     003003M     003005
         I_HINPSTREAM      I(10,0)                002995D     003002
         I_HMSGCTX         *(16)                  002994D     003003
                           BASED(_QRNL_PST+)
      Field References for subprocedure LOGIN
         Field             Attributes         References (D=Defined M=Modified)
         CURRERR           I(10,0)                003022D     003033      003034      003035
                                                  003042
         LASTERR           I(10,0)                003025D     003034      003035M
         NUMATTEMPTS       I(10,0)                003026D     003036M     003038M     003038
                                                  003042
         RC                I(10,0)                003019D     003041M     003044
      Field References for subprocedure HTTP_SETCONTENTTYPEANDSOAPACTION
         Field             Attributes         References (D=Defined M=Modified)
         HEADERS           DS(2050)               003059D     003063      003064      003069
                           BASED(I_PUSERDA+)      003069
           CONTENTTYPE     A(1024)                003069
                           VARYING(2)
           MIMEVERSION     A(510)                 003063      003064
                           VARYING(2)
           SOAPACTION      A(510)                 003069
                           VARYING(2)
         I_PUSERDATA       *(16)                  003056D     003059
         O_ADDLHDRS        A(1024)                003055D     003064M     003066M     003069M
                           BASED(_QRNL_PST+)      003069
                           VARYING(2)
      Field References for subprocedure HTTP_RECEIVERESPONSE
         Field             Attributes         References (D=Defined M=Modified)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    585
         CONTENTTYPE       A(1024)                003085D     003111M     003113
         I_DATA            *(16)                  003081D     003123      003131
*RNF7031 I_HSTREAM         I(10,0)                003080D
         I_LENGTH          I(10,0)                003082D     003123      003124      003131
                                                  003132
         RC                I(10,0)                003084D     003124M     003126M     003132M
                                                  003134M     003143
      Field References for subprocedure PARSEORREDIRECTRESPONSE
         Field             Attributes         References (D=Defined M=Modified)
         I_DATA            *(16)                  003154D     003163      003171
         I_LENGTH          I(10,0)                003155D     003163      003171
      Field References for subprocedure HTTPDATASINK_STARTPART
         Field             Attributes         References (D=Defined M=Modified)
         CONTENTID         A(512)                 003198D     003223M     003228
                           VARYING(2)
         CONTENTSUBTYPE    A(16)                  003199D     003224M     003228
                           VARYING(2)
         I_PPART           *(16)                  003195D     003217      003223      003224
                           BASED(_QRNL_PST+)
*RNF7031 I_PUSERDATA       *(16)                  003196D
                           BASED(_QRNL_PST+)
      Field References for subprocedure HTTPDATASINK_BODYDATA
         Field             Attributes         References (D=Defined M=Modified)
         I_DATA            *(16)                  003311D     003329
                           BASED(_QRNL_PST+)
*RNF7031 I_PPART           *(16)                  003309D
                           BASED(_QRNL_PST+)
*RNF7031 I_PUSERDATA       *(16)                  003310D
                           BASED(_QRNL_PST+)
         I_SIZE            I(10,0)                003312D     003329
                           BASED(_QRNL_PST+)
      Field References for subprocedure HTTPDATASINK_ENDPART
         Field             Attributes         References (D=Defined M=Modified)
         I_PPART           *(16)                  003372D     003388
                           BASED(_QRNL_PST+)
*RNF7031 I_PUSERDATA       *(16)                  003373D
                           BASED(_QRNL_PST+)
      Field References for subprocedure SOAPMESSAGE_ENVELOPE
         Field             Attributes         References (D=Defined M=Modified)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    586
         ATTRS(32767)      *(16)                  003440D     003477
                           BASED(_QRNL_PST+)
         DEPTH             I(10,0)                003436D     003445
         NAME              A(1024)                003438D     003445      003470
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                003437D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         PATH              A(24576)               003439D     003460      003467
                           BASED(_QRNL_PST+)
                           VARYING(2)
         USERDATA          *(16)                  003435D     003486
      Field References for subprocedure SOAPMESSAGE_FAULTSTART
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  003510D
                           BASED(_QRNL_PST+)
         DEPTH             I(10,0)                003506D     003519
         FAULT             DS(774)                003513D     003529
                           BASED(USERDATA)
           DETAIL          DS(258)                003529
         NAME              A(1024)                003508D     003527
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                003507D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               003509D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         USERDATA          *(16)                  003505D     003514
      Field References for subprocedure SOAPMESSAGE_FAULTEND
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  003549D
                           BASED(_QRNL_PST+)
         DEPTH             I(10,0)                003544D     003558
         FAULT             DS(774)                003552D     003564M     003566M
                           BASED(USERDATA)
           CODE            A(256)                 003564
                           VARYING(2)
           STRING          A(256)                 003566
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    587
                           VARYING(2)
         NAME              A(1024)                003546D     003563      003565
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                003545D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               003547D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         USERDATA          *(16)                  003543D     003553
         VALUE             A(65535)               003548D     003564      003566
                           BASED(_QRNL_PST+)
                           VARYING(2)
      Field References for subprocedure SOAPMESSAGE_FAULTDETAILSTART
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  003583D
                           BASED(_QRNL_PST+)
         DEPTH             I(10,0)                003579D     003592
*RNF7031 DETAIL            DS(258)                003586D
                           BASED(USERDATA)
*RNF7031 NAME              A(1024)                003581D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                003580D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               003582D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         USERDATA          *(16)                  003578D     003587
      Field References for subprocedure SOAPMESSAGE_FAULTDETAILEND
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  003614D
                           BASED(_QRNL_PST+)
         DEPTH             I(10,0)                003609D     003623
         DETAIL            DS(258)                003617D     003629M
                           BASED(USERDATA)
           HOSTNAME        A(256)                 003629
                           VARYING(2)
         NAME              A(1024)                003611D     003628
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    588
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                003610D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               003612D
                           BASED(_QRNL_PST+)
                           VARYING(2)
         USERDATA          *(16)                  003608D     003618
         VALUE             A(65535)               003613D     003629
                           BASED(_QRNL_PST+)
                           VARYING(2)
      Field References for subprocedure SOAPMESSAGE_UNEXPECTEDELEMENTSTART
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  003646D
                           BASED(_QRNL_PST+)
*RNF7031 DEPTH             I(10,0)                003642D
         NAME              A(1024)                003644D     003653
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                003643D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               003645D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 USERDATA          *(16)                  003641D
      Field References for subprocedure SOAPMESSAGE_UNEXPECTEDELEMENTEND
         Field             Attributes         References (D=Defined M=Modified)
*RNF7031 ATTRS(32767)      *(16)                  003687D
                           BASED(_QRNL_PST+)
*RNF7031 DEPTH             I(10,0)                003682D
         NAME              A(1024)                003684D     003696
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 NAMESPACE         A(1024)                003683D
                           BASED(_QRNL_PST+)
                           VARYING(2)
*RNF7031 PATH              A(24576)               003685D
                           BASED(_QRNL_PST+)
                           VARYING(2)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    589
*RNF7031 USERDATA          *(16)                  003681D
         VALUE             A(65535)               003686D     003694
                           BASED(_QRNL_PST+)
                           VARYING(2)
      Field References for subprocedure IGNOREUNEXPECTEDSOAPHEADER
         Field             Attributes         References (D=Defined M=Modified)
         No references in the source.
      Field References for subprocedure GETOPERATIONUUID
         Field             Attributes         References (D=Defined M=Modified)
         UUID              A(32)                  003742D     003746M     003748
      Field References for subprocedure GETPORTNAME
         Field             Attributes         References (D=Defined M=Modified)
         NAME              A(512)                 003761D     003765M     003767
                           VARYING(2)
      Field References for subprocedure GETOPERATIONNAME
         Field             Attributes         References (D=Defined M=Modified)
         NAME              A(512)                 003780D     003784M     003786
                           VARYING(2)
      Field References for subprocedure GETPOSTCCSID
         Field             Attributes         References (D=Defined M=Modified)
         POST_CCSID        I(10,0)                003799D     003803M     003805
      Field References for subprocedure GETTIMEOUT
         Field             Attributes         References (D=Defined M=Modified)
         TIMEOUTSECS       I(10,0)                003819D     003823M     003825
      Field References for subprocedure GETUSERAGENT
         Field             Attributes         References (D=Defined M=Modified)
         USERAGENT         A(256)                 003839D     003844M     003846
                           VARYING(2)
      Field References for subprocedure GETMESSAGECONTEXT
         Field             Attributes         References (D=Defined M=Modified)
         No references in the source.
      Field References for subprocedure MUSTREDIRECTSTMF
         Field             Attributes         References (D=Defined M=Modified)
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    590
         MUSTREDIRECTSTMF  N(1)                   003879D     003884M     003887
      Indicator References:
         Indicator                            References (D=Defined M=Modified)
       * * * * *   E N D   O F   C R O S S   R E F E R E N C E   * * * * *
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    591
                      E x t e r n a l   R e f e r e n c e s
      Statically bound procedures:
         Procedure                            References
         time                                   63003200    63026600
         atoi                                   63007100
         free                                   63025300
         rand                                   63026100
         stat                                   63036400
         open                                   63059300
         read                                   63064500
         srand                                  63025700
         qsort                                  63028700
         iconv                                  63034800
         fstat                                  63037000
         lstat                                  63037600
         chdir                                  63052300
         chmod                                  63053400
         mkdir                                  63054000
         rmdir                                  63054600
         write                                  63065200
         lseek                                  63066500
         close                                  63069600
         cvthc                                  63090600
         cvtch                                  63091300
         matptr                                 26018700
         rslvsp                                 26021700
         _ORSTR                                 26024100
         mitime                                 26028400
         system                                 63002500
         strtok                                 63006600
         memcpy                                 63007500
         memset                                 63008100
         memcmp                                 63009500
         strcmp                                 63011200
         malloc                                 63024400
         strlen                                 63027100
         tmpnam                                 63027500
         getcwd                                 63051100
         unlink                                 63067700
         tstbts                                 63086700
         getenv                                 63087300
         putenv                                 63087800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    592
         _ANDSTR                                26023300
         _XORSTR                                26024900
         _COMSTR                                26025700
         memmove                                63008900
         realloc                                63024800
         bsearch                                63029400
         opendir                                63055100
         readdir                                63055600
         __errno                                63070100
         cvtefnd                                63086000
         _CIPHER                                63092000
         _TESTPTR                               26016000
         waittime                               26027900
         strftime                               63003700
         QlgChdir                               63051800
         closedir                               63058800
         strerror                               63070400
         _GENUUID                               63089400
         QleGetExp                              26014800
         localtime                              63005600
         __memicmp                              63010100
         QlgGetcwd                              63050500
         rewinddir                              63058300
         ftruncate                              63065900
         HTTP_COMP                              79174700
         HTTP_DIAG                              79175600
         HTTP_DMSG                              79199500
         strcasecmp                             63012200
         _C_TS_free                             63016800
         iconv_open                             63030300
         Qp0zDltEnv                             63088300
         HTTP_CLOSE                             79031700
         HTTP_ERROR                             79032900      000878      000942      003033
         HTTPS_INIT                             79036400
         HTTP_XPROC                             79053600      000790
         HTTP_DEBUG                             79150500
         HTTP_XLATE                             79157400
         HTTP_CRASH                             79176400
         HTTP_XMLNS                             79178100
         localtime_r                            63006100
         iconv_close                            63035900
         Qp0lGetAttr                            63040700
         Qp0zInitEnv                            63088800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    593
         MIME99_this                            77027400
         HTTP_XLATEP                            79159100
         HTTP_HEADER                            79170400      003111
         HTTP_DWRITE                            79197500
         HTTP_DCLOSE                            79200800
         QleActBndPgm                           26012900
         _C_TS_malloc                           63015700
         QtqIconvOpen                           63033100
         HTTP_URL_GET                           79007200    79009000
         HTTPS_IDNAME                           79040800
         HTTPS_STRICT                           79041800
         HTTP_GETAUTH                           79044500
         HTTP_SETAUTH                           79046200
         _C_TS_realloc                          63016200
         _C_IFS_tmpnam                          63027900
         MIME99_assert                          77026400
         MIME99_caller                          77028500
         HTTP_URL_POST                          79013500    79015300
         HTTP_PARSEURL                          79028000
         HTTPS_DCM_REG                          79038600
         HTTPS_CLEANUP                          79039700
         HTTP_SETPROXY                          79047600      000707
         HTTP_XLATEDYN                          79160800
         HTTP_TEMPFILE                          79177200
         Qp0lRenameKeep                         63068200
         HTTP_REDIR_LOC                         79054800      000870
         HTTP_GET_XMLTF                         79093200
         HTTP_SETCCSIDS                         79152100      000711
         HTTP_SETTABLES                         79153700
         HTTP_ESCAPEXML                         79192100
         BASICS1R3_f_val                        29011000
         HTTP_POST_XMLTF                        79105900
         cbSaxEndElement                        93010200
         BASICS1R4_f_this                       19001700      000695      000999      003090
                                                  003141
         BASICS1R3_f_left                       29001900
         BASICS1R6_p_wait                       39009300
         Qp0lRenameUnlink                       63068800
         HTTP_URL_GET_RAW                       79019600
         HTTP_URL_GET_XML                       79087400    79089400
         HTTP_PERSIST_GET                       79124500
         HTTP_PERSIST_REQ                       79137100
         HTTP_USE_COOKIES                       79171800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    594
         HTTP_COOKIE_FILE                       79173600
         HTTP_NEXTXMLATTR                       79190500
         HTTP_PARSER_INIT                       79204500
         HTTP_PARSER_FREE                       79207800
         WSDL2R98_Any_end                       96126100
         BASICS1R2_f_errno                      16003400
         BASICS1R5_f_exist                      21003100      003098      003446      003657
                                                  003700
         BASICS1R7_f_log10                      28007800
         BASICS1R3_f_right                      29004700
         BASICS1R3_f_space                      29006500
         BASICS1R3_f_lcase                      29007400      003445
         BASICS1R3_f_ucase                      29008200
         BASICS1R3_f_scanR                      29024200
         BASICS1RD_Url_new                      57002300
         _C_TS_malloc_info                      63017300
         HTTP_URL_POST_RAW                      79024100
         HTTP_URL_POST_XML                      79099800    79101800
         HTTP_PERSIST_OPEN                      79121000
         HTTP_PERSIST_POST                      79130900
         HTTP_SETFILECCSID                      79155900
         HTTP_XMLRETURNPTR                      79179400
         HTTP_XMLSTRIPCRLF                      79181000
         HTTP_XMLRETURNUCS                      79202500
         cbSaxStartElement                      93008500
         BASICS1R1_f_newMsg                      9007900      003107      003455      003667
                                                  003710
         BASICS1R4_p_assert                     19000700
         BASICS1R4_f_caller                     19002800
         BASICS1R7_f_genMD5                     28010200
         BASICS1R3_f_ebcdic                     29010200
         BASICS1R3_f_center                     29020400
         BASICS1R3_f_alignR                     29021300
         _C_TS_malloc_debug                     63018000
         HTTP_PROXY_SETAUTH                     79049100
         HTTP_PROXY_GETAUTH                     79051600
         HTTP_LONG_PARSEURL                     79070400
         HTTP_URL_POST_RAW2                     79075100      000867
         HTTP_URL_POST_STMF                     79079600    79081400
         HTTP_PERSIST_CLOSE                     79139900
         HTTP_XML_SETCCSIDS                     79165800
         WSDL2R98_Any_start                     96124600
         BASICS1R5_f_rtvObjD                    21004200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    595
         BASICS1R5_f_rtvMbrD                    21005500
         BASICS1R7_f_isBitOn                    28006900
         BASICS1R7_f_genUUID                    28009400
         BASICS1R7_f_genSHA1                    28011200
         BASICS1R3_f_replace                    29009100
         BASICS1R3_f_objName                    29030100
         BASICS1R6_f_execute                    39004200
         WSDL2R86_Stream_add                    69003500
         WSDL2R86_Stream_get                    69004300
         WSDL2R90_AppMsg_new                    74004500
         WSDL2R90_deprecated                    74011700
         MIMEDataSink_header                    77060500
         HTTP_BUILD_SOCKADDR                    79030200
         HTTP_PARSE_XML_STMF                    79168300
         WSDL2R98_Schema_end                    96121000
         BASICS1R2_f_clrErrno                   16004100
         BASICS1R2_f_setErrno                   16004800
         BASICS1R2_f_strerror                   16005600
         BASICS1R7_f_genCRC32                   28012200
         BASICS1R3_f_endsWith                   29005600
         BASICS1R3_f_wordWrap                   29012200
         BASICS1R3_f_editCode                   29013400
         BASICS1R3_f_editWord                   29014700
         BASICS1R8_HANDLE_new                   44001200
         BASICS1RD_Url_getMbr                   57015500
         WSDL2R86_Stream_read                   69006700
         LOG4RPG11_Layout_new                   72066500
         LOG4RPG17_Filter_new                   72078300
         WSDL2R88_Job_isBatch                   70002900
         WSDL2R90_AppMsg_null                   74010200
         HTTP_URL_ENCODER_NEW                   79056100
         HTTP_POST_STMF_XMLTF                   79117800
         HTTP_SET_100_TIMEOUT                   79164300
         WSDL2R98_Value_isNil                   96127700      002016      002025      002038
                                                  002051      002064      002077      002090
                                                  002103      002116      002129      002138
                                                  002147      002156      002379      002860
                                                  002869      002878      002887      002900
                                                  002913      002926      002935      002944
                                                  002953      002966      002975
         BASICS1R1_f_sndPgmMsg                   9009600
         BASICS1R1_f_rcvPgmMsg                   9011000      000922
         BASICS1R1_p_rmvPgmMsg                   9012700
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    596
         BASICS1R5_f_crtUsrSpc                  21008400
         BASICS1R5_f_dltUsrSpc                  21018000
         BASICS1R5_f_getObjLib                  21021300
         BASICS1R3_f_rmvQuotes                  29018600
         BASICS1R3_f_addQuotes                  29019500
         BASICS1R3_f_genStrCmp                  29022200
         BASICS1R3_f_parseDate                  29032800
         BASICS1R6_f_getEnvVar                  39005300
         BASICS1R6_f_setEnvVar                  39006100
         BASICS1R6_f_delEnvVar                  39007000
         BASICS1R8_HANDLE_null                  44002100
         BASICS1R8_MEMORY_free                  44007800
         BASICS1RD_Url_getHost                  57005100
         BASICS1RD_Url_setHost                  57006000
         BASICS1RD_Url_getPort                  57007000
         BASICS1RD_Url_setPort                  57007900
         BASICS1RD_Url_getPath                  57008900
         BASICS1RD_Url_setPath                  57009800
         BASICS1RD_Url_getFile                  57010800
         BASICS1RD_Url_setFile                  57011700
         WSDL2R86_Stream_write                  69007700
         WSDL2R86_Stream_close                  69008700
         LOG4RPG01_Logger_info                  72022300
         LOG4RPG01_Logger_warn                  72025700
         LOG4RPG01_Logger_null                  72051100
         LOG4RPG11_Layout_null                  72068300
         LOG4RPG17_Filter_null                  72080200
         WSDL2R88_Job_getCcsid                  70002000
         WSDL2R88_File_getName                  70003600
         WSDL2R88_File_fixPath                  70004400
         MIME01_MIMEParser_new                  77007900      000818
         MIMEDataSink_bodyData                  77032500
         MIMEDataSink_boundary                  77035900
         HTTP_URL_ENCODER_FREE                  79065400
         HTTP_MFD_ENCODER_OPEN                  79142200
         HTTP_PARSER_SWITCH_CB                  79183200
         HTTP_PARSE_XML_STRING                  79188300
         WSDL2R94_MultiRef_new                  91003400      000699
         WSDL2R94_MultiRef_put                  91007300      001454      001547      001663
                                                  001684      001705      001726      001747
                                                  001768      001789      001830      001851
                                                  001872      001893      001914      001935
                                                  001956      002205      002321      002432
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    597
                                                  002548      002569      002590      002611
                                                  002632      002653      002674      002695
                                                  002716      002737      002758      002779
                                                  002800
         WSDL2R94_MultiRef_get                  91009200
         cbSaxEndNamespaceDecl                  93013300
         WSDL2R98_Schema_start                  96119500
         WSDL2R42_getLoginData                 100001500
         BASICS1R1_f_rtvMsgText                  9014300      000927
         BASICS1R2_f_isApiError                 16001800
         BASICS1R5_f_getTmpName                 21006800
         BASICS1R3_f_startsWith                 29002800
         BASICS1R3_f_rmvKeyword                 29017700
         BASICS1R3_f_formatDate                 29031900
         BASICS1RC_BasicMap_new                 54001600
         BASICS1RC_BasicMap_get                 54005300
         BASICS1RC_BasicMap_put                 54010700
         BASICS1RD_Url_getQuery                 57012700
         BASICS1RD_Url_setQuery                 57013600
         BASICS1RD_Url_toString                 57014600
         BASICS1RE_f_dateSerial                 59000700
         WSDL2R86_Stream_remove                 69005100
         WSDL2R86_Stream_isOpen                 69005900
         LOG4RPG01_Logger_debug                 72018900
         LOG4RPG01_Logger_error                 72029100
         LOG4RPG01_Logger_fatal                 72032500
         LOG4RPG03_Appender_new                 72069800
         WSDL2R90_AppMsg_isNull                 74010900
         MIME01_MIMEParser_null                 77023300
         MIMEDataSink_addHeader                 77030700
         MIMEDataSink_contentID                 77045400
         HTTP_SELECT_COMMDRIVER                 79072200
         HTTP_URL_POST_STMF_XML                 79111200    79113100
         HTTP_MFD_ENCODER_CLOSE                 79149100
         HTTP_PARSER_GET_END_CB                 79185400
         HTTP_PARSER_PARSECHUNK                 79206500
         WSDL2R94_MultiRef_null                 91012700
         BASICS1R8_HANDLE_isNull                44002800
         BASICS1R8_HANDLE_delete                44005300
         BASICS1RA_BasicList_new                48002800
         BASICS1RA_BasicList_get                48004700
         BASICS1RA_BasicList_add                48012100
         BASICS1RA_BasicList_set                48017800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    598
         BASICS1RC_BasicMap_null                54021600
         LOG4RPG01_Logger_isNull                72049500
         LOG4RPG03_Appender_null                72071700
         MIME01_MIMEParser_parse                77018800      003123
         MIMEDataSink_contentMD5                77047100
         MIMEDataSink_endMessage                77054100
         HTTP_URL_ENCODER_ADDVAR                79058200
         HTTP_URL_ENCODER_GETPTR                79060600
         HTTP_URL_ENCODER_GETSTR                79063200
         HTTP_MFD_ENCODER_ADDVAR                79144000
         cbSaxStartNamespaceDecl                93012000
         WSDL2R98_Any_initialize                96122600
         BASICS1R1_f_rcvPgmMsgObj                9019800
         BASICS1R5_f_rtvUsrSpcPtr               21009900
         BASICS1R6_f_getNumEnvVar               39007800
         BASICS1R8_MEMORY_freeAll               44007000
         BASICS1RA_BasicList_find               48015900
         BASICS1RA_BasicList_sort               48025400
         BASICS1RA_BasicList_null               48029500
         BASICS1RB_BasicStack_new               51001100
         BASICS1RB_BasicStack_pop               51003800
         BASICS1RC_BasicMap_clone               54002500
         BASICS1RC_BasicMap_clear               54020000
         LOG4RPG01_Logger_infoMsg               72024000
         LOG4RPG01_Logger_warnMsg               72027400
         LOG4RPG01_Logger_getName               72047900
         LOG4RPG17_Filter_setNext               72081700
         WSDL2R90_AppMsg_newError               74005700      003101      003449      003661
                                                  003704
         MIME01_MIMEParser_delete               77008900      000965
         MIME01_MIMEParser_isNull               77024000      000964
         MIMEDataSink_contentType               77050500
         MIME02_MIMEDataSink_null               77067600
         HTTP_MFD_ENCODER_ADDSTMF               79147700
         HTTP_PARSER_GET_START_CB               79184500
         HTTP_PARSER_GET_USERDATA               79186300
         WSDL2R94_MultiRef_isData               91006400      003477
         WSDL2R94_MultiRef_delete               91012000      000987
         WSDL2R94_MultiRef_isNull               91013400      000986
         BASICS1R1_p_setAppMsgFile               9007000
         BASICS1R1_f_rtvMsgTextRaw               9016600
         BASICS1R2_f_newApiErrCode              16001000
         BASICS1R2_f_cvtErrnoToMsg              16006400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    599
         BASICS1R5_f_getUniqueName              21007500
         BASICS1R5_f_getUsrSpcSize              21011000
         BASICS1R5_f_chgUsrSpcSize              21014400
         BASICS1R3_f_rplUnPrtChars              29031000
         BASICS1R3_f_formatMemSize              29035500
         BASICS1R8_HANDLE_isTypeOf              44003600
         BASICS1R8_MEMORY_allocate              44006100
         BASICS1R9_Display_getMode              46001600    46005900
         BASICS1R9_Display_getRows              46003700
         BASICS1RA_BasicList_clone              48003900
         BASICS1RA_BasicList_clear              48027100
         BASICS1RB_BasicStack_peek              51002800
         BASICS1RB_BasicStack_push              51004800
         BASICS1RB_BasicStack_null              51009800
         BASICS1RC_BasicMap_remove              54003300
         BASICS1RC_BasicMap_delete              54020800
         BASICS1RC_BasicMap_isNull              54022300
         BASICS1RD_Url_getProtocol              57003200
         BASICS1RD_Url_setProtocol              57004100
         BASICS1RE_f_rtvSysVal_num              60001700
         LOG4RPG01_Logger_debugMsg              72020600
         LOG4RPG01_Logger_errorMsg              72030800
         LOG4RPG01_Logger_fatalMsg              72034200
         LOG4RPG01_Logger_setLevel              72052600
         WSDL2R88_Job_getTcpIpAddr              70001100
         WSDL2R88_File_shortenName              70005200
         MIMEDataSink_endBasicPart              77034300
         MIMEDataSink_endMultiPart              77058900
         MIMEDataSink_startMessage              77065300
         HTTP_URL_ENCODER_ADDVAR_S              79067300
         HTTP_MFD_ENCODER_ADDVAR_S              79145800
         WSDL2R94_MultiRef_release              91011200
         WSDL2R94_MultiRef_setSize              91023700
         WSDL2R94_MultiRef_getSize              91024500
         WSDL2R97_XMLSAXParser_new              93015700      000809
         WSDL2R97_XMLSAXParser_run              93022600
         WSDL2R98_Marshaller_toAny              96058400
         WSDL2R98_Marshaller_toInt              96071600
         WSDL2R98_Any_initializeV6              96123500
         BASICS1R1_f_rtvMsgHelpText              9015400
         BASICS1R1_f_cvtRcvMsgToMsg              9018800      000924
         BASICS1R5_f_activateSrvPgm             21019100
         BASICS1RA_BasicList_remove             48022900
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    600
         BASICS1RA_BasicList_delete             48028700
         BASICS1RA_BasicList_isNull             48030200
         BASICS1RB_BasicStack_clone             51002000
         BASICS1RB_BasicStack_clear             51008200
         BASICS1RC_BasicMap_getSize             54014500
         BASICS1RC_BasicMap_getNumE             54016400
         BASICS1RC_BasicMap_getKeys             54018000
         BASICS1RE_f_rtvSysVal_char             60000700
         BASICS1RH_MemoryWriter_new             62001400
         BASICS1RH_MemoryReader_new             62004800
         LOG4RPG01_Logger_isLogging             72014300
         LOG4RPG01_Logger_getLogger             72017300
         LOG4RPG01_Logger_forcedLog             72035900
         WSDL2R90_AppMsg_sendEscMsg             74002700
         MIME01_MIMEParser_setCcsid             77011500
         MIME01_MIMEParser_endParse             77019800      000913
         MIME01_MIME_Ascii_toEbcdic             77020600
         MIME01_MIME_Ebcdic_toAscii             77021500
         MIME01_MIME_Ebcdic_toLower             77022400
         MIME90_HTMLCharset_toCcsid             77025200
         MIME02_MIMEDataSink_isNull             77068300
         WSDL2R94_MultiRef_finalize             91017000      000894
         WSDL2R97_XMLSAXParser_null             93014200
         WSDL2R98_Marshaller_toByte             96073200
         WSDL2R98_Marshaller_toLong             96074800
         WSDL2R98_Marshaller_toDate             96082900
         WSDL2R98_Marshaller_toTime             96083800
         WSDL2R98_Marshaller_togDay             96084700
         WSDL2R98_Schema_initialize             96117500
         BASICS1R8_HANDLE_getPointer            44004500
         BASICS1RA_BasicList_getType            48010300
         BASICS1RA_BasicList_getSize            48011200
         BASICS1RA_BasicList_addNull            48013300
         BASICS1RA_BasicList_setNull            48019100
         BASICS1RA_BasicList_getNumE            48023800
         BASICS1RB_BasicStack_delete            51009000
         BASICS1RB_BasicStack_isNull            51010500
         BASICS1RH_MemoryReader_read            62005700
         WSDL2R85_MessageContext_new             7001100      003862
         LOG4RPG01_Logger_setLogging            72012700
         WSDL2R90_AppMsg_sendDiagMsg            74001700
         timianOrdersPort_Port_login             5000453      003042
         MIMEDataSink_contentSubType            77048800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    601
         MIMEDataSink_endMessagePart            77057300
         MIMEDataSink_startBasicPart            77062300
         MIMEDataSink_startMultiPart            77063800
         WSDL2R71_http_DebugLog_open            82000900
         WSDL2R97_XMLSAXParser_parse            93024600      003171
         WSDL2R97_XMLToolkit_isError            93036600
         WSDL2R98_UnMarshaller_toAny            96006200
         WSDL2R98_UnMarshaller_toInt            96017400      002019      002863      002872
                                                  002881
         WSDL2R98_Marshaller_toAnyV6            96059600
         WSDL2R98_Marshaller_toQName            96065900
         WSDL2R98_Marshaller_toFloat            96070800
         WSDL2R98_Marshaller_toShort            96072400
         WSDL2R98_Marshaller_togYear            96087400
         WSDL2R98_Marshaller_toToken            96105800
         BASICS1R5_f_getUsrSpcAutoExt           21012200
         BASICS1R5_f_chgUsrSpcAutoExt           21015600
         BASICS1R5_f_getProcPtrByName           21020200
         BASICS1R3_f_genStrCmpIgnCase           29023200
         BASICS1R3_f_containsStringAt           29029100
         BASICS1R6_f_getEnvVarByIndex           39008500
         BASICS1R8_MemoryManager_free           44011500
         BASICS1R9_Display_getColumns           46004600
         BASICS1RA_BasicList_isTypeOf           48009300
         BASICS1RA_BasicList_isSorted           48026300
         BASICS1RB_BasicStack_getSize           51005800
         BASICS1RB_BasicStack_getNumE           51006600
         BASICS1RC_BasicMap_getString           54006500
         BASICS1RC_BasicMap_putString           54012100
         BASICS1RC_BasicMap_getHeapID           54017200
         BASICS1RC_BasicMap_getValues           54019000
         BASICS1RC_BasicMap_newKeySet           54023100
         BASICS1RC_BasicKeySet_delete           54025500
         BASICS1RH_MemoryWriter_write           62002300
         WSDL2R85_MessageContext_null            7013400      000983
         LOG4RPG03_Appender_setLayout           72073200
         LOG4RPG03_Appender_setFilter           72074900
         LOG4RPG01_Logger_addAppender           72076600
         MIME01_MIMEParser_beginParse           77013900      003112
         MIMEDataSink_contentEncoding           77043600
         WSDL2R70_http_getContentType           81000700      003096      003110
         WSDL2R71_http_DebugLog_close           82008400      001002
         WSDL2R94_MultiRef_setHasData           91010200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    602
         WSDL2R94_MultiRef_doCopyData           91023000
         WSDL2R97_XMLSAXParser_isNull           93014900      000960
         WSDL2R97_XMLSAXParser_delete           93026400      000961
         WSDL2R97_XMLToolkit_setError           93038200
         WSDL2R97_XMLToolkit_getError           93039700      000905
         WSDL2R98_UnMarshaller_toByte           96019000
         WSDL2R98_UnMarshaller_toLong           96020600
         WSDL2R98_UnMarshaller_toDate           96028600
         WSDL2R98_UnMarshaller_toTime           96029400
         WSDL2R98_UnMarshaller_togDay           96030200
         WSDL2R98_Marshaller_toString           96060900
         WSDL2R98_Marshaller_toDouble           96070000
         WSDL2R98_Marshaller_togMonth           96085600
         WSDL2R98_Marshaller_toAnyURI           96111200
         WSDL2R98_Schema_initializeV6           96118400
         BASICS1R1_f_rtvMsgHelpTextRaw           9017700
         BASICS1R1_f_getSndInfOfRcvMsg           9021500
         BASICS1R3_f_getLengthEditCode          29015800
         BASICS1R3_f_getLengthEditWord          29016800
         BASICS1R3_f_cvtPtrToHexString          29026100
         BASICS1R9_Display_supportsDS4          46002300
         BASICS1R9_Display_supportsGUI          46003000
         BASICS1RA_BasicList_getString          48005800
         BASICS1RA_BasicList_addString          48014100
         BASICS1RA_BasicList_setString          48020000
         BASICS1RA_BasicList_getHeapID          48024600
         BASICS1RC_BasicMap_getInteger          54007500
         BASICS1RC_BasicMap_putInteger          54013400
         BASICS1RC_BasicKeySet_getNext          54024700
         BASICS1RG_BasicProperties_new          61001300
         BASICS1RH_MemoryWriter_delete          62003300
         BASICS1RH_MemoryReader_delete          62006700
         LOG4RPG01_Logger_forcedLogMsg          72037700
         WSDL2R90_AppMsg_sendStatusMsg          74000900
         WSDL2R90_AppMsg_sendCancelMsg          74006600      003101      003107      003449
                                                  003455      003661      003667      003704
                                                  003710
         WSDL2R90_AppMsg_sendToCmdLine          74007400
         timianOrdersPort_Endpoint_get           5000175      000843
         timianOrdersPort_Endpoint_set           5000183
         timianOrdersPort_Port_isError           5000345
         timianOrdersPort_Port_getName           5000463      003765
         timianOrdersPort_Port_getUuid           5000471      003746
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    603
         MIME01_MIMEParser_setDataSink          77009700
         MIMEDataSink_endMessageHeader          77055700
         MIMEDataSink_startMessagePart          77066800
         WSDL2R71_http_DebugLog_isOpen          82002600      001001
         WSDL2R94_MultiRef_isReference          91005500      001441      001534      001650
                                                  001671      001692      001713      001734
                                                  001755      001776      001817      001838
                                                  001859      001880      001901      001922
                                                  001943      002192      002308      002419
                                                  002535      002556      002577      002598
                                                  002619      002640      002661      002682
                                                  002703      002724      002745      002766
                                                  002787
         WSDL2R94_MultiRef_endCallback          91015500
         WSDL2R98_UnMarshaller_toAnyV6          96007000
         WSDL2R98_UnMarshaller_toQName          96012200
         WSDL2R98_UnMarshaller_toFloat          96016600      002150      002159      002929
                                                  002938      002947      002969      002978
         WSDL2R98_UnMarshaller_toShort          96018200
         WSDL2R98_UnMarshaller_togYear          96032600
         WSDL2R98_UnMarshaller_toToken          96044400
         WSDL2R98_Marshaller_toAnyType          96053400
         WSDL2R98_Marshaller_toQNameV6          96067100
         WSDL2R98_Marshaller_toBoolean          96068400
         WSDL2R98_Marshaller_toDecimal          96069200
         WSDL2R98_Marshaller_toInteger          96074000
         WSDL2R98_Marshaller_toTokenV6          96107100
         WSDL2R98_Marshaller_toNmToken          96108500
         BASICS1R2_f_cvtApiErrCodeToMsg         16002600
         BASICS1R5_f_getUsrSpcInitValue         21013300
         BASICS1R5_f_chgUsrSpcInitValue         21016800
         BASICS1RA_BasicList_getPointer         48006700
         BASICS1RA_BasicList_addPointer         48015000
         BASICS1RA_BasicList_findString         48016900
         BASICS1RA_BasicList_setPointer         48021000
         BASICS1RB_BasicStack_getHeapID         51007400
         BASICS1RC_BasicMap_containsKey         54004300
         BASICS1RC_BasicKeySet_getFirst         54023900
         BASICS1RG_BasicProperties_null         61019700
         WSDL2R85_MessageContext_delete          7011800      000982
         WSDL2R85_MessageContext_isNull          7012600      000978      003861
         LOG4RPG01_Logger_getRootLogger         72015800
         LOG4RPG01_Logger_isInfoEnabled         72041200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    604
         LOG4RPG01_Logger_isWarnEnabled         72042900
         MIMEDataSink_contentDispParams         77041300
         MIMEDataSink_contentTypeParams         77052300
         WSDL2R94_MultiRef_hasItemIndex         91017700      001631      001995      002289
                                                  002360      002516      002839
         WSDL2R94_MultiRef_getItemIndex         91018400      001632      001996      002290
                                                  002361      002517      002840
         WSDL2R97_XMLSAXParser_endParse         93025600      000909
         WSDL2R97_XMLToolkit_clearError         93037400
         WSDL2R98_UnMarshaller_toString         96008200
         WSDL2R98_UnMarshaller_toDouble         96015800
         WSDL2R98_UnMarshaller_togMonth         96031000
         WSDL2R98_UnMarshaller_toAnyURI         96048400
         WSDL2R98_Marshaller_toStringV6         96062100      001042      001059      001076
         WSDL2R98_Marshaller_toDateTime         96082000
         WSDL2R98_Marshaller_toLanguage         96103100
         WSDL2R98_Marshaller_toAnyURIV6         96112500
         WSDL2R98_Marshaller_toDuration         96116600
         BASICS1RA_BasicList_getListType        48007600
         BASICS1RA_BasicList_setAutoSort        48022000
         BASICS1RA_BasicList_isNullValue        48031000
         BASICS1RG_BasicProperties_clone        61002200
         BASICS1RG_BasicProperties_clear        61018000
         BASICS1RH_MemoryReader_readProc        62007500
         WSDL2R85_MessageContext_getSize         7004400      000862
         LOG4RPG01_Logger_isDebugEnabled        72039500
         LOG4RPG01_Logger_isErrorEnabled        72044600
         LOG4RPG01_Logger_isFatalEnabled        72046300
         WSDL2R90_AppMsg_retrieveMsgText        74008300
         timianOrdersPort_Port_setErrors         5000336      000996
         MIME01_MIMEParser_setDecodeData        77010600      000819
         MIME01_MIMEParser_getCcsidAscii        77012500
         MIMEDataSink_contentDescription        77037600
         MIMEDataSink_contentDisposition        77039500
         WSDL2R70_http_getContentSubType        81001400      003097
         WSDL2R79_StaticArray_checkIndex        84001000      001644      002005      002302
                                                  002370      002529      002849
         WSDL2R94_MultiRef_startCallback        91014100
         WSDL2R94_MultiRef_doCaptureData        91022200      001631      001995      002289
                                                  002360      002516      002839
         WSDL2R98_UnMarshaller_toAnyType        96002200
         WSDL2R98_UnMarshaller_toQNameV6        96013000
         WSDL2R98_UnMarshaller_toBoolean        96014200
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    605
         WSDL2R98_UnMarshaller_toDecimal        96015000
         WSDL2R98_UnMarshaller_toInteger        96019800
         WSDL2R98_UnMarshaller_toTokenV6        96045200
         WSDL2R98_UnMarshaller_toNmToken        96046400
         WSDL2R98_Marshaller_toAnyTypeV6        96054600
         WSDL2R98_Marshaller_togMonthDay        96086500
         WSDL2R98_Marshaller_toHexBinary        96097600
         WSDL2R98_Marshaller_toNmTokenV6        96109800
         BASICS1R3_f_startsWithIgnoreCase       29003800
         BASICS1R3_f_cvtBufferToHexString       29025200
         BASICS1R3_f_cvtHexStringToBuffer       29026900
         BASICS1R8_MemoryManager_allocate       44009900
         BASICS1RA_BasicList_isListTypeOf       48008400
         BASICS1RA_BasicList_getTotalSize       48027900
         BASICS1RC_BasicMap_getKeyByIndex       54009600
         BASICS1RG_BasicProperties_remove       61005200
         BASICS1RG_BasicProperties_delete       61018800
         BASICS1RG_BasicProperties_isNull       61020400
         BASICS1RH_MemoryWriter_writeProc       62004100
         WSDL2R88_HttpResponse_isRedirect       70008000      000853      000869
         WSDL2R90_AppMsg_retrieveHelpText       74009300
         timianOrdersPort_Port_initialize        5000226      000687
         timianOrdersPort_Port_setTimeout        5000290
         timianOrdersPort_Port_getTimeout        5000300      003823
         timianOrdersPort_Attachments_put        5000479
         timianOrdersPort_Attachments_get        5000493
         MIME01_MIMEParser_getCcsidEbcdic       77013200
         MIME01_MIMEParser_setContentType       77014700      003113
         WSDL2R70_http_getContentTypeAttr       81002200      003114
         WSDL2R94_MultiRef_getEndCallback       91004800      003481
         WSDL2R97_XMLToolkit_getErrorProc       93041100
         WSDL2R98_UnMarshaller_toStringV6       96009000      002032      002045      002058
                                                  002071      002084      002097      002110
                                                  002123      002386      002894      002907
                                                  002920      002960
         WSDL2R98_UnMarshaller_toDateTime       96027800      002132      002141
         WSDL2R98_UnMarshaller_toLanguage       96042400
         WSDL2R98_UnMarshaller_toAnyURIV6       96049200
         WSDL2R98_UnMarshaller_toDuration       96052400
         WSDL2R98_Marshaller_togYearMonth       96088300
         WSDL2R98_Marshaller_toLanguageV6       96104400
         WSDL2R98_XmlEntityEncoder_encode       96130000
         BASICS1R3_f_containsInvalidCharAt      29028000
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    606
         BASICS1RC_BasicMap_getSizeByIndex      54015500
         BASICS1RG_BasicProperties_getNumE      61016400
         WSDL2R90_AppMsg_sendEscMsgAndDump      74003700
         timianOrdersPort_Endpoint_getHost       5000192
         timianOrdersPort_Endpoint_setHost       5000200
         timianOrdersPort_Endpoint_getPort       5000209
         timianOrdersPort_Endpoint_setPort       5000217
         timianOrdersPort_Port_clearErrors       5000327      000785
         timianOrdersPort_XmlError_getCode       5000385
         timianOrdersPort_XmlError_getText       5000393
         HTTPMIME01_http_mime_Part_getType      78012500      003217      003388
         WSDL2R71_http_DebugLog_setVerbose      82001800
         WSDL2R71_http_DebugLog_appendText      82004000      000696      000855      000999
                                                  003031      003094      003117      003128
                                                  003136      003166      003173      003653
                                                  003694      003696
         WSDL2R97_XMLSAXParser_setDoSchema      93016600
         WSDL2R97_XMLSAXParser_getUserData      93034500      001444      001537      001653
                                                  001674      001695      001716      001737
                                                  001758      001779      001820      001841
                                                  001862      001883      001904      001925
                                                  001946      002195      002311      002422
                                                  002538      002559      002580      002601
                                                  002622      002643      002664      002685
                                                  002706      002727      002748      002769
                                                  002790
         WSDL2R98_UnMarshaller_toAnyTypeV6      96003000
         WSDL2R98_UnMarshaller_togMonthDay      96031800
         WSDL2R98_UnMarshaller_toHexBinary      96038900
         WSDL2R98_UnMarshaller_toNmTokenV6      96047200
         WSDL2R98_Marshaller_toUnsignedInt      96075600
         WSDL2R98_Marshaller_toHexBinaryV6      96099000
         BASICS1R8_MemoryManager_reallocate     44010700
         BASICS1R8_MemoryManager_createHeap     44012300
         BASICS1R8_MemoryManager_deleteHeap     44013300
         BASICS1RC_BasicMap_getValueByIndex     54008500
         timianOrdersPort_Port_setHttpProxy      5000235
         timianOrdersPort_Port_getHttpProxy      5000245      000706
         timianOrdersPort_Port_setHttpDebug      5000253
         timianOrdersPort_Port_getHttpDebug      5000264
         timianOrdersPort_Port_setPostCcsid      5000272
         timianOrdersPort_Port_getPostCcsid      5000281      003803
         timianOrdersPort_Port_setUserAgent      5000309
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    607
         timianOrdersPort_Port_getUserAgent      5000319      003844
         timianOrdersPort_HttpError_getCode      5000353
         timianOrdersPort_HttpError_getText      5000361
         timianOrdersPort_SoapError_getCode      5000369
         timianOrdersPort_SoapError_getText      5000377
         HTTPMIME01_http_mime_Part_getCcsid     78028300
         HTTPMIME01_http_mime_Part_toEbcdic     78035500
         WSDL2R94_MultiRef_getStartCallback     91004100      003480
         WSDL2R97_XMLSAXParser_prepareParse     93023700      000814
         WSDL2R97_XMLSAXParser_hasAttribute     93032000
         WSDL2R98_UnMarshaller_togYearMonth     96033400
         WSDL2R98_UnMarshaller_toLanguageV6     96043200
         WSDL2R98_Marshaller_toUnsignedByte     96077200
         WSDL2R98_Marshaller_toUnsignedLong     96078000
         WSDL2R98_Marshaller_toBase64Binary     96089300
         WSDL2R98_XmlEntityEncoder_encodeV6     96131700
         BASICS1RG_BasicProperties_getString    61007300
         BASICS1RG_BasicProperties_putString    61011900
         BASICS1RG_BasicProperties_getHeapID    61017200
         BASICS1RG_BasicProperties_newKeySet    61021200
         WSDL2R85_MessageContext_getSoapPart     7003500      000718
         WSDL2R85_MessageContext_setSoapPart     7008600
         WSDL2R88_OperatingSystem_getRelease    70007200
         WSDL2R71_http_DebugLog_appendRcvMsg    82005600      000923
         WSDL2R94_MultiRef_getSourceUserData    91020600
         WSDL2R94_MultiRef_getTargetUserData    91021400
         WSDL2R98_UnMarshaller_toUnsignedInt    96021400
         WSDL2R98_UnMarshaller_toHexBinaryV6    96039800
         WSDL2R98_Marshaller_toAnySimpleType    96055900
         WSDL2R98_Marshaller_toUnsignedShort    96076400
         WSDL2R98_Marshaller_toAttributedURI    96113900
         WSDL2R98_XmlEntityEncoder_isEnabled    96129300
         BASICS1RG_BasicProperties_getInteger   61008500
         BASICS1RG_BasicProperties_getBoolean   61009600
         BASICS1RG_BasicProperties_getDecimal   61010700
         BASICS1RG_BasicProperties_putInteger   61013100
         BASICS1RG_BasicProperties_putBoolean   61014200
         BASICS1RG_BasicProperties_putDecimal   61015300
         WSDL2R87_ManagedMemoryDataSource_new   67001300
         WSDL2R88_Log4rpg_startLoggingService   70006100
         timianOrdersPort_Attachments_getNumE    5000518
         timianOrdersPort_Attachments_addFile    5000597      001235
         WSDL2R71_http_DebugLog_appendVersion   82003300
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    608
         WSDL2R71_http_DebugLog_dumpCallStack   82007700
         WSDL2R94_MultiRef_getSourceItemIndex   91019100
         WSDL2R94_MultiRef_getTargetItemIndex   91019800
         WSDL2R97_XMLSAXParser_getEndCallback   93033800      001450      001543      001659
                                                  001680      001701      001722      001743
                                                  001764      001785      001826      001847
                                                  001868      001889      001910      001931
                                                  001952      002201      002317      002428
                                                  002544      002565      002586      002607
                                                  002628      002649      002670      002691
                                                  002712      002733      002754      002775
                                                  002796
         WSDL2R98_UnMarshaller_toUnsignedByte   96023000
         WSDL2R98_UnMarshaller_toUnsignedLong   96023800
         WSDL2R98_UnMarshaller_toBase64Binary   96034200
         WSDL2R98_Marshaller_toBase64BinaryV6   96090700
         WSDL2R98_XmlEntityEncoder_setEnabled   96128500
         BASICS1RG_BasicProperties_containsKey
                                                61006300
         WSDL2R87_ManagedMemoryDataSource_null
                                                67020800
         WSDL2R85_MessageContext_isMIMEMessage
                                                 7002700      000794
         WSDL2R85_MessageContext_setSoapAction
                                                 7007600      000721
         WSDL2R85_MessageContext_addAttachment
                                                 7009500
         WSDL2R85_MessageContext_prepareToSend
                                                 7011000      000775
         LOG4RPG01_Logger_setInternalDebugging
                                                72054300
         LOG4RPG01_Logger_getInternalDebugMode
                                                72056100
         timianOrdersPort_Attachments_getAtPos
                                                 5000506
         HTTPMIME01_http_mime_Part_getBoundary
                                                78018700
         HTTPMIME01_http_mime_Part_getFileName
                                                78030000
         HTTPMIME01_http_mime_Part_getUserData
                                                78031700
         HTTPMIME01_http_mime_Part_setUserData
                                                78033400
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    609
         WSDL2R71_http_DebugLog_appendXmlError
                                                82006400
         WSDL2R97_XMLSAXParser_setDoNamespaces
                                                93017700      000810
         WSDL2R98_UnMarshaller_toAnySimpleType
                                                96004200
         WSDL2R98_UnMarshaller_toUnsignedShort
                                                96022200
         WSDL2R98_UnMarshaller_toAttributedURI
                                                96050400
         WSDL2R98_Marshaller_toAnySimpleTypeV6
                                                96057100
         WSDL2R98_Marshaller_toNegativeInteger
                                                96080400
         WSDL2R98_Marshaller_toPositiveInteger
                                                96081200
         WSDL2R98_Marshaller_toAttributedURIV6
                                                96115200
         WSDL2R98_XmlEntityEncoder_encodeLarge
                                                96130800
         BASICS1RG_BasicProperties_loadFromStmf
                                                61004300
         WSDL2R85_MessageContext_setHeaderCcsid
                                                 7001800
         timianOrdersPort_Port_hasLoginCallback
                                                 5000411      000883
         timianOrdersPort_Attachments_removeAll
                                                 5000528      000703
         timianOrdersPort_Attachments_setFolder
                                                 5000538
         timianOrdersPort_Attachments_getFolder
                                                 5000547
         timianOrdersPort_Attachments_addBuffer
                                                 5000616      001322      001409
         MIME01_MIMEParser_retrieveParameterKey
                                                77016600
         HTTPMIME01_http_mime_Part_getHeaderKey
                                                78014600
         HTTPMIME01_http_mime_Part_getContentID
                                                78026400      003223
         WSDL2R97_XMLSAXParser_registerCallback
                                                93019700      000813
         WSDL2R97_XMLSAXParser_getNumAttributes
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    610
                                                93028300
         WSDL2R97_XMLSAXParser_getStartCallback
                                                93033000      001449      001542      001658
                                                  001679      001700      001721      001742
                                                  001763      001784      001825      001846
                                                  001867      001888      001909      001930
                                                  001951      002200      002316      002427
                                                  002543      002564      002585      002606
                                                  002627      002648      002669      002690
                                                  002711      002732      002753      002774
                                                  002795
         WSDL2R98_UnMarshaller_toBase64BinaryV6
                                                96035100
         WSDL2R98_Marshaller_toNormalizedString
                                                96063400
         WSDL2R87_ManagedMemoryDataSource_delete
                                                67019800
         WSDL2R87_ManagedMemoryDataSource_isNull
                                                67021500      000968
         LOG4RPG01_Logger_getInternalDebugOutput
                                                72057600
         timianOrdersPort_RedirectResponse_write
                                                 5000577      003163
         WSDL2R97_XMLSAXParser_getAttributeQName
                                                93029100
         WSDL2R97_XMLSAXParser_getAttributeValue
                                                93030000
         WSDL2R98_UnMarshaller_toAnySimpleTypeV6
                                                96005000
         WSDL2R98_UnMarshaller_toNegativeInteger
                                                96026200
         WSDL2R98_UnMarshaller_toPositiveInteger
                                                96027000
         WSDL2R98_UnMarshaller_toAttributedURIV6
                                                96051200
         BASICS1RG_BasicProperties_loadFromMember
                                                61003000
         WSDL2R87_ManagedMemoryDataSource_setPath
                                                67003000
         WSDL2R87_ManagedMemoryDataSource_getPath
                                                67004000
         WSDL2R87_ManagedMemoryDataSource_getName
                                                67004800
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    611
         WSDL2R87_ManagedMemoryDataSource_getSize
                                                67012100
         WSDL2R85_MessageContext_InputStream_open
                                                 7014200      000840      003003
         WSDL2R85_MessageContext_InputStream_read
                                                 7015900      000861
         timianOrdersPort_RedirectResponse_toStmf
                                                 5000556
         MIME01_MIMEParser_retrieveParameterValue
                                                77017700
         HTTPMIME01_http_mime_DataSink_initialize
                                                78010200      000824
         HTTPMIME01_http_mime_Part_getHeaderValue
                                                78016800
         HTTPMIME01_http_mime_Part_getContentType
                                                78021100
         WSDL2R71_http_DebugLog_appendTextVerbose
                                                82004800      000725      000778      000781
                                                  003090      003141
         WSDL2R97_XMLSAXParser_setInputSourceFile
                                                93020700
         WSDL2R97_XMLSAXParser_getFullElementData
                                                93035200      001501      001594      002010
                                                  002252      002375      002479      002854
         WSDL2R97_XMLSAXParser_setSkipEndCallback
                                                93035900
         WSDL2R98_UnMarshaller_setFieldIdentifier
                                                96001200      002017      002026      002039
                                                  002052      002065      002078      002091
                                                  002104      002117      002130      002139
                                                  002148      002157      002380      002861
                                                  002870      002879      002888      002901
                                                  002914      002927      002936      002945
                                                  002954      002967      002976
         WSDL2R98_UnMarshaller_toNormalizedString
                                                96010200
         WSDL2R98_Marshaller_toNormalizedStringV6
                                                96064600
         WSDL2R98_Marshaller_toNonNegativeInteger
                                                96078800
         WSDL2R98_Marshaller_toNonPositiveInteger
                                                96079600
         BASICS1R8_MemoryManager_getDefaultManager
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    612
                                                44009300
         WSDL2R87_ManagedMemoryDataSource_hashCode
                                                67002200
         WSDL2R87_ManagedMemoryDataSource_setCcsid
                                                67010400
         WSDL2R87_ManagedMemoryDataSource_getCcsid
                                                67011300
         WSDL2R85_MessageContext_InputStream_close
                                                 7016900      000980      003002
         LOG4RPG08_Configurator_clearConfiguration
                                                72065000
         WSDL2R87_ManagedMemoryDataSource_setString
                                                67005700
         WSDL2R87_ManagedMemoryDataSource_setBuffer
                                                67007200
         WSDL2R85_MessageContext_InputStream_isOpen
                                                 7015100      000979
         timianOrdersPort_RedirectResponse_isActive
                                                 5000568      000956      003160      003885
         WSDL2R97_XMLSAXParser_setValidationFeature
                                                93018700
         WSDL2R98_UnMarshaller_toNormalizedStringV6
                                                96011000
         WSDL2R98_UnMarshaller_toNonNegativeInteger
                                                96024600
         WSDL2R98_UnMarshaller_toNonPositiveInteger
                                                96025400
         WSDL2R85_MessageContext_getSoapActionHeader
                                                 7006800      000801
         WSDL2R88_HttpResponse_isAuthenticationError
                                                70008900      000850      000882
         timianOrdersPort_Port_registerLoginCallback
                                                 5000402
         timianOrdersPort_RedirectResponse_terminate
                                                 5000588      000957
         HTTPMIME01_http_mime_Part_getContentSubType
                                                78022800      003224
         WSDL2R85_MessageContext_getMimeVersionHeader
                                                 7005200      000796
         WSDL2R85_MessageContext_getContentTypeHeader
                                                 7006000      000800
         MIME01_MIMEParser_setContentTransferEncoding
                                                77015600
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    613
         WSDL2R97_XMLSAXParser_setInputSourceCallback
                                                93021600
         WSDL2R98_UnMarshaller_fromBase64BufferToStmf
                                                96036600    96037800
         BASICS1R7_f_clcLengthOfRPGIntFieldFromBufSize
                                                28008600
         WSDL2R87_ManagedMemoryDataSource_Stream_isOpen
                                                67012900      000969
         timianOrdersPort_Port_authenticatePreemptively
                                                 5000437      000847
         WSDL2R97_XMLSAXParser_getAttributeValueByQName
                                                93030900
         WSDL2R98_Marshaller_fromFileToBase64Descriptor
                                                96092400    96093700
         WSDL2R87_ManagedMemoryDataSource_setContentType
                                                67008500
         WSDL2R87_ManagedMemoryDataSource_getContentType
                                                67009500
         LOG4RPG08_Configurator_loadDefaultConfiguration
                                                72059600
         WSDL2R97_XMLSAXParser_delegateElementProcessing
                                                93027200      001465      001558      001800
                                                  001810      002216      002443      003464
                                                  003474      003481      003488      003531
         WSDL2R98_UnMarshaller_fromHexBinaryBufferToStmf
                                                96041200
         timianOrdersPort_Port_isAuthenticatePreemptively
                                                 5000429      000846
         WSDL2R98_Marshaller_fromBufferToBase64Descriptor
                                                96095000    96096300
         WSDL2R87_ManagedMemoryDataSource_InputStream_open
                                                67016900
         WSDL2R87_ManagedMemoryDataSource_InputStream_read
                                                67017800
         timianOrdersPort_Port_setPreemptiveAuthentication
                                                 5000419
         WSDL2R98_Marshaller_fromFileToHexBinaryDescriptor
                                                96100600
         WSDL2R87_ManagedMemoryDataSource_OutputStream_open
                                                67013800      000730
         WSDL2R87_ManagedMemoryDataSource_InputStream_close
                                                67018900
         LOG4RPG08_Configurator_loadPropertiesConfiguration
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    614
                                                72061200
         WSDL2R87_ManagedMemoryDataSource_OutputStream_write
                                                67014900      001108
         WSDL2R87_ManagedMemoryDataSource_OutputStream_close
                                                67016000      000774      000970
         timianOrdersPort_Port_resetPreemptiveAuthentication
                                                 5000445      000992
         WSDL2R98_Marshaller_fromBufferToHexBinaryDescriptor
                                                96101800
         HTTPMIME01_http_mime_Part_getContentTransferEncoding
                                                78024600
         LOG4RPG08_Configurator_loadAndWatchPropertiesConfiguration
                                                72063000
      Imported fields:
         Field             Attributes         Defined
         environ           *(16)               63089000
         _EXCP_MSGID       A(7)                63002800
         _C_IFS_stderr     *(16)               63002200
         _C_IFS_stdin      *(16)               63002000
         _C_IFS_stdout     *(16)               63002100
      Exported fields:
         Field             Attributes         Defined
         No references in the source.
   * * * * *   E N D   O F   E X T E R N A L   R E F E R E N C E S   * * * * *
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    615
                          M e s s a g e   S u m m a r y
 Msg id  Sv Number Message text
*RNF5409 00     13 The prototyped call returns a value which is lost when CALLP
                   is used.
*RNF7031 00   2662 The name or indicator is not referenced.
       * * * * *   E N D   O F   M E S S A G E   S U M M A R Y   * * * * *
 5770WDS V7R1M0  100416 RN        IBM ILE RPG             SSSOLF/TIM00101          ISSS400    20.07.15 11:21:47        Page    616
                            F i n a l   S u m m a r y
  Message Totals:
    Information  (00) . . . . . . . :     2675
    Warning      (10) . . . . . . . :        0
    Error        (20) . . . . . . . :        0
    Severe Error (30+)  . . . . . . :        0
    ---------------------------------  -------
    Total . . . . . . . . . . . . . :     2675
  Source Totals:
    Records . . . . . . . . . . . . :    17228
    Specifications  . . . . . . . . :    10628
    Data records  . . . . . . . . . :        0
    Comments  . . . . . . . . . . . :     5081
         * * * * *   E N D   O F   F I N A L   S U M M A R Y   * * * * *
                 C o d e   G e n e r a t i o n   M e s s a g e s
An error occurred during translation.
 * * * * *   E N D   O F   C O D E   G E N E R A T I O N   M E S S A G E S    * * * * *
-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------