home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_CHK001.PRG < prev    next >
Encoding:
Text File  |  1993-11-08  |  759 b   |  28 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. SET RELATION TO ljno INTO A
  13. BROWSE FIELDS a.lj_bm/8:H =" ▒α┬δ ", a.lj_xh/8:H =" ╨═║┼ ", ;
  14.         a.lj_mc/8:H =" ├√│╞ ", kc_rq:H =" ╜°╗⌡╚╒╞┌ ", ;
  15.         kc_sl:H =" ╚δ┐Γ╩² ", kc_cs:H =" ┐Γ┤µ╩² ", ;
  16.         kc_jj:H =" ╜°╝█ ", kc_pf:H =" ┼·╖ó ", kc_ls:H =" ┴π╩█ ",;
  17.         kc_dl:H =" ╚δ═° ", a.lj_yl:H =" ├┐│╡╙├┴┐ ", a.lj_cx:H =" ╩╩╙├│╡╨═ ",;
  18.         a.lj_bz:H =" ▒╕╫ó " ;
  19.         FOR b.kc_cs > 0;
  20.         FREEZE kc_dl;
  21.         NOMENU;
  22.         NOAPPEND;
  23.         NODELETE;
  24.         TIMEOUT 60;
  25.         TITLE " ┐Γ┤µ┼Σ╝■▓Θ╤» ";
  26.         PREFERENCE AA
  27. CLOSE ALL
  28. RETURN