IDENTIFICATION DIVISION.
PROGRAM-ID. COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
O1 STRUC1.
    05 S11 PIC S9(9) BINARY.
    05 S12 PIC S9(9) BINARY.
PROCEDURE DIVISION.
    CALL "CENTRY" RETURNING STRUC1.
    GOBACK.
END PROGRAM COBRTN.

#include <stdio.h>
struct stype {
  int s1;
  int s2;  };
struct stype centry()
{
  struct stype struc2;
  struc2.s1=3;
  struc2.s2=4;
  return struc2;
}