RE: Distribute file across wide area network

This is how I do it in a CL program ...

DCL      VAR(&tofile) TYPE(*CHAR) LEN(128)    

CHGVAR   VAR(&TOFILE) +                           
         VALUE('/QNTC/servername/folder/subfolder/' ||
        &FILE *TCAT '.txt')                    

/* before copying to NT server, add a dir entry to QNTC for it */   
              MD         DIR('/qntc/servername')

              MONMSG     MSGID(CPFA0A0)                              
                                                                     
CPYTOIMPF  FROMFILE(library/filename) TOSTMF(&TOFILE) + 
             MBROPT(*REPLACE) RCDDLM(*CRLF) +            
             DTAFMT(*FIXED) STRDLM(*NONE) FLDDLM(' ') +  
             STMFCODPAG(*PCASCII)                        

This creates a fixed length ASCii file.  You could do CSV as well.
HTH


-----Original Message-----
From: DReid@xxxxxxxxxxxxxxxxxx [mailto:DReid@xxxxxxxxxxxxxxxxxx] 
Sent: Monday, March 31, 2003 11:19 AM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: Distribute file across wide area network


 
 
-----Original Message-----
From: Reid, Deon 
Sent: Monday, March 31, 2003 10:06 AM
To: 'midrange-l@xxxxxxxxxxxx'
Subject: Distribute file across wide area network
 
I am running a JAVA program on the AS/400 that creates a PC Text file. I
would like to send this file to a Windows server on the network. What
methods are available to me to distribute it other than FTP?
 
Thanks 
Deon
 
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.