...aus dem Gedächtnis, hoffe es funktioniert so:

CHGVAR QRY VALUE('(IWIDDT *EQ' *BCAT &PDATV_N *TCAT ')')

OPNQRYF FILE((DIW7PF)) OPTION(*ALL) QRYSLT(&QRY)
MAPFLD((PDATV_N IWIDDT *DEC 8 0))

OVRDBF FILE(DIW7PF) SHARE(*YES)