Добрый день!

Впервые столкнулся с проблемой, что в системе невозможно создать новую функцию расчета заработной платы из-за достигнутого лимита в include PCASFRU0 (я так понимаю максимум их 256 и генерирует его программа RPUCT300). Был ли у кого-то опыт обхода данного лимита? Можно попросить поделиться опытом? Проблема не срочная, но видимо через какое-то время предстоит её решать.

Да, лимит есть. Функции/операции кодируются идентификатором в один байт, поэтому максимальное их количество 255 (значение 0 не используется). Причем для Z-функции выделен диапазон от E6 до FF, 25 штук.

Делаете одну универсальную функцию, в которую в качестве параметра (например, 1-го) передаете имя под-функции. В реализации универсальную функции делаете разбор параметра, и вызываете соответствующее реализацию.
Если диапазон уже выбран, то место последней созданной функции отдаете универсальной, а ее вызов организуете уже через универсальную.

Аналогично можно сделать и в отношении операций, там лимиты такие же.

Благодарю! Отличное решение!

По моему лимит только на автоиндексацию, т.е. когда название перформа под функцию/операцию автоматом выбирается, но в pe04 есть переключатель на свое название, тогда лимита вроде бы нет.
Я это проверял экспериментально на операциях (создал несколько до дампа, потом заменил операцию на ручной перформ и дампа не стало) поэтому не уверен, что не напутал чего, а так да на всех проектах с сопровождением, на которых участвовал, уже были универсальные операции/функции.

Да, можно ввести свое имя для процедуры реализации. Но вызов этой процедуры все равно происходит по индексу процедуры. Размерность этого индекса - байт, поэтому ограничение в 255 функций/операций так не обойти.

Реализация вызова AS-FNUMB - код функции.

Если даже как-то поднять размерность AS-FNUMB, то сама конструкция PERFORM n OF subr1 subr2 ... ограничена лимитом в 256 процедур.