|
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: 3712 (0xe80)
Types: RcTekst, TextFile
Names: »CORN195.WP«
└─⟦1ce066637⟧ Bits:30005845 Dokumenter - Per Cornelius #135 - #236
└─⟦this⟧ »CORN195.WP«
╱04002d4e0a0006000000000201503100000000000000000000000000000000000000000000000000050f19232d37414b555f69737d8791ff04╱
corn 86.02.26 edb.corn195↲
↲
↲
┆a1┆┆b0┆FORSLAG TIL OVERFØRSEL AF DMO- & DMA-REGISTER.↲
↲
Alle DMO'er trækkes ud samt bedste udgave af tilhørende DMA.↲
↲
↲
DMO feltnavn indhold BIB feltnr.↲
-------------------------------------------------------------------------------↲
↲
DMOLGD længdefelt↲
↲
DMOMOD modulnummer: ----------------------: 001 00 a nøgle↲
↲
form: AAA_CCC↲
↲
┆a1┆AAA kan være:↲
↲
DAT, DDM, DOM, DOG,↲
DLI, SDO, SOG, SPA,↲
BSW, XRF↲
↲
┆a1┆CCC er:↲
↲
et løbenummer.↲
↲
DMOTEXT navn/titel ----------------------: 245 00 a tekst 1↲
↲
DMOPK gl. pakkekode: ----------------------: 301 00 a pakkekode↲
↲
┆a1┆konvertering:↲
↲
DMOPK til BIB.pakkekode↲
↲
0 .... 0↲
1 .... 1↲
2 .... 2↲
3 .... 2↲
4 .... 4↲
5 .... 5↲
6 .... 6↲
7 .... 7↲
8 .... 2↲
9 .... 9↲
10 .... 10↲
↲
DMORBIB biblioteks rettedato↲
↲
DMOBIB ikke i brug↲
↲
DMORDATO rettelses dato ----------------------: 130 00 c rettelses dato↲
↲
DMOINIT initialer↲
↲
DMOSTART oprettelsesdato ? ----------------------: 130 00 a opret. dato↲
↲
DMODOKAOK ikke i brug↲
↲
DMOKOST ikke i brug↲
↲
DMOPRIS ikke i brug↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
DMA feltnavn indhold BIB feltnr.↲
-------------------------------------------------------------------------------↲
↲
HOVED:↲
======↲
↲
↲
DMALGD længdefelt↲
↲
DMOMOD modulnummer:↲
↲
DMAUDG udgave nr. ----------------------: 302 00 a bedste udg.nr.↲
Anvendes ved søgning↲
af bedste udgave nummer.↲
↲
DMAITNR itemnr = løbenummer↲
↲
DMADATO1 start dato ----------------------: ??? ?? ? ?????↲
↲
DMADATO2 slut dato ----------------------: ??? ?? ? ?????↲
↲
HVIS = 0 så bedste udgave,↲
ellers søg højere nummer !↲
↲
DMADATO3 rettelses dato ----------------------: ??? ?? ? ?????↲
↲
evt. rettelse, hvis↲
ikke ny udgave er valgt.↲
↲
↲
ITEM:↲
=====↲
↲
↲
DMALGD )↲
)↲
DMOMOD )↲
) se DMA HOVED !↲
DMAUDG )↲
)↲
DMAITNR )↲
↲
↲
DMAPART1 )↲
DMAPART2 ) nøgle til DPA ----------------------: ??? ?? ? ?????↲
DMAPART3 )↲
↲
DMASEKT DPA'ens placering↲
i 'manualen'.↲
↲
DMAIRDAT item rettedato↲
↲
↲
(fortsættes næste side)↲
════════════════════════════════════════════════════════════════════════
↓
↲
↲
↲
UDTRÆKS RECORD:↲
===============↲
↲
↲
DMO_START:↲
↲
læs en DMO-rec,↲
↲
ved slut på file, så afslut program !↲
↲
gem dmomod,↓
dmotext,↲
dmopk,↲
dmordato,↲
dmostart.↲
↲
DMA_START_HOVED:↲
↲
læs tilhørende DMA-HOVED↲
* hvad indeholder dmaitnr ? antal items eller løbenummer ? ↲
* for dma-hoved eller dma-item ?↲
↲
hvis dmadato2 er lig med 0 (nul),↲
så er det bedste udgave;↲
↲
ellers find bedste udgave (dmaudg = dmaudg + 1)↲
↲
gem dmaudg,↲
dmadato1 (start) ?,↲
dmadato3 (rett.) ?;↲
↲
DMA_START_ITEM:↲
↲
læs tilhørende DMA-ITEM↲
↲
hvis dmomod er forskellig fra dmamod,↲
så skriv output record↲
og gå til DMO_START;↲
↲
gem dmapart1,↲
dmapart2,↲
dmapart3 (1,2,3 er DPA's partnummer),↲
dmasekt;↲
↲
gå dma_start_item.↲
↲
↲
I hvilket felt i BIB skal DPA' partnumre flyttes over i ?↲
↲
┆1a┆┆1a┆
B▶01◀▶01◀N▶04◀-N
▶06◀▶02◀▶01◀P1▶05◀▶0f◀▶19◀#-7AKU_iså▶87◀▶91◀▶ff◀▶04◀corn 86.02.26 edb.corn195
▶a1◀▶b0◀FORSLAG TIL OVERFØRSEL AF DMO- & DMA-REGISTER.
Alle DMO'er trækkes ud samt bedste udgave af tilhørende DMA.
DMO feltnavn indhold BIB feltnr.
-------------------------------------------------------------------------------
DMOLGD længdefelt
DMOMOD modulnummer: ----------------------: 001 00 a nøgle
form: AAA_CCC
▶a1◀AAA kan være:
DAT, DDM, DOM, DOG,
DLI, SDO, SOG, SPA,
BSW, XRF
▶a1◀CCC er:
et løbenummer.
DMOTEXT navn/titel ----------------------: 245 00 a tekst 1
DMOPK gl. pakkekode: ----------------------: 301 00 a pakkekode
▶a1◀konvertering:
DMOPK til BIB.pakkekode
0 .... 0
1 .... 1
2 .... 2
3 .... 2
4 .... 4
5 .... 5
6 .... 6
7 .... 7
8 .... 2
9 .... 9
10 .... 10
DMORBIB biblioteks rettedato
DMOBIB ikke i brug
DMORDATO rettelses dato ----------------------: 130 00 c rettelses dato
DMOINIT initialer
DMOSTART oprettelsesdato ? ----------------------: 130 00 a opret. dato
DMODOKAOK ikke i brug
DMOKOST ikke i brug
DMOPRIS ikke i brug
\f
▶83◀▶f0◀
DMA feltnavn indhold BIB feltnr.
-------------------------------------------------------------------------------
HOVED:
======
DMALGD længdefelt
DMOMOD modulnummer:
DMAUDG udgave nr. ----------------------: 302 00 a bedste udg.nr.
Anvendes ved søgning
af bedste udgave nummer.
DMAITNR itemnr = løbenummer
DMADATO1 start dato ----------------------: ??? ?? ? ?????
DMADATO2 slut dato ----------------------: ??? ?? ? ?????
HVIS = 0 så bedste udgave,
ellers søg højere nummer !
DMADATO3 rettelses dato ----------------------: ??? ?? ? ?????
evt. rettelse, hvis
ikke ny udgave er valgt.
ITEM:
=====
DMALGD )
)
DMOMOD )
) se DMA HOVED !
DMAUDG )
)
DMAITNR )
DMAPART1 )
DMAPART2 ) nøgle til DPA ----------------------: ??? ?? ? ?????
DMAPART3 )
DMASEKT DPA'ens placering
i 'manualen'.
DMAIRDAT item rettedato
(fortsættes næste side)
\f
▶83◀▶c0◀
UDTRÆKS RECORD:
===============
DMO_START:
læs en DMO-rec,
ved slut på file, så afslut program !
gem dmomod,
dmotext,
dmopk,
dmordato,
dmostart.
DMA_START_HOVED:
læs tilhørende DMA-HOVED
* hvad indeholder dmaitnr ? antal items eller løbenummer ?
* for dma-hoved eller dma-item ?
hvis dmadato2 er lig med 0 (nul),
så er det bedste udgave;
ellers find bedste udgave (dmaudg = dmaudg + 1)
gem dmaudg,
dmadato1 (start) ?,
dmadato3 (rett.) ?;
DMA_START_ITEM:
læs tilhørende DMA-ITEM
hvis dmomod er forskellig fra dmamod,
så skriv output record
og gå til DMO_START;
gem dmapart1,
dmapart2,
dmapart3 (1,2,3 er DPA's partnummer),
dmasekt;
gå dma_start_item.
I hvilket felt i BIB skal DPA' partnumre flyttes over i ?
«eof»