IT Answers » CPYFRMQRYF

OPNQRYF & CPYFRMQRYF error

Archnav01 — Tue, 16 Oct 2012 08:13:05 +0000

New Discussion Post by WoodEngineer

CPF2972

Rje — Wed, 09 May 2012 07:32:47 +0000

Hi,

when i am using a the CPYFRMQRYF command am getting the error message error writing to member &3 in file &1(with the message ID CPF2972).

Could you please advice as how i can overcome this?

CL Code: Cpyfrmqryf ends because of error

Lordyork — Thu, 03 Jun 2010 15:18:53 +0000

My CL code works up until it gets to the Cpyfrmqryf then the program ends with an message stating ” Copy command ended because of error” but not what error how can you fix it if you don’t know the error?

OPNQRYF

Khadar — Sun, 01 Feb 2009 14:21:51 +0000

I have 4-fileds on Display File like frdiv(zoned),todiv(zoned),frpr(char),topr(char) all the fields are of size 2 only.
I am using a “OPNQRYF” to filter the records froma Physical file (pfdiv), it containes 1,25,000 records .
Through this openqryf all the selected records I will copy to a file (pftemp) using “CPYFRMQRYF”.
Then I will use the pftemp file in the RPG/400 programme to disply on Subfile Screen.

I have written a CL-programme like this:

PGM
DCLF FILENAME(DISPLAY-FILE)
OVRDBF PFDIV(PHYSICAL-FILE)
OPNQRYF QRYSLT(‘(&FDIV *GE &FRDIV *AND &FDIV *LE &TODIV) *AND (&FPR *GE &FRPR *AND &TPR *LE &TOPR)’)
CPYFRMQRYF FROMF(PFDIV) TO(PFTEMP)
CALL PGM(RPG)
CLOF PFDIV
DLTOVR PFDIV
ENDPGM

WHERE &FDIV = FROM DIVISION
&TDIV = TO DIVISION
&FPR = FROM PROJECT
&TPR = TO PROJECT

I am entering values 10,50,A1,A9 respectively

10,50 means from 10(division) to 50

A1,A9 means from A1(Project) to A9

ALL THE ABOVE FIELDS FROM THE PHYSICAL-FILE (PFDIV)

Here , once I am running this programme the query is not working properly, it is showing an error ,

Please can anyone help me in this regards.

Thanks In Advance.