Write to screen, again!

[Former Member]

Hi all,

the next question looks simple, but any one got any idea how to solve the following?

My report selects some data that will be presented to the screen. No fancy ALV or so in this case.

When the customer is satisfied about the report, (s)he can press a button and some info will be posted. I will spare the details of that.

What I want is, that a confirmation will be given on screen, once the posting succeeded.

Now the program 'jumps' to a new screen and write the confirmation message there. When I press F3, the program returns to the earlier given list.

I guess I can give a popup after posting but that cannot be printed. in the list.

[Pawan_Kesari]

You can give a pop-up and that can be list, just use command

leave to list-processing

in PBO of screen

[tarangini_katta]

Hi Ron,

After u r SY-UCOMM use the function mdule.

POPUP_TO_CONFIRM.

From this display ur message.

After FM.

IF SY-SUBRC = '0'.

write : 'Confirmation message'.

leave to list processing.

endif.

I hope it may help you.

[Former Member]

Hi,

I don't want to use a popup. I want to write the confirmation of the posting in the same list!.

That way you can see the confirmation when the list is printed.

[Former Member]

Hi,

You can add the another field called STATUS in the interanal table which you pass to ALV. Whenever user select the particular record and process it and the after processing the update the error/sucess messsage in this status field of the Internal table and refresh the ALV.

Now the message will be displayed for the correspoing reocrd in the STATUS fiels in ALV.

[Former Member]

hi Avinash,

it's not al ALV.. .. . . ...

[Former Member]

Hi

U need to write again the list and the confirmation message at the end.

START-OF-SELECTION.

  PERFORM write.

  WRITE: / '@15@' AS ICON HOTSPOT, 'Press Icon'.

AT LINE-SELECTION.
  sy-lsind = sy-lsind - 1. "Stay at primary list
  PERFORM write.

  WRITE: / '@19@' AS ICON, 'OK'.
*&---------------------------------------------------------------------*
*&      Form  WRITE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM write .
  WRITE: 'Welcome:', sy-uname.
ENDFORM.                    " WRITE

Max

[Former Member]

Thanks Max, that's it! I was already figuring out if I could use sy-lsind. but I just forgot to write the report again.

(All others also thanks for your effort!)