IT Answers » CL/OPNQRYF http://itknowledgeexchange.techtarget.com/itanswers Mon, 20 May 2013 07:09:50 +0000 en-US hourly 1 OPNQRYF http://itknowledgeexchange.techtarget.com/itanswers/opnqryf-4/ http://itknowledgeexchange.techtarget.com/itanswers/opnqryf-4/#comments Wed, 18 Mar 2009 14:14:23 +0000 Khadar PGM
DCLF FILE(LIBRARY/DISPLAY)
START:
SNDRCVF RCDFMT(REC) WAIT(*YES)
IF COND(&IN03 *EQ ’1′) THEN(DO)
GOTO CMDLBL(END)
ENDDO
IF COND(&ENQQUA1 *EQ ‘ ‘) THEN(DO)
GOTO CMDLBL(START)
ENDDO
IF COND(&ENQQUA1 *NE *BLANKS) THEN(DO)
OPNQRYF FILE((SARKNS/ENQP002)) OPTION(*ALL) +
QRYSLT(‘&ENQQUA *EQ ”*CAT&ENQQUA1*CAT”’)
OVRDBF FILE(ENQP002) TOFILE(SARKNS/ENQP002) +
SHARE(*YES)
CPYFRMQRYF FROMOPNID(ENQP002) TOFILE(SARKNS/ENQP00222) +
MBROPT(*REPLACE)
ENDDO
DLTOVR FILE(ENQP002)
CLOF OPNID(ENQP002)
END:

ENDPGM

HERE &ENQQUA IS A FIELD FROM PHYSICAL FILE (LIBRARY/ENQP002) AND
&ENQQUA1 IS A FIELD FROM DISPLAY FILE (LIBRARY/DISPLAY).

BOTH THE FIELDS ATTRIBUTES ARE SAME (SIZE & DATA TYPE)

WHEN I AM CALLING THIS PROGRAMME I AM GETTING THE FOLLOWING MESSAGE:

CPF9899 received by OOQ at 112. (C D I R)

NOTE:

I THINK IN OPNQRYF ONLY I AM DOING MISTAKE IN QRYSLT PART.

CAN ANY ONE HELP ME IN THIS REGARDS?

THANKS IN ADVANCE.

]]> http://itknowledgeexchange.techtarget.com/itanswers/opnqryf-4/feed/ 0