Re: sending records from one as/400 to another

Hello Art,

Others have supplied alternative mechanisms, Carl Galgano's particular 
suggestions had merit.  
However, your specific question was how to handle the RNQ1218 inquiry message.  
You can do 
this with the system reply list.  Add a reply list entry for RNQ1218 (ADDRPYLE) 
specifying the 
reply you require.  Then change the transfer job to use the system reply list 
to handle the 
message -- CHGJOB INQMSGRPY(*SYSRPYL).

Any inquiry message received by this job will cause the system reply list to be 
searched for a 
reply.  If no reply is found then normal inquiry message handling occurs for 
that message.

Note that this technique can be used to programmatically handle any predefined 
inquiry 
message.

Regards,
Simon Coulter.

//----------------------------------------------------------
// FlyByNight Software         AS/400 Technical Specialists
// Phone: +61 3 9419 0175      Mobile: +61 3 0411 091 400
// Fax:   +61 3 9419 0175      E-mail: shc@flybynight.com.au
// 
// Windoze should not be open at Warp speed.
 

//--- forwarded letter -------------------------------------------------------
> X-Mailer: Mozilla 4.04 [en] (WinNT; I)
> Date: Thu, 09 Apr 98 22:32:59 -0400
> From: "Art Tostaine, Jr." <atostain@crecomp.com>
> To: "MIDRANGE-L@midrange.com" <MIDRANGE-L@midrange.com>
> Reply-To: MIDRANGE-L@midrange.com
> Subject: sending records from one as/400 to another

******* stuff deleted **************************
> 
> Is there an easy way to monitor for DDMF messages in RPGLE?  The message
> is not returned to my CLP until RNQ1218 is answered in QSYSOPR.
> 
******* stuff deleted **************************

> 
> Thanks.
> --
> Art Tostaine, Jr.
> Creative Computer Associates, Inc.
> Parlin, NJ 08859

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@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
+---