Re: IBM 390 call to iSeries

["Jere Jackson" <jjackson@xxxxxxxxx>]

Sender: "Jere Jackson" <jjackson@xxxxxxxxx>

Sorry for vagueness. I am using the following APIs to get info from the
390

URLData='http://www.ducksystem.com:99/cgibin/www.cgi';
URLData = %Trim(URLData) + '?tp=IS&pg=CBW282E&kp=';
URLData = %Trim(URLData) + %Trim(EventKey);
rc = http_url_get_raw(%trim(URLData)
                : 10
                : %paddr('INCOMING'));
If retlen > 1;
    CallP Translate(retlen: retdata: 'QTCPEBC');
EndIF;                                                  


C  Eval      rc = http_url_get(
C            'http://www.ducksystem.com:99/cgibin/'+
C            'www.cgi?tp=IS&pg=CBW284E&ex='+
C            %Trim(RdKey):
C            '/DUCFiles/Chapter.txt')

I am also using IFS APIs to open, read, close the chapter.txt file.

The CBW___E programs are written in NATURAL on the 390. I know enough
NATURAL to be extremely dangerous. 


Jere Jackson
System Analyst
Ducks Unlimited, Inc
One Waterfowl Way
Memphis, TN 38120-2351
www.ducks.org
jjackson@xxxxxxxxx
Phone (901) 758-3895
Fax (901) 758-3850

>>> sk@xxxxxxxxxxxxxxxx 08/13/04 10:38 AM >>>
Sender: Scott Klement <sk@xxxxxxxxxxxxxxxx>


Hi Jere,

I'm absolutely lost.  How are you making requests from the 400 to the
390?
Do you want to do the same thing in reverse?  In other words, have the
390
make requests the same way back to the 400?

Can you tell us what you're doing now.  You refer to "these APIs" but
you
didn't say which APIs you're referring to...

---
Scott Klement  http://www.scottklement.com



On Fri, 13 Aug 2004, Jere Jackson wrote:
>
> I have an opportunity to make our iSeries staff better that is already
> does now. We have been instructed to convert some of applications to
the
> mainframe by our board of directors. Thanks to the help of this
message
> board I have been able to send request to the mainframe and ret the
> answer back. The next hurtle is having the mainframe ask us for
> information. So far no one on the mainframe side has any idea of how
to
> do this.
>
> My question to the group is how do I make the mainframe send a request
> to the iSeries and how do I look for the request. What kind of program
> do I need on my side to get their request and respond back. I am very
> new to these APIs and how they function of the iSeries.
>
> Any help will be greatly appreciated. Due to my lack on knowledge in
> this area I need examples also.
>
-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubsribe from the list send mail
to majordomo@xxxxxxxxxxxxx with the body: unsubscribe ftpapi mymailaddr
-----------------------------------------------------------------------

-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubsribe from the list send mail
to majordomo@xxxxxxxxxxxxx with the body: unsubscribe ftpapi mymailaddr
-----------------------------------------------------------------------