AT USER-COMMAND IN NORMAL REPORT

Question

Please do not have your subject in ALL CAPITALS
Hi Experts,
Please advice,
I am having three fields in output first one  is directly fetched from table and other two are variables.
ITAB-MENGE = fetched data.
ITAB-UCOMM =   user command.
AT SELECTION-SCREEN OUTPUT
when the user press ENTER
ITAB-SUM = ITAB-MENGE + ITAB-UCOMM.
For eq:
Suppose if:
ITAB-MENGE = 100
and if the user enters the value in ITAB-UCOMM = 200
and when the user press enter the sum should display on the other field ITAB-SUM
Note: I am using normal write statement ( not ALV ) & I am not using any parameters in selection screen all these has to fired on output screen
Thanks
R.Karthik
Edited by: Karthik R on Feb 28, 2009 3:34 PM
Edited by: Matt on Mar 1, 2009 7:18 PM

Answer 1

Hi,
Refer code:-
REPORT  Z19TG7_1 NO STANDARD PAGE HEADING.
TABLES : LFA1.
TYPES : BEGIN OF VENDOR,
        LIFNR LIKE LFA1-LIFNR,
        NAME1 LIKE LFA1-NAME1,
        END OF VENDOR,
        BEGIN OF VENDOR1,
        LIFNR LIKE LFA1-LIFNR,
        NAME1 LIKE LFA1-NAME1,
        ORT01 LIKE LFA1-ORT01,
        LAND1 LIKE LFA1-LAND1,
        BUKRS LIKE LFB1-BUKRS,
        END OF VENDOR1.
DATA : VENDOR_TAB TYPE STANDARD TABLE OF VENDOR INITIAL SIZE 20 WITH HEADER LINE,
       VENDOR1_TAB TYPE STANDARD TABLE OF VENDOR1 INITIAL SIZE 20 WITH HEADER LINE,
       CB.
*       WAS_USED.
TOP-OF-PAGE DURING LINE-SELECTION.
  WRITE SY-LSIND.
START-OF-SELECTION.
  SET PF-STATUS 'Z19TG7_1_PF'.
  SELECT LIFNR NAME1
  FROM LFA1
  INTO TABLE VENDOR_TAB.
AT USER-COMMAND.
  CASE SY-UCOMM.
    WHEN 'VL'.
      IF SY-LSIND = 1.
        SET PF-STATUS SPACE.
        DO.
          CLEAR CB.
          READ LINE SY-INDEX FIELD VALUE CB.
          IF SY-SUBRC <> 0.
            EXIT.
          ELSE.
            CHECK CB = 'X'.
            MODIFY CURRENT LINE : FIELD VALUE CB FROM SPACE.
            SELECT A~LIFNR A~NAME1 A~ORT01 A~LAND1 B~BUKRS
            FROM LFA1 AS A
            LEFT OUTER JOIN LFB1 AS B
            ON A~LIFNR = B~LIFNR
            INTO TABLE VENDOR1_TAB
            WHERE A~LIFNR = VENDOR_TAB-LIFNR.
            LOOP AT VENDOR1_TAB.
              WRITE : / 'Vendor ID:' NO-GAP, VENDOR1_TAB-LIFNR,
                      / 'Vendor Name :' NO-GAP, VENDOR1_TAB-NAME1,
                      / 'City :' NO-GAP, VENDOR1_TAB-ORT01,
                      / 'Land :' NO-GAP, VENDOR1_TAB-LAND1,
                      / 'Country Code :' NO-GAP, VENDOR1_TAB-BUKRS.
              ULINE.
            ENDLOOP.
          ENDIF.
        ENDDO.
      ENDIF.
  ENDCASE.
END-OF-SELECTION.
  WRITE : /1 'CB', 5 TEXT-001, 18 TEXT-002.
  ULINE.
  LOOP AT VENDOR_TAB.
    WRITE : /1 CB AS CHECKBOX, 5 VENDOR_TAB-LIFNR, 18 VENDOR_TAB-NAME1.
    HIDE : VENDOR_TAB-LIFNR.
  ENDLOOP.
  ULINE.
Hope this helps you.
Regards,
Tarun