Hola Roger y Fito
La función enviada de convertir minuscula a MAYUSCULA, no logro hacerla que funcione
esta es la función de programación, de un campo alfabético.
Favor de revisar que esta malo
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATOS.
02 NOMBRE-MAS PIC X(27).
02 NOMBRE PIC X(27).
PROCEDURE DIVISION.
MOVE cmtext2 TO nombre
INSPECT NOMBRE CONVERTING "abcdefghijklmnñopqrstuvwxyz"
TO "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ".
* esta tampoco funciona
* move cmtext2 upper-case (minuscula) to mayuscula.
move pow-true to enabled of cmtext3.
move pow-color-white to backcolor of cmtext3.
invoke cmtext3 "setfocus".