DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC850

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC850

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦8e0c147c5⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »INDLÆGN.CMD«

Derivation

└─⟦8808ef982⟧ Bits:30005860 DBase II 2.4 & QUICKCODE
    └─⟦this⟧ »INDLÆGN.CMD«

TextFile

* INDLÆGN.CMD

RESTORE FROM MFILNAVN
ERASE
USE PROJBASE
? 'NU STARTER OVERFØRSLEN FRA EXTERN DISKETTE-FIL : '+XFILNAVN
? 'TIL PROJBASE.DBF'

?
COUNT TO XSTART

APPEND FROM &XFILNAVN SDF
DELETE FOR AFD='  ' .AND. PROJEKTNR='    '
PACK

COUNT TO XSLUT

? 'ANTAL RECORD I PROJBASE.DBF FØR OVERFØRSEL :'
? XSTART
STORE XSLUT-XSTART TO XSTART
?
? 'ANTAL RECORD INDLÆST : '
? XSTART
?
? 'ANTAL RECORD I PROJBASE.DBF EFTER OVERFØRSEL : '
? XSLUT
? '---------------------------------------------------------------------------'

?
? 'NU OPBYGGES KOMBINERET KEY-FELT'
REPLACE ALL AFDPJPER WITH AFD+PROJEKTNR+PERIODE
? '- INDEX FOR AFDPJPER OPBYGGES NU'
INDEX ON AFDPJPER TO AFDPJPER
? '- GENERERING AF RAPBASE V.H.J. TOTAL ON AFDPJPER, SKER NU'
TOTAL TO RAPBASE ON AFDPJPER FIELDS AFD,PROJEKTNR,PERIODE,KR
RETURN
«eof»