home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / hamradio / logbook.arc / WASIMP.PRG < prev    next >
Encoding:
Text File  |  1986-05-01  |  1.5 KB  |  58 lines
  1. * IMPORTS A FILE FROM BASIC PACKAGE TO DBASE By Joe Kasser G3ZCZ (c) 1986
  2. IF FILE ('was')
  3.    USE was
  4. ELSE
  5.    USE &was
  6. ENDIF
  7. STORE '  ' TO tpc
  8. STORE ' ' TO wasfile
  9. ACCEPT 'What is the name of the BASIC PACKAGE  "WAS" file (D:NAME) ' TO wasfile
  10. IF FILE(wasfile+'.WAS')
  11.    COPY STRUCTURE TO &wasfile
  12.    ?
  13.    ? ' New database file ',wasfile, ' created'
  14.    SELECT PRIMARY
  15.    USE &wasfile
  16.    STORE TRIM(wasfile) + '.WAS' TO oldlog
  17.    ?
  18.    ? 'Copying log data now'
  19.    APPEND  FROM &oldlog SDF DELIM
  20.    GOTO 51
  21.    DELETE
  22.    * DELETE DATE ENTRY
  23.    PACK
  24.    GOTO TOP
  25.    * Now fixup any BASIC entries, so you don't have to redo
  26.    * and add px's
  27.    SELECT SECONDARY
  28.    USE was
  29.    SELECT PRIMARY
  30.    DO WHILE .NOT. EOF
  31.       IF dstate = 'Q'
  32.          REPLACE dstate WITH 'R'
  33.       ELSE
  34.          IF dstate = 'W'
  35.             REPLACE dstate WITH '-'
  36.          ENDIF
  37.       ENDIF
  38.       SELECT SECONDARY
  39.       STORE pc TO tpc
  40.       SKIP
  41.       SELECT PRIMARY
  42.       REPLACE pc WITH tpc
  43.       SKIP
  44.    ENDDO
  45.    USE
  46.    SELECT SECONDARY
  47.    USE
  48.    STORE wasfile TO was
  49. ELSE
  50.    ? 'ERROR    - ',wasfile,' "WAS" FILE    IS  NOT DEFAULT DISK'
  51. ENDIF
  52. RELEASE wasfile,oldlog,tpc
  53. RETURN
  54.  
  55.  
  56.  
  57. Gá*DATAFLAG╠Já
  58. AáBcpNUMBER├Há636STM    G3IMW     59 59 SSB 1000--276-010    81/03/08142910 G3ACQ     59 59 SSB 1000--277-250    81/03/08142910 F3QW      59 59 SSB 1000--278-100    81/03/08143110 G3JWC     59 59 SSB 1000--279-150    81/03/08143210 SV/K1ED   59 59 SSB 1000--280-200    81/03/08143410 FC6