|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »OMKMOVE.CMD«
└─⟦8808ef982⟧ Bits:30005860 DBase II 2.4 & QUICKCODE
└─⟦this⟧ »OMKMOVE.CMD«
* omkmove.cmd erase REMARK Åben for data-basen : projbase.dbf use projbase remark Indlæs projekt-omkostnings-transaktioner overført fra RCADM-mosaik remark filen hedder omkååmm.txt, hvor åå = årstal, mm = månedsnr append from omk84t4.txt sdf remark ----------------------------------------------------------------------- remark Nu undersøges den overførte fil for tomme record, som slettes delete for afd=' ' .and. projektnr=' ' pack remark Sletningen er fuldført remark ----------------------------------------------------------------------- remark Nu kombineres afdnr, projektnr og perioden og overføres til feltet remark afdpjper, a.h.t. opbygning af index og totaler replace all afdpjper with afd+projektnr+periode remark Operationen er fuldført, så langt. remark ----------------------------------------------------------------------- remark vi Opbygger nu INDEX på afdnr, projektnr og periode index on afdpjper to afdpjper remark ----------------------------------------------------------------------- remark Nu starter vi tællemaskinen og laver totaler for kombinationen : remark afd, projektnr og periode use projbase index afdpjper total to rapbase on afdpjper remark ----------------------------------------------------------------------- remark slut slut slut slut ---- nu er filerne klar til efterfølgende remark rapport-dannelse/-udskrivning remark ---------------------------------------------------------------------- return «eof»