ABAP/4 ejemplos varios

Hola soy programador de ABAP/4 hace muchos años asi que desde ahora voy a pasar por aca para los abapers tarigueros algunos ejemplos de algunos cosa que hice ahi va el primero

Ejemplo para recupera la informacion de una lista de spool

REPORT YRECUPERA_LISTA.
RANGES: R_per for FAGLFLEXT-RPMAX.
data: xlist type abaplist occurs 0 with header line.
DATA: xtext(255) OCCURS 0 WITH HEADER LINE.
data: v_importe(14) type c,
v_impor like faglflext-hslvt.
R_per-SIGN = 'I'.
R_per-OPTION = 'BT'.
R_per-LOW = '01'.
r_per-HIGH = '16'.
append R_per.
submit RFBILA00
WITH SD_KTOPL-LOW = 'INT'
WITH SD_BUKRS-LOW = '1000'
WITH BILAVERS = 'INT'
WITH BILASPRA = 'ES'
WITH BILBJAHR = '2008'
WITH B-MONATE IN r_per
WITH BILVJAHR = '2007'
WITH V-MONATE IN r_per
WITH BILAGRID = 'X'
EXPORTING LIST TO MEMORY
AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = xlist
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc = 0.
CALL FUNCTION 'LIST_TO_ASCI'
TABLES
listasci = xtext[]
listobject = xlist[]
EXCEPTIONS
empty_list = 1
list_index_invalid = 2
OTHERS = 99.
LOOP AT xtext.

IF xtext+1(7) = '7090000'
and not xtext+73(14) is initial.

move xtext+73(14) to v_importe.
REPLACE ALL OCCURRENCES OF '.' IN v_importe with space.
REPLACE ALL OCCURRENCES OF ',' IN v_importe with space.
CONDENSE v_importe NO-GAPS.

move v_importe to v_impor.
v_impor = v_impor / 100 * -1.

WRITE: / xtext+1(7),
xtext+73(14),
v_impor.
ENDIF.

ENDLOOP.

ENDIF.

Espero que le sirva a alguien ..