Urgent need of code for abap hr program

Hi,
Can any one provide with coding to calculate the leave balance for employee
for a given period. Its very urgent.
Thanks in advance,
Subha

Hi
See this sample code for calculation of absence quota
using 2001 and 2006 infotypes
make changes as per your requirement
REPORT zh_absence_quota
       NO STANDARD PAGE HEADING
       MESSAGE-ID zh_msg
       LINE-SIZE 169
       LINE-COUNT 60(1).
               T A B L E S D E C L A R A T I O N S
TABLES:    pernr,    " Logical PNP
           t001p,    " Personnel Subarea
           t529u,    " Employment Status
           t500p,    " Personnel Area
           t501,     " Employee Group
           t503k,    " Employee Subgroup
           t549a,    " Payroll Area
           t554s,    " Absence Type
           t554t,    " Absence Type Texts
           t556a,    " Quota Type
           t527x,    " Orgn. Unit
           t556b,    " Quota Type Text
           pa0003.   " Payroll Status
INFOTYPES:
           0000,   " Actions
           0001,   " Organizational Assignment
           2006,   " Absence Quota
           2001.   " Absences
               T Y P E S D E C L A R A T I O N S
Employee Absence Structure
TYPES: BEGIN OF s_2001,
         pernr TYPE persno,       " Personal Number
         awart TYPE awart,        " Absence Type
         subty TYPE subty,        " Sub Type
         endda TYPE endda,        " End date
         begda TYPE begda,        " Begin date
         abrtg TYPE abrtg,        " Absence days
         ename TYPE emnam,        " employee Name
         atext TYPE abwtxt,       " Absence Type Text
       END OF s_2001.
Employee Absence Quota Structure
TYPES: BEGIN OF s_2006,
         pernr TYPE persno,       " Personal Number
         ktart TYPE abwko,        " Absence Quota Type
         year(4) TYPE n,          " Year
         subty TYPE subty,        " Sub Type
         endda TYPE endda,        " End date
         begda TYPE begda,        " Begin date
         anzhl TYPE ptm_quonum,   " Absence Entitlement days
         ename TYPE emnam,        " employee Name
         ktext TYPE kotxt,        " Absence Type Text
         kverb TYPE kverb,        " Deduction Quota days
         anzhb TYPE ptm_quonum,   " Balance days
       END OF s_2006.
Combined Employee Absence and Quota Structure
TYPES: BEGIN OF s_rep,
         pernr TYPE persno,       " Personal Number
         ktart TYPE abwko,        " Absence Quota Type
         year(4) TYPE n,          " Year
         anzhl TYPE ptm_quonum,   " Absence Entitlement days
         kverb TYPE kverb,        " Deduction Quota days
         anzhb TYPE ptm_quonum,   " Balance days
         ktext TYPE kotxt,        " Quota Type Text
         awart TYPE awart,        " Absence Type
         abrtg TYPE abrtg,        " Absence days
         ename TYPE emnam,        " employee Name
         atext TYPE abwtxt,       " Absence Type Text
         endda TYPE endda,        " End date
         begda TYPE begda,        " Begin date
       END OF s_rep.
Declaration of Variables
DATA : gv_atext TYPE abwtxt,              " Absence Type Text
       gv_ktext TYPE kotxt,               " Absence Type Text
       gv_title1   TYPE sylisel,          " Report title
       gv_year(4) TYPE c,                " Year
       gv_mon(2)   TYPE c,                " Month
       gv_hrs    TYPE abwtg,              " Hours
       gv_date   TYPE sydatum,            " Date
       gv_date1 TYPE sydatum,            " Date
       gv_dial.                           " Color flag
Declaration of Constants
CONSTANTS :
c_x      TYPE c VALUE 'X',               " Sign
c_1      TYPE persg   VALUE '1',         " Emp Group
c_pernr(8) TYPE n VALUE '00000000',      " Pernr
c_moabw TYPE moabw   VALUE '01',        " Per SA Grouping
c_mozko TYPE mozko   VALUE '01',        " Per SA Grouping
c_mopgk TYPE mopgk   VALUE '1',         " Emp SGrp Grouping
c_endda TYPE sydatum VALUE '99991231', " End Date
c_val1(2) TYPE c VALUE '31',             " Date Type
c_val2(2) TYPE c VALUE '12',             " Date Type
c_val    LIKE p0041-dar01 VALUE '01',    " Date Type
c_date1 LIKE sy-datum VALUE '18000101'. " Date
     I N T E R N A L T A B L E S D E C L A R A T I O N S
DATA: i_2001 TYPE STANDARD TABLE OF s_2001 WITH HEADER LINE,
      i_2006 TYPE STANDARD TABLE OF s_2006 WITH HEADER LINE,
      i_rep1 TYPE STANDARD TABLE OF s_2006 WITH HEADER LINE,
      i_rep TYPE STANDARD TABLE OF s_rep WITH HEADER LINE.
                 S E L E C T I O N S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_ktart FOR t556a-ktart, " Absence Quota Type
                s_awart FOR t554s-subty. " Absence Type
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-003.   " Quota & Absence
PARAMETERS: p_qa RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-004.   " Quota
PARAMETERS: p_q RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-005.   " Absence
PARAMETERS: p_a RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN END OF BLOCK b2.
                  I N I T I A L I Z A T I O N                        *
INITIALIZATION.
              A T S E L E C T I O N - S C R E E N                   *
AT SELECTION-SCREEN.
Validate the screen fields
PERFORM validate_screen.
               S T A R T - O F - S E L E C T I O N                   *
START-OF-SELECTION.
Selection of Period
PERFORM get_period.
Get PERNR from LDB
GET pernr.
IF p0000-stat2 <> '0'.
Get the data from PA0001,PA2001, PA2006
    PERFORM get_pers_data.
ENDIF.
               T O P - O F - P A G E                                 *
TOP-OF-PAGE.
Header of the List
PERFORM header.
               E N D - O F - P A G E                                 *
Footer
END-OF-PAGE.
IF p_qa = c_x.
Display both Absence and Quota Data
    WRITE /1(188) sy-uline.
ELSEIF p_q = c_x.
Display only Quota Data
    WRITE /1(114) sy-uline.
ELSEIF p_a = c_x.
Display only Absence Data
    WRITE /1(125) sy-uline.
ENDIF.
               E N D - O F - S E L E C T I O N                       *
END-OF-SELECTION.
Combine the Absence and Quota Data
PERFORM append_data.
IF p_qa = c_x.
Display both Absence and Quota Data
    PERFORM display_qa_data.
ELSEIF p_q = c_x.
Display only Quota Data
    PERFORM display_q_data.
ELSEIF p_a = c_x.
Display only Absence Data
    PERFORM display_a_data.
ENDIF.
*&      Form validate_screen
Validation of Selection Screen fields
FORM validate_screen .
Validation of Personnel Number
CLEAR pa0003.
IF NOT pnppernr[] IS INITIAL.
    SELECT pernr
    FROM pa0003 UP TO 1 ROWS
      INTO pa0003-pernr
      WHERE pernr IN pnppernr.
    ENDSELECT.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Incorrect Personnel Number'(006).
    ENDIF.
ENDIF.
Validation of Employee Status
CLEAR t529u.
IF NOT pnpstat2[] IS INITIAL.
    SELECT SINGLE statv
      INTO t529u-statv
      FROM t529u
      WHERE statv IN pnpstat2 AND
            statn = '2' AND
            sprsl = sy-langu.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Invalid Employee Status'(007).
    ENDIF.
ENDIF.
Validation of Personnel Area
CLEAR t500p.
IF NOT pnpwerks[] IS INITIAL.
    SELECT persa
    FROM t500p UP TO 1 ROWS
      INTO t500p-persa
      WHERE persa IN pnpwerks.
    ENDSELECT.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Incorrect Personnel Area'(008).
    ENDIF.
ENDIF.
Validation of Personnel Sub Area
CLEAR t001p.
IF NOT pnpbtrtl[] IS INITIAL.
    SELECT btrtl
    FROM t001p UP TO 1 ROWS
      INTO t001p-btrtl
      WHERE btrtl IN pnpbtrtl.
    ENDSELECT.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Incorrect Personnel Sub Area'(009).
    ENDIF.
ENDIF.
Validation of Employee Group
CLEAR t501.
IF NOT pnppersg[] IS INITIAL.
    SELECT persg
    FROM t501 UP TO 1 ROWS
      INTO t501-persg
      WHERE persg IN pnppersg.
    ENDSELECT.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Incorrect Employee Group'(010).
    ENDIF.
ENDIF.
Validation of Employee Sub Group
CLEAR t503k.
IF NOT pnppersk[] IS INITIAL.
    SELECT persk
    FROM t503k UP TO 1 ROWS
      INTO t503k-persk
      WHERE persk IN pnppersk.
    ENDSELECT.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Incorrect Employee Sub Group'(011).
    ENDIF.
ENDIF.
Validation of Payroll Area
CLEAR t549a.
IF NOT pnpabkrs[] IS INITIAL.
    SELECT abkrs
    FROM t549a UP TO 1 ROWS
      INTO t549a-abkrs
      WHERE abkrs IN pnpabkrs.
    ENDSELECT.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Incorrect Employee Payroll Area'(026).
    ENDIF.
ENDIF.
Validation of Absence Type
CLEAR t554s.
IF NOT s_awart[] IS INITIAL.
    SELECT subty
    FROM t554s UP TO 1 ROWS
      INTO t554s-subty
      WHERE subty IN s_awart AND
            moabw EQ c_moabw AND
            endda EQ c_endda.
    ENDSELECT.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Incorrect Employee Absence Type'(012).
    ENDIF.
ENDIF.
Validation of Absence Quota Type
CLEAR t556a.
IF NOT s_ktart[] IS INITIAL.
    SELECT ktart
    FROM t556a UP TO 1 ROWS
      INTO t556a-ktart
      WHERE ktart IN s_ktart AND
            mopgk EQ c_mopgk AND
            mozko EQ c_mozko AND
            endda EQ c_endda.
    ENDSELECT.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Incorrect Employee Quota Type'(013).
    ENDIF.
ENDIF.
ENDFORM.                  "validate_screen
*&      Form get_period
Get the Correct Period based on Selection screen selection
FORM get_period.
CLEAR: gv_year,gv_mon, gv_date, gv_date1.
gv_year = sy-datum+0(4).
gv_mon = sy-datum+4(2).
IF pnptimr1 = c_x.      " Current Date
    pnpbegda = sy-datum.
    pnpendda = sy-datum.
ELSEIF pnptimr2 = c_x. " Current Month
    CONCATENATE gv_year gv_mon c_val INTO gv_date.
    CONCATENATE gv_year gv_mon c_val1 INTO gv_date1.
    pnpbegda = gv_date.
    pnpendda = gv_date1.
ELSEIF pnptimr3 = c_x. " Current Year
    CONCATENATE gv_year c_val c_val INTO gv_date.
    CONCATENATE gv_year c_val2 c_val1 INTO gv_date1.
    pnpbegda = gv_date.
    pnpendda = gv_date1.
ELSEIF pnptimr4 = c_x. " Upto Today
    pnpbegda = c_date1.
    pnpendda = sy-datum.
ELSEIF pnptimr5 = c_x. " From Today
    pnpbegda = sy-datum.
    pnpendda = c_endda.
ELSE.
    IF ( pnpbegda IS INITIAL AND pnpendda IS INITIAL ).
      pnpbegda = c_date1.
      pnpendda = c_endda.
    ELSEIF pnpbegda IS INITIAL AND NOT pnpendda IS INITIAL.
      pnpbegda = c_date1.
      pnpendda = pnpendda.
    ELSEIF NOT ( pnpbegda IS INITIAL AND pnpendda IS INITIAL ).
      pnpbegda = pnpbegda.
      pnpendda = pnpendda.
    ENDIF.
ENDIF.
ENDFORM.              "get_period
*&      Form get_pers_data
Get the Absence and Quota Data from PA0001,PA2001,PA2006
FORM get_pers_data.
DATA: lv_year1(4) TYPE n,
        lv_year2(4) TYPE n,
        lv_date1 TYPE sydatum,
        lv_date2 TYPE sydatum,
        lv_anzhb TYPE ptm_quonum.   " Last Year Balance days
Get data from Respective Infotypes
rp_provide_from_last p0001 space pnpbegda pnpendda.
Absence Data
LOOP AT p2001 WHERE pernr = pernr-pernr AND
                      begda GE pnpbegda   AND
                      endda LE pnpendda.
    IF p2001-awart IN s_awart.
      i_2001-pernr    = pernr-pernr.
      i_2001-subty    = p2001-subty.
      i_2001-awart    = p2001-awart.
      i_2001-abrtg    = p2001-abrtg.
      i_2001-begda    = p2001-begda.
      i_2001-endda    = p2001-endda.
      READ TABLE p0001 WITH KEY pernr = p2001-pernr.
      i_2001-ename    = p0001-ename.
Get the Absence Type Text
      CLEAR gv_atext.
      SELECT SINGLE atext INTO gv_atext FROM t554t
              WHERE sprsl = sy-langu AND
                    moabw = c_moabw AND
                    awart = p2001-awart.
      IF sy-subrc = 0.
        i_2001-atext = gv_atext.
      ENDIF.
      APPEND i_2001.
      CLEAR i_2001.
    ENDIF.
ENDLOOP.
Quota Data
LOOP AT p2006 WHERE pernr = pernr-pernr AND
                      begda GE pnpbegda   AND
                      endda LE pnpendda.
    IF p2006-ktart IN s_ktart.
      i_2006-pernr    = pernr-pernr.
      i_2006-subty    = p2006-subty.
      i_2006-begda    = p2006-begda.
      i_2006-endda    = p2006-endda.
      i_2006-year     = p2006-endda+0(4).
      i_2006-ktart    = p2006-ktart.
      i_2006-anzhl    = p2006-anzhl.
      i_2006-kverb    = p2006-kverb.
      i_2006-anzhb    = p2006-anzhl - p2006-kverb.
      READ TABLE p0001 WITH KEY pernr = p2001-pernr.
      i_2006-ename    = p0001-ename.
Get the Quota Type Text
      CLEAR gv_ktext.
      SELECT SINGLE ktext INTO gv_ktext FROM t556b
              WHERE sprsl = sy-langu AND
                    mopgk = c_mopgk AND
                    mozko = c_mozko AND
                    ktart = p2006-ktart.
      IF sy-subrc = 0.
        i_2006-ktext = gv_ktext.
      ENDIF.
      APPEND i_2006.
      CLEAR i_2006.
    ENDIF.
ENDLOOP.
For Vacation Quota (80) get the Balance of the Last Year and
add to the Current Year Quota
LOOP AT i_2006.
    IF i_2006-ktart = '80'.
      lv_year1 = i_2006-endda+0(4).
      lv_year2 = lv_year1 - 1.
      CONCATENATE lv_year2 '01' '01' INTO lv_date1.
      CONCATENATE lv_year2 '12' '31' INTO lv_date2.
      LOOP AT p2006 WHERE pernr = i_2006-pernr AND
                          begda GE lv_date1    AND
                          endda LE lv_date2    AND
                          ktart = '80'.
        lv_anzhb = p2006-anzhl - p2006-kverb.
        i_rep1-pernr = i_2006-pernr.
        i_rep1-ktext = i_2006-ktext.
        i_rep1-anzhl = p2006-anzhl.
        i_rep1-kverb = p2006-kverb.
        i_rep1-ename = i_2006-ename.
        i_rep1-begda = p2006-begda.
        i_rep1-endda = p2006-endda.
        i_rep1-anzhb = lv_anzhb.
        i_rep1-ktart = '80'.
        i_rep1-year = lv_year2.
        APPEND i_rep1.
        CLEAR: i_rep1.
      ENDLOOP.
    ENDIF.
    CLEAR: lv_year1, lv_year2,
           lv_date1, lv_date2,lv_anzhb.
ENDLOOP.
SORT i_rep1 BY pernr ktart.
ENDFORM.          "get_pers_data
*&      Form append_data
Put the Absence and Quota Data into one Report Int Table
FORM append_data.
CLEAR:   i_rep.
REFRESH: i_rep.
SORT i_2001 BY pernr awart.
SORT i_2006 BY pernr ktart year.
Move I_REP1 data into i_2006
LOOP AT i_rep1.
    MOVE-CORRESPONDING i_rep1 TO i_2006.
    APPEND i_2006.
    CLEAR i_2006.
ENDLOOP.
Move the Absence and Quota Data into a final Int Table
LOOP AT i_2006.
    i_rep-pernr = i_2006-pernr.
    i_rep-ename = i_2006-ename.
    i_rep-ktart = i_2006-ktart.
    i_rep-anzhl = i_2006-anzhl.
    i_rep-kverb = i_2006-kverb.
    i_rep-ktext = i_2006-ktext.
    i_rep-anzhb = i_2006-anzhb.
    i_rep-year = i_2006-year.
    CLEAR i_2001.
    CASE i_2006-ktart.
      WHEN '81'.
        PERFORM get_2001 USING i_2006-pernr '1000' i_2006-year.
      WHEN '50'.
        PERFORM get_2001 USING i_2006-pernr '1002' i_2006-year.
      WHEN '80'.
        PERFORM get_2001 USING i_2006-pernr '1001' i_2006-year.
      WHEN '56'.
        PERFORM get_2001 USING i_2006-pernr '1003' i_2006-year.
      WHEN '51'.
        PERFORM get_2001 USING i_2006-pernr '1004' i_2006-year.
      WHEN '52'.
        PERFORM get_2001 USING i_2006-pernr '1005' i_2006-year.
      WHEN '54'.
        PERFORM get_2001 USING i_2006-pernr '1006' i_2006-year.
      WHEN '53'.
        PERFORM get_2001 USING i_2006-pernr '1007' i_2006-year.
      WHEN '55'.
        PERFORM get_2001 USING i_2006-pernr '1008' i_2006-year.
      WHEN '57'.
        PERFORM get_2001 USING i_2006-pernr '1009' i_2006-year.
      WHEN '90'.
        PERFORM get_2001 USING i_2006-pernr '2000' i_2006-year.
      WHEN '58'.
        PERFORM get_2001 USING i_2006-pernr '2001' i_2006-year.
      WHEN '59'.
        PERFORM get_2001 USING i_2006-pernr '2002' i_2006-year.
      WHEN '91'.
        PERFORM get_2001 USING i_2006-pernr '2003' i_2006-year.
    ENDCASE.
    IF sy-subrc <> 0.
      APPEND i_rep.
    ENDIF.
    CLEAR i_rep.
ENDLOOP.
SORT i_rep BY pernr ktart year.
DELETE i_rep WHERE pernr = ' '.
ENDFORM.              " append_data
*&      Form display_qa_data
Display the Absence and Quota Data
FORM display_qa_data.
DATA: lv_flag,                   " New Flag
        lv_tot2 TYPE ptm_quonum.   " Absence Balance days
IF i_rep[] IS INITIAL.
    MESSAGE i000 WITH 'No Data found'(014).
ELSE.
    LOOP AT i_rep.
toggle color
      PERFORM toggle_color.
      IF lv_flag <> space.
        NEW-LINE.
      ENDIF.
      AT NEW pernr.
        READ TABLE i_rep INDEX sy-tabix.
        WRITE:/1 sy-vline,2(8) i_rep-pernr,
          10 sy-vline,11(40)   i_rep-ename.
      ENDAT.
      AT NEW ktart.
        READ TABLE i_rep INDEX sy-tabix.
        WRITE: 1 sy-vline, 10 sy-vline,
          51 sy-vline,52(25)   i_rep-ktext.
      ENDAT.
      AT NEW year.
        READ TABLE i_rep INDEX sy-tabix.
        WRITE: 1 sy-vline, 10 sy-vline,
              51 sy-vline,
              77 sy-vline, 78(4) i_rep-year,
              82 sy-vline, 83(11) i_rep-anzhl,
              94 sy-vline, 95(25) i_rep-atext,
             120 sy-vline,133 sy-vline,
             144 sy-vline,
             155 sy-vline,156(13) i_rep-anzhb,
             169 sy-vline.
      lv_tot2 = lv_tot2 + i_rep-anzhb.
      ENDAT.
      WRITE: 1 sy-vline, 10 sy-vline,
            51 sy-vline, 77 sy-vline,
            82 sy-vline, 94 sy-vline,
           120 sy-vline,121(12) i_rep-abrtg NO-ZERO,
           133 sy-vline,134(10) i_rep-begda NO-ZERO,
           144 sy-vline,145(10) i_rep-endda NO-ZERO,
           155 sy-vline,169 sy-vline.
      NEW-LINE.
      AT END OF pernr.
        WRITE : /1(169) sy-uline.
        SUM.
        FORMAT COLOR 3.
        WRITE:/1 sy-vline,   10 sy-vline,
              51 sy-vline,   77 sy-vline,
              82 sy-vline,   94 sy-vline,
             120 sy-vline,121(12) i_rep-abrtg,
             133 sy-vline,144 sy-vline,
             155 sy-vline, 156(13) lv_tot2,
             169 sy-vline.
        FORMAT COLOR OFF.
        WRITE : /1(169) sy-uline.
        CLEAR lv_tot2.
      ENDAT.
    ENDLOOP.
ENDIF.
ENDFORM.              " display_qa_data
*&      Form display_q_data
Display only the Quota Data
FORM display_q_data.
DATA: lv_flag.               " New Flag
SORT i_2006 BY pernr ktart year.
IF i_2006[] IS INITIAL.
    MESSAGE i000 WITH 'No Data found'(014).
ELSE.
    LOOP AT i_2006.
Toggle Color
      PERFORM toggle_color.
      IF lv_flag <> space.
        NEW-LINE.
      ENDIF.
      AT NEW pernr.
        READ TABLE i_2006 INDEX sy-tabix.
        WRITE: /1 sy-vline, 2(8) i_2006-pernr,
               10 sy-vline,11(40) i_2006-ename.
      ENDAT.
      AT NEW ktart.
        READ TABLE i_2006 INDEX sy-tabix.
        WRITE: 1 sy-vline,10 sy-vline,
              51 sy-vline,52(25) i_2006-ktext.
      ENDAT.
      AT NEW year.
        READ TABLE i_2006 INDEX sy-tabix.
        WRITE: 1 sy-vline, 10 sy-vline,
              51 sy-vline,
              77 sy-vline,78(4) i_2006-year,
              82 sy-vline,83(11) i_2006-anzhl,
              94 sy-vline,95(13) i_2006-anzhb,
             108 sy-vline.
        NEW-LINE.
      ENDAT.
      AT END OF pernr.
        WRITE : /1(108) sy-uline.
        SUM.
        FORMAT COLOR 3.
        WRITE: /1 sy-vline, 10 sy-vline,
               51 sy-vline,
               77 sy-vline, 82 sy-vline,
               94 sy-vline, 95(13) i_2006-anzhb,
              108 sy-vline.
        FORMAT COLOR OFF.
        WRITE : /1(108) sy-uline.
      ENDAT.
    ENDLOOP.
ENDIF.
ENDFORM.              " display_q_data
*&      Form display_a_data
Display Only the Absence Quota
FORM display_a_data.
DATA: lv_flag.               " New Flag
SORT i_2001 BY pernr awart.
IF i_2001[] IS INITIAL.
    MESSAGE i000 WITH 'No Data found'(014).
ELSE.
    LOOP AT i_2001.
Toggle Color
      PERFORM toggle_color.
      IF lv_flag <> space.
        NEW-LINE.
      ENDIF.
      AT NEW pernr.
        READ TABLE i_2001 INDEX sy-tabix.
        WRITE: /1 sy-vline, 2(10) i_2001-pernr,
               10 sy-vline,11(40) i_2001-ename.
      ENDAT.
      WRITE: 1 sy-vline, 10 sy-vline,
              51 sy-vline,52(25) i_2001-atext,
              77 sy-vline,78(12) i_2001-abrtg,
              90 sy-vline,91(10) i_2001-begda,
             101 sy-vline,102(10) i_2001-endda,
             112 sy-vline.
      NEW-LINE.
      AT END OF pernr.
        WRITE : /1(112) sy-uline.
        SUM.
        FORMAT COLOR 3.
        WRITE: /1 sy-vline, 10 sy-vline,
               51 sy-vline,
               77 sy-vline,78(12) i_2001-abrtg,
               90 sy-vline,101 sy-vline,
              112 sy-vline.
        FORMAT COLOR OFF.
        WRITE : /1(112) sy-uline.
      ENDAT.
    ENDLOOP.
ENDIF.
ENDFORM.              " display_a_data
*&      Form header
Write the Report Header
FORM header .
data : lv_pers type pbtxt,
         lv_orgn type orgtx.
gv_title1 = sy-title.              " Set List Header
IF p_qa = c_x.
    NEW-PAGE LINE-SIZE 193.
ELSEIF p_a = c_x.
    NEW-PAGE LINE-SIZE 125.
ELSEIF p_q = c_x.
    NEW-PAGE LINE-SIZE 119.
ENDIF.
Standard header
FORMAT RESET.
CALL FUNCTION 'Z_STANDARD_HEADER'
    EXPORTING
      title1 = gv_title1.
Get the Personal Area and Org.Unit Texts
clear : lv_pers,lv_orgn.
select single name1 into lv_pers
    from t500p where persa = pnpwerks-low.
select single orgtx into lv_orgn
    from t527x where sprsl = sy-langu and
                     orgeh = pnporgeh-low and
                     endda = c_endda.
if not lv_pers is initial.
    write : /2 'Personal Area:'(017), 17(25) lv_pers color 7.
endif.
if not lv_orgn is initial.
    write : /2 'Organization Unit:'(021), 20(25) lv_orgn color 3.
endif.
IF p_qa = c_x.
    FORMAT COLOR COL_HEADING.
    WRITE : /1(169) sy-uline.
    WRITE:/1 sy-vline,2(8)    'Emp.No'(015) CENTERED,
          10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
          51 sy-vline,52(25) 'Quota Description'(018) CENTERED,
          77 sy-vline,78(4)   'Year'(027),
          82 sy-vline,83(11) 'Entitlement'(019),
          94 sy-vline,95(25) 'Absence Description'(022) CENTERED,
         120 sy-vline,121(12) 'Absence days'(023),
         133 sy-vline,134(10) 'From Date'(024),
         144 sy-vline,145(10) 'To Date'(025),
         155 sy-vline,156(13) 'Quota Balance'(020),
         169 sy-vline.
    WRITE : /1(169) sy-uline.
ELSEIF p_q = c_x.
    FORMAT COLOR COL_HEADING.
    WRITE : /1(108) sy-uline.
    WRITE:/1 sy-vline,2(8)   'Emp.No'(015) CENTERED,
          10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
          51 sy-vline,52(25) 'Quota Description'(018) CENTERED,
          77 sy-vline,78(4) 'Year'(027),
          82 sy-vline,83(11) 'Entitlement'(019),
          94 sy-vline,95(13) 'Quota Balance'(020),
         108 sy-vline.
    WRITE : /1(108) sy-uline.
ELSEIF p_a = c_x.
    FORMAT COLOR COL_HEADING.
    WRITE : /1(112) sy-uline.
    WRITE:/1 sy-vline,2(8)    'Emp.No'(015) CENTERED,
          10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
          51 sy-vline,52(25) 'Absence Description'(022) CENTERED,
          77 sy-vline,78(12) 'Absence days'(023),
          90 sy-vline,91(10) 'From Date'(024),
         101 sy-vline,102(10) 'To Date'(025),
         112 sy-vline.
    WRITE : /1(112) sy-uline.
ENDIF.
ENDFORM.                    " header
*&      Form toggle_color
This routine alters the color of the records in the list
FORM toggle_color.
IF gv_dial = space.
    FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
    gv_dial = c_x.
ELSE.
    FORMAT COLOR 1 INTENSIFIED OFF.
    CLEAR gv_dial.
ENDIF.
ENDFORM.                    " toggle_color
*&      Form get_2001
Get the ABsence type for each Quota type
FORM get_2001 USING p_pernr TYPE persno
                    p_value TYPE awart
                    p_year.
LOOP AT i_2001 WHERE pernr = p_pernr AND
                       awart = p_value AND
                       endda+0(4) = p_year.
    i_rep-awart = i_2001-awart.
    i_rep-abrtg = i_2001-abrtg.
    i_rep-atext = i_2001-atext.
    i_rep-begda = i_2001-begda.
    i_rep-endda = i_2001-endda.
    APPEND i_rep.
ENDLOOP.
ENDFORM.                                                    " get_2001
<b>
Reward points for useful Answers</b>
Regards
Anji

Similar Messages

I need ready code for a simple paint program today

hi all I need ready code for a simple paint program today for me ics projct
plz give me a halp on this give me what you have with you and it is so good if it look like this :
Design a GUI based drawing Java application that works like a simple paint program
1-There should be a number of buttons for choosing different shapes to draw. For example, there should be a button for rectangle. If user presses the rectangle button, then he can draw a rectangle using mouse. Similarly, there should be a button for each shape(rectangle, circle, ellipse, and line etc.
2-The shapes can be filled with different colors.
3-There should be option of moving .
4- There should also be three menus including File, Shape, and Color menu.
i. File menu can have menu items New and Exit. If user selects New, the drawing area will be cleared and all shapes will be erased.
ii. Shape menu will serve the same purpose as of feature 2 described above. It will have menu items for drawing all the different shapes. For example, there will be menu item for rectangle; so user can draw a rectangle by selecting the menu item for rectangle.
iii. Color menu will serve the same purpose as of feature 3 described above. It will have menu items for all the colors which are shown in color buttons. The user can select a color from this menu and then click inside a shape to fill it with the selected color.

Read the Swing tutorial. There are sections on how to use menus and painting and all other kinds of stuff you need to do this homework assignment. Nobody here is going to write the code for you:
http://java.sun.com/docs/books/tutorial/uiswing/TOC.html

T.code for ABAP Varaints

Hi,
Can anybody tell me the transaction code for ABAP varaints.
In Se38 , Giving a program name and selecting the radiobutton varaints and click on display.
We get varaints screen. I need the transaction code for that screen.
Regards,
Sai

Hi,
This screen is only called from function module RS_VARIANT_SCREEN (easily found by using 'where-used'). This in turn is called from a number of places (SE38, SA38 etc) but I don't know of a transaction that goes to the variant screen directly.
After all, the screen is only used if you populate the program name first, like in SE38 for example.
Regards,
Nick

Need a code for Customer exit for extractor 0WBS_ELEMT_ATTR

Hi Guys,
I need a code for following requirement.
I have appended some fields to standard extractor 0WBS_ELEMT_ATTR which normally takes data from PRPS table. But the new fields will be getting data from PRTE and PROJ table. with common keys. Following is my code which is not working. Please help me out, I am not good in abap. Please note some lines are commented.
Thanks,
H
CODE:::::
form 0wbs_elemt_attr tables i_t_data structure biw_prps.
data: it_wbs_prps like biw_prps occurs 0.
data wa_prps like it_wbs_prps.
data: begin of it_wbs_prps occurs 0,
         PSPNR like prps-pspnr,
         POSID like prps-posid,
         PBUKR like prps-PBUKR,
         IZWEK like prps-IZWEK,
         USR10 like prps-USR10,
         USR00 like prps-USR00,
         USR02 like prps-USR02,
         OBJNR like prps-OBJNR,
       end of it_wbs_prps.
data wa_prps like it_wbs_prps.
data: begin of it_wbs_prps1 occurs 0,
          PSPNR like prps-pspnr,
          POSID like prps-posid,
        end of it_wbs_prps1.
data wa_prps1 like it_wbs_prps1.
data: begin of it_wbs_prte occurs 0,
          posnr like prte-posnr,
          PSTRT like prte-PSTRT,
          PENDE like prte-PENDE,
          ESTRT like prte-ESTRT,
          EENDE like prte-EENDE,
          ISTRT like prte-ISTRT,
          IENDE like prte-IENDE,
        end of it_wbs_prte.
data wa_prte like it_wbs_prte.
data: begin of it_wbs_proj occurs 0,
          PSPNR like proj-pspnr,
          PLFAZ like proj-plfaz,
          PLSEZ like proj-plsez,
        end of it_wbs_proj.
data wa_proj like it_wbs_proj.
refresh: it_wbs_prte, it_wbs_proj.
*it_wbs_jest.
if i_t_data[] is not initial.
Get data from PRPS WBS Master Data
     select pspnr posid PBUKR IZWEK USR10 USR00 USR02 objnr
       into corresponding fields of table it_wbs_prps
       from prps
        for all entries in i_t_data
      where POSID = i_t_data-POSID.
     sort it_wbs_prps by posid.
Get data from PRPS1 WBS Master Data
      select pspnr posid
       into corresponding fields of table it_wbs_prps1
        from prps
        for all entries in i_t_data
     where POSID = i_t_data-POSID.
    sort it_wbs_prps1 by posid.
Get data from PRTE Scheduling Data for Project Item
     if it_wbs_prps1[] is not initial.
     select posnr PSTRT PENDE ESTRT EENDE ISTRT IENDE
       into corresponding fields of table it_wbs_prte
       from prte
        for all entries in it_wbs_prps1
      where posnr = it_wbs_prps1-pspnr.
     sort it_wbs_prte by posnr.
     endif.
Get data from PROJ Project Master Data
     if it_wbs_prps1[] is not initial.
     select pspnr PLFAZ PLSEZ
       into corresponding fields of table it_wbs_proj
       from proj
       for all entries in it_wbs_prps
      where pspnr = it_wbs_proj-pspnr.
     sort it_wbs_proj by pspnr.
     endif.
loop at i_t_data.
   clear: wa_prps1, wa_prte, wa_proj.
   read table it_wbs_prps into wa_prps with key
              posid = i_t_data-posid binary search.
   read table it_wbs_prte into wa_prte with key
              posnr = wa_prps1-pspnr.
   read table it_wbs_proj into wa_proj with key
              pspnr = it_wbs_proj-pspnr.
         i_t_data-zzPBUKR = wa_prps-pbukr.
         i_t_data-zzIZWEK = wa_prps-IZWEK.
         i_t_data-zzUSR10 = wa_prps-USR10.
         i_t_data-zzUSR00 = wa_prps-USR00.
         i_t_data-zzUSR02 = wa_prps-USR02.
          i_t_data-zzPSTRT = wa_prte-PSTRT.
          i_t_data-zzPENDE = wa_prte-PENDE.
          i_t_data-zzESTRT = wa_prte-ESTRT.
          i_t_data-zzEENDE = wa_prte-EENDE.
          i_t_data-zzISTRT = wa_prte-ISTRT.
          i_t_data-zzIENDE = wa_prte-IENDE.
          i_t_data-zzPLFAZ = wa_proj-PLFAZ.
          i_t_data-zzPLSEZ = wa_proj-PLSEZ.
    modify i_t_data.
endloop.
endif.
endform.                    " 0wbs_elemt_attr

Hi,
it_wbs_prps1 .
If you are going to use this internal table to check for a null condition, shouldn't you first assign the data package to it?
For example,   it_wbs_prps1 = i_t_data[].
Because you are now using it_wbs_prps1 to select data from a table and it doesn't have any data.
Please check.
-RMP
Edit : Please ignore this. I didn't see that you are actually filling the internal table. Sorry!
Edited by: RMP on Oct 18, 2010 12:16 PM

Need a code for finding prime no.s from 0 to 100.

Hi,
i need a code for finding prime no.s from 0 to 100.
Please help me out.
Regards,
Santosh Kotra.

hai santosh,
here is an example program to find the prime number...........
EXAMPLE:
DATA: BEGIN OF primes OCCURS 0,
        number TYPE i,
        exp    TYPE i,
      END OF primes.
DATA: w_mult TYPE i,
      w_limi TYPE i,
      w_prem TYPE i.
DATA: w_outp TYPE text132.
DATA: w_rtime TYPE i,
      w_stime TYPE p DECIMALS 3.
DEFINE add_part.
sy-fdpos = strlen( &1 ) + 1.
&1+sy-fdpos(*) = &2.
condense &1.
END-OF-DEFINITION.
PARAMETERS: p_numb TYPE i,                "number to check
            p_fact TYPE c AS CHECKBOX,    "display components
            p_nbpr TYPE c AS CHECKBOX.    "nb of primes
START-OF-SELECTION.
GET RUN TIME FIELD w_rtime.
IF p_nbpr IS INITIAL OR p_numb LE 12000.
    PERFORM eratostene USING p_numb.
    add_part w_outp p_numb.
    READ TABLE primes WITH KEY number = p_numb.
    IF sy-subrc = 0.
      add_part w_outp 'is prime'.
    ELSE.
      IF p_fact IS INITIAL.
        add_part w_outp 'is not prime'.
      ELSE.
        add_part w_outp '='.
        w_limi = p_numb.
        LOOP AT primes WHERE exp GT 0.
          CHECK primes-number LE w_limi.
          IF w_prem GT 0.
            add_part w_outp '*'.
          ENDIF.
          IF primes-exp GT 1.
            add_part w_outp '('.
            add_part w_outp primes-number.
            add_part w_outp '^'.
            add_part w_outp primes-exp.
            add_part w_outp ')'.
          ELSE.
            add_part w_outp primes-number.
          ENDIF.
          w_limi = w_limi / ( primes-number ** primes-exp ).
          IF w_limi = 1.
            EXIT.
          ENDIF.
          w_prem = 1.
        ENDLOOP.
      ENDIF.
    ENDIF.
    WRITE: / w_outp.
    IF NOT p_nbpr IS INITIAL.
      DESCRIBE TABLE primes LINES sy-tmaxl.
      CLEAR: w_outp.
      add_part w_outp 'Number of primes:'.
      add_part w_outp sy-tmaxl.
      WRITE: / w_outp.
      SKIP.
      LOOP AT primes.
        WRITE: / primes-number.
      ENDLOOP.
    ENDIF.
ELSE.
    PERFORM factors.
ENDIF.
GET RUN TIME FIELD w_rtime.
w_stime = w_rtime / 1000000.
SKIP.
CLEAR: w_outp.
add_part w_outp 'Calculation time:'.
add_part w_outp w_stime.
WRITE: / w_outp.
      FORM eratostene                                               *
FORM eratostene USING in_number TYPE i.
DATA: BEGIN OF no_primes OCCURS 0,
          number TYPE i,
        END OF no_primes.
DATA: cnum TYPE i,
        dnum TYPE i,
        limi TYPE i,
        mult TYPE i,
        puis TYPE i,
        cmod TYPE i.
IF NOT ( p_fact IS INITIAL AND p_nbpr IS INITIAL ).
    limi = in_number.
ELSE.
    limi = sqrt( in_number ).
ENDIF.
cnum = 2.
WHILE cnum LE limi.
    READ TABLE no_primes WITH KEY number = cnum.
    IF sy-subrc NE 0.
      primes-number = cnum.
      mult = 2.
      puis = 1.
      dnum = mult * cnum.
      WHILE dnum LE in_number.
        READ TABLE no_primes WITH KEY number = dnum.
        IF sy-subrc NE 0.
          no_primes-number = dnum.
          APPEND no_primes.
        ENDIF.
        IF NOT p_fact IS INITIAL.
          cmod = dnum MOD ( cnum ** puis ).
          IF cmod = 0.
            cmod = in_number MOD ( cnum ** puis ).
            IF cmod = 0.
              primes-exp = puis.
              puis = puis + 1.
            ENDIF.
          ENDIF.
        ENDIF.
        mult = mult + 1.
        dnum = mult * cnum.
      ENDWHILE.
      APPEND primes.
      CLEAR: primes.
    ENDIF.
    cnum = cnum + 1.
ENDWHILE.
ENDFORM.
      FORM factors                                                  *
FORM factors.
DATA: ex_factors TYPE string,
        mod        TYPE i,
        still      TYPE f,
        factor     TYPE i,
        exponent   TYPE i,
        square     TYPE f,
        fac_string TYPE text40,
        exp_string TYPE text40.
IF p_numb LE 3.
    ex_factors = p_numb.
ELSE.
    factor = 2.
    still = p_numb.
    DO.
      CLEAR: exponent.
      mod = still MOD factor.
      WHILE mod = 0.
        exponent = exponent + 1.
        still    = still div factor.
        mod      = still MOD factor.
      ENDWHILE.
      IF exponent EQ 1.
        fac_string = factor.
        CONCATENATE ex_factors '*' fac_string
                               INTO ex_factors
                       SEPARATED BY space.
        CONDENSE ex_factors.
      ELSEIF exponent GT 1.
        fac_string = factor.
        exp_string = exponent.
        CONCATENATE ex_factors '* (' fac_string
                               '^'   exp_string ')'
                               INTO ex_factors
                       SEPARATED BY space.
        CONDENSE ex_factors.
      ENDIF.
      factor = factor + 1.
      square = factor ** 2.
      IF square GT still.
        EXIT.
      ENDIF.
    ENDDO.
    IF still GT 1.
      CATCH SYSTEM-EXCEPTIONS convt_overflow = 1.
        fac_string = factor = still.
      ENDCATCH.
      IF sy-subrc NE 0.
        fac_string = still.
      ENDIF.
      CONCATENATE ex_factors '*' fac_string
                            INTO ex_factors
                    SEPARATED BY space.
      CONDENSE ex_factors.
    ENDIF.
    SHIFT ex_factors UP TO '*'.
    SHIFT ex_factors BY 2 PLACES.
ENDIF.
WRITE: / p_numb RIGHT-JUSTIFIED.
IF ex_factors CA '*^'.
    WRITE: '=', ex_factors.
ELSE.
    WRITE: 'is prime'.
ENDIF.
ENDFORM.
HOPE THIS WILL BE HELPFULL.
regards
praba.

I need a code for verifiing my emailadress. How do get a new one ?

Photoshop Elements 12
Share
Try to send email directly from Photoshop elements
The program ask for a code to verifiing my emailadress
I need a code for verifiing my emailadress. How do get a new one ?

Check your email. The screen capture says that they sent one to the email address listed.

URGENTLY REQUIRE A CODE FOR FOLLOWING--WOULD BE GREAT HELP

HOW TO VALIDATE XML FILE USING SAX PARSER WITH SCHEMAS like .XSD FILES

Mankjas wrote:
URGENTLY REQUIRE A CODE FOR FOLLOWING--WOULD BE GREAT HELPNo, it wouldn't be a great help, as the next time you needed to do something like this you'd still be lost.
And no one here is just simply going to give you code anyway. We'll help you correct yours, and give you advice and tips, but we are not going to do your work for you. And urgent it is not, not to us. And your insisting that it is, is rude. We definately are not going to drop everything we might be doing to "help" you, especially when your essentially demanding that we do your work for you, with no effort on your part, besides.

I Need Java code for following Algorithm

* I Need Java code for following algorithm. Kindly any one help.
1. Read the contents (ideas and its corresponding scores) from two files named as 'a' and 'b'.
2. Stored the file 'a' contents in array a[].
3. Stored the file 'b' contents in array b[].
4. compare both files like
if(a.equals(b[j])
Writing the common idea and add the score from file 'a' and 'b'.
else
write the uncommon idea and its score..
For example :
Form Agents.txt
action,65
architecture,85
eco-,15
essay,30
form,85
form,85
link,40
tangent,25
Form Agents1.txt
Black holes,69
essay,78
Herewith i have above mentioned two files named as Form Agents and Form Agents1.
Form Agents has eight fields
Form Agents1 has two fields
--> 'essay' is common in two files, so store the idea 'essay' and add the score from Form Agents score is '30' and Form Agents1 has 78 (essay 108).
Finally it stores idea in another file with uncommon fields also.
Please help us.

We have tried with following code.
But we cant add the scores.
For Example:
Form Agents.txt --> has "essay,30"
Form Agents1.txt --> has "essay,78"
Result is: essay,108
Finally it stores idea in another file with uncommon fields also.
So Any one pls correct the following code.
try
DataOutputStream o1=new DataOutputStream(new
FileOutputStream("C:\\Interfaces\\interfaces\\temp\\BlackBoard\\My Design
World\\Project\\Material\\art\\System Agents\\Form Agents\\CandidateResponses\\Form
Agents.txt"));
//Reading the contents of the files
BufferedReader br= new BufferedReader(new InputStreamReader(new
FileInputStream("C:\\Interfaces\\interfaces\\temp\\BlackBoard\\My Design
World\\Project\\Material\\art\\System Agents\\Form Agents\\Ideological\\Form
Agents.txt")));
BufferedReader br1= new BufferedReader(new InputStreamReader(new
FileInputStream("C:\\Interfaces\\interfaces\\temp\\BlackBoard\\My Design
World\\Project\\Material\\art\\System Agents\\Form Agents\\Related\\Form
Agents.txt")));
while((s=br.readLine())!=null)
s1+=s+"\n";
while((s2=br1.readLine())!=null)
s3+=s2+"\n";
int numTokens = 0;
StringTokenizer st = new StringTokenizer(s1);
String[] a = new String[10000];
String[] br_n=new String[10000];
int i=0;
while (st.hasMoreTokens())
s2 = st.nextToken();
a=s2.substring(0,s2.length()-3);
s6=s2.substring(s2.length()-2);
br_n[i]=s6;
i++;
numTokens++;
int numTokens1 = 0;
StringTokenizer st1 = new StringTokenizer (s3);
String[] b = new String[10000];
String[] br1_n=new String[1000];
int j=0;
while (st1.hasMoreTokens())
s4 = st1.nextToken();
b[j]=s4.substring(0,s4.length()-3);
s7=s4.substring(s4.length()-2);
br1_n[j]=s7;
j++;
numTokens1++;
int x=0;
for(int m=0;m<a.length;m++)
for(int n=0;n<b.length;n++)
if(a[m].equalsIgnoreCase(b[n])){
int sc=Integer.parseInt(br_n[m]);
int sc1=Integer.parseInt(br1_n[n]);
int score=sc+sc1;
o.writeBytes(a[m]+","+score+"\n");
break;
else
o.writeBytes(a[m]+","+br_n[m]+"\n");
break;
}catch(Exception e){}

I need php code for copy paste our all histroy of browser in a text page.

I need php code for copy paste our all histroy of browser in a text page can any one send me the code please.

You can use an application like GarageSale for doing this....
http://www.macupdate.com/info.php/id/16035/garagesale

Why I need a code for rent a film and where ist the code? (I dont have a card)

Why I need a code for rent a film and where ist the code? (I dont have a card)

it's unclear what you mean
you say you dont have a card which I guess is you don't have a creditcard
in which case the other option is to pay by a giftcard which include a code which you put in
because to rent you have to pay otherwise it's not really renting

Need T.Code for "Classify G/L Accounts for Document Splitting"

Hi All,
I need the T.Code Document Splitting "Classify G/L Accounts for Document Splitting"
Menu Path is:
IMG-Fin. A/c- General Ledger A/c- Business transaction - Document Splitting - Classify G/L Accounts for Document Splitting
Thanks & Regards,
Mohan.

Need T.Code for "Define Document Splitting characteristics for G/L Accounting and
Define Document Splitting method

Access code for abap

Hi everyone,
Can you please guys post the access code for abap to mscagin at yahoo com
thanks
sri

What do you mean by access code? Is this the same as a developer key?

Hello sir,i need labview code for a code which is written in matlab,latter one is attached with this message.

hello sir,i need labview code for a code which is written in matlab...
clc;
close all;
clear all;
Ez= zeros(1,200);
Hy=zeros(1,200);
Ca=1;
Cb=.4519;
n=1;
while(n<1500)
for k = 2:200
Ez(k)=Ez(k) + Cb*(Hy(k)-Hy(k-1));
end
Ez(1)=1;
for k=1:199
Hy(k)=Hy(k)+Cb*(Ez(k+1)-Ez(k));
end
plot(Ez,'b')
hold on
plot(Hy,'r')
hold off
pause(0.001);
n=n+1;
end
thanku

Well, this code is quite trivial and if you have to learn LabVIEW anyway, you might as well try to implement it.
A few things to remember:
The first array element in LabVIEW has index #0, while in matlab it has index #1, so everything dealing with array indices needs to be adjusted slightly.
The zeroes function equivalent is "initialize array".
Keep the array in a shift register as you update elements.
use FOR loops.
Use one of the graphs to display the data.
LabVIEW Champion . Do more with less code and in less time .

I need activation code for my ipad

PLeas i need activation code for my ipad becouse i cant open it ana i know the apple id and password

Only the person who initiated the Activation Lock can remove it. if purchased used/2cd hand,
contact the seller for assistance. This is what they need to do:
Prepare your device to sell or give away
If seller refuses or cannot be contacted, the iPad is useless. There is no workaround for
Activation Lock.
iCloud: Find My iPhone Activation Lock in iOS 7 & later
http://support.apple.com/kb/HT5818?viewlocale=en_US&locale=en_US
http://support.apple.com/kb/TS4515
If you are the original purchaser, gather up proof of purchase and take that proof + the iPad
to a physical Apple store where they may be able to assist you.
What is the exact complete wording of the error message you are receiving?

I need java code for chating application

i need java code for chating application. plz help me

GANGINENI wrote:
i need java code for chating application. plz help meGIYF.
[http://today.java.net/pub/a/today/2006/10/05/instant-messaging-for-jabber-with-smack.html|http://today.java.net/pub/a/today/2006/10/05/instant-messaging-for-jabber-with-smack.html]
File under: lern2Google

Urgent need of code for abap hr program

Similar Messages

Maybe you are looking for