home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3mail.zip / ADDRESS.DGM < prev    next >
Text File  |  1986-01-05  |  2KB  |  80 lines
  1. * Program..: ADDRESS.dgm
  2. * Author...: <name>
  3. * Date.....: 01/05/86
  4. * Notice...: Copyright 1986, <name>, All Rights Reserved.
  5. * Notes....: 
  6. *
  7.  
  8. * Initialization commands from expressions.
  9. m_address  = SPACE( 30)
  10. m_city     = SPACE( 25)
  11. m_comments = SPACE(254)
  12. m_company  = SPACE( 45)
  13. m_country  = SPACE( 25)
  14. m_crossref = SPACE( 50)
  15. m_date     = SPACE(  8)
  16. m_first    = SPACE( 20)
  17. m_i        = SPACE(  2)
  18. m_key      = SPACE(  7)
  19. m_last     = SPACE( 20)
  20. m_mr_s     = SPACE(  3)
  21. m_nickname = SPACE( 12)
  22. m_phone    = SPACE( 19)
  23. m_postal   = SPACE(  8)
  24. m_state    = SPACE(  2)
  25. m_title    = SPACE( 20)
  26. m_x        = SPACE(  1)
  27. m_zip      = SPACE(  5)
  28. m_balance  = 0000.00
  29. m_due      = 0000.00
  30. m_paid     = 0000.00
  31.  
  32. * Initialization commands from fields.
  33. m_address  = Address   
  34. m_city     = City      
  35. m_comments = Comments  
  36. m_company  = Company   
  37. m_country  = Country   
  38. m_crossref = Crossref  
  39. m_date     = Date      
  40. m_first    = First     
  41. m_i        = I         
  42. m_key      = Key       
  43. m_last     = Last      
  44. m_mr_s     = Mr_s      
  45. m_nickname = Nickname  
  46. m_phone    = Phone     
  47. m_postal   = Postal    
  48. m_state    = State     
  49. m_title    = Title     
  50. m_x        = X         
  51. m_zip      = Zip       
  52. m_balance  = Balance   
  53. m_due      = Due       
  54. m_paid     = Paid      
  55.  
  56. * Replace commands.
  57. REPLACE Address    WITH m_address 
  58. REPLACE City       WITH m_city    
  59. REPLACE Comments   WITH m_comments
  60. REPLACE Company    WITH m_company 
  61. REPLACE Country    WITH m_country 
  62. REPLACE Crossref   WITH m_crossref
  63. REPLACE Date       WITH m_date    
  64. REPLACE First      WITH m_first   
  65. REPLACE I          WITH m_i       
  66. REPLACE Key        WITH m_key     
  67. REPLACE Last       WITH m_last    
  68. REPLACE Mr_s       WITH m_mr_s    
  69. REPLACE Nickname   WITH m_nickname
  70. REPLACE Phone      WITH m_phone   
  71. REPLACE Postal     WITH m_postal  
  72. REPLACE State      WITH m_state   
  73. REPLACE Title      WITH m_title   
  74. REPLACE X          WITH m_x       
  75. REPLACE Zip        WITH m_zip     
  76. REPLACE Balance    WITH m_balance 
  77. REPLACE Due        WITH m_due     
  78. REPLACE Paid       WITH m_paid    
  79.  
  80. * EOF: ADDRESS.dgm