Thanks Buck, That will indeed prove useful.
Alan Cassidy
At Caledonia Financial Services
acassidy@xxxxxxxxxxxxxx
954-693-0000 ext. 3433 - Direct phone
786-380-9236 - Mobile phone
-----Original Message-----
From: pctech-bounces@xxxxxxxxxxxx [mailto:pctech-bounces@xxxxxxxxxxxx] On Behalf Of Buck Calabro
Sent: Thursday, January 16, 2014 12:23 PM
To: pctech@xxxxxxxxxxxx
Subject: Re: [PCTECH] Windows-7 batch script to automate an upload to IBMi of all files in a directory
On 1/16/2014 10:11 AM, Alan Cassidy wrote:
I know there is a way to do this, I've tried various purported examples in a Web search, but they're either not working or "too big to trust" at this stage in my knowledge of Windows batch, and I don't see specifics for this in the PC-Tech list archives. (Parameterized FTP yes, this specific task no). (Payback for trying to avoid Windows programming).
I need to set up a scheduled Windows-7 batch script to create an FTP script to run to automate an upload to IBMi of all the files in a directory.
I've been able to pipe the commands with the >> operator to an FTP script file, but I need to use the DIR directory output to generate the "PUT filepath" lines for this script.
Anybody got an example script? Or a way to generate that directory list with a "PUT " in front of the path name to the output file?
The DIR /s /p drive:path>>outfile.txt pipes the list of path names but I need that "PUT".
Here is how I uploaded RPGUnit to my IBM i. Perhaps this will give you some ideas:
@echo off
rem build the ftp script
rem
set base=c:\addons\rpgunit-0.3.2-src
set sub=rpgunit-0.3.2
set lib=RPGUNIT
set script=%base%\ftpscript.txt
set trace=%base%\ftptrace.txt
rem
rem build ftp script
echo Script file is %script%
del %script%
del %trace%
echo user MYUSER MYPASS > %script%
echo quote site namefmt 1 >> %script%
echo ascii >> %script%
rem move to proper subdirectory and get list of members for %%f in (%sub%/RPGUNIT1.FILE/*.MBR) do echo put %base%\%sub%\RPGUNIT1.FILE\%%f /qsys.lib/%lib%.lib/RPGUNIT1.file/%%f >> %script% for %%f in (%sub%/RPGUNITC1.FILE/*.MBR) do echo put %base%\%sub%\RPGUNITC1.FILE\%%f /qsys.lib/%lib%.lib/RPGUNITC1.file/%%f
%script%
for %%f in (%sub%/RPGUNITF1.FILE/*.MBR) do echo put %base%\%sub%\RPGUNITF1.FILE\%%f /qsys.lib/%lib%.lib/RPGUNITF1.file/%%f
%script%
for %%f in (%sub%/RPGUNITT1.FILE/*.MBR) do echo put %base%\%sub%\RPGUNITT1.FILE\%%f /qsys.lib/%lib%.lib/RPGUNITT1.file/%%f
%script%
for %%f in (%sub%/RPGUNITY1.FILE/*.MBR) do echo put %base%\%sub%\RPGUNITY1.FILE\%%f /qsys.lib/%lib%.lib/RPGUNITY1.file/%%f
%script%
rem finish up the ftp script
echo quit >> %script%
rem
rem process ftp script
ftp -n -s:ftpscript.txt MYIBMI.MYCOMPANY.COM > %trace%
rem
rem clean up after ourselves.
rem keep either or both files for debugging purposes del %script% del %trace% :end_script
--buck
--
This is the PC Technical Discussion for IBM i (AS/400 and iSeries) Users (PcTech) mailing list To post a message email: PcTech@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/pctech
or email: PcTech-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/pctech.
--------------------------------------------------------------------------------
Confidentiality Notice: This email may contain confidential information or information covered under the Privacy Act, 5 USC 552(a), and/or the Health Insurance Portability and Accountability Act (PL 104-191) and its various implementing regulations and must be protected in accordance with those provisions. It contains information that is legally privileged, confidential or otherwise protected from use or disclosure. This e-mail message, including any attachments, is for the sole use of the intended recipient(s). Any unauthorized review, use, disclosure or distribution is prohibited. You, the recipient, are obligated to maintain it in a safe, secure and confidential manner. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. Thank you.
--------------------------------------------------------------------------------
midrange.com
