My dear friends :
Would you please tell me What exactly the OVRDBF does....
Thanks...
Would you please tell me What exactly the OVRDBF does....
Thanks...
OVRDBF FILE(CR311H) TOFILE(CB.CR1H)
CALL CR1H
DLTOVR FILE(CR311H)
OVRDBF FILE(PAYROLL) TOFILE(MYPAYROLL)
CALL GIVERAISE
DLTOVR FILE(MYPAYROLL)
OVRDBF FILE(OCEANHDR) TOFILE(OCEANHDR) SHARE(*YES)
OPNQRYF FILE((OCEANHDR)) +
QRYSLT('HSTATUS ¬= "C" & HCUST = 08177') +
KEYFLD((HCUSTREF))
QRYSLT('HCUST = 08177') +
CALL PGM(AB010R)
CLOF OPNID(OCEANHDR)
DLTOVR FILE(*ALL)
OvrDbf File(TaRpt0103p) ToFile(TaRpt0103p) +
OvrScope(*CallLvl) Mbr(&PoMember)
CALL TaRpt0103
DltOvr FILE(*ALL) LVL(*)
Comment