IDENTIFICATION DIVISION.
PROGRAM-ID.  COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 X PIC 999V99 COMP-3.
PROCEDURE DIVISION.
    CALL "CENTRY" RETURNING X.
    GOBACK.
END PROGRAM COBRTN.

#include <stdio.h>
#include <decimal.h>

decimal(5,2) centry()
{
  decimal(5,2) x=123.45;
  printf("%D(5,2)\n",x);
  return x;
}