PSFTD16: Proc Options(Main);
  Dcl SYSPRINT file;
  Dcl X Float Decimal(16);
  Dcl CTFTD16 external entry
        Options(COBOL);
      X=1;

      Call CTFTD16( X );
End;

IDENTIFICATION DIVISION.
PROGRAM-ID. CTFTD16.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
1   X  USAGE IS COMP-2.
    PROCEDURE DIVISION USING X.
    DISPLAY X.
    GOBACK.
END PROGRAM CTFTD16.