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

put (strdup('hello world') );