CREATE PROCEDURE PROC1(
   A_ID INT COMMENT 'Идентификатор',
   A_NAME VARCHAR(30) NOT NULL COMMENT 'Наименование'
)
RETURNS (
  OUT_PARAM BLOB SUB_TYPE TEXT COMMENT 'Выходной параметр'
)
COMMENT 'Процедура создания ...'
AS
  DECLARE X INT DEFAULT 5 COMMENT 'Локальная переменная';
BEGIN
...
END

CREATE OR ALTER PACKAGE DATE_UTILS
AS
BEGIN
  -- Возвращает маскированную дату
  FUNCTION DateByMask(ADate DATE, AMask D_DATEMASK) RETURNS CHAR(10);
  -- Возвращает строковое представление даты в формате dd.mm.yyyy
  FUNCTION DateToChar(ADate DATE) RETURNS CHAR(10);
  ...
END

RECREATE PACKAGE BODY DATE_UTILS
AS
BEGIN
  /**
   * Возвращает маскированную дату
   * @param ADate входной параметр
   */
  FUNCTION DateByMask(ADate DATE, AMask D_DATEMASK) RETURNS CHAR(10)
  AS
  BEGIN
    ...
  END

  /**
   * Возвращает строковое представление даты в формате dd.mm.yyyy
   */
  FUNCTION DateToChar(ADate DATE) RETURNS CHAR(10)
  AS
  BEGIN
    ...
  END
END