DataMuseum.dk

top - metrics - download

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »UTI001.CMD«

└─⟦9c8e44efc⟧ Bits:30005957 Std. Rammesystem
    └─⟦this⟧ »UTI001.CMD« 

TextFile

*UTI001.CMD
* STATISTIK OVER UDNYTTELSES-GRADEN AF ET GIVENT FELTS DEFINERET LÆNGDE
*JEKK/270784

ERASE
CLEAR
SET TALK OFF

? 'UIT001.CMD   STATISTIK OVER FELTUDNYTTELSES-GRADEN'
?
ACCEPT 'NAVN PÅ BASE ?   ' TO INDFIL
IF .NOT. FILE(INDFIL+'.DBF')
   ? INDFIL,' FILEN FINDES IKKE, VI STOPPER HER ..'
   RETURN
ENDIF
STORE 'J' TO SVAR
DO WHILE !(SVAR)<>'N'
   ERASE
   USE &INDFIL
   LIST STRUC
   ?
   ACCEPT 'FELTNAVN, DER SKAL LAVES STATISTIK PÅ ?  ' TO FELT
   INPUT 'FELTETS LÆNGDE ?   ' TO LGD
   IF TYPE(&FELT)<>'C'
      ? 'FELTET SKAL VÆRE AF TYPEN  C .. BEKLAGER PRØV IGEN. '
      RETURN
   ENDIF
   STORE 0 TO S0,S25,S50,S75,S99,S100,RECANT,RES,FLGD
   DO WHILE .NOT. EOF
      STORE LEN(TRIM(&FELT)) TO FLGD
      STORE FLGD*100/LGD TO RES
      IF RES=0
         STORE S0+1 TO S0
      ENDIF
      IF RES>0 .AND. RES<=25
         STORE S25+1 TO S25
      ENDIF
      IF RES>25 .AND. RES<=50
         STORE S50+1 TO S50
      ENDIF
      IF RES>50 .AND. RES<=75
         STORE S75+1 TO S75
      ENDIF
      IF RES>75 .AND. RES<=99
         STORE S99+1 TO S99
      ENDIF
      IF RES=100
         STORE S100+1 TO S100
      ENDIF
      STORE RECANT+1 TO RECANT
      @ 22,0 SAY 'RECNR : '
      @ 22,8 SAY STR(RECANT,5)
      SKIP +1
   ENDDO
   ERASE
   STORE ' ' TO LOOP
   DO WHILE LOOP=' ' .OR. LOOP='P'
   ? '-----------------------------------------------------------------'
   ? 'STATISTIK PÅ FELTET  <',FELT,'><',STR(LGD,4),'>  I FILEN  <',INDFIL,'>'
   ? '-----------------------------------------------------------------'
   ? '*GRAD*         ANTAL                   %'
   ? '  TOM   ',S0,INT(S0*10000/RECANT)*.01
   ? ' < 25 % ',S25,INT(S25*10000/RECANT)*.01
   ? '26-50 % ',S50,INT(S50*10000/RECANT)*.01
   ? '51-75 % ',S75,INT(S75*10000/RECANT)*.01
   ? '76-99 % ',S99,INT(S99*10000/RECANT)*.01
   ? ' =100 % ',S100,INT(S100*10000/RECANT)*.01
   ? '-----------------------------------------------------------------'
   ? 'RECORD :',RECANT
   ?
   ACCEPT 'Udskrift på PRINT (J/N) ' to SVAR
   IF !(SVAR)='J'
      ACCEPT 'Tast return når printer er klar ... ' to SVAR
      SET PRINT ON
      STORE 'P' TO LOOP
   ELSE
      STORE 'N' TO LOOP
      SET PRINT OFF
   ENDIF
   ENDDO
   ?
   ACCEPT 'Statistik på et felt mere ? (J/N) ' TO SVAR
ENDDO
«eof»