Re: FTP API

Sorry...should have included this:

P Logger B
D Logger PI
D peMsgTxt 256A Const
D peLogFile * Value

/Free

FOAPPL = WkAppl;
FOMESG = peMsgTxt;
FODATE = WkDate;
FOTIME = WkTime;
FOJOBM = @@SJOB;
FOUSER = @@SUSER;
FOJOBN = @@SNBR;
FOSTMP = %TimeStamp();

I have a file named FTPOUTP that has the FO* fields.

Then I can do this:

sess = FTP_open(%Trim(Server):FTP_PORT:30);
If sess < 0; // Can't connect
Logger('Cannot open server ' + %Trim(Server): *NULL);
Logger('Exiting...': *NULL);

And log error messages.

On Thu, Sep 18, 2014 at 1:47 PM, Jeff Young <jyoung0950@xxxxxxxxx> wrote:

Thanks Michael
How do I get the messages into either my program or to a file that I
specify?

Jeff Young
Sr. Programmer Analyst

On Thu, Sep 18, 2014 at 1:20 PM, Michael Ryan <michaelrtr@xxxxxxxxx>
wrote:

and you'll need this:

// Logging routine
D Logger PR
D Msg 256A Const
D extra * Value

// Register logging exit process.
FTP_exitProc(sess: FTP_EXTLOG: %paddr(Logger): *null);


On Thu, Sep 18, 2014 at 1:19 PM, Michael Ryan <michaelrtr@xxxxxxxxx>
wrote:

I use this:

// Turn FTP logging on for this session.
FTP_logging(sess:*ON);

You'll see things like this:

200 Command okay.

STOR import/supplemental.csv

150 Opening BINARY mode data connection for import/supplemental.csv.
226 Transfer complete. 1158969 bytes transferred. 1158969 bps.




On Thu, Sep 18, 2014 at 1:02 PM, Jeff Young <jyoung0950@xxxxxxxxx>

wrote:

All,
Using normal FTP, I can capture all of the session messages in a data

base

file using the OVRDBF OUTPUT TOFILE(XXXX) command before the session
starts.

Using the FTPAPI, I notice that the service program sends back

messages

to

the job log, but do not see any to capture them for historical

purposes.

Also, normal FTP gives me the total number of bytes transmitted. I

did

not
see this in the job log of the FTPAPI session.

TIA,

Jeff Young
Sr. Programmer Analyst
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.