DATA F(12) VALUE 'ok PEDRO'.
DATA F1(20) VALUE 'carro'.
DATA Ff1(20).
DATA Fff1(20).
DATA F11(20) VALUE 'gracias'.
DATA F2(12) VALUE '912345678'.
SHIFT F BY 3 PLACES.
*rta PEDRO quita 'ok '
SHIFT f2 CIRCULAR.
*rta 12345678 9 move primer numero al final
SHIFT f1 RIGHT DELETING TRAILING ' '.
*corre el texto a la derecha
ff1 = f1.
CONDENSE ff1 NO-GAPS.
*quita los espaciosen blanco
fff1 = f1.
OVERLAY fff1 WITH '00000000000000000000000000000' .
*rellena el campo con 0 en los espacios que esten en blanco
No hay comentarios:
Publicar un comentario