#include <stdio.h>
#include <stdlib.h>
extern "C" {void COBRTN (int);}
int main()
{
int x;
x=5;
COBRTN(x); /* x by value */
exit(0);
}
|
IDENTIFICATION DIVISION.
PROGRAM-ID. COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
01 X PIC S9(9) BINARY.
PROCEDURE DIVISION USING BY VALUE X.
DISPLAY X.
GOBACK.
END PROGRAM COBRTN.
|