Urgent: Booking code for ABAP ECC 5.0

Hi,
What is the booking code for the ABAP ECC 5.0 cerfication.
Regards
Suresh

There are several one, but it seems it's something TAW12 ot TAW10, probable C_TAW12_04 is relevant for you.
C_TAW12 SAP NW-ABAP Workbench (2003)
C_TAW12_04 SAP NW-Appl.Dev.Focus ABAP
TAW12: ABAP Workbench Concepts
TAW10 ABAP Workbench Fundamentals
Best regards,
Peter

Similar Messages

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?

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

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

Reward points for useful Answers
Regards
Anji

URGENT :T.code for allcoation invocies to down payment made

< per the forum rules, don't use workds such as 'urgent' in the title. thread locked >
Hi Friends,
could you please provide T.code for allocation invoices for down payment.
Can you please give T.code it.s very URGEENT
Thanks in addvance.
Shekar
Edited by: nama chandrashekar on Jun 12, 2008 2:21 PM

hi,
Your question is not clear.
Down payment is down with following t.codes
F-37 - Request
F-29 - Down Payment
F-39 - Clearing
For SAP standard report on downpayments
S_ALR_87012199 - List Of Down Payments Open On Key Date - Customers
Please let me know if you need more information.
Assign points if useful.
Regards
Sridhar M

Urgent Help need for ABAP Custom Process Types

Hi Gurus,
I have created a Custom Process Type for ABAP program which returns status (Success or Failure).
I followed the below procedure to create a custom ABAP process type.
In RSPC, I went to Settings -> Maintain process types
I selected the ABAP process type and then selected the EDIT -> COPY AS and then in the process chain configuration screen, I gave a new name to the process type, changed the POSSIBLE EVENTS settings to "2 process ends "successful" or "failure" and saved the settings to confirm changes.
Now I can see the new process type for ABAP program which returns the success or failure for the successors.
Now, my question is, where do i write the logic for ABAP program ? how does the ABAP program returns the success or failure. Do I have to change the code in the method IF_RSPC_EXECUTE~EXECUTE to return success or failure. Please make me clear where I can write the code? For example in my ABAP program, I am searching a table to find a specific value. If the value is not found, then the ABAP process type should return failure, if found should return success. How can I do this?
Thanks in advance,
Regards,
aarthi
[email protected]

Hi,
   We have a similar problem. We have an ABAP program in a process chain that
uses a custom process type with on success and on failure.
    If the program is successful there is no problem. it will run the next process step.
    The problem is when the ABAP Program fails and even though the message class is E in our ABAP program it has a confirm popup message with a status change and asks "Save Status and Trigger Events if Appropriate".
     Once you enter Yes to continue it then continues to the next step in the program and is fine.I traced in debug where this status message is appearing. It is in CL_RSPC_LOG. There is a popup_to_confirm_step where it checks the e_status that is value J ( Framework Error upon completion). Then it submits the rspc_process_finish program to complete and call the on error process step.
     Has anyone else experienced this and is there any other documents out there to help me?
Apologies if this is not very clear.
Any assistance would be appreciated.
Thanks
Monica Mandia

How to create Transaction code for ABAP and execution by other user

Hi All,
Could someone please let me know how to create transaction code in detail for ABAP program. Step by step procedure expected. I would like to know how other user can execute the report using same transaction code which I have created.
More about authorization.
Thanks in advance.

Hello,
You can create transaction code from se80 as well.In object navigator,right click on your program name and create->transaction code.You can create transaction and select if it is only a report,a report with selection-screen depending on your requirement.You can run your report directly by entering the transaction code in the command field.
You can authorise the users who can use your transaction:
Authorisation objects are used to restrict certain transactions to users.Critical data must be protected from unauthorised users.For example,the head has access to certain data.But it cannot be accessed by his subordinate.For this we need to define roles.
Create an authorization object with transaction SU21.
An object usually consists of the ACTVT (activity) field and one other field,which specifies the data type to be protected.By ACTVT, we can decide if the data is accessible for change,display only etc.
Add authorization fields to the authorization object created.
Assign the authorization object to the transaction using SE93.
Attach the authorization object to the role using transaction PFCG.
If you want to assign roles,use transaction PFCG.Create a new role.In the AUTHORIZATIONS tab,you can get a self generated profile name and a profile text by clicking on the icon next to it.Then go to the "Change Authorization data" and choose an authorization template.Then you can choose to display/change/create an activity and after the selection,click on the red and white circle.The profile will now be created.
In the user tab,you can give the user details who can use this role.
Also check this link:
http://www.*********************/r3_security/r3_security_tips.htm
http://help.sap.com/saphelp_nw04s/helpdata/en/52/6716a6439b11d1896f0000e8322d00/content.htm
Very helpful guide:
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/a92195a9-0b01-0010-909c-f330ea4a585c
Regards,
Beejal
**Reward if answer is helpful

Creating t.code for ABAP query and Transport it TO Production and run it .

Hi Friends
Thanks for ur reply ,
The requirement is that i want to create tcode for abap query and that query can be regenearted ,
in case of regeneration programe name i got answer programame name will be change, i created and modified query but i saw the same programe name ,,, may be it changed when it is trasnported if so then what ??
and also pls give me solution for asiging tcode for query which is going to be regenerated.
thanks and regards
farukh

Dear Farukh,
As we know,
Query is created in Production server and a corresponding program is generated by System.
What we have to do is just to assign the program to the desired transaction code in Development server and transport it.
If you have any doubts please let me know.
Kindly assign points if you find this info usefull.
Regards,
Lijo Joseph

Create transaction code for abap report

Hello,
don't know if this is the correct subforum (sorry in advance).
I have created a ABAP Report in SE38 having a SELECTION-SCREEN.
Now I would like to have a Transaction code to refer to the report. So that I can call the Transaction and then get the selection screen to use the abap report.
How can I do this the simplest way? I can't find anything in google, can you give me some hints?

hi
goto se93
give transaction code and click create
select the second radio button(transaction code for reports)
give short description and press enter
after that give your program name
and select the gui check boxes as required for html ,java,
and save it
you can use the transaction code
REGARDS
PRASANTH

Creting t.code for ABAP query and Transport it TO Production and run it .

Hi Friends
Thanks for ur reply ,
The requirement is that i want to create tcode for abap query and that query can be regenearted ,
in case of regeneration programe name i got answer programame name will be change, i created and modified query but i saw the same programe name ,,, may be it changed when it is trasnported if so then what ??
and also pls give me solution for asiging tcode for query which is going to be regenerated.
thanks and regards
farukh

Hi farukh,
1. If any query is re-generatred,
   then some MANUAL INTERVENTION
   is absolutely required.
2. Hence, what we prefer is this :
   1. Generate first query.
   2. Copy the code to a Z Program
   3. Attach tcode to THIS z program.
   4. Transport
3. Now,
whener the query is generated again,
   AGAIN COPY THE CODE
TO OUR Z PROGRAM (2ND STEP ABOVE)
                    (which has already been created)
AND TRANSPORT JUST THIS Z PROGRAM.
REST WILL TAKE CARE OF ITSELF.
4. In such cases,
ONLY COPY-PASTE IS REQUIRED.
(and it takes not more than 15 SECONDS)
regards,
amit m.

Urgently Need Code for Copy & Paste from Html Table in JSP to Excel file

I am creating a html table in JSP file .
I need code for 'Cut,Copy,Paste' functions ie. if someone wants to copy data from my table to excel file or from excel file to html table he shud be able to do that.
Can someone give me code for 'Cut,Copy and Paste' i.e. some javascript functions which can do cut, copy and paste which i can put in my jsp file
Thanks
Message was edited by:
javatechguru2007

package com.chinmayananda
public class Tetris{
// complete here
code]
public abstract class AbstractTetris {
public abstract void start();
public abstract void stop();
}nearly done

How do i write UTF convertor in ABAP sample code for ABAP please

How do i write UTF convertor in ABAP
Regards,
Jagrut BharatKumar Shkla

you want to convert a string to utf format?
try this code
app_type = 'text/xml; charset=utf-8'.
call function 'SCMS_STRING_TO_XSTRING'
exporting
    text     = xml_string
    mimetype = app_type
importing
    buffer   = xl_content.
concatenate cl_abap_char_utilities=>byte_order_mark_utf8
             xl_content
             into xl_content in byte mode.

Urgently need code for tetris game

RULES OF GAME:
1. Spheres come down from the top of the game board in pairs. A player can rotate them on their way down.
2. Spheres come in 4 different colors: red, blue, green, and yellow
3. Linking four spheres of the same color (horizontally, vertically or both(as in tetris)) removes them from the game board, allowing any sphere remaining to drop and fill the vacated space.
This may lead to several possible "chain combos" if additional colors match.
4.      The game board can be any size you want (we recommend 6x12)
     Note that the pair of spheres are not linked to each other. If one sphere is blocked because there is something underneath, the other one will continue falling (with no player control over it) until it reaches something.
I am having the pictures of the spheres
- Please submit a java console application that will open a window and start the game.
- You may attach a separate text file that documents player controls and any other comments (as gameplay improvements, bugs not corrected, any comment that will help evaluate your submission...)
IMPORTANT:
- JAVA only - Java console application (not an applet)
Please Please Please Please send me the code to the following id
[email protected]

package com.chinmayananda
public class Tetris{
// complete here
code]
public abstract class AbstractTetris {
   public abstract void start();
   public abstract void stop();
}nearly done

Urgent ! Code for Displaying Image from Oracle BLOB image on VB Form

Hi Plz any one have any work to showing a Picuture on Visual Basic Form, i Save the Picure in table and its column type is BLOB where i save picture, now i want to show it on VB form. if anybody knows plz tell me. and if image not found then how can i handle in nvl(field,' ') function.

Refer VB sample on Passing LOB parameters to a stored procedure. It shows how to display and insert the image from VB form to an Oracle Database in a BLOB column.
http://otn.oracle.com/sample_code/tech/windows/ole_db/oledb8/content.html
Chandar

Transaction code for debugging

CAN ANYONE TELL ME WHAT IS THE TRANSACTION CODE FOR ABAP PROGRAM

Hi,
As far as I know there is no transaction code to debug, however when you run the transaction SDMO and give the search string as 'DEBUG' this will list the following transactions,
Tcode Transaktionstext
@@D   Debugger -> Documentation
DBG_A Debugger -> ABAP Editor
DBG_B Debugger -> Repository Browser
DBG_S Debugger -> Screen Painter
LAST_ Debugger -> ABAP Editor
PACC PF debugger
STDA Debugger display/control (server)
STDC Debugger output/control
STDU Debugger display/control (user)
Not able to navigate to most of the transactions mentioned here,
Rgds,

Urgent: Booking code for ABAP ECC 5.0

Similar Messages

Maybe you are looking for