Fixed-length decimal data with #pragma

#pragma linkage(cobrtn,COBOL)
#include <stdio.h>
#include <decimal.h>
void cobrtn (decimal(5,2)*);

int main()
{
  decimal(5,2) x;
  x=123.45d;
  cobrtn(&x);   /* x by reference */
}

IDENTIFICATION DIVISION.
PROGRAM-ID.  COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
01 X PIC 999V99 COMP-3.
PROCEDURE DIVISION USING X.
      DISPLAY X
      GOBACK.
END PROGRAM COBRTN.