home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VS_804.ZIP / MAINTSRC.EXE / FLDLISTS.PRG < prev    next >
Encoding:
Text File  |  1991-10-25  |  1.2 KB  |  57 lines
  1. * Filename......: FldLists.Prg
  2. *
  3. * Author........: Vernon E. Six, Jr.
  4. *
  5. * Last Update...: Thu  10-24-1991  19:27:49
  6. *
  7. * Notice........: Copyright (c) 1991 by Vernon E. Six, Jr.
  8. *                 All Rights Reserved World Wide
  9. *
  10. *
  11. * Dialect.......: Clipper v5.01
  12.  
  13.  
  14.  
  15.  
  16. FUNCTION L_DictFld()
  17. *****
  18. * Returns a string for use by S_DictFld()
  19. *****
  20.  
  21. RETURN(          _DICTFLD->FIELD_NMBR     + [  ] + ;
  22.                  _DICTFLD->FIELD_NAME     + [  ] + ;
  23.                  _DICTFLD->FIELD_TYPE     + [ ]  + ;
  24.         STRZERO( _DICTFLD->FIELD_LEN, 3 ) + [,]  + ;
  25.         STRZERO( _DICTFLD->FIELD_DEC, 3 ) + [ ]  + ;
  26.                  _DICTFLD->DESC                     )
  27.  
  28. *** EOF: L_DictFld() ********************************************************
  29.  
  30.  
  31.  
  32.  
  33. FUNCTION L_DictHdr()
  34. *****
  35. * Returns a string for use by S_DictHdr()
  36. *****
  37.  
  38. RETURN( _DICTHDR->DBF_NAME + [ - ] + _DICTHDR->DESC )
  39.  
  40. *** EOF: L_DictHdr() ********************************************************
  41.  
  42.  
  43.  
  44. FUNCTION L_DictNtx()
  45. *****
  46. * Returns a string for use by S_DictNtx()
  47. *****
  48.  
  49. RETURN( _DICTNTX->ORDER + [  ] + _DICTNTX->NTX_NAME + [  ] + _DICTNTX->KEY )
  50.  
  51. *** EOF L_DictNtx() *********************************************************
  52.  
  53.  
  54.  
  55.  
  56.  
  57.