|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6400 (0x1900)
Types: RcTekst, TextFile
Names: »CORN189.WP«
└─⟦1ce066637⟧ Bits:30005845 Dokumenter - Per Cornelius #135 - #236
└─⟦this⟧ »CORN189.WP«
╱04002d4e0a000600000000020a5031000000000000000000000000000000000000000000000000000e18222c36404a545e68727c86909aff04╱
**********************************************************************↲
*** udskrift af projekt status efter sortering corn.189 ***↲
**********************************************************************↲
↲
***********************************************↲
*** ***↲
*** udsøgning ***↲
*** ***↲
***********************************************↲
↲
*** "tekst angiver indtastede værdier ved trimning" ***↲
↲
sæt indeks start til "fra-projektnummer"↲
move T to UDVÆLG↲
↲
UDVÆLG løkke↲
*↲
* læs en projekt record *↲
*↲
læs projekt↲
hvis eof↲
move F to UDVÆLG↲
loop↲
end↲
hvis projektnummer > "til-projektnummer"↲
move F to UDVÆLG↲
loop↲
end↲
*↲
* 1. kriterie projektnummer interval *↲
*↲
* std.: interval 0 - 990000 *↲
*↲
↲
hvis projektnummer < "fra-projektnummer"↲
hvis projektnummer > "til-projektnummer"↲
loop↲
end↲
end↲
*↲
* 2. kriterie afdelingsnummer interval *↲
*↲
* std.: rekvirentens afdelingsnummer *↲
*↲
↲
hvis projektgruppekode1 < "fra-afdelingsnummer"↲
hvis projektgruppekode1 > "til-afdelingsnummer"↲
loop↲
end↲
end↲
*↲
* 3 & 4. kriterie grænser for projektgruppekoderne 1 - 6 *↲
*↲
* std.: under grænse interval er 00'er *↲
* std.: over grænse interval er 99'er *↲
*↲
↲
hvis projektgruppekode1 < "fra-gruppekodeundergrænse1"↲
hvis projektgruppekode1 > "til-gruppekodeovergrænse1"↲
loop↲
end↲
end↲
hvis projektgruppekode2 < "fra-gruppekodeundergrænse2"↲
hvis projektgruppekode2 > "til-gruppekodeovergrænse2"↲
loop↲
end↲
end↲
hvis projektgruppekode3 < "fra-gruppekodeundergrænse3"↲
hvis projektgruppekode3 > "til-gruppekodeovergrænse3"↲
loop↲
end↲
end↲
hvis projektgruppekode4 < "fra-gruppekodeundergrænse4"↲
hvis projektgruppekode4 > "til-gruppekodeovergrænse4"↲
loop↲
end↲
end↲
hvis projektgruppekode5 < "fra-gruppekodeundergrænse5"↲
hvis projektgruppekode5 > "til-gruppekodeovergrænse5"↲
loop↲
end↲
end↲
hvis projektgruppekode6 < "fra-gruppekodeundergrænse6"↲
hvis projektgruppekode6 > "til-gruppekodeovergrænse6"↲
loop↲
end↲
end↲
*↲
* 5. kriterie projekter alle, åbne eller lukkede i perioden *↲
*↲
* std.: 5.2 alle åbne projekter *↲
*↲
↲
hvis 5.1↲
* ok, alt med *↲
end↲
hvis 5.2↲
hvis projekt-slutdato <> "000000"↲
loop↲
end↲
end↲
hvis 5.3↲
hvis projekt-slutdato < "fra-periode-dato"↲
hvis projekt-slutdato > "til-periode-dato"↲
loop↲
end↲
end↲
end↲
*↲
* 6. kriterie projekter ledet af *↲
*↲
hvis 6↲
hvis projekt-ledet-af <> "indtastet-initialer"↲
loop↲
end↲
end↲
*↲
*** nu skal eventuelle tilhørende aktiviteter behandles ***↲
*↲
↲
gem projekt record↲
sæt indeks start til "det-fundne-projektnummer"↲
move T to UDSOG↲
↲
UDSOG løkke↲
*↲
* læs en aktivitets record *↲
*↲
læs aktivitet↲
hvis eof↲
move F to UDSOG↲
loop↲
end↲
hvis projektnummer <> "det-fundne-projektnummer"↲
move F to UDSOG↲
loop↲
end↲
*↲
* 3 & 4. kriterie grænser for aktivitetsgruppekoderne 7 - 11 *↲
*↲
* std.: under grænse interval er 00'er *↲
* std.: over grænse interval er 99'er *↲
*↲
↲
hvis aktivitetgruppekode7 < "fra-gruppekodeundergrænse7"↲
hvis aktivitetgruppekode7 > "til-gruppekodeovergrænse7"↲
loop↲
end↲
end↲
hvis aktivitetgruppekode8 < "fra-gruppekodeundergrænse8"↲
hvis aktivitetgruppekode8 > "til-gruppekodeovergrænse8"↲
loop↲
end↲
end↲
hvis aktivitetgruppekode9 < "fra-gruppekodeundergrænse9"↲
hvis aktivitetgruppekode9 > "til-gruppekodeovergrænse9"↲
loop↲
end↲
end↲
hvis aktivitetgruppekode10 < "fra-gruppekodeundergrænse10"↲
hvis aktivitetgruppekode10 > "til-gruppekodeovergrænse10"↲
loop↲
end↲
end↲
hvis aktivitetgruppekode11 < "fra-gruppekodeundergrænse11"↲
hvis aktivitetgruppekode11 > "til-gruppekodeovergrænse11"↲
loop↲
end↲
end↲
*↲
↲
gem aktivitets record↲
↲
*↲
* 7. kriterie planlinier for alle *↲
*↲
* std.: ikke specificeret på medarbejder *↲
*↲
↲
*↲
* 8. kriterie udskrift af aktivitetsstamdata *↲
*↲
* std.: udskrives ikke *↲
*↲
*↲
* 9. kriterie opgjorte timer omregnes *↲
*↲
* std.: ingen omregning *↲
*↲
*↲
* 10. kriterie antal eksemplarer af udskriften *↲
*↲
* std.: et eksemplar *↲
*↲
↲
loop↲
SLUT-UDSOG↲
loop↲
SLUT-UDVÆLG↲
***********************************************↲
*** ***↲
*** sortering ***↲
*** ***↲
***********************************************↲
↲
hvis sort ej valgt↲
sæt sorteringskriterie lig med nuværende sortering↲
end↲
↲
UDFØR SORTERING AF DE FUNDNE RECORD↲
↲
↲
***********************************************↲
*** ***↲
*** udskrivning ***↲
*** ***↲
***********************************************↲
↲
↲
*↲
* antal tegn på printlinien i dag:↲
*↲
* heraf 'bemærkninger'......: 25↲
*↲
* plan,forbrug,vurd.........: 29↲
* tilvækst,index............: 15↲
*↲
* oplysninger...............: 45↲
* ___↲
* ialt .....................: 114↲
*↲
* overskrifter i dag:↲
*↲
* linie 1 med rc-prosit, tekst , dag, dato ude og side.↲
*↲
* linie 2 & 3 hovedoplysninger om projektet vist på siden.↲
*↲
* linie 4 & 5 forklaring til oplysningerne i søjlerne.↲
*↲
* linie 6 streg.↲
*↲
:↓
┆1a┆┆1a┆┆ff┆┆ff┆┆00┆
B▶03◀▶06◀N▶04◀-N
▶06◀▶02◀
P1▶0e◀▶18◀",6@JT^hrø▶86◀▶90◀▶9a◀▶ff◀▶04◀**********************************************************************
*** udskrift af projekt status efter sortering corn.189 ***
**********************************************************************
***********************************************
*** ***
*** udsøgning ***
*** ***
***********************************************
*** "tekst angiver indtastede værdier ved trimning" ***
sæt indeks start til "fra-projektnummer"
move T to UDVÆLG
UDVÆLG løkke
*
* læs en projekt record *
*
læs projekt
hvis eof
move F to UDVÆLG
loop
end
hvis projektnummer > "til-projektnummer"
move F to UDVÆLG
loop
end
*
* 1. kriterie projektnummer interval *
*
* std.: interval 0 - 990000 *
*
hvis projektnummer < "fra-projektnummer"
hvis projektnummer > "til-projektnummer"
loop
end
end
*
* 2. kriterie afdelingsnummer interval *
*
* std.: rekvirentens afdelingsnummer *
*
hvis projektgruppekode1 < "fra-afdelingsnummer"
hvis projektgruppekode1 > "til-afdelingsnummer"
loop
end
end
*
* 3 & 4. kriterie grænser for projektgruppekoderne 1 - 6 *
*
* std.: under grænse interval er 00'er *
* std.: over grænse interval er 99'er *
*
hvis projektgruppekode1 < "fra-gruppekodeundergrænse1"
hvis projektgruppekode1 > "til-gruppekodeovergrænse1"
loop
end
end
hvis projektgruppekode2 < "fra-gruppekodeundergrænse2"
hvis projektgruppekode2 > "til-gruppekodeovergrænse2"
loop
end
end
hvis projektgruppekode3 < "fra-gruppekodeundergrænse3"
hvis projektgruppekode3 > "til-gruppekodeovergrænse3"
loop
end
end
hvis projektgruppekode4 < "fra-gruppekodeundergrænse4"
hvis projektgruppekode4 > "til-gruppekodeovergrænse4"
loop
end
end
hvis projektgruppekode5 < "fra-gruppekodeundergrænse5"
hvis projektgruppekode5 > "til-gruppekodeovergrænse5"
loop
end
end
hvis projektgruppekode6 < "fra-gruppekodeundergrænse6"
hvis projektgruppekode6 > "til-gruppekodeovergrænse6"
loop
end
end
*
* 5. kriterie projekter alle, åbne eller lukkede i perioden *
*
* std.: 5.2 alle åbne projekter *
*
hvis 5.1
* ok, alt med *
end
hvis 5.2
hvis projekt-slutdato <> "000000"
loop
end
end
hvis 5.3
hvis projekt-slutdato < "fra-periode-dato"
hvis projekt-slutdato > "til-periode-dato"
loop
end
end
end
*
* 6. kriterie projekter ledet af *
*
hvis 6
hvis projekt-ledet-af <> "indtastet-initialer"
loop
end
end
*
*** nu skal eventuelle tilhørende aktiviteter behandles ***
*
gem projekt record
sæt indeks start til "det-fundne-projektnummer"
move T to UDSOG
UDSOG løkke
*
* læs en aktivitets record *
*
læs aktivitet
hvis eof
move F to UDSOG
loop
end
hvis projektnummer <> "det-fundne-projektnummer"
move F to UDSOG
loop
end
*
* 3 & 4. kriterie grænser for aktivitetsgruppekoderne 7 - 11 *
*
* std.: under grænse interval er 00'er *
* std.: over grænse interval er 99'er *
*
hvis aktivitetgruppekode7 < "fra-gruppekodeundergrænse7"
hvis aktivitetgruppekode7 > "til-gruppekodeovergrænse7"
loop
end
end
hvis aktivitetgruppekode8 < "fra-gruppekodeundergrænse8"
hvis aktivitetgruppekode8 > "til-gruppekodeovergrænse8"
loop
end
end
hvis aktivitetgruppekode9 < "fra-gruppekodeundergrænse9"
hvis aktivitetgruppekode9 > "til-gruppekodeovergrænse9"
loop
end
end
hvis aktivitetgruppekode10 < "fra-gruppekodeundergrænse10"
hvis aktivitetgruppekode10 > "til-gruppekodeovergrænse10"
loop
end
end
hvis aktivitetgruppekode11 < "fra-gruppekodeundergrænse11"
hvis aktivitetgruppekode11 > "til-gruppekodeovergrænse11"
loop
end
end
*
gem aktivitets record
*
* 7. kriterie planlinier for alle *
*
* std.: ikke specificeret på medarbejder *
*
*
* 8. kriterie udskrift af aktivitetsstamdata *
*
* std.: udskrives ikke *
*
*
* 9. kriterie opgjorte timer omregnes *
*
* std.: ingen omregning *
*
*
* 10. kriterie antal eksemplarer af udskriften *
*
* std.: et eksemplar *
*
loop
SLUT-UDSOG
loop
SLUT-UDVÆLG
***********************************************
*** ***
*** sortering ***
*** ***
***********************************************
hvis sort ej valgt
sæt sorteringskriterie lig med nuværende sortering
end
UDFØR SORTERING AF DE FUNDNE RECORD
***********************************************
*** ***
*** udskrivning ***
*** ***
***********************************************
*
* antal tegn på printlinien i dag:
*
* heraf 'bemærkninger'......: 25
*
* plan,forbrug,vurd.........: 29
* tilvækst,index............: 15
*
* oplysninger...............: 45
* ___
* ialt .....................: 114
*
* overskrifter i dag:
*
* linie 1 med rc-prosit, tekst , dag, dato ude og side.
*
* linie 2 & 3 hovedoplysninger om projektet vist på siden.
*
* linie 4 & 5 forklaring til oplysningerne i søjlerne.
*
* linie 6 streg.
*
:
«eof»