C
cjbree
Guest
filename: CASCADE.P /************************************************************************/ /* cascade.p -- to build include that cascades updates of match keys */ /* */ /* Input: */ /* parameter "file-name" of owner file */ /* parameter "omatchlst" of owner fields to ignore */ /* shared workfile "relate" describing database relationships */ /************************************************************************/ define shared workfile relate field owner like _file._file-name field mem like _file._file-name field idx like _index._index-name field numfld as integer format ">9" field matchlst as character format "x(80)" field dumpowner like _file._dump-name field dumpmem like _file._dump-name. define input parameter file-name like _file._file-name. define input parameter omatchlst as character. define variable i as integer. define variable tst as character. for each relate where owner = file-name break by idx: if first-of (idx) then do: tst = "if ". do i = 1 to numfld: if lookup(entry(i, matchlst), omatchlst) ne 0 then next. put unformatted tst /* "if " or "or " */ "input frame uform~{&seq~} ~{&file~}." entry(i, matchlst) " entered" skip. tst = "or ". end. put unformatted "then do:" skip. end. put unformatted space(4) "for each " mem " of ~{&file~}:" skip space(8) "assign" . do i = 1 to numfld: if lookup(entry(i, matchlst), omatchlst) ne 0 then next. put unformatted skip space(12) mem "." entry(i, matchlst) " = input frame uform~{&seq~} ~{&file~}." entry(i, matchlst). end. put unformatted "." skip space(4) "end." skip. if last-of (idx) then put unformatted "end." skip. end.
Continue reading...
Continue reading...