#pragma linkage(cobrtn,COBOL)
#include <stdio.h>
void cobrtn (short int*);

int main()
{
  short int x;
  x=5;
  cobrtn(&x);  /* x by reference */
}

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