[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
-----------------------------------------------------------------------