Calling a procedure in a service program that returns a char(6) value
Luca Giammattei <[email protected]> Wed, 13 May 2026 20:03:35 +0200
| Newsgroups | gmane.comp.lang.as400.java |
|---|---|
| Message-ID | <CABj10vXBGn5A=2V-bLU8_Kh77zROpuN_mOQN6W+4sOzE2r1YQQ@mail.gmail.com> |
Hi everyone, I'm stuck with what I thought was a small problem but can't
seem to resolve.
From a Java class running on a Windows server, I need to:
1. connect to a certain IBM i power server; (done)
2. set a specific library list with a given custom command; (done)
3. call a service program procedure that returns a char(6) value. (And here
I'm stuck.)
Despite several attempts, the procedure, assuming it's actually executed,
doesn't produce any results.
This is the RPG prototype of the procedure:
dcl-pr RtvSupplierCode Char(6) EXTPROC('RtvSupplierCode');
codMec zoned(7:0) const options(*omit:*nopass);
vatCode char(16) const options(*omit:*nopass);
idColCode packed(13:0) const options(*omit:*nopass);
end-pr;
The returned char(6) field may also be empty.
The three parameters are alternative; those not passed must be marked with
the *OMIT placeholder. The possible values for the test are:
codMec=some numbers or vatCode=some numbers but as a string or
idColCode=again some numbers
Normally, the call in rpgile would be
supplierCode = RtvSupplierCode(1236547 : *omit : *omit);
supplierCode = RtvSupplierCode (*omit : '123456789012345' : *omit);
supplierCode = RtvSupplierCode (*omit : *omit : 12345);
Now on my class It just doesn't seem to work.
Has anyone ever used this call?
Does anyone have any working code examples I can try?
Thanks in advance for your attention.
--
This is the Java Programming on and around the IBM i (JAVA400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/java400-l
or email: JAVA400-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org
Before posting, please take a moment to review the archives
at https://archive.midrange.com/java400-l.