* Zusatzprogramm f}r FILE.PRG (23.06.1997, Mario Leubner)
?
accept 'Sortierung nach (D)isknummer oder (R)ubrik? ' to eingabe
store !(eingabe) to eingabe
if eingabe $'DR'
 accept 'Druckprotokoll (J/N)? ' to dru1
 erase
 if !(dru1)='J'
  set print on
 endif
 do case
  case eingabe = 'D'
   set index to disk
   ? 'Disk: Rubriken:                                     Zuordnung -'
   ?? date()
   ? '------------------------------------------------------------------------'
   go top
   do while disk=' '
    skip
   enddo
   store disk to disknr
   store art to rubin
   do while .not. eof
    if val(art) <> 0
     if disknr <> disk
      ? disknr,':',rubin
      store disk to disknr
      store art to rubin
     endif
     if .not. art $rubin
      store rubin+', '+art to rubin
     endif
    endif
    skip
   enddo
   ? disknr,':',rubin
  case eingabe = 'R'
   set index to sort
   ? 'Rub: Disketten:                                     Zuordnung -'
   ?? date()
   ? '------------------------------------------------------------------------'
   go top
   do while val(art)=0
    skip
   enddo
   store disk to disknr
   store art to rubin
   do while .not. eof
    if disk <> ' '
     if art <> rubin
      ? rubin,':',disknr
      store disk to disknr
      store art to rubin
     endif
     if .not. disk $disknr
      store disknr+' '+disk to disknr
     endif
    endif
   skip
  enddo
  ? rubin,':',disknr
 endcase
set print off
wait
endif
return