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
↧