Control Statements › DEFINE Statement › Sample Usage › Example 2

Example 2

DEFINE FIELD ONE EQ 'GEORGE WASHINGTON'
DEFINE FIELD TWO(C)(17) EQ 'GEORGE WASHINGTON'
DEFINE FIELD THREE(.2)  =  0
DEFINE FIELD FOUR(N)(5)(.2)  =  00

In this example, FIELD ONE and FIELD TWO are identical. FIELD THREE is set up as a four-byte packed decimal field with two decimal places. FIELD FOUR is a five-position numeric field capable of holding a value up to 999.99.