home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / WSFILE.PRG < prev   
Text File  |  1988-08-15  |  5KB  |  146 lines
  1. *!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. * wsfile.sig 08/18/83
  6. * this module takes all of the data in the file and writes it to
  7. * a Wordstar data file and creates a Wordstar DOC file. The letter
  8. * or other document you are preparing is written after the introduction
  9. * this program creates using the variables set forth in the DOC file.
  10. * When you  run mailmerge, you can personalize a document to everyone
  11. * in the file. Since it takes time to write a big file - it gives
  12. * you a running report on where it is in the file
  13. CLEAR
  14. *!! Unrecognized command.
  15. ?'This Module will make a special MailMerge file for WordStar'
  16. *!! Unrecognized command.
  17. ?' Do you wish to continue (Y/N) ? '
  18. SET CONSOLE OFF
  19. WAIT TO command
  20. SET CONSOLE ON
  21. IF command = 'Y' .OR. command = 'y'
  22.  
  23.     STORE .t. TO continue
  24. ELSE
  25.  
  26.     STORE .f. TO continue
  27. ENDIF command = Y
  28. DO WHILE continue
  29.     STORE 1 TO counter
  30.     CLEAR
  31. *!! There will be no automatic colon following this prompt string.
  32.     ACCEPT 'Enter Name of the WordStar-MailMerge file  ' TO file_dat
  33.     STORE UPPER(file_dat) TO file_dat
  34.     STORE SUBSTR(file_dat,1,8) TO file_dat
  35.     STORE file_dat+'.DOC'  TO file_doc
  36.     STORE file_dat+'.DAT'  TO file_dat
  37.     @ 03,10 SAY  'Creating WordStar-MailMerge Document file:  '+file_doc
  38.     SET CONSOLE OFF
  39.     SET ALTERNATE TO &file:doc
  40.     SET ALTERNATE ON
  41.     ?'.OP'
  42. *!! Unrecognized command.
  43.     ?'.DF '+file:dat
  44. *!! Unrecognized command.
  45.     ?'.RV '+' order-no,last-name, first-name,address1,address2,address3,city,state,zip,vol1,amount,entered,shipped,remark1,remark2,backord,,backo-ship1,backo-ship2,date-update'
  46. *!! Unrecognized command.
  47.     ?'.. to automatically omit empty data fields'
  48. *!! Unrecognized command.
  49.     ?'..print all items as "&item/o&" '
  50.     SET ALTERNATE OFF
  51.     SET CONSOLE ON
  52.     @ 05,10 SAY  ' Creating WordStar-MailMerge Data file:  '+file_dat
  53.     @ 07,10 SAY  'Writing record #     '
  54.     SET CONSOLE OFF
  55.     SET ALTERNATE TO &file:dat
  56.     SET ALTERNATE ON
  57.     GOTO TOP
  58.     DO WHILE .NOT. EOF()
  59.         STORE CHR(34)+TRIM(lname) + CHR(34) TO lastname
  60.         IF fname = ' '
  61.             STORE ' ' TO firstname
  62.         ELSE
  63.             STORE CHR(34)+TRIM(fname) + CHR(34) TO firstname
  64.         ENDIF fname
  65.         IF addr1 = ' '
  66.             STORE ' ' TO address1
  67.         ELSE
  68.            STORE CHR(34)+TRIM(addr1)+CHR(34) TO address1
  69.         ENDIF addr1
  70.         IF addr2 = ' '
  71.             STORE ' ' TO address2
  72.         ELSE
  73.             STORE CHR(34)+TRIM(addr2)+CHR(34) TO address2
  74.         ENDIF addr2
  75.         IF addr3 = ' '
  76.             STORE ' ' TO address3
  77.         ELSE
  78.             STORE CHR(34)+TRIM(addr3)+chr(34) TO address3
  79.         ENDIF addr3
  80.         IF city = ' '
  81.             STORE ' ' TO city1
  82.         ELSE
  83.             STORE CHR(34)+TRIM(city)+CHR(34) TO city1
  84.         ENDIF city
  85.         IF state = ' '
  86.             STORE ' ' TO state1
  87.         ELSE
  88.             STORE chr(34)+state+CHR(34) TO state1
  89.         ENDIF state
  90.         IF zip = ' '
  91.             STORE ' ' TO zip1
  92.         ELSE
  93.             STORE CHR(34)+zip+CHR(34) TO zip1
  94.         ENDIF zip
  95.         IF vol1 = ' '
  96.             STORE ' ' TO volume1
  97.         ELSE
  98.             STORE CHR(34)+TRIM(vol1)+CHR(34) TO volume1
  99.         ENDIF vol1
  100.         IF rem1 = ' '
  101.             STORE ' ' TO remarks1
  102.         ELSE
  103.             STORE CHR(34)+TRIM(rem1)+CHR(34) TO remarks1
  104.         ENDIF rem1
  105.         IF rem2 = ' '
  106.             STORE ' ' TO remarks2
  107.         ELSE
  108.             STORE CHR(34)+trim(rem2)+CHR(34) TO remarks2
  109.         ENDIF rem2
  110.         IF bo = ' '
  111.             STORE ' ' TO backord1
  112.         ELSE
  113.             STORE CHR(34)+TRIM(bo)+CHR(34)TO backord1
  114.         ENDIF bo
  115.         ??  lastname  +','
  116.         ??  firstname +','
  117.         ??  address1 +','
  118.         ??  address2 +','
  119.         ??  address3 +','
  120.         ??  city1 +','
  121.         ??  volume1 +','
  122.         ??  STR(amt,8,2) + ','
  123.         ??  remarks1+','
  124.         ??  remarks2 +','
  125.         ??  backord1 +','
  126.         SKIP
  127.         SET CONSOLE ON
  128.         SET ALTERNATE OFF
  129.         SET CONSOLE ON
  130.         ?? CHR(8) + CHR(8)+CHR(8)+CHR(8)+CHR(8)+CHR(8)+STR(COUNTER,5)
  131.         SET CONSOLE OFF
  132.         SET ALTERNATE ON
  133.         STORE COUNTER + 1 TO COUNTER
  134.     ENDDO while not EOF
  135.     STORE .f. TO continue
  136. ENDDO continue
  137. SET ALTERNATE OFF
  138. SET CONSOLE ON
  139. RELEASE file_dat,file_doc,continue,length,counter
  140. STORE '?' TO command
  141. STORE ' ' TO printer
  142. STORE ' ' TO disk
  143. STORE '            ' TO filename
  144. STORE .t. TO more
  145.  
  146.