Puedes usar la función
`ORD` en COBOL para obtener el valor numérico (en hexadecimal) de un carácter introducido. Aquí tienes un ejemplo de cómo hacerlo:
En este código COBOL, solicitamos al usuario que introduzca un carácter. Luego, utilizamos la función
`ORD(INPUT-CHAR)` para obtener el valor numérico del carácter introducido. Después, convertimos ese valor numérico a una representación hexadecimal utilizando
`FUNCTION NUMVAL(HEX-NUMERIC)` y almacenamos el resultado en
`HEX-VALUE`. Finalmente, mostramos el valor hexadecimal en la pantalla.
Este programa tomará el carácter introducido por el usuario y mostrará su valor en hexadecimal. Por ejemplo, si el usuario introduce "A", el programa mostrará "El valor hexadecimal de A es 41" (en hexadecimal).