Report Format and read line

Question

Dear all,
I have a report format :
Field 1          Field 2        Field 3
XXX              XXXXX          XXXX
XXX              XXXXX          XXXX
XXX              XXXXX          XXXX
I want to change this format to :
Field 1          Field 2        Field 3
XXX              XXXXX          XXXX
                   XXXXX          XXXX
                   XXXXX          XXXX
Field1 is  be display one times and I want that  I can read the field 1 value with READ LINE
I try to use HIDE: Field 1 in a loop ,but It can not hide the  field 1 value.
why?
thanks you
John

Answer 1

Hi,
Use the statements READ LINE and READ CURRENT LINE to read data from the lines of existing list levels. These statements are closely connected to the HIDE technique.
All of the lists generated by a single program are stored internally in the system. You can therefore access any list in a program that was created for the same screen and that has not yet been deleted by returning to a lower list level. To read lines, use the statements READ LINE and READ CURRENT LINE.
To read a line from a list after an interactive list event, use the READ LINE statement:
READ LINE <lin> [INDEX <idx>]
[FIELD VALUE <f1> [INTO <g 1>] ... <f n> [INTO <g n>]]
[OF CURRENT PAGE|OF PAGE <p>].
The statement without any options stores the contents of line <lin> from the list on which the event was triggered (index SY-LILLI) in the SY-LISEL system field and fills all HIDE information stored for this line back into the corresponding fields. As far as SY-LISEL and the HIDE area are concerned, READ LINE has the same effect as an interactive line selection.
<b>Here is the Demo Program</b> 
REPORT demo_list_read_line NO STANDARD PAGE HEADING.
TABLES: sflight.
DATA: box(1) TYPE c, lines TYPE i, free TYPE i.
START-OF-SELECTION.
  SET PF-STATUS 'CHECK'.
GET sflight.
  WRITE: box AS CHECKBOX, sflight-fldate.
  HIDE: sflight-fldate, sflight-carrid, sflight-connid,
        sflight-seatsmax, sflight-seatsocc.
END-OF-SELECTION.
  lines = sy-linno - 1.
TOP-OF-PAGE.
  WRITE: 'List of flight dates'.
  ULINE.
TOP-OF-PAGE DURING LINE-SELECTION.
  WRITE:  'Date:', sflight-fldate.
  ULINE.
AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'READ'.
      box = space.
      SET PF-STATUS 'CHECK' EXCLUDING 'READ'.
      DO lines TIMES.
        READ LINE sy-index FIELD VALUE box.
        IF box = 'X'.
          free = sflight-seatsmax - sflight-seatsocc.
          IF free > 0.
            NEW-PAGE.
            WRITE: 'Company:', sflight-carrid,
                   'Connection: ',sflight-connid,
                 / 'Number of free seats:', free.
          ENDIF.
        ENDIF.
      ENDDO.
  ENDCASE.
Regards
Sudheer