Este programa solicita el ingreso de una configuración hexadecimal y retorna la correspondiente configuración EBCEDIC.
EBCDIC PPIO 3 INGRE WTORPC 'Ingrese la configuracion hexadecimal: ',ENTRA,2 LA 4,LETRAS LA 5,3 LA 6,ENTRA COMLET CLC 0(1,6),0(4) BE LETOK LA 4,1(4) BCT 5,COMLET B ERROR LETOK LA 4,NUMEROS LA 5,9 COMNUM CLC 1(1,6),0(4) BE NUMOK LA 4,1(4) BCT 5,COMNUM B ERROR NUMOK LA 4,0 LA 5,0 ICM 5,12,ENTRA SLL 5,4 SLDL 4,4 A 4,=F'9' SLL 5,4 SLDL 4,4 STCM 4,1,SALE WTO SALE CHAU ERROR WTO 'ERROR' B INGRE ENTRA DS CL2 LETRAS DC C'CDE' NUMEROS DC C'123456789' SALE DS CL1