Hi jcamacho, I think you need to make two changes:
1) the parameters in CreateStreamCallBack need to be BY VALUE, so:
method-id CreateStreamCallBack.
procedure division USING BY VALUE nombre as string, fileExtension as string, codificacion as type Encoding, mimeType as string, willSeek as condition-value
2) since the parameter to the 'render' function is actually a method rather than a data item, it needs to be preceded by the keyword 'METHOD' and to provide the object (or type) on which the method is to act, so:
INVOKE informe::Render("Image", deviceInfo, method self::CreateStream, warnings).
I must say I'm surprised that the code in its existing state compiles - I would have expected a compile time error, but maybe I'm missing something.
Let me know if these modifications help.
Regards