home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / SALES2.PRG < prev    next >
Encoding:
Text File  |  1993-01-21  |  1.3 KB  |  41 lines
  1. ****************************************************************
  2. *     * 09/08/92                   SALES2.PRG         11:03:56 *
  3. ****************************************************************
  4. *     *                                                        *
  5. *     * Description:                                           *
  6. *     *  Illustrates use of SCATTER and GATHER commands        *
  7. *     *   using arrays                                         *
  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 FROM ARY  && Copy all fields to Array
  17.         IF ReadData()
  18.            GATHER TO ARY  && Move array to records
  19.         ENDIF
  20.      CASE DoWhat = "A"
  21.         SCATTER MEMVAR BLANK
  22.         IF READDATA()
  23.            APPEND BLANK
  24.            GATHER FROM ARY  && Move array 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 ARY[1]
  33. @ 5,3  SAY 'First name: '  GET ARY[2]
  34. @ 7,3  SAY '     Sales: '  GET ARY[3]
  35. @ 9,3  SAY '      Rank: '  GET ARY[4]
  36. @ 11,3 SAY ' Hire date: '  GET ARY[5]
  37. READ
  38. RETURN LASTKEY() != 27 AND UPDATED()
  39.  
  40.  
  41.