debug_pipe('Hello world', 0);

debug('Hello world', 0);

If …. then
программный код
elsif …. then
программный код
else
программный код
end if;

Inp_str                    string;  --строка для разбора с разделителем ‘;’
item_command            rtl.string_table; --специальный массив
item_command := STR_2.split(p_expression == Inp_str, p_delimiter == ';');
debug_pipe(item_command(1) , 0); -- Это как MESSAGE ENTRY(1…
debug_pipe(item_command(2) , 0); -- Это как MESSAGE ENTRY(2…

s_ac_str string_100; --входная строка с номером счета
r_ac_fin ref [AC_FIN]; --ссылка на счет
r_AC_FIN := ::[AC_FIN]([MAIN_V_ID] = s_ac_str); --получение ссылки
debug_pipe(‘Имя счета: ‘ || r_AC_FIN.[NAME], 0);  --вывод в сообщение имени счета

debug_pipe(r_AC_FIN. [CLIENT_V].[NAME], 0); 

s_ac_str string_100; --входная строка с номером счета
r_ac_fin ref [AC_FIN]; --ссылка счет
begin
    locate r_ac_fin in ::[AC_FIN]
          where r_ac_fin.[MAIN_V_ID] = s_ac_str
          order by r_ac_fin.[MAIN_V_ID] asc;
         debug_pipe(‘Имя счета: ‘ || r_AC_FIN.[NAME], 0);exception when NO_DATA_FOUND then
       debug_pipe('Запись не найдена', 0);end;

s_ac_str string_100; --входная строка с номером счета
for acc in ::[AC_FIN] all where acc.[MAIN_V_ID] = s_ac_str loop
        debug_pipe(‘Имя счета: ‘ || acc.[NAME], 0);
end loop;

s_ac_str string_100; --входная строка с номером счета
for (
    select acc(
        acc.[NAME] : C_NAME
        )
        in ::[AC_FIN] all
        where acc.[MAIN_V_ID] = s_ac_str
) loop
    debug_pipe(‘Имя счета: ‘ || acc.[C_NAME], 0);
end loop;

for (
    select acc(
        acc.[NAME]  : C_NAME,
        cl.[NAME]   : C_NAME2
        )
        in ::[AC_FIN], (::[CLIENT] all : cl) all
        where acc.[MAIN_V_ID] = s_ac_str
          and acc.[CLIENT_V]  = cl
) loop
    debug_pipe('Имена_: ' || acc.[C_NAME] || ' ' || acc.[C_NAME2], 0);end loop;

for (
    select acc(
        acc.[NAME]             : C_NAME,
        acc.[CLIENT_V].[NAME]   : C_NAME2
        )
        in ::[AC_FIN] all
        where acc.[MAIN_V_ID] = s_ac_str
) loop
    debug_pipe('Имена2_ : ' || acc.[C_NAME] || ' ' || acc.[C_NAME2], 0);end loop;

::[tbp_oper].[oper](
    P_PAR1 == par1,
    P_PAR2 == par1
    );

stdio.put_line_buf('<% PLPCALL [TBP_OPER].[OPER](%PARAM%.P_PAR1 => %VAR%.PAR1, %PARAM%.P_PAR2 => %VAR%.PAR2) %>');

Runtime.PlayEx("<% PLPCALL [TBP_OPER].[OPER](%PARAM%.P_PAR1 => %VAR%.PAR1, %PARAM%.P_PAR2 => %VAR%.PAR2) %>")

pragma include(::[RUNTIME].[MACRO_LIB]);

pragma macro(DELIM,                  ';'); -- разделитель для csv формата

pragma macro(xl, '::[OOXML].[API_XL]'); --препроцессор
pragma macro(lib_ooxml,'::[SHABLON_DOC].[LIB_OOXML]'); --препроцессор
&lib_ooxml.xl_init(p_shablon_code == 'RSB_REP_KSPL'); -- вызов шаблона
&xl.Open_Sheet(1); -- установим нужный лист
&xl.put(3, 6, ‘информация для вывода в ячейку 3 6 листа 1’)); -- вывод в строку 3, колонку 6
&lib_ooxml.xl_finish; --вывод xls на экран

pragma macro(wd, '::[OOXML].[API_DOC_SAX]'); --препроцессор
p_shablon_ref ref [SHABLON_DOC]; --переменная для ссылки на шаблон
v_tf_field constant.MEMO_TABLE_S; --массив для переменных шаблона
p_shablon_ref := ::[SHABLON_DOC]%locate(x where x.CODE = 'SHABLON_CODE'); --поиск шаблона по коду
v_report_data := ::[SHABLON_DOC].[LIB_OOXML].wd_init(
p_shablon_ref         == p_shablon_ref                            ,p_filial             == stdlib.userid().[FILIAL]                        ,p_stop_on_error == false); --подгрузка шаблона
    v_tf_field := &wd.GetDocVars; --подгрузка переменных из шаблона в массив
    v_tf_field('ДАТА'):= vDate_Str; --заполнение переменной ДАТА неким значением
    v_tf_field('ФИО'):= P_CLIENT; --заполнение переменной ФИО неким значением
    &wd.PutDocVars(v_tf_field); --возврат значений с массива на документ
    &wd.finish(v_report_data); --вывод документа на экран

--Необходимые переменные
ifile            integer;
ofile            [FILE$LOAD];sbuffer            varchar2(1000);
--Определим путь и имя файла
ofile.[SRC_PATH]    := stdio.Get_Env('FIO_ROOT_DIR');
ofile.[SRC_NAME]    := 'for_test.csv';
ofile.[SRC_TYPE]    := true;
--Вычитали данные
ifile := stdio.open(ofile.[SRC_PATH], ofile.[SRC_NAME], 'r');
        while stdio.get_line(ifile, sbuffer, True, stdio.WINTEXT, Null) loop
                if sbuffer is not null then
                        sbuffer:= replace(replace(sbuffer, chr(10), ''), chr(13), '');
        --В переменной sbuffer строки из файла for_test.csv.
    --Далее их можно обрабатывать, например разбирать
        --используя аналог функции ENTRY (пункт 5 из данный статьи)
                end if;
        end loop;
stdio.f_close(ifile);

pragma macro (xl, '::[OOXML].[API_XL]'); --препроцессор для работы с xls
pragma macro (get, '&xl.getSheetRowColVal(
            p_row        == [1]        --Строка адреса ячейки
            ,p_col        == [2]        --Колонка адреса ячейки
            ,p_sheet    == 1        --Номер листа
            ,p_tp        == v_s_tp        --Тип ячейки см. xl_tp_...
            ,p_st        == v_n_st        --Индекс стиля ячейки
        )', substitute); --препроцессор для получения данных из ячейки xlsv_s_tp                string(128); --переменная для &get
v_n_st                number; --переменная для &get
v_blob_file            blob := empty_blob(); --переменная для загрузки данных

if nvl(P_FILE.[SRC_TYPE], false) then
        P_FILE.[SRC_TYPE]        := null;
        P_FILE.[DST_TYPE]        := null;    end if;
    P_FILE.[DST_NAME]        := P_FILE.[SRC_NAME];
              V_FILEPATH := P_FILE.[SRC_PATH];
              V_FILENAME := P_FILE.[SRC_NAME];

::[SHABLON_DOC].[LIB_OOXML].read_from_file(    p_blob        == v_blob_file        --Содержимое файла (BLOB)
        ,p_dir        == V_FILEPATH        --Путь к файлу на сервере
        ,p_fname    == V_FILENAME    --Имя файла на сервере
,p_delete    == false            --Удаление файла на сервере после чтения
        ); -- чтение файла в переменную v_blob_fileif v_blob_file is null
    then
        pragma error('Файл не выбран!');
    end if;    if not &xl.open_file(v_blob_file)
    then
        pragma error('Ошибка чтения файла!');
    end if;    &xl.open_sheet(1); --    открытие страницы 1 файла
    Debug_pipe(&get(6, 3), 0);  --данные из ячейки (строка 6,столбец 3,страница 1)

type strucType is record (    FileName      string,
                                helloString   string,
                              procName      string );
type rezType is table of  strucType index by integer;
rez   rezType;

Public Function Main(LastControl)
    Main = True
    If LastControl Is Ok Then
        Main = Null
        if Form1.ScriptServerValidate(Nothing, "QUESTION") then
            if V_IS_QUESTION then
                call Runtime.ShowMonitor
                if MsgBox("Вы хотите продолжить?", vbYesNo + vbQuestion + vbDefaultButton2, "Вопрос") = vbYes then
                    if Form1.ScriptServerValidate(Nothing, "PROCESS_BL_YES") then
                        Main = True
                    end if
                else
                    if Form1.ScriptServerValidate(Nothing, "PROCESS_BL_NO") then
                        Main = True
                    end if
                end if
            else
                Main = True
            end if
        end if
    End If
End Function

v_b_need_bl_process boolean;

begin
    if p_message = 'VALIDATE' then     if p_info = 'QUESTION' then
            --Здесь некий код который определяет нужно ли задавать вопрос пользователю
        V_IS_QUESTION := TRUE; --например нужно        elsif p_info = 'PROCESS_BL_YES' then
            v_b_need_bl_process := true;
        elsif p_info = 'PROCESS_BL_NO' then
            v_b_need_bl_process := false;
        end if;    end if;end;

begin
    if not v_b_need_bl_process then
    return;
    end if;    --Здесь код, который выполняется если пользователь ответил «Да»
    -- и не выполняется если пользователь ответил «Нет».    debug_pipe('Сработало!', 0); --например так
end;