IDENTIFICATION DIVISION.
PROGRAM-ID. COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 X PIC S9(9) BINARY.
01 Y PIC S9(9) BINARY.
PROCEDURE DIVISION.
MOVE 1 TO X.
MOVE 2 TO Y.
* X BY VALUE, Y BY REFERENCE ***
CALL "CENTRY" USING BY CONTENT X
BY REFERENCE Y.
GOBACK.
END PROGRAM COBRTN.
|
#pragma linkage (centry,COBOL)
#include <stdio.h>
void centry (int x, int *y)
{
printf("%d %d \n",x,*y);
return;
}
|