Hola Juan
-convertir minuscula en mayuscula.
Código COBOL:
MOVE NOMBRE-MAS TO nombre
INSPECT NOMBRE CONVERTING "abcdefghijklmnñopqrstuvwxyz"
TO "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ".
-mensaje de advertencia
Código COBOL:
01 OK PIC X(15).
01 STYL PIC S9(9) COMP-5.
01 M-TITLE PIC X(15) VALUE "Mensaje".
01 RET PIC S9(9) COMP-5.
PROCEDURE DIVISION.
INICIO.
if pow-text of cmtext13 = spaces
COMPUTE STYL = POW-DMOK + POW-DMNOICON
INVOKE POW-SELF "DisplayMessage"
USING "Cliente no esta registrado" M-TITLE STYL
RETURNING RET
* When the push button is clicked.
EVALUATE RET
WHEN POW-DMROK
exit program
END-EVALUATE.
ABRE.