|
midrange.com
Wayne,
Here you go.
100
*****************************************************************
200 *
300 * P5802 - FILE TRANSFER VALIDATION AND DATABASE
UPDATE
400 *
500 * AUTHOR: ERIC KEMPTER 07/30/98
600 *
700
*****************************************************************
800 FFTPOUT IF E DISK
(FTP Log File)
900 FFTPCMDS UF E DISK
(FTP Command File)
000 *
100 E MSG1 1 1 12
200 E MSG2 1 2 75
300 *
400 I DS
500 I 1 60 FTPLIN
600 I 1 12 FTCMD
700 I 13 62 FTDATA
800 *
900 I '0123456789' C DIGITS
000 I 'ABCDEFGHIJKLMNOPQRS- C UP
100 I 'TUVWXYZ'
200 I 'abcdefghijklmnopqrs- C LO
300 I 'tuvwxyz'
400
*****************************************************************
500 *
600 * UPDATE FTP COMMAND FILE TO RETRIEVE REQUESTED FILE
700 *
800 C READ ICMDS 69
900 C *IN69 DOWEQ*OFF
000 *
100 C 'GET':3 SCAN FTCMD:1 INT 20 90
200 C *IN90 IFEQ *ON
300 C 'GET ' CAT FILE GET1 16
400 C GET1 CAT FILE GET2 27
500 C GET2 CAT '(REPLACE'FTPLIN
600 C UPDATICMDS
700 C ENDIF
800 *
900 C READ ICMDS 69
000 C ENDDO
100 *
200 * EXECUTE FTP FILE TRANSFER
300 *
400 C CALL 'FTPXFER'
500 *
600 * CHECK THE LOG AND DETERMINE IF FILE TRANSFERRED OK
700 *
800 C READ IOUT 69
900 C *IN69 DOWEQ*OFF
000 *
100 C DIGITS CHECKOTCODE N 20 90
200 C *IN90 IFEQ *OFF
300 C MOVE OTCODE $CODE# 30
Eric Kempter
Director of MIS
Commair Mechanical Services
-----Original Message-----
From: Wayne Capwell [SMTP:wayne@redoaktech.com]
Sent: Friday, September 04, 1998 3:55 AM
To: MIDRANGE-L@midrange.com
Subject: Re: ftp in cl
Hi Eric,
This technique sounds very solid. I can easily change from CL to RPG.
Do you have a sample of the RPG program. I will be going from As/400 to
Windows NT and/or 95 later, so the xfer w/ Unix may lend some clues.
Thanks.
Wayne
--
--------------------------------------------------------------------
Wayne Capwell | Red Oak Technologies, Inc.
11301 Carmel Commons Blvd. | ==========================
Suite 114 | Intranet - Internet - AS400
Charlotte, NC 28226 | Consulting & Development Services
|
(704) 525-0038 (ph.) | (704) 525-6805 (fax)
wayne@redoaktech.com | http://www.redoaktech.com/
--------------------------------------------------------------------
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| 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 subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
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.
