IDENTIFICATION DIVISION.
PROGRAM-ID. COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STRUC1.
O5 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; } struc1;
extern "C" {struct stype CENTRY()
struct stype CENTRY()
}
struc1.s1=1;
struc1.s2=2;
printf("%d %d \n",struc1.s1,
struc1.s2);
return struc1;
}
|