home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBFILE.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  1.4 KB  |  67 lines
  1. <<* SSBFILE.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. <<#
  5. procedure GenFileVars
  6. begin
  7.   filespec( dbfnam,fpath,fname,fext )
  8. #>>
  9. DBFname = {"}{fname}.DBF{"}
  10.   <<fname := substr( fname,1,7 )>>
  11. DBFtemp = {"}{fname}$.DBF{"}
  12. <<#
  13. end <<*GenFileVars*>>
  14.  
  15.  
  16. function GetIndexExt : string
  17. begin
  18.     RETURN 'IDX'
  19. end <<*GetIndexExt*>>
  20.  
  21.  
  22. procedure GenIndexVars
  23. begin
  24.   forall indexes
  25.     filespec( ndxnam,fpath,fname,fext )
  26.     fext := GetIndexExt
  27. #>>
  28. NDXnam{ndxcount} = {"}{fname}.{fext}{"}
  29. NDXkey{ndxcount} = {"}{ndxkey}{"}
  30. <<#
  31.   endfor
  32. end <<*GenIndexVars*>>
  33.  
  34.  
  35. function GetIndexList( indexchoice : integer ) : string
  36. string ndxnames
  37. begin
  38.   <<*--Start with selected index--*>>
  39.   ndxnames := '&NDXnam' + str( indexchoice )
  40.   forall indexes
  41.     if ndxcount <> indexchoice
  42.       ndxnames := ndxnames + ',&NDXnam' + str( ndxcount )
  43.     endif
  44.   endfor
  45.   RETURN ndxnames
  46. end <<*GetIndexList*>>
  47.  
  48.  
  49. function GetIndexNames( indexchoice : integer ) : string
  50. string ndxnames
  51. begin
  52.   <<*--Start with selected index--*>>
  53.   select index indexchoice
  54.   filespec( ndxnam,fpath,fname,fext )
  55.   ndxnames := fname + '.' + GetIndexExt
  56.   forall indexes
  57.     if ndxcount <> indexchoice
  58.       filespec( ndxnam,fpath,fname,fext )
  59.       ndxnames := ndxnames + ',' + fname + '.' + GetIndexExt
  60.     endif
  61.   endfor
  62.   RETURN ndxnames
  63. end GetIndexNames
  64.  
  65. <<* EOF: SSBFILE.INC *>>
  66. #>>
  67.