CREATE OR REPLACE PACKAGE CC_LIBS AS

TYPE VARLIST IS TABLE OF ANYDATA;
TYPE VARHASH IS TABLE OF ANYDATA INDEX BY VARCHAR2(80);

PROCEDURE CC_LOG (args IN VARLIST DEFAULT null);
--PROCEDURE CC_LOG (args IN VARHASH DEFAULT null);

END CC_LIBS;
/

CREATE OR REPLACE PACKAGE BODY CC_LIBS AS

PROCEDURE CC_LOG (args IN VARLIST DEFAULT null) AS
BEGIN
  FOR i IN args.FIRST..args.LAST LOOP
    DBMS_OUTPUT.PUT_LINE('LIST: #'||i);
  END LOOP;
END;

END CC_LIBS;
/

DECLARE
BEGIN
  CC_LIBS.CC_LOG('a','b');
END;

    FUNCTION format_message(format IN VARCHAR2 CHARACTER SET ANY_CS,
                           args ...)
      RETURN VARCHAR2 CHARACTER SET format%CHARSET;

/* ---------------------------------------------------------------------------
  FORMAT (<format string> [, argument list...])
  Форматирование строки в соответствии с шаблоном и передаваемыми данными
  Шаблон обрамляется фигурными или прямоугольными скобками ({} или []).
  В фигурные скобки заключается обычный шаблон.
  В прямоугольные скобки заключается условный шаблон - если в нем отсутствуют 
  значения (равны NULL), то весь шаблон игнорируется (заменяется пустой 
  строкой). Парность скобок не учитывается, тип шаблона определяется по 
  открывающей скобке.
  Символ \ экранирует любой следующий символ. Например \[ используется, чтобы 
  использовать в шаблоне литеральный символ [.
  В шаблоне может быть либо значение, либо вложенный шаблон. Значения всегда 
  предваряются символом $.
  Формат шаблона: "$" index [ "|" format [ "|" nls ] ] [ "@" null ]
  index - порядковый номер аргумента (от 1 до 9) или * (следующий аргумент).
  format - строка формата, передается в to_char() без изменений.
  nls - строка локализации, передается в to_char в зависимости от типа.
  null - используется при пустом значении аргумента
  Примеры:

    Индекс: {$1|FM000000}, город {$2@-}
    Индекс: 012345, город Москва
    Индекс: , город -

    [Трек #{$*|FM00}. ][Альбом '{$*|YYYY} / ]{[{$*} - ]{$*@unknown}}.mp3
    Трек #01. Beatles - Yesterday.mp3
    Альбом '2000 / unknown.mp3

----------------------------------------------------------------------------*/

DECLARE

FUNCTION FORMAT(...) RETURN VARCHAR2 IS
...
  tagPos INT := 1; tagOpen INT; tagClose INT; tagOpt INT;
...
BEGIN
...
  LOOP
    tagOpen := INSTR(str, ch, tagPos);
    EXIT WHEN tagOpen = 0;
    tagClose := PAIR(tagOpen);
    tagPos := tagClose + 1;
...
    IF (...) THEN
      tag := FORMAT(...);
    END IF;
...
  END LOOP;
  RETURN res;
END;