home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_CHK002.PRG < prev    next >
Encoding:
Text File  |  1993-11-08  |  972 b   |  49 lines
  1. PARAMETER GPROMPT,GBAR
  2. STORE SPACE(20) TO GASK
  3. STORE "╟δ╩Σ╚δ"+SUBSTR(GPROMPT,4,4) TO GPRO
  4. DO G_SCR007.SPR
  5.  
  6. SET EXACT OFF
  7. IF GBAR = 2 .AND. GASK <> " "
  8.     STORE ALLTRIM(GASK) TO GLOOK
  9.     STORE "a.lj_bm" TO GFOR
  10.     DO G_CHK003.PRG
  11. ENDIF
  12.  
  13. IF GBAR = 3 .AND. GASK <> " "
  14.     STORE ALLTRIM(GASK) TO GLOOK
  15.     STORE "a.lj_xh" TO GFOR
  16.     DO G_CHK003.PRG
  17. ENDIF
  18.  
  19. IF GBAR = 4 .AND. GASK <> " "
  20.     STORE ALLTRIM(GASK) TO GLOOK
  21.     STORE "a.lj_mc" TO GFOR
  22.     DO G_CHK003.PRG
  23. ENDIF
  24.  
  25. IF GBAR = 5 .AND. GASK <> " "
  26.     STORE ALLTRIM(GASK) TO GLOOK
  27.     STORE "a.lj_cx" TO GFOR
  28.     IF USED("a")
  29.         SELECT a
  30.         SET ORDER TO 0
  31.     ELSE
  32.         SELECT 0
  33.         USE (LOCFILE("data_5.dbf","DBF","Where is data_5?"));
  34.             AGAIN ALIAS a ;
  35.             ORDER 0
  36.     ENDIF
  37.     LOCATE FOR AT(GLOOK,C_NAME) >0 .OR. AT(GLOOK,E_NAME) > 0
  38.     IF EOF()
  39.         WAIT "╬▐┤╦│╡╨═" WINDOW
  40.     ELSE
  41.         STORE ALLTRIM(C_NAME) TO GLOOK1
  42.         STORE ALLTRIM(E_NAME) TO GLOOK2
  43.         CLOSE DATABASE
  44.         DO G_CHK004.PRG
  45.     ENDIF        
  46. ENDIF
  47.  
  48. CLOSE DATABASE
  49. RETURN