#include <stdio.h>
void cobrtn (int);

int main()
{
  int x;
  x=5;
  cobrtn(x);  /* x by value */
}

IDENTIFICATION DIVISION.
PROGRAM-ID. COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
01 X PIC S9(9) BINARY.
PROCEDURE DIVISION USING BY VALUE X.
      DISPLAY X.
      GOBACK.
END PROGRAM COBRTN.