|
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: 14848 (0x3a00)
Types: TextFile
Names: »PLAN.CMD«
└─⟦871340d2f⟧ Bits:30005949 RC Organisationsplan Diskette A 15/01-86
└─⟦this⟧ »PLAN.CMD«
*****************************************************************************
* COMMANDO FILE TIL RC ORGANISATIONS PLAN *
* NAVN : PLAN.CMD SIDST ÆNDRET DATO: 86.01.07 KL..: 14.45 *
* KALDES I START.CMD VIA O1.MEN OG O2.MEN *
*****************************************************************************
SET TALK OFF
SET ESCAPE ON
store ' ' to ok
use
erase
? ' *** RC ORGANISATIONS PLAN KLARGØR PLAN O 2 ***'
? ' --------------------------------------------------------------------'
? ' '
? ' 1. ER DER KØRT OPDAT ELLER VEDLIGEHOLD AF REGISTRE ?'
? ' SAMT AJOURFØRING ONLINE AF AFDELINGS OPLYSNINGERNE ?'
accept ' SÅ TAST OK ELLER VED FORTRYD SÅ RETUR ........... ' to ok
if !(OK) <> 'OK'
erase
return
endif
*
store ' ' to ok
? ' '
? ' 2. PLAN OPLYSNINGER BLANKES , VENT !'
? ' '
*
USE ORG INDEX ORG
GO TOP
set talk on
replace all plan with ' '
set talk off
*
? ' '
? ' 3. FØRSTE GENNEMLØB AF PLAN , VENT !'
? ' '
*
USE ORG INDEX ORG
GO TOP
*
store ' ' to gemover
store ' ' to gemafnu
store 0 to andret
store 1 to lastet
store 0 to ejrepl
store F to behand
*
store T to forste
DO WHILE FORSTE
if over < ' 4'
store afnu to gemafnu
store over to gemover
replace plan with over + afnu
store T to behand
endif over mindre end 4
*
if over = gemafnu
replace plan with gemover + gemafnu + afnu
store T to behand
endif over mindre end 4
*
if behand
store andret + 1 to andret
store F to behand
else
store ejrepl + 1 to ejrepl
endif
*
skip
if eof
store F to forste
? ' '
? ' record læste .......................... ' , lastet
? ' record ændret ......................... ' , andret
? ' record ikke ændret .................... ' , ejrepl
? ' '
loop
endif eof
store lastet + 1 to lastet
loop
ENDDO FORSTE
*
? ' '
? ' 4. ANDET GENNEMLØB AF PLAN , VENT !'
? ' '
*
USE ORG INDEX ORG
GO TOP
*
store ' ' to gemover
store ' ' to gemafnu
store ' ' to gemnogle
store ' ' to sognogle
store 0 to andret
store 1 to lastet
store 0 to ejrepl
store F to behand
*
store T to anden
DO WHILE ANDEN
if plan <> ' '
store ejrepl + 1 to ejrepl
skip
if eof
store F to anden
? ' '
? ' record læste .......................... ' , lastet
? ' record ændret ......................... ' , andret
? ' record ikke ændret .................... ' , ejrepl
? ' '
loop
endif eof
store lastet + 1 to lastet
loop
endif plan ok
*
if afnu = ' 0'
store ejrepl + 1 to ejrepl
skip
if eof
store F to anden
? ' '
? ' record læste .......................... ' , lastet
? ' record ændret ......................... ' , andret
? ' record ikke ændret .................... ' , ejrepl
? ' '
loop
endif eof
store lastet + 1 to lastet
loop
endif plan ok
*
if over < ' 4'
store ejrepl + 1 to ejrepl
skip
if eof
store F to anden
? ' '
? ' record læste .......................... ' , lastet
? ' record ændret ......................... ' , andret
? ' record ikke ændret .................... ' , ejrepl
? ' '
loop
endif eof
store lastet + 1 to lastet
loop
endif plan mindre end 4
*
store afnu + over to gemnogle
store over to sognogle
find '&sognogle'
if # = 0
? ' søg nøgle ikke fundet .................. ' , sognogle
? ' ..............................tast retur '
wait
store F to anden
loop
endif ej ok sog
store over to gemover
store afnu to gemafnu
*
find '&gemnogle'
if # = 0
? ' gem nøgle ikke fundet .................. ' , gemnogle
? ' ..............................tast retur '
wait
store F to anden
loop
endif ej ok sog
replace plan with gemover + gemafnu + afnu
store T to behand
store ' ' to gemover
store ' ' to gemafnu
store ' ' to gemnogle
store ' ' to sognogle
*
if behand
store andret + 1 to andret
store T to behand
else
store ejrepl + 1 to ejrepl
endif
*
skip
if eof
store F to anden
? ' '
? ' record læste .......................... ' , lastet
? ' record ændret ......................... ' , andret
? ' record ikke ændret .................... ' , ejrepl
? ' '
loop
endif eof
store lastet + 1 to lastet
loop
ENDDO ANDEN
*
? ' '
? ' 5. TREDIE GENNEMLØB AF PLAN , VENT !'
? ' '
*
USE ORG INDEX ORG
GO TOP
*
store ' ' to gemover
store ' ' to gemplan
store ' ' to gemnogle
store ' ' to sognogle
store 0 to andret
store 1 to lastet
store 0 to ejrepl
store F to behand
*
store T to tredie
DO WHILE TREDIE
if $(plan,1,1) = ' '
store ejrepl + 1 to ejrepl
skip
if eof
store F to tredie
? ' '
? ' record læste .......................... ' , lastet
? ' record ændret ......................... ' , andret
? ' record ikke ændret .................... ' , ejrepl
? ' '
loop
endif eof
store lastet + 1 to lastet
loop
endif plan ok
*
store afnu + over to gemnogle
store $(plan,1,2) to sognogle
find '&sognogle'
if # = 0
? ' søg nøgle ikke fundet .................. ' , sognogle
? ' ..............................tast retur '
wait
store F to tredie
loop
endif ej ok sog
store over to gemover
*
find '&gemnogle'
if # = 0
? ' gem nøgle ikke fundet .................. ' , gemnogle
? ' ..............................tast retur '
wait
store F to tredie
loop
endif ej ok sog
store $(plan,1,6) to gemplan
replace plan with gemover + gemplan
store T to behand
store ' ' to gemover
store ' ' to gemplan
store ' ' to gemnogle
store ' ' to sognogle
*
if behand
store andret + 1 to andret
store T to behand
else
store ejrepl + 1 to ejrepl
endif
*
skip
if eof
store F to tredie
? ' '
? ' record læste .......................... ' , lastet
? ' record ændret ......................... ' , andret
? ' record ikke ændret .................... ' , ejrepl
? ' '
loop
endif eof
store lastet + 1 to lastet
loop
ENDDO TREDIE
*
? ' '
? ' 6. PLAN INDEX DANNES TIL LISTERNE , VENT !'
? ' '
*
USE ORG
set talk on
index on plan to plan
*set talk off
release forste, anden, tredie, sognogle, behand, andret, lastet, ejrepl
release gemnogle, gemafnu, gemover, gemplan
*
************ OPRINDELIG PLAN2.CMD *********************************
? ' '
? ' 7. OPLYSNINGER TIL ORGANISATIONS PLAN , VENT !'
? ' '
? ' FØRST NULSTILLING AF GAMLE REGISTRER , VENT !'
? ' '
? ' 2 FILER SKAL SLETTES ( DELETES )'
? ' '
DELETE FILE FLIP.NDX
*
use plan
copy to planwork structure
use
delete file plan
rename planwork to plan
use plan
index on flip to flip
? ' '
store T to lokke
store T to loppe
store '1' to tfunk
store ' 0 1 ' to gem
use org index plan
find '&gem'
if # = 0
@ linie,10 '>>>>> find blank 1 i org ej ok <<<<<'
WAIT
return
endif
store '* '+chef+' *' to tinit
store '* '+navn+' *' to tnavn
store T to nokken
do while nokken
*
*** --------------------------------------------------------- ***
**** START HER ALLE TRE GANGE ***
*
store 01 to linie
store 51 to posit
store 01 to gemside
use plan index flip
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with '************************'
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with '* *'
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with tinit
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with '* *'
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with tnavn
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with '* *'
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with '***********:************'
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 4 to linie
store linie to gemlinie
store -24 to posit
*
do while lokke
USE ORG INDEX PLAN
find '&gem'
if # = 0
@ linie,10 '>>>>> genlæs org ej ok lokke 1 <<<<<'
WAIT
store F to lokke
return
endif
skip
if EOF
store F to lokke
loop
endif sidste record lokke
do while loppe
if $(plan,2,1) <> TFUNK
skip
loop
else
store F to loppe
endif loppe
enddo loppe
if $(plan,2,1) <> TFUNK
store F to lokke
loop
endif slut for 1
store plan to gem
store '* '+afnu+' *' to tafd
store ': '+chef+' '+sted+' *' to tinit
store '* '+navn+' *' to tnavn
if $(plan,5,2) = ' '
******** første niveau efter direktør ********
store posit + 25 to posit
store 01 to gemside
if linie <> gemlinie
store gemlinie to linie
endif
else
if $(plan,7,2) = ' '
******** andet niveau efter direktør ********
store linie + 02 to linie
else
******** tredie niveau efter direktør ********
store linie + 02 to linie
endif
endif
****
if linie > 60
store gemside + 1 to gemside
store 01 to linie
endif
use plan index flip
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with '***********:************'
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with tafd
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with '* *'
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with tinit
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with '* *'
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with tnavn
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
store linie + 1 to linie
append blank
replace funk with TFUNK
replace side with gemside
replace lini with linie
replace posi with posit
replace text with '************************'
replace flip with funk + str(side,2,0) + str(lini,3,0) + str(posi,3,0)
*store 14 to linie
*store posit + 25 to posit
*****
loop
enddo lokke
*** --------------------------------------------------------- ***
IF TFUNK = '1'
store ' 0 2 ' to gem
use org index plan
find '&gem'
if # = 0
@ linie,10 '>>>>> find blank 2 i org ej ok <<<<<'
WAIT
store F to lokke
store F to loppe
return
endif
store '* '+chef+' *' to tinit
store '* '+navn+' *' to tnavn
STORE '2' TO TFUNK
STORE T TO LOKKE
STORE T TO LOPPE
LOOP
ENDIF TFUNK1
IF TFUNK = '2'
store ' 0 3 ' to gem
use org index plan
find '&gem'
if # = 0
@ linie,10 '>>>>> find blank 3 i org ej ok <<<<<'
WAIT
store F to lokke
store F to loppe
return
endif
store '* '+chef+' *' to tinit
store '* '+navn+' *' to tnavn
STORE '3' TO TFUNK
STORE T TO LOKKE
STORE T TO LOPPE
LOOP
ENDIF TFUNK2
IF TFUNK = '3'
STORE F TO NOKKEN
LOOP
ENDIF TFUNK3
*
ENDDO NOKKEN*
*
release gem, tafd, tinit, tnavn, tfunk, linie, posit, nokken, lokke, loppe
release gemlinie, gemside
*
? ' 8. SLUT PLAN RC ORGANISATIONS PLAN '
? ' NU ER REGISTRENE OPDATERET TIL LISTE UDSKRIFTER !'
? ' TAST RETUR'
? ' -----------------------------------------------------'
set console off
wait
set console on
set escape off
store ' ' to ok
use
return
«eof»