home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / techs.zip / TECH5.ARC / PFSXFER.PRG next >
Text File  |  1985-11-01  |  1KB  |  53 lines
  1. * Program.: Pfsxfer.PRG
  2. * Author..: Steve Silverwood and Quinn Wildman
  3. * Date....: August 1, 1985
  4. * Version.: dBASE III, any version
  5. * Note(s).: APPENDS a PFS;FILE datafile onto a dBASE III database file.
  6. *
  7. SET TALK OFF
  8. CLOSE DATABASES
  9. CLEAR
  10. ACCEPT "  Enter one field database filename " TO db1
  11. ACCEPT "Enter multi field database filename " TO db2
  12. ACCEPT "       Enter name of PFS print file " TO pfs
  13. INPUT  "              Enter how many fields " TO fields
  14. ACCEPT "                   Enter dummy name " TO dum
  15. SELECT 2
  16. USE &db2
  17. SELECT 1
  18. USE &db1
  19. APPEND FROM &pfs SDF
  20. GO TOP
  21. DO WHILE .NOT. EOF()
  22.    cnt = 1
  23.    DO WHILE cnt <> fields + 1
  24.       IF cnt > 9
  25.          temp = STR( cnt, 2 )
  26.       ELSE
  27.          temp = STR( cnt, 1 )
  28.       ENDIF
  29.       var&temp = Field1
  30.       SKIP
  31.       cnt = cnt + 1
  32.    ENDDO
  33.    SELECT &db2
  34.    APPEND BLANK
  35.    cnt = 1
  36.    DO WHILE cnt <> fields + 1
  37.       IF cnt > 9
  38.          temp = STR( cnt, 2 )
  39.       ELSE
  40.          temp = STR( cnt, 1 )
  41.       ENDIF
  42.       IF var&temp <> dum
  43.          REPLACE Field&temp WITH var&temp
  44.       ENDIF
  45.       cnt = cnt + 1
  46.    ENDDO
  47.    SELECT &db1
  48. ENDDO
  49. CLOSE DATABASES
  50. SET TALK ON
  51. RETURN
  52. * EOP Pfsxfer.PRG
  53.