Javier,
Junto com o OCX está um exemplo que mostra o código a utilizar (PowerCobol 9):
Código COBOL:
MOVE ".\QRCODE.BMP" TO "ImageFIleName" OF qrcode1.
move "TEXT" OF CMTEXT1 to "TextToEncode" OF qrcode1.
INVOKE qrcode1 "SavePicture".
Experimenta.
Un Saludo
Rui Pinto