[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
R: problem file v3R7 (fwd)
Sender: Scott Klement <sk@xxxxxxxxxxxxxxxx>
In the following code example, Marco states that he drops records when
using FTPAPI but does not have this problem with IBM's client. Has anyone
else had a similar problem?
---
Scott Klement http://www.scottklement.com
---------- Forwarded message ----------
Date: Thu, 15 Jul 2004 10:33:50 +0200
From: Pozzi marco <marco.pozzi@xxxxxxxxxxxxxx>
To: Scott Klement <sk@xxxxxxxxxxxxxxxx>
Subject: R: problem file v3R7
0028.00 C*
0029.00 C EVAl usrid = 'XXXXX''
0030.00 C EVAl paswrd = 'XXXXXX''
0031.00 C*
0032.00 * connect to FTP server. If an error occurs,
0033.00 * display an error message and exit.
0034.00 c eval sess = ftp_conn(cfgsys:
0035.00 c usrid:
0036.00 c paswrd)
0037.00 c if sess < 0
0038.00 c MOVE ' 100' ESITO 4
0039.00 c return
0040.00 c endif
0051.00 C*def PUT
0052.00 C MOVE *BLANKS SRCDTA 256
0053.00 C MOVE *BLANKS SRCDTB 256
0054.00 C EVAL SRCDTA = '/RTSPOOLPDF/'
0055.00 C + %trim(nomtra)
0056.00 C + '.def'
0057.00 C* EVAL SRCDTA = '/QSYS.lib/RTSPOOLPDF.LIB/'
0058.00 C* + 'OUTDEF.file/'
0059.00 C* + %trim(job)
0060.00 C* + '.MBR'
0061.00 C EVAL SRCDTB = 'spool'
0062.00 C + '/Mod_'
0063.00 C + %trim(NAMEPDF)
0064.00 C + %trim(?SLASH)
0065.00 C + %trim(NAMEPDF)
0066.00 C + %trim(?SLASH)
0067.00 C + 'Def'
0068.00 C + %trim(?SLASH)
0069.00 C + %trim(NOMTRA)
0070.00 C + '.DEF'
0074.00 C MOVE *BLANKS PATHSIZE
0075.00 C movel SRCDTA PATHSIZE
0076.00 c callp ftp_delete(sess:SRCDTB)
0077.00 c if ftp_put(sess: srcdtb:
0078.00 c srcdta)<0
0079.00 c callp ftp_quit(sess)
0080.00 c return
0081.00 c endif
0082.00 C*dat PUT
0083.00 C MOVE *BLANKS SRCDTA
0084.00 C MOVE *BLANKS SRCDTB
0085.00 C EVAL SRCDTA = '/RTSPOOLPDF/'
0086.00 C + %trim(nomtra)
0087.00 C + '.dat'
0093.00 C EVAL SRCDTB = 'spool'
0094.00 C + '/Mod_'
0095.00 C + %trim(NAMEPDF)
0096.00 C + %trim(?SLASH)
0097.00 C + %trim(NAMEPDF)
0098.00 C + %trim(?SLASH)
0099.00 C + 'Data'
0100.00 C + %trim(?SLASH)
0101.00 C + %trim(NOMTRA)
0102.00 C + '.DAT'
0106.00 C MOVE *BLANKS PATHSIZE
0107.00 C movel SRCDTA PATHSIZE
0108.00 c callp ftp_delete(sess:SRCDTB)
0109.00 c if ftp_put(sess: srcdtb:
0110.00 c srcdta)<0
0111.00 c callp ftp_quit(sess)
0112.00 c return
0113.00 c endif
0114.00 C*chiude ftp
0115.00 c callp ftp_quit(sess)
0116.00 C*
0117.00 C*
0118.00 C RETURN
0119.00 C*
-----Messaggio originale-----
Da: Scott Klement [mailto:sk@xxxxxxxxxxxxxxxx]
Inviato: martedi 13 luglio 2004 23.07
A: Pozzi marco
Oggetto: Re: problem file v3R7
Hi Marco,
How are you sending the file?
On Tue, 13 Jul 2004, Pozzi marco wrote:
> I've had a problem to send a file from a iSeries v3r7.
> In the file received some records are missed.
> If I send the file manually, the file is complete.
> Sorry for my english!!!!
>
>
> Marco Pozzi
> Real Time SRL
> Via Mainoni, 9
> 22036 Erba (Co) Italy
> marco.pozzi@xxxxxxxxxxxxxx
>
-----------------------------------------------------------------------
This is the FTPAPI mailing list. To unsubsribe from the list send mail
to majordomo@xxxxxxxxxxxxx with the body: unsubscribe ftpapi mymailaddr
-----------------------------------------------------------------------