01 P1 PIC S9(9) USAGE IS BINARY
CALL 'CFUNC' USING BY CONTENT P1.

#pragma linkage(CFUNC,COBOL)
void CFUNC(int p1) {
}