Do 15 times varying problem

Question

hi all,
i have to pic the value of BET01.....BET15 from PA0589 according to PERNR where LGA01 = '4004'.
but i m not able to find the same. can anyone please halp me?
codes:
INFOTYPES: 0589.
DATA : BEGIN OF itab OCCURS 0 ,
       pernr LIKE pa0000-pernr ,                       "Personel no.
END OF itab .
DATA: BEGIN OF wagetypes,
      lga LIKE p0008-lga01,
      bet LIKE p0008-bet01,
  END OF wagetypes.
DATA : BEGIN OF it_itab OCCURS 0 ,
       pernr LIKE pa0000-pernr ,                       "Personel no.
       lga01 LIKE pa0589-lga01,
       bet01 LIKE pa0589-bet01,
       begda LIKE pa0589-begda ,                       "Lta start date
       lgart LIKE pa0015-lgart,                        "SUBTYPE OF INFOTYPE
       endda LIKE pa0015-endda ,                       "LTA Taken Date
       betrg LIKE pa0015-betrg,                        "LTA Amount
       zuord LIKE pa0015-zuord,                        "Assignment number
       ename LIKE pa0001-ename ,                       "Employee name
       ent_amt TYPE p DECIMALS 2,
       pending TYPE p DECIMALS 2,                      "Pending LTA amount
END OF it_itab .
START-OF-SELECTION.
  SELECT pernr INTO TABLE itab FROM pa0000 WHERE pernr IN pernr AND endda = '99991231' AND stat2 = '3'.
SORT itab BY pernr.
LOOP AT itab.
    rp_provide_from_last p0589 space pn-begda pn-endda.
    DO 15 TIMES VARYING wagetypes-lga
              FROM p0589-lga01
              NEXT p0589-lga02
       VARYING wagetypes-bet
              FROM p0589-bet01
              NEXT p0589-bet02.
      IF wagetypes-lga EQ '4004'.
        CLEAR wa_itab.
        MOVE p0589-pernr   TO wa_itab-pernr.
        MOVE p0589-begda   TO wa_itab-begda.
        MOVE wagetypes-lga TO wa_itab-lga01.
        MOVE wagetypes-bet TO wa_itab-bet01.
        APPEND wa_itab TO it_itab.
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.
actually i need amount according to wage type '4004', and this wage type can maintain the value in any colom of table pa0589 as ita define as LGA01....to....LGA15 and respective amount maintained in BET01.....to.....BET15.
so please help me.
regards saurabh.
Edited by: saurabh srivastava on Jan 17, 2009 6:26 AM
Edited by: saurabh srivastava on Jan 17, 2009 6:40 AM
Edited by: saurabh srivastava on Jan 17, 2009 7:22 AM

Answer 1

Hi, Saurabh,
Following code may help you in this way here i am getting wage types 3003, 3004 and 3005.
get payroll.
  clear: p0001.
  rp_provide_from_last p0001 space payroll-evp-fpbeg payroll-evp-fpend.
  if ( payroll-evp-srtza = 'A' ).
    clear: orgeh_val .
    clear: wa_wpbp.
    loop at payroll-inter-wpbp into wa_wpbp ."where pernr = pernr.
      orgeh_val = wa_wpbp-orgeh.
    endloop.
    " Test on orgeh_val to get it's ist level node and 2nd  level node value
    if orgeh_val in department.
      objid_root_level = orgeh_val.
      objid_child_level = orgeh_val.
    else.
      perform get_2_dept using orgeh_val changing objid_root_level objid_child_level.
      objid_root_level = objid_root_level.
      objid_child_level = objid_child_level.
    endif.
    "-------------- End of getting ist level and 2nd level node value---------------------
    "----- Now get it's lgart value-------------->
    loop at payroll-inter-rt into wa_rt where   lgart =  '3003' or lgart =  '3004' or lgart = '3005'.
      if sy-subrc = 0.
        clear wa_it_final.
        "     BREAK-POINT.
        wa_it_final-objid = objid_root_level.
        wa_it_final-orgeh = objid_child_level.
        wa_it_final-tot_emp = 1.
        wa_it_final-amount = wa_rt-betrg.
        collect wa_it_final into it_final.
      endif.
    endloop.
    "BREAK-POINT.
  endif.
Please Reply if any Issue,
Kind Regards,
Faisal