See sample code below:
Example:
PGM
OVRDBF FILE(PF001A) SHARE(*YES)
OPNQRYF FILE((PF001A)) +
QRYSLT('(PFRMKS=%WLDCRD("*Expired*"))') +
KEYFLD(*FILE)
CPYFRMQRYF FROMOPNID(PF001A) TOFILE(QTEMP/PF001A) +
MBROPT(*REPLACE) CRTFILE(*YES)
CLOF OPNID(PF001A)
DLTOVR FILE(*ALL)
No comments:
Post a Comment