1
*---------------------------------------------------------------------*
2
* FORM LISTE_MARKIERE *
3
4
* ........ *
5
6
FORM LISTE_MARKIERE.
7
INDEX = FIRSTLINE + L - 1.
8
IF L EQ 0 OR INDEX GT MAXLINES.
9
MESSAGE S032(SV).
10
EXIT.
11
ENDIF.
12
PERFORM MARKIERE USING INDEX.
13
ENDFORM.