1{include.i}
2{nested.i {include.i}}
3
4&SCOPED-DEFINE MY_NAME "Abe"
5
6DEF VAR i AS INT NO-UNDO.
7i = 0xABE + 1337 / (1 * 1.00)
8
9def var clowercasetest as char no-undo.
10DEF VAR vardashtest AS DATETIME-TZ NO-UNDO.
11
12DEFINE TEMP-TABLE ttNames NO-UNDO
13  FIELD cName AS CHAR
14  INDEX IXPK_ttNames IS PRIMARY UNIQUE cName.
15
16/* One-line comment */
17/* Two-line
18   Comment  */
19
20CREATE ttNames.
21ASSIGN ttNames.cName = {&MY_NAME}.
22
23FOR EACH ttNames:
24  MESSAGE "Hello, " + ttNames.cName + '!' VIEW-AS ALERT-BOX.
25END.
26