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

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?

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

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

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.

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

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.

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,

How to create a tcode for abap query

how to create a transaction code for abap query,
i used a single table , my requirment is as i enter the tcode i should get the selectioin screen of my query.

Hi
Follow this
. Make a transaction with parameters transaction from se93 .
2. Put START_REPORT in the transaction
3. Check the skip intial screen checkbox
4. in the table control in the end of screen put these values
D_SREPOVARI-REPORTTYPE = AQ
D_SREPOVARI-REPORT = <USER GROUP in WHICH THE QUERY IS CREATED> G
(G stands for GLOBAL AREA:)(Entered after a space)(G should come after 9
chanracters(8 char for user group,one space and then G)
D_SREPOVARI-EXTDREPORT = <QUERY NAME>
refer this:
http://sap.ittoolbox.com/groups/technical-functional/sap-dev/how-to-assign-a-tcode-to-a-sap-query-579623
Regards
Shiva

Needs sample ABAP code for field routine

Dear Expert,
There is a field "Pay Scale Group" in my DSO which stores the data in the format
AA1/B1/CCC2/DD2/EEE1, A1/BB2/CC2/DDD3/EE2 etc. These data has to be transferred to
InfoCube where "pay Scale Group" in the InfoCube will store the data like EEE1,EE2 etc.
I need to write a field routine on the transformation between DSO and Cube.
Can any one please help me with the sample ABAP code for this scenario.
Some more examples for better understanding of the requirement:-
Data in DSO(Source)            Data in Cube(Target)
===================            ===================
AA1/B1/CCC2/DD2/EEE1            EEE1
AAA1/BB2/CC1/DDD3/EE2           EE2
A2/BBB2/CC2/DDD3/EEE5           EEE5
AA2/BB1/C1/DDD3/EE3             EE3
A3/B1/CC2/DDD1/EE4              EE4
Many thanks in advance.
Regards,
Prakash
Please do not dump your code requirements in SDN
Edited by: Pravender on May 18, 2011 11:37 AM

Hi,
You can use the following code :
Suppose the technical name of the field coming from DSO is ZPAY_SGRP.
And also for example let me take one record, that is ZPAY_SGRP = AA1/B1/CCC2/DD2/EEE1 .
My assumption is that there will always be 4 '/'.
In the field routine write the below code
data: V1(5) type c,
          V2(5) type c,
         V3(5) type c,
          V4(5) type c,
         V5(5) type c.
data : VAR1 TYPE /BIC/OIZPAY_SGRP.
split VAR 1 at '/' into V1 V2 V3 V4 V5.
result = V5.
V5 will be having the characters after the last '/' .That is V5 = EEE1.
Hope the above reply was helpful.
Kind Regards,
Ashutosh Singh
Edited by: Ashutosh Singh on May 17, 2011 3:53 PM
Edited by: Ashutosh Singh on May 17, 2011 4:17 PM

ABAP code for BI 7.0 transformations start routine

Hi all,
I am trying to update data from DSO1 (Source1: transaction data) to Infocube(TARGET)
In the transformations Start routine, I have to read DSO2(Source2: Master data) for some fields.
DSO1 has CUSTOMER as part of key
DSO2 has CUSTOMER (key) and other fields....FIELD1, FILED2, FIELD3
Infocube to be updated with FIELDS1,2 & 3 WHILE READING DSO2.
WHERE DSO1 CUSTOMER matches with DSO2 CUSTOMER.
Also, data NOT TO BE UPLOADED into Infocube if FIELD1 in DSO2= NULL
Please give me the abap code for the above logic.
Appreciate any help in this regard.
Thanks.

This is a doc from this site:
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/6090a621-c170-2910-c1ab-d9203321ee19
Ravi Thothadri

ABAP Routine code for the below logic

Hello BW Experts ,
I need to write a complex ABAP routine in BW .
Following is the detail explaination .
Can anyone tell me the ABAP code for the below logic?
It would be a greate help as I am unable to do this
since last two days.
WBS Elements are maintained at IOS and Warranty levels in R/3 side.
The IOS WBS is a top level of WBS element and below that the Warranty WBS level.
The IOS and Warranty WBS elements can be differentiated by means of priority field.
When priority = i   , WBS Element is known as IOS Level WBS Element and
When priority = Y the WBS element is known as Warranty WBS element.
The Equipment Number is maintained compulsorily at IOS Level WBS elements only.
It is not maintained at Warranty WBS Element.
But the Cost is maintained at Warranty WBS Elements.
In BW I need all Warranty WBS ( priority = Y) along with their cost figures and Equipment Numbers.
But as the Equipment Number is not maintained compulsorily at Warranty WBS level we have asked to
Copy it from IOS WBS ( priority = i ) and assign it to Warranty WBS level ( priority = Y ).
So I have included the Equipment Number in the ODS and in update rules I need to write the routine for it as
per the above logic.
The Equipment Number is coming from Master data of WBS Element.
The WBS element master data we are loading in BW .
Also the same WBS Element transaction data is coming from the transaction data data source in BW.
Following fields / infoobjects and the table names in BW :
1. Equipment Number : /BIC/ZEQUIPMNT and table name /BIC/MZWBS_ELEM.
2. WBS Element       : ZWBS_ELEM is coming from transaction data data source as well as master data.
                                 In ODS update rules it is coming from transaction data data source Comm_structure-ZWBS_ELEM.
                                 Also we are loading separetly the master data for ZWBS_ELEM.
                                 The ZEQUIPMNT is an attribute of ZWBS_ELEM.
3. Priority                : PRIORITY     and table name /BIC/MZWBS_ELEM.
                                  The info object name for Priority is 0Priority but in master data table /BIC/MZWBS_ELEM
                                  the field name is    PRIORITY.
                                 When PRIORITY = ' i ' then    ZWBS_ELEM is at IOS Level
                                 When PRIORITY = ' y ' then ZWBS_ELEM is at Warranty Level.
4. ODS name : /BIC/AZCOST00 and same is table name active data table .
So please tell me the routine Code .
Best Regards ,
Amol.

Hi Dinaker,
Did you find any solution for this issue. I too have a similar requirement of pulling all the service orders for a specific Purchase Order in the BW report.
Thanks,
SAPBWI

Display HTML code in WebDynpro for ABAP

Hi, I would like to display a html page in a WebDynpro View, ie: I have the html code in a "string" variable and would now display this string now not with the html tags visible, but as a "real" html page.
I found a thread in WebDynpro for ABAP but I am a little bit lost in converting the logic to ABAP world.
Thanks

>I found a thread in WebDynpro for ABAP but I am a little bit lost in converting the logic to ABAP world.
I'm a little bit confused by this statement. Do you mean you found a thread in Web Dynpro Java, perhaps?
Regardless the approach is possible using the iFrame UI. The warning about the iFrame is that it is deprecated in NetWeaver 7.0 and 7.01 and my not be usable depending upon your support package level. However in NetWeaver 7.02 the iFrame returns to fully supported status.
If you have the HTML content in a string, you can simply place it into the ICM cache. This will provide a temporary URL for the content (you supply the lifetime of the URL) that can be referenced via the iFrame URL or even the LinkToURL if you want to open in a new window.
Here is the code for placing the string into the ICM Cache:
****Create the cached response object that we will insert our content into
data: cached_response type ref to if_http_response.
create object cached_response
    type
      cl_http_response
    exporting
      add_c_msg        = 1.
try. " ignore, if compression can not be switched on
      call method cached_response->set_compression
        exporting
          options = cached_response->co_compress_based_on_mime_type
        exceptions
          others = 1.
    catch cx_root.
endtry.
****set the data and the headers
data: l_app_type type string.
      cached_response->set_cdata( lv_html_text ).
      l_app_type = 'text/html'.
cached_response->set_header_field( name = if_http_header_fields=>content_type
                                     value = l_app_type ).
cached_response->set_status( code = 200 reason = 'OK' ).
cached_response->server_cache_expire_rel( expires_rel = 60 ).
data: guid type guid_32.
call function 'GUID_CREATE'
    importing
      ev_guid_32 = guid.
concatenate '/sap/public' '/' guid '.' 'html' into lv_iframe_url.
****Cache the URL
cl_http_server=>server_cache_upload( url      = lv_iframe_url
                                       response = cached_response ).
wd_context->get_element( )->set_attribute(
    name = `IFRAME_URL`
    value = lv_iframe_url ).

T.code for ABAP Varaints

Similar Messages

Maybe you are looking for