home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / dataflow.lbr / CUSLIST.CZD / CUSLIST.CMD
Encoding:
Text File  |  1989-06-15  |  1.0 KB  |  48 lines
  1. * PROGRAM TO PRINT A LIST OF ACCOUNT CUSTOMERS
  2. * CALLED FROM REPORTS PROGRAM
  3. CLEAR
  4. ERASE
  5. RESTORE FROM A:NAME
  6. SET TALK OFF
  7. SET EJECT OFF
  8. DO WHILE T
  9. STORE ' ' TO CHOICE
  10. @ 1,01 SAY 'THIS PROGRAM PRINTS A LIST OF CUSTOMERS IN ALPHABETICAL OR ACCOUNT;
  11.  No. ORDER'
  12. @ 2,01 SAY '******************************************************************;
  13.  *********'
  14. @ 4,04 SAY 'ENTER <A> FOR ACCOUNT NUMBER ORDER OR PRESS <CR> FOR ALPHA ORDER ';
  15. GET CHOICE
  16. @ 5,04 SAY 'ENTER R TO RETURN TO REPORTS MENU WITHOUT PRINTING'
  17. READ
  18. STORE !(CHOICE) TO CHOICE
  19. ERASE
  20. DO CASE
  21. CASE CHOICE='A'
  22.   USE NAMELIST INDEX NAME
  23.   SET PRINT ON
  24.   ?? &COMPRESS
  25.   REPORT FORM CUSLIST1
  26.   EJECT
  27.   ?? &NORMAL
  28.   SET PRINT OFF
  29.   ERASE
  30. LOOP
  31. CASE CHOICE=' '
  32.   USE NAMELIST INDEX NAMENUM
  33.   SET PRINT ON
  34.   ?? &COMPRESS
  35.   REPORT FORM CUSLIST2
  36.   EJECT
  37.   ?? &NORMAL
  38.   SET PRINT OFF
  39.   ERASE
  40. LOOP
  41. CASE CHOICE='R'
  42.   CLEAR
  43.   ERASE
  44.   RETURN
  45. ENDCASE
  46. LOOP
  47. ENDDO
  48.                35844 2367  MR BILL JONES  T10/12/84