Re: sending records from one as/400 to another

Art:
3 comments.
1.  You can use a CL program to do the dial (change the controller to
cnntyp(*immed) ) and keep the controller varied off unless you wish to
connect and send data.  By varying on the controller, you will establish
the connection.  Your CL can check the connection by doing a RTVCFGSTS for
the DEVICE.  It will return a return code of 60 if it is active, you can
then start your RPG program.  If you wish to check the file on the remote
system, you can do an ALCOBJ for the DDMF.

2.  Another method may be to have your RPG program write to local files and
then use DDM or SNADS to move the file to the remote system as a batch.
Just a thought.  You could use a CPYF to copy the data from the local file
to the DDMF and your CL program could monitor to be sure the copy worked OK...

3.  Or you could write an APPC program... certainly more eficient.

HTH.

Carl

At 10:32 PM 4/9/98 -0400, you wrote:
>I have multiple As/400's that need to share information over a dialup
>line.  I have the line/ctl/dev created no problem.  My question is how
>to transfer the records?
>
>Currently I am using DDM.  I start the dialup connection, and an RPG
>program reads records from my source file and writes to the DDMF.  Then
>I update a sent code, and continue with the next record.
>
>I am having problems tracking errors in the RPG program, such as DDMF
>not available (Busy signal, etc.)
>
>More often than not, my source As/400 is dialing into a busy remote 400
>and I get RNQ1218 (I'm pretty sure).  I can't seem to get my RPG code to
>recognize this error and then just end.  We would try to send again in
>60 minutes.
>
>I first decided on DDM because I wanted to be sure that each record was
>sent to the remote system, then marked as sent.  I thought that with an
>unreliable dialup connection, SNADS could lose records in the mix.  For
>instance, I create a copy file of the records I want to sent, marking
>them as sent.  Then I pass the file to SNADS (SNDNETF), and it tries a
>number of times and fails.  Normally the file will stay in the
>distribution queue.  But if someone activates that dialup line to
>another AS/400 (not the intended target), the distribution queue will
>try to send the file, find no directory entry at the remote, and then (I
>think) remove the file from the DSTQ and I lose the records.
>
>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.
>
>Is anyone using SNADS for this type of app?  How do you handle the above
>multiple As/400 dialout?
>
>F.Y.I., VAN's, EDI transactions, and other solutions that make sense
>will not be considered because they cost money.  Customers can be mighty
>cheap for the wrong reasons.  Of course my time costs money, but for
>some reason, they expect that.  I guess I shouldn't complain, but I like
>to do things the best way, even if I get less billable time. (who said
>that?!?)  Also, dedicated lines and frames, etc. are out of the question
>because of cost. I have almost convinced them to add a modem and a phone
>line for a dedicated listening port on the remote as/400.
>
>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
>+---
>
Carl J. Galgano
http://cgalgano.home.mindspring.com
mailto:cgalgano@ediconsulting.com
EDI Consulting Services, Inc.   
540 Powder Springs Street
Suite C19
Marietta, GA 30064
770-422-2995
+---
| 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
+---