home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / SALES1.PRG < prev    next >
Encoding:
Text File  |  1993-01-17  |  1.3 KB  |  41 lines
  1. ****************************************************************
  2. *     * 09/07/92                   SALES1.PRG         19:00:56 *
  3. ****************************************************************
  4. *     *                                                        *
  5. *     * Description:                                           *
  6. *     *  Illustrates use of SCATTER and GATHER commands        *
  7. *     *                                                        *
  8. ****************************************************************
  9. SET TALK OFF
  10. USE SALES
  11. CLEAR
  12. WAIT WINDOW "Append or Edit? (E/A): " TO DoWhat
  13. DoWhat = UPPER(DoWhat)
  14. DO CASE 
  15.      CASE DoWhat = "E"
  16.         SCATTER MEMVAR
  17.         IF ReadData()
  18.            GATHER MEMVAR  && Move memvars to records
  19.         ENDIF
  20.      CASE DoWhat = "A"
  21.         SCATTER MEMVAR BLANK
  22.         IF READDATA()
  23.            APPEND BLANK
  24.            GATHER MEMVAR  && Move memvars to records
  25.         ENDIF
  26.     OTHERWISE
  27.         WAIT WINDOW "Bad Choice! Bye..."
  28. ENDCASE            
  29. RETURN        
  30. FUNCTION ReadData
  31. @ 1,10 SAY "Monthly Sales"
  32. @ 3,3  SAY ' Last name: '  GET m.lastname
  33. @ 5,3  SAY 'First name: '  GET m.firstname
  34. @ 7,3  SAY '     Sales: '  GET m.sales
  35. @ 9,3  SAY '      Rank: '  GET m.rank
  36. @ 11,3 SAY ' Hire date: '  GET m.hiredate
  37. READ
  38. RETURN LASTKEY() != 27 AND UPDATED()
  39.  
  40.  
  41.