#pragma linkage(CBLRTN,COBOL) void CBLRTN(int p1); CBLRTN(p1);
01 P1 PIC S9(9) USAGE IS BINARY PROCEDURE DIVISION USING P1.