PSFSTR: Proc Options(Main);
  Dcl SYSPRINT file;
  Dcl Str Char(80);
  Dcl CTFSTR external entry
        Options(COBOL);
      Str = 'Test PL/I-COBOL message.';

      Call CTFSTR( Str );
End;

IDENTIFICATION DIVISION.
PROGRAM-ID. CTFSTR.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
01 STR    PIC X(80).
PROCEDURE DIVISION USING STR.
    DISPLAY STR.
    GOBACK.
END PROGRAM CTFSTR.