How to Capture the user command value instead of ucomm and pfkey from syst

Hi,
How to capture the value of enter key in the enhancements.
Iam getting the sy-ucomm value as space. Please let me know the better solution ASAP.
regards
Nagendra

Hello,
If is a module pool program, take a look to the variable defined to receive the user-command (you can see this in the screen painter).
Regards.

Similar Messages

How to capture the User input value to user exist function module.

Hi,
How can i capture user input value.Here i am using User exist in BPS variable.
Calculating days using user exist functin module and my input is another variable i.e user defined value.
How can i capture user defined vaule into my function module.
This is very urgent can you help me..
Thanks....

Hi!
You can get the instance using the method get_instance of the class cl_sem_variable, and call the method get_value with the return. Check the example:
      CALL METHOD cl_sem_variable=>get_instance
        EXPORTING
          i_area       = (planning area)
          i_variable   = (variable name)
        RECEIVING
          rr_variable = lr_var
        EXCEPTIONS
          not_existing = 1
          OTHERS       = 2.
      CHECK sy-subrc IS INITIAL.
      CALL METHOD lr_var->get_value
        RECEIVING
          rto_value = et_value
        EXCEPTIONS
          error     = 1.
After this, read the first line of the table et_value (it should be the value that the user choose on the screen).
seeya!
Robson

How to capture the user change in an input field on a selection screen?

I am coding a selection screen in which there are two input fields. The first field takes a Unix directory from the user input. Based on the input value, the second field will be populated with a the name of a file under the corresponding directory.
My question is how I can make the program capture the user input without having to make the user press ENTER after they enter the value in the first field?
Any help will be greatly appreciated.

Venkat,
Actually you led me to the real solution! It's the function module DYNP_VALUES_READ that does the trick for me. This function enables the program to capture dynamic user changes without recourse to PAI. Please refer to the code below:
REPORT   zreiabsintf MESSAGE-ID zreiabsintfmc.
*<HGDC------------------------------------------------------------------
* Selection screen for the conversion program
*HGDC>------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK input WITH FRAME TITLE text-001.
PARAMETERS: p_indir   LIKE epsf-epsdirnam OBLIGATORY,                   " Inbound file directory
            p_infile LIKE epsf-epsfilnam DEFAULT gc_infile OBLIGATORY, " Inbound file name
SELECTION-SCREEN END OF BLOCK input.
*<HGDC------------------------------------------------------------------
*   Displays a file-open dialog when the user clicks the search
*   help button next to the inbound file text field. The user
*   can select the inbound file visually.
*HGDC>------------------------------------------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_infile.
* Capture any user change to the directory.
PERFORM check_dir_change.
* Display the file open dialog
PERFORM file_open_dialog CHANGING p_infile.
*<HGDC------------------------------------------------------------------
* Global constants
*HGDC>------------------------------------------------------------------
CONSTANTS:
    gc_indir LIKE epsf-epsdirnam
              VALUE '/interfaces/<SID>/inbound/',      " Default inbound directory template
    gc_infile LIKE epsf-epsfilnam VALUE 'input'.       " Default inbound file name
*<HGDC------------------------------------------------------------------
* Global data
*HGDC>------------------------------------------------------------------
DATA:
    gs_dynpfields   TYPE dynpread,                        " Fields of the current screen
     gt_dynpfields   LIKE STANDARD TABLE OF gs_dynpfields. " Table of the screen fields
*&      Form file_open_dialog
*       Opens a dialog window for the user to choose a file in
*       the specified Unix directory.
*      <--P_FILE is the file to be selected.
FORM file_open_dialog CHANGING p_file.
* Validate the directory.
OPEN DATASET p_indir FOR INPUT IN BINARY MODE.
IF sy-subrc NE 0.
    MESSAGE i001(zreiabsintfmc) WITH p_indir.    " Unable to open the given directory
    EXIT.
ENDIF.
CLOSE DATASET p_indir.
* Call the dialog window to open a file in the directory.
CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
    EXPORTING
      directory        = p_indir
    IMPORTING
      serverfile       = p_file
    EXCEPTIONS
      canceled_by_user = 1
      OTHERS           = 2.
IF sy-subrc NE 0.
    MESSAGE i002(zreiabsintfmc).                 " Failed to open the file.
    EXIT.
ENDIF.
ENDFORM.                    " file_open_dialog
*&      Form check_dir_change
*       text
* --> p1        text
* <-- p2        text
FORM check_dir_change .
CLEAR gs_dynpfields.
CLEAR gt_dynpfields.
gs_dynpfields-fieldname = 'P_INDIR'.
gs_dynpfields-fieldvalue = p_indir.
APPEND gs_dynpfields TO gt_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
    TABLES
      dynpfields           = gt_dynpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE gt_dynpfields INTO gs_dynpfields INDEX 1.
p_indir = gs_dynpfields-fieldvalue.
ENDFORM.                    " check_dir_change
Thanks for all your answers! The problem is now solved.
Edited by: Ning Hu on Apr 9, 2008 11:32 AM
Edited by: Ning Hu on Apr 9, 2008 11:34 AM

How to capture the user name who is running concurrent program

Hi Everyone
In oracle apps when i want to store the user name who is running a concurrent program in specific responsibility.
For that I created a table as USER_INFO which has a column called USERNAME.
T o capture the user name i created a before report trigger and wrote the following code which will store the username into USER_INFO
function insert_trg return boolean is
begin
insert into USER_INFO(USERNAME) values
(select fnd_profile.value('USERNAME') from dual);
COMMIT;
return (TRUE);
end;In the above code i used fnd_profile.value('USERNAME') to store the username but after running the concurrent program when i am query the table it returns no rows .
It means the fnd_profile.value('USERNAME') is not storing the value.
Please tell me what to do?
Regards
Sabyasachi

In order to fetch any FND_PROFILE or FND_GLOBAL values you need to initialize apps
fnd_global.apps_initialize(user, resp_id,resp_application_id)
begin
fnd_global.apps_initialize(0,20420,1);
dbms_output.PUT_LINE (FND_PROFILE.VALUE('ORG_ID'));
dbms_output.PUT_LINE (FND_PROFILE.VALUE('USER_ID'));
dbms_output.PUT_LINE (FND_PROFILE.VALUE('USERNAME'));
end; Check the following MOS note
How To Set the Applications Context (FND_GLOBAL.APPS_INITIALIZE) [ID 209185.1]
Cheers,
ND
Use the "helpful" or "correct" buttons to award points to replies / Mark the thread as answered, if your question is answered.

How to capture the user who has logged into the portal.

Hi,
How do I capture the user who has logged into the portal.
HOw do I retrieve the first name and last name of the logged in username.
Could someone provide me a related link or PDF to work on this.
Thanks,
Suvarna

Hi suvarna,
Check the following code
ISearchResult rst = UMFactory.getUserFactory().getUniqueIDs();
                  IUserFactory usf = UMFactory.getUserFactory();
                  IUser iuser = null;
                  IUserListElement userElement = null;
                  int i = 0;
                  while (rst.hasNext()) {
                        iuser =
                              UMFactory.getUserFactory().getUser(rst.next().toString());
                        String email = iuser.getEmail();
                        String fname = iuser.getFirstName();
                        String lname = iuser.getLastName();
regards
Anil Dichpally

How to Validate the user entred value

Hi All
I am new to APEX... :)
Can any one send me the URL or material where i can go through and create sample applicaiton having the following functionalities
1) Create a form for the user to enter the data
2) Create users and give access
3) Validate the user entered values (Validation of a e-mail filed or Phone no)
Thanks & Regards
Hari

Hari,
You should start on our Getting Started page (http://www.oracle.com/technology/products/database/application_express/html/getting_started.html). I would suggest you do the OBE. It will show you how to create an application, add validations (that is what will make a user enter data in your email and phone fields) and create users. It uses APEX Authentication which means that any developer within the workspace can access and run the application and that you can also create end-users from within your workspace that will only be able to run your applications (not access the development environment).
It will definitely answer your questions -
-- Sharon

How to find the user entered value is Integer or not?

hi,
i want to find, whether the user entered value is Integer or not. If it is Integer, i wanna continue the program. otherwise send an error message. i tried to find for function in API. But i couldn't. can somebody help me with sample code. very urgent.

Do a Integer.parseInt(<string value>) in a try catch block If a NumberFormatException is thrown, the entered number is not an integer.

How to get the User entered value in the Submit request form for a parameter of a concurrent program in Oracle applications.

Hi All,
I have a requirement where i need to get the user entered value in the Parameter of a concurrent program while submitting it. i tried to query the FND_CONCURRENT_REQUESTS table but in that it stores the ID values from the value set of the Parameter.
After submitting the Concurrent request when we click on the view Details button it opens a form where it displays the arguments in the parameter field . i want to get that string.
Thanks a lot in advance for your time and help.
- Vijay

Hi All,
I have a requirement where i need to get the user entered value in the Parameter of a concurrent program while submitting it. i tried to query the FND_CONCURRENT_REQUESTS table but in that it stores the ID values from the value set of the Parameter.
After submitting the Concurrent request when we click on the view Details button it opens a form where it displays the arguments in the parameter field . i want to get that string.
Thanks a lot in advance for your time and help.
- Vijay

How to capture the user activities in Project Server 2010

Hi
I want to capture the user activities from Project Server 2010 like when a user has saved and published etc.
Is there any possibility that we can get the user activities data from sql server.
Please throw some light on the same.
Thanks
Geeth If you feel that the answer which i gave you is Helpful please select it as Answer/helpful.

Hi Geetha,
As far as I know, there is no such information stored in Project Server DB.
You can have this kind of information by project, such as the ProjectModifiedDate in the Reporting DB (MSP_EPMProject_userView). I also know that there is a PROJ_LAST_SAVED date in the Draft DB. But be aware that querying in the Draft DB is not supported
by MS.
Another way would be doing some custom code, storing in a separate DB each save and publish operation per user.
Hope this helps.
Guillaume Rouyre - MBA, MCP, MCTS

How to provide the user with a list of files to pick from...for downloading

hai..
I have uploaded the file succesfully.. now we need to download the file...... which has been uploaded..... for that we have implemnted the Query as..
select max(id) from APEX_APPLICATION_FILES ,here the latest uploaded record will be retrieved and shown.
Now We want to provide the user with a list of files to pick from for downloading..,Dat is he should be shown the list of files which is available from dat he has to select one file to downlaod ???
can u plz tell me how to do it....
anoo

Hi Anoo,
Create a report using the following SQL statement:
SELECT ID,
FILENAME,
CREATED_ON
FROM APEX_APPLICATION_FILES
ORDER BY CREATED_ON DESCThere are other fields available from the table, but the above gives you a start.
Then edit the report's Report Attributes.
Edit the CREATED_ON column and pick a Number/Date Format to use for the display and Apply Changes
Edit the ID column. In the Column Link section, enter:
Link Text: <img src="#IMAGE_PREFIX#download.gif" alt="Download">
Target: URL
URL: p?n=#ID#
Apply Changes and run your report
Andy

How to use the same variable value for data entry and the planning sequence

Hi,
the scenario is the following:
Using the WAD template a user enters cost center plan data. The cost center is selected by the chosen value for the variable "V1".
Afterwards he shall push a button which starts a planning sequence (including saving the data and further functions). This planning sequence uses a filter that also contains the variable "V1".
What or where has it to be defined that the planning sequence uses automatically the same value for the variable "V1" as selected for the data entry?

You have to define in the planning function. The planning sequence is only a sequence and it read the planning functions underneath it.
Ravi Thothadri

Capturing the user

I have a 'n' users with write back privileges. for those users they have the privileges to edit a column. Now i need how to capture the user information & last updated or modified the column.
Can anyone let me know in detail.
Thanks

Hi mma,
i was not clear the first posted by you. instead of reply to that post i posted a new one.
I came to know with the usage of Variables we can capture the user. But i dont know how to use the variable.
Thanks

Capturing the User Id from the Password change screen after Login

Hi,
I need to capture the User Id from the Password Change screen and Pass it to the Custom Portal application that is triggered on the change password screen.That User Id will be passed on to the Portal application to retrieve the details of the User.
I have triggered the Custom Portal application from the OnClick of CHANGE button.
It can be probably done by appending the User Id captured from the Change Password screen to the Url of the Portal application.
But am not clear how to capture the User ID.
Pls help!!
Thanks & Regards,
Amarys.

Hello
Why do you want to capture user id? You can access it from portal application.

How to pass Temp variable value instead of Table name in From clause.

Hi,
I have an requirement to pass the Temperorary variable value instead of Table name in FROM Clause in SQL.
But I am strugglint to pass this variable value.
E.g., a Varchar2(5) := 'aa';
Select * from a;
Here I come to mention a - 'aa'. But the SQL looks for 'a' as Table. But its should look into 'aa' as Table name.
Kindly guide me.
Thanks.

SQL> declare
a     varchar2 (5) := 'emp';
v     varchar2 (100);
cur   sys_refcursor;
begin
open cur for 'Select ename from ' || a;
fetch cur into v;
while cur%found
loop
    dbms_output.put_line (v);
    fetch cur into v;
end loop;
close cur;
end;
JAMES
SCOTT
SMITH
ALLEN
WARD
JONES
MARTIN
BLAKE
CLARK
KING
TURNER
ADAMS
FORD
MILLER
PL/SQL procedure successfully completed.

How to capture the value in AVL intracrivity report

Hi ,
i have one doubt please clarify me.
   in ALV interactivity report if user click on the one field, how captured the that field value in one variable. presentably i am using
ws_field_catalog-col_pos = '2'.
ws_field_catalog-fieldname = 'BELNR'.
ws_field_catalog-tabname = 'I_OUTPUT'.
ws_field_catalog-scrtext_l    = 'Original Document number.'.
ws_field_catalog-hotspot = 'V'.
ws_field_catalog-scrtext_m    = 'Original Doc.no.'.
ws_field_catalog-scrtext_s    = 'Original Doc.no.'.
APPEND ws_field_catalog TO lt_fieldcat.
CLEAR: ws_field_catalog.
but it is not capture the valu it is capture the only field name please any one can you suggest me.
Thanks,
Hari.

hi,
there is one type pool availabe for the. SLIS_SELFIELD.
make ur own structure and use case sy-ucomm.
when '&IC1'.
write ur code here.
TYPE-POOLS: SLIS.
*type declaration for values from ekko
TYPES: BEGIN OF I_EKKO,
       EBELN LIKE EKKO-EBELN,
       AEDAT LIKE EKKO-AEDAT,
       BUKRS LIKE EKKO-BUKRS,
       BSART LIKE EKKO-BSART,
       LIFNR LIKE EKKO-LIFNR,
       END OF I_EKKO.
DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,
      WA_EKKO TYPE I_EKKO.
*type declaration for values from ekpo
TYPES: BEGIN OF I_EKPO,
       EBELN LIKE EKPO-EBELN,
       EBELP LIKE EKPO-EBELP,
       MATNR LIKE EKPO-MATNR,
       MENGE LIKE EKPO-MENGE,
       MEINS LIKE EKPO-MEINS,
       NETPR LIKE EKPO-NETPR,
       END OF I_EKPO.
DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,
      WA_EKPO TYPE I_EKPO .
*variable for Report ID
DATA: V_REPID LIKE SY-REPID .
*declaration for fieldcatalog
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.
declaration for events table where user comand or set PF status will
be defined
DATA: V_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENT TYPE SLIS_ALV_EVENT.
declartion for layout
DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
declaration for variant(type of display we want)
DATA: I_VARIANT TYPE DISVARIANT,
      I_VARIANT1 TYPE DISVARIANT,
      I_SAVE(1) TYPE C.
*PARAMETERS : p_var TYPE disvariant-variant.
*Title displayed when the alv list is displayed
DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.
DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.
INITIALIZATION.
V_REPID = SY-REPID.
PERFORM BUILD_FIELDCATLOG.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.
PERFORM DISPLAY_ALV_REPORT.
*&      Form BUILD_FIELDCATLOG
      Fieldcatalog has all the field details from ekko
FORM BUILD_FIELDCATLOG.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'AEDAT'.
WA_FIELDCAT-SELTEXT_M = 'DATE.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'LIFNR'.
WA_FIELDCAT-NO_OUT    = 'X'.
WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    "BUILD_FIELDCATLOG
*&      Form EVENT_CALL
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     I_LIST_TYPE           = 0
   IMPORTING
     ET_EVENTS             = V_EVENTS
EXCEPTIONS
   LIST_TYPE_WRONG       = 1
   OTHERS                = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    "EVENT_CALL
*&      Form POPULATE_EVENT
     Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
    WA_EVENT-FORM = 'TOP_OF_PAGE'.
    MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
    WA_EVENT-FORM = 'USER_COMMAND'.
    MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-NAME.
ENDIF.
ENDFORM.                    "POPULATE_EVENT
*&      Form data_retrieval
retreiving values from the database table ekko
FORM DATA_RETRIEVAL.
SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.
ENDFORM.                    "data_retrieval
*&      Form bUild_listheader
      text
     -->I_LISTHEADEtext
FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA HLINE TYPE SLIS_LISTHEADER.
HLINE-INFO = 'this is my first alv pgm'.
HLINE-TYP = 'H'.
ENDFORM.                    "build_listheader
*&      Form display_alv_report
      text
FORM DISPLAY_ALV_REPORT.
V_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM                = V_REPID
I_CALLBACK_PF_STATUS_SET          = ' '
     I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
     I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
     I_GRID_TITLE                      = I_TITLE_EKKO
I_GRID_SETTINGS                   =
IS_LAYOUT                         = ALV_LAYOUT
     IT_FIELDCAT                       = I_FIELDCAT[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
    i_default                         = 'ZLAY1'
     I_SAVE                            = 'A'
    is_variant                        = i_variant
     IT_EVENTS                         = V_EVENTS
    TABLES
      T_OUTTAB                          = IT_EKKO
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    "display_alv_report
*&      Form TOP_OF_PAGE
      text
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = IT_LISTHEADER
   i_logo                   =
   I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP_OF_PAGE
*&      Form USER_COMMAND
      text
     -->R_UCOMM    text
     -->,          text
     -->RS_SLEFIELDtext
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN '&IC1'.
      READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
      PERFORM BUILD_FIELDCATLOG_EKPO.
      PERFORM EVENT_CALL_EKPO.
      PERFORM POPULATE_EVENT_EKPO.
      PERFORM DATA_RETRIEVAL_EKPO.
      PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.
      PERFORM DISPLAY_ALV_EKPO.
ENDCASE.
ENDFORM.                    "user_command
*&      Form BUILD_FIELDCATLOG_EKPO
      text
FORM BUILD_FIELDCATLOG_EKPO.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELP'.
WA_FIELDCAT-SELTEXT_M = 'LINE NO'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MENGE'.
WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-SELTEXT_M = 'UOM'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'NETPR'.
WA_FIELDCAT-SELTEXT_M = 'PRICE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    "BUILD_FIELDCATLOG_EKPO
*&      Form event_call_ekpo
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL_EKPO.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     I_LIST_TYPE           = 0
   IMPORTING
     ET_EVENTS             = V_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG       = 1
OTHERS                = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    "event_call_ekpo
*&      Form POPULATE_EVENT
       Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT_EKPO.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
    WA_EVENT-FORM = 'TOP_OF_PAGE'.
    MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
ENDFORM.                    "POPULATE_EVENT
*&      Form TOP_OF_PAGE
      text
FORM F_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = IT_LISTHEADER
   i_logo                   =
   I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP_OF_PAGE
*&      Form USER_COMMAND
      text
     -->R_UCOMM    text
     -->,          text
     -->RS_SLEFIELDtext
*retreiving values from the database table ekko
FORM DATA_RETRIEVAL_EKPO.
SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.
ENDFORM.
FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: HLINE1 TYPE SLIS_LISTHEADER.
HLINE1-TYP = 'H'.
HLINE1-INFO = 'CHECKING PGM'.
ENDFORM.
FORM DISPLAY_ALV_EKPO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = V_REPID
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = 'F_USER_COMMAND'
   I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      = I_TITLE_EKPO
I_GRID_SETTINGS                   =
IS_LAYOUT                         =
   IT_FIELDCAT                       = I_FIELDCAT[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         =
   I_SAVE                            = 'A'
IS_VARIANT                        =
   IT_EVENTS                         = V_EVENTS
TABLES
    T_OUTTAB                          = IT_EKPO
EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
REWARD ME IF HELPFUL. PLEASE

How to Capture the user command value instead of ucomm and pfkey from syst

Similar Messages

Maybe you are looking for