Функции 4GL
Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
VPS/VDS серверы. 30 локаций на выбор

Серверы VPS/VDS с большим диском

Хорошие условия для реселлеров

4VPS.SU - VPS в 17-ти странах

2Gbit/s безлимит

Современное железо!

Бесплатный конструктор сайтов и Landing Page

Хостинг с DDoS защитой от 2.5$ + Бесплатный SSL и Домен

SSD VPS в Нидерландах под различные задачи от 2.6$

✅ Дешевый VPS-хостинг на AMD EPYC: 1vCore, 3GB DDR4, 15GB NVMe всего за €3,50!

🔥 Anti-DDoS защита 12 Тбит/с!

Встроенные функции 4GL. Не включать в SQL операторы.


arg_val (n)          n-й аргумент из командной строки

num_args ()          кол-во аргументов в командной строке



infield (field-name) истина если курсор находится в поле  (DISPLAY/INPUT)

CALL set_count(n)    сообщить 4GLю кол-во заполненных строк в массиве

                     перед оператором DISPLAY ARRAY

arr_curr()           No. текущей строки массива           (INPUT/DISPLAY ARRAY)

scr_liпе ()          No. текущей строки экранного массива (INPUT/DISPLAY ARRAY)

arr_count ()         кол-во заполненных строк в массиве   (INPUT ARRAY)



err_get (status)     4GL сообщение об ошибке ° status

CALL err_print(nn)   вывести  4GL сообщение об ошибке ° nn

CALL err_quit (nn)   вывести  4GL сообщение об ошибке и кончить

CALL showhelр (n)    вывести  4GL help-menu и help-сообщение



CALL startlog("filename")   открыть errorlog файл

CALL errorlog (строка)      добавить сообщение в errorlog



downshift (строка)          не длиннее 512

upshift   (строка)



ASCII   n            Преобразует число n в символ ASCII

строка CLIPPED       Гасит пробелы в конце строки

COLUMN  n       Добавить пробелов, чтоб оказаться на n-ом столбце экрана



expr USING "format"  Задает формат для number, MONEY, DATE выражений

  элементы формата чисел: *?<,.-+()$

    * Заменять пробелы на *        .   позиция десятичной точки

    & Заменять пробелы на 0        -   позиции знака "-"

    # ничего не менять             +   позиции знаков "+","-"

    < левоустановить число     (((...) отрицательное число в скобки.

    , литерал ","                  $   литерал  "$"

  элементы формата дат: dd,ddd,mм,mmм,yу,yyyу и литералы /-.() и др.

Эти функции можно использовать в операторе SELEСТ:


SITENAME                имя сервера(или hostname)          *OnL*

LENGTН (строка)            длина без заканчивающих пробелов

USER                       login-name текущего пользователя

TODAY                      текущая дата в системном формате

CURRENТ  [first TО last]   текущее DATETIME

где first,last из {YEAR,MONTH,DAY,HOUR,MINUTE,SECOND,FRACTION(n)}

Преобразование дат и времени:


TIМЕ                       текущее время в виде "hh:mm:ss"

DАТЕ                       текущая дата в виде "Mon Apr 1 1991"

EXTEND (datetime-value [first TО last]) преобразует к DATETIME

expr UNITS qualifier Возвращает INTERVAL значение=expr*qualifier

где qualifier Ё {YEAR,MONTH,DAY,HOUR,MINUTE,SECOND,FRACTION(n)}

DАТЕ ([char] expr)         преобразует к типу DATE

MDY (nDAY, nMONTH, nYEAR)  преобразует к типу DATE



DAY (дата  )     выделяет номер дня в месяце из даты

WEEKDAY (дата)   выделяет номер дня в неделе   ! Здесь дата  

MONTН (дата)     выделяет номер месяца         ! типа DATE   

YEAR (дата)      выделяет год                  ! или DATETIМЕ

Встроенные агрегатные функции оператора SELEСТ.


COUNТ (*)

COUNТ (  DISTINCT  column-name )     количество

SUМ   ( [DISTINCT] column-name )

AVG   ( [DISTINCT] column-name )     среднее значение

MIN   ( [DISTINCT] column-name )

MAХ   ( [DISTINCT] column-name )

Назад || Оглавление || Вперед

VPS в России, Европе и США

Бесплатная поддержка и администрирование

Оплата российскими и международными картами

🔥 VPS до 5.7 ГГц под любые задачи с AntiDDoS в 7 локациях

💸 Гифткод CITFORUM (250р на баланс) и попробуйте уже сейчас!

🛒 Скидка 15% на первый платеж (в течение 24ч)

Скидка до 20% на услуги дата-центра. Аренда серверной стойки. Colocation от 1U!

Миграция в облако #SotelCloud. Виртуальный сервер в облаке. Выбрать конфигурацию на сайте!

Виртуальная АТС для вашего бизнеса. Приветственные бонусы для новых клиентов!

Виртуальные VPS серверы в РФ и ЕС

Dedicated серверы в РФ и ЕС

По промокоду CITFORUM скидка 30% на заказ VPS\VDS

Новости мира IT:

Архив новостей

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 7861149
Пресс-релизы — pr@citforum.ru
Обратная связь
Информация для авторов
Rambler's Top100 TopList This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2019 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...