Hola:
En el ejemplo que te hice "minuscula" y "mayuscula" son variables alfanuméricas.
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 minuscula pic x(50).
01 mayuscula pic x(50).
PROCEDURE DIVISION.
comienzo.
move "abcdefgh" to minuscula.
move function upper-case(minuscula) to mayuscula.
*> la variable mayuscula se carga con ABCDEFGH.
Saludos.
Fito...