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