Request Guidelines for SAP Certification Program

Hi.. Seniors,(TechEd'05 attendants),
Need some inputs from you all...
thanks in advance
vijay

Hi,
It will cover TBIT40 - TBIT44
Types of Questions:
I Multiple options with only one answer correct they would be phrased as Please choose the correct answer
II Multiple options with options given as statements related to the original problem situation / scenario and the answers have to be marked in the form of True or False for each option ( dont know about the marking scheme for this)
Important remarks
There is no Negative Marking so you may take guesses for the ones you are not sure of.
One can browse to any question at any point during the test and can also mark it for review in case he / she wants to come back to it later.
In case you only look at a question and dont mark or attempt it, it will be displayed with an eye shaped icon with the question number so that you may come to it later.
The above maybe obvious for people who have attempted SAP certification exams before.
All the questions have 5 options, since the following questions have been placed on the basis of recall after the exam, they may differ in language and options, but they would surely give an idea of the pattern and the type.
A Total of 80 Questions to be attempted in 180 minutes time is more than enough to do all the questions twice over provided you know the answers!!! 
Distribution of Questions
The distribution into different sections like BPM / Mapping / Adapters / Design and configuration / Runtime and Overview might be different for different people in terms of the number of questions coming into each section.
The cut off for the XI exam has been revised to 60 or 65 (not sure) from the earlier 70%.
Thanks,
Prakash

Similar Messages

Siggestion needed : SAP Certification Program ECC 5.0 versions

hi could you please suggest where i could get good study material for this certification.
SAP Certification Program ECC 5.0 versions
thanks in advance,
Naval Bhatt

Hi,
I have answered this query in detail, please view the below link. Have also provided the link to download the required material for WAS 640 certification.
WAS Certification
rewards points if helpful.
Awaiz.

Career advice for SAP Certification

Hi Experts,
I've SAP domain experience of about 6 years in MM module and wish to enroll for SAP Certification course. Can I know which of these institutes (Genovate or Delphi Computech) from Pune - India are best from both training as well as placement point of view. Interested in Faculty training program.
Also need to know if my academic qualification will hamper my placements after course completion as I'm Diploma Holder in Electrical Engg.
Thanks in advance
Regards,
Mohsin

found the answer from different forum

Pls send the SAP FICO ECC 6.0 material for SAP certification exam.

Hi gurus,
can any one send the material for SAP certification exam with new version.
Thank you
sasikanth

well, it says;
'You have no authorization to order. Please refer to SAP Note 532145 !'
I read this but don't know wht to do next.
Please guide the steps

Query on appearing for SAP Certification

I'm looking to know how do I appear for basis certification. I have been working for > 4 years and have been through the the course material for TADM 10/12. Please let me know if there is anything more that should be referred ?
The only way of applying for cert as known to me in India, is through sapteched or through training institute like siemens. Is there any other way for me to apply for certification & what approximate cost could it incurr ?

Please contact SAP Education, India
http://www.sap.com/india/services/education/index.epx
https://www.sap.com/india/services/education/index.epx?kNtBzmUK9zU=1

Exper Guidance Needed For SAP Certification

Greetings,
I have completed my MBA in Information Technology currently working as a Business Analyst & Pre Sales Executive for the last 1 year .
I want to further enhance my career by doing SAP certification.
So a helpful guidance from all you friend's over here will be really great.
Want to know what SAP certification should I complete & the which are good SAP Certified Partners to complete the certification.
Looking forward for your reply.
Best Regards,
Khushboo

hi,
There are many functional modules in SAP, like SD, MM, PP, FICO, CRM....etc..... you can choose any one of these based on your education and work background.
Get your self certified in that module and you are ready to enter the SAP world.
Check this SAP Certification Policy which states all the details about certification including experience and all:
https://websmp204.sap-ag.de/~sapidp/011000358700003517532005E
Pl visit the following link for details
http://www.sap.com/asia/services/education/index.epx
Siemens and genovate are the SAP education partners, which provide SAP training and certification.
This is sap address:
SAP India Pvt. Ltd.
- Bangalore
"Thapar Niketan"
7/4, Brunton Road
Bangalore-560 025
India
Phone: +91/80/559-3554
Fax: +91/80/509-5888
Contact persons : Ramaiah, Mageshwari
Email: email@removed
SAP Labs India Pvt. Ltd.
- Bangalore
138, Export Promotion Industrial Park
Whitefield
Bangalore - 560 066
Ph: +91 5139-5139
Fax : +91 5139-6969
Siemens Information Systems Limited
Du Parc, 3rd Floor
Trinity 17, Mahatma Gandhi Road
Bangalore 560 001
Tel : (91) 80 51191678
Tel : (91) 98 45994380
Contact persons : Ms.Radhika Mahesh / Ms. Vani Mittal
Email: email@removed
or email: email@removed
Genovate Solutions India Pvt. Ltd.
A Wing,First Floor
Phoenix House,Senapati Bapat Marg
Lower Parel, Mumbai 400 013
Tel: (91) 22 24901839/ 24982754/ 24901824/ 24981236
Contact Person: Mr.Krishnan / Mr. Fabian
E-mail: [email protected]
or E-mail: [email protected]
Siemens Information Systems Limited
1st Floor, VIPPS Centre
2, Local Commercial Complex, Masjid Moth
Greater Kailash - 2 New Delhi - 110048
Tel: (91) 11 299220694/29220695/29220696/ 29220697/29221248/29216047/292...
Fax: (91) 11 29214685
Contact Person: Ms.Rochika Bhatia
E-mail: [email protected]
Hope this is helpful, Do reward.
Edited by: Runal Singh on Feb 7, 2008 3:54 PM

How to pay for SAP certification exam?

Hello,
I want to get certified in ABAP associate level (C_TAW12_70) . How can I pay for the exam?
Thank you.
Regards,
yasin.

I am assuming you intend to appear for the exam in India. Earlier, you required your employer to sponsor your exam. You could not directly appear for the exam without first appearing for the certification course. But things could have changed now. Please contact SAP India ATCs(Authorised Training Centers) on this website: [http://www.sap.com/asia/services/education/centres/index.epx]. You can also call SAP Education India at (91) 80 4136 5720 or email them.

How to start preparation for SAP Certification

Hi i am a fresher in SAP Basis wants to start my preparation to clear SAP Certification exam.
Can any one tell me what is the syllabus and how should i start.
I have search in google as well but not able to find any satisfied answer.

Hi Aakash,
If you are in India, please contact SAP Education. They have separate evaluation process, without training you cannot attend unless you have trained with SAP / Authorised Training Center.
Please go through the blogs in Certification / Career space.
Please visit
training.sap.com
Here for each certification exam, you can see the syllabus.
You only need to study what is required for that exam, not the whole SAP basis.
Hope this helps.

Certificate for SAP Certification

I appeard for SAP FI certification on Dec 30, 2010 in Bangalore and passed it. I've not received any certificate from SAP yet. I have sent 7-8 emails to the local contact over last week and not even a single one has been responded. Not sure whom to contact to get a status update on certificate.
Not responding to emails doesn't reflect good on the company's part.

Sorry to hear about your issue. Please send me a message at kenneth dot schieffer at sap dot com with your S-userid and exam code/description. I will personally forward your message to a manager in the Education group. In your message, please refer to this thread.
Thanks,
Ken (North America Education)

Looking for sap certification guidance.

I am a third year undergraduate software systems engineering student (Canada) looking forward to get SAP certification before i graduate from University.
But not sure where to start? Not sure if it is going to be a value addition on my CV?
Industry I am interested in working with is Telecommunication. Currently working part time with a Canadian Telecommunication company as a tech. support.
Please provide me any guidance or advise on this.
Thanks
Message was edited by: Colleen Lee - moving from Training and Education to SAP Certification space

Hi Kulbir,
Below link will give some insight
Frequently Asked Questions about SAP Certification

SAP Certification Program

Genovate is an authorized training partner of SAP. We view training as an important element in our partnership with you a fluid relationship where we understand your training needs. The courses offered thus far are driven by our clients, and the courseware is biased towards real world experiences laboratory exercises gleaned from our clients' projects.
If anyone of you keen on getting yourself certified with SAP Academy course, do email me at [email protected]
Many Thanks!

This is a forum for SAP users to discuss problems - not for people to advertise their businesses. Please don't post the same thing across multiple forums.

Practice exam for SAP certification

Are there any online practice exams for both Sap 8.8 certifications?

Hi,
Basically there are different courses. The link to the Practise test i gave you was for TB_1200
It is under this link :
https://websmp202.sap-ag.de/~form/sapnet?_FRAME=CONTAINER&_OBJECT=011000358700000090562008E
I am not sure for which consultants you are looking for (Sales,implementation,support, development)
Check this link if it helps :
https://websmp202.sap-ag.de/~form/sapnet?_SHORTKEY=01100035870000727183&_SCENARIO=01100035870000000183&_ADDINC=011000358700001192682007E&
Kind Regards,
Jitin
SAP Business One Forum Team

Adobe for SAP certification

Dear sirs,
especially SAP/ Adobe guys, do you know if that is possible or SAP plan to make it possible to get certified on Adobe forms or Adobe general applications/ technologies? I would very like to prove my qualification in Adobe getting certified.
Regards, Otto

hi,
as of today sap has not came up with any kinda separate certification especially for adobe interacive forms.
for this you can go for either sap abap certification : P_ABAP_70 or you can enroll yourself for short duration course by taking up BC series course of adobe. This BC series course will be in complete detail as repect to the entire abap course which might end up by just showing a brief overview about adobe interactive forms.
Also the adobe forms are being available only for the professional certification which one can take after completing the lower levels abap courses.
check out the details of some BC courses available for adobe :
BC480:
http://www.sap.com/services/education/certification/globaltabbedcourse.epx?context=%5b%5b%7cBC480%7c%7c%7c053%7cG%7c%5d%5d%7c
BC481:
http://www.sap.com/services/education/certification/globaltabbedcourse.epx?context=%5b%5b%7cBC481%7c%7c%7c073%7cG%7c%5d%5d%7c
I will suggest to go for the BC course as it will give you a more detail about adobe interactive forms.
Hope this will help you !!!
Thanks & Regards,
Punit Raval.

Choice post graduate institutions for SAP Certification

Hi,
Please I need advice. I intend studying a Master's degree in either Canada or the US. I want a degree that will expose me to SAP and give me a good leverage, but I do not want to focus solely on SAP. I want a degree that merges SAP with another specialty though I intend to get more certifications as I advance in my knowledge of SAP.
I currently hold a BSc in Computer Science and have about 5 years working experience in IT Auditing. I want to branch into SAP consulting after my Masters.
Any ideas as to what schools to apply to and how to find out about their SAP courses? This is because I noted that most shools in Canada offer mostly MSc in Computer Science or Information Systems Management. Courses in most CAnadian Schools do not offer myraid IT course options like in the UK. In the US Schools, SAP is not even mentioned at all despite the affiliation of these schools with the UA program. I tried working with the UA listing adapted from this site but met little success.
Someone please advice.
Omo

Hi Omo,
I'm afraid I can't give you a great answer but hopefully it helps a little.
At my current university, Grand Valley State University (US), there is a MBA program that utilizes SAP in a few core classes. At the graduate level, you will learn how SAP works at a very high functional level and not the detailed technical level.
I'm sure there are other UA member schools that also teach a similar curriculum, this is the only school I'm directly familiar with. If you have any questions, let me know and I will try and help.
Regards,
Kevin

Sample code for sap hr program--pls treat this as urgent

Hi ,
This is the program on attendence incentive program, i have written
REPORT zhrpa0019 LINE-SIZE 270
 LINE-COUNT 55(3)
 NO STANDARD PAGE HEADING
 MESSAGE-ID zm.
 T A B L E S *
TABLES: pernr, pa2001, pa9002.
*Type-pools
TYPE-POOLS slis.
 I N F O T Y P E S *
INFOTYPES: 0008, 0001, 0002,2001,9002,0041.
 T Y P E S
DATA:BEGIN OF t_data1 OCCURS 0,
 pernr LIKE pa0001-pernr,
 ename LIKE pa0001-ename,
 bukrs LIKE pa0001-bukrs,
 werks LIKE pa0001-werks,
 btrtl LIKE pa0001-btrtl,
 persg LIKE pa0001-persg,
 persk LIKE pa0001-persk,
 begda LIKE pa0001-begda,
 endda LIKE pa0001-endda,
 amount LIKE pa0008-bet01,
 cdate LIKE pa0041-dat01,
 END OF t_data1.
 D A T A * Internal table and working area
DATA: i_data1 LIKE t_data1 OCCURS 0 WITH HEADER LINE.
 wa_data1 like line of t_data1 .
DATA : BEGIN OF i_date OCCURS 0,
 pernr LIKE pa0041-pernr,
 cdate LIKE pa0041-dat01,
 END OF i_date.
*Data : i_pa0041 like pa0041 occurs 0 with header line,
 wa_pa0041 like pa0041.
*Data : i_p0001 like p0001 occurs 0 with header line.
Constants
CONSTANTS: c_102007(6) VALUE '102007',
 c_25 TYPE p DECIMALS 1 VALUE '25.0',
 c_x VALUE 'X',
 c_a value 'A',
 c_mcnp(4) value 'MCNP'.
Variables
DATA : v_mvc like pa0008-bet01,
 lv_bmonth TYPE char2,
 lv_byear TYPE char4,
 lv_date TYPE sy-datum.
Parameters Selection
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) text-001.
*PARAMETERS:: p_bmonth LIKE pv000-pabrp OBLIGATORY,
 p_byear LIKE pv000-pabrj OBLIGATORY.
SELECTION-SCREEN COMMENT 45(10) text-002.
SELECTION-SCREEN END OF LINE.
PARAMETERS: p_mvc(2) TYPE p DECIMALS 1 DEFAULT c_25,
 p_mctype TYPE pa2001-awart DEFAULT c_mcnp,
 p_ditype TYPE c DEFAULT c_a,
 rb_test RADIOBUTTON GROUP grp1 DEFAULT 'X',
 rb_prod RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b1.
Initialization *
INITIALIZATION.
pnpstat2-low = '3'.
pnpstat2-sign = 'I'.
pnpstat2-option = 'EQ'.
APPEND pnpstat2.
CLEAR pnpstat2.
pnpbukrs-low = 'SATS'.
pnpbukrs-sign = 'I'.
pnpbukrs-option = 'EQ'.
APPEND pnpbukrs.
CLEAR pnpbukrs.
pnppersg-low = 'N'.
pnppersg-sign = 'I'.
pnppersg-option = 'EQ'.
APPEND pnppersg.
CLEAR pnppersg.
pnpbtrtl-low = '2010'.
pnpbtrtl-high = '2050'.
pnpbtrtl-sign = 'I'.
pnpbtrtl-option = 'EQ'.
APPEND pnpbtrtl.
CLEAR pnpbtrtl.
**Clearing the variables
CLEAR : lv_byear, lv_bmonth,
 lv_date.
Get previous month from current date
CALL FUNCTION 'CCM_GO_BACK_MONTHS'
 EXPORTING
 currdate = sy-datum
 backmonths = 1
 IMPORTING
 newdate = lv_date.
lv_byear = lv_date(4).
lv_bmonth = lv_date+4(2).
MOVE lv_bmonth TO p_bmonth.
MOVE lv_byear TO p_byear.
AT Selection-screen *
AT SELECTION-SCREEN.
IF rb_prod = 'X' .
 IF sy-uname NP 'HRBTCH*'.
 MESSAGE e223(zhpa).
 else.
 UPDATE pa0015
 SET begda = sy-datum
 lgart = '216D'
 bertg = P_MVC
 WHERE pernr = p0001-pernr.
 IF SY-SUBRC EQ 0.
 message i224(zhpa).
 endif.
 COMMIT WORK.
 ENDIF.
ENDIF.
T O P O F P A G E *
TOP-OF-PAGE.
PERFORM f_top_of_page.
E N D O F P A G E *
END-OF-PAGE.
B E G I N S E L E C T I O N *
START-OF-SELECTION.
GET pernr.
pnp-sw-ignorelockedrecords = 'N'.
PERFORM f_get_hr_data.
E N D S E L E C T I O N *
END-OF-SELECTION.
sort i_data1 by werks ascending
 btrtl ascending
 persg ascending
 persk ascending
 pernr ascending.
check for test mode.
if rb_test = 'X'.
 clear: i_data1.
 loop at i_data1 .
 perform f_fill_bdc.
 perform f_bdc_transaction using c_pa30.
 endloop.
endif.
perform f_display_report.
*& Form f_top_of_page
 text
--> p1 text
<-- p2 text
FORM f_top_of_page.
WRITE: text-t11, sy-repid ,
 65 text-t12,
 150 text-t13,
 158 sy-datum.
IF rb_test = c_x.
 WRITE:/ text-t21, sy-mandt,
 75 text-t22,
 150 text-t23,
 158 sy-uzeit.
ELSE.
 WRITE:/ text-t21, sy-mandt,
 117 text-t24,
 150 text-t23,
 158 sy-uzeit.
ENDIF.
WRITE:/ text-t31, sy-uname,
 150 text-t32,
 158 sy-pagno.
ULINE.
ENDFORM. " f_top_of_page
*& Form f_get_hr_data
 text
--> p1 text
<-- p2 text
FORM f_get_hr_data.
rp-provide-from-last p0001 space pn-begda pn-endda.
IF pnp-sw-found = 1.
 PERFORM f_get_data_pa0008.
ENDIF.
ENDFORM. " f_get_hr_data
*& Form f_get_data_pa0008
 text
--> p1 text
<-- p2 text
FORM f_get_data_pa0008.
PERFORM f_get_confirm_date.
rp-provide-from-last p0008 space pn-begda pn-endda..
v_mvc = p_mvc.
IF pnp-sw-found = 1.
 i_data1-cdate = i_date-cdate.
 MOVE p0001-pernr TO i_data1-pernr.
 MOVE p0001-ename TO i_data1-ename.
 MOVE p0001-werks TO i_data1-werks.
 MOVE p0001-btrtl TO i_data1-btrtl.
 MOVE p0001-persg TO i_data1-persg.
 MOVE p0001-bukrs TO i_data1-bukrs.
 MOVE p0001-persk TO i_data1-persk.
 MOVE i_date-cdate TO i_data1-cdate.
 MOVE v_mvc TO i_data1-amount.
 APPEND i_data1.
 CLEAR i_data1.
ENDIF.
ENDFORM. " f_get_data_pa0008
*& Form f_display_report
 text
--> p1 text
<-- p2 text
FORM f_display_report.
perform alv_display.
*Output to a list
data : lv_stotal(5) type n,
 lv_utotal(5) type n,
 lv_format.
constants : c_l value '|'.
clear: i_data1.
format color col_total intensified on.
write: /, / 'Successfully Updated to Database:'.
write: /.
format reset.
uline (200).
format color col_heading intensified off.
write : /1 c_l no-gap, (8) 'Pnumber' no-gap,
 c_l no-gap, (35) 'Name' no-gap,
 c_l no-gap, (5) 'PA' no-gap,
 c_l no-gap, (5) 'PSA' no-gap,
 c_l no-gap, (6) 'EE Grp' no-gap,
 c_l no-gap, (9) 'EE Subgrp' no-gap,
 c_l no-gap, (12) 'Amount' no-gap,
 200 c_l.
uline (200).
format reset.
loop at i_data1 .
 perform f_format_amount.
 if lv_format = 'X'.
 clear lv_format.
 format color col_normal intensified off.
 else.
 lv_format = 'X'.
 format color col_normal intensified on.
 endif.
 write :/1 c_l no-gap, (8) i_data1-pernr no-gap,
 c_l no-gap, (35) i_data1-ename no-gap,
 c_l no-gap, (5) i_data1-werks no-gap,
 c_l no-gap, (5) i_data1-btrtl no-gap,
 c_l no-gap, (6) i_data1-persg no-gap,
 c_l no-gap, (9) i_data1-persk no-gap,
 c_l no-gap , (12) i_data1-amount no-gap.
endloop.
ENDFORM . "f_display_report
*& Form get_confirm_date
 text
--> p1 text
<-- p2 text
FORM f_get_confirm_date .
rp-provide-from-last p0041 space pn-begda pn-endda.
IF pnp-sw-found = 1.
 CLEAR i_date.
 i_date-pernr = p0041-pernr.
 APPEND i_date.
 PERFORM f_populate_date USING : p0041-pernr
 p0041-dar01 p0041-dat01,
 p0041-pernr
 p0041-dar02 p0041-dat02,
 p0041-pernr
 p0041-dar03 p0041-dat03,
 p0041-pernr
 p0041-dar04 p0041-dat04,
 p0041-pernr
 p0041-dar05 p0041-dat05,
 p0041-pernr
 p0041-dar06 p0041-dat06,
 p0041-pernr
 p0041-dar07 p0041-dat07,
 p0041-pernr
 p0041-dar08 p0041-dat08,
 p0041-pernr
 p0041-dar09 p0041-dat09,
 p0041-pernr
 p0041-dar10 p0041-dat10,
 p0041-pernr
 p0041-dar11 p0041-dat11,
 p0041-pernr
 p0041-dar12 p0041-dat12.
ENDIF.
ENDFORM. " get_confirm_date
*& Form f_populate_date
 text
 -->P_PERNR text
 -->P_DAR text
 -->P_DAT text
FORM f_populate_date USING p_pernr p_dar p_dat.
CLEAR i_date.
READ TABLE i_date WITH KEY pernr = p_pernr.
IF sy-subrc = 0.
 IF p_dar = 'A3'.
 i_date-cdate = p_dat.
 MODIFY i_date INDEX sy-tabix.
 ENDIF.
ENDIF.
endform.
i need to add the logic , could you pls help as this is very urgent.........
IF test run = X
 Display the report
IF production run = X
 1. Batch user ID HRBTCH* performed the execution.
 Create new record based on the following parameters:
- PA0015-BEGDA = System Date (date of origin)
- PA0015-LGART = 216D (wage type)
- PA0015-BETRG = IAP amount (25)
 Display the report.
 2. Program was not executed by Batch user ID HRBTCH*
 Display information message Only batch user ID can run actual mode.
 Display the report
No update will be done.
ENDIF.
how to addd in the above code.....

REPORT ZHR_ATTENDANCE_RPT MESSAGE-ID ZHR.
 T Y P E P O O L S *
TYPE-POOLS : SLIS.
 T A B L E *
TABLES : TEVEN,
 PA0000,
 PA0001,
 T503K,
 T500P.
 I N T E R N A L T A B L E D E C L A R A T I O N *
DATA : BEGIN OF IT_PA0001 OCCURS 0,
 PERNR TYPE PA0001-PERNR,
 ENDDA TYPE PA0001-ENDDA,
 WERKS TYPE PA0001-WERKS,
 BTRTL TYPE PA0001-BTRTL,
 ORGEH TYPE PA0001-ORGEH,
 PERSK TYPE T503T-PERSK,
 ENAME TYPE PA0001-ENAME,
 END OF IT_PA0001.
DATA : BEGIN OF IT_PA0000 OCCURS 0,
 PERNR TYPE PA0000-PERNR,
 END OF IT_PA0000.
DATA : BEGIN OF IT_TEVEN OCCURS 0,
 PERNR TYPE TEVEN-PERNR,
 LDATE TYPE TEVEN-LDATE,
 LTIME TYPE TEVEN-LTIME,
 SATZA TYPE TEVEN-SATZA,
 END OF IT_TEVEN.
DATA : IT_TEVEN1 LIKE IT_TEVEN OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF IT_T527X OCCURS 0,
 ORGEH LIKE T527X-ORGEH,
 ORGTX LIKE T527X-ORGTX,
 END OF IT_T527X.
DATA : BEGIN OF IT_T503T OCCURS 0,
 PERSK TYPE T503T-PERSK,
 PTEXT TYPE T503T-PTEXT,
 END OF IT_T503T.
DATA : BEGIN OF IT_FINAL OCCURS 0,
 PERNR LIKE PA0001-PERNR,
 ENAME LIKE PA0001-ENAME,
 LDATE LIKE TEVEN-LDATE,
 TPROG LIKE PTPSP-TPROG,
 LTIMEI LIKE TEVEN-LTIME,
 LTIMEO LIKE TEVEN-LTIME,
 ORGTX LIKE T527X-ORGTX,
 PTEXT TYPE T503T-PTEXT,
 ATEXT TYPE ABWTXT,
 END OF IT_FINAL.
DATA : IT_PTPSP LIKE PTPSP OCCURS 0 WITH HEADER LINE.
*Table to get Holiday
DATA : IT_ISCAL_DAY LIKE ISCAL_DAY OCCURS 0 WITH HEADER LINE.
DATA : IT_T554T TYPE T554T OCCURS 0 WITH HEADER LINE.
*ALV data declarations
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV,
 X_FIELDCATALOG TYPE SLIS_FIELDCAT_ALV,
 GD_LAYOUT TYPE SLIS_LAYOUT_ALV,
 GD_REPID LIKE SY-REPID.
*For ALV Events
DATA : IT_EVENT1 TYPE SLIS_T_EVENT.
*For ALV Events
DATA : IT_EVENT TYPE SLIS_ALV_EVENT.
*For ALV top of page
DATA : IT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
*For top of page heading
DATA : IT_LINE TYPE SLIS_LISTHEADER.
Variables declaration *
DATA : V_SHIFT LIKE PTPSP-TPROG,
 V_TEMP TYPE I,
 V_DATE TYPE DATUM,
 V_LDATE TYPE SY-DATUM,
 V_MODIF TYPE HIDENT,
 V_SUBTY TYPE PA2002-SUBTY,
 V_ENDDA TYPE CHAR10.
SELECTION SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_PERNR FOR TEVEN-PERNR,
 S_DATE FOR TEVEN-LDATE no-extension,
 S_ORGEH FOR PA0001-ORGEH,
 S_WERKS FOR PA0001-WERKS,
 S_BTRTL FOR PA0001-BTRTL,
 S_PERSK FOR PA0001-PERSK,
 S_STAT2 FOR PA0000-STAT2.
SELECTION-SCREEN END OF BLOCK B1.
 A T S E L E C T I O N S C R E E N *
*validatating Selection Screen
AT SELECTION-SCREEN ON S_PERNR.
*Validate the User entered year
PERFORM VALIDATE_PERNR.
AT SELECTION-SCREEN ON S_DATE.
*Validate the User entered date
PERFORM VALIDATE_DATE_LOW.
AT SELECTION-SCREEN ON S_ORGEH.
*Validate the User entered year
PERFORM VALIDATE_ORGEH.
AT SELECTION-SCREEN ON S_PERSK.
*Validate the User entered year
PERFORM VALIDATE_PERSK.
AT SELECTION-SCREEN ON S_WERKS.
*Validate the User entered Personnel area
PERFORM VALIDATE_WERKS.
START OF SELECTION *
START-OF-SELECTION.
*Get data
PERFORM GET_DATA.
*Process data
PERFORM PROCESS_DATA.
 E N D O F S E L E C T I O N *
END-OF-SELECTION.
PERFORM BUILD_FIELDCATALOG.
PERFORM BUILD_LAYOUT.
*For ALV Events
PERFORM ALV_EVENTS.
PERFORM DISPLAY_ALV_REPORT.
*& Form VALIDATE_YEAR
 Validating the year
FORM VALIDATE_PERNR .
IF NOT S_PERNR IS INITIAL.
 SELECT SINGLE * FROM PA0001 WHERE PERNR IN S_PERNR. "#EC *
 IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'Enter valid Employee Number'(002).
 ENDIF.
ENDIF.
ENDFORM. " VALIDATE_pernr
*& Form VALIDATE_YEAR
 Validating the year
FORM VALIDATE_ORGEH .
DATA: V_ORGEH LIKE T527X-ORGEH.
IF NOT S_ORGEH IS INITIAL.
 SELECT SINGLE ORGEH FROM T527X INTO V_ORGEH WHERE ORGEH IN S_ORGEH.
 IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'Enter Valid Organization Unit'(003).
 ENDIF.
ENDIF.
ENDFORM. " VALIDATE_orgeh
*& Form GET_DATA
 Get data
FORM GET_DATA.
SELECT PERNR
 FROM PA0000
 INTO TABLE IT_PA0000
 WHERE PERNR IN S_PERNR
 AND ENDDA GE S_DATE-LOW
 AND BEGDA LE S_DATE-HIGH
 AND STAT2 IN S_STAT2.
IF SY-SUBRC = 0.
 DELETE ADJACENT DUPLICATES FROM IT_PA0000 COMPARING PERNR.
 SORT IT_PA0000.
ENDIF.
IF NOT IT_PA0000[] IS INITIAL.
 SELECT PERNR
 ENDDA
 WERKS
 BTRTL
 ORGEH
 PERSK
 ENAME
 FROM PA0001
 INTO TABLE IT_PA0001
 FOR ALL ENTRIES IN IT_PA0000
 WHERE PERNR = IT_PA0000-PERNR
 AND ENDDA GE S_DATE-LOW
 AND BEGDA LE S_DATE-HIGH
 AND ORGEH IN S_ORGEH
 AND WERKS IN S_WERKS
 AND PERSK IN S_PERSK
 AND BTRTL IN S_BTRTL.
 IF SY-SUBRC = 0.
 SORT IT_PA0001 BY PERNR ENDDA DESCENDING.
 DELETE ADJACENT DUPLICATES FROM IT_PA0001 COMPARING PERNR.
 SORT IT_PA0001 BY PERNR.
 ENDIF.
ENDIF.
IF NOT IT_PA0001[] IS INITIAL.
 SELECT PERNR
 LDATE
 LTIME
 SATZA
 FROM TEVEN
 INTO TABLE IT_TEVEN
 FOR ALL ENTRIES IN IT_PA0001
 WHERE PERNR = IT_PA0001-PERNR
 AND SATZA = 'P10'
 AND LDATE IN S_DATE
 AND STOKZ NE 'X'.
 IF SY-SUBRC = 0.
 SORT IT_TEVEN BY PERNR LDATE.
 ENDIF.
ENDIF.
IF NOT IT_PA0001[] IS INITIAL.
v_date = s_date-high + 1.
 SELECT PERNR
 LDATE
 LTIME
 SATZA
 FROM TEVEN
 INTO TABLE IT_TEVEN1
 FOR ALL ENTRIES IN IT_PA0001
 WHERE PERNR = IT_PA0001-PERNR
 AND SATZA = 'P20'
 AND ( LDATE IN S_DATE or ldate = v_date )
 AND STOKZ NE 'X'.
 IF SY-SUBRC = 0.
 SORT IT_TEVEN1 BY PERNR LDATE.
 ENDIF.
ENDIF.
IF NOT IT_PA0001[] IS INITIAL.
 SELECT ORGEH
 ORGTX
 FROM T527X
 INTO TABLE IT_T527X
 FOR ALL ENTRIES IN IT_PA0001
 WHERE ORGEH = IT_PA0001-ORGEH.
 IF SY-SUBRC = 0.
 SORT IT_T527X BY ORGEH.
 ENDIF.
ENDIF.
IF NOT IT_PA0001[] IS INITIAL.
 SELECT PERSK
 PTEXT
 FROM T503T
 INTO TABLE IT_T503T
 FOR ALL ENTRIES IN IT_PA0001
 WHERE PERSK = IT_PA0001-PERSK
 AND SPRSL = 'E'.
 IF SY-SUBRC = 0.
 SORT IT_T503T BY PERSK.
 ENDIF.
ENDIF.
SELECT *
 FROM T554T
 INTO TABLE IT_T554T
 WHERE SPRSL = 'EN'
 AND MOABW = '40'.
ENDFORM. " GET_DATA
*& Form PROCESS_DATA
 Process data
FORM PROCESS_DATA .
V_TEMP = S_DATE-HIGH - S_DATE-LOW.
V_TEMP = V_TEMP + 1.
LOOP AT IT_PA0001.
 V_DATE = S_DATE-LOW.
 DO V_TEMP TIMES.
*Get employee work schedule
 IF IT_PTPSP[] IS INITIAL.
 PERFORM GET_SCHEDULE.
 ENDIF.
*Get holiday calendar
 IF IT_ISCAL_DAY[] IS INITIAL.
 PERFORM GET_HOLIDAY.
 ENDIF.
 CLEAR : V_SUBTY.
 SELECT SINGLE SUBTY
 FROM PA2001
 INTO V_SUBTY
 WHERE PERNR = IT_PA0001-PERNR
 AND ENDDA GE V_DATE
 AND BEGDA LE V_DATE.
 IF SY-SUBRC = 0.
 READ TABLE IT_T554T WITH KEY AWART = V_SUBTY.
 IT_FINAL-ATEXT = IT_T554T-ATEXT.
 ENDIF.
 IF V_SUBTY IS INITIAL.
 SELECT SINGLE SUBTY
 FROM PA2002
 INTO V_SUBTY
 WHERE PERNR = IT_PA0001-PERNR
 AND ENDDA GE V_DATE
 AND BEGDA LE V_DATE.
 IF SY-SUBRC = 0.
 IF V_SUBTY = '1000' OR V_SUBTY = '2000'.
 IT_FINAL-ATEXT = 'Training'.
 ELSEIF V_SUBTY = '3000'.
 IT_FINAL-ATEXT = 'Tour'.
 ENDIF.
 ENDIF.
 ENDIF.
*Get the employee shift schedule for that date
 CLEAR : V_SHIFT.
 READ TABLE IT_PTPSP WITH KEY DATUM = V_DATE.
 IF SY-SUBRC = 0.
 V_SHIFT = IT_PTPSP-TPROG.
 IF IT_PTPSP-TAGTY = '1'.
 V_SHIFT = 'NOFF'.
 ENDIF.
 ENDIF.
 IF V_SHIFT = ''.
 CLEAR IT_FINAL.
 CONTINUE.
 ENDIF.
*Check for holiday
 IT_FINAL-TPROG = V_SHIFT.
 READ TABLE IT_ISCAL_DAY WITH KEY DATE = V_DATE.
 IF SY-SUBRC = 0.
 IT_FINAL-TPROG = 'H'.
 ENDIF.
 IT_FINAL-PERNR = IT_PA0001-PERNR.
 IT_FINAL-ENAME = IT_PA0001-ENAME.
 IT_FINAL-LDATE = V_DATE.
*To get the organization unit
 READ TABLE IT_T527X WITH KEY ORGEH = IT_PA0001-ORGEH
 BINARY SEARCH.
 IF SY-SUBRC = 0.
 IT_FINAL-ORGTX = IT_T527X-ORGTX.
 ENDIF.
 CLEAR IT_T503T.
 READ TABLE IT_T503T WITH KEY PERSK = IT_PA0001-PERSK
 BINARY SEARCH.
 IF SY-SUBRC = 0.
 IT_FINAL-PTEXT = IT_T503T-PTEXT.
 ENDIF.
V_LDATE = v_DATE + 1.
*To get Punch-in.
 READ TABLE IT_TEVEN WITH KEY PERNR = IT_PA0001-PERNR
 LDATE = V_DATE
 BINARY SEARCH.
 IF SY-SUBRC = 0.
 IT_FINAL-LTIMEI = IT_TEVEN-LTIME.endif.
*To get Punch-out
 READ TABLE IT_TEVEN1 WITH KEY PERNR = IT_PA0001-PERNR
 LDATE = v_DATE
 BINARY SEARCH.
 IF SY-SUBRC = 0.
 IF IT_TEVEN1-LTIME > IT_FINAL-LTIMEI.
 IT_FINAL-LTIMEO = IT_TEVEN1-LTIME.
 ELSE.
 SELECT SINGLE LTIME
 FROM TEVEN
 INTO IT_FINAL-LTIMEO
 WHERE PERNR = IT_PA0001-PERNR
 AND LDATE = v_DATE
 AND LTIME > IT_TEVEN1-LTIME
 AND SATZA = 'P20'
 AND STOKZ NE 'X'.
 ENDIF.
 ENDIF.
 IF IT_FINAL-LTIMEO IS INITIAL.
 IF V_SHIFT = 'NNIG' OR V_SHIFT = 'NAFT'..
 READ TABLE IT_TEVEN1 WITH KEY PERNR = IT_PA0001-PERNR
 LDATE = V_LDATE
 BINARY SEARCH.
 IF SY-SUBRC = 0.
 IT_FINAL-LTIMEO = IT_TEVEN1-LTIME.
 ENDIF.
 ENDIF.
 ENDIF.
 if ( V_SHIFT = 'NOFF' OR IT_FINAL-TPROG = 'H' )
 and it_final-ltimei is initial and it_final-ltimeo is not initial.
 clear: it_final-ltimeo.endif.
 APPEND IT_FINAL.
 ELSE.
*If holiday or OFF or Tour or Absent
 IF V_SHIFT = 'NOFF' OR IT_FINAL-TPROG = 'H'
 or it_final-atext is not initial or
 ( it_final-ltimei is not initial and it_final-ltimeo is not initial ).
 APPEND IT_FINAL.
 ELSEIF IT_FINAL-ATEXT IS NOT INITIAL.
 APPEND IT_FINAL.
 ELSE.
 IT_FINAL-ATEXT = 'Absent'.
 APPEND IT_FINAL.
 ENDIF.
 ENDIF.
 APPEND IT_FINAL.
 CLEAR : IT_FINAL.
 V_DATE = V_DATE + 1.
 ENDDO.
 CLEAR : IT_PTPSP[],
 IT_ISCAL_DAY[].
ENDLOOP.
SORT IT_FINAL BY PERNR LDATE.
LOOP AT IT_FINAL.
 TRANSLATE IT_FINAL-ATEXT TO UPPER CASE.
 MODIFY IT_FINAL INDEX SY-TABIX.
ENDLOOP.
ENDFORM. " PROCESS_DATA
*& Form GET_SCHEDULE
 Get employee work schedule
FORM GET_SCHEDULE.
CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE'
 EXPORTING
 PERNR = IT_PA0001-PERNR
 BEGDA = S_DATE-LOW
 ENDDA = S_DATE-HIGH
 TABLES
 PERWS = IT_PTPSP
 EXCEPTIONS
 ERROR_OCCURED = 1
 ABORT_OCCURED = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " GET_SCHEDULE
*& Form build_fieldcatalog
FORM BUILD_FIELDCATALOG .
X_FIELDCATALOG-COL_POS = 1.
X_FIELDCATALOG-FIELDNAME = 'PERNR'.
X_FIELDCATALOG-SELTEXT_L = 'Personnel No'(006).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 2.
X_FIELDCATALOG-FIELDNAME = 'ENAME'.
X_FIELDCATALOG-SELTEXT_L = 'Employee Name'(007).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 5.
X_FIELDCATALOG-FIELDNAME = 'LDATE'.
X_FIELDCATALOG-SELTEXT_L = 'Date'(008).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 6.
X_FIELDCATALOG-FIELDNAME = 'TPROG'.
X_FIELDCATALOG-SELTEXT_L = 'Planned Shift'(009).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 7.
X_FIELDCATALOG-FIELDNAME = 'LTIMEI'.
X_FIELDCATALOG-SELTEXT_L = 'Attended Time-In'(010).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 8.
X_FIELDCATALOG-FIELDNAME = 'LTIMEO'.
X_FIELDCATALOG-SELTEXT_L = 'Attended Time-Out'(011).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 3.
X_FIELDCATALOG-FIELDNAME = 'ORGTX'.
X_FIELDCATALOG-SELTEXT_L = 'Organization Unit'(005).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 4.
X_FIELDCATALOG-FIELDNAME = 'PTEXT'.
X_FIELDCATALOG-SELTEXT_L = 'Emp Subgroup'(016).
X_FIELDCATALOG-DDICTXT = 'L'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
X_FIELDCATALOG-COL_POS = 9.
X_FIELDCATALOG-FIELDNAME = 'ATEXT'.
X_FIELDCATALOG-SELTEXT_L = 'Leaves/Tours'(015).
X_FIELDCATALOG-DDICTXT = 'L'.
X_FIELDCATALOG-OUTPUTLEN = '25'.
APPEND X_FIELDCATALOG TO FIELDCATALOG.
CLEAR X_FIELDCATALOG.
ENDFORM. " build_fieldcatalog
*& Form build_layout
FORM BUILD_LAYOUT.
GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
GD_LAYOUT-ZEBRA = 'X'.
ENDFORM. " build_layout
*& Form ALV_EVENTS
 For ALV Events
FORM ALV_EVENTS .
IT_EVENT-NAME = 'TOP_OF_PAGE'.
IT_EVENT-FORM = 'TOP_OF_PAGE'.
APPEND IT_EVENT TO IT_EVENT1.
ENDFORM. " ALV_EVENTS
*& Form TOP_OF_PAGE
 ALV TOP-OF-PAGE
FORM TOP_OF_PAGE. "#EC CALLED
REFRESH : IT_LIST_TOP_OF_PAGE.
CLEAR : IT_LINE.
IT_LINE-TYP = 'H'.
IT_LINE-INFO = 'Attendance Report for the Period'(013).
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CONCATENATE S_DATE-LOW6(2) '.' S_DATE-LOW4(2) '.' S_DATE-LOW+0(4)
 INTO IT_LINE-INFO.
CONCATENATE S_DATE-HIGH6(2) '.' S_DATE-HIGH4(2) '.' S_DATE-HIGH+0(4) INTO V_ENDDA.
CONCATENATE IT_LINE-INFO '-' V_ENDDA INTO IT_LINE-INFO SEPARATED BY SPACE.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LIST_TOP_OF_PAGE.
ENDFORM. "TOP_OF_PAGE
*& Form display_alv_report
FORM DISPLAY_ALV_REPORT.
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = GD_REPID
 IT_EVENTS = IT_EVENT1
 IS_LAYOUT = GD_LAYOUT
 IT_FIELDCAT = FIELDCATALOG
 TABLES
 T_OUTTAB = IT_FINAL
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "display_alv_report
*& Form VALIDATE_PERSK
 text
--> p1 text
<-- p2 text
FORM VALIDATE_PERSK .
IF NOT S_PERSK IS INITIAL.
 SELECT SINGLE * FROM T503K WHERE PERSK IN S_PERSK. "#EC *
 IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'Enter valid Employee subgroup'(012).
 ENDIF.
ENDIF.
ENDFORM. " VALIDATE_PERSK
*& Form VALIDATE_WERKS
 Validate user Entered Personnel area
FORM VALIDATE_WERKS .
IF S_WERKS[] IS NOT INITIAL.
 SELECT SINGLE * FROM T500P WHERE PERSA IN S_WERKS.
 IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'Enter valid Personnel Area'(014).
 ENDIF.
ENDIF.
ENDFORM. " VALIDATE_WERKS
*& Form VALIDATE_DATE_LOW
 Validate user Entered Date
FORM VALIDATE_DATE_LOW .
IF S_DATE-LOW IS INITIAL.
 MESSAGE E000 WITH 'Enter Date'(004).
ENDIF.
IF S_DATE-HIGH IS INITIAL.
 MESSAGE E000 WITH 'Enter Date'(004).
ENDIF.
ENDFORM. " VALIDATE_DATE_LOW
*& Form GET_HOLIDAY
 Get Holiday
FORM GET_HOLIDAY .
CLEAR V_MODIF.
SELECT SINGLE MOFID
 FROM T001P
 INTO V_MODIF
 WHERE WERKS = IT_PA0001-WERKS
 AND BTRTL = IT_PA0001-BTRTL.
CALL FUNCTION 'HOLIDAY_GET'
 EXPORTING
 HOLIDAY_CALENDAR = V_MODIF
 DATE_FROM = S_DATE-LOW
 DATE_TO = S_DATE-HIGH
 TABLES
 HOLIDAYS = IT_ISCAL_DAY
 EXCEPTIONS
 FACTORY_CALENDAR_NOT_FOUND = 1
 HOLIDAY_CALENDAR_NOT_FOUND = 2
 DATE_HAS_INVALID_FORMAT = 3
 DATE_INCONSISTENCY = 4
 OTHERS = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " GET_HOLIDAY
Reward Points if useful.

Request Guidelines for SAP Certification Program

Similar Messages

Maybe you are looking for