• Subject: ICF joys :) (was ICF woes :()
  • From: keech@xxxxxxxxxxxx
  • Date: Thu, 30 Jul 98 08:30:04 CDT

On Tuesday, July 28, 1998 7:58 PM, Tim Truax [SMTP:truax@usaor.net] wrote:
> I have a (local) RPG program that utilizes an ICF file.  Here is the
> problem I am having.  There is a (local) CLP program written that when
> run on the (local) source system, it loads the (local) RPG program and
> it receives requests from the remote location.  Then, it loads another
> RPG program that turns around and generates responses back to the remote
> system.  However, when this CLP program is run in a recovery mode, it is
> attempting to send residual (left over) responses FIRST and this
> particular (local) RPG program (or the program running on the remote
> system) is not working in this response-first manner.  Now, the question
> is:  Is there some modification that needs to be made on the program at
> the remote system that the AS400 is talking to so that it knows, when a
> linkage is established using the EVOKE keyword, instead of doing a
> receive then a response, it's just going to do the responses first?

If I understand you correctly, you want the Target side program to send
a response first in some cases.  ICF has a number of ways to do this:

1.  Make a copy of the target side program (let's call the original
    PGM1, and the copy PGM2.)  Modify PGM2 so it does what you want.
    Then change the source program so it EVOKEs PGM1 when it wants to
    send something, and PGM2 when it wants to receive.

2.  Change the source program so it passes a parameter on the EVOKE to
    the target program, telling it which way to operate.

3.  By default, the target program starts in receive state.  Have it
    do its first receive, and if it gets data, then it handles it.  If
    it gets CD (Change of Direction) with no data, have it send a

Each option requires a modification to your program.  Personally, I'd go
with option 1, but I've always had a preference for having a number of
small, simple programs.  Any of the options will work.

Good luck, and remember that TRCICF (Trace ICF) is the ICF Application
Programmer's *FRIEND*!!!

Marty Keech, IBM ICF, APPC, Payment Server, 'n Stuff

| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].