LINKAGE SECTION.
01 P1 PIC S9(9) USAGE IS BINARY
01 P2 PIC S9(9) USAGE IS BINARY
CALL 'CFUNC' USING BY VALUE P1
     RETURNING P2.

 

int CFUNC(int p1){
  int p2;
  p2=p1;
  return p2;
}