PLIPROG:  Proc options(main, reentrant);
  Dcl cfunc external entry
    returns(fixed bin(31));
  Dcl arg fixed bin(31);
  Dcl a fixed bin(31);
  Arg = 10;
  A = cfunc(arg);
  End;
 

#pragma linkage(CFUNC, PLI)
int CFUNC( int parm ) {

return (5);
}