Click above to get retro games delivered to your door ever month!

 FUNCTION CLABEL()                     *changed*

  Short:
  ------
  CLABEL() Menu driven module for label management

  Returns:
  --------
  Nothing

  Syntax:
  -------
  CLABEL([aInFieldNames,aInFieldDesc,aInFieldTypes],[lUseBuildex],[lRelease])

  Description:
  ------------
  This function requires no parameters and is entirely
  menu driven. Clipper compatible LBL files can be imported from.
  Definitions are stored in a DBF format. Labels may be printed by
  Query matches, by Tagging, or all records.

  Three arrays may be passed - <aInFieldNames> is an
  array of allowable field names. <aInFieldDesc>  is an array of
  field descriptions. <aInFieldTypes> is an array of field types.
  All three must be passed, or none. All fields are used as
  default, with field names being the default field descriptions.

  [lUseBuildex] if True, allows calling BUILDEX() to
  build complex expressions.

  [lRelease] if this is TRUE, CLABEL() will release the printer every
  50 labels. If on a network, this will allow the queue to empty out.
  If you are printing a bunch of labels, this can be important. Default
  is False.

  Examples:
  ---------
   use CUSTOMER

   CLABEL()

       or

   USE CUSTOMER
   aFlds := {"FNAME","LNAME","MI"}
   aFdes := {"First","Last","Middle"}
   aType := {"C","C","C"}
   CLABEL(aFlds,aFdes,aType,.t.)

  Notes:
  -------
  Requires datafile to be open.

  Reads Clipper compatible LBL files. Writes to a DBF.
  Does not call LABEL FORM. instead, uses its own label printing
  routine. Label printing routine optionally compresses blank
  lines (i.e. a 2nd address), as well as removing all but single
  space in a line (i.e. FIRSTNAME+ LASTNAME) See SLSF_LABEL() for
  notes on the storage DBF.

  Source:
  -------
  S_CLAB.PRG