Re: Sending Physical File thru ECSLINE

["Peter Dow" <pcdow@xxxxxxxxxxxxxxx>]

Hi Pete,

As long as we old codgers keep knocking the old gray cells around, the
memory keeps working. It doesn't hurt to have a computer to keep notes on
either. I found the source for the wrapper mentioned by Neil with the
following comment:

There's a RTVFTS and SNDFTS
"Written for "Unleashing the Power of AS/400
File Transfer Support," NEWS 3X/400, June 1993"

and after all the error checking in the CL, the heart of it is as Neil said
(without the extra L):

 CALL QSYS/QY2FTML
+
 PARM(&option        /* IN    Option S=Send                          */
+
     &fromlib        /* IN    From library                           */
+
     &fromfile       /* IN    From file                              */
+
     &frommbr        /* IN    From member                            */
+
     &ftstype        /* IN    S/36 file type                         */
+
     &tolib          /* IN    To library                             */
+
     &tofile         /* IN    To file                                */
+
     &tombr          /* IN    To member                              */
+
     &s36fdate       /* IN    S/36 file date                         */
+
     &ftsreplace     /* IN    Replace file  (Y/N)                    */
+
     &rmtsysnam      /* IN    Remote system name                     */
+
     &rmtsyspwd      /* IN    Remote system password                 */
+
     &ftsrtncode     /*   OUT FTS return code (0/1/2)                */
+
     &ftsmsg)        /*   OUT FTS message ID                         */

The source member

F9360755    CLP         CLP                   Page:   75 Fig:   15

was a CL to create the RTVFTSF command, its RTVFTSFC CPP and RTVFTSFH panel
group. I can zip the whole thing up and email it to whomever is interested
if you'd like.

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax





----- Original Message -----
From: "Pete Hall" <pbhall@execpc.com>
To: <MIDRANGE-L@midrange.com>
Sent: Thursday, December 14, 2000 8:01 PM
Subject: Re: Sending Physical File thru ECSLINE


> At 08:38 12/12/2000, Bill Carpenter
> >I need to send a Physical File via the QESLINE.  This is for some EDI
> >data transmission and the other company that wants the data says this
> >is possible but they do not know how to do it.
>
> This is going way back. One of the original APIs for the AS/400 (the hand
> cranked models) was a program whose name I can't for the life of me come
up
> with, that will send a file over a SDLC connection to either another
AS/400
> or a System/36, with no requirement for SNADS. I've used it and I know it
> works, but that's about all I can come up with. Maybe some other codger
out
> there isn't quite as senile as I am.
>
>
> Pete Hall
> pbhall@execpc.com
> http://www.execpc.com/~pbhall/
>
> +---
> | 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 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
+---