LENGTH function

Returns, as an INTEGER value, the number of characters, bytes, or columns in a string, an expression of type RAW, or a BLOB field.


LENGTH ( { `string` \| `raw-expression` \| b`lob-field` }[ , `type` ] )

A character expression. The specified string can be a character string, a CLOB field, or a LONGCHAR variable. and may contain double-byte characters.

A function or variable name that returns a RAW value.

An expression that evaluates to a BLOB field.

A character expression that indicates whether you want the length of string in character units, bytes, or columns. A double-byte character registers as one character unit. By default, the unit of measurement is character units.

There are three valid types: "CHARACTER," "RAW," and "COLUMN." The expression "CHARACTER" indicates that the length is measured in characters, including double-byte characters. The expression "RAW" indicates that the length is measured in bytes. The expression "COLUMN" indicates that the length is measured in display or print character-columns. If you specify the type as a constant expression, ABL validates the type specification at compile time. If you specify the type as a non-constant expression, the AVM validates the type specification at run time.

Note: The expression "COLUMN" is not valid for a LONGCHAR variable or a CLOB field.

This procedure produces a report that contains item information. Because the information on the report fills the entire width of the screen, this procedure shortens the information in the description field for each item. If the description of an item is longer than eight characters, the procedure converts the description to the first eight characters followed by ellipses.

r-length.p
DEFINE VARIABLE short-name AS CHARACTER NO-UNDO FORMAT "x(11)" LABEL "Desc". FOR EACH Item NO-LOCK: IF LENGTH(Item.ItemName, "CHARACTER") > 8 THEN short-name = SUBSTRING(Item.ItemName,1,8, "FIXED") + "..." . ELSE short-name = Item.ItemName. DISPLAY Item.ItemNum short-name Item.OnHand Item.Allocated Item.ReOrder Item.OnOrder Item.Price FORMAT "$>>>9.99". END.

r-length.p

DEFINE VARIABLE short-name AS CHARACTER NO-UNDO FORMAT "x(11)" LABEL "Desc". 
FOR EACH Item NO-LOCK: 
  IF LENGTH(Item.ItemName, "CHARACTER") > 8 THEN 
    short-name = SUBSTRING(Item.ItemName,1,8, "FIXED") + "..." . 
  ELSE  
    short-name = Item.ItemName. 
  DISPLAY Item.ItemNum short-name Item.OnHand Item.Allocated 
    Item.ReOrder Item.OnOrder Item.Price FORMAT "$>>>9.99". 
END.

In this procedure, the LENGTH function returns the number of bytes in the Name of number 29. The procedure returns a 15, the number of bytes in the Name, Bug in a Rug-by.

r-rawlen.p
DEFINE VARIABLE ix AS INTEGER NO-UNDO. FIND Customer NO-LOCK WHERE Customer.CustNum = 29. ix = LENGTH(Customer.Name, "RAW"). DISPLAY Customer.Name ix LABEL "Byte Length".

If the value of the expression is the Unknown value (?), the LENGTH function returns the Unknown value (?).