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