Please help me to modify the following code !

SELECT VTEXT FROM TVKGGT
    INTO CORRESPONDING FIELDS OF TABLE t_tvkggt
    WHERE KDKGR = itab-kdkg1.
read table t_tvkggt with key kdkgr = t_tvkggt-kdkgr binary search.
    itab-vtext2 = t_tvkggt-vtext.
I am getting corresponding values of vtext where itab has
values of kdkgr and also doesnt have any values of kakgr.
how to remove those values of vtext which doesnt have any value for kdkgr.

Hi,
select * from mara
into table i_tab
where matnr = 'ACC CABLE'.
loop at i_tab where bstme NE ' ' .
endloop.
Check out with this one and inside loop ,
you can transfer only those records which have bstme value.
Apply for you case.
Reward if helpful/.
Thanks,
Madhura
Edited by: Madhura Nadgauda on Jan 17, 2008 7:19 AM

Similar Messages

Please help me in understanding the following code.

public static void main(String args[]){
int x=0,c=0;
for(int i=0;i<3;i++)
x = x + x++;
System.out.println(x);
why this program always prints zero(0) as output. I am not able to understand the execution sequence of it.

bkyadav wrote:
at certain point of time in porgram
(x++) should be treated as x = x+1; but that is not happening.Here's the rule : you have to proceed the expression from left to right.
For example :
int x = 8;
x = x + ++x; // x = 8 + 9 = 17
int x = 8;
x = x + x++; // x = 8 + 8 = 16
int x = 8;
x = x + --x; // x = 8 + 7 = 15Also, in the for statement of your example :
for(int i=0;i<3;i++)the value of i+ is first tested before being incremented for the next iteration otherwise the test on value of i+ = 0 would have been skipped.

Please help me out with the function code of print option in module pool

please help me out with the function code of print option in module pool, along with CASE condition.
regards,
asif

Hi
you can use the Function module
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
    destination            = 'LP01'                       "'Printer name
    list_name              = 'TEST'
    list_text              = 'SUBMIT ... TO SAP-SPOOL'
    immediately            = ' '
    line_size              = '2000'
    no_dialog              = 'X'             "pass space to Pop screen for Print option
IMPORTING
    out_parameters         = wa_pri_params
    valid                  = w_valid.
"next call below things
NEW-PAGE PRINT ON NO DIALOG PARAMETERS wa_pri_params.
     "and try to Print the values inside the new-page
NEW-PAGE PRINT OFF.
Prabhudas

Please help me to explain the following method

I saw the following code in a source file
//This method actually does the code generation
//Returns an instance of the generated class.
protected Class generateWrapperClass()
throws JasperGenerationError,ServletException
verify();
protected void verify()
I can't understand how does method generateWrapperClass() works.
verify() is of type void and the method generateWrapperClass() has no return value.
Can anyone help to explain it to me?
Thanks

I can't understand how does method
generateWrapperClass() works.
verify() is of type void and the method
generateWrapperClass() has no return value.It does have a return type, it returns a Class. Your confusing the keyword "class" with the Object "Class". Java is case sensitive so class and Class are 2 different things.

Please help me to find the sample code and schema for GetDBDateTime.zip fil

Please help me to find the GetDBDateTime.zip and Guest_Book.zip files.
Tks!

Does this Help?
http://www.oracle.com/technology/sample_code/products/ias/files/psp/GetDBDateTime/Readme.html
Did you install Oracle9iAS ?

PLEASE HELP ME TO MODIFY THE CODE !

DATA:BEGIN OF I_PARTNER OCCURS 0,
       VBELN LIKE VBPA-VBELN,
       adrnr like vbpa-adrnr,
       kunnr LIKE vbpa-kunnr,
       PARVW LIKE VBPA-PARVW,
       post_code1 LIKE adrc-post_code1,
       po_box LIKE adrc-po_box,
       name1 LIKE adrc-name1,
       name2 LIKE adrc-name2,
       city1 LIKE adrc-city1,
       city2 LIKE adrc-city2,
       country LIKE adrc-country,
       street LIKE adrc-street,
       str_suppl1 LIKE adrc-str_suppl1,
       str_suppl2 LIKE adrc-str_suppl2,
       str_suppl3 LIKE adrc-str_suppl3,
       vtext like tpart-vtext,
       ADRNP LIKE VBPA-ADRNP,
      SMTP_ADDR LIKE ADR6-SMTP_ADDR,
     END OF I_PARTNER.
SELECT
VBPA~VBELN
vbpa~adrnr
VBPA~PARVW
VBPA~KUNNR
VBPA~ADRNP
TPART~VTEXT
FROM VBPA AS VBPA
INNER JOIN TPART AS TPART
ON VBPAPARVW EQ TPARTPARVW
AND SPRAS = SY-LANGU
INTO CORRESPONDING FIELDS OF TABLE I_PARTNER
WHERE
VBPA~VBELN EQ S_VBELN.
WRITE:/
i_partner-adrnr         under         'ADDRESS NUMBER',
i_partner-vbeln         UNDER         'Order-No',
i_partner-parvw         UNDER         'Partner-Type',
I_PARTNER-VTEXT         UNDER         'Partner-Type description',
I_PARTNER-KUNNR         UNDER         'Partner-no'.
ULINE.
endloop.
HERE I AM GETTING ALL THE POSSIBLE PARTNER TYPES.
I WANT TO GET THE OUT PUT ONLY WHEN THE PARTNER TYPE S ARE 'SP' 'BP' AND 'SH'.
PLEASE HELP.....

Hi,
Both the answers are correct... iam just writing the code u needed..
ranges : gr_partner for tablename-fieldname.
initialization.
gr_partner-sign = 'I'.
gr_partner-option = 'EQ'
gr_partner-low = 'SP'
append gr_partner.
gr_partner-sign = 'I'.
gr_partner-option = 'EQ'
gr_partner-low = 'BP'
append gr_partner.
gr_partner-sign = 'I'.
gr_partner-option = 'EQ'
gr_partner-low = 'SH'
append gr_partner.
SELECT
VBPA~VBELN
vbpa~adrnr
VBPA~PARVW
VBPA~KUNNR
VBPA~ADRNP
TPART~VTEXT
FROM VBPA AS VBPA
INNER JOIN TPART AS TPART
ON VBPAPARVW EQ TPARTPARVW
AND SPRAS = SY-LANGU
INTO CORRESPONDING FIELDS OF TABLE I_PARTNER
WHERE
VBPA~VBELN EQ S_VBELN
and vbpa~parvw in gr_partner.
Regards,
Nagaraj

Please help me. i get the following error " error getting license, server communication problem, E_ADEPT_DOCUMENT_TOO_SHORT

HI,
I am using this for the first time. I have downloaded a Adobe E-book from my library. I installed Digital Edition 4 and i keep on getting this message when i try to get the book from my pc downloads. Please help me overcome this issue
regards,
kapil desai

Please try de-authorizing and authorizing again.
Steps to De-authorize
1) Switch to Library Mode by clicking Library button
2) Select menu item Help--> Erase Authorization or Press Ctrl+Shift+D
3) Click Erase button to De-authorize
Steps to Authorize
1) Launch ADE
2) Switch to Library Mode by clicking Library button (if you are in Reading Mode)
3) Select menu item Help-->Authorize Computer or Press Ctrl+Shift+U
4) Enter the valid credential to Authorize
Hope this solves your problem.

From Nabil Houlika Germany. Please help me by answering the following questions. The Time Capsule suddenly went dead. What should I do? Is there a way to put it "ON" again??

Yesterday the time capsule light went off. All efforts to put it on again failed. All electric connections are in good order and working perfectly. Please help me.

Hi again,
I called them this morning. Admits my allergies and sneezing I was able to talk to them.
They will replace it with basically no questions asked.
I guess also having a MBP under AppleCare also helped too as the case is registered under that.
They gave me a few options.
The could take my credit card number as insurance and send me a new one and them I send them my dead one back, or I could take it into an Apple Store for a replacement there. The problem is that I have data on there that I want to maintain, so they said take it to the Apple Store or an Apple Service provider and they would handle the transfer.
I don't have an Apple Store in my city, but have a Service Provider that I know that could do the transfer for me, but I kinda want to do it at the Apple Store because maybe then they would give me a new one instead of another w year tombstone.
So I need to weigh my options.
I'll let you know further what happens.
P.S. my serial number was not in the range listed, but that didn't seem to make a difference. I think the key is to be courteous, respectful and friendly.

Please help me by solving the following query

hi download the image from the above link and here i want latest dosi line count.....
Please help me

I think you don't need a plsql for this purpose ... you can find the sub total & final total in the query itself like
select
     DOSI,
     ELEMENT_TYPE,
     SUM(USED) USED
from
     DOEMS_LICENSE_SUMMARY
where
     DOSI in (DOSILIST)
GROUP BY
     rollup(ELEMENT_TYPE, DOSI)      ** duplicate**

Please help me to build the logic

Hi All,
Please help me to implement the following logic.
The conditional statements should not only be executed in sequence, but also if any of them are true they should not be overridden by any subsequent conditional statements being true.
When actual effort Accepted or Rejected for AST proposals and calculate a flag for “enhance to AST guideline” = Y/N as follows for each employee and display at the employee level
1)If AST eligibility = N AND proposed AST % >0, then “N”
2)Else If AST eligibility = N AND proposed AST % = 0 then “n/a”
3)Else If AST eligibility = Y AND Act Rank = 3 AND proposed AST = 0 then “Y”
4)Else If AST eligibility = Y AND Act Rank = 3 AND proposed AST >0 then “N”
5)Else If AST eligibility = Y AND Act Rank = 2 AND proposed AST = 0 then “Y”
6)Else If AST eligibility = Y AND AST % is greater than or equal to the AST guideline minimum AND less than or equal to the AST guideline maximum, then “Y”
7)Else If AST eligibility = Y AND AST % is less than the minimum guideline OR greater than the maximum guideline, then “N”
I tried the following code but I am not getting the expected result .
Could you Please help me to build the logic.
Your earliest response is very helpful to me.
if (upper(P_stat)='ACCEPTED' or upper(P_stat) like 'REJECTED%') then
else if NVL(P_elgi,'N') <> 'Y' AND P_prop > '0' then
P_flag := 'N';
else if(NVL(P_elgi,'N') <> 'Y' AND P_prop = '0') then
P_flag := 'N/A';
else if ((NVL(P_elgi,'N')='Y') AND P_rank = '3' AND P_prop = '0') then
P_flag := 'Y';
else if((NVL(P_elgi,'N')='Y') AND P_rank = '3' AND P_prop > '0') then
P_flag := 'N';
else if((NVL(P_elgi,'N')='Y') AND P_rank = '2' AND P_prop = '0') then
P_flag := 'Y';
Else if (P_prop >=ast_min_guide AND P_prop <= ast_max_guide ) then
P_flag := 'Y';
else
((P_prop < ast_min_guide) OR (P_prop > ast_max_guide)) then
P_flag := 'N';
end if;
end if;

Thanks for ur quick responce .
When actual effort Accepted or Rejected for AST proposals and calculate a flag for “enhance to AST guideline” = Y/N
Once the above condition is satisfied we have to check for remaing conditions
if (upper(P_stat)='ACCEPTED' or upper(P_stat) like 'REJECTED%') then
once it is satisfies then we have to go for remaing conditions.
how can we do it in CASE statement.
1)If AST eligibility = N AND proposed AST % >0, then “N”
2)Else If AST eligibility = N AND proposed AST % = 0 then “n/a”
3)Else If AST eligibility = Y AND Act Rank = 3 AND proposed AST = 0 then “Y”
4)Else If AST eligibility = Y AND Act Rank = 3 AND proposed AST >0 then “N”
5)Else If AST eligibility = Y AND Act Rank = 2 AND proposed AST = 0 then “Y”
6)Else If AST eligibility = Y AND AST % is greater than or equal to the AST guideline minimum AND less than or equal to the AST guideline maximum, then “Y”
7)Else If AST eligibility = Y AND AST % is less than the minimum guideline OR greater than the maximum guideline, then “N”
I tried the following code but I am not getting the expected result .

Need explanation of the following code

HI All,
I need your help on explanation of the following code :
what I don't understand is how it route the request (all the benefit of the replace statement )
If the input is /scarr/LH/SPFLI/402
how he know to route it and
what is the benefit for using the wild card and the concatenate CONCATENATE '^' lv_verif_pattern '$'
Edited by: James Herb on Apr 13, 2010 9:53 AM
Edited by: James Herb on Apr 13, 2010 9:53 AM

DATA: lt_routing_tab TYPE z_resource_routing_tab,
CONSTANTS: param_wildcard TYPE string VALUE '([^/])*'.
FIELD-SYMBOLS: <ls_routing> LIKE LINE OF lt_routing_tab.
CALL METHOD get_routing
    RECEIVING
      rt_routing_tab = lt_routing_tab.
LOOP AT lt_routing_tab ASSIGNING <ls_routing>.
*   replace all parameters placeholders by regex
    lv_verif_pattern = <ls_routing>-url_info.
    lv_signature = <ls_routing>-url_info.
    REPLACE ALL OCCURRENCES OF REGEX '\{([A-Z]*[_]*[a-z]*[0-9]*)*\}'
    IN lv_verif_pattern WITH param_wildcard.
    CONCATENATE '^' lv_verif_pattern '$' INTO lv_verif_pattern.
*   check if pattern matches current entry
    FIND ALL OCCURRENCES OF REGEX lv_verif_pattern
    IN url_info MATCH COUNT lv_count.
*   pattern matched
    IF lv_count > 0.
*     get controller class name
      lv_controller_name = <ls_routing>-handler_class.
      ls_class-clsname = lv_controller_name.
*     check if class exists
*     class found
      IF sy-subrc = 0.
*       create controller
        CREATE OBJECT eo_controller TYPE (lv_controller_name).
*       create parameter table
        SHIFT lv_verif_pattern RIGHT DELETING TRAILING '$'.
        SHIFT lv_verif_pattern LEFT DELETING LEADING ' ^'.
        SPLIT lv_verif_pattern AT param_wildcard INTO TABLE lt_url_parts.
        lv_url_info = url_info.
        LOOP AT lt_url_parts INTO lv_url_part.
          SHIFT lv_signature LEFT DELETING LEADING lv_url_part.
          SHIFT lv_signature LEFT DELETING LEADING '{'.
          SHIFT lv_url_info LEFT DELETING LEADING lv_url_part.
Edited by: James Herb on Apr 13, 2010 9:56 AM

Need help in modifing the following code to display required output

Hi this is the code which i am going to displayoutput here i used FM VRM_SET_VALUES for getting dropdown box when i used it my output race field is not getting any values and blank space is getting displayed
what i want is just i need to display the output according to the selection screen
and the other fields in the selection screen except 'p_gender' are also giving problem when i am keeping where condition to link selection screen
can any one please help me in getting the required output according to selection by modifing the following code
TABLES: pernr,t5u13,cskt , t001p,t500p, t501t,t503t,t513s,t527x,t529t,t530t, t5uaa.
TYPE-POOLS: slis, vrm.
INFOTYPES: 0000,                               "Actions
           0001,                               "Org Assignment
           0002,                               "Personal Data
           0006,                               "Address
           0008,                               "Basic Pay
           0041,                               "Date Specifications
           0077.                               "Additional Personal Data
CONSTANTS: gc_x               TYPE c VALUE 'X',
           g_w(1)             TYPE c VALUE 'W',
           g_h(1)             TYPE c VALUE 'H',
           g_af(2)            TYPE c VALUE 'AF',
           g_ai(2)            TYPE c VALUE 'AI',
           g_01(2)            TYPE c VALUE 'R1',
           g_02(2)            TYPE c VALUE 'R2',
           g_03(2)            TYPE c VALUE 'R3',
           g_05(2)            TYPE c VALUE 'R5'.
TYPES : BEGIN OF t_roster,
        pernr                 TYPE p0001-pernr,
        ssn                   TYPE p0002-perid,
        first_name            TYPE p0002-vorna,
        last_name             TYPE p0002-nachn,
        city                  TYPE t500p-ort01,
        state                 TYPE t500p-regio,
        zipcode               TYPE t500p-pstlz,
        hire_date(10)         TYPE c,
        lhire_date(10)        TYPE c,
        serv_date(10)         TYPE c,
        eg                    TYPE p0001-persg,
        eg_desc               TYPE t501t-ptext,
        esg                   TYPE p0001-persk,
        esg_desc              TYPE t503t-ptext,
        race                  TYPE p0077-rac01,
        ***                   TYPE p0002-gesch,
        job_grade             TYPE p0008-trfgr,
        job_level             TYPE p0008-trfst,
        grade_entry_date(10) TYPE c,
        job_title             TYPE p0001-plans,
        title(30)             TYPE c,
        job_code              TYPE p0001-stell,
        job_code_desc         TYPE t513s-stltx,
        job_entry_date(10)    TYPE c,
        annual_sal            TYPE p0008-ansal,
        hrly_rate             TYPE p0008-bet01,
        org_unit              TYPE p0001-orgeh,
        orgtx(40)             TYPE c,
        cost_cntr             TYPE p0001-kostl,
        ltext(40)             TYPE c,
        personal_area         TYPE p0001-werks,
        personal_area_desc    TYPE t500p-name1,
        supervisor(30)        TYPE c,
        flsa                  TYPE t5u13-exmpt,
        ee01                  TYPE t5u13-eeoct,
        job_grp               TYPE p0001-stell,
        aap_code              TYPE t5u13-aapct,
        aap_code_desc         TYPE t5uaa-ltext,
        dob                   TYPE p0002-gbdat,
        psa                   TYPE p0001-btrtl,
        psa_desc              TYPE t001p-btext,
        unionl                TYPE p0001-btrtl,
        unionc                TYPE p0001-btrtl,
END OF t_roster.
DATA : gi_roster TYPE STANDARD TABLE OF t_roster, gi_objec TYPE STANDARD TABLE OF objec,
       gi_hrp1000      TYPE STANDARD TABLE OF hrp1000,
       gi_cskt         TYPE STANDARD TABLE OF cskt,
       gi_t001p        TYPE STANDARD TABLE OF t001p,
       gi_t500p        TYPE STANDARD TABLE OF t500p,
       gi_t501t        TYPE STANDARD TABLE OF t501t,
       gi_t503t        TYPE STANDARD TABLE OF t503t,
       gi_t513s        TYPE STANDARD TABLE OF t513s,
       gi_t527x        TYPE STANDARD TABLE OF t527x,
       gi_t529t        TYPE STANDARD TABLE OF t529t,
       gi_t530t        TYPE STANDARD TABLE OF t530t,
       gi_t5u13        TYPE STANDARD TABLE OF t5u13,
       gi_t5uaa        TYPE STANDARD TABLE OF t5uaa.
DATA : gs_roster       TYPE t_roster,
         gs_objec        TYPE objec,
       gs_hrp1000      TYPE hrp1000,
       gs_cskt         TYPE cskt,
       gs_t001p        TYPE t001p,
       gs_t500p        TYPE t500p,
       gs_t501t        TYPE t501t,
       gs_t503t        TYPE t503t,
       gs_t513s        TYPE t513s,
       gs_t527x        TYPE t527x,
       gs_t529t        TYPE t529t,
       gs_t530t        TYPE t530t,
       gs_t5u13        TYPE t5u13,
       gs_t5uaa        TYPE t5uaa.
DATA : gv_ltext(40)       TYPE c,
        gv_ltext1(40)      TYPE c,
        gv_age(3)          TYPE c,
        gv_butxt(40)       TYPE c,
        gv_eeoc(10)        TYPE c,
        gv_prevdate        TYPE datum.
DATA: gi_fieldcat    TYPE slis_t_fieldcat_alv,
      gs_fieldcat    TYPE slis_fieldcat_alv,
      i_top_of_page TYPE slis_t_listheader,
      g_repid        TYPE sy-repid,
      g_save,
      gs_layout      TYPE slis_layout_alv,
      gt_events      TYPE slis_t_event,
      gs_variant     LIKE disvariant,
      gi_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: name TYPE vrm_id,
      list TYPE vrm_values,
      value LIKE LINE OF list.
SELECTION-SCREEN BEGIN OF BLOCK b1
                 WITH FRAME TITLE text-x02.
PARAMETERS : p_race(10) AS LISTBOX VISIBLE LENGTH 30,
             p_gender TYPE p0002-gesch,
             p_eeoc   TYPE t5u13-eeoct,
             p_aap    TYPE t5u13-aapct.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN OUTPUT.
REFRESH list.
name = 'P_RACE'.
value-key = 'R1'.
value-text = 'American Indian or Alaskan Native'.
APPEND value TO list.
CLEAR value.
value-key = 'R2'.
value-text = 'Asian'.
APPEND value TO list.
CLEAR value.
value-key = 'R3'.
value-text = 'Black or African American'.
APPEND value TO list.
CLEAR value.
value-key = 'R5'.
value-text = 'White'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = name
      values          = list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
INITIALIZATION.
g_repid = sy-repid.
PERFORM layout_init    USING gs_layout.
PERFORM eventtab_build USING gt_events[].
gs_variant-report = g_repid.
g_save = 'A'.
START-OF-SELECTION.
GET pernr.
    PERFORM roster_aap.
END-OF-SELECTION.
PERFORM fetch_roster_text.
    PERFORM output_roster_display.
*&      Form ROSTER_AAP
      text
--> p1        text
<-- p2        text
FORM roster_aap .
PERFORM infty_rost_0001.
PERFORM infty_rost_0002.
PERFORM infty_rost_0008.
PERFORM infty_rost_0041.
PERFORM infty_rost_0077.
PERFORM supervisor_rost.
PERFORM append_rost_recs.
ENDFORM.                    " ROSTER_AAP
*&      Form INFTY_ROST_0001
      text
FORM infty_rost_0001 .
rp_provide_from_last p0001 space
                          pn-begda pn-endda.
IF pnp-sw-found = 1.
    gs_roster-pernr         = p0001-pernr.
    gs_roster-eg            = p0001-persg.
    READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = p0001-persg.
    IF sy-subrc <> 0.
      APPEND gs_t501t TO gi_t501t.
      CLEAR gs_t501t.
    ENDIF.
    gs_roster-esg           = p0001-persk.
    READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = p0001-persk.
    IF sy-subrc <> 0.
      APPEND gs_t503t TO gi_t503t.
      CLEAR gs_t503t.
    ENDIF.
    gs_roster-job_title     = p0001-plans.
    READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = p0001-plans.
    IF sy-subrc <> 0.
      APPEND gs_hrp1000 TO gi_hrp1000.
      CLEAR gs_hrp1000.
    ENDIF.
    gs_roster-job_code      = p0001-stell.
    READ TABLE gi_t513s INTO gs_t513s WITH KEY stell = p0001-stell.
    IF sy-subrc <> 0.
      APPEND gs_t513s TO gi_t513s.
      CLEAR gs_t513s.
    ENDIF.
    gs_roster-org_unit      = p0001-orgeh.
    READ TABLE gi_t527x INTO gs_t527x WITH KEY orgeh = p0001-orgeh.
    IF sy-subrc <> 0.
      APPEND gs_t527x TO gi_t527x.
      CLEAR gs_t527x.
    ENDIF.
    gs_roster-cost_cntr     = p0001-kostl.
    READ TABLE gi_cskt INTO gs_cskt WITH KEY kostl = p0001-kostl.
    IF sy-subrc <> 0.
      APPEND gs_cskt TO gi_cskt.
      CLEAR gs_cskt.
    ENDIF.
    gs_roster-personal_area = p0001-werks.
    READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = p0001-werks.
    IF sy-subrc <> 0.
      APPEND gs_t500p TO gi_t500p.
      CLEAR gs_t500p.
    ENDIF.
    gs_roster-job_grp       = p0001-stell.
    READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = p0001-stell.
    IF sy-subrc <> 0.
      APPEND gs_t5u13 TO gi_t5u13.
      CLEAR gs_t5u13.
    ENDIF.
    READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code.
    IF sy-subrc <> 0.
      APPEND gs_t5uaa TO gi_t5uaa.
      CLEAR gs_t5uaa.
    ENDIF.
    gs_roster-psa           = p0001-btrtl.
    READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = p0001-btrtl.
    IF sy-subrc <> 0.
      APPEND gs_t001p TO gi_t001p.
      CLEAR gs_t001p.
    ENDIF.
    gs_roster-unionl        = p0001-btrtl.
    gs_roster-unionc        = p0001-btrtl.
ENDIF.
ENDFORM.                    " INFTY_ROST_0001
*&      Form INFTY_ROST_0002
      text
FORM infty_rost_0002 .
rp_provide_from_last p0002 space
                          pn-begda pn-endda.
IF pnp-sw-found = 1.
    IF p_gender IS NOT INITIAL AND p_gender NE p0002-gesch.
      REJECT.
    ENDIF.
    gs_roster-ssn        = p0002-perid.
    gs_roster-first_name = p0002-vorna.
    gs_roster-last_name = p0002-nachn.
    gs_roster-***        = p0002-gesch.
    gs_roster-dob        = p0002-gbdat.
ENDIF.
ENDFORM.                    " INFTY_ROST_0002
*&      Form INFTY_ROST_0008
      text
FORM infty_rost_0008 .
DATA: lv_wage TYPE lgart,
        lv_amount TYPE pad_amt7s.
rp_provide_from_last p0008 space
                          pn-begda pn-endda.
IF pnp-sw-found = 1.
    gs_roster-annual_sal = p0008-ansal.
    DO 40 TIMES VARYING lv_wage FROM p0008-lga01
                              NEXT p0008-lga02
              VARYING lv_amount FROM p0008-bet01
                                NEXT p0008-bet02.
      IF lv_wage = '0101'.
        gs_roster-hrly_rate = lv_amount.
        EXIT.
      ENDIF.
    ENDDO.
    gs_roster-job_grade    = p0008-trfgr.
    gs_roster-job_level    = p0008-trfst.
ENDIF.
ENDFORM.                    " INFTY_ROST_0008
*&      Form INFTY_ROST_0041
      text
FORM infty_rost_0041 .
DATA : l_date TYPE datum,
         l_hdate TYPE datum,
         l_sdate TYPE datum.
rp_provide_from_last p0041 space
                       pn-begda pn-endda.
IF pnp-sw-found = 1.
    CLEAR : l_date,
            l_hdate,
            l_sdate.
*--Last Hire Date--
    CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
      EXPORTING
        p0041                    = p0041
        p_datar                  = 'U1'
     P_DATKN                  =
     IMPORTING
       p_date                   = l_date
     EXCEPTIONS
       illegal_arguments        = 1
       more_than_one_date       = 2
       OTHERS                   = 3
    IF sy-subrc <> 0.
    ENDIF.
    IF NOT l_date IS INITIAL.
      CONCATENATE
                 l_date4(2) l_date6(2) l_date+0(4)
                 INTO gs_roster-hire_date
                 SEPARATED BY '/'.
    ENDIF.
ENDIF.
*--Last Hire Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
    EXPORTING
      p0041                    = p0041
      p_datar                  = 'U2'
     P_DATKN                  =
   IMPORTING
     p_date                   = l_hdate
   EXCEPTIONS
     illegal_arguments        = 1
     more_than_one_date       = 2
     OTHERS                   = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_hdate IS INITIAL.
    CONCATENATE
               l_hdate4(2) l_hdate6(2) l_hdate+0(4)
               INTO gs_roster-lhire_date
               SEPARATED BY '/'.
ENDIF.
*--Service Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
    EXPORTING
      p0041                    = p0041
      p_datar                  = 'U4'
     P_DATKN                  =
   IMPORTING
     p_date                   = l_sdate
   EXCEPTIONS
     illegal_arguments        = 1
     more_than_one_date       = 2
     OTHERS                   = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_sdate IS INITIAL.
    CONCATENATE
               l_sdate4(2) l_sdate6(2) l_sdate+0(4)
               INTO gs_roster-serv_date
               SEPARATED BY '/'.
ENDIF.
ENDFORM.                    " INFTY_ROST_0041
*&      Form INFTY_ROST_0077
      text
FORM infty_rost_0077 .
DATA: lv_race TYPE races.
rp_provide_from_last p0077 space
                               pn-begda pn-endda.
IF pnp-sw-found = 1.
    IF NOT p_race IS INITIAL AND p_race NE lv_race.
      REJECT.
    ENDIF.
    DO 10 TIMES VARYING lv_race FROM p0077-rac01
                            NEXT p0077-rac02.
      IF lv_race NE space.
        IF lv_race EQ g_01.
          gs_roster-race = g_ai.
        ELSEIF lv_race EQ g_02.
          gs_roster-race = g_h.
        ELSEIF lv_race EQ g_03.
          gs_roster-race = g_af.
        ELSEIF lv_race EQ g_05.
          gs_roster-race = g_w.
        ENDIF.
      ENDIF.
    ENDDO.
ENDIF.
ENDFORM.                    " INFTY_ROST_0077
*&      Form SUPERVISOR_ROST
      text
FORM supervisor_rost .
REFRESH gi_objec.
IF NOT p0001-orgeh IS INITIAL.
    CALL FUNCTION 'HRCM_ORGUNIT_MANAGER_GET'
      EXPORTING
        plvar                    = '01'
        otype                    = 'O'
        objid                    = p0001-orgeh
        begda                    = pn-begda
        endda                    = pn-endda
    PATH_ID                  = ' '
    TABLES
       manager_info_table       = gi_objec
     EXCEPTIONS
       path_error               = 1
       root_error               = 2
       nothing_found            = 3
       OTHERS                   = 4
    IF sy-subrc <> 0.
    ENDIF.
    SORT gi_objec DESCENDING BY endda.
    READ TABLE gi_objec INTO gs_objec INDEX 1.
    IF sy-subrc = 0.
      gs_roster-supervisor = gs_objec-stext.
      CLEAR gs_objec.
    ENDIF.
ENDIF.
ENDFORM.                    " SUPERVISOR_ROST
*&      Form APPEND_ROST_RECS
      text
FORM append_rost_recs .
IF NOT gs_roster-pernr IS INITIAL.
    APPEND gs_roster TO gi_roster.
    CLEAR gs_roster.
ENDIF.
ENDFORM.                    " APPEND_ROST_RECS
*&      Form FETCH_ROSTER_TEXT
      text
FORM fetch_roster_text .
IF p_eeoc IS NOT INITIAL AND p_eeoc NE t5u13-eeoct.
    REJECT.
ENDIF.
IF NOT gi_roster IS INITIAL.
    SELECT orgeh orgtx FROM t527x
       INTO CORRESPONDING FIELDS OF TABLE gi_t527x
       WHERE sprsl = sy-langu AND
              endda = '99991231'.
    SELECT persa ort01 regio pstlz name1
        FROM t500p
        INTO CORRESPONDING FIELDS OF TABLE gi_t500p.
    SELECT persg ptext
        FROM t501t
        INTO CORRESPONDING FIELDS OF TABLE gi_t501t
        WHERE sprsl = sy-langu.
    SELECT persk ptext
             FROM t503t
             INTO CORRESPONDING FIELDS OF TABLE gi_t503t
              WHERE sprsl = sy-langu.
    SELECT stell stltx FROM t513s
       INTO CORRESPONDING FIELDS OF TABLE gi_t513s
       WHERE sprsl = sy-langu AND
             endda = '99991231'.
    SELECT otype plvar objid stext
            FROM hrp1000 INTO
            CORRESPONDING FIELDS OF TABLE gi_hrp1000
           for all entries in gi_roster
                                    WHERE plvar = '01'
                                    AND otype = 'S'.
                                   and objid = gi_roster-job_title.
    SELECT stell eeoct exmpt aapct
         FROM t5u13
         INTO CORRESPONDING FIELDS OF TABLE gi_t5u13.
        for all entries in gi_t5u13
     WHERE stell = gi_t5u13-stell
     AND eeoct = p_eeoc
     AND aapct = p_aap.
    SELECT aapct eeoct ltext
            FROM t5uaa
            INTO CORRESPONDING FIELDS OF TABLE gi_t5uaa.
         FOR ALL ENTRIES IN gi_roster
         WHERE aapct = gi_roster-aap_code
           and eeoct = gi_roster-ee01.
    SELECT kostl ltext
      FROM cskt
       INTO CORRESPONDING FIELDS OF TABLE gi_cskt
      FOR ALL ENTRIES IN gi_roster
      WHERE kostl = gi_roster-cost_cntr
     WHERE   spras = sy-langu.
    SELECT btrtl btext
         FROM t001p
         INTO CORRESPONDING FIELDS OF TABLE gi_t001p.
        FOR ALL ENTRIES IN gi_roster
        WHERE btrtl = gi_roster-psa.
ENDIF.
LOOP AT gi_roster INTO gs_roster.
    CLEAR :gs_hrp1000,gs_t5u13,gs_t500p,gs_t501t,gs_t503t,gs_t5uaa,gs_cskt,gs_t001p,gs_t513s,          gs_t527x,gs_t529t,gs_t530t.
    READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = gs_roster-eg.
    IF sy-subrc = 0.
      gs_roster-eg_desc = gs_t501t-ptext.
    ENDIF.
    READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = gs_roster-esg.
    IF sy-subrc = 0.
      gs_roster-esg_desc = gs_t503t-ptext.
    ENDIF.
    READ TABLE gi_t513s INTO gs_t513s
                        WITH KEY stell = gs_roster-job_code.
    IF sy-subrc = 0.
      gs_roster-job_code_desc = gs_t513s-stltx.
    ENDIF.
    READ TABLE gi_t527x INTO gs_t527x
                      WITH KEY orgeh = gs_roster-org_unit.
    IF sy-subrc = 0.
      gs_roster-orgtx = gs_t527x-orgtx.
    ENDIF.
    READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = gs_roster-job_title.
    IF sy-subrc = 0.
      gs_roster-title = gs_hrp1000-stext.
    ENDIF.
    READ TABLE gi_cskt INTO gs_cskt
                           WITH KEY kostl = gs_roster-cost_cntr.
    IF sy-subrc = 0.
      gs_roster-ltext = gs_cskt-ltext.
    ENDIF.
    READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = gs_roster-job_code.
    IF sy-subrc = 0.
      gs_roster-ee01      = gs_t5u13-eeoct.
      gs_roster-flsa      = gs_t5u13-exmpt.
      gs_roster-aap_code = gs_t5u13-aapct.
    ENDIF.
    READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = gs_roster-personal_area.
    IF sy-subrc = 0.
      gs_roster-city               = gs_t500p-ort01.
      gs_roster-state              = gs_t500p-regio.
      gs_roster-zipcode            = gs_t500p-pstlz.
      gs_roster-personal_area_desc = gs_t500p-name1.
    ENDIF.
    READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = gs_roster-psa.
    IF sy-subrc = 0.
      gs_roster-psa_desc = gs_t001p-btext.
    ENDIF.
    READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code eeoct = gs_roster-ee01.
    IF sy-subrc = 0.
      gs_roster-aap_code_desc     = gs_t5uaa-ltext.
    ENDIF.
    MODIFY gi_roster FROM gs_roster .
ENDLOOP.
ENDFORM.                    " FETCH_ROSTER_TEXT
*&      Form OUTPUT_ROSTER_DISPLAY
      text
FORM output_roster_display .
PERFORM build_roster_fieldcatalog.
PERFORM comment_roster_build CHANGING i_top_of_page[].
PERFORM display_roster_alv_report.
ENDFORM.                    " OUTPUT_ROSTER_DISPLAY
*&      Form LAYOUT_INIT
      text
FORM layout_init USING rs_layout TYPE slis_layout_alv.
rs_layout-detail_popup      = 'X'.
rs_layout-zebra             = 'X'.
rs_layout-colwidth_optimize = 'X'.
ENDFORM.                    " LAYOUT_INIT
*&      Form EVENTTAB_BUILD
      text
FORM eventtab_build USING rt_events TYPE slis_t_event.
*"Registration of events to happen during list display
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = rt_events.
READ TABLE rt_events WITH KEY name = slis_ev_top_of_page
                             INTO ls_event.
IF sy-subrc = 0.
    MOVE gi_top_of_page TO ls_event-form.
    APPEND ls_event TO rt_events.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form top_of_page
      text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
*&      Form BUILD_ROSTER_FIELDCATALOG
      text
FORM build_roster_fieldcatalog .
gs_fieldcat-fieldname = 'PERNR'.
gs_fieldcat-seltext_m = 'Employee Number'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SSN'.
gs_fieldcat-seltext_m = 'SSN Number'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'FIRST_NAME'.
gs_fieldcat-seltext_m = 'First Name'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LAST_NAME'.
gs_fieldcat-seltext_m = 'Last Name'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'CITY'.
gs_fieldcat-seltext_m = 'City'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'STATE'.
gs_fieldcat-seltext_m = 'State'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ZIPCODE'.
gs_fieldcat-seltext_m = 'Zip Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'HIRE_DATE'.
gs_fieldcat-seltext_m = 'Hire Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LHIRE_DATE'.
gs_fieldcat-seltext_m = 'Last Hire Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SERV_DATE'.
gs_fieldcat-seltext_m = 'Service Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EG'.
gs_fieldcat-seltext_m = 'Eg'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EG_DESC'.
gs_fieldcat-seltext_m = 'Eg Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ESG'.
gs_fieldcat-seltext_m = 'Esg'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ESG_DESC'.
gs_fieldcat-seltext_m = 'Eg Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'RACE'.
gs_fieldcat-seltext_m = 'Race'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = '***'.
gs_fieldcat-seltext_m = '***'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_GRADE'.
gs_fieldcat-seltext_m = 'Job Grade'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_LEVEL'.
gs_fieldcat-seltext_m = 'Job Level'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'GRADE_ENTRY_DATE'.
gs_fieldcat-seltext_l = 'Grade Entry Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_TITLE'.
gs_fieldcat-seltext_l = 'Job Title'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat..
gs_fieldcat-fieldname = 'TITLE'.
gs_fieldcat-seltext_l = 'Job Title Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_CODE'.
gs_fieldcat-seltext_l = 'Job Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_CODE_DESC'.
gs_fieldcat-seltext_l = 'Job Code Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_ENTRY_DATE'.
gs_fieldcat-seltext_l = 'Job Entry Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ANNUAL_SAL'.
gs_fieldcat-seltext_l = 'Annual Salary'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'HRLY_RATE'.
gs_fieldcat-seltext_l = 'Hourly Rate'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ORG_UNIT'.
gs_fieldcat-seltext_l = 'Org Unit'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ORGTX'.
gs_fieldcat-seltext_l = 'Org Text'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'COST_CNTR'.
gs_fieldcat-seltext_l = 'Cost Center'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LTEXT'.
gs_fieldcat-seltext_l = 'Cost Center Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PERSONAL_AREA'.
gs_fieldcat-seltext_l = 'Personal Area'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PERSONAL_AREA_DESC'.
gs_fieldcat-seltext_l = 'Personal Area Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SUPERVISOR'.
gs_fieldcat-seltext_l = 'Supervisor'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'FLSA'.
gs_fieldcat-seltext_l = 'FLSA'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EE01'.
gs_fieldcat-seltext_l = 'EE01'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_GRP'.
gs_fieldcat-seltext_l = 'Job Group'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'AAP_CODE'.
gs_fieldcat-seltext_l = 'AAP Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'AAP_CODE_DESC'.
gs_fieldcat-seltext_l = 'AAP Code Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'DOB'.
gs_fieldcat-seltext_l = 'Date of Birth'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PSA'.
gs_fieldcat-seltext_l = 'Personal Sub Area'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PSA_DESC'.
gs_fieldcat-seltext_l = 'Personal Sub Area Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'UNIONL'.
gs_fieldcat-seltext_l = 'Union Local'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'UNIONC'.
gs_fieldcat-seltext_l = 'Union Classfication'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
ENDFORM.                    " BUILD_ROSTER_FIELDCATALOG
*&      Form COMMENT_ROSTER_BUILD
      text
FORM comment_roster_build CHANGING top_of_page TYPE
                    slis_t_listheader.
DATA: ls_line           TYPE slis_listheader,
        l_startdate(10)   TYPE c,
        l_enddate(10)     TYPE c,
        l_final_start(22) TYPE c,
        l_final_end(22)   TYPE c.
CONCATENATE pn-begda4(2)'/'pn-begda6(2)'/'pn-begda+0(4)
INTO l_startdate.
CONCATENATE pn-endda4(2)'/'pn-endda6(2)'/'pn-endda+0(4)
INTO l_enddate.
CONCATENATE 'Start Date:' l_startdate INTO l_final_start.
CONCATENATE 'End Date :' l_enddate INTO l_final_end.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = 'AAP-EEOC Roster Report Data '. "Max len = 60
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = l_final_start.
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = l_final_end.
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ENDFORM.                    " COMMENT_ROSTER_BUILD
*&      Form DISPLAY_ROSTER_ALV_REPORT
      text
FORM display_roster_alv_report .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
            i_callback_program                = g_repid
            is_layout                         = gs_layout
            it_fieldcat                       = gi_fieldcat
            i_save                            = g_save
            is_variant                        = gs_variant
            it_events                         = gt_events[]
             TABLES
               t_outtab                          = gi_roster
          EXCEPTIONS
            program_error                     = 1
            OTHERS                            = 2
IF sy-subrc <> 0.
ENDIF.
ENDFORM.                    " DISPLAY_ROSTER_ALV_REPORT
Regards
sachin

hi there,
i want to fetch data from all the fields i ahve given here .It will be a join statement.
the important thing is I need all the values of vbeln in leftside
as output.

I forgot the code for my iPhone to access the Home screen I do , please help me try formatting the iphone but when I put in nfc mode and connect it to the pc recognizes it and everything when you try to format the error 3004 appears

I forgot the code for my iPhone to access the Home screen I do , please help me
try formatting the iphone but when I put in nfc mode and connect it to the pc recognizes it and everything when you try to format the error 3004 appears

Hello polo-angulo,
I apologize, I'm a bit unclear on the nature and scope of the issue you are describing. If you are saying that you are getting an error code (3004) when you try to restore your iPhone (because you could not remember your passcode), you may find the information and troubleshooting steps outlined in the following articles helpful:
Resolve iOS update and restore errors in iTunes - Apple Support
Get help with iOS update and restore errors - Apple Support
Sincerely,
- Brenden

Error message while compling the following code.can some body help me?

Hi all,
I wrote a simple program which connects to oracle 9i which uses thin driver,
the following code is
import java.io.*;
import java.sql.*;
import oracle.jdbc.*;
import oracle.sql.*;
import javax.sql.*;
class JdbcVersion
public static void main (String args[])
throws IOException, SQLException
     //Register Oracle's Driver
     DriverManager.registerDriver(new oracle.jdbc.driver.OracleDriver());
     //Build the connection string.
     String connString ="jdbc:oracle:thin:@(description=(address_list=" +
"(address=(protocol=tcp)(port=1521)(host=home-f831b673e0))" +
"(address=(protocol=tcp)(port=1521)(host=home-f831b673e0)))" +
"(connect_data=(sid=PLSExtProc))" +
"(source_route=yes))";
Connection conn = DriverManager.getConnection(connString, "<username>", "<password>");
// Create Oracle DatabaseMetaData object
DatabaseMetaData meta = conn.getMetaData();
// gets driver info:
System.out.println("JDBC driver version is " + meta.getDriverVersion());
and after compling this code i am getting an error message that
C:\>java JdbcVersion
Exception in thread "main" java.sql.SQLException: Io exception: Software caused
connection abort: recv failed
at oracle.jdbc.dbaccess.DBError.throwSqlException(DBError.java)
at oracle.jdbc.dbaccess.DBError.throwSqlException(DBError.java)
at oracle.jdbc.driver.OracleConnection.<init>(OracleConnection.java)
at oracle.jdbc.driver.OracleDriver.getConnectionInstance(OracleDriver.ja
va)
at oracle.jdbc.driver.OracleDriver.connect(OracleDriver.java)
at java.sql.DriverManager.getConnection(Unknown Source)
at java.sql.DriverManager.getConnection(Unknown Source)
at JdbcVersion.main(JdbcVersion.java:24)..
can any one help me in this regards??

hi nthali,
now i wote a simple code as you suggested....and again encontering with new problem
import oracle.jdbc.*;
import java.sql.*;
public class Test {
public Test() {
public static void main(String[] args) {
Test test1 = new Test();
test1.test();
public void test(){
try{
DriverManager.registerDriver(new oracle.jdbc.driver.OracleDriver());
Connection conn = DriverManager.getConnection("jdbc:Oracle:thin:@localhost:PNPKEY:'scott':'tiger'");
Statement stmt = conn.createStatement();
ResultSet rs = stmt.executeQuery("select * from player");
while(rs.next()){
System.out.println(rs.getString("id"));
// System.out.println(rs.getString("name"));
catch(Exception e){
e.printStackTrace();
this is java code...
and while running it is giving me an error like this....
C:\work>java Test
java.sql.SQLException: invalid arguments in call
at oracle.jdbc.dbaccess.DBError.throwSqlException(DBError.java)
at oracle.jdbc.dbaccess.DBError.check_error(DBError.java)
at oracle.jdbc.ttc7.TTC7Protocol.logon(TTC7Protocol.java)
at oracle.jdbc.driver.OracleConnection.<init>(OracleConnection.java)
at oracle.jdbc.driver.OracleDriver.getConnectionInstance(OracleDriver.ja
va)
at oracle.jdbc.driver.OracleDriver.connect(OracleDriver.java)
at java.sql.DriverManager.getConnection(Unknown Source)
at java.sql.DriverManager.getConnection(Unknown Source)
at Test.test(Test.java:14)
at Test.main(Test.java:9)...
can you help me??? in this problem...please??

Pls help me in write a join for the following code.

can any one give me optimized code for the posted query..
DATA :BEGIN OF BAPITABLE OCCURS 1,
       EDITELEM LIKE TOJTB-EDITELEM,
       FUNCTION LIKE SBAPIS-FUNCTION,
       SHORTTEXT    LIKE TFTIT-STEXT,
       END OF BAPITABLE.
          SELECT     EDITELEM INTO (BAPITABLE-EDITELEM)
                               FROM TOJTB
                               WHERE APPLIC = APPLICATIONCODE
                               AND MODELONLY = 'R'
                               and ACTIVE = 'X'.
          SELECT FUNCTION INTO (BAPITABLE-FUNCTION)
                          FROM SBAPIS
                          WHERE OBJECT = JEDITELEM.
         SELECT STEXT INTO (BAPITABLE-SHORTTEXT)
                      FROM TFTIT
                      WHERE SPRAS = 'EN' AND FUNCNAME = BAPITABLE-FUNCTION.
                     APPEND BAPITABLE.
                         ENDSELECT.
               ENDSELECT.
       ENDSELECT.
waiting for ur replies....
RESHALI

Hi
i'm giving you a sample code please change according to your requiirement.
I've taken required fields from 3 different tables and put them in one internal table.
please see the following code.
types : begin of ty_kna1,
         kunnr type kna1-kunnr,
         name1 type kna1-name1,
         vbeln type vbap-vbeln,
         erdat type vbak-erdat,
       end of ty_kna1.
data : it_kna1 type table of ty_kna1,
       wa_kna1 type ty_kna1.
data : it_fieldcat type slis_t_fieldcat_alv,
       wa_fieldcat type slis_fieldcat_alv.
start-of-selection.
select kkunnr kname1 v1erdat v2vbeln
into corresponding fields of table it_kna1
from ( ( kna1 as k
    inner join vbak as v1 on kkunnr = v1kunnr )
    inner join vbap as v2 on v1vbeln = v2vbeln )
    up to 100 rows.
Reward if helpful
Regards
Lakshman

Please help me to modify the following code !

Similar Messages

Maybe you are looking for