× 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.


  1.  Home
  2. COBOL400-L
  3. January 2006

Re: Moving Source Code from another platform toILECOBOL/400

A tip I use. I place all of the source files names into a flat file. Then using whater tools are available, I use the file to build an FTP input file. The file contains one line for each file, with a few lines up front, We will call it FTPFiles. Like so.. 
UserID  Password
CD YouriseriesLibraryName
LCD YourSourceFileLibraryName
PUT ....
PUT....
Quit.
The run the script through FTP. On windows, the command would be "FTP s-\FTPFiles iSeriesName" I don't know the AIX equivalent, but I am sure there is one. If I had to guess, it would be "FTP iSeriesName <<FTPFile" 
HTH Bob


Don Stafford wrote:


Thanks
That works....
----- Original Message ----- From: "Winchester Terry" <terry.winchester@xxxxxxxxxxxxxxx> 
To: "COBOL Programming on the iSeries/AS400" <cobol400-l@xxxxxxxxxxxx>
Sent: Monday, January 09, 2006 3:29 PM
Subject: Re: [COBOL400-L] Moving Source Code from another platform toILECOBOL/400 



You could run the CHGPFM command to set your Source type
after you've transferred the member.


-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Don Stafford
Sent: Monday, January 09, 2006 3:15 PM
To: COBOL400-L@xxxxxxxxxxxx
Subject: [COBOL400-L] Moving Source Code from another
platform to ILECOBOL/400


There must be an easier, or more proper way to do this......

I have COBOL source code residing on an AIX box that I want
to move to the
AS/400.

Here's what I did to move it:

1) In the QCBLLESRC file, I created an empty CBL source
member named   TEST
(type CBL)

2) On the AIX box, I opened an FTP connection to the AS/400

3) I changed directory to the AS/400 library

4) I then did:   put  TEST.CBL  QCBLLESRC.TEST

5) I closed the FTP connection

At this point, my code was intact.  I had to change a couple
of DISPLAY and
ACCEPT lines, but after doing so, I was able to compile and run
successfully.

I tried this omitting step 1 above, put then my source code
does not have a
'TYPE' once it is copied to the 400.

I'm sure there must be an easier way to do this....

Is there someone on this group that has any suggestions?
Does anyone have any scripts, etc to automatically make the
minor source
code changes required?

Thanks!

PS - I will keep the group updated with new information
regarding this if
anyone is interested

--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list 
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.