[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
AW: Help with WSDL2RPG
....Sorry, I've forgotten to attach the generated source of WS0001.....
-----Ursprüngliche Nachricht-----
Von: Casaluci, Timo
Gesendet: Dienstag, 17. Januar 2012 09:39
An: HTTPAPI and FTPAPI Projects
Betreff: AW: Help with WSDL2RPG
Hello Thomas,
I did the changes you've mentioned. But now I got several errors that the 16773104 bytes border is exceeded.
RNF7301 Position (35794437-35794566) of subfield STATUS in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (35794567-35794696) of subfield STORAGE... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (34199-16807302) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16807303-16823946) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (50843-16823946) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16823947-16840590) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (51233-16824336) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50063-16823166) of subfield TESTRESULT in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285499652) of subfield TESTRES... in data structure TESTRESULT is greater than length of data structure (16773104).
RNF7301 Position (16823167-19020162) of subfield VALUE in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16824337-33597440) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (33597441-35794436) of subfield QUANTITY in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (35794437-35794566) of subfield STATUS in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (35794567-35794696) of subfield STORAGE... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (50063-16823166) of subfield TESTRESULT in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285499652) of subfield TESTRES... in data structure TESTRESULT is greater than length of data structure (16773104).
RNF7301 Position (16823167-19020162) of subfield VALUE in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (5-835161092) of subfield QAMATER... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (5-285499652) of subfield TESTRES... in data structure S1_RPGA... is greater than length of data structure (16773104).
RNF7301 Position (50713-16823816) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (34199-16807302) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16807303-16823946) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16823817-33596920) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50843-16823946) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16823947-16840590) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (33596921-50370024) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (51233-16824336) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50063-16823166) of subfield TESTRESULT in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285499652) of subfield TESTRES... in data structure TESTRESULT is greater than length of data structure (16773104).
RNF7301 Position (16823167-19020162) of subfield VALUE in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16824337-33597440) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (33597441-35794436) of subfield QUANTITY in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (35794437-35794566) of subfield STATUS in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (35794567-35794696) of subfield STORAGE... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50370025-67143128) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (67143129-67143154) of subfield PUBLISH... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (67143155-83916258) of subfield QAMATER... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-835161092) of subfield QAMATER... in data structure QAMATER... is greater than length of data structure (16773104).
RNF7301 Position (50713-16823816) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (34199-16807302) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16807303-16823946) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16823817-33596920) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50843-16823946) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16823947-16840590) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (33596921-50370024) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (51233-16824336) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50063-16823166) of subfield TESTRESULT in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285499652) of subfield TESTRES... in data structure TESTRESULT is greater than length of data structure (16773104).
RNF7301 Position (16823167-19020162) of subfield VALUE in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16824337-33597440) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (33597441-35794436) of subfield QUANTITY in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (35794437-35794566) of subfield STATUS in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (35794567-35794696) of subfield STORAGE... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50370025-67143128) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (67143129-67143154) of subfield PUBLISH... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (67143155-83916258) of subfield QAMATER... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-835161092) of subfield QAMATER... in data structure QAMATER... is greater than length of data structure (16773104).
RNF0376 TESTRES... The data item is larger than the maximum of 16.773.104 Bytes.
RNF0376 MATERIA... The data item is larger than the maximum of 16.773.104 Bytes.
RNF0376 MATERIA... The data item is larger than the maximum of 16.773.104 Bytes.
RNF0376 MATERIA... The data item is larger than the maximum of 16.773.104 Bytes.
RNF0376 MATERIA... The data item is larger than the maximum of 16.773.104 Bytes.
RNF0376 QAMATER... The data item is larger than the maximum of 16.773.104 Bytes.
RNF0376 MATERIA... The data item is larger than the maximum of 16.773.104 Bytes.
RNF0376 MATERIA... The data item is larger than the maximum of 16.773.104 Bytes.
RNF0376 MATERIA... The data item is larger than the maximum of 16.773.104 Bytes.
RNF0376 MATERIA... The data item is larger than the maximum of 16.773.104 Bytes.
RNF7301 Position (34199-16807302) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16807303-16823946) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (50843-16823946) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16823947-16840590) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (50713-16823816) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (34199-16807302) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16807303-16823946) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16823817-33596920) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50843-16823946) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-287623428) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16823947-16840590) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (33596921-50370024) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (51233-16824336) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50063-16823166) of subfield TESTRESULT in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285499652) of subfield TESTRES... in data structure TESTRESULT is greater than length of data structure (16773104).
RNF7301 Position (16823167-19020162) of subfield VALUE in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16824337-33597440) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (33597441-35794436) of subfield QUANTITY in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (35794437-35794566) of subfield STATUS in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (35794567-35794696) of subfield STORAGE... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50370025-67143128) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (67143129-67143154) of subfield PUBLISH... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (67143155-83916258) of subfield QAMATER... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-835161092) of subfield QAMATER... in data structure QAMATER... is greater than length of data structure (16773104).
RNF7301 Position (50063-16823166) of subfield TESTRESULT in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-285499652) of subfield TESTRES... in data structure TESTRESULT is greater than length of data structure (16773104).
RNF7301 Position (16823167-19020162) of subfield VALUE in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (51233-16824336) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-2146957316) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (50063-16823166) of subfield TESTRESULT in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (5-285499652) of subfield TESTRES... in data structure TESTRESULT is greater than length of data structure (16773104).
RNF7301 Position (16823167-19020162) of subfield VALUE in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (16824337-33597440) of subfield MATERIA... in data structure S1_MATE... is greater than length of data structure (16773104).
RNF7301 Position (5-285542916) of subfield MATERIA... in data structure MATERIA... is greater than length of data structure (16773104).
RNF7301 Position (33597441-35794436) of subfield QUANTITY in data structure S1_MATE... is greater than length of data structure (16773104).
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_MATE... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_MATE... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_MATE... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_MATE... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_RPGA... exceeds 16773104; length defaults to 16773104.
RNF0501 Length of character item S1_MATE... exceeds 16773104; length defaults to 16773104.
Any proposals?
Thanks,
Timo
-----Ursprüngliche Nachricht-----
Von: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] Im Auftrag von Thomas Raddatz
Gesendet: Montag, 16. Januar 2012 23:15
An: HTTPAPI and FTPAPI Projects
Betreff: Re: Help with WSDL2RPG
Timo,
Since there is too much workload on our box I could not yet test the bug
fix thoroughly. However you may try to change procedure
"OutputFile_addTypeDef" of module "WSDL2R03" like this:
// Get final type definition
if (TypeDef_isUserDefined(i_type));
// and not TypeDef_isArrayValue(i_type)); // <<== removed
finalType = TypeDef_getFinalTypeUsed(i_type);
else;
finalType = i_type;
endif;
After having compiled the module you may use UPDPGM to update program
WSDL2RPG instead of running the installer again.
Thomas.
Am 16.01.2012 18:12, schrieb Casaluci, Timo:
> Hello Thomas,
>
>
> today I tried to continue with WSDL2RPG to generate a first test
> program.
>
> WSDL2RPG successfully created the Web Service stub (see attached Source
> Files).
>
>
> I try to compile it to a module with:
>
>
> CRTRPGMOD MODULE(RXLKVOBJI/WS0001) SRCFILE(R8LKVSRCI/VEXSRCL)
> SRCMBR(WS0001) OPTION(*EVENTF) DBGVIEW(*LIST) REPLACE(*YES)
>
>
> and got several RNF7030 error messages:
>
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator VALUE is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator VALUE is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator QAMATER... is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator TESTRESULT is not defined.
>
> RNF7030 The name or indicator VALUE is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator MATERIA... is not defined.
>
> RNF7030 The name or indicator QUANTITY is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator QUANTITY is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator TESTEDM... is not defined.
>
> RNF7030 The name or indicator TESTEDM... is not defined.
>
> RNF7030 The name or indicator TESTEDM... is not defined.
>
> RNF7030 The name or indicator ANY is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator ITEM is not defined.
>
> RNF7030 The name or indicator TESTEDM... is not defined.
>
> RNF7030 The name or indicator TESTEDM... is not defined.
>
> RNF7030 The name or indicator TESTEDM... is not defined.
>
> RNF7030 The name or indicator TESTRES... is not defined.
>
> RNF7030 The name or indicator VALUETYPE is not defined.
>
> RNF7030 The name or indicator VALUETYPE is not defined.
>
> RNF7030 The name or indicator VALUETYPE is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
> RNF7030 The name or indicator S1_ANYR... is not defined.
>
>
>
> E.g. the first errors links me to the following DS:
>
>
> D tns_ProcessMaterialInformation_t...
>
> D DS template
>
> D qualified
>
> D MaterialInformation...
>
> D
> likeds(s1_MaterialInformationType_t)
>
> *
>
> *
>
> D tns_ProcessMaterialInformationResponse_t...
>
> D DS template
>
> D qualified
>
> D MaterialInformation...
>
> D
> likeds(s1_MaterialInformationType_t)
>
>
> But the definition for DS s1_MaterialInformationType_t exists in the
> source file:
>
>
> D s1_MaterialInformationType_t...
>
> D DS template
>
> D qualified
>
> D ProcessingStatus...
>
> D
> likeds(s2_ProcessingStatusType_t)
>
> D Any likeds(s1_RpgArrayOfAny_t)
>
> D Description
> likeds(s1_RpgArrayOfDescription_t)
>
> D ID 128A varying
>
> D Location likeds(s1_LocationType_t)
>
> D MaterialClass
> likeds(s1_RpgArrayOfMaterialClass_t)
>
> D MaterialDefinition...
>
> D
> likeds(s1_RpgArrayOfMaterialDefini...
>
> D tion_t)
>
> D MaterialLot
> likeds(s1_RpgArrayOfMaterialLot_t)
>
> D MaterialSubLot...
>
> D
> likeds(s1_RpgArrayOfMaterialSubLot_t)
>
> D PublishedDate Z
>
> D QAMaterialTestSpecification...
>
> D
> likeds(s1_RpgArrayOfQAMaterialTest...
>
> D Specification_t)
>
> *
>
> *
>
>
> Should these two generated module sources work without manual changes?
>
>
> Thanks,
>
>
> Timo
>
>
> -----Ursprüngliche Nachricht-----
> Von: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
> [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] Im Auftrag von Thomas
> Raddatz
> Gesendet: Freitag, 13. Januar 2012 20:35
> An: HTTPAPI and FTPAPI Projects
> Betreff: Re: Help with WSDL2RPG
>
>
> Timo,
>
>
> That are really good news. I am happy that you could solve the problem
> that
>
> way because there is no way for recursion with RPG data structures.
>
>
> Thomas.
>
>
> Am 13.01.2012 18:47, schrieb Casaluci, Timo:
>
> > Hello,
>
> >
>
> >
>
> > thank you for going so deep into this. We don't develop this
> WSDL, we
>
> > got it from a software company which makes the software for our
> Storage
>
> > System.
>
> >
>
> > I'm not sure what they want to describe with that recursivity,
> perhaps
>
> > it should be possible that a location is able to show to another
>
> > location.
>
> >
>
> > I've tested the WSDL with the Tool WS-I Compliance of soapUI and
> got a
>
> > "passed" for it.
>
> >
>
> >
>
> > soapUI generates the following Soap message for it:
>
> >
>
> >
>
> >
>
> > <b2m:Location>
>
> >
>
> > <!--Optional:-->
>
> >
>
> > <b2m:EquipmentID>?</b2m:EquipmentID>
>
> >
>
> > <!--Optional:-->
>
> >
>
> > <b2m:EquipmentElementLevel
>
> > OtherValue="?">?</b2m:EquipmentElementLevel>
>
> >
>
> > <!--Optional:-->
>
> >
>
> > <b2m:Location/>
>
> >
>
> > <!--Zero or more repetitions:-->
>
> >
>
> > <b2m:Any>
>
> >
>
> > <!--You may enter ANY elements at this point-->
>
> >
>
> > </b2m:Any>
>
> >
>
> > </b2m:Location>
>
> >
>
> > I think in our environment we don't need this "optional" location
>
> > element under the element LocationType.
>
> >
>
> > For testing I've now changed the Element Location Type to:
>
> >
>
> >
>
> > <s:complexType name="LocationType">
>
> >
>
> > <s:sequence>
>
> >
>
> > <s:element minOccurs="0" maxOccurs="1"
> name="EquipmentID"
>
> > type="s:string" />
>
> >
>
> > <s:element minOccurs="0" maxOccurs="1"
>
> > name="EquipmentElementLevel" type="s1:EquipmentElementLevelType"
> />
>
> >
>
> > <s:element minOccurs="0" maxOccurs="unbounded"
> name="Any"
>
> > type="s1:AnyType" />
>
> >
>
> > </s:sequence>
>
> >
>
> > </s:complexType>
>
> >
>
> >
>
> > and eliminated a second one under MaterialSubLotType.
>
> >
>
> > Now I got the message "Successfully generated 2 Web Service stub
>
> > modules: WS0001*. Feel free to ..."!
>
> >
>
> > I'm looking forward to work with your tools.
>
> >
>
> >
>
> > Thank you and have a nice weekend!
>
> >
>
> >
>
> > Timo Casaluci
>
> >
>
> >
>
> >
>
> >
>
> >
>
> > -----Ursprüngliche Nachricht-----
>
> > Von: [1]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
>
> > [2][mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] Im Auftrag von
>
> > [3]thomas.raddatz@xxxxxx
>
> > Gesendet: Freitag, 13. Januar 2012 13:26
>
> > An: [4]ftpapi@xxxxxxxxxxxxxxxxxxxxxx
>
> > Betreff: Re: AW: Help with WSDL2RPG
>
> >
>
> >
>
> >
>
> > Timo,
>
> >
>
> >
>
> > Element 'LocationType' is the one that causes the error. That
> element
>
> > is
>
> >
>
> > part of namespace "[1][5]http://www.wbf.org/xml/b2mml-v0300" and
> it
>
> > references
>
> >
>
> > element 's1:LocationType':
>
> >
>
> >
>
> > <s:schema elementFormDefault="qualified" targetNamespace="
>
> >
>
> > [2][6]http://www.wbf.org/xml/b2mml-v0300">
>
> >
>
> > <s:import
>
> > namespace="[3][7]http://www.wbf.org/xml/b2mml-v0300-extensions"
> />
>
> >
>
> > ...
>
> >
>
> > <s:complexType name="LocationType">
>
> >
>
> > <s:sequence>
>
> >
>
> > <s:element minOccurs="0" maxOccurs="1" name="EquipmentID"
>
> >
>
> > type="s:string" />
>
> >
>
> > <s:element minOccurs="0" maxOccurs="1"
>
> > name="EquipmentElementLevel"
>
> >
>
> > type="s1:EquipmentElementLevelType" />
>
> >
>
> > <s:element minOccurs="0" maxOccurs="1" name="Location"
>
> >
>
> > type="s1:LocationType" />
>
> >
>
> > <s:element minOccurs="0" maxOccurs="unbounded" name="Any"
>
> >
>
> > type="s1:AnyType" />
>
> >
>
> > </s:sequence>
>
> >
>
> > </s:complexType>
>
> >
>
> >
>
> > The value assigned to namespace prefix 's1' is
>
> >
>
> > 'http://www.wbf.org/xml/b2mml-v0300', which is the same namespace
> of
>
> > the
>
> >
>
> > element that shall be defined.
>
> >
>
> >
>
> > <wsdl:definitions
>
> >
>
> > ...
>
> >
>
> > xmlns:s1="[4][8]http://www.wbf.org/xml/b2mml-v0300"
>
> >
>
> >
>
> > Hence both 'LocationType'(s) are the same:
>
> >
>
> >
>
> > <s:complexType name="LocationType"> <<== this one is the
> same as
>
> > ...
>
> >
>
> > <s:sequence>
>
> >
>
> > ...
>
> >
>
> > <s:element minOccurs="0" maxOccurs="1" name="Location"
>
> >
>
> > type="s1:LocationType" /> <<== ... this one
>
> >
>
> >
>
> > I have no idea to what construct of Java, C# or any other object
>
> > oriented
>
> >
>
> > programming language that maps. How did you develop or create the
> WSDL?
>
> > Or
>
> >
>
> > am I missing something?
>
> >
>
> >
>
> > Thomas.
>
> >
>
> >
>
> > [5][9]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx schrieb am 13.01.2012
>
> > 12:21:09:
>
> >
>
> >
>
> > > Von: [6][10]t.casaluci@xxxxxxxx
>
> >
>
> > > An: [7][11]ftpapi@xxxxxxxxxxxxxxxxxxxxxx
>
> >
>
> > > Datum: 13.01.2012 12:27
>
> >
>
> > > Betreff: AW: Help with WSDL2RPG
>
> >
>
> > > Gesendet von: [8][12]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
>
> >
>
> > >
>
> >
>
> >
>
> > > Hello,
>
> >
>
> > >
>
> >
>
> >
>
> > > now I've attached the WSDL File, it's located on a server in
> our
>
> >
>
> > > intranet. I've expected that the file is correct
>
> >
>
> > > because it?s the standard interface of the stock system we
> want to
>
> >
>
> > > exchange data with.
>
> >
>
> > > What we want to do in the first step is to send our open
> orders from
>
> >
>
> > > our ERP System to a web service which is located on a remote
> server.
>
> >
>
> > > And in a second step we want to get back a similar set of data
> to a
>
> >
>
> > > web service which is located on our IBM i.
>
> >
>
> > >
>
> >
>
> >
>
> > > Thanks,
>
> >
>
> > >
>
> >
>
> >
>
> > > Timo
>
> >
>
> > >
>
> >
>
> >
>
> > > -----Ursprüngliche Nachricht-----
>
> >
>
> > > Von: [9][13]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
> [mailto:ftpapi-
>
> >
>
> > > [10][14]bounces@xxxxxxxxxxxxxxxxxxxxxx] Im Auftrag von
>
> >
>
> > [11][15]thomas.raddatz@xxxxxxxxxxx
>
> >
>
> > > Gesendet: Freitag, 13. Januar 2012 11:12
>
> >
>
> > > An: HTTPAPI and FTPAPI Projects
>
> >
>
> > > Betreff: Re: Help with WSDL2RPG
>
> >
>
> > >
>
> >
>
> >
>
> > > Timo,
>
> >
>
> > >
>
> >
>
> > > It is always a good idea to attached the wsdl file when having
> a
>
> > problem
>
> >
>
> > with
>
> >
>
> > > the generator. The problem you reported does not sound good to
> me. I
>
> >
>
> > > assume that
>
> >
>
> > > there is a recursion in the wsdl file. Please send the wsdl
> file or
>
> > the
>
> >
>
> > URL of
>
> >
>
> > > the wsdl file to me and I am going to try to figure out what
> wrong
>
> > with
>
> >
>
> > it or
>
> >
>
> > > the generator.
>
> >
>
> > >
>
> >
>
> > > Regards,
>
> >
>
> > >
>
> >
>
> > > Thomas.
>
> >
>
> > >
>
> >
>
> >
>
> > >
>
> >
>
> >
>
> > >
>
> >
>
> >
>
> > > "Casaluci, Timo"<[12][16]t.casaluci@xxxxxxxx> hat am 12.
> Januar 2012 um
>
> > 16:41
>
> >
>
> > > geschrieben:
>
> >
>
> > >
>
> >
>
> >
>
> > > > Hello Mr. Raddatz,
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > I've a question/problem for you.
>
> >
>
> > > >
>
> >
>
> > > > During the generation of my first WS Client Stub program
> with
>
> > WSDL2RPG
>
> >
>
> > I got
>
> >
>
> > > > the following error message:
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > Extract from my Joblog:
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > WSDL2RPG
>
> >
>
> > URL('http://vega-facts01/FactsWebServices/MaterialInformation/Mat
>
> >
>
> > > >
>
> >
>
> > > > erialInformation.asmx?WSDL') SERVICE(*SELECT *SELECT)
>
> >
>
> > SRCFILE(R8LKVSRCI/VE
>
> >
>
> > > >
>
> >
>
> > > > XSRCL) SRCMBR(WS0001) TYPE(*STUB)
>
> >
>
> > > >
>
> >
>
> > > > Member WS000101 added to file VEXSRCL in R8LKVSRCI.
>
> >
>
> > > >
>
> >
>
> > > > Member WS000101 file VEXSRCL in R8LKVSRCI changed.
>
> >
>
> > > >
>
> >
>
> > > > Automatic storage overflow. (MCH4429)
>
> >
>
> > > >
>
> >
>
> > > > Function check. MCH4429 unmonitored by WSDL2RPG at
> statement
>
> >
>
> > 0000101200,
>
> >
>
> > > >
>
> >
>
> > > > instruction X'0000'.
>
> >
>
> > > >
>
> >
>
> > > > The call to main ended in error (C G D F).
>
> >
>
> > > >
>
> >
>
> > > > The call to main ended in error (C G D F).
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > Weitere Nachrichteninformationen
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > Nachrichten-ID . . . . : MCH4429
>
> >
>
> > > >
>
> >
>
> > > > Sendedatum . . . . . . : 12.01.12 Sendezeit . . .
> . . .
>
> >
>
> > > : 16:30:21
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > Nachricht . . . : Automatic storage overflow.
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > Cause . . . . . : One of the automatic storage stacks
>
> > X'00000002'
>
> >
>
> > for the
>
> >
>
> > > >
>
> >
>
> > > > thread has overflowed or a storage access beyond the
> maximum
>
> > size
>
> >
>
> > of a
>
> >
>
> > > >
>
> >
>
> > > > teraspace automatic storage stack was attempted. Further
>
> >
>
> > > program execution
>
> >
>
> > > >
>
> >
>
> > > > within the thread is not possible. Automatic storage
> stack
>
> >
>
> > > values and their
>
> >
>
> > > >
>
> >
>
> > > > meanings follow:
>
> >
>
> > > >
>
> >
>
> > > > 1 -- System stack in single level storage.
>
> >
>
> > > >
>
> >
>
> > > > 2 -- User stack in single level storage.
>
> >
>
> > > >
>
> >
>
> > > > 3 -- System stack in teraspace.
>
> >
>
> > > >
>
> >
>
> > > > 4 -- User stack in teraspace.
>
> >
>
> > > >
>
> >
>
> > > > Technical description . . . . . . . . : Attempt to
> reduce the
>
> >
>
> > automatic
>
> >
>
> > > >
>
> >
>
> > > > storage used by programs running in the thread.
>
> >
>
> > > >
>
> >
>
> > > > Ende
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > Would it be helpful to attach the WSDL File?
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > Thanks
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > > Timo Casaluci
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > > >
>
> >
>
> > >
>
> >
>
> >
>
> >
> ***********************************************************************
>
> > *************
>
> >
>
> > > > VEGA Grieshaber KG
>
> >
>
> > > > Kommanditgesellschaft mit Sitz in Wolfach
>
> >
>
> > > > Registergericht Freiburg: HRA 680 687
>
> >
>
> > > >
>
> >
>
> > > > Persönlich haftender Gesellschafter: Jürgen Grieshaber
>
> >
>
> > > >
>
> >
>
> > > > Persönlich haftende Gesellschafterin: Grieshaber Holding
> GmbH
>
> >
>
> > > > Sitz Wolfach, Registergericht Freiburg: HRB 680 271
>
> >
>
> > > >
>
> >
>
> > > > Geschäftsführer: Jürgen Grieshaber, Günter Kech, Rainer
> Mielke
>
> >
>
> > > >
>
> >
>
> > >
>
> >
>
> >
>
> >
> ***********************************************************************
>
> > *************
>
> >
>
> > > [Anhang "MaterialInformation.WSDL" gelöscht von Thomas
> Raddatz/OBI/
>
> >
>
> > > DE]
>
> >
>
> >
> -----------------------------------------------------------------------
>
> >
>
> > > This is the FTPAPI mailing list. To unsubscribe, please go
> to:
>
> >
>
> > > [13][17]http://www.scottklement.com/mailman/listinfo/ftpapi
>
> >
>
> > >
>
> >
> -----------------------------------------------------------------------
>
> >
>
> >
>
> >
>
> > --
>
> >
>
> > IMPORTANT NOTICE:
>
> >
>
> > This email is confidential, may be legally privileged, and is for
> the
>
> >
>
> > intended recipient only. Access, disclosure, copying,
> distribution, or
>
> >
>
> > reliance on any of it by anyone else is prohibited and may be a
>
> > criminal
>
> >
>
> > offence. Please delete if obtained in error and email
> confirmation to
>
> > the sender.
>
> >
>
> > References
>
> >
>
> > 1. [18]http://www.wbf.org/xml/b2mml-v0300
>
> > 2. [19]http://www.wbf.org/xml/b2mml-v0300
>
> > 3. [20]http://www.wbf.org/xml/b2mml-v0300-extensions
>
> > 4. [21]http://www.wbf.org/xml/b2mml-v0300
>
> > 5. [22]mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
>
> > 6. [23]mailto:t.casaluci@xxxxxxxx
>
> > 7. [24]mailto:ftpapi@xxxxxxxxxxxxxxxxxxxxxx
>
> > 8. [25]mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
>
> > 9. [26]mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
>
> > 10. [27]mailto:bounces@xxxxxxxxxxxxxxxxxxxxxx
>
> > 11. [28]mailto:thomas.raddatz@xxxxxxxxxxx
>
> > 12. [29]mailto:t.casaluci@xxxxxxxx
>
> > 13. [30]http://www.scottklement.com/mailman/listinfo/ftpapi
>
> >
>
> >
>
> >
>
> >
>
> >
> -----------------------------------------------------------------------
>
> > This is the FTPAPI mailing list. To unsubscribe, please go to:
>
> > [31]http://www.scottklement.com/mailman/listinfo/ftpapi
>
> >
> -----------------------------------------------------------------------
>
> -----------------------------------------------------------------------
>
> This is the FTPAPI mailing list. To unsubscribe, please go to:
>
> [32]http://www.scottklement.com/mailman/listinfo/ftpapi
>
> -----------------------------------------------------------------------
>
> References
>
> 1. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
> 2. mailto:[mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx]
> 3. mailto:thomas.raddatz@xxxxxx
> 4. mailto:ftpapi@xxxxxxxxxxxxxxxxxxxxxx
> 5. http://www.wbf.org/xml/b2mml-v0300
> 6. http://www.wbf.org/xml/b2mml-v0300
> 7. http://www.wbf.org/xml/b2mml-v0300-extensions
> 8. http://www.wbf.org/xml/b2mml-v0300
> 9. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
> 10. mailto:t.casaluci@xxxxxxxx
> 11. mailto:ftpapi@xxxxxxxxxxxxxxxxxxxxxx
> 12. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
> 13. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
> 14. mailto:bounces@xxxxxxxxxxxxxxxxxxxxxx
> 15. mailto:thomas.raddatz@xxxxxxxxxxx
> 16. mailto:t.casaluci@xxxxxxxx
> 17. http://www.scottklement.com/mailman/listinfo/ftpapi
> 18. http://www.wbf.org/xml/b2mml-v0300
> 19. http://www.wbf.org/xml/b2mml-v0300
> 20. http://www.wbf.org/xml/b2mml-v0300-extensions
> 21. http://www.wbf.org/xml/b2mml-v0300
> 22. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
> 23. mailto:t.casaluci@xxxxxxxx
> 24. mailto:ftpapi@xxxxxxxxxxxxxxxxxxxxxx
> 25. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
> 26. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
> 27. mailto:bounces@xxxxxxxxxxxxxxxxxxxxxx
> 28. mailto:thomas.raddatz@xxxxxxxxxxx
> 29. mailto:t.casaluci@xxxxxxxx
> 30. http://www.scottklement.com/mailman/listinfo/ftpapi
> 31. http://www.scottklement.com/mailman/listinfo/ftpapi
> 32. http://www.scottklement.com/mailman/listinfo/ftpapi
>
>
>
>
> -----------------------------------------------------------------------
> This is the FTPAPI mailing list. To unsubscribe, please go to:
> http://www.scottklement.com/mailman/listinfo/ftpapi
> -----------------------------------------------------------------------
-----------------------------------------------------------------------
This is the FTPAPI mailing list. To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------
/IF NOT DEFINED(PROTOTYPE_WS0001)
*======================================================================
* Generated by WSDL2RPG 1.15beta4 / 08.01.2012
* Built on Jan 17, 2012 (09:05:52)
* Built for V6R1M0
* Based on WS_SRV v1.15
*======================================================================
*
* This source member contains the common procedures
* of web service port:
*
* MaterialInformationSoap
*
*======================================================================
* Pre-Compiler tags used by STRPREPRC to retrieve creation
* commands from the source member.
* ---------------------------------------------------------------------
* >>PRE-COMPILER<<
* >>CRTCMD<< CRTRPGMOD MODULE(&LI/&OB) +
* SRCFILE(&SL/&SF) +
* SRCMBR(&SM);
* >>COMPILE<<
* >>PARM<< TRUNCNBR(*NO);
* >>PARM<< DBGVIEW(*LIST);
* >>END-COMPILE<<
* >>EXECUTE<<
* >>CMD<< CRTSRVPGM +
* SRVPGM(&LI/&OB ) +
* MODULE(&LI/&OB +
* &LI/WS000101 +
* ) +
* EXPORT(*ALL) +
* BNDSRVPGM(*LIBL/WSDL2RPGRT +
* *LIBL/MIME +
* *LIBL/HTTPMIME +
* *LIBL/BASICS1 ) +
* TEXT('+
* Web Service: MaterialInformationSoap+
* ') +
* DETAIL(*BASIC);
* >>END-PRE-COMPILER<<
*======================================================================
H NOMAIN
H DEBUG
H BNDDIR('HTTPAPI': 'QC2LE')
H OPTION(*SRCSTMT : *NODEBUGIO)
H EXTBININT(*YES)
/ENDIF
/IF NOT DEFINED(PROTOTYPE_DEFINED_WS0001)
/DEFINE PROTOTYPE_DEFINED_WS0001
*
* Type definitions
CPY /COPY QWSDL2RPG,TYPES_H
*
* Array dimensions:
D DIM_A1 C 128
D DIM_A10 C 128
D DIM_A11 C 128
D DIM_A12 C 128
D DIM_A13 C 128
D DIM_A14 C 128
D DIM_A15 C 128
D DIM_A16 C 128
D DIM_A17 C 128
D DIM_A18 C 128
D DIM_A19 C 128
D DIM_A2 C 128
D DIM_A20 C 128
D DIM_A21 C 128
D DIM_A22 C 128
D DIM_A23 C 128
D DIM_A24 C 128
D DIM_A25 C 128
D DIM_A26 C 128
D DIM_A27 C 128
D DIM_A28 C 128
D DIM_A29 C 128
D DIM_A3 C 128
D DIM_A30 C 128
D DIM_A31 C 128
D DIM_A32 C 128
D DIM_A33 C 128
D DIM_A34 C 128
D DIM_A35 C 128
D DIM_A36 C 128
D DIM_A37 C 128
D DIM_A38 C 128
D DIM_A39 C 128
D DIM_A4 C 128
D DIM_A40 C 128
D DIM_A41 C 128
D DIM_A42 C 128
D DIM_A43 C 128
D DIM_A44 C 128
D DIM_A45 C 128
D DIM_A46 C 128
D DIM_A47 C 128
D DIM_A48 C 128
D DIM_A49 C 128
D DIM_A5 C 128
D DIM_A50 C 128
D DIM_A51 C 128
D DIM_A52 C 128
D DIM_A6 C 128
D DIM_A7 C 128
D DIM_A8 C 128
D DIM_A9 C 128
*
* Web Service specific types:
*
D tns_ProcessMaterialInformation_t...
D DS template
D qualified
D MaterialInformation...
D likeds(s1_MaterialInformationType_t)
*
*
D tns_ProcessMaterialInformationResponse_t...
D DS template
D qualified
D MaterialInformation...
D likeds(s1_MaterialInformationType_t)
*
D s2_AcknowledgeType_t...
D S 128A varying
D template
D s2_ActionType_t...
D S 128A varying
D template
D s2_ConfirmOptionType_t...
D S 128A varying
D template
D s2_MessageTypeType_t...
D S 128A varying
D template
*
D s2_ProcessingStatusType_t...
D DS template
D qualified
D ReturnCode 128A varying
D ReturnDescription...
D 128A varying
D ReturnValue like(s2_AcknowledgeType_t)
*
*
D s1_AnyType_t DS template
D qualified
D any 128A varying
*
D s1_DataType1Type_t...
D S 128A varying
D template
D s1_EquipmentElementLevel1Type_t...
D S 128A varying
D template
*
D s1_LocationType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny1_t)
D EquipmentElementLevel...
D like(s1_EquipmentElementLevel1Type_t)
D EquipmentID 128A varying
*
*
D s1_MaterialClassPropertyType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny3_t)
D Description likeds(s1_RpgArrayOfDescription2_t)
D ID 128A varying
D QAMaterialTestSpecificationID...
D likeds(s1_RpgArrayOfQAMaterialTest...
D SpecificationID_t)
D Value likeds(s1_RpgArrayOfValue_t)
*
*
D s1_MaterialClassType_t...
D DS template
D qualified
D Action like(s2_ActionType_t)
D ConfirmOption like(s2_ConfirmOptionType_t)
D MessageType like(s2_MessageTypeType_t)
D ProcessingStatus...
D likeds(s2_ProcessingStatusType_t)
D Any likeds(s1_RpgArrayOfAny2_t)
D Description likeds(s1_RpgArrayOfDescription1_t)
D ID 128A varying
D MaterialClassProperty...
D likeds(s1_RpgArrayOfMaterialClassP...
D roperty_t)
D MaterialDefinitionID...
D likeds(s1_RpgArrayOfMaterialDefini...
D tionID_t)
*
*
D s1_MaterialDefinitionPropertyType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny6_t)
D Description likeds(s1_RpgArrayOfDescription4_t)
D ID 128A varying
D QAMaterialTestSpecificationID...
D likeds(s1_RpgArrayOfQAMaterialTest...
D SpecificationID1_t)
D Value likeds(s1_RpgArrayOfValue1_t)
*
*
D s1_MaterialDefinitionType_t...
D DS template
D qualified
D Action like(s2_ActionType_t)
D ConfirmOption like(s2_ConfirmOptionType_t)
D MessageType like(s2_MessageTypeType_t)
D ProcessingStatus...
D likeds(s2_ProcessingStatusType_t)
D Any likeds(s1_RpgArrayOfAny5_t)
D Description likeds(s1_RpgArrayOfDescription3_t)
D ID 128A varying
D MaterialClassID...
D likeds(s1_RpgArrayOfMaterialClassI...
D D_t)
D MaterialDefinitionProperty...
D likeds(s1_RpgArrayOfMaterialDefini...
D tionProperty_t)
D MaterialLotID likeds(s1_RpgArrayOfMaterialLotID_t)
*
*
D s1_MaterialInformationType_t...
D DS template
D qualified
D ProcessingStatus...
D likeds(s2_ProcessingStatusType_t)
D Any likeds(s1_RpgArrayOfAny_t)
D Description likeds(s1_RpgArrayOfDescription_t)
D ID 128A varying
D Location likeds(s1_LocationType_t)
D MaterialClass likeds(s1_RpgArrayOfMaterialClass_t)
D MaterialDefinition...
D likeds(s1_RpgArrayOfMaterialDefini...
D tion_t)
D MaterialLot likeds(s1_RpgArrayOfMaterialLot_t)
D MaterialSubLot...
D likeds(s1_RpgArrayOfMaterialSubLot_t)
D PublishedDate Z
D QAMaterialTestSpecification...
D likeds(s1_RpgArrayOfQAMaterialTest...
D Specification_t)
*
*
D s1_MaterialLotPropertyType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny8_t)
D Description likeds(s1_RpgArrayOfDescription6_t)
D ID 128A varying
D QAMaterialTestSpecificationID...
D likeds(s1_RpgArrayOfQAMaterialTest...
D SpecificationID2_t)
D TestResult likeds(s1_RpgArrayOfTestResult_t)
D Value likeds(s1_RpgArrayOfValue2_t)
*
*
D s1_MaterialLotType_t...
D DS template
D qualified
D Action like(s2_ActionType_t)
D ConfirmOption like(s2_ConfirmOptionType_t)
D MessageType like(s2_MessageTypeType_t)
D ProcessingStatus...
D likeds(s2_ProcessingStatusType_t)
D Any likeds(s1_RpgArrayOfAny7_t)
D Description likeds(s1_RpgArrayOfDescription5_t)
D ID 128A varying
D Location likeds(s1_LocationType_t)
D MaterialDefinitionID...
D 128A varying
D MaterialLotProperty...
D likeds(s1_RpgArrayOfMaterialLotPro...
D perty_t)
D MaterialSubLot...
D likeds(s1_RpgArrayOfMaterialSubLot...
D 1_t)
D Quantity likeds(s1_RpgArrayOfQuantity_t)
D Status 128A varying
D StorageLocation...
D 128A varying
*
*
D s1_MaterialSubLotType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny11_t)
D Description likeds(s1_RpgArrayOfDescription8_t)
D ID 128A varying
D MaterialLotID 128A varying
D Quantity likeds(s1_RpgArrayOfQuantity1_t)
D Status 128A varying
D StorageLocation...
D 128A varying
*
*
D s1_QuantityType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny12_t)
D DataType like(s1_DataType1Type_t)
D Key 128A varying
D QuantityString...
D 128A varying
D UnitOfMeasure 128A varying
*
*
D s1_QAMaterialTestSpecificationType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny13_t)
D Description likeds(s1_RpgArrayOfDescription9_t)
D Name 128A varying
D TestedMaterialClassProperty...
D likeds(s1_RpgArrayOfTestedMaterial...
D ClassProperty_t)
D TestedMaterialDefinitionProperty...
D likeds(s1_RpgArrayOfTestedMaterial...
D DefinitionProperty_t)
D TestedMaterialLotProperty...
D likeds(s1_RpgArrayOfTestedMaterial...
D LotProperty_t)
D Version 128A varying
*
*
D s1_ResultType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny10_t)
D DataType like(s1_DataType1Type_t)
D Key 128A varying
D UnitOfMeasure 128A varying
D ValueString 128A varying
*
*
D s1_RpgArrayOfAny_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A1)
*
*
D s1_RpgArrayOfAny1_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A3)
*
*
D s1_RpgArrayOfAny10_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A35)
*
*
D s1_RpgArrayOfAny11_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A38)
*
*
D s1_RpgArrayOfAny12_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A41)
*
*
D s1_RpgArrayOfAny13_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A45)
*
*
D s1_RpgArrayOfAny14_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A48)
*
*
D s1_RpgArrayOfAny15_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A50)
*
*
D s1_RpgArrayOfAny16_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A52)
*
*
D s1_RpgArrayOfAny2_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A5)
*
*
D s1_RpgArrayOfAny3_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A8)
*
*
D s1_RpgArrayOfAny4_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A12)
*
*
D s1_RpgArrayOfAny5_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A15)
*
*
D s1_RpgArrayOfAny6_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A19)
*
*
D s1_RpgArrayOfAny7_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A25)
*
*
D s1_RpgArrayOfAny8_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A28)
*
*
D s1_RpgArrayOfAny9_t...
D DS template
D qualified
D x 10I 0
D item likeds(s1_AnyType_t)
D dim(DIM_A32)
*
*
D s1_RpgArrayOfDescription_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string9_t)
D dim(DIM_A2)
*
*
D s1_RpgArrayOfDescription1_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string2_t)
D dim(DIM_A6)
*
*
D s1_RpgArrayOfDescription2_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string_t)
D dim(DIM_A9)
*
*
D s1_RpgArrayOfDescription3_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string6_t)
D dim(DIM_A16)
*
*
D s1_RpgArrayOfDescription4_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string4_t)
D dim(DIM_A20)
*
*
D s1_RpgArrayOfDescription5_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string12_t)
D dim(DIM_A26)
*
*
D s1_RpgArrayOfDescription6_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string10_t)
D dim(DIM_A29)
*
*
D s1_RpgArrayOfDescription7_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string15_t)
D dim(DIM_A33)
*
*
D s1_RpgArrayOfDescription8_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string13_t)
D dim(DIM_A39)
*
*
D s1_RpgArrayOfDescription9_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string14_t)
D dim(DIM_A46)
*
*
D s1_RpgArrayOfMaterialClass_t...
D DS template
D qualified
D x 10I 0
D MaterialClassType...
D likeds(s1_MaterialClassType_t)
D dim(DIM_A4)
*
*
D s1_RpgArrayOfMaterialClassID_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string7_t)
D dim(DIM_A17)
*
*
D s1_RpgArrayOfMaterialClassProperty_t...
D DS template
D qualified
D x 10I 0
D MaterialClassPropertyType...
D likeds(s1_MaterialClassPropertyTyp...
D e_t)
D dim(DIM_A7)
*
*
D s1_RpgArrayOfMaterialDefinition_t...
D DS template
D qualified
D x 10I 0
D MaterialDefinitionType...
D likeds(s1_MaterialDefinitionType_t)
D dim(DIM_A14)
*
*
D s1_RpgArrayOfMaterialDefinitionID_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string3_t)
D dim(DIM_A13)
*
*
D s1_RpgArrayOfMaterialDefinitionProperty_t...
D DS template
D qualified
D x 10I 0
D MaterialDefinitionPropertyType...
D likeds(s1_MaterialDefinitionProper...
D tyType_t)
D dim(DIM_A18)
*
*
D s1_RpgArrayOfMaterialLot_t...
D DS template
D qualified
D x 10I 0
D MaterialLotType...
D likeds(s1_MaterialLotType_t)
D dim(DIM_A24)
*
*
D s1_RpgArrayOfMaterialLotID_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string8_t)
D dim(DIM_A23)
*
*
D s1_RpgArrayOfMaterialLotProperty_t...
D DS template
D qualified
D x 10I 0
D MaterialLotPropertyType...
D likeds(s1_MaterialLotPropertyType_t)
D dim(DIM_A27)
*
*
D s1_RpgArrayOfMaterialSubLot_t...
D DS template
D qualified
D x 10I 0
D MaterialSubLotType...
D likeds(s1_MaterialSubLotType_t)
D dim(DIM_A43)
*
*
D s1_RpgArrayOfMaterialSubLot1_t...
D DS template
D qualified
D x 10I 0
D MaterialSubLotType...
D likeds(s1_MaterialSubLotType_t)
D dim(DIM_A37)
*
*
D s1_RpgArrayOfQuantity_t...
D DS template
D qualified
D x 10I 0
D QuantityType likeds(s1_QuantityType_t)
D dim(DIM_A42)
*
*
D s1_RpgArrayOfQuantity1_t...
D DS template
D qualified
D x 10I 0
D QuantityType likeds(s1_QuantityType_t)
D dim(DIM_A40)
*
*
D s1_RpgArrayOfQAMaterialTestSpecification_t...
D DS template
D qualified
D x 10I 0
D QAMaterialTestSpecificationType...
D likeds(s1_QAMaterialTestSpecificat...
D ionType_t)
D dim(DIM_A44)
*
*
D s1_RpgArrayOfQAMaterialTestSpecificationID_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string1_t)
D dim(DIM_A10)
*
*
D s1_RpgArrayOfQAMaterialTestSpecificationID1_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string5_t)
D dim(DIM_A21)
*
*
D s1_RpgArrayOfQAMaterialTestSpecificationID2_t...
D DS template
D qualified
D x 10I 0
D string like(xsd_string_of_string11_t)
D dim(DIM_A30)
*
*
D s1_RpgArrayOfResult_t...
D DS template
D qualified
D x 10I 0
D ResultType likeds(s1_ResultType_t)
D dim(DIM_A34)
*
*
D s1_RpgArrayOfTestedMaterialClassProperty_t...
D DS template
D qualified
D x 10I 0
D TestedMaterialClassPropertyType...
D likeds(s1_TestedMaterialClassPrope...
D rtyType_t)
D dim(DIM_A47)
*
*
D s1_RpgArrayOfTestedMaterialDefinitionProperty_t...
D DS template
D qualified
D x 10I 0
D TestedMaterialDefinitionPropertyType...
D likeds(s1_TestedMaterialDefinition...
D PropertyType_t)
D dim(DIM_A49)
*
*
D s1_RpgArrayOfTestedMaterialLotProperty_t...
D DS template
D qualified
D x 10I 0
D TestedMaterialLotPropertyType...
D likeds(s1_TestedMaterialLotPropert...
D yType_t)
D dim(DIM_A51)
*
*
D s1_RpgArrayOfTestResult_t...
D DS template
D qualified
D x 10I 0
D TestResultType...
D likeds(s1_TestResultType_t)
D dim(DIM_A31)
*
*
D s1_RpgArrayOfValue_t...
D DS template
D qualified
D x 10I 0
D ValueType likeds(s1_ValueType_t)
D dim(DIM_A11)
*
*
D s1_RpgArrayOfValue1_t...
D DS template
D qualified
D x 10I 0
D ValueType likeds(s1_ValueType_t)
D dim(DIM_A22)
*
*
D s1_RpgArrayOfValue2_t...
D DS template
D qualified
D x 10I 0
D ValueType likeds(s1_ValueType_t)
D dim(DIM_A36)
*
*
D s1_TestedMaterialClassPropertyType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny14_t)
D MaterialClassID...
D 128A varying
D PropertyID 128A varying
*
*
D s1_TestedMaterialDefinitionPropertyType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny15_t)
D MaterialDefinitionID...
D 128A varying
D PropertyID 128A varying
*
*
D s1_TestedMaterialLotPropertyType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny16_t)
D MaterialLotID 128A varying
D PropertyID 128A varying
*
*
D s1_TestResultType_t...
D DS template
D qualified
D Any likeds(s1_RpgArrayOfAny9_t)
D Description likeds(s1_RpgArrayOfDescription7_t)
D ExpirationTime...
D Z
D ID 128A varying
D Result likeds(s1_RpgArrayOfResult_t)
D TestDateTime Z
*
*
D s1_ValueType_t DS template
D qualified
D Any likeds(s1_RpgArrayOfAny4_t)
D DataType like(s1_DataType1Type_t)
D Key 128A varying
D UnitOfMeasure 128A varying
D ValueString 128A varying
*
D xsd_string_of_string_t...
D S 128A varying
D template
D xsd_string_of_string1_t...
D S 128A varying
D template
D xsd_string_of_string10_t...
D S 128A varying
D template
D xsd_string_of_string11_t...
D S 128A varying
D template
D xsd_string_of_string12_t...
D S 128A varying
D template
D xsd_string_of_string13_t...
D S 128A varying
D template
D xsd_string_of_string14_t...
D S 128A varying
D template
D xsd_string_of_string15_t...
D S 128A varying
D template
D xsd_string_of_string2_t...
D S 128A varying
D template
D xsd_string_of_string3_t...
D S 128A varying
D template
D xsd_string_of_string4_t...
D S 128A varying
D template
D xsd_string_of_string5_t...
D S 128A varying
D template
D xsd_string_of_string6_t...
D S 128A varying
D template
D xsd_string_of_string7_t...
D S 128A varying
D template
D xsd_string_of_string8_t...
D S 128A varying
D template
D xsd_string_of_string9_t...
D S 128A varying
D template
*
* Public prototypes
*
* Web service: Returns the endpoint of the Web service
D MaterialInformationSoap_Port_getEndpoint...
D PR 32767A varying
D extproc('+
D MaterialInformationSoap+
D _Port_getEndpoint+
D ')
*
* Web service: Sets the endpoint of the Web service
D MaterialInformationSoap_Port_setEndpoint...
D PR
D extproc('+
D MaterialInformationSoap+
D _Port_setEndpoint+
D ')
D i_url 32767A const varying options(*varsize)
*
* Web service: Returns the host name of the Web Service endpoint
D MaterialInformationSoap_Endpoint_getHost...
D PR 32767A varying
D extproc('+
D MaterialInformationSoap+
D _Endpoint_getHost+
D ')
*
* Web service: Sets the host name of the Web service endpoint
D MaterialInformationSoap_Endpoint_setHost...
D PR
D extproc('+
D MaterialInformationSoap+
D _Endpoint_setHost+
D ')
D i_url 32767A const varying options(*varsize)
*
* Web service: Returns the port of the Web Service endpoint
D MaterialInformationSoap_Endpoint_getPort...
D PR 10I 0
D extproc('+
D MaterialInformationSoap+
D _Endpoint_getPort+
D ')
*
* Web service: Sets the port of the Web service endpoint
D MaterialInformationSoap_Endpoint_setPort...
D PR
D extproc('+
D MaterialInformationSoap+
D _Endpoint_setPort+
D ')
D i_port 10I 0 const
*
* Web service: Sets the proxy server to use for the connection
D MaterialInformationSoap_Port_setHttpProxy...
D PR
D extproc('+
D MaterialInformationSoap+
D _Port_setHttpProxy+
D ')
D i_server 256A const
D i_port 10I 0 const
*
* Web service: Returns the proxy server to use for the connection
D MaterialInformationSoap_Port_getHttpProxy...
D PR likeds(wsdl_proxy_t )
D extproc('+
D MaterialInformationSoap+
D _Port_getHttpProxy+
D ')
*
* Web service: Enables/disables the debug log of HTTP API
D MaterialInformationSoap_Port_setHttpDebug...
D PR
D extproc('+
D MaterialInformationSoap+
D _Port_setHttpDebug+
D ')
D i_status N const
D i_fileName 500A const varying options(*nopass)
*
* Web service: Returns the HTTP API debug settings
D MaterialInformationSoap_Port_getHttpDebug...
D PR likeds(wsdl_httpDebug_t )
D extproc('+
D MaterialInformationSoap+
D _Port_getHttpDebug+
D ')
*
* Web service: Sets the CCSID used for POST data.
D MaterialInformationSoap_Port_setPostCcsid...
D PR
D extproc('+
D MaterialInformationSoap+
D _Port_setPostCcsid+
D ')
D i_post_ccsid 10I 0 const
*
* Web service: Returns the CCSID used for POST data.
D MaterialInformationSoap_Port_getPostCcsid...
D PR 10I 0
D extproc('+
D MaterialInformationSoap+
D _Port_getPostCcsid+
D ')
*
* Web service: Clears all error information
D MaterialInformationSoap_Port_clearErrors...
D PR
D extproc('+
D MaterialInformationSoap+
D _Port_clearErrors+
D ')
D io_errors likeds(wsdl_errors_t )
*
* Web service: Sets error information
D MaterialInformationSoap_Port_setErrors...
D PR
D extproc('+
D MaterialInformationSoap+
D _Port_setErrors+
D ')
D i_errors const likeds(wsdl_errors_t )
*
* Http: Returns cTrue in case of an error, else cFalse.
D MaterialInformationSoap_Port_isError...
D PR N
D extproc('+
D MaterialInformationSoap+
D _Port_isError+
D ')
*
* Http: Returns the last HTTP error (code) that occurred.
D MaterialInformationSoap_HttpError_getCode...
D PR like(wsdl_http_ErrorNo_t )
D extproc('+
D MaterialInformationSoap+
D _HttpError_getCode+
D ')
*
* Http: Returns the last HTTP error (text) that occurred.
D MaterialInformationSoap_HttpError_getText...
D PR like(wsdl_http_ErrorText_t)
D extproc('+
D MaterialInformationSoap+
D _HttpError_getText+
D ')
*
* Soap: Returns the last SOAP error (code) that occurred.
D MaterialInformationSoap_SoapError_getCode...
D PR like(wsdl_soap_faultcode_t )
D extproc('+
D MaterialInformationSoap+
D _SoapError_getCode+
D ')
*
* Soap: Returns the last SOAP error (text) that occurred.
D MaterialInformationSoap_SoapError_getText...
D PR like(wsdl_soap_faultstring_t)
D extproc('+
D MaterialInformationSoap+
D _SoapError_getText+
D ')
*
* Soap: Returns the last XML error (code) that occurred.
D MaterialInformationSoap_XmlError_getCode...
D PR like(wsdl_xml_errorNo_t )
D extproc('+
D MaterialInformationSoap+
D _XmlError_getCode+
D ')
*
* Soap: Returns the last XML error (text) that occurred.
D MaterialInformationSoap_XmlError_getText...
D PR like(wsdl_xml_ErrorText_t )
D extproc('+
D MaterialInformationSoap+
D _XmlError_getText+
D ')
*
* Registers an user callback procedure, that is called whenever
* a web service requires user authentification.
D MaterialInformationSoap_Port_registerLoginCallback...
D PR
D extproc('+
D MaterialInformationSoap+
D _Port_registerLoginCallback+
D ')
D i_pLoginProc * value procptr
*
* Returns *ON if a login procedures has been registered.
D MaterialInformationSoap_Port_hasLoginCallback...
D PR N
D extproc('+
D MaterialInformationSoap+
D _Port_hasLoginCallback+
D ')
*
* Login to proxy server or web service.
D MaterialInformationSoap_Port_login...
D PR 10I 0
D extproc('+
D MaterialInformationSoap+
D _Port_login+
D ')
D i_http_err 10I 0 value
D i_numAttempts 10I 0 value
*
* Returns the name of the web service port.
D MaterialInformationSoap_Port_getName...
D PR 512A varying
D extproc('+
D MaterialInformationSoap+
D _Port_getName+
D ')
*
* Returns the UUID of the web service port.
D MaterialInformationSoap_Port_getUuid...
D PR like(wsdl_uuid_t )
D extproc('+
D MaterialInformationSoap+
D _Port_getUuid+
D ')
*
* Adds an attachments to the list of attachments.
D MaterialInformationSoap_Attachments_put...
D PR
D extproc('+
D MaterialInformationSoap+
D _Attachments_put+
D ')
D i_attachmentID...
D const like(wsdl_attachmentID_t )
D i_fileName const like(wsdl_path_t )
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
* Returns the file name of the attachment that is associated to
* a given content ID.
D MaterialInformationSoap_Attachments_get...
D PR like(wsdl_path_t )
D extproc('+
D MaterialInformationSoap+
D _Attachments_get+
D ')
D i_attachmentID...
D const like(wsdl_attachmentID_t )
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
* Returns the file name of the attachment that is associated to
* a given index.
D MaterialInformationSoap_Attachments_getAtPos...
D PR likeds(wsdl_attachment_t )
D extproc('+
D MaterialInformationSoap+
D _Attachments_getAtPos+
D ')
D i_index 10I 0 const
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
* Returns the number of attachments that were downloaded with the
* last call to the web service.
D MaterialInformationSoap_Attachments_getNumE...
D PR 10I 0
D extproc('+
D MaterialInformationSoap+
D _Attachments_getNumE+
D ')
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
* Removes all attachments from the list of attachments of this web service.
D MaterialInformationSoap_Attachments_removeAll...
D PR
D extproc('+
D MaterialInformationSoap+
D _Attachments_removeAll+
D ')
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
* Specifies the name of the folder where to put attachments in.
D MaterialInformationSoap_Attachments_setFolder...
D PR
D extproc('+
D MaterialInformationSoap+
D _Attachments_setFolder+
D ')
D i_folder const like(wsdl_pathLong_t )
*
* Returns the name of the folder where attachments are stored.
D MaterialInformationSoap_Attachments_getFolder...
D PR like(wsdl_pathLong_t )
D extproc('+
D MaterialInformationSoap+
D _Attachments_getFolder+
D ')
*
/ENDIF
/IF DEFINED(PROTOTYPE_WS0001)
/EOF
/ENDIF
* ---------------------------------------------------------------------
*
* ------------------------------------
* Imported prototypes
* ------------------------------------
CPY /COPY QBASICS1,PBASICS1 Tools/400 Runtime Library
CPY /COPY QRPGLESRC,HTTPAPI_H HTTP-API Service Program
*
CPY /COPY QWSDL2RPG,PWSDL2R71 WSDL2RPG: HTTP Debug Log
CPY /COPY QWSDL2RPG,PWSDL2R89 WSDL2RPG: List of Attachments
*
* ------------------------------------
* Internal prototypes
* ------------------------------------
*
D getEndpoint...
D PR 32767A varying
D extproc('+
D getEndpoint+
D ')
*
D setEndpoint...
D PR
D extproc('+
D setEndpoint+
D ')
D i_url 32767A const varying options(*varsize)
*
* ------------------------------------
* Global fields & constants
* ------------------------------------
*
* Web service port name
D cWEB_SERVICE_PORT_NAME...
D C 'MaterialInformationSoap'
*
* UUID of the web service as generated by WSDL2RPG
D cWEB_SERVICE_UUID...
D C '1CDA6801B4681959AEC00004AC12B572'
*
* Default and current attachment folder
D cATTACHMENT_FOLDER...
D C '/tmp/attachments/'
*
* Default POST data CCSID (1208 = UTF-8)
D cPOST_DATA_CCSID...
D C 1208
*
* Web service endpoint as specified in the WSDL file.
D cURL C 'http://vega-facts01/FactsWebService+
D s/MaterialInformation/MaterialInform+
D ation.asmx'
*
* Web service endpoint
D g_url S 32767A varying inz(cURL)
*
* Proxy server to use
D g_proxy DS likeds(wsdl_proxy_t ) inz
*
* HTTPAPI debug settings
D g_httpDebug DS likeds(wsdl_httpDebug_t ) inz
*
* POST data CCSID (1208 = UTF-8)
D g_post_ccsid...
D S 10I 0 inz(cPOST_DATA_CCSID)
*
D g_attachmentFolder...
D S like(wsdl_pathLong_t )
D inz(cATTACHMENT_FOLDER)
*
* Web service error information
D g_errors DS likeds(wsdl_errors_t ) inz
*
* User callback to supply login information
* Returns WSDL_SUCCESS if successful, WSDL_ERROR upon error.
D g_getLoginDataImpl...
D S * procptr inz
*
* User callback to supply login information
* Returns WSDL_SUCCESS if successful, WSDL_ERROR upon error.
*
* Parameter description:
* i_authType Authentication type:
* WSDL_AUTH_TYPE_HTTP - HTTP server.
* WSDL_AUTH_TYPE_PROXY - Proxy server.
* i_realm Authentication realm.
* i_numAttempts Number of login attempts.
* o_user UserName to use.
* o_password Password to use.
*
D MaterialInformationSoap_supplyLoginData...
D PR 10I 0
D extproc('+
D MaterialInformationSoap+
D _supplyLoginData+
D ')
D i_authType 14A const varying
D i_realm 126A const varying
D i_numAttempts 10I 0 const
D o_user 50A varying
D o_password 50A varying
*
* =====================================================================
* Web service: Returns the endpoint of the Web service
* =====================================================================
P MaterialInformationSoap_Port_getEndpoint...
P B export
*
D MaterialInformationSoap_Port_getEndpoint...
D PI 32767A varying
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return getEndpoint();
/end-free
*
P MaterialInformationSoap_Port_getEndpoint...
P E
*
* =====================================================================
* Web service: Sets the endpoint of the Web service
* =====================================================================
P MaterialInformationSoap_Port_setEndpoint...
P B export
*
D MaterialInformationSoap_Port_setEndpoint...
D PI
D i_url 32767A const varying options(*varsize)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
setEndpoint(%subst(i_url: 1: %len(i_url)));
return;
/end-free
*
P MaterialInformationSoap_Port_setEndpoint...
P E
*
* =====================================================================
* Web service: Returns the host name of the Web Service endpoint
* =====================================================================
P MaterialInformationSoap_Endpoint_getHost...
P B export
*
D MaterialInformationSoap_Endpoint_getHost...
D PI 32767A varying
*
D tmpUrl S like(url_t ) inz
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
tmpUrl = URL_new(getEndpoint());
return URL_getHost(tmpUrl);
/end-free
*
P MaterialInformationSoap_Endpoint_getHost...
P E
*
* =====================================================================
* Web service: Sets the host name of the Web service endpoint
* =====================================================================
P MaterialInformationSoap_Endpoint_setHost...
P B export
*
D MaterialInformationSoap_Endpoint_setHost...
D PI
D i_host 32767A const varying options(*varsize)
*
D tmpUrl S like(url_t ) inz
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
tmpUrl = URL_new(getEndpoint());
URL_setHost(tmpUrl: %subst(i_host: 1: %len(i_host)));
setEndpoint(URL_toString(tmpUrl));
return;
/end-free
*
P MaterialInformationSoap_Endpoint_setHost...
P E
*
* =====================================================================
* Web service: Returns the port of the Web Service endpoint
* =====================================================================
P MaterialInformationSoap_Endpoint_getPort...
P B export
*
D MaterialInformationSoap_Endpoint_getPort...
D PI 10I 0
*
D tmpUrl S like(url_t ) inz
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
tmpUrl = URL_new(getEndpoint());
return URL_getPort(tmpUrl);
/end-free
*
P MaterialInformationSoap_Endpoint_getPort...
P E
*
* =====================================================================
* Web service: Sets the port of the Web service endpoint
* =====================================================================
P MaterialInformationSoap_Endpoint_setPort...
P B export
*
D MaterialInformationSoap_Endpoint_setPort...
D PI
D i_port 10I 0 const
*
D tmpUrl S like(url_t ) inz
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
tmpUrl = URL_new(getEndpoint());
URL_setPort(tmpUrl: i_port);
setEndpoint(URL_toString(tmpUrl));
return;
/end-free
*
P MaterialInformationSoap_Endpoint_setPort...
P E
*
* =====================================================================
* Web service: Sets the proxy server to use for the connection
* =====================================================================
P MaterialInformationSoap_Port_setHttpProxy...
P B export
*
D MaterialInformationSoap_Port_setHttpProxy...
D PI
D i_server 256A const
D i_port 10I 0 const
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
g_proxy.server = i_server;
B01 if (g_proxy.server = '');
g_proxy.port = 0;
X01 else;
g_proxy.port = i_port;
E01 endif;
return;
/end-free
*
P MaterialInformationSoap_Port_setHttpProxy...
P E
*
* =====================================================================
* Web service: Returns the proxy server to use for the connection
* =====================================================================
P MaterialInformationSoap_Port_getHttpProxy...
P B export
*
D MaterialInformationSoap_Port_getHttpProxy...
D PI likeds(wsdl_proxy_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_proxy;
/end-free
*
P MaterialInformationSoap_Port_getHttpProxy...
P E
*
* =====================================================================
* Web service: Enables/disables the debug log of HTTP API
* =====================================================================
P MaterialInformationSoap_Port_setHttpDebug...
P B export
*
D MaterialInformationSoap_Port_setHttpDebug...
D PI
D i_status N const
D i_fileName 500A const varying options(*nopass)
*
* Parameter positions
D p_fileName C 2
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
g_httpDebug.status = i_status;
B01 if (%parms() >= p_fileName);
g_httpDebug.fileName = i_fileName;
X01 else;
g_httpDebug.fileName = HTTP_API_DEFAULT_LOG_FILE;
E01 endif;
B01 if (i_status);
http_DebugLog_open(g_httpDebug.fileName);
X01 else;
http_DebugLog_close();
E01 endif;
return;
/end-free
*
P MaterialInformationSoap_Port_setHttpDebug...
P E
*
* =====================================================================
* Web service: Returns the HTTP API debug settings
* =====================================================================
P MaterialInformationSoap_Port_getHttpDebug...
P B export
*
D MaterialInformationSoap_Port_getHttpDebug...
D PI likeds(wsdl_httpDebug_t )
*
* Parameter positions
D p_fileName C 2
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
B01 if (g_httpDebug.fileName = '');
g_httpDebug.fileName = HTTP_API_DEFAULT_LOG_FILE;
E01 endif;
return g_httpDebug;
/end-free
*
P MaterialInformationSoap_Port_getHttpDebug...
P E
*
* =====================================================================
* Web service: Sets the CCSID used for POST data.
* =====================================================================
P MaterialInformationSoap_Port_setPostCcsid...
P B export
*
D MaterialInformationSoap_Port_setPostCcsid...
D PI
D i_post_ccsid 10I 0 const
*
* Parameter positions
D p_fileName C 2
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
g_post_ccsid = i_post_ccsid;
return;
/end-free
*
P MaterialInformationSoap_Port_setPostCcsid...
P E
*
* =====================================================================
* Web service: Returns the CCSID used for POST
* =====================================================================
P MaterialInformationSoap_Port_getPostCcsid...
P B export
*
D MaterialInformationSoap_Port_getPostCcsid...
D PI 10I 0
*
* Parameter positions
D p_fileName C 2
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_post_ccsid;
/end-free
*
P MaterialInformationSoap_Port_getPostCcsid...
P E
*
* =====================================================================
* Web service: Clears all error information.
* =====================================================================
P MaterialInformationSoap_Port_clearErrors...
P B export
*
D MaterialInformationSoap_Port_clearErrors...
D PI
D io_errors likeds(wsdl_errors_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
clear g_errors;
g_errors.errType = WSDL_HTTP_SUCCESS;
io_errors = g_errors;
return;
/end-free
*
P MaterialInformationSoap_Port_clearErrors...
P E
*
* =====================================================================
* Web service: Sets error information of last service call.
* =====================================================================
P MaterialInformationSoap_Port_setErrors...
P B export
*
D MaterialInformationSoap_Port_setErrors...
D PI
D i_errors const likeds(wsdl_errors_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
g_errors = i_errors;
return;
/end-free
*
P MaterialInformationSoap_Port_setErrors...
P E
*
* =====================================================================
* Http: Returns the last HTTP error (code) that occurred.
* =====================================================================
P MaterialInformationSoap_Port_isError...
P B export
*
D MaterialInformationSoap_Port_isError...
D PI N
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
B01 if (g_errors.errType = WSDL_HTTP_SUCCESS);
return cFalse;
X01 else;
return cTrue;
E01 endif;
/end-free
*
P MaterialInformationSoap_Port_isError...
P E
*
* =====================================================================
* Http: Returns the last HTTP error (code) that occurred.
* =====================================================================
P MaterialInformationSoap_HttpError_getCode...
P B export
*
D MaterialInformationSoap_HttpError_getCode...
D PI like(wsdl_http_ErrorNo_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_errors.httpError.no;
/end-free
*
P MaterialInformationSoap_HttpError_getCode...
P E
*
* =====================================================================
* Http: Returns the last HTTP error (text) that occurred.
* =====================================================================
P MaterialInformationSoap_HttpError_getText...
P B export
*
D MaterialInformationSoap_HttpError_getText...
D PI like(wsdl_http_ErrorText_t)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_errors.httpError.text;
/end-free
*
P MaterialInformationSoap_HttpError_getText...
P E
*
* =====================================================================
* Soap: Returns the last SOAP error (code) that occurred.
* =====================================================================
P MaterialInformationSoap_SoapError_getCode...
P B export
*
D MaterialInformationSoap_SoapError_getCode...
D PI like(wsdl_soap_faultcode_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_errors.soapFault.code;
/end-free
*
P MaterialInformationSoap_SoapError_getCode...
P E
*
* =====================================================================
* Soap: Returns the last SOAP error (text) that occurred.
* =====================================================================
P MaterialInformationSoap_SoapError_getText...
P B export
*
D MaterialInformationSoap_SoapError_getText...
D PI like(wsdl_soap_faultstring_t)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_errors.soapFault.string;
/end-free
*
P MaterialInformationSoap_SoapError_getText...
P E
*
* =====================================================================
* XML: Returns the last XML error (code) that occurred.
* =====================================================================
P MaterialInformationSoap_XmlError_getCode...
P B export
*
D MaterialInformationSoap_XmlError_getCode...
D PI like(wsdl_xml_ErrorNo_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_errors.xmlError.code;
/end-free
*
P MaterialInformationSoap_XmlError_getCode...
P E
*
* =====================================================================
* XML: Returns the last XML error (text) that occurred.
* =====================================================================
P MaterialInformationSoap_XmlError_getText...
P B export
*
D MaterialInformationSoap_XmlError_getText...
D PI like(wsdl_xml_ErrorText_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_errors.xmlError.text;
/end-free
*
P MaterialInformationSoap_XmlError_getText...
P E
*
* =====================================================================
* Registers an user callback procedure, that is called whenever
* a web service requires user authentification.
* =====================================================================
P MaterialInformationSoap_Port_registerLoginCallback...
P B export
*
D MaterialInformationSoap_Port_registerLoginCallback...
D PI
D D i_pLoginProc * value procptr
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
g_getLoginDataImpl = i_pLoginProc;
return;
/end-free
*
P MaterialInformationSoap_Port_registerLoginCallback...
P E
*
* =====================================================================
* Returns *ON if a login procedures has been registered.
* =====================================================================
P MaterialInformationSoap_Port_hasLoginCallback...
P B export
*
D MaterialInformationSoap_Port_hasLoginCallback...
D PI N
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
B01 if (g_getLoginDataImpl <> *NULL);
return *ON;
E01 endif;
return *OFF;
/end-free
*
P MaterialInformationSoap_Port_hasLoginCallback...
P E
*
* =====================================================================
* Login to proxy server or web service.
* =====================================================================
P MaterialInformationSoap_Port_login...
P B export
*
D MaterialInformationSoap_Port_login...
D PI 10I 0
D i_http_err 10I 0 value
D i_numAttempts 10I 0 value
*
* Return value
D rc S 10I 0 inz
*
* Helper fields
D basic S N inz
D digest S N inz
D realm S 124A inz
D authType S 14A inz varying
D userid S 50A inz varying
D password S 50A inz varying
*
D getLoginDataImpl...
D PR 10I 0
D extproc(g_getLoginDataImpl)
D i_authType 14A const varying
D i_realm 126A const varying
D i_numAttempts 10I 0 const
D o_user 50A varying
D o_password 50A varying
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
B01 if (i_http_err = HTTP_NDAUTH);
http_getauth(basic: digest: realm);
authType = WSDL_AUTH_TYPE_HTTP;
X01 else;
http_proxy_getauth(basic: realm);
authType = WSDL_AUTH_TYPE_PROXY;
E01 endif;
rc = getLoginDataImpl(authType: realm
: i_numAttempts: userid: password);
B01 if (rc <> 1);
userid = '';
password = '';
return rc;
E01 endif;
B01 if (i_http_err = HTTP_NDAUTH);
B02 if (digest);
http_setAuth(HTTP_AUTH_MD5_DIGEST
: userid: password);
X02 else;
http_setAuth(HTTP_AUTH_BASIC
: userid: password);
E02 endif;
X01 else;
B02 if (digest);
http_proxy_setAuth(HTTP_AUTH_MD5_DIGEST
: userid: password);
X02 else;
http_proxy_setAuth(HTTP_AUTH_BASIC
: userid: password);
E02 endif;
E01 endif;
userid = '';
password = '';
return rc;
/end-free
*
P MaterialInformationSoap_Port_login...
P E
*
* =====================================================================
* Returns the name of the web service port.
* =====================================================================
P MaterialInformationSoap_Port_getName...
P B export
*
D MaterialInformationSoap_Port_getName...
D PI like(wsdl_portName_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return cWEB_SERVICE_PORT_NAME;
/end-free
*
P MaterialInformationSoap_Port_getName...
P E
*
* =====================================================================
* Returns the UUID of the web service port.
* =====================================================================
P MaterialInformationSoap_Port_getUuid...
P B export
*
D MaterialInformationSoap_Port_getUuid...
D PI like(wsdl_uuid_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return cWEB_SERVICE_UUID;
/end-free
*
P MaterialInformationSoap_Port_getUuid...
P E
*
* =====================================================================
* Adds an attachments to the list of attachments.
* =====================================================================
P MaterialInformationSoap_Attachments_put...
P B export
*
D MaterialInformationSoap_Attachments_put...
D PI
D i_attachmentID...
D const like(wsdl_attachmentID_t )
D i_fileName const like(wsdl_path_t )
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
D p_uuid C 3
*
D uuid S like(i_uuid ) inz
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
B01 if (%parms() >= p_uuid);
uuid = i_uuid;
X01 else;
uuid = MaterialInformationSoap_Port_getUuid();
E01 endif;
Attachments_put(Attachments_theInstance()
: uuid
: i_attachmentID
: i_fileName);
return;
/end-free
*
P MaterialInformationSoap_Attachments_put...
P E
*
* =====================================================================
* Returns the file name of the attachment that is associated to
* a given content ID.
* =====================================================================
P MaterialInformationSoap_Attachments_get...
P B export
*
D MaterialInformationSoap_Attachments_get...
D PI like(wsdl_path_t )
D i_attachmentID...
D const like(wsdl_attachmentID_t )
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
D p_uuid C 2
*
D uuid S like(i_uuid ) inz
D fileName S like(wsdl_path_t ) inz
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
B01 if (%parms() >= p_uuid);
uuid = i_uuid;
X01 else;
uuid = MaterialInformationSoap_Port_getUuid();
E01 endif;
fileName = Attachments_get(Attachments_theInstance()
: uuid
: i_attachmentID);
return fileName;
/end-free
*
P MaterialInformationSoap_Attachments_get...
P E
*
* =====================================================================
* Returns the file name of the attachment that is associated to
* a given index.
* =====================================================================
P MaterialInformationSoap_Attachments_getAtPos...
P B export
*
D MaterialInformationSoap_Attachments_getAtPos...
D PI likeds(wsdl_attachment_t )
D i_index 10I 0 const
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
D p_uuid C 2
*
D uuid S like(i_uuid ) inz
D attachment DS likeds(wsdl_attachment_t ) inz
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
B01 if (%parms() >= p_uuid);
uuid = i_uuid;
X01 else;
uuid = MaterialInformationSoap_Port_getUuid();
E01 endif;
attachment = Attachments_getAtPos(Attachments_theInstance()
: uuid
: i_index);
return attachment;
/end-free
*
P MaterialInformationSoap_Attachments_getAtPos...
P E
*
* =====================================================================
* Returns the number of attachments that were downloaded with
* the last call of the web service.
* =====================================================================
P MaterialInformationSoap_Attachments_getNumE...
P B export
*
D MaterialInformationSoap_Attachments_getNumE...
D PI 10I 0
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
D p_uuid C 1
*
D uuid S like(i_uuid ) inz
D numE S 10I 0 inz
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
B01 if (%parms() >= p_uuid);
uuid = i_uuid;
X01 else;
uuid = MaterialInformationSoap_Port_getUuid();
E01 endif;
numE = Attachments_getNumAttachments(
Attachments_theInstance(): uuid);
return numE;
/end-free
*
P MaterialInformationSoap_Attachments_getNumE...
P E
*
* =====================================================================
* Removes all attachments from the list of attachments of
* this web service.
* =====================================================================
P MaterialInformationSoap_Attachments_removeAll...
P B export
*
D MaterialInformationSoap_Attachments_removeAll...
D PI
D i_uuid const like(wsdl_uuid_t )
D options(*nopass)
*
D p_uuid C 1
*
D uuid S like(i_uuid ) inz
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
B01 if (%parms() >= p_uuid);
uuid = i_uuid;
X01 else;
uuid = MaterialInformationSoap_Port_getUuid();
E01 endif;
Attachments_removeAll(Attachments_theInstance(): uuid);
return;
/end-free
*
P MaterialInformationSoap_Attachments_removeAll...
P E
*
* =====================================================================
* Specifies the name of the folder where to put attachments in.
* =====================================================================
P MaterialInformationSoap_Attachments_setFolder...
P B export
*
D MaterialInformationSoap_Attachments_setFolder...
D PI
D i_folder const like(wsdl_pathLong_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
g_attachmentFolder = i_folder;
g_attachmentFolder = %trimR(%xlate('\': '/': g_attachmentFolder));
B01 if (not f_endsWith('/': g_attachmentFolder));
g_attachmentFolder = g_attachmentFolder + '/';
E01 endif;
return;
/end-free
*
P MaterialInformationSoap_Attachments_setFolder...
P E
*
* =====================================================================
* Returns the name of the folder where attachments are stored.
* =====================================================================
P MaterialInformationSoap_Attachments_getFolder...
P B export
*
D MaterialInformationSoap_Attachments_getFolder...
D PI like(wsdl_pathLong_t )
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_attachmentFolder;
/end-free
*
P MaterialInformationSoap_Attachments_getFolder...
P E
*
* =====================================================================
* Internal procedure to get the endpoint.
* =====================================================================
P getEndpoint...
P B
*
D getEndpoint...
D PI 32767A varying
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
return g_url;
/end-free
*
P getEndpoint...
P E
*
* =====================================================================
* Internal procedure to set the endpoint.
* =====================================================================
P setEndpoint...
P B
*
D setEndpoint...
D PI
D i_url 32767A const varying options(*varsize)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/free
g_url = %subst(i_url: 1: %len(i_url));
/end-free
*
P setEndpoint...
P E
*
-----------------------------------------------------------------------
This is the FTPAPI mailing list. To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------