Cobol - Comprimir nombre completo

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder