lunes, 5 de diciembre de 2011

SHIFT CONDENSE OVERLAY ABAP

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