OVRDBF FILE(SWNITRP) SHARE(*YES)
OPNQRYF FILE((SWNITRP)) QRYSLT('TNCOCD *NE " "') +
KEYFLD((TNITCD) (TNCOCD))
CALL PGM(CHK070)
CLOF OPNID(SWNITRP)
DLTOVR FILE(SWNITRP)
运行已完成的QUERY,并允许修改"WHERE"的查询条件
RUNQRY QRY(NFTLIB/SIN5170Q1) RCDSLT(*YES)