I created three buttons at selection screen and gave the following code at user-command:
But the execute/create buttons are not working.
Can anyone tell what could be the reason?
REPORT XXXXX
************************************************************************
S E L E C T I O N - S C E E N *
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: SA FOR XXX-SA NO-EXTENSION NO INTERVALS,
SB FOR XXX-SB NO-EXTENSION NO INTERVALS,
SC FOR XXX-SC NO-EXTENSION NO INTERVALS.
SELECTION-SCREEN END OF BLOCK B1.
************************************************************************
INITIALIZATION *
************************************************************************
INITIALIZATION.
SET PF-STATUS C_S.
************************************************************************
AT SELECTION-SCREEN *
************************************************************************
AT SELECTION-SCREEN.
************************************************************************
AT USER-COMMAND *
************************************************************************
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN C_FCODE_CREATE.
PERFORM CREATE.
WHEN C_FCODE_ALL_OBJECTS.
PERFORM show.
WHEN C_FCODE_BACK.
LEAVE PROGRAM.
ENDCASE.
&----
*& Form CREATE
&----
FORM CREATE .
DATA:LT_DYNPREAD LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
L_CURSORFIELD(30),
L_OK.
GET CURSOR FIELD L_CURSORFIELD.
CASE L_CURSORFIELD.
IF SA IS NOT INITIAL.
PERFORM CREATE1.
ENDIF.
ENDFORM. " CREATE