Массивы в 4GL

В языке Progress предусмотрены только одномерные массивы.

В простейшем случае описание массива выглядит так:

DEFINE VARIABLE I AS T EXTENT N.

где I - идентификатор массива,

    T - тип элементов массива,

    N - число элементов массива.

В описании массива можно явно задавать начальные значения:

DEFINE VARIABLE I AS T EXTENT N INITIAL [ C1 ,  C2 ,..., Cn].

где Cn  - изображения констант типа T.

Доступ к элементам массива осуществляется по индексу. Индекс - выражение типа INTEGER.

Пример 1.8.1

Программа по заданному интервалу выводит названия дней недели.

DEFINE VARIABLE dday AS CHARACTER EXTENT 7
    INITIAL ["sunday","monday","tuesday","wednesday", "thursday","friday","saturday"].
DEFINE VARIABLE i AS INTEGER.
DEFINE VARIABLE d1 AS DATE.
DEFINE VARIABLE d2 AS DATE.
DEFINE VARIABLE d AS DATE.
SET d1 LABEL "enter a date1".
SET d2 LABEL "enter a date2".
DO d = d1 TO d2:
    i = WEEKDAY(d).
    DISPLAY  d dday[i].
    PAUSE 1.
END.