23 lines
276 B
Text
23 lines
276 B
Text
* Comment
|
|
DEFINE DATA /* Inline comment
|
|
LOCAL
|
|
1 #VAR-NAME-1 (A10) INIT<'Hello'>
|
|
1 #I (I4)
|
|
END-DEFINE
|
|
|
|
IF #VAR-NAME-1 = 'Hello'
|
|
IGNORE
|
|
END-IF
|
|
|
|
PERFORM MY-SUBROUTINE
|
|
|
|
WRITE #VAR-NAME-1
|
|
|
|
DEFINE SUBROUTINE MY-SUBROUTINE
|
|
FOR #I = 1 TO 10
|
|
ESCAPE MODULE
|
|
END-FOR
|
|
END-SUBROUTINE
|
|
|
|
END
|
|
|