Ver Mensaje Individual
  #1  
Viejo 13/10/10, 00:33:36
jorgeABAP29 jorgeABAP29 is offline
Member
 
Fecha de Ingreso: oct 2010
Mensajes: 33
Post Que haces este codigo?

Hola, acá les dejo el código, a continuacion esta la pregunta:

C_BIKER ES UNA CLASE.
CLASS: C_BIKER DEFINITION DEFERRED.

TYPES: BIKER_REF TYPE REF TO C_BIKER,
BIKER_REF_TAB TYPE STANDARD TABLE OF BIKER_REF
WITH DEFAULT KEY,
BEGIN OF STATUS_LINE_TYPE,
FLAG(1) TYPE C,
TEXT1(5) TYPE C,
ID TYPE I,
TEXT2(7) TYPE C,
TEXT3(6) TYPE C,
GEAR TYPE I,
TEXT4(7) TYPE C,
SPEED TYPE I,
END OF STATUS_LINE_TYPE.

DATA:
BIKER_TAB TYPE BIKER_REF_TAB,
BIKER_SELECTION LIKE BIKER_TAB.

METHOD SELECTION.
CLEAR BIKER_SELECTION.
DO.
READ LINE SY-INDEX.
IF SY-SUBRC <> 0. EXIT. ENDIF.
IF SY-LISEL+0(1) = 'X'.
READ TABLE BIKER_TAB INTO BIKER INDEX SY-INDEX.
APPEND BIKER TO BIKER_SELECTION.
ENDIF.
ENDDO.
CALL METHOD WRITE_LIST.
ENDMETHOD.

Quiero saber que hace el método selección, fundamentalmente que hace la instrucción READ LINE SY-INDEX y SY-LISEL+0(1) = 'X'.

espero sus respuestas... gracias.
Responder Con Cita