|
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: 15104 (0x3b00)
Types: TextFile
Names: »VEJLED.CMD«
└─⟦871340d2f⟧ Bits:30005949 RC Organisationsplan Diskette A 15/01-86
└─⟦this⟧ »VEJLED.CMD«
*****************************************************************************
* COMMANDO FILE TIL RC ORGANISATIONS PLAN *
* NAVN : VEJLED.CMD SIDST ÆNDRET DATO: 86.01.08 KL..: 08.50 *
* KALDES FRA START.CMD *
*****************************************************************************
store T to vlok
*
DO WHILE VLOK
store ' ' to v
set console on
erase
text
*** VEJLEDNING TIL RC ORGANISATIONS PLAN O 6 ***
...............................................................................
00. SLUT MED VEJLEDNING
10. START OG SLUT AF SYSTEMET
20. SIKKERHEDSKOPIER
30. UDSKRIVNING AF LISTER
40. HENT MEDARBEJDER OPLYSNING
50. OPDATERING AF REGISTRE
60. ONLINE FUNKTIONER
70. FEJL SITUATIONER
...............................................................................
endtext
@ 22,0 say 'NUMMER ? ' get v
read
*
if v='0'
store F to vlok
loop
endif 0
*
if v='10'
erase
text
10. START OG SLUT AF SYSTEMET.
Ved 'kold opstart' af maskinen, det vil sige når maskinen har været slukket
helt, vil første menu-billede automatisk blive vist. (AUTOEXEC=DBASE START)
Ved 'varm start' når du er i CP/M og vil ind i ORGANISATIONS PLAN,
så vil der stå ' A> ', og du taster DBASE START.
Ved normal afslutning af systemet tastes der 0 (nul) på hoved-menu billedet.
Systemet lukkes af og går ud til CP/M og viser , hvor meget der er tilbage
på diskette A: , og der vil bagefter på skærmen stå ' A> '
Se afsnit 70 om fejl situationer !
Skulle det ske, at systemet går ned og ikke går tilbage til CP/M (' A> '),
så vil der stå '. ' (punktum).
Dette markerer, at du stadig er i systemet, og der tastes 'DO SLUT' for at
komme ud af systemet og tilbage til CP/M.
Hvis dette ikke hjælper, så tast 'CLEAR' og prøv bagefter med 'QUIT'.
HUSK det skal betragtes som fejl.
TAST RETUR
endtext
set console off
wait
loop
endif 10
*
if v='20'
erase
text
20. SIKKERHEDSKOPIER.
Sikkerhedskopi kaldes også backup.
Der er IKKE indlagt sikkerhedskopi i systemet, det er brugeren selv som
SKAL tage sikkerhedskopi af diskette A:
Hvis nye disketter anvendes til sikkerhedskopi, så skal disketten være
formatteret med "FORMAT"-programmet.
"BACKUP"-programmet flytter alt fra ind-disketten til ud-disketten, og
overskriver alt eksisterende på ud-disketten.
"FORMAT" af eventuelle nye disketter samt "BACKUP" er for eksempel
beskrevet på dansk i RC-tekstbehandlings manualer.
"FORMAT" og "BACKUP" programmer er på denne diskette.
Før opdatering vil være et godt tidspunkt til at sikre sig med kopi.
Husk at hvis sikkerhedskopi er i orden, så bliver der sjældent brug for
sikkerhedskopien. Hvis IKKE så ramler det temmeligt sandsynligt på det
mest ubelejlige tidspunkt ! Det vigtigste register er ORG.DBF
Tør du tage chancen ?
TAST RETUR
endtext
set console off
wait
loop
endif 20
*
if v='30'
erase
text
30. UDSKRIVNING AF LISTER
Tast nummeret på den ønskede liste, og tast 0 (nul) når du er færdig eller
hvis du fortryder. Der findes 4 lister ialt i dette system.
Hvis du ønsker at få alt skrevet ud, så tast $-TEGN i hele fra-værdi.
Til-værdi er ligegyldigt her, tast for eksempel retur.
I liste 1: tast fra afdelingsnummer til afdelingsnummer, eller $ for alt
I liste 2: ikke noget valg, alt udskrives ca. 2 sider
I liste 3: tast $ for alt i fraværdi, eller 1 for økonomi direktør,
2 for adm. direktør eller 3 fro teknisk direktør.
I liste 4: tast fra afdelingsnummer til afdelingsnummer, eller $ for alt
Hvis du ikke kender start-værdi, så tast det kendte og fyld op med $-tegn.
I til-værdi må der IKKE benyttes $-tegn. Et eksempel: alle afdelinger med
første ciffer = 5 ønskes, så tastes fra-værdi = 5$ og til-værdi = 59.
Indtast også den dato du ønsker anført på listen.
Tast så ok/OK hvis printer er klar, eller tast retur hvis du fortryder !
Vær sikker på at printeren er klar, inden der svares ok !
Systemet kan IKKE teste om printeren er klar.
TAST RETUR
endtext
set console off
wait
loop
endif 30
*
if v='40'
erase
text
40. HENT MEDARBEJDER OPLYSNING.
Disketten fra MEDARBEJDER OPLYSNING skal indsættes i diskette station B:
og anvendes som input. Efter denne kørsel skal den tages ud igen !
Du skal bekræfte ved at svare ok/OK, når programmet spørger om det,
men hvis du fortryder, så tast RETUR !
Resten af opdateringen sker automatisk med meddelelser på skærmen.
Tast retur når opdateringen er færdig, og husk også at køre opdatering
af registre.
Hent medarbejder oplysning kan STARTES forfra uden at ødelægge noget.
TAST RETUR
endtext
set console off
wait
loop
endif 40
*
if v='50'
erase
text
50. OPDATERING AF REGISTRE.
Der skal være kørt HENT MEDARBEJDER OPLYSNING.
Hvis du vælger OPDATERING MED NULSTILLING (valg 2 på billede O 2), så
vil afdelings oplysninger blive nulstillet og skal tastes ind igen.
Hvis du vælger VEDLIGEHOLD MED EKSISTERENDE (valg 3 på billede O 2), så
vil afdelings oplysninger IKKE blive nulstillet. ADFGÅEDE afdelinger vil
blive slettet, og nye vil blive oprettet. Nye afdelinger skal ajourføres
manuelt i ONLINE FUNKTIONEN og nye afdelinger vil være markeret med 'NY' i
OVERORDNET AFDELINGS NUMMER på skærmbilled O 4 !
EFTER at du har ajourført afdelings oplysninger, så skal du køre OPDATER
PLAN OPLYSNINGER (valg 4 på billede O 2), og kan listerne skrives ud.
Du skal bekræfte program valget, når programmet spørger om det,
men hvis du fortryder dit valg, så tast RETUR !
Resten af kørslen sker automatisk med meddelelser på skærmen.
Tast retur når kørslen er færdig.
TAST RETUR
endtext
set console off
wait
loop
endif 50
*
if v='60'
erase
store T to BULOKKE
*
DO WHILE BULOKKE
store ' ' to B
set console on
erase
text
*** VEJLEDNING TIL RC ORGANISATIONS PLAN ONLINE ***
...............................................................................
00. SLUT MED VEJLEDNING TIL ONLINE FUNKTIONER
61. OPRETTELSE ( FUNKTION 1 PÅ SKÆRMBILLED O 3 )
62. SØGNING ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
63. RETTELSE ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
64. SLETNING ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
65. SCANNING AF RECORDS ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
66. PRINT AF ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
67. UDSKRIVNING AF LABELS ( FUNKTION 3 PÅ SKÆRMBILLED O 3 )
...............................................................................
endtext
@ 23,0 say 'NUMMER ? ' get B
read
*
if B='0'
store F to BULOKKE
loop
endif 0
*
if B='61'
erase
text
61. OPRETTELSE ( FUNKTION 1 PÅ SKÆRMBILLED O 3 )
Ved slut eller fortryd så tast retur til alle felter uden at indtaste data,
ELLER lad cursor stå i første felt, som skal være blank, og tast samtidig på
CTRL OG W.
Hvis du ønsker at rette et felt, så brug pil tilbage ( <-- ) og ret.
Tast derefter retur indtil du kommer frem til dit udgangs-felt.
Når data er ok, så tast retur nederst på skærmen og afvent godkendelsen
af det indtastede.
HUSK: Efter oprettelse skal du køre OPDATERING PLAN OPLYSNINGER,
vælg 4 (OPDATERING PLAN OPLYSNINGER) PÅ SKÆRMBILLED O 2 !!!
TAST RETUR
endtext
set console off
wait
loop
endif 61
*
if B='62'
erase
text
62. SØGNING ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
Ved slut eller fortryd så tast retur nederst på skærmen efter de viste
kommando muligheder.
Ellers taster du afdelings nummer lig med det nummer du ønsker at se.
Så vil systemet prøve at finde recorden med den indtastede nøgle.
Hvis den ikke findes, så bliver det meddelt nederst på skærmen.
Ellers bliver recorden vist på skærmen.
Du kan nu taste N for næste record eller P for foregående record.
Hvis du taster M for flere kommandoer, så får du mulighed for at RETTE,
SLETTE eller PRINTE den viste record.
TAST RETUR
endtext
set console off
wait
loop
endif 62
*
if B='63'
erase
text
63. RETTELSE ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
For at kunne rette en record, så skal den ønskede record være VIST på
skærmen, og dette gør du med SØGNING (se vejledning punkt 62).
Du skal taste M for flere kommandoer, hvor du vælger E for EDITERING.
Cursor vil blive placeret i første felt, og du kan rette ønskede felter.
Hvis der er felter du ikke ønsker at rette, så taster du blot retur.
Hvis du ønsker at rette et foregående felt, så brug pil tilbage ( <-- ).
Ret og tast derefter retur indtil du kommer frem til dit udgangs-felt.
Når du er færdig, så tast retur nederst på skærmen og afvent godkendelsen.
Du har mulighed for at rette recorden igen, hvis du svarer Y (ja) til
spørgsmålet om flere rettelser nederst på skærmen, ellers taster du retur.
HUSK: Efter rettelse af OVERORDNET AFDELINGS NUMMER,
så skal du køre OPDATERING PLAN OPLYSNINGER,
vælg 4 (OPDATERING PLAN OPLYSNINGER) PÅ SKÆRMBILLED O 2 !!!
TAST RETUR
endtext
set console off
wait
loop
endif 63
*
if B='64'
erase
text
64. SLETNING ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
For at kunne slette en record, så skal den ønskede record være VIST på
skærmen, og dette gør du med SØGNING (se vejledning punkt 62).
Du taster M for flere kommandoer, hvor du vælger D for sletning.
Til spørgsmålet om du ønsker at slet-markere den viste record skal du svare
Y (ja) , hvis den skal markeres til sletning, ellers svar med alt andet.
Når du er færdig med søgning, rette, slette og printe i funktion 2, så vil
du blive spurgt, om de slet-markerede records skal fjernes.
Hvis du svarer Y (ja) så vil alle record, som er markeret til sletning, blive
fjernet fysisk fra register.
Men hvis du fortryder, så taster du blot retur og markeringerne fjernes !!
HUSK: Efter sletning skal du køre OPDATERING PLAN OPLYSNINGER,
vælg 4 (OPDATERING PLAN OPLYSNINGER) PÅ SKÆRMBILLED O 2 !!!
TAST RETUR
endtext
set console off
wait
loop
endif 64
*
if B='65'
erase
text
65. SCANNING AF RECORDS ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
Du kan søge på samtlige records med flere kombinations muligheder.
ADVARSEL: Hvis der tastes forkert, så vil dbase II sige syntax error,
og du bør da kende lidt til rettelser !
Du skal taste M for flere kommandoer, og derefter vælge C for SCAN.
I nederste venstre hjørne på skærmen vil der stå **, når du er i funktionen.
Du kan rette, printe, slette, få vist Næste record i scanning.
Afdelingsnummer hedder AFNU, sted hedder STED, afdelingsnavn hedder NAVN,
den afdelings ansvarlige initialer hedder CHEF, overordnet afdelings nummer
hedder OVER, og planoplysninger hedder PLAN.
Der kan anvendes >, <, =, <>, .and. , .or. , i karakterfelter brug ' '.
Eksempel: OVER = 'NY' betyder at der skal søges efter afdelinger, der er
NY OPRETTET.
Du kommer ud af scanning ved enten at forlade funktion 2 på skærmbilled O 3,
eller ved at anvende kommando P for foregående record, eller når register
slutmarkering (End of file) er nået. ( ** forsvinder )
TAST RETUR
endtext
set console off
wait
loop
endif 65
*
if B='66'
erase
text
66. PRINT AF ENKELT RECORD ( FUNKTION 2 PÅ SKÆRMBILLED O 3 )
For at kunne printe en record, så skal den ønskede record være VIST på
skærmen, og dette gør du med SØGNING (se vejledning punkt 62).
Du taster M for flere kommandoer, hvor du vælger P for print.
Husk at systemet ikke kan teste om printeren er klar !
TAST RETUR
endtext
set console off
wait
loop
endif 66
*
if B='67'
erase
text
67. UDSKRIVNING AF LABELS ( FUNKTION 3 PÅ SKÆRMBILLED O 3 )
Ved at vælge denne funktion kan du få skrevet medarbejdere ud på samme måde
som skærmbillede O 4, der anvendes i de øvrige online funktioner.
Du kan vælge, om du vil scanne efter bestemte oplysninger, se under scanning !
Hvis du siger N (nej), så får du alle afdelinger ud i afdelings orden !
Hvis du ønsker at få hver enkelt afdeling på hver sin side, så taster du
0 (nul) til antal linier for labels, ellers tast 20 !
Husk at systemet ikke kan teste om printeren er klar !!
TAST RETUR
endtext
set console off
wait
loop
endif 67
*
*
enddo bulokke
LOOP
endif 60
*
*
if v='70'
erase
text
70. FEJL SITUATIONER
Virker/reagerer systemet pludselig anderledes - så skriv det ned !
Hvad var du i gang med ? Hvad skete der ? Kan du dokumentere fejlen ?
Kan du fremprovokere fejlen igen ? Kan du huske det nummer, som du var
ved at taste ind ?
Når du har nedskrevet oplevelsen så godt det nu er muligt så kontakt edb-
afdelingen. Prøv ikke selv at klare den - det kan måske gøre det hele værre.
Og fremt for alt - tag IKKE sikkerhedskopi - før fejlen er behandlet.
Når fejlen er noteret og du vil tilbage til CP/M (' A> '), så kan der måske
stå '. ' , og dette markerer at du stadig er i systemet, så tast 'DO SLUT'
for at komme ud og tilbage til CP/M. Hvis dette ikke hjælper, så tast 'USE'
og prøv med 'QUIT'. (slut, use eller quit lukker registre ok)
Har man svaret 'ok' til en printer, der IKKE var ok , så tryk på 'RESET'
knappen bag på skærmen for at starte systemet op igen.
Fejl bedes meddelt edb-afdelingen med nøjagtig gengivelse af skærm meddel-
elser som mulig.
TAST RETUR
endtext
set console off
wait
loop
endif 80
*
ENDDO VLOK
erase
release vlok, v, bulokke, b
return
«eof»