DataMuseum.dk

top - metrics - download

    Length: 5632 (0x1600)
    Types: TextFile
    Names: »BRUDIF.CMD«

└─⟦c2fe28dee⟧ Bits:30008867 CORN 2 851210 CORN 3Z (RC org. database?)
    └─⟦this⟧ »BRUDIF.CMD« 

TextFile

*****************************************************************************
*    COMMANDO FILE TIL  RC VITS KONTROL LISTE BRUGERKATALOGER MOD PERS      *
*    NAVN : BRUDIF.CMD    SIDST ÆNDRET DATO: 85.05.30   KL..: 08.00         *
*    KALDES FRA START.CMD VIA M1.MEN OG M2.MEN                              *
*****************************************************************************
USE
set escape on
store '  ' to ok
store '      ' to dagsdato
set talk off
use
erase
? ' ***   RC SAMMENLIGNING BRUGERKATALOGER OG MEDARBEJDER OPLYSNING   ***'
? ' ---------------------------------------------------------------------'
? ' '
? ' 1. ER DER KØRT OPDATERING MED TRANSAKTIONS-FILER ?'
accept '        TAST  JA  ELLER  FORTRYD  SÅ RETUR  ........... ' to ok
if !(OK) <> 'JA'
    erase
    return
endif
*
accept ' 2. INDTAST DATO TO LISTE UDSKRIFTEN  ................. ' TO DAGSDATO
? '  '
*
? ' 3. SAMMENLIGNING AF MEDARBEJDER OPLYSNINGER   ,  VENT !'
? '  '
use a:brukat index a:brukat
set talk off
go top
store manr to nogle
store init to vinit
store afnu to vafnu
store '     ' to pinit
store '  ' to pafnu
store '        ' to pbemark
store 1 to diflast
store 0 to difok
store 0 to difny
store F to difrec
store 99 to linie
*
use b:pers index b:pers
find '&nogle'
store difok + 1 to difok
if # = 0
   store 'AFGÅET ?' to pbemark
   store T to difrec
else
   if init <> vinit
      store T to difrec
      store init to pinit
   endif
   if afnu <> vafnu
      store T to difrec
      store afnu to pafnu
   endif
endif
if difrec
   store F to difrec
   store difny + 1 to difny
   set print on
   set console off
   set format to print
   if linie > 60
      store 01 to linie
      ? chr(30)
      ? chr(31)
      @ linie,02 say 'VITS kontrol-liste'
      @ linie,28 say dagsdato using 'XXXXXX'
      store linie + 03 to linie
      ? chr(30)
      @ linie,05 say 'MED.NR.'
      @ linie,20 say 'KAT.INIT.'
      @ linie,30 say 'PER.INIT.'
      @ linie,40 say 'KAT.AFD.'
      @ linie,50 say 'PER.AFD.'
      @ linie,60 say 'BEMÆRK:'
      store linie + 1 to linie
      @ linie,05 say '-------'
      @ linie,20 say '---------'
      @ linie,30 say '---------'
      @ linie,40 say '--------'
      @ linie,50 say '--------'
      @ linie,60 say '-------'
      store linie + 3 to linie
   endif ny side
   @ linie,05 say nogle using 'XXXX'
   @ linie,20 say vinit using 'XXXXX'
   @ linie,30 say pinit using 'XXXXX'
   @ linie,40 say vafnu using 'XX'
   @ linie,50 say pafnu using 'XX'
   @ linie,60 say pbemark using 'XXXXXXXX'
   store linie + 2 to linie
   set print off
   set format to screen
   set console on
endif difrec
*
store T to fin
do while fin
   use a:brukat index a:brukat
   find '&nogle'
   if # = 0
      ? ' antal læste bruger kat record .......... '      , diflast
      ? ' antal læste personale  record .......... '      , difok
      ? ' antal record  MED  differencer ......... '      , difny
      ? ' >>> FEJL  ved næste læs af a:brukat ......  tast retur '
      wait
      store F to fin
      return
   endif
   skip 1
   if eof
      store F to fin
      ? ' antal læste bruger kat record .......... '      , diflast
      ? ' antal læste personale  record .......... '      , difok
      ? ' antal record  MED  differencer ......... '      , difny
      loop
   endif eof
   store diflast + 1 to diflast
   store manr to nogle
   store afnu to vafnu
   store init to vinit
   store '     ' to pinit
   store '  ' to pafnu
   store '        ' to pbemark
*
use b:pers index b:pers
find '&nogle'
store difok + 1 to difok
if # = 0
   store 'AFGÅET ?' to pbemark
   store T to difrec
else
   if init <> vinit
      store T to difrec
      store init to pinit
   endif
   if afnu <> vafnu
      store T to difrec
      store afnu to pafnu
   endif
endif
if difrec
   store F to difrec
   store difny + 1 to difny
   set print on
   set console off
   set format to print
   if linie > 60
      store 01 to linie
      ? chr(30)
      ? chr(31)
      @ linie,02 say 'VITS kontrol-liste'
      @ linie,28 say dagsdato using 'XXXXXX'
      store linie + 03 to linie
      ? chr(30)
      @ linie,05 say 'MED.NR.'
      @ linie,20 say 'KAT.INIT.'
      @ linie,30 say 'PER.INIT.'
      @ linie,40 say 'KAT.AFD.'
      @ linie,50 say 'PER.AFD.'
      @ linie,60 say 'BEMÆRK:'
      store linie + 1 to linie
      @ linie,05 say '-------'
      @ linie,20 say '---------'
      @ linie,30 say '---------'
      @ linie,40 say '--------'
      @ linie,50 say '--------'
      @ linie,60 say '-------'
      store linie + 3 to linie
   endif ny side
   @ linie,05 say nogle using 'XXXX'
   @ linie,20 say vinit using 'XXXXX'
   @ linie,30 say pinit using 'XXXXX'
   @ linie,40 say vafnu using 'XX'
   @ linie,50 say pafnu using 'XX'
   @ linie,60 say pbemark using 'XXXXXXXX'
   store linie + 2 to linie
   set print off
   set format to screen
   set console on
endif difrec
loop
enddo fin
? '  '
*
? ' 4. SLUT VITS KONTROL LISTE BRUGERKATALOGER MOD PERSONA-'
? '    LE KARTOTEKETS OPLYSNINGER (PERS INDEX PERS )      !'
? '                                              TAST RETUR'
? ' -------------------------------------------------------'
set console off
wait
set console on
set talk off
set escape off
store '  ' to ok
release nogle, vafnu, pafnu, vinit, pinit, diflast, difok, difny, fin, difrec
release pbemark, linie, dagsdato
set print on
eject
set print off
use
return
«eof»