##############################################################################
###+--------------+###########################################################
#+-| SET LABEL TO |--------------------------------------+####################
#| +--------------+ The SET LABEL TO command initializes |####################
#|                  the label form that is used in the   |####################
#|                  LABEL FORM command                   |####################
#+-------------------------------------------------------+####################
##############################################################################
##############################################################################
#+--| Syntax |--------------------------+#####################################
#|     SET LABEL TO [<Label-ident>]     |#####################################
#+--------------------------------------+#####################################
##############################################################################
##############################################################################
########+---| Description |------------------------------------------+########
########| A <Label-ident> can be specified as the default for LABEL. |########
########+------------------------------------------------------------+########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Set the parameters for printing labels.             |#########
#########|                                                          |#########
#########| VARDEF                                                   |#########
#########|     CHAR     ans                                         |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| LABELDEF customers                                       |#########
#########|     HEIGHT = 5              && Height of label.          |#########
#########|     WIDTH  = 50             && Width of label.           |#########
#########|     HORZ_SP= 1              && lines between labels.     |#########
#########|     VERT_SP= 1              && Lines vertically.         |#########
#########|     MARGIN = 0                                           |#########
#########|     ACROSS = 3              && Number of labels.         |#########
#########|                                                          |#########
#########|     LINE = cust->name                                    |#########
#########|     LINE = cust->addr                                    |#########
#########|     LINE = cust->city+" "+cust-st+" "+cust-zip           |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| PROCEDURE force_main                                     |#########
#########|     USE "cust.dbf" ALIAS cust                            |#########
#########|     SET LABEL TO customers                               |#########
#########|     WAIT "Do you want sample?" TO ans                    |#########
#########|     IF ans $ "Yy"                                        |#########
#########|         SAMPLE              && Works with label          |#########
#########|                             &&  customer                 |#########
#########|     ENDIF                                                |#########
#########|     LABEL                   && Works with label          |#########
#########|                             &&  customer                 |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################