PSFB31: Proc Options(Main);
  Dcl SYSPRINT file;
  Dcl X Fixed Binary(31);
  Dcl CTFB31 external entry
        Options(COBOL);
      X=1;

      Call CTFB31( X );
End;

IDENTIFICATION DIVISION.
PROGRAM-ID. CTFB31.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
1   X  PIC S9(9) USAGE IS BINARY.
PROCEDURE DIVISION USING X.
    DISPLAY X.
    GOBACK.
END PROGRAM CTFB31.