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).

I am aware of the Reply list, and I thought that I had taken the above steps to monitor for RNQ1218.  Since it did not work, I assumed that the System reply list wouldn't work for a message received by RPG.   I have used it successfully for printer writer messages, etc.  I will double check my entries on this.

I think that the easiest thing for me to do right now would be what Michel Sabourin suggested:

OPNDBF     FILE(&FILE) OPTION(*ALL)
             MONMSG     MSGID(CPF9162 CPF4125 CPF4364 CPF5739 +
                          CPF2813 CPF4207 CPF9163 CPF9167 CPF9168 +
                          CPF9169 CPF9170 CPF9171) EXEC(DO)
             DLYJOB     DLY(3600)
             GOTO       CMDLBL(OPNDBF)
             ENDDO

This would be the quickest (and the best?) to implement.  Thanks to all who responded.  What a pleasure to come home from a trip to visit the in-laws and find many solutions to my problem.
--
Art Tostaine, Jr.
Creative Computer Associates, Inc.
Parlin, NJ 08859