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

Similar Messages

Reg: How to get the trip activity values in user exit.

HI Experts,
I have scenario like I need calculate the trip advance amount for an employee.
Based on the employee travel days and employees activity type.
Activity types means: types of employee trips like
1. Domestic
2. International
Here my problem is not getting trip activity values into my user exit.
I am getting the all selection values in trip header except this TRIP ACTIVITY values.
Please give me idea how I can read this trip activity value in to my user exit.
I have written the below code for user exit.
CHECK SY-TCODE EQ 'PR01'.
MOVE TRIP_HEADER TO IT_PTRV_HEAD.
APPEND IT_PTRV_HEAD.
CHECK SY-TCODE EQ 'PR01'.
MOVE TRIP_HEADER TO IT_PTRV_HEAD.
APPEND IT_PTRV_HEAD.
Thanks & Regards
Sameera

Hi,
Try to use Enhancement FITR0003.
REWARD IF USEFUL

How to capture the data input in the input box like text box on webpage?

I would like to know how to use the data we key in in the textbox on the webpage and write it to database using JSP

I would like to know how to use the data we key in in
the textbox on the webpage and write it to database
using JSPIf you want to store it into database....you'll need that
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
Connection con = DriverManager.getConnection("jdbc:odbc:YourDSN");
Statement stat = con.createStatement();
String query = "INSERT INTO yourTable (Field) VALUES(TextBox value)";
stat.executeQuery(query);
con.close()
Not tested but should work (depends also on your configuration)

How to read the name of a PDF file? - function module

Hi,
I have <b>some individual pdf documents in my desktop</b>.I need to <b>bulk-upload it to the content server and document related information to the SAP-DB</b>.
Need your guidance.
Regards,
John.

try this code it will convert file to PDF file
REPORT ZWARUN_CONVERSION_PDF                        .
***********Tables***************
TABLES:VBRK.
***********Data Declaration***************
DATA: LV_NUMBYTES TYPE I,
      LV_SPOOLNO TYPE TSP01-RQIDENT.
DATA:C_LAYOUT LIKE PRI_PARAMS-PAART VALUE 'X_65_132', "Layout
      C_X       TYPE C VALUE 'X'.
DATA: NUMBYTES TYPE I,
       CANCEL.
***************Internal table of Pdf************
DATA: IT_PDF LIKE TLINE OCCURS 10 WITH HEADER LINE.
DATA:BEGIN OF IT_VBRK OCCURS 2,
     FKART LIKE VBRK-FKART,
     FKTYP LIKE VBRK-FKTYP,
     VBTYP LIKE VBRK-VBTYP,
     END OF IT_VBRK.
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME.
SELECT-OPTIONS: S_BUKRS FOR VBRK-BUKRS,
                S_GJAHR FOR VBRK-GJAHR.
SELECTION-SCREEN END OF BLOCK BLK .
PARAMETERS:
spoolno like tsp01-rqident,
DOWNLOAD AS CHECKBOX DEFAULT 'X',
P_FILE LIKE RLGRAP-FILENAME DEFAULT 'C:\warun1.pdf'.
START-OF-SELECTION.
SELECT FKART
          FKTYP
          VBTYP
       INTO TABLE IT_VBRK
       FROM VBRK
       WHERE BUKRS IN S_BUKRS
          AND GJAHR IN S_GJAHR.
END-OF-SELECTION.
DATA: LK_PARAMS TYPE PRI_PARAMS,
        LV_VALID.
if not p_mailid is initial.
All the parameters passed are constants, so exceptions
doesn't get raised
    CALL FUNCTION 'GET_PRINT_PARAMETERS'
      EXPORTING
        IMMEDIATELY    = ' '
        LAYOUT         = C_LAYOUT                           "'X_65_132'
        NO_DIALOG      = C_X
      IMPORTING
        OUT_PARAMETERS = LK_PARAMS
        VALID          = LV_VALID.
    IF LV_VALID <> SPACE .
      NEW-PAGE PRINT ON PARAMETERS LK_PARAMS NO DIALOG.
*--To display the final report
      PERFORM PRINT_REPORT.
      NEW-PAGE PRINT OFF.
*---To convert the download to PDF
      PERFORM CONV_TO_PDF_DOWNLOAD.
      PERFORM DOWNLOAD.
    ENDIF.
endif.
*--To display the final report
PERFORM PRINT_REPORT.
*&      Form print_report
FORM PRINT_REPORT .
*write:/ 'I will do it' color 4.
write:/ 'Yes' color 4.
write:/ 'we will do it' color 4.
write:/ 'lets talk abt changing life style' color 4.
write:/'By warun'.
LOOP AT IT_VBRK.
WRITE:/ IT_VBRK-FKART,IT_VBRK-FKTYP,IT_VBRK-VBTYP.
ENDLOOP.
ENDFORM.                    " print_report
*&      Form conv_to_pdf_download
FORM CONV_TO_PDF_DOWNLOAD .
CLEAR IT_VBRK.
WAIT UP TO 2 SECONDS.
LV_SPOOLNO = SY-SPONO.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
   EXPORTING
     SRC_SPOOLID                    = LV_SPOOLNO
    NO_DIALOG                      = ''
   DST_DEVICE                     =
   PDF_DESTINATION                =
IMPORTING
    PDF_BYTECOUNT                  = LV_NUMBYTES
   PDF_SPOOLID                    = pdfspoolid
   LIST_PAGECOUNT                 =
   BTC_JOBNAME                    = jobname
   BTC_JOBCOUNT                   = jobcount
TABLES
    PDF                            = IT_PDF.
ENDFORM.                    " conv_to_pdf_download
*&      Form download
FORM DOWNLOAD .
download PDF file ***********
CHECK DOWNLOAD = 'X'.
CALL FUNCTION 'DOWNLOAD'
     EXPORTING
          BIN_FILESIZE = LV_NUMBYTES
          FILENAME     = P_FILE
          FILETYPE     = 'BIN'
     IMPORTING
          ACT_FILENAME = P_FILE
          FILESIZE     = LV_NUMBYTES
          CANCEL       = CANCEL
     TABLES
          DATA_TAB     = IT_PDF.
IF CANCEL = SPACE.
WRITE: / LV_NUMBYTES, P_FILE.
ENDIF.
ENDFORM.                    " download

Display the long text in alv by using function modules

Hi all,
How to display the long text in alv by using function modules ?
Send me any sample code.
Thanks in advance
krupali.

Hello KR,
Use READ_TEXT and concatenate the first lines of the text.
CALL FUNCTION 'READ_TEXT'
     EXPORTING
          id       = 'F01'
          language = sy-langu
          name     = lv_name " purchase order with leading zeroes
          object   = 'EKKO'
     TABLES
          lines    = t_lines
     EXCEPTIONS
          OTHERS   = 8.
You can loop at t_lines and concatenate header in to some other field.
Best Regards,
Sasidhar Reddy Matli.
Edited by: Sasidhar Reddy Matli on Aug 13, 2008 12:25 PM

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.

How to capture the values given in SSC1 transcation?

Hello All,
Can anyone suggest me, how to capture the values given in SSC1 transaction?

Hello Clemens Li,
Requirement: Integration of SAP Appointment Calendar with Gmail Calendar
If I create an appointment in SSC1 transaction, it will appear in SAP Appointment calendar. The same thing should get updated in Gmail calendar of SAP user and also in the guest Gmail calendar if exists in appointment.
So, I have to capture the input values given in SSC1 transaction while creating an appointment in SAP and try to export those values to web services using some function module. Sending those values to web services completes my task.
Means, if I create an appointment in SAP, at the same time, the values which I gave must get exported to some object. So that I can send them to web services.
But my actual problem is with capturing the input values given to SSC1 transaction.
How can I get those values out to some internal table?
Another one is, I did not found any BADI to enhance SSC1 transaction so that I can include my code there.
If you know any enhancements in SSC1, please let me know.
If you want any more clarification, please let me know.
Thanks for the response
DNR Varma

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 can i read user input value to my User exist

Hi Guru's,
I am facing one problem in Variables in BPS.
I am calculating days from Month/year .I have one variable it is for Days,Second variable it is for Month/Year.
First variable is user exist (for calculating the days),Second varible is user defined variable(this is a Input to the first variable).
When i am giving the Month/Year(02/2008)variable i am getting the 29 days from the first variable.again i am changing the value of Month/Yera(03/2008) i am not getting the desired value.
my doubt is my user exist not able to read current value of variable(month/year).how can i pass my value to user exist because this value is user input value based on this value i am calculating the days and dynamically displaying the layout.
Here is the my sample code..
seq = '0000'.
ind = 0.
   i_area = 'ZTEST1'.
   area_var = 'ZVar2'.
PERFORM instantiate_object USING    i_area
                                    area_var
                             CHANGING lsr_var.
PERFORM get_current_value_of_variable
                        USING lsr_var
                        CHANGING lto_value.
READ TABLE lto_value INTO lso_value index 1 .
i_month = lso_value-low.
iv_month = i_month+4(2).
iv_year = i_month(4).
concatenate iv_year iv_month '01' into iv_date.
begindate = iv_date.
below bracket code calculating the leap year
( IF iv_date+4(2) = lc_feb.
    lv_hlp_date_year = iv_date+0(4).
    lv_hlp_rest      = lv_hlp_date_year MOD 4.
    IF lv_hlp_rest = 0.
      EV_DAYS = lc_days_29.
      lv_hlp_rest = lv_hlp_date_year MOD 100.
      IF lv_hlp_rest = 0.
        lv_hlp_rest = lv_hlp_date_year MOD 400.
        IF lv_hlp_rest NE 0.
          EV_DAYS = lc_days_28.
        ENDIF.
      ENDIF.
    ELSE.
      EV_DAYS = lc_days_28.
    ENDIF.)
ELSE.
below bracket code calculating the days
(   CASE iv_date+4(2).
      WHEN lc_jan. EV_DAYS = lc_days_31.
      WHEN lc_mar. EV_DAYS = lc_days_31.
      WHEN lc_may. EV_DAYS = lc_days_31.
      WHEN lc_jul. EV_DAYS = lc_days_31.
      WHEN lc_aug. EV_DAYS = lc_days_31.
      WHEN lc_oct. EV_DAYS = lc_days_31.
      WHEN lc_dec. EV_DAYS = lc_days_31.
      WHEN lc_apr. EV_DAYS = lc_days_30.
      WHEN lc_jun. EV_DAYS = lc_days_30.
      WHEN lc_sep. EV_DAYS = lc_days_30.
      WHEN lc_nov. EV_DAYS = lc_days_30.
      WHEN OTHERS.   CLEAR EV_DAYS.
    ENDCASE.)
ENDIF.
data: st_date(2) type c.
st_date = '01'.
ind = 0.
ind = ind + 1.
here i am passing the low value and high value.
yto_charsel-chanm = '0CALDAY'.
yto_charsel-seqno = 1.
yto_charsel-sign = 'I'.
yto_charsel-opt   = 'EQ'.
yto_charsel-LOW = st_date.
yto_charsel-chanm = '0CALDAY'.
yto_charsel-seqno = 1.
yto_charsel-sign = 'I'.
yto_charsel-opt   = 'BT'.
yto_charsel-high = ev_days.
INSERT yto_charsel INTO sto_charsel INDEX ind.
ETO_CHARSEL = sto_charsel.
lto_value = sto_charsel.
How can i pass user input value to read this exist ,some where again i have to write code or else??
This is very urgent can you help me..

Hi,
Instead of two perform statements, use single perform.
PERFORM get_value USING i_area
                          i_variable
                     CHANGING lw_varsel.
Take the values from lw_varsel-low.
FORM statement for this perform is as follows.
DATA: li_varsel TYPE STANDARD TABLE OF upc_ys_api_varsel,
        lv_varsel TYPE REF TO cl_sem_variable.
FORM get_value USING p_area TYPE upc_y_area
                       p_variable TYPE upc_y_variable
                 CHANGING
                       p_lw_varsel TYPE upc_ys_api_varsel.
    CALL METHOD cl_sem_variable=>get_instance
      EXPORTING
        i_area       = p_area
        i_variable   = p_variable
         I_CREATE     =
      RECEIVING
        rr_variable = lv_varsel.
       EXCEPTIONS
         NOT_EXISTING = 1
         others       = 2
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    REFRESH li_varsel.
****Getting the Value*********
    CALL METHOD lv_varsel->get_value
      EXPORTING
        i_user     = sy-uname
        i_restrict = 'X'
      RECEIVING
        rto_value = li_varsel.
    CLEAR : p_lw_varsel.
    READ TABLE li_varsel INTO p_lw_varsel INDEX 1.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
ENDFORM.                    "get_value
Try this code.
Bindu

How to capture the string values

Hi Gurus,
Could you plz suggest me how to capture the string value.
My requirement is.
I have a structure field called cnj_stat-sttxt_int and it is storing a value like "REL CDRT AVAC". AND the moddile value CDRT will change according to condtions. now i required to write a logic like if cnj_stat-sttxt_int field contain 'REL' and 'AVAC'. I HAVE TO THROW SOME ERROR.
SO please give some idea about on it...
Its urgent..
points will be rewarded...
Thanks in advance!!!!
Thanks & regards,
Kranthi.

if cnj_stat-sttxt_int field contain 'REL' and 'AVAC'. I HAVE TO THROW SOME ERROR.
if cnj_stat-sttxt_int CS 'REL' and cnj_stat-sttxt_int CS 'AVAC'.
THROW SOME ERROR.
endif.

How to capture the role of the user logged in CRM

Hi
How to capture the role of the user logged in CRM so as to restrict the Account group selection ; While creating a sales Order .
Can we deternine the profile in the related view .If so how , and what tables can we use to do so.

hi,
I think you should check CRM table AGR_USERS.
Regards
Michael

How to capture the changes in ppoma_crm transaction

Hello All,
We have a requirement that if we add either a BP or an User to a positon in ppoma_crm transaction then we should be able to update these entries in our z table.
If it is a BP then we should look for the User mapped to it and update the z table else we should directly update the z tables with user name.
But we are facing an issue in capturing the values that have been updated.
Can anyone tell me how to capture the new values in the BADI for the ppoma_crm transaction ?
Regards
Sohit

Did any guys here face the requirement? If replicating all the columns some of which may change frequently but are not important to the other sites, then i wouldn't replicate these changes in order to improve the performance. Thanks for your help!

How to set the table input in Query template?

Hi all.
I need to call a Bapi_objcl_change, with import parameter and a table as an input. I have done this, in BLS. I have set the table input in the
form of xml. In BLS, I get the output(the value gets change in SAP R3, what i have given in BLS). But if i set the same xml structure in
query template, I didn't get the output. Table input parameter does not take that xml source. How to set the table input in Query template?
can anyone help me?
Regards,
Hemalatha

Hema,
You probably need to XML encode the data so that it will pass properly and then xmldecode() it to set the BAPI input value.
Sam

How to capture the Logout time in xMII

Hi Friends,
How to capture the logout time in xMII when the user clicks on Logout link
Thanks

Srikanth,
It would be better to use a database table(s) to store your audit trail information than an xml file, which could grow beyond a manageable size and then require housekeeping efforts and file rolling, etc. It would also be much easier to query user related information out of the logs, pareto charts for failed vs. successful login attempts, etc. if the data was stored in a database.
Have you considered modifying the Relogin.jsp page link in the portal's sub-menu bar? How about making your own version of this web page and changing the link pointer? Keep in mind that whatever result you come up with here will need a significant update for NetWeaver UME compatibility in version 12.0.
Regards,
Jeremy

How to capture the parameter in webdynpro application?

Hi ,
We have a requirement like this :
the scenario is :
user will get a mail to inbox(here mail is coming from SAP Workflow) saying that :"proposal is waiting for your approval".for details please click on the below link:
once user clicks on the link it has to open up the webdynpro application and has to display the details of the particular proposal no.
how to pass the proposal no to the webdynpro application URL and how to capture the proposalno in webdynpro java?
Thanks in advance.
Regards,
Pavani

From the workflow when you create the link, also add the proposal number as an url parameter.
For example if the url for requesting WD application is <WD_URL>, then URL with parameter would be
<WD_URL>?PROPOSAL_NO=<actual_proposal_number>
In the webdynpro, you can access this parameter with the following piece of code(ideally in wdDoInit of component controller).
String proposalNo = WDProtocolAdapter.getProtocolAdapter().getRequestObject().getParameter("PROPOSAL_NO");
Regards
kk..

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

Similar Messages

Maybe you are looking for