void COBRTN(int); COBRTN(x); /* x by value */
01 X PIC S9(9) BINARY. PROCEDURE DIVISION USING BY VALUE X.