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



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