Control Statements › DEFINE Statement › Sample Usage › Example 1
DEFINE APPL CODE(1,3) EQ SYSTEM CODE
This statement makes it possible to treat the first three characters of the application code as a unique data field named SYSTEM CODE.