GENUUID is the IBM provided procedure. I can find the example of calling GENUUID from RPG, but need to add _(Underscore) in the name
EXTPRC(‘_GENUUID’)