OPNQRYF
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.
Software/Hardware used:
Software/Hardware used:
ASKED:
March 18, 2009 2:14 PM
UPDATED:
March 18, 2009 4:01 PM
Answer Wiki:
Yes
OPNQRYF FILE((SARKNS/ENQP002)) OPTION(*ALL) +
QRYSLT('&ENQQUA *EQ ''*CAT&ENQQUA1*CAT''')
OVRDBF FILE(ENQP002) TOFILE(SARKNS/ENQP002) +
SHARE(*YES)
Your QRYSLT sends to the query engine the string
&ENQQUA *EQ '*CAT&ENQQUA1*CAT'
If ENQQUA is char type you do need to send the single quotes
but you expression fails to terminate and restart the string
OPNQRYF FILE((SARKNS/ENQP002)) OPTION(*ALL) +
QRYSLT('&ENQQUA *EQ ''' *CAT &ENQQUA1 *CAT '''')
OVRDBF FILE(ENQP002) TOFILE(SARKNS/ENQP002) +
SHARE(*YES)
'&ENQQUA *EQ ''' <-- that's a triple single quote '''
first two will create a single quote
third will terminate the string allowing CL to take over
it now processes *CAT &ENGQUA1 *CAT which inserts the value
in &ENGQUA1 and cats to that the amazing
'''' <- four quotes
which CL reads as start string-insert ' - terminate string
Phil
To see all answers submitted to the Answer Wiki: View Answer History.
RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
