Screen list problem

Question

If I write a report on a screen A, then we click a button to call a pop-up screen B, finally we return to the screen A, we rewrite the report on screen A. Now the problem is that the page goes back to the top of page instead of staying on the current line item. Does anyone have any idea to let the program to retain the current line?
I tried to use the following statement, but it seems that it doesn't work.
SCROLL LIST TO PAGE 1 LINE 44.
SET CURSOR LINE 47.
Test program for referring:
REPORT zdemo_list_set_cursor_3 LINE-SIZE 30 NO STANDARD PAGE HEADING.
DATA: inp(2) TYPE c, top(2) TYPE c, l_ans ,lin TYPE i.
CALL SCREEN 100.
TOP-OF-PAGE.
  PERFORM frm_header.
TOP-OF-PAGE DURING LINE-SELECTION.
  PERFORM frm_header.
AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'LINE'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          text_question  = 'SURE?'
          text_button_1  = 'YES'
          text_button_2  = 'NO'
          start_column   = 25
          start_row      = 6
        IMPORTING
          answer         = l_ans
        EXCEPTIONS
          text_not_found = 1
          OTHERS         = 2.
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      PERFORM frm_write_text.
    WHEN OTHERS .
      SET SCREEN 0.
      LEAVE LIST-PROCESSING.
  ENDCASE.
*&      Form  FRM_WRITE_TEXT
      text
FORM frm_write_text .
  DO 50 TIMES.
    WRITE: / 'Line ', (2) sy-index.
  ENDDO.
ENDFORM.                    " FRM_WRITE_TEXT
*&      Module  LIST_0200  OUTPUT
      text
MODULE list_0200 OUTPUT.
  LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
  SET PF-STATUS 'LINE_NUMBER'.
  PERFORM frm_write_text.
  LEAVE SCREEN.
ENDMODULE.                 " LIST_0200  OUTPUT
*&      Module  EXIT_0100  INPUT
      text
MODULE exit_0100 INPUT.
  SET SCREEN 0.
  LEAVE SCREEN.
ENDMODULE.                 " EXIT_0100  INPUT
*&      Form  FRM_HEADER
      text
FORM frm_header .
  WRITE: 'TOP-OF-PAGE'.
  ULINE.
  SKIP.
ENDFORM.                    " FRM_HEADER

Answer 1

Hi Guys,
Any Idea, May be if you have faced this type of problem,
I have module pool program, and there is no code for top-of-page in my module pool, and all PBO,PAI modules. But still it is getting header when first LIST statement is executed, like in my case is SKIP.
Here is my code if it helps to you finding a problem solution.
MODULE PROGRAM ZABC.
INCLUDE ZINC1. " global Data
INCLUDE ZINC2.  " modules
INCLUDE ZINC3. " forms
*in one of the routine I am retrieving data and displaying as list output.
FORm DISPLAY_OUTPUT.
  LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 10.
  PERFORM DISPLAY-LIST_PROCESS.
ENDFORM.
FORM DISPLAY-LIST_PROCESS.
  SET PF-STATUS 'LIST'.
  SET TITLEBAR 'LIST' WITH HEADER_DATE HEADER_TIME.
  NEW-PAGE LINE-SIZE 80.
  LOOP AT IDATA.
    SKIP. " When this syntax is executing it has header with material,batch . I added plant as new req. but *               how to add in header that is my question,I coudlnt find any top-of-page in this program.
    AT NEW IDATA-MATNR.
      WRITE: 5(24) IDATA-MATNR.
    ENDAT.
    WRITE: 32(4) IDATA-WERKS.
    WRITE: 39(5) ICROSS-BATCH.
  ENDLOOP.
ENDFORM.
So in module program where we are defining header syntax.
It looks simple but I tried all ways like searching text TOP-of-PAGE in main program, also used RS_ABAP_SCAN_PROGRAM to scan TOP-OF-pAGE in relevant Z program but no-luck.
Any Idea where I can find TOP-OF-PAGE syntax.
Pls. Help me.
Thanks
PP