MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
WHEN 'FC_1'.
PERFORM GET_DATA.
WHEN 'FC2'.
LEAVE PROGRAM.
WHEN 'RB'.
IF RB1 = 'X'.
MESSAGE 'FIRST RADIO BUTTON IS SELECTED' TYPE 'I'.
ELSEIF RB2 = 'X'.
MESSAGE 'SECOND RADIO BUTTON IS SELECTED' TYPE 'I'.
ELSEIF RB3 = 'X'.
MESSAGE 'THIRD RADIO BUTTON IS SELECTED' TYPE 'I'.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
WHEN 'CHK1'.
MESSAGE 'FIRST CHECK BOX IS CHECKED' TYPE 'I'.
WHEN 'CHK2'.
MESSAGE 'SECOND CHECKBOX IS CHECKED' TYPE 'I'.
*&---------------------------------------------------------------------*
*& Module Pool Z1015035_MPP_MARA_
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
INCLUDE ZMARATOP . " Global Data
START-OF-SELECTION.
CALL SCREEN 100.
* INCLUDE ZMARAO01 . " PBO-Modules
* INCLUDE ZMARAI01 . " PAI-Modules
INCLUDE ZMARAF01 . " FORM-Routines
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
WHEN 'FC_1'.
PERFORM GET_DATA.
WHEN 'FC2'.
LEAVE PROGRAM.
WHEN 'RB'.
IF RB1 = 'X'.
MESSAGE 'FIRST RADIO BUTTON IS SELECTED' TYPE 'I'.
ENDIF.
IF RB2 = 'X'.
MESSAGE 'SECOND RADIO BUTTON IS SELECTED' TYPE 'I'.
ENDIF.
IF RB3 = 'X'.
MESSAGE 'THIRD RADIO BUTTON IS SELECTED' TYPE 'I'.
ENDIF.
WHEN 'CHK1'.
MESSAGE 'FIRST CHECK BOX IS CHECKED' TYPE 'I'.
WHEN 'CHK2'.
MESSAGE 'SECOND CHECKBOX IS CHECKED' TYPE 'I'.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Include ZMARATOP - Module Pool Z1015035_MPP_MARA_
*&---------------------------------------------------------------------*
PROGRAM Z1015035_MPP_MARA_.
TABLES: MARA.
DATA:RB1,RB2,RB3, CHK1, CHK2.
*&---------------------------------------------------------------------*
*& Include ZMARAF01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM GET_DATA .
SELECT
SINGLE
MATNR
ERSDA
CREATED_AT_TIME
ERNAM
MTART
MATKL
FROM MARA INTO CORRESPONDING FIELDS OF MARA WHERE MATNR = MARA-MATNR.
ENDFORM.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
3 | |
3 | |
2 | |
2 | |
2 | |
2 | |
2 | |
1 | |
1 | |
1 |