DataMuseum.dk

top - metrics - download

    Length: 2176 (0x880)
    Types: TextFile
    Names: »HENT.CMD«

└─⟦871340d2f⟧ Bits:30005949 RC Organisationsplan Diskette A 15/01-86
    └─⟦this⟧ »HENT.CMD« 

TextFile

*****************************************************************************
*    COMMANDO FILE TIL  RC    ORGANISATIONS PLAN                            *
*    NAVN : HENT.CMD      SIDST ÆNDRET DATO: 86.01.07   KL..: 14.30         *
*    KALDES FRA START.CMD VIA O1.MEN OG O2.MEN                              *
*****************************************************************************
USE
set escape on
store '  ' to ok
set talk off
use
erase
? ' ***   RC  ORGANISATIONS PLAN     HENT MEDARBEJDER OPLYSNINGER    ***'
? ' --------------------------------------------------------------------'
? ' ***   Henter oplysninger fra diskette b:PERS  til a:MED          ***'
? ' '
? ' 1. DISKETTE TIL INPUT FOR OPDATERING          ,  VENT !'
? '  '
? '    INDSÆT RC SAMMENLIGNING MEDARBEJDER OPLYSNING I'
? '    DISKETTE STATION B OG TAST  OK  ! '
ACCEPT '    ELLERS TAST  RETUR  FOR FORTRYD                     ' TO OK
if !(OK) <> 'OK'
    erase
    return
endif
*
? ' '
? ' 2. KONTROL FOR RIGTIG DISKETTE                ,  VENT !'
? ' '
store "'B:PERS.DBF'" to navn
if .not. file(&navn)
    ? ' *** DET ER  I K K E  DEN RIGTIGE DISKETTE, TAST RETUR !'
    WAIT
    return
endif
*
? ' 3. DE GAMLE REGISTRE SKAL NULSTILLES          ,  VENT !'
set talk on
? ' '
? '    2  FILER SKAL SLETTES   ( DELETES )              '
? ' '
DELETE FILE MED.NDX
*
use MED
copy to medwork structure
use
delete file MED
rename medwork to MED
use MED
*
? ' '
? ' 4. MEDARBEJDER OPLYSNINGER HENTES             ,  VENT !'
use b:pers index b:afma
copy to med fields afnu, sted, manr, init, anda, afda, anpr for afnu <> '  '
? ' '
? ' 5. LAV INDEX PÅ AFD.NR OG MEDARBEJDER.NR      ,  VENT !'
? ' '
use med
index on afnu + manr to med
set talk off
? ' '
? ' 6. SLUT HENT MEDARBEJDER OPLYSNING TIL PLAN          '
? '    HUSK AT TAGE DISKETTEN FRA DISKETTE STATION B UD !'
? '                                            TAST RETUR'
? ' -----------------------------------------------------'
set console off
wait
set console on
set escape off
store '  ' to ok
release navn
return
«eof»