Basic cockpit program in ABAP
Report
REPORT zab_rp_create_cockpit1.
TABLES: sscrfields.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN: POSITION 10, PUSHBUTTON (20) mm1 USER-COMMAND mm1,
PUSHBUTTON (20) mm2 USER-COMMAND mm2,
PUSHBUTTON (20) mm3 USER-COMMAND mm3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN: POSITION 10, PUSHBUTTON (20) mm4 USER-COMMAND mm4,
PUSHBUTTON (20) mm5 USER-COMMAND mm5,
PUSHBUTTON (20) mm6 USER-COMMAND mm6.
SELECTION-SCREEN END OF LINE .
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
mm1 = 'Create material'.
mm2 = 'Change material'.
mm3 = 'Display material'.
mm4 = 'Create PR'.
mm5 = 'Change PR'.
mm6 = 'Display PR'.
AT SELECTION-SCREEN .
CASE sscrfields-ucomm.
WHEN 'MM1'.
CALL TRANSACTION 'MM01'.
WHEN 'MM2'.
CALL TRANSACTION 'MM02'.
WHEN 'MM3'.
CALL TRANSACTION 'MM03'.
WHEN 'MM4'.
CALL TRANSACTION 'ME51N'.
WHEN 'MM5'.
CALL TRANSACTION 'ME52N'.
WHEN 'MM6'.
CALL TRANSACTION 'ME53N'.
WHEN OTHERS.
ENDCASE.
Output
* If click particular button call transaction will be called.
******************************Thank You***************************
Comments
Post a Comment