RE: Remote Command from Access?

["Gamache, Fred (HT-EX)" <FGamache@xxxxxxxxxx>]

We are using a shareware FTP utility called FTP 4 Windows, and using
FTP's remote command facility to do it.  We have applications that
initiate file transfers and submit jobs on the AS/400 all via an Access
application.  It's actually pretty easy.   You need to put a DLL with
the FTP code on the users PC and then do some API calls to functions in
the DLL.

Are you interested in this method?  

Here is a piece of the code:  This application copies a spool file to a
database file and then FTP's that database file to the PC.
<-------------- begin code snip  -------->
    cmdstr = "rcmd CPYSPLF FILE(" & Trim(Me!txtFile) & ")"
    cmdstr = cmdstr & " TOFILE(test/DOC132) JOB(" &
Trim(Me!txtJobNumber) & "/" & Trim(Me!txtUser) & "/" & Trim(Me!txtJob)
    cmdstr = cmdstr & ") SPLNBR(" & Trim(Me!txtFileNumber) & ")"
    
    Retrieve = False
    handlew = screen.activeform.hWnd
    x = FtpInit(handlew)
    
    FtpSetSynchronousMode
    
    DoCmd Hourglass True
    SystemResult = SysCmd(SYSCMD_SETSTATUS, "Logging in.  Please wait.")
    Result = Ftp4wLogin("some400", Me!txtUserName, Me!txtPassword,
handlew, 0)
    
    If Result = FTPERR_OK Then
        SystemResult = SysCmd(SYSCMD_SETSTATUS, "Create extract file on
AS/400.  Please wait.")
        
        Result = FtpQuote(cmdstr, replystr, size)
<-------------- end code snip  -------->

Fred Gamache
fgamache@gic.gi.com

>-----Original Message-----
>From:  gibbsd@ZELANA.COM [SMTP:gibbsd@ZELANA.COM]
>Sent:  Thursday, June 05, 1997 11:50 AM
>To:    MIDRANGE-L@midrange.com
>Subject:       Remote Command from Access?
>
>Folks:
>
>I'm looking for a way to run a remote command from a PC on the '400   
>within an MS ACCESS (various versions, all running under Win95) program.
>
>Does anyone have an example of how to do this?  We have basic NETSOFT   
>routers (16bit).
>
>Specifically, we need to be able to send a command to Robot/Alert so we   
>can send a page.
>
>Thanks!
>
>david
>
>
> --
>David Gibbs
>Sr. Programmer Analyst
>Zellweger Analytics, Inc.
>Lincolnshire, IL  60069
>(847) 634-2955 x293
>
>Personal Philosophy: The only dumb question is the one you didn't ask.
>
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* 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 MAJORDOMO@midrange.com and specify            *
>* 'unsubscribe MIDRANGE-L' in the body of your message.  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 unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *