hrmcobol,
Quando vi o teu pedido, fiz um OCX em VB6, que podes utilizar em PowerCobol.
A instrução passaria a ser :
Código COBOL:
INVOKE extmsgbox1 "ExtMsgBox" USING mensagem titulo MsgFlags Xpoint Ypoint MsgTimer RETURNING ReturnValue.
Código:
MsgFlags = as mesmas do cobol (icon e botões
xpoint = left para colocação da messageBox
ypoint = top para colocação da messageBox
MsgTimer = 0 = MessageBox normal
MsgTimer = x milissegundos para a messageBox fechar sozinha.
ReturnValue = Botão selecionado (Ok, Cancel)
Se quiseres utilizar este OCX eu vou acabar de retirar alguns erros que ainda tem e vou coloca-lo
no foro, nos OCX gratuitos.
Un saludo,
Rui Pinto