Need ABAP Code

Hi,
I want to write a small ABAP routine for a particular variable "ZS". The logic is ..
I want to read a variable "ZV" , if the first char of the ZV is "A" then Assign a constant "Y" to ZS
if not Assign "N" to ZS...
Can any one help me in developing this code..

Hello,
You can code with below logic:
if zv-low+0(1) = 'A'.
zs-low = 'Y'.
else.
zs-low = 'N'.
endif.
This is the main logic....i hope u can write the other stuff as per the need.
regards,
shashank

Similar Messages

Need ABAP code for the below Services requirement

Hi,
We have a requirement to show all the services for a particular Purchase order number.For this I built a view on 2 tables ESLL and EKPO.Now based on the below logic I need to bring the services for the Purchase order..
1.Enter PO number,item no. and Doc category in EKPO and find the Pack no.
2.Now take the Pack no. of EKPO and give in ESLL and find the Sub pack no.
3.Now take this Subpack no. and Give this sub pack as Pack no. in ESLL
4.This will be the Service entry record for that PO number.
Can any one Please suggest me to how to write the ABAP code for the above logic.
Thanks & Regards,
Dinakar

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

Need ABAP code to make unique hierarchy values - Request prompt help

hi
<removed>
I am new to SAP. Please help me in the following
I require an ABAP code for the following scenario
I have a simple hieraarchy. The hierarchy is
SEG -> fam -> clas -> comm
The values of the seg , fam, cla, com......all will be charecter values
But in some cases the values will be NOT_KNOWN
If the values are NOT_KNOWN i need to change them as NOT_KNOWN_1, NOT_KNOWN_2...like that unique charecter values
should be replaced for NOT_KNOWN
Example
SEG->FAM->CLA ->COM
Clothing -> Mens wear -> Designer garments -> NOT_KNOWN
Construction -> equipments -> machinery->NOT_KNOWN
Computers -> Laptops -> Imported -> NOT_KNOWN
                 -> desktops ->flat monitors -> Indian
                       -> imported                     -> NOT_KNOWN->
NOT_KNOWN -> baggages
This should be changed to
SEG->FAM->CLA ->COM
Clothing -> Mens wear -> Designer garments -> NOT_KNOWN_1
Construction -> equipments -> machinery->NOT_KNOWN_2
Computers -> Laptops -> Imported -> NOT_KNOWN_3
          -> desktops ->flat monitors -> Indian
                          -> imported
       -> NOT_KNOWN_4 ->
NOT_KNOWN_5 -> baggages
This is to make them unique nodes to upload them in hiereachy
Data is coming from database tables and i was not supposed to do anything in database and the incomin
data needs to finetuned like this to update them in cube
So I like to have some coding which will enable this to work in the start routine
If start routine is not the right option, where else we can do coding
<removed>
Regards
KC

data : w_suff_n(8) type n,
         w_suff_c(8).
loop at data_package.
if data_package-<fieldval> = 'NOT_KNOWN'.
w_suff_n = w_suff_n + 1. w_suff_c = w_suff_n.
shift w_suff_c left deleting leading '0'.
concatenate data_package-<fieldval> w_suff_c into data_package-<fieldval>.
modify data_package.
endif.
endloop.
*Change <fieldval> in the above to the actual field name.

Need ABAP Code to enhance the 0PRODORDER_ATTR?

I want to enhance the datasource 0PRODORDER_ATTR with the below JCDS Table fields like UDATE,STAT,OBJNR,INACT,CHGNR.
Can anyone please let me know the ABAP Code need to be written in the CMOD to populate the data for the above fields in the 0PRODORDER_ATTR?

Hi,
You can use below code to enhancemnt .
You need to change the table, structure and field names
Below code you have to write in tocde CMOD if you are enhancing the master data. It applies for any master data, although, I have taken 0VENDOR_ATTR as the example. I assume that You have already added/appended the fields in the extract structure of 0VENDOR_ATTR i.e. to the structure BIW_LFA1_S. ( Check this link for how to enhance the DataSource : https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/b0af763b-066e-2910-a784-dc6731660f46 )
We have enhanced the datasorce for the following two fields from table LFA1:
ERDAT- Date on which the Record Was Created
KRAUS - Credit information number.
We have also enhaced the structure for the following fields from table LFB1.
MINDK - Minority Indicators
ZTERM - Terms of payment key
CERDT - Certification date.
Now we will poulate these two fields in the code written in CMOD tcode. Here is the code:
Go to the tcode CMOD in R3 and select the component EXIT_SAPLRSAP_002. Write this code in INCLUDE ZXLOFU01.
data : l_t_data like biw_lfa1_s.
data : l_tabix like sy-tabix.
CASE i_datasource.
WHEN '0VENDOR_ATTR'.
    LOOP AT i_t_data INTO l_t_data.
      l_tabix = sy-tabix.
      CLEAR: l_t_data-yyerdat,
             l_t_data-yykraus.
      SELECT SINGLE erdat kraus FROM lfa1 INTO
          ( l_t_data-yyerdat, l_t_data-yykraus)
            WHERE lifnr EQ l_t_data-lifnr.
      SELECT SINGLE mindk zterm cerdt FROM lfb1 INTO
              (l_t_data-yymindk, l_t_data-yyzterm, l_t_data-yycerdt)
              WHERE lifnr = l_t_data-lifnr.
      MODIFY i_t_data FROM l_t_data INDEX l_tabix.
      CLEAR: l_t_data, l_tabix.
    ENDLOOP.
ENDCASE.
Labels parameters

Need ABAP code for Datasource Enhancement

Hi All,
I need no Enhance the WBS Element(PS_PSP_PNR) to2 LIS_02_ITM Datasource
the table EKKN Having WBS element
From EKKN Table We have to take the filed Append to the2LIS_02_ITM datasource
Please any one give me ABAP code which is write in CMOD
Thanks........
Regards!
Malli

Hi,
See SAP Help
http://help.sap.com/saphelp_nw04s/helpdata/en/6e/fe6e420f00d242e10000000a1550b0/content.htm
See the simple example code, so follow the same.Take ABAPer help, don't use select and end select.
CASE i_datasource.
Data: l_s_data1 LIKE mc13vd0itm,
        l_tabix   LIKE sy-tabix,
WHEN '2LIS_13_VDITM'.
    LOOP AT c_t_data INTO l_s_data1.
      l_tabix = sy-tabix.
      SELECT SINGLE auart INTO l_s_data1-zzprdtyp FROM vbak
             WHERE vbeln = l_s_data1-aubel.
      IF sy-subrc = 0.
        MODIFY c_t_data FROM l_s_data1 INDEX l_tabix.
      ENDIF.
    ENDLOOP.
ENDCASE.
Data: l_s_data18 LIKE mc12vc0itm ,
      l_tabix   LIKE sy-tabix.
WHEN '2LIS_12_VCITM' .
    LOOP AT c_t_data INTO l_s_data18.
      l_tabix = sy-tabix.
      SELECT SINGLE ernam FROM ekko
       INTO (l_s_data18-ernam)
       WHERE ebeln = l_s_data18-vgbel .
      IF sy-subrc = 0.
        MODIFY c_t_data FROM l_s_data18 INDEX l_tabix.
      ENDIF.
    ENDLOOP.
See article on Step by Step Guide to Enhance a Data Source:
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/00c1f726-1dc2-2c10-f891-ddfbffdb1a46?quicklink=index&overridelayout=true
Thanks
Reddy

Need Abap Code Help

Hi ,
I am trying to activate an ODS but it is failing the activation process . When I look into the application log I see this error "Value 'RAM???¿????????S RAM' (hex. '4D41524B3F3F3FBF3F3F3F3F3F3F3F3F5320574F524B') of characteristic ZEUID contains invalid characters "
I am new to ABAP and I need an ABAP code to filter this value when loading data into ODS .
Thanks a lot for your help

HI,
Write the code in the start routine.
IN the start routine you have a table called SOURCE_PACKAGE.
declare work area x_souce_package type source_package
data : lv_string(100).
loop at souce_package into x_source_package.
lv_string = x_source_package-value.
TRANSLATE LV_STRING TO UPPER CASE
if lv_string CA 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' .
ELSE.
DELETE SOURCE_PACKAGE INDEX SY-TABIX.
ENDIF.
endloop

Need ABAP Code in BI routine

Hi,
I want to write a transfer routine, Can any one give me the ABAP Code...
Here is what I want to do:
1. Read by document Number at the Header level (identified by item = "#")
2. Read the Status of the Header
3. If the Status = deleted
4. Read all the line items related to the Header
5. Assign the Status of the line item = Status of the Header
Thanks
Edited by: tanu d on Aug 20, 2010 11:32 AM

Hi,
See the simple code.
IF SOURCE_FIELDS-N_WBSEOM = ' '.
      RESULT = 'N'
    ELSE.
      RESULT = SOURCE_FIELDS-N_WBSEOM.
    ENDIF.
OR
IF SOURCE_FIELDS-N_WBSEOM IS INITIAL.
      RESULT = 'N'
    ELSE.
      RESULT = SOURCE_FIELDS-N_WBSEOM.
    ENDIF.
Thanks
Reddy
Edited by: Surendra Reddy on Nov 25, 2009 5:38 AM

Help! Need Abap code in Bex for Customer Exit

Hi,
I am new to abap, i need help in creating variable type customer exit.
i want to create a variable type customer exit the reqmnt is to create a variable that will derive quarter(0CALQUARTER) from FINANCIAL_CLOSING variable.
Really appreciate if one can provide me the coding for this logic.
Thanks.

Hi Yaser,
Check this below.
http://scn.sap.com/thread/278890
Regards.

Need ABAP code for Routine

Hi Gurus My requirement goes like this.
                              I need to write the routine in Transformation from DSO to DSO
Source table
Doc         Amt         Netduedate      Reference Doc
1000      10000     01.01.2010
1500       5000      30.01.2010        1000
1700       3000      02.02.2010        1000
In the Above table 1st document is Invoice Document, 2nd and 3rd are Partial Payment Document.
My requirement is 2nd and 3rd record Netduedate value should have 01.01.2010 by referring reference Doc field, for the above Ex We should have the output like this
Target table
Doc         Amt         Netduedate      Reference Doc
1000      10000     01.01.2010
1500       5000      01.01.2010        1000
1700       3000      01.01.2010        1000
Please give me the syntax code and where to write the code ie in the start routine or in the field routine. the dataflow is between one DSO to Another DSO
Please Provide me the solution ASAP as this is very Urgency.
Thanks in Advance

If suppose your documents are being loaded in same load,
1. start routine - create internal table like SOURCE_PACKAGE
DATA IT_SOURCE_PACKAGE TYPE TABLE OF SOURCE_PACKAGE.
DATA WA_SOURCE_PACKAGE LIKE LINE OF SOURCE_PACKAGE.
2. copy all records to new internal table, IT_SOURCE_PACKAGE[] = SOURCE_PACKAGE[]
3. delete partial docs, DELETE IT_SOURCE_PACKAGE WHERE REF_DOC IS NOT INITIAL.
4. Sort internal table SORT IT_SOURCE_PACKAGE BY DOC
5. Look for original doc inside loop.
LOOP AT SOURCE_PACKAGE ASSIGNING <SOURCE_FIELDS> WHERE REF_DOC IS NOT INITIAL.
READ TABLE IT_SOURCE_PACKAGE
      INTO WA_SOURCE_PACKAGE
      WITH KEY DOC = <SOURCE_FIELDS>-REF_DOC BINARY SEARCH.
IF SYSUBRC EQ 0.
<SOURCE_FIELDS>-NDUEDATE = WA_SOURCE_PACKAGE -NDUEDATE.
ENDIF.
ENDLOOP.
If the original documents are found in different loads in the source DSO, we need to pull the records from active table of the target DSO after step 2.
-Jijo

Abap code for splitting date needed

Hi Experts,
I need ABAP code or a function module to split date into date, month and year. As I have very little knowledge in ABAP, I do not know how to do it. Kindly help me.
Thanks in advance,
With Kind Regards,
Kannan

Hello kannan,
I tried writing this program , it worked for me .
PARAMETERS : date(10) TYPE c default '24.12.2014',
              dd(2) type c,
              mm(2) type c,
              yyyy(4) type c.
split date at '.' into dd mm yyyy.
WRITE : / 'Day: ', dd.
WRITE : / 'Month: ', mm.
WRITE : / 'Year: ', yyyy.
If you feel this program suits you try this as well.

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

Help needed in writting Customer exit - ABAP Code

Hi Friends,
I have a scenario in one of the query and need to write a customer exit for the same. Here is the scenario:
I am using one input variable XXX to get input from user which feeds value to one of the charateristic lets say "CHAR1" in query. I have one more characteristic "CHAR2" which has to get the value from the same variable XXX. This is not allowed in BI7.0 as the variable is Hierarchy Node type. It gives error that "Variable XXX is used for two different characteristics."
So i need to create one more vaiable YYY which will get the value from XXX and then YYY will feed value to CHAR2. I would appreciate if some one could tell me step by step how to write customer exit and give me the piece of ABAP code i need to write in my case.
Your help will be appreciated in terms of points.
Thanks,
manmit

Hi Arun,
1. What should CHAR2 take - Hierarchy node variable or something else ?
--> CHAR2 is a simple charateristic
2. In your scenario - why have CHAR1 and CHAR2 ? why not have the user enter values against CHAR2 ??
--> We dont want user to enter two input as the input values for both Chars are same.
3. Did you try using a replacement path variable with the CHAR2 variable taking values from Variable on CHAR1 ?
--> In BI7.0 replacement path variable only take values from Query results. So not able to do the same.
Thanks

Need Help With Simple ABAP Code

Hello,
I'm loading data from a DSO (ZDTBMAJ) to an Infocube (ZCBRAD06). I need help with ABAP code to some of the logic in Start Routine. DSO has 2 fields: ZOCTDLINX & ZOCBRDMAJ.
1. Need to populate ZOCPRODCD & ZOCREFNUM fields in Infocube:
    Logic:-
    Lookup /BI0/PMATERIAL, if /BIC/ZOCBRDMAJ = /BIC/OIZOCBRDMAJ
    then /BIC/ZOCPRODCD = ZOCPRODCD in Infocube
           /BIC/ZOCREFNUM = ZOCREFNUM in Infocube
2. Need to populate 0G_CWWTER field in Infocube:
    Logic:
    Lookup /BIC/PZOCTDLINX, if /BIC/ZOCTDLINX = BIC/OIZOCTDLINX
    then G_CWWTER = 0G_CWWTER in Infocube.
I would need to read single row at a time.
Thanks!

I resolved it.

ABAP code needed to populate data in the fields............

Hi,
I have added 3 new fields to the datasource 0PROJETC_ATTR
fields names are : ZZPROFL , ZZPLFAZ and ZZPLSEZ
Can some body tell me the ABAP code to fill data in these 3 fields.
Thanks,
Jeetu

hi Jeetu,
we need the logic,
but the code will something like following sample ...
Declaration for datasource 0MATERIAL_ATTR
DATA : BEGIN OF S_BIW_MARA_S.
INCLUDE STRUCTURE BIW_MARA_S.
DATA : END OF S_BIW_MARA_S.
*Here BIW_MARA_S corresponds to the structure of your datasource *0MATERIAL_ATTR
*then you have to declare a when with the datasource on which you want to *populate the appended new fields.
*for example :
WHEN '0MATERIAL_ATTR'.
*then do a loop across your strcuture
LOOP AT C_T_DATA INTO S_BIW_MARA_S.
*a select from the table
SELECT SINGLE * FROM MARA
WHERE MATNR = S_BIW_MARA_S-MATNR.
*a check to see if your select is ok
IF SY-SUBRC = 0.
*if it is ok then your field in your structure is corresponding to a field in the table
S_BIW_MARA_S-Z1 = MARA-Z1.
S_BIW_MARA_S-Z2 = MARA-Z2.
*the c_t_data will be updated from what you get in your structure.
MODIFY C_T_DATA FROM S_BIW_MARA_S.
ENDIF.
ENDLOOP.
hope this helps.

Need towrite ABAP code in cnoverting Country like Malysia to Area like East

Hi ,
Need to write ABAP code in cnoverting Country like Malysia to Area like Ease or West.
Can anybody help me please?
Regards,
kranti

Hi,
I think you can also do it by concatenating the 2 fields data and displaying it in the result. You can go through the link below which discusses the similar issue. Not very sure which would be the best way to achieve this.
Concatenate 2 fields in a Query
hope this helps in some way.
Regards,
Gaurav

Need ABAP Code

Similar Messages

Maybe you are looking for