home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_CHK004.PRG < prev    next >
Encoding:
Text File  |  1993-11-08  |  1.0 KB  |  40 lines
  1. SELECT A
  2. USE (LOCFILE("DATA_1.DBF","DBF","Where is data_1?"));
  3.     ALIAS a ;
  4.     INDEX DATA_1
  5. SET ORDER TO TAG LJNO OF DATA_1.CDX
  6. SELECT B
  7. USE (LOCFILE("DATA_2.DBF","DBF","Where is data_2?"));
  8.     ALIAS b ;
  9.     INDEX DATA_2
  10. SET ORDER TO TAG RKNO OF DATA_2.CDX
  11.  
  12. SELECT A
  13. LOCATE FOR AT(GLOOK1,a.lj_cx) > 0 .OR. AT(GLOOK2,a.lj_cx) > 0
  14. IF EOF()
  15.     WAIT "┐Γ─┌╬▐┤╦┼Σ╝■" WINDOW
  16. ELSE
  17.     SELECT B
  18.     SEEK a.ljno
  19.     IF FOUND()
  20.         SET RELATION TO LJNO INTO A
  21.         BROWSE FIELDS a.lj_bm/8:H =" ▒α┬δ ", a.lj_xh/8:H =" ╨═║┼ ", ;
  22.             a.lj_mc/8:H =" ├√│╞ ", kc_rq:H =" ╜°╗⌡╚╒╞┌ ", ;
  23.             kc_sl:H =" ╚δ┐Γ╩² ", kc_cs:H =" ┐Γ┤µ╩² ", ;
  24.             kc_jj:H =" ╜°╝█ ", kc_pf:H =" ┼·╖ó ", kc_ls:H =" ┴π╩█ ",;
  25.             kc_dl:H =" ╚δ═° ", a.lj_yl:H =" ├┐│╡╙├┴┐ ", a.lj_cx:H =" ╩╩╙├│╡╨═ ",;
  26.             a.lj_bz:H =" ▒╕╫ó " ;
  27.             FOR (AT(GLOOK1,a.lj_cx) > 0 .OR. AT(GLOOK2,a.lj_cx) > 0) .AND. b.kc_cs > 0;
  28.             FREEZE kc_dl;
  29.             NOMENU;
  30.             NOAPPEND;
  31.             NODELETE;
  32.             TIMEOUT 60;
  33.             TITLE " ┐Γ┤µ┼Σ╝■▓Θ╤» ";
  34.             PREFERENCE AA
  35.     ELSE
  36.         WAIT "┐Γ─┌╬▐┤╦┼Σ╝■" WINDOW
  37.     ENDIF    
  38. ENDIF
  39. CLOSE ALL
  40. RETURN