{master/comvar.i NEW}. /* {master/security.i}. {master/setvar.i}. */ DEFINE VARIABLE i AS INTEGER NO-UNDO. DEFINE VARIABLE list-of-files AS CHARACTER NO-UNDO. DEF NEW SHARED VAR chk-cocode LIKE company.company. DEF NEW SHARED VAR sel-arc AS CHAR. DEF NEW SHARED VAR chk-number AS INT. DEF NEW SHARED VAR fname AS CHAR. list-of-files = "bolrec,contd,dlist,edi820dtl," + "fbInvoice,fbStatus,pallet," + "pb-divord,pb-vesel,pbAddrss,pbCnsld,pbEdi," + "pbOrdCom,pbOrdPrt,pbSplit,pbintl," + "pbordl,pbords,pbpart,pbz,pullSignal," + "rttripord,trdseq,tripOrder,tripord," + "tsheet,xtrachgs,drassign,pbordnote". cocode = "pdg". chk-cocode = "pdg". sel-arc = "D". FOR EACH pbordh WHERE company = chk-cocode AND rec-status = "avl": chk-number = pbordh.pbnum. /* files with key field = pbnum */ DO i = 1 TO NUM-ENTRIES(list-of-files): fname = ENTRY(i,list-of-files). RUN tr/ordpurd.p ENTRY(i,list-of-files) "pbnum"). END. DELETE pbordh. END.