|
midrange.com
Jim here is my source. My program shows a display of ten objects you
would like to transfer..
0001.00 H/Title PC0703 - **** to Reliatek FTP Program
0002.00
F**********************************************************************
0003.00 F*Written by:Justin Houchin(JHOUCHIN)
0004.00 F*Date:2/6/2002
0005.00 F*This program will transfer compiled programs from *** to
Relaitek
0006.00 F*
0007.00
F**********************************************************************
0008.00 F*
0009.00 FPC0703FM CF E Workstn Infds(Wsds)
0009.01 D*
0009.02
D**********************************************************************
0009.03 D*Define standalone fields
0009.04
D**********************************************************************
0009.05 D*
0009.06 D Empty S 10
0009.07 D*
D**********************************************************************
0009.09 D*Setup function Key attention identification byte
0009.10
D**********************************************************************
0009.11 D*
0009.12 D Wsds DS
0009.13 D Fkey 369 369A
0009.14 D F3 C Const(X'33')
0009.15 D*
0010.00
C**********************************************************************
0011.00 C*Display the file input screen
0012.00
C**********************************************************************
0013.00 C*
0013.01 C Disp01 Tag
0013.02 C*
0013.03 C Move *Blank File1
0013.04 C Move *Blank File2
0013.05 C Move *Blank File3
0013.06 C Move *Blank File4
0013.07 C Move *Blank File5
0013.08 C Move *Blank File6
0013.09 C Move *Blank File7
0013.10 C Move *Blank File8
0013.11 C Move *Blank File9
0013.12 C Move *Blank File10
0013.13 C*
0014.00 C Exfmt Pc0703001
0015.00 C*
0016.00
C**********************************************************************
0017.00 C*Check for function keys
0018.00
C**********************************************************************
0019.00 C*
0019.01 C Fkey CabEq F3 End
0021.00 C*
0021.01
C**********************************************************************
0021.02 C*Check for Empty Slots and fill them with the word 'Empty'
C**********************************************************************
0021.04 C*
0021.05 C File2 IfEq *Blank
0021.07 C Eval File2 = 'Empty'
0021.08 C EndIf
0021.09 C File3 IfEq *Blank
0021.10 C Eval File3 = 'Empty'
0021.11 C EndIf
0021.12 C File4 IfEq *Blank
0021.13 C Eval File4 = 'Empty'
0021.14 C EndIf
0021.15 C File5 IfEq *Blank
0021.16 C Eval File5 = 'Empty'
0021.17 C EndIf
0021.18 C File6 IfEq *Blank
0021.19 C Eval File6 = 'Empty'
0021.20 C EndIf
0021.21 C File7 IfEq *Blank
0021.22 C Eval File7 = 'Empty'
0021.23 C EndIf
0021.24 C File8 IfEq *Blank
0021.25 C Eval File8 = 'Empty'
0021.26 C EndIf
0021.27 C File9 IfEq *Blank
0021.28 C Eval File9 = 'Empty'
0021.29 C EndIf
0021.30 C File10 IfEq *Blank
0021.31 C Eval File10 = 'Empty'
0021.32 C EndIf
0021.41 C*
0021.42
C**********************************************************************
0021.43 C*Setup the parameter list
0021.44
C**********************************************************************
0021.45 C*
0021.46 C Filename Plist
0021.47 C*
0021.48 C Parm File1
0021.49 C Parm File2
0021.50 C Parm File3
0021.51 C Parm File4
0021.52 C Parm File5
0021.53 C Parm File6
0021.54 C Parm File7
0021.55 C Parm File8
0021.56 C Parm File9
0021.57 C Parm File10
0021.58 C*
0021.59
C**********************************************************************
0021.60 C*Call the FTP CL program passing file names to transfer
0021.61
C**********************************************************************
0021.62 C*
0021.63 C File1 IfNe *Blank
0021.64 C*
0021.65 C Call 'PC0703CL' Filename
0021.66 C*
0021.67 C EndIf
0021.68 C*
0021.69
C**********************************************************************
0021.70 C*Go back to the start of the program
0021.71
C**********************************************************************
0021.72 C*
0021.73 C Goto Disp01
0021.74 C*
0022.00
C**********************************************************************
0023.00 C*End of Program
0024.00
C**********************************************************************
0025.00 C*
0026.00 C End Tag
0027.00 C*
0028.00 C Seton LR
Here is the CL...
0001.00 /*Written by: Justin Houchin */
0002.00 /*Date:2/6/2002 */
0003.00 /*This CL Program will transfer program files */
0004.00 /*from **** to Reliatek */
0005.00 /* */
0006.00 PGM PARM(&FILE1 &FILE2 &FILE3 &FILE4 &FILE5
+
0007.00 &FILE6 &FILE7 &FILE8 &FILE9 &FILE10)
0008.00 DCL VAR(&FILE1) TYPE(*CHAR) LEN(10)
0009.00 DCL VAR(&FILE2) TYPE(*CHAR) LEN(10)
0010.00 DCL VAR(&FILE3) TYPE(*CHAR) LEN(10)
0011.00 DCL VAR(&FILE4) TYPE(*CHAR) LEN(10)
0012.00 DCL VAR(&FILE5) TYPE(*CHAR) LEN(10)
0013.00 DCL VAR(&FILE6) TYPE(*CHAR) LEN(10)
0014.00 DCL VAR(&FILE7) TYPE(*CHAR) LEN(10)
0015.00 DCL VAR(&FILE8) TYPE(*CHAR) LEN(10)
0016.00 DCL VAR(&FILE9) TYPE(*CHAR) LEN(10)
0017.00 DCL VAR(&FILE10) TYPE(*CHAR) LEN(10)
0018.00 /* */
0019.00 MONMSG MSGID(CPF0000)
0020.00 CLRSAVF FILE(JUSTIN)
0021.00 /* */
0022.00 SAVOBJ OBJ(&FILE1 &FILE2 &FILE3 &FILE4 &FILE5 +
0023.00 &FILE6 &FILE7 &FILE8 &FILE9 &FILE10) +
0024.00 LIB(KPETERMAN) DEV(*SAVF) OBJTYPE(*PGM
+
0025.00 *FILE) SAVF(JUSTIN)
0026.00 /* */
0027.00 OVRDBF FILE(INPUT) TOFILE(*LIBL/QRPGLESRC) +
0028.00 MBR(FTPPARM)
0029.00 /* */
0030.00 STRTCPFTP RMTSYS('www.reliatek.com')
0031.00 /* */
0032.00 DLTOVR FILE(INPUT)
0033.00 /* */
0034.00 ENDPGM
here is the FTPPARM source member that the CL uses....
Columns . . . : 1 71 Edit
KPETERMAN/QRPGLESRC
SEU==>
FTPPARM
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
...+... 7
*************** Beginning of data
*************************************
0001.00 username password <-----change to your userid and password
0002.00 LCD JUSTIN <-----these are just FTP commands that I
use
0003.00 CD PCSTORE
0004.00 BINARY
0005.00 SENDPA
0006.00 QUOTE RCMD CLRSAVF JUSTIN
0007.00 PUT JUSTIN
0008.00 QUIT
Here is the display source...
0000.10 A*%%TS SD 20020207 080131 JHOUCHIN REL-V4R4M0
5769-PW1
0000.20 A*%%EC
0000.30 A DSPSIZ(24 80 *DS3)
0000.40 A CF03(03)
0000.50 A R PC0703001
0000.60 A*%%TS SD 20020206 160727 JHOUCHIN REL-V4R4M0
5769-PW1
0000.70 A 1 27'*** to RELIATEK FTP
PROGR
0000.80 A COLOR(WHT)
0000.90 A 1 71DATE
0001.00 A EDTCDE(Y)
0001.10 A COLOR(BLU)
0001.20 A 2 71TIME
0001.30 A COLOR(BLU)
0001.40 A 6 25'Input Program Files
to Tra
0001.50 A 8 33'1.'
0001.60 A 9 33'2.'
0001.70 A 10 33'3.'
0001.80 A 11 33'4.'
0001.90 A 12 33'5.'
0002.00 A FILE1 10A I 8 36COLOR(YLW)
0002.10 A FILE2 10A I 9 36COLOR(YLW)
0002.20 A FILE3 10A I 10 36COLOR(YLW)
0002.30 A FILE4 10A I 11 36COLOR(YLW)
0002.40 A FILE5 10A I 12 36COLOR(YLW)
0002.50 A 23 2'
0002.60 A
0002.70 A '
0002.80 A DSPATR(UL)
0002.90 A 24 2'F3=Exit'
0003.00 A 19 27'Press ENTER to
transfer fi
0003.10 A COLOR(RED)
0003.20 A 13 33'6.'
0003.30 A FILE6 10A I 13 36COLOR(YLW)
0003.40 A 14 33'7.'
0003.50 A 15 33'8.'
0003.60 A 16 33'9.'
0003.70 A 17 32'10.'
0003.80 A FILE7 10A I 14 36COLOR(YLW)
0003.90 A FILE8 10A I 15 36COLOR(YLW)
0004.00 A FILE9 10A I 16 36COLOR(YLW)
0004.10 A FILE10 10A I 17 36COLOR(YLW)
You could probably bypass the rpgle code and just create a prompt for
the cl program, but I was in a hurry. If this doesn't get you going
e-mail directly and I will write you a program that will.
Justin Houchin
Programmer and Web Developer
ReliaTek, Inc
Justin@reliatek.com
-----Original Message-----
From: midrange-l-admin@midrange.com
[mailto:midrange-l-admin@midrange.com] On Behalf Of Rubino, Jim
Sent: Tuesday, June 25, 2002 3:49 PM
To: 'midrange-l@midrange.com'
Subject: FTP a save file from one AS/400 to another in batch
Is there anyone out there who has written a program to do an FTP of a
save
file from one AS/400 to another in batch, if so I would love to know and
see
how you have done this. I am not having much luck in doing this with a
source file and a CL program.
Thank you,
Jim
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
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.
