CPF2817 from CPYTOIMPF - No records copied from file - but the file contains dta

Dear All,



I have a CL program that calls an RPGSQLE program.



The RPG program generates two files [hdrfile and dtafile]

The CL program should copy the two files to IFS using CPYTOIMPF



The problem is the CL runs fine only the first time. The second time I got:

No records copied from file HDRFILE in MYLIB

CPF2817 received by procedure CLPGM



When I check the HDRFILE, I find that there is one record inside it (which is correct) ...

Can you please advise me why the stmt below is giving this exception msg CPF2817 - and how can I solve this ?

CPYTOIMPF FROMFILE(HDRFILE) +
TOSTMF(&FILENAME) MBROPT(*ADD) +
STMFCODPAG(*PCASCII) RCDDLM(*CRLF)



Please find the code of the 2 programs below



Thanks you in advance,



Dina





RPGPGM

=========

C/Exec SQL
C+ Set Option Commit=*NONE, DatFmt=*ISO, DynUsrPrf=*Owner, DlyPrp=*YES
C/End-Exec

C/EXEC SQL
C+ drop table mylib/hdrfile
C/END-EXEC

C/EXEC SQL
C+ create table mylib/hdrfile as
C+ (select 'EMP_NAME' as col01,
C+ 'Birth_date' as col02,
C+ 'Male/Female' as col03,
C+ 'Hire_date' as col04

C+ from qsqptabl)
C+ with data
C/END-EXEC



C/EXEC SQL
C+ drop table mylib/dtafile
C/END-EXEC

C/EXEC SQL
C+ create table mylib/dtafile as (
C+ select fld1,
C+ fld2,
C+ fld3,
C+ fld4

C+ from prodtab )
C+ with data
C/END-EXEC

C seton lr





CL PROGRAM

============

PGM

DCL VAR(&FILENAME) TYPE(*CHAR) LEN(100) +
VALUE('/HOME/REPORTS/REP1')



CALL PGM(RPGPGM)


CHGVAR VAR(&FILENAME) VALUE(&FILENAME *TCAT '.CSV')

CPYTOIMPF FROMFILE(HDRFILE) +
TOSTMF(&FILENAME) MBROPT(*REPLACE) +
STMFCODPAG(*PCASCII) RCDDLM(*CRLF)
CPYTOIMPF FROMFILE(DTAFILE) +
TOSTMF(&FILENAME) MBROPT(*ADD) +
STMFCODPAG(*PCASCII) RCDDLM(*CRLF)

RCLRSC
CHGAUT OBJ(&FILENAME) USER(*PUBLIC) DTAAUT(*R)

ENDPGM







_________________________________________________________________
Your E-mail and More On-the-Go. Get Windows Live Hotmail Free.
https://signup.live.com/signup.aspx?id=60969