PSFTD6: Proc Options(Main);
  Dcl SYSPRINT file;
  Dcl X Float Decimal(6);
  Dcl CTFTD6 external entry
        Options(COBOL);
      X=1;

      Call CTFTD6( X );
End;

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