Comprimir nombre completo
Publicado por Hector Escalante A (1 intervención) el 05/05/2014 20:45:02
muy sencillo
STRING PRIMER-NOMBRE '-'
SEGUNDO-NOMBRE '-'
PRIMER-APELLIDO '-'
SEGUNDO-APELL DELIMITED BY ' ' INTO NOMBRE-COMPACTO
INSPECT NOMBRE-COMPACTO REPLACING ALL '-' BY ' '
DISPLAY 'NOMBRE CLIENTE: ' NOMBRE-COMPACTO
STRING PRIMER-NOMBRE '-'
SEGUNDO-NOMBRE '-'
PRIMER-APELLIDO '-'
SEGUNDO-APELL DELIMITED BY ' ' INTO NOMBRE-COMPACTO
INSPECT NOMBRE-COMPACTO REPLACING ALL '-' BY ' '
DISPLAY 'NOMBRE CLIENTE: ' NOMBRE-COMPACTO
Valora esta pregunta


0