#pragma linkage(cobrtn,COBOL)
#include <stdio.h>
void cobrtn (double, double*);
int main()
{
double x,y;
x=3.14159265;
y=4.14159265;
cobrtn(x,&y); /* x by value */
} /* y by reference */
|
IDENTIFICATION DIVISION.
PROGRAM-ID. COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
01 X COMP-2.
01 Y COMP-2.
PROCEDURE DIVISION USING X Y.
DISPLAY X Y
GOBACK.
END PROGRAM COBRTN.
|