Routine help

Hi All,
I need help in abap code for writing routine in Transfer structure........
some records are posted with value "Y" for field N_WBSEOM and some are posted without any value " " BLANK into field N_WBSEOM at R/3 Side.
Now in BW i have same field N_WBSEOM.
Now when i updated these records to BW, Can these blank records can be assigned to value "N"(New Value).
Please suggest
Regards
Raj
Edited by: Raj on Jul 29, 2009 10:59 AM
Edited by: Raj on Jul 29, 2009 10:59 AM
Edited by: Raj on Jul 29, 2009 11:00 AM

Hi Raj,
Sure u can. Just write following simple routine for the field which u will be loading N_WBSEOM into .
IF TRAN_STRUCTURE-N_WBSEOM IS INITIAL.
RESULT = 'N'.
ELSE.
RESULT = TRAN_STRUCTURE-N_WBSEOM.
ENDIF.
Hope it helps.
Regards,
Rathy
Edited by: Rathy Moorthy on Jul 29, 2009 11:03 AM

Similar Messages

ABAP Trans routine help

Hi
I'm writing below abap routine in transrules to bring the plant from ZODS_01 active table :
SELECT SINGLE PLANT INTO ZPLANT
FROM /BIC/AZODS_01
WHERE DOC_NUMBER = TRAN_STRUCTURE-VBELN
AND /bic/ZCODE = 'SE'.
Code is working if there is only one record exist in /BIC/AZODS_01 with ZCODE = SE. But if there is more records exist with different codes including SE, its not brining the SE value. Do I need to remove the Single from SELECT statement or do I need to loop this in start rotuine to loop through every record until it finds SE ?
Please advice.

Hello
      Writing a SELECT SINGLE is not good if we want a better Code Performance , as for each record it hits the data base , which inturn will increase the load time . rather its suggested that Do one select with For all entries of data package & subsequently at INfo Object level have READ statement . some time like below
      SELECT
     PLANT
        FROM /bic/a<DSO Name>
        INTO TABLE Internal table
         FOR ALL ENTRIES IN source_package
       WHERE doc_number = source_packagedoc_number
& read would like below
    READ TABLE Internal table INTO wa_doc
         WITH TABLE KEY doc_number = SOURCE_FIELDS-doc_number
If this suggestion looks good , & need more code help do let me know
Thanks
Vivek

Message for Dirk Herzog . Routine Help

Hello,
I saw in Eugenes blog a routine you have provided for removing invalid/HEX characters during loads .When i try to use that routine in my transformations in BI 7.0 i get an error message .This is my code, followed by the error on the bottom.
DATA: l_d_length like sy-index,
l_d_char type c,
l_d_index type sy-index.
l_d_length = strlen( result ).
RESULT = SOURCE_FIELDS-FIELD.
DO l_d_length times.
l_d_index = sy-index - 1.
l_d_char = result+l_d_index(1).
CALL FUNCTION 'RSKC_CHAVL_OF_IOBJ_CHECK'
IMPORTING
I_CHAVL = l_d_char
I_IOBJNM = 'ZOBJECT'
*" I_S_COB_PRO =
*" I_T_COB_PRO_CMP =
EXCEPTIONS
CHAVL_NOT_ALLOWED = 1.
IF SY-SUBRC 0.
result+l_d_index(1) = ' '.
ENDIF.
ENDDO.
ERROR: Error: * E:The field "'ZOBJECT'" cannot be changed. - - - -
Please advise Dirk.
Thanks.

Hi,
Can someone help me with the issue i am having, its very important .
Thanks.

Infopackage routine --- Help!!

Hello all,
I am doing daily full loads to a cube.......there is no ODS....so when I do loads daily since its a full load the records are basically duplicating ...I would like to have a routine in my infopackage in such a way that if the request date is not a friday then delete that request and do a reload....I have other infosources also feeding data to that cube...so I cannot delete the whole contents of the cube...
thanks in advance...will assign points for your help......is there another way of doing this ?? like having an ODS and sending only delta records ?? and if this can be done using a routine in infopackage...and if its a yes then would like some help with the code...

Hi Bose,
In the infopackage there is a setting in "Data Target" tab where you can delete the overlapping request based on conditions. You can use that.
Check this link:
http://help.sap.com/saphelp_nw04/helpdata/en/f8/e5603801be792de10000009b38f842/frameset.htm
Re: how to Delete previous request
Bye
Dinesh

Start Routine Help - PLEASE...

Hello All BW/ABAP gurus, I am not good at ABAP and I need some help in writing Start routine.
Basically my (SIMPLIFIED) requirement is, I have the data coming in as series of 3 fields (data always will come) and if there are multiple values in those fields I have to create multiple records in the ODS with a sequence number.
For example if the data record is like
ABC01 00     99    88
Then my data record in ODS should be
ABC01   0001          99
ABC01   0002          88
And if the data record is:
ABC01 00     00    88
My record in ODS should be just
ABC01   0001          88
So thats the logic I am expecting in the start routine
So I kind of written the key part of code in the section below Any one who is good in ABAP and has written similar code in Start Routine, please correct if there are any mistakes thanks a ton in advance
CODE starts here:
DATA COUNT_SEQ N.
BEGIN ITAB_MAIN.
     KEY_FLD_01     AS /BIC/ .
     KEY_SEQ_01    AS /BIC/ ..
     DATA_FLD_01 AS /BIC/
END ITAB_MAIN.
BEGIN ITAB_INNER.
     KEY_SEQ_01    AS /BIC/ ..
     DATA_FLD_01 AS /BIC/
END ITAB_INNER.
LOOP AT DATA_PACKAGE.
REFRESH ITAB_MAIN.
ITAB_MAIN-KEY_FLD_01 = DATA_PACKAGE-KEY_FLD_01.
COUNT_SEQ = 1.
IF DATA_PACKAGE- DATA_FLD_01 > 0.
     ITAB_INNER-KEY_SEQ_01 = COUNT_SEQ.
     ITAB_INNER-DATA_FLD_01 = DATA_PACKAGE- DATA_FLD_01.
     COUNT_SEQ = COUNT_SEQ + 1.
      IF COUNT_SEQ = 1.
          MODIFY ITAB_INNER.
      ELSE
          APPEND ITAB_INNER.
      END IF.
END IF.
IF DATA_PACKAGE- DATA_FLD_01 > 0.
     ITAB_INNER-KEY_SEQ_01 = COUNT_SEQ.
     ITAB_INNER-DATA_FLD_01 = DATA_PACKAGE- DATA_FLD_01.
     COUNT_SEQ = COUNT_SEQ + 1.
      IF COUNT_SEQ = 1.
          MODIFY ITAB_INNER.
      ELSE
          APPEND ITAB_INNER.
      END IF.
END IF.
IF DATA_PACKAGE- DATA_FLD_02 > 0.
     ITAB_INNER-KEY_SEQ_01 = COUNT_SEQ.
     ITAB_INNER-DATA_FLD_02 = DATA_PACKAGE- DATA_FLD_02.
     COUNT_SEQ = COUNT_SEQ + 1.
      IF COUNT_SEQ = 1.
          MODIFY ITAB_INNER.
      ELSE
          APPEND ITAB_INNER.
      END IF.
END IF.
IF DATA_PACKAGE- DATA_FLD_03 > 0.
     ITAB_INNER-KEY_SEQ_01 = COUNT_SEQ.
     ITAB_INNER-DATA_FLD_03 = DATA_PACKAGE- DATA_FLD_03.
     COUNT_SEQ = COUNT_SEQ + 1.
      IF COUNT_SEQ = 1.
          MODIFY ITAB_INNER.
      ELSE
          APPEND ITAB_INNER.
      END IF.
END IF.
ITAB_INNER [] ITAB_MAIN.
CLEAR ITAB_MAIN.
CLEAR ITAB_INNER.
END LOOP.

I think could be as that:
DATA COUNT_SEQ N.
DATA_PACKAGE_NEW like DATA_PACKAGE occurs 0 with header line.
REFRESH DATA_PACKAGE_NEW .
LOOP AT DATA_PACKAGE.
ITAB_MAIN-KEY_FLD_01 = DATA_PACKAGE-KEY_FLD_01.
COUNT_SEQ = 1.
IF DATA_PACKAGE- DATA_FLD_01 > 0.
DATA_PACKAGE_NEW-KEY_SEQ_01 = COUNT_SEQ.
DATA_PACKAGE_NEW-DATA_FLD_01 = DATA_PACKAGE- DATA_FLD_01.
ADD 1 TO COUNT_SEQ.
APPEND DATA_PACKAGE_NEW.
END IF.
< same for 2, 3, 4>
END LOOP.
REFRESH DATA_PACKAGE.
DATA_PACKAGE[] = DATA_PACKAGE_NEW[].
I hope this help

Transformation Routine Help

Hello Guys,
I need your help in transformation routine.
I have source fields like 0DOC_NO(Sales Document no), 0CREATEDON(Created on), 0DLV_STS (Delivery status), 0DLVQLESC (Delivery Date Acc to scheduline date). i have 4 keyfigures like Late Incomplete (ZLI), Late Complete (ZLC), Ontime Complete (ZOC), Ontime In Complete (ZOI). i want to count no of sales order as ZLI, ZLC, ZOC, ZOI.
I have four conditions which i have to write for each keyfigures with above source fields in transformation routine.
1) For Late Incomplete : - if (0DLV_STS nt Eq C) and (0DLVQLSEC >0) then add1
2) For Late Complete : - if (0DLV_STS Eq C) and (0DLVQLSEC >0) then add1
3) For On-Time Complete :- if (0DLV_STS Eq C) and (0DLVQLSEC =0) then add1
4) For On-TIme Incomplete :- if (0DLV_STS nt Eq C) and (0DLVQLSEC >0) then add1
Can anyone tell me how to write it ?
Thanks in advance
Regards,
Komik Shah
Edited by: komik shah on Nov 14, 2009 1:24 AM

Hi,
Try this code...
For Late Incomplete
IF ( SOURCEFIELD-0DLV_STS NE 'C' ) AND ( SOURCEFIELD-0DLVQLSEC GE '0' ).
IF ( SOURCEPACKAGE IS INITAL ).
RESULT = 1.
ELSE.
RESULT = RESULT + 1.
ENDIF.
For Late Complete
IF ( SOURCEFIELD-0DLV_STS EQ 'C' ) AND ( SOURCEFIELD-0DLVQLSEC GE '0' ).
IF ( SOURCEPACKAGE IS INITAL ).
RESULT = 1.
ELSE.
RESULT = RESULT + 1.
ENDIF.
For On-Time Complete
IF ( SOURCEFIELD-0DLV_STS EQ 'C' ) AND ( SOURCEFIELD-0DLVQLSEC EQ '0' ).
IF ( SOURCEPACKAGE IS INITAL ).
RESULT = 1.
ELSE.
RESULT = RESULT + 1.
ENDIF.
For On-TIme Incomplete
IF ( SOURCEFIELD-0DLV_STS NE 'C' ) AND ( SOURCEFIELD-0DLVQLSEC GE '0' ).
IF ( SOURCEPACKAGE IS INITAL ).
RESULT = 1.
ELSE.
RESULT = RESULT + 1.
ENDIF.

Routine help - urgent

Hi guys,
Need help for routine code, i have rquirement currency translation based on currency type In the cube we having the Amount Key Figure in USD. i want to convert these values based on currency type or company code . ..GBP,JPY,INR,KRW..etc.
can any body help me for coding part.
Any suggestions will be rewarded.
Thank you
DST
Message was edited by:
DST

Hi,
Thank you Satish,
Based on company code i want to convert USD to GBP,JPY....etc
Any inputs for routine.
Thank you
DST
Message was edited by:
DST

START ROUTINE HELP

HI FRIENDS,
I WANT CREATE A START ROUTINE IN UPDATE RULES TO FILTER OUT TWO FIELDS WITH A SELECTION :
MY TWO FIELDS ARE
     Yacc_SEQ = ´ZROO´ .
        0PRICE_LIST = ´ ´ . (EMPTY)
AND
I WANT TO DERIVE 3 FIELDS LIKE 0CUSTOMER, 0SALESORG, YLEG_ENTITY FROM A MASTER TABLE INFOROBJECT NAMED Y_CUST_LE
I AM REALLY NEW TO ROUTINES, PLEASE SOMEONE HELP ME WITH THE ABAP CODE FOR THE ABOVE REQUIREMENTS.
HELP IS APPRECIATED (URGENT)
POINTS WILL BE FULLY AWARDED
THANKS IN ADVANCE
VEER

hi Veer,
you can try
tables : Y_CUST_LE.
data : it_ycust like Y_CUST_LE occurs 0 with header line,
       l_tabix like sy-tabix.
select * from Y_CUST_LE into table it_ycust.
delete data_package where Yacc_SEQ = ´ZROO´ and
0PRICE_LIST = ´ ´.
loop at data_package.
l_tabix = sy-tabix.
read table it_ycust with key fieldname = data_pacakge-fieldname.
if sy-subrc = 0.
data_pacakge-customer = it_ycust-customer.
data_pacakge-salesorg = it_ycust-customer.
data_pacakge-ylegentitiyinfoobject = it_ycust-yleg_entity.
modify data_package index l_tabix.
endif.
endloop.
(or you can try master attribute in update rules to derive that 3 fields).
hope this helps.

52 Weeks Movement type routine help

Hello Friends
I have a requirement that i need to get from the Material Segment table the movement type 551-711 for 52 weeks. in accordance with plant,stor_loc and material into an ODS A. This ODS A will have plant,material,stor_loc and a field say 'balance'.This balance should have the diffrence of 551-711 in it.i need to know where and what codes should i write.Ill have to write a code in Start Routine to only get the 551 and 711 movement types for 52 weeks and probably then in Update Rule Routine of object 'balance' ill have to my calculation.If this is not the right way please direct to what it should be and also if you could please provide me the codes as i have not a had a lot of experience with routines and coding.
Thank you once again for all your help in advance.

HI Ronit,
As per understanding of your requirement, you only need the data for the specific movement types and you want the report for the difference of these movement types.
First selcting the data can be done at info package level or transfer rules or the update rules or the start routine. i would suggest the selection at infopackage level.
i assume that the key figure balance is mapped directly from the source rather than a calculated one.
if this is the case, then write a simple code in the trasfer rules. first in the movement type hardcode the selection to "551" and "711" at transfer rule level or the info package level.
secondly for the balance key figure use this code at the transfer rule level
if
    movement type = "551".
    result = TRAN_STRUCTURE-balance.
    elseif movement type = "711".
    result = -1 * TRAN_STRUCTURE-balance.
endif.
Finally use the summation function at the update rule level ( i suppose you dont have the movement type field in the info provider ODS)
If the movement type field is in the info provider ODS or if the "balance" is a claculated field or the data at the source is not maintained at weekly level and you are trying to sum it in the info provider level. then you cannot achieve this at any level i.e. for example if you use the coding to calcualte at start routine then as it is just packet based and you can get the difference of data contained in the data packet and not the whole data.
this can be achieved only by a loopback method of repopulating the data once again back into ODS from the same ODS.
My reply might be a solution for or might be too confusing. please read through it and let me know if its of any help. if this doesnot help you. please elaborate your question.
regards,
raj

Routine help : How to get rid of "#" ?

Hello,
I know this issue has already been discudded many times here, but I'm still having problem with invalid caracter "#". We are loading Plant Maintenance Orders every morning and the data load failed repeatedly due to the presence of a "#" character in the text line (fied C_TEXT = Slopklep gaat constant open en dicht#).
We've found that the "#" character is in fact interpreted by default, the corresponding hexadecimal code is "09".
We were unable to convince the R/3 team to correct the error on their side, therefore i tried to write the following abap routine :
Unfortunatly, I'm not really a great abaper , as you can see, and instead of beig corrected, the field is deleted.
Could you help me to write this routine ?
data : hex_char type X value '09',
hex_sp type X value ' ',
hex_text type Xstring ,
car_text like COMM_STRUCTURE-/BIC/C_TEXT.
move COMM_STRUCTURE-/BIC/C_TEXT to hex_text.
replace all occurrences of hex_char in hex_text
with hex_sp in byte mode.
move hex_text to car_text.
result value of the routine
RESULT = car_text .
Any help would be greatly appreciated.
Best Regards.

Hello,
Thank you for your answer, but it didn't solve my issue :
I tried to use "replace" without considering the hexadecimal characters.
data : car_text like COMM_STRUCTURE-/BIC/C_TEXT.
move COMM_STRUCTURE-/BIC/C_TEXT to car_text.
REPLACE ALL OCCURRENCES OF '#' IN car_text WITH SPACE.
result=car_text.
But it didn't work, the system uses character '#' for all hexadecimal values for which ABAP does not have an own character. In my case, the hexadecimal "09" is interpreted as "#".
I have returted to the initial routine :
data : hex_char type X value '09',
hex_sp type X value ' ',
hex_text type Xstring ,
car_text like COMM_STRUCTURE-/BIC/C_KTEXT.
move COMM_STRUCTURE-/BIC/C_KTEXT to hex_text.
I try here to convert the field C_KTEXT in hexadecimal
using the move intruction but it doesn't work.
hex_text remains blank
replace all occurrences of hex_char in hex_text
with hex_sp in byte mode.
move hex_text to car_text.
therefore car_text is not filled
result value of the routine
RESULT = car_text .
By debugging, the routine I have found that the follolwing
move COMM_STRUCTURE-/BIC/C_TEXT to hex_text.

Time Conversion Routine- Help

I have a requirement where Iam haivng the Value as Input in CSV File for Time Feild as 12:00:00 A or 10:15:00 PM.
As per BW Standard Time feild object allows HH:MM:SS format .Hence, I need to know if there is any Solution to convert the Input Data into required BW Timefield Format as my Job is failing to upload through CSV File into BW.
Would appreciate your help in advance
Thanks
Ashley

Hey why are you asking the same question again ???
Time Conversion Routine- Help

End routine help

Hi Experts,
I have an CUBE which is loading once in a week(full load). In that cube i have plant and material and some other fields . My requirement is
1) i have to delete some materials from all the plants from the cube like mat1,mat2,mat3..etc from all the plants
and
2)have to delete one material for some plants like delete Mat8 for Plnt2 ,plnt5 and plnt 7.
For that i have written some code in End routine....As i am not an ABAPer, I need corrections ..please look in to and advice.
1)
data: Wa_Result_Package type tys_TG_1.
    loop at RESULT_PACKAGE into Wa_RESULT_PACKAGE.
delete Wa_Result_package .
      if Wa_Result_package-/BIC/ZMATERIAL = 'MAT1' or
         Wa_Result_package-/BIC/ZMATERIAL = 'MAT4' or
         Wa_Result_package-/BIC/ZMATERIAL = 'MAT6' or
         Wa_Result_package-/BIC/ZMATERIAL = 'MAT7' or
         Wa_Result_package-/BIC/ZMATERIAL = 'MAT9' .
        modify RESULT_PACKAGE from Wa_RESULT_PACKAGE.
      endif.
    endloop.
2)
data: Wa_Result_Package type tys_TG_1.
    loop at RESULT_PACKAGE into Wa_RESULT_PACKAGE.
delete Wa_Result_package
      if Wa_Result_package-plant = 'PLNT2' and Wa_Result_package-plant =
      'PLNT4' and Wa_Result_package-plant = 'PLNT8'.
        then delete Wa_Result_package-/BIC/ZMATERIAL = 'MAT8'.
        modify RESULT_PACKAGE from Wa_RESULT_PACKAGE.
      endif.
    endloop.
Please Advise,
KP

Hi Saveen,
I modified acc to ur advice..please correct..
1)
data: Wa_Result_Package type tys_TG_1.
loop at RESULT_PACKAGE into Wa_RESULT_PACKAGE.
delete Result_package .
where Wa_Result_package-/BIC/ZMATERIAL = 'MAT1' or
Wa_Result_package-/BIC/ZMATERIAL = 'MAT4' or
Wa_Result_package-/BIC/ZMATERIAL = 'MAT6' or
Wa_Result_package-/BIC/ZMATERIAL = 'MAT7' or
Wa_Result_package-/BIC/ZMATERIAL = 'MAT9' .
modify RESULT_PACKAGE from Wa_RESULT_PACKAGE.
endif.
endloop.
2)
data: Wa_Result_Package type tys_TG_1.
loop at RESULT_PACKAGE into Wa_RESULT_PACKAGE.
delete Result_package
where Wa_Result_package-plant = 'PLNT2' and Wa_Result_package-plant =
'PLNT4' and Wa_Result_package-plant = 'PLNT8'.
then delete Wa_Result_package-/BIC/ZMATERIAL = 'MAT8'.
modify RESULT_PACKAGE from Wa_RESULT_PACKAGE.
endif.
endloop
Regards...KP

Update routine help

Hi Frieds
My requirement is
1 have 6 internal tables taken.Lets say x-soldto x-shipto y-soldto y-shipto and z-soltdo z-shipto
As per the design the logic is
ase xbusline-/bic/MRKPARTNR.
      when 'SO'. "Sold-to
        move DATA_PACK1-sold_to to xcustomer.
      when 'SH'. "Ship-to
        move DATA_PACK1-ship_to to xcustomer.
      when others. "Default is the sold-to
    endcase.
The problem is when the condition is SO
   i need to use the data in x-soldtoy-soldto z-solto
when condition is SH
   i need to use the data in x-shipto y-shipto z-shipto
How can i dynamically change that internal table name .
In the data packege loop i need to loop throough
loop at ( Internal table should change based on condition we are checking above )where
          where fiscper    eq data_pack1-xfiscper
          and material     eq DATA_PACK1-material
          and sold_to      eq xcustomer.
Please let me know how should i proceed.
Regards
vijay

Hi Vijay,
Your problem is a little bit difficult to understand... but I believe it's easy to solve.
Why don't you just use an IF or CASE before your loop? That way you can write three different loops for each case (or two, because you only use sold-to, and ship-to otherwise.
Maybe I'm not understanding the problem...
Hope it helps,
David.

URGENT ** ABAP ROUTINE HELP

Hi gurus,
             I am write a ABAP routine to fetch G/L acount form zpur_acc DSO for a joining consition of PO # and line item #.
I am not etting the desired result. Can some one please lookinto the code and debug it.
Here I am reading OI_EBELN and OI_EBELP from the incoming data but since I am in BI7.0 how can I use info object (OI_EBELN , OI_EBELP) directly or it should be referenced via communication structure-filed name? What is the name of communication structure in Bi 7.0?
data: wa_tab type /BIC/AZPUR_ACC00.
select single * into wa_tab from /BIC/AZPUR_ACC00
where
OI_EBELN = wa_tab-OI_EBELN
and
OI_EBELP = wa_tab-OI_EBELP.
*and objvers = 'A'.
result = wa_tab-GL_ACCOUNT.
Warm Regards,
Anil

METHOD compute_0GL_ACCOUNT.
IMPORTING
    request     type rsrequest
    datapackid type rsdatapid
   EXPORTING
     RESULT type tys_TG_1-GL_ACCOUNT
    DATA:
      MONITOR_REC    TYPE rsmonitor.
$$ begin of routine - insert your code only below this line        -
... "insert your code here
*-- fill table "MONITOR" with values of structure "MONITOR_REC"
*-   to make monitor entries
data: wa_tab type /BIC/AZPUR_ACC00.
select single * into wa_tab from /BIC/AZPUR_ACC00
where
OI_EBELN = wa_tab-OI_EBELN
and
OI_EBELP = wa_tab-OI_EBELP.
*and objvers = 'A'.
*result = wa_tab-GL_ACCOUNT.
... "to cancel the update process
   raise exception type CX_RSROUT_ABORT.
... "to skip a record
   raise exception type CX_RSROUT_SKIP_RECORD.
... "to clear target fields
   raise exception type CX_RSROUT_SKIP_VAL.
     RESULT = wa_tab-GL_ACCOUNT.
$$ end of routine - insert your code only before this line         -
ENDMETHOD.                    "compute_0GL_ACCOUNT

Routine--- help its urgent.

hai gurus,
Here is the scenario.
I am extracting the data from r/3.There is one field called "ITM_DESCRIPTION" in this i am gettting an # char only for single record and due to this delta loads are getting failed.
we had already wriiten the code for eliminating # for that field but dont know its not working. So i am planning out to skip that particular record for a particular Purchase order number.
Is there any such code to eliminate the particular record.
Many thanks in advance.
any one has the code plz send the code.
Help its urgent.
full points assured
regards
KP

hai Oscar,
I had already done this one.
still geting the same problem.
can u send me any code that i can add in SR of TR.
regards
Kp

Routine help

Similar Messages

Maybe you are looking for