Re: externalType type HostProgram to access an iseries program -- EGL-I

Hi Tim, I created a RPG program with a similar interface, it worked for
me.

Can you send me the prototype or parmlist hat you are using then I try to
recreate your exact scenario.

Claus Weiss Visual AD tools, email: weiss@xxxxxxxxxx
Dept XF6 IBM Canada Lab tie 313-3987 Phone(905)413-3987 FAX(905)413-4850
Greetings from Toronto
Rational Software System i - Ecosystem Team

"tim" <tim2006@xxxxxxxxxxx>
Sent by: egl-i-bounces@xxxxxxxxxxxx
01/09/2009 10:01 AM
Please respond to
EGL on and around the IBM i <egl-i@xxxxxxxxxxxx>

To
"'EGL on and around the IBM i'" <egl-i@xxxxxxxxxxxx>
cc

Subject
Re: [EGL-i] externalType type HostProgram to access an iseries program

Will,

I have done that already and created the wsdl. When I try testing the wsdl
using "Web Services Explorer", I get the following: (FYI, I have tested
other wsdl's with WSE and they worked fine)

SOAP Request
- <soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/";
xmlns:q0="http://HostProgramPkg";
xmlns:xsd="http://www.w3.org/2001/XMLSchema";
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";>
- <soapenv:Body>
<q0:GETREC />
</soapenv:Body>
</soapenv:Envelope>

SOAP Response
- <soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/";
xmlns:xsd="http://www.w3.org/2001/XMLSchema";
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";>
- <soapenv:Body>
- <soapenv:Fault>
<faultcode>soapenv:Server.userException</faultcode>
<faultstring>java.rmi.RemoteException</faultstring>
- <detail>
<ns1:hostname xmlns:ns1="http://xml.apache.org/axis/
">tower</ns1:hostname>

</detail>
</soapenv:Fault>
</soapenv:Body>
</soapenv:Envelope>

Deployment Descriptor
<?xml version="1.0" encoding="UTF-8"?>
<egl:deployment xmlns:egl="http://www.ibm.com/xmlns/egl/deployment/7.0";>
<webservices>
<webservice enableGeneration="true"
implementation="ams.access.CmastService" implType="1024"
style="document-wrapped"/>
<webservice enableGeneration="true"
implementation="ams.access.QueuserService" implType="1024"
style="document-wrapped"/>
<webservice enableGeneration="false"
implementation="HostProgramPkg.GETREC" implType="8192"
style="document-wrapped"/>
</webservices>
<restservices>
<restservice enableGeneration="false"
implementation="ams.access.CmastService" implType="1024"
uri="CmastService"/>
<restservice enableGeneration="false"
implementation="ams.access.QueuserService" implType="1024"
uri="QueuserService"/>
<restservice enableGeneration="true"
implementation="HostProgramPkg.GETREC" implType="8192" stateful="true"
uri="GETREC"/>
</restservices>
</egl:deployment>

-----Original Message-----
From: egl-i-bounces@xxxxxxxxxxxx [mailto:egl-i-bounces@xxxxxxxxxxxx] On
Behalf Of William A Smythe
Sent: Friday, January 09, 2009 9:36 AM
To: EGL on and around the IBM i
Cc: 'EGL on and around the IBM i'; egl-i-bounces@xxxxxxxxxxxx
Subject: Re: [EGL-i] externalType type HostProgram to access an iseries
program

RDi SOA 7.5 will generate the appropriate code for you if you right-click
on
the RPG program in the Remote Systems view and select EGL Services >
Create
EGL: External Type, Interface, and records.

Will Smythe
Product Line Manager
Host Integration, HATS, Rational Business Developer, and EGL IBM Rational
Software, RTP, NC
919.254.8771
smythew@xxxxxxxxxx

Visit the EGL Cafe - http://www.ibm.com/rational/eglcafe

|------------>
| From: |
|------------>

-----------------------------------------------------------------------|
|"tim" <tim2006@xxxxxxxxxxx>
|

-----------------------------------------------------------------------|
|------------>
| To: |
|------------>

-----------------------------------------------------------------------|
|"'EGL on and around the IBM i'" <egl-i@xxxxxxxxxxxx>
|

-----------------------------------------------------------------------|
|------------>
| Date: |
|------------>

-----------------------------------------------------------------------|
|01/09/2009 09:11 AM
|

-----------------------------------------------------------------------|
|------------>
| Subject: |
|------------>

-----------------------------------------------------------------------|
|[EGL-i] externalType type HostProgram to access an iseries program
|

-----------------------------------------------------------------------|
|------------>
| Sent by: |
|------------>

-----------------------------------------------------------------------|
|egl-i-bounces@xxxxxxxxxxxx
|

-----------------------------------------------------------------------|

Has anyone used the following code to access an iseries program? I have
not
been able to get it to work.

externalType GETREC type HostProgram{

platformData =[@i5OSProgram{programName = "GETREC",

programType = NATIVE,

isServiceProgram = false,

libraryName = "PRODLIB"} ]}

function GETREC(CUST filefmt, EOF char(1), COUNT decimal(2,0)){
hostName="GETREC"};

end

--
This is the EGL on and around the IBM i (EGL-i) mailing list To post a
message email: EGL-i@xxxxxxxxxxxx To subscribe, unsubscribe, or change
list
options,
visit: http://lists.midrange.com/mailman/listinfo/egl-i
or email: EGL-i-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/egl-i..