home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / NAMETEST.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.4 KB  |  80 lines
  1. *NAMETEST.CMD
  2. * CHECKS NAMES IN THE FILE IN USE AGAINST THE SUPPLIERS
  3.  
  4. ERASE
  5. SELECT PRIMARY
  6.  
  7. GO TOP
  8. DO WHILE .NOT. EOF
  9.   IF *
  10.     SKIP
  11.   ELSE
  12.    STORE STR(#,5) TO Number
  13.    STORE !(NAME) TO NAME
  14.    ERASE
  15.    @ 4,25 SAY 'CHECKING NAMES'
  16.    @ 6,25 SAY 'RECORD '+NUMBER
  17.    @ 7,25 SAY NAME
  18.    ? CHR(7)
  19.    STORE $(NAME,1,10) TO KEY
  20. SELECT SECONDARY
  21. USE SUPPLIER INDEX SUPPLIER
  22. FIND &KEY
  23. STORE T TO Again
  24. STORE 'T' TO DECISION
  25. IF # = 0
  26.    DO WHILE Again
  27.    @ 09,20 SAY ' SUPPLIER IS NOT LISTED IN THE SUPPLIERS FILE     '
  28.    @ 11,20 SAY '      E to EDIT the record                        '
  29.    @ 13,20 SAY '      A to ADD the number to the VENDORS file.    '
  30.    @ 15,20 SAY '      C to CONTINUE SCANNING FILE.                '
  31.    ?
  32.    WAIT TO Decision
  33.    IF !(Decision) = 'A'
  34.      APPEND
  35.      SKIP-1
  36.      REPLACE NAME WITH !(NAME),ADDRESS WITH !(ADDRESS),CITY WITH;
  37.        !(CITY)
  38.      STORE F to Again
  39.    ELSE
  40.      IF !(Decision) = 'E'
  41.        SELECT PRIMARY
  42.        EDIT &Number
  43.        REPLACE NAME WITH !(NAME)
  44.        SELECT SECONDARY
  45.        STORE F TO Again
  46.      ELSE
  47.        IF !(Decision) = 'C'
  48.          STORE F TO Again
  49.        ELSE
  50.         STORE T TO Again
  51.        ENDIF C
  52.      ENDIF E
  53.     ENDIF A
  54.    ENDDO
  55.  ENDIF 0
  56.  SELECT PRIMARY
  57.  IF !(DECISION) <> 'E'
  58.    SKIP
  59.  ENDIF
  60. ENDIF deleted
  61. ENDDO
  62. RELEASE ALL
  63. RETURN
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.