Re: Embedded SQL to Dynamically Change an FTP Script

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

Terri

I suggest you go to Scott Klement's site and look at his FTP API - you 
don't use a script like this, which is always messy, you make 
monitorable CALLs for everything. We use it in a product and have 
wrapped CL commands around the various bits. In fact, if interested -

<verndor response>
check us out at www.rjssoftware.com - or call 888.RJS.SOFT - it's not a 
very expensive product. Saves time developing it yourself.
</verndor response>

Regards
Vern

THarteau@xxxxxxxxxxxxxxxxxx wrote:
> Hi,
>         I need to FTP a file several times a day. This file needs a unique 
> name. I set up a script and I am trying to change the PUT command using 
> SQL in an RPG program.  If I put it in debug, the statements look ok, but 
> when I view the script, it has not changed.
> This is my code:
> D PutWrd          C                   CONST('''PUT''') 
> D Put1            C                   CONST('PUT V64BPCSPGM/HTZ MTRIndex') 
>
> D Put3            C                   CONST('.CSV') 
> D Udt1            C                   'UPDATE V64BPCSUSR/FTPMTRINDX SET + 
> D                                     FTPINPUT = ' 
> D Ware            C                   'WHERE SUBSTR(FTPINPUT,1,3) = ' 
>
> C                   EVAL      PutCmd = Put1 + DatTmA + Put3 
> C                   EVAL      SqlSmt = 
> C                             Udt1 + PutCmd + Ware + PutWrd 
> C****************************** 
> C/EXEC SQL 
> C+ PREPARE STMT FROM :SQLSMT 
> C/END-EXEC 
> C****************************** 
> C/EXEC SQL 
> C+    EXECUTE STMT 
> C/END-EXEC 
> C****************************** 
>
> And this is my script:
> CD MTR 
> PUT V64BPCSPGM/HTZ MTRINDEX.CSV 
> QUIT 
>
> There is a USER line at the beginning. MTRINDEX.CSV should be 
> MTRINDEX20090105091532
>
> Any ideas what I am doing wrong? Thanks!
>
> <===================================================>
>
> Terri Harteau
> Felker Brothers Corporation
> ****************
> "Do not follow where the path may lead. Go instead where there is no path 
> and leave a trail." 
> Ralph Waldo Emerson
>
> ****************
>
>
>
>