×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
On 8/28/2013 6:12 PM, Hoteltravelfundotcom wrote:
I am working in a PDM environment. I have a 650 line RPGLE program, I would
like to save this
as in a text file. How does one do this?
The old fashioned way is to use FTP. Many years ago I wrote an FTP
batch script that automates much of this. This version works on Windows 7.
ftprpgle.bat
@rem ftp an RPGLE source member
@echo off
rem
rem make sure we entered 2 parms:
rem 1: Library
rem 2: Member name
rem
if "%1" == "" (
echo First parameter is library name
echo Second parameter is RPGLE source membername
goto end_script
)
if "%2" == "" (
echo First parameter is library name
echo Second parameter is RPGLE source membername
goto end_script
)
echo copying %1/qrpglesrc(%2).
rem
set ftp_path=c:\my_script_path\
set ftp_script=ftpscript.txt
set ftp_trace=ftptrace.txt
set script=%ftp_path%%ftp_script%
set trace=%ftp_path%%ftp_trace%
rem
rem build ftp script
echo user my_IBM_user_id my_IBM_password > %script%
echo quote site namefmt 1 >> %script%
echo get /qsys.lib/%1.lib/qrpglesrc.file/%2.mbr %2.rpgle >> %script%
echo quit >> %script%
rem
rem process ftp script
ftp -n -s:ftpscript.txt my_machine_name > %trace%
rem
rem clean up after ourselves.
rem keep either or both files for debugging purposes
del %script%
del %trace%
codeedit %2.rpgle
:end_script
midrange.com
