⟦b9e1a67c0⟧

Text

NOTEX.
 
Programmer:
 
-Ordrevedligeholdelse
       oprettelse - kræver kontrol med tabel-filen
       rettelse
       nedlæggelse - kræver kontrol med tabel-filen
       refresh - indlæser tabel-filen
 
-Opretpos
       opret positioner - 8 pos, 30 tegn
       opret ordrefiler - 350 filer
       opret ordrefils-tabel-fil
 
-Udskrifter af ordrer
       til et NR - direkte opslag
       i NR-orden - totalt gennemløb
       til en LEV-DATO -   do.
       til en KUNDE    -   do.
       til en SAG      -   do.
       til en POS      -   do.
       i POS-orden - 8 totale gennemløb.
 
 
En position er i dette tilfælde en afdeling i firmaet, f. eks. trykkeriet.
En ordre kan være i flere positioner samtidig, og bevæger sig under ordre-
afviklingen fra position til position.
Et ordrenr består af: et bogstav, 4 cifre, en - og to cifre, altså f. eks.
N4711-24.
%P
Datafiler.
 
- Positionsfil
       direkte fil
       8 poster a 30 tegn, positionens navn
       filnavn: "POSITION".
 
- Ordrefiler
       sekventielle filer
       350 filer med navne "F001" - "F350"
       hver fil bestående af følgende 6 poster:
         KUNDE$   70 tegn
         SAG$     70 tegn
         OBS1$    70 tegn
         OBS2$    70 tegn
         PAPIR$   70 tegn
         POS$,LEVDAT   8 tegn, 6 cifre.
       Hvis ordren er i POS nr I, er POS$(I) = "1" ellers "0".
 
- Filen med tabellen over ordrefilerne.
       sekventiel fil.
       filnavn: "FILES"
       70 poster, hver bestående af 5 felter a 12 tegn.
       hvert felt beskriver et ordrenr med tilhørende fil, f. eks.:
       Tabellen er erklæret som : DIM FILES$(350,12)
       Post 1 består af:
       FILES$(1),FILES$(2),FILES$(3),FILES$(4),FILES$(5),
       hvor f. eks. FILES$(3) er : "N4117-59F221", hvilket betyder, at
       ordrenr N4117-59 er i fil: F221.
       Tabellen skal være sorteret efter ordrenr.
%P
Ordrevedligeholdelse.
 
1. oprettelse
  Filen "FILES" skal være åbnet for skrivning, samt indlæst i FILES$, så kan
  de andre terminaler nemlig ikke komme til at ændre tabellen samtidig.
 
  - find den første ledige fil i FILES$
  - indlæs ordrenr, indsæt i ordredelen i FILES$, sorter ordren ind på plads
    i FILES$, afvis den hvis nummeret findes.
  - indlæs de første fem poster i ordren, samt LEVDATO (ÅÅMMDD), og evt.
    positionsnumre.
  - skriv ordren i den fundne fil
  - skriv FILES$ i FILES og luk FILES
 
2. rettelse
  - indlæs ordrenr
  - find ordrenr i FILES$ og åben filen og indlæs ordren
  - skriv alle oplysninger på skærmen, med et nr på hvert felt. For hver
    POS med POS$(I)="1" skal positionens navn findes i "POSITION"-filens
    post I, og skrives på skærmen.
  - indlæs feltnr og ret indtil færdig
  - skriv ordren tilbage og luk filen
 
3. nedlæggelse
  Filen "FILES" skal være åben for skrivning, og nyindlæst.
  - indlæs ordrenr og find i FILES$
  - indlæs ordren og skriv på skærmen
  - bekræft at ordren skal nedlægges
  - sæt ordrenr-delen i FILES$ til CHR(126), skyd FILES$ sammen og flyt den
    slettede fil, samt skriv FILES$ ud og luk "FILES".
 
4. refresh
  - indlæs filen "FILES" i tabellen FILES$
 
Alle 4 punkter skal ligge i samme program, og ting som:
       indlæs FILES, skriv ordre på skærm, indlæs ordre, find ordrenr i
       FILES$, o.s.v.
kan laves i fælles procedurer.
Når programmet startes, skal FILES indlæses, derefter skal det hver gang
stoppe i en situation, hvor alle filer er lukket, og et af de 4 alternativer
kan vælges.
Der kan muligvis også blive plads til udskriftsprogrammerne.
%P
Opret positioner og andet.
 
1. opret positioner.
  - opret filen "POSITION". CREATE "NOTEX:POSITION",8,30
  - indlæs POS-NR, POS-NAVN,
    og skriv POS-NAVN i post nr. POS-NR i filen "POSITION".
 
2. opret ordrefiler.
  - opret de 350 ordrefiler. F. eks.
 
       10 DIM NR$(3),FIL$(20),FIL1$(20)
       20 FIL$="NOTEX:F"
       30 FOR I =1 TO 350
       40   NR$=CHR(I DIV 100 +48)+CHR(I MOD 100 DIV 10 +48)+CHR(I MOD 10+48)
       50   FIL1$=FIL$+NR$
       60   CREATE FIL1$,2
       70 NEXT I
 
3. opret ordrefils-tabel-filen.
  - CREATE "NOTEX:FILES",18
  - lad FILES$ indeholde "üüüüüüüüF001" ... "üüüüüüüüF350"
  - udskriv FILES$ som
    FOR I = 0 TO 69
     PUT "NOTEX:FILES":FILES$(5*I+1),.........,FILES$(5*I+5)
    NEXT I
%P
Udskrifter.
 
FILES$ skal være indlæst.
  - Vælg udskriftsmåde.
  - for:
       NR-orden gennemløbes FILES$ og alle udskrives
       et NR: find nr i FILES$, indlæs ordre, udskriv
       en POS, en LEVDATO, en KUNDE, en SAG : FILES$ gennemløbes, alle ordrer
                  indlæses, dem der matcher udskrives.
       POS-orden: FILES$ gennemløbes 1 gang for hver pos. Alle ordrer indlæ-
                  ses, de matchende udskrives.
Skulle gerne kunne indsættes i vedligeholdelses-programmet, da der da så godt
som aldrig skal skiftes program.
DataMuseum.dk

MIKADOS

⟦b9e1a67c0⟧

Derivation

Text
