Begoguay, solo quieres un pitido? No vas a mostrar un MessageBox con texto e icono de error? Lo digo mas que nada porque lo mismo vienes de un compilador mas antiguo, seguramente con pantallas en modo consola, y por eso quieres un Beep. En PowerCOBOL creo que existe algo asi :
Rero nunca lo he usado. Normalmente uso:
Código COBOL:
WORKING-STORAGE SECTION.
01 WS-ICONO PIC 99.
88 WS-ICON-ERR VALUE '16'.
88 WS-ICON-WRN VALUE '48'.
88 WS-ICON-INF VALUE '64'.
PROCEDURE DIVISION.
SET WS-ICON-??? TO TRUE
INVOKE POW-SELF "DisplayMessage" USING "Texto mensaje" "Titulo Mensaje" WS-ICONO