// ufd0450 - don and mike - 03-02-95  LABEL LINE DEFINITIONS
*************************************************

*********************************************************
*  Customer Mailing lables - Cusomter BILLING address.  *
*********************************************************
FUNCTION BLD_CUSTLBL()

LOCAL LBL_LINEARR := {}
LOCAL EVALLINE

EVALLINE := 'COMP_NAME'
AADD(LBL_LINEARR, EVALLINE)

EVALLINE := 'CUST_ADDR'
AADD(LBL_LINEARR, EVALLINE)

EVALLINE := 'CUST_ADDR2'
AADD(LBL_LINEARR, EVALLINE)

EVALLINE := 'TRIM(CUST_CITY)+"  "+ CUST_STATE +"  " + CUST_ZIP'
AADD(LBL_LINEARR, EVALLINE)

RETURN LBL_LINEARR


**********************************************************
*  Customer Mailing lables - Cusomter SHIPPING address.  *
**********************************************************
FUNCTION SHP_CUSTLBL()

LOCAL LBL_LINEARR := {}
LOCAL EVALLINE

EVALLINE := 'COMP_NAME'
AADD(LBL_LINEARR, EVALLINE)

EVALLINE := 'SHIPADD1'
AADD(LBL_LINEARR, EVALLINE)

**EVALLINE := 'SHIPADD2'
**AADD(LBL_LINEARR, EVALLINE)

EVALLINE := 'TRIM(SHIPADD2)+"  "+ SHIPST +"  " + SHIPZIP'
AADD(LBL_LINEARR, EVALLINE)

RETURN LBL_LINEARR