Dies geht in Free nur mit einem Prototyp.

dcl-pr MyProg extname('BLA');
pLib char(10) const;
end-pr;

dcl-s MyLib char(10) inz('MYLIB');

MyProg(MyLib);
MyProg('LIBXYZ');