LookUP in Routine

Question

Hi,
I need to create a Lookup for some fields coming from 2 different PSA table (/BIC/B000........) in start routine.
I'm not good in ABAP, Please some one help me to write the codes.
Thanks,
Pria

Answer 1

This is the SELECT statement in the code that you have written:
SELECT WBS_ELEMT APPR_YEAR PROG_DEF_S PROG_POS /BIC/ZAPP_REQ FROM
/BIC/AZASIPROJ00
INTO TABLE I_S_ZASIPROJ
---> (INTO CORRESPONDING FIELDS OF TABLE I_S_ZASIPROJ can also be used, make sure your field names are proper)
for all entries in the source_package
where
WBS_ELEMT = SOURCE_FIELDS-WBS_ELEMT
APPR_YEAR = SOURCE_FIELDS-FISCYEAR.
IF SY-SUBRC EQ 0.
SORT I_S_ZASIPROJ BY WBS_ELEMT.
ENDIF.
*And on the field side*
(Should consider taking off this loop, as said earlier)
LOOP AT I_S_ZASIPROJ INTO WA_I_S_ZASIPROJ.
READ TABLE I_S_ZASIPROJ INTO WA_I_S_ZASIPROJ WITH KEY
WBS_ELEMT = SOURCE_FIELDS-WBS_ELEMT
APPR_YEAR = SOURCE_FIELDS-FISCYEAR
BINARY SEARCH.
IF SY-SUBRC EQ 0.
RESULT = WA_I_S_ZASIPROJ-PROG_POS.
ENDIF.
ENDLOOP.
You said that you have multiple records with the Key:
WBS_ELEMT = SOURCE_FIELDS-WBS_ELEMT
APPR_YEAR = SOURCE_FIELDS-FISCYEAR
If so, how will you get the different records? Because i think WBS_ELEMENT & APPR_YEAR will remain the same.
Do you have any other field that can be compared? If so, this will save the effort of the Loop in the Field side.
*Just use:*
READ TABLE I_S_ZASIPROJ INTO WA_I_S_ZASIPROJ WITH KEY
WBS_ELEMT = SOURCE_FIELDS-WBS_ELEMT
APPR_YEAR = SOURCE_FIELDS-FISCYEAR
BINARY SEARCH.
IF SY-SUBRC EQ 0.
RESULT = WA_I_S_ZASIPROJ-PROG_POS.
ENDIF.
One more thing you can try is using Field-Symbols. You can have dynamic memory allocation.
Syntax:
Field-Symbols: <WA_I_S_ZASIPROJ> TYPE I_S_ZASIPROJ.
(Instead of DATA: WA_I_S_ZASIPROJ TYPE I_S_ZASIPROJ.
(Only change in the Read Statement)
RESULT = <WA_I_S_ZASIPROJ>-PROG_POS.
You need not use the CLEAR statement for the Field-Symbol.
As said earlier, the code works fine & is faster in the Dev system. What is the number of records that we are looking at?
I guess, as your count in Test system is ~ 2 mils, it is taking some more time than in Dev.
Doing away with the loop should help you.
Now, coming to the Message part.
Go to SE91 -> Create a Message Class -> Assign a package ($TMP for time being) ->
Select the Message Number (000 to 999, any) -> Maintain Selected Entries (Pencil symbol) ->
Message Short Text: WBS Element & less than 50%  (Here '&' is a place holder) -> Save
In the Transformation -> Use the table rsmonitor (this is already defined in the Start Routine or field routine)
READ TABLE I_S_ZASIPROJ INTO WA_I_S_ZASIPROJ WITH KEY
WBS_ELEMT = SOURCE_FIELDS-WBS_ELEMT
APPR_YEAR = SOURCE_FIELDS-FISCYEAR
BINARY SEARCH.
IF SY-SUBRC EQ 0.
RESULT = WA_I_S_ZASIPROJ-PROG_POS.
ELSE.
MONITOR_REC-MSGID = 'ZMESSAGE'.
MONITOR_REC-MSGTY = E/ I /S /W  (E- Error, I - information, W -Warning.)
MONITOR_REC-MSGNO = '001'.
MONITOR_REC-MSGV1 = 'SOURCE_FIELDS-WBS_ELEMT'.
APPEND MONITOR_REC TO MONITOR.
* RAISE EXCEPTION TYPE CX_RSROUT_ABORT.
ENDIF.
It display in monitor screen as
ZMESSAGE W 'WBS Element (WBS_ELEMENT Number) less than 50%' .
May not be the exact code. So, just play around & check the syntax.
Please check: Creating monitor entries