Задание 2. Добавление операторов в процедуру

Задание

Добавить операторы в новую процедуру. Файл процедуры Proc1.p сразу после создания откроется в редакторе Developer Studio. Если вы успели его закрыть, то откройте. Напомню, файл Proc1.p находится в проекте Server в каталоге src\Test\.

Реализация

В секцию Definitions добавьте описание переменной CustomerName с типом данных character.

define variable CustomerName as character no-undo.

Обратите внимание, если вы нажмёте клавишу пробел в начале ввода ключевого слова, редактор автоматически допишет его.

Добавьте описание переменной CustomerNumber с типом данных integer и инициализирующим значением 999.

define variable CustomerNumber integer no-undo initial 999.

Сохраните процедуру (Ctrl + S). Вы увидите ошибки компиляции в описании последней переменной.Что не так в описании этой переменной?

Скорректируйте синтаксис переменной CustomerNumber, так в её описании пропущено ключевое слово AS при определении типа данных.

define variable CustomerNumber as integer no-undo initial 999.

Сохраните процедуру (Ctrl + S).

В секцию Main Block добавьте код для присваивания значений переменным CustomerName и CustomerNumber.

assign 
    CustomerNumber = 777
    CustomerName   = "Петрович".

Далее добавьте оператор message для вывода значений переменных на экран в всплывающем окне.

message "Клиент: " CustomerName skip
        "Номер: "  CustomerNumber view-as alert-box.

Добавьте оператор return в качестве последнего оператора процедуры.

Выполните корректировку отступов в вашем ABL-коде. Для этого используйте комбинацию клавиш Ctrl + I. Должно получиться следующее.

/* ***************************  Definitions  ************************** */

block-level on error undo, throw.

define variable CustomerName   as character no-undo.
define variable CustomerNumber as integer   no-undo initial 999.

/* ********************  Preprocessor Definitions  ******************** */


/* ***************************  Main Block  *************************** */

assign 
    CustomerNumber = 777
    CustomerName   = "Петрович".

message "Клиент: " CustomerName skip
    "Номер: " CustomerNumber view-as alert-box.

return.

Сохраните сделанные изменения (Ctrl + S). Если будут ошибки компиляции, то исправьте их.