RosettaCodeData/Task/Call-a-foreign-language-function/PL-I/call-a-foreign-language-function.pli

declare strdup entry (character (30) varyingz) options (fastcall16);

put (strdup('hello world') );