How to check a field value within an Internal table

Hi Friends,
My requirement is:
I have a line item of PO records, in that each line item of Plant field should not diffe with other line items. If it differs or say the records have different plant values line items, then I have to throw an error message.
Below example for better understanding.
lineitem Plant
010       ABC
020       ABC
030       XYZ
040       LKG
So, my report will throw an error like "All line items must be identical'.
How to do proceed it.Please advise.
Thanks & Regards
Sankar.

Hi Sankar
first you need to fetch all the values in one internal table from your PO.
After that create an internal table with only plant field and move all the plan values in this table.
let assume ITAB is a table with all the values. and ITAB1 with plant only.
wa_itab is the work area for ITAB and wa_itab1 is WA for ITAB1.
ITAB has all the values and ITAB1 has all the values only for plant.
delete adjacent duplicate from itab1 compairing plant.
loop at itab1 into wa_itab1. " this will fetch all the plant values in workarea.
read table itab into wa_itab where wa_itab-plant = wa_itab1-plant. " this will fetch only the values matching to the table itab1
if su-subrc <> 0.
message 'plants are not similar' TYPE 'E'.
elseif sy-subrc = 0.
write your code*.
endif.
endloop.
hope this will help you.
Thanks
Lalit Gupta

Similar Messages

How to get the field name of an internal table during runtime?

How to get the field name of an internal table during runtime?

Hi Sudhir,
Declare and Use Get Cursor Field in Your Prm to get the field Name of the Intenal Table
Example Code:
 DATA: v_field(60). " Insert this code.
 GET CURSOR FIELD v_field. " Insert this code.
 CHECK v_field = 'ITAB-KUNNR'. " Insert this code. (or)
Write: v_field.
Regards,
Ramganesan K.

Passing '**********' to screen field value instead of internal table value

Hi All,
I have written BDC, in which when i pass value for second screen "Description type field" it's passing '*************************' instead of internal table value.
It's picking correct value for first internal table value. Could anyone please give an idea why it's happening?
Please find the code:
LOOP AT it_record.
header data for BDC
 AT NEW CLASS.
 IF sy-tabix <> 1.
 perform bdc_dynpro using 'SAPLCLMO' '7777'.
 perform bdc_field using 'BDC_OKCODE'
 '=SAVE'.
 CALL TRANSACTION 'CLWM' USING bdcdata
 MODE p_mode
 UPDATE 'S'
 MESSAGES INTO messtab.
 clear : bdcdata[],bdcdata.
 ENDIF.
 perform bdc_dynpro using 'SAPLCLMO' '0200'.
 perform bdc_field using 'BDC_CURSOR'
 'RMCLM-CLASS'.
 perform bdc_field using 'BDC_OKCODE'
 '/00'.
 perform bdc_field using 'RMCLM-CLASS'
 it_record-class.
 perform bdc_dynpro using 'SAPLCLMO' '7777'.
 perform bdc_field using 'BDC_OKCODE'
 '/00'.
 perform bdc_field using 'BDC_CURSOR'
 'RMCLM-KLBEZ'.
 perform bdc_field using 'RMCLM-KLBEZ'
 it_record-klbez.
 perform bdc_field using 'RMCLM-STATU'
 '1'.
 perform bdc_dynpro using 'SAPLCLMO' '7777'.
 perform bdc_field using 'BDC_OKCODE'
 '=MERK'.
 perform bdc_field using 'BDC_CURSOR'
 'RMCLM-KLBEZ'.
 perform bdc_field using 'RMCLM-KLBEZ'
 it_record-klbez.
 perform bdc_field using 'RMCLM-STATU'
 '1'.
 MOVE 1 TO IDX.
 ENDAT.
line item data for BDC
 perform bdc_dynpro using 'SAPLCLMO' '7777'.
 perform bdc_field using 'BDC_OKCODE'
 '/00'.
 perform bdc_field using 'BDC_CURSOR'
 'RMCLM-RELEV(02)'.
 CONCATENATE 'RMCLM-MERKMA(' IDX ')' INTO FNAM.
 perform bdc_field using FNAM
 it_record-merkma.
 CONCATENATE 'RMCLM-RELEV(' IDX ')' INTO FNAM.
 perform bdc_field using FNAM
 it_record-relev.
 IDX = IDX + 1.
ENDLOOP.
Thanks,
Ujjwal

Hi Ujjwal
The reason behind this is that you are using AT NEW.... ENDAT block in your coding.
When you use AT NEW field statements, the fields in the work area after the field get converted into ********.
Check values in your work area I_RECORD in debugging inside AT NEW statement and you will understand what I am saying.
In your case all the fields from header line of I_RECORDS which come after field CLASS are getting converted into *******,
hence the error.
Try using a temporary work area, say w_record. Pass value of I_record to w_record before AT NEW statement.
And use w_record-fields instead of I_record-fields. And your program should work.

How To Read Field Values Form Dynamic Internal Table

Hi,
I Created a dynamic internal table using.
FIELD-SYMBOLS: <gt_table> TYPE STANDARD TABLE,
 <wa_gt_table>,
 <l_fvalue> TYPE ANY.
This Interanl table is working well, and all values are populated to an ALV.
Now I try to set a link
for that I am using below code
 READ TABLE <gt_table> ASSIGNING <l_fvalue> index rs_selfield-tabindex.
 IF sy-subrc EQ 0.
 insplot = <l_fvalue>-prueflos.
Now it is showing a syntax error :
the data object <l_fvalue> has no structure and there for no component called prueflos
Regards
Nausal

Hi,
Refere following code
Local Field Symbol
FIELD-SYMBOLS: <lf_any> TYPE ANY. "Changed data
LOOP AT <gf_dyna_table> ASSIGNING <gf_dyna>.
 DO.
 ASSIGN COMPONENT sy-index OF STRUCTURE <gf_dyna> TO <lf_any>.
 IF sy-subrc NE 0.
 EXIT.
 ENDIF.
 IF ls_attach-line IS INITIAL.
 ls_attach-line = <lf_any>.
 ELSE.
 CONCATENATE ls_attach-line <lf_any> INTO ls_attach-line
 SEPARATED BY lc_tab.
 ENDIF.
 ENDDO.
 CONCATENATE lc_cret ls_attach-line INTO ls_attach-line.
Append Changed Data to attachement table
 APPEND ls_attach TO gt_attach.
Clear
 CLEAR : ls_attach.
ENDLOOP.
Regards,
Prashant

How to check if a value is in a table column?

Hi, I am new to Oracle. Will sombe body pls tell me how to solve the problem:
Suppose there is a table with a employee-id column, there are lots of lines in the table with employee-id be 1,2,3,4.....respectively. my question is, how to check if a employee-id e.g., 15 is in the table?
thanks in advance

>
> Suppose there is a table with a employee-id column,
there are lots of lines in the table with
You mean records.
employee-id be 1,2,3,4.....respectively. my question
is, how to check if a employee-id e.g., 15 is in the
table?
SELECT *
FROM EMPLOYEE
WHERE EMPLOYEE_ID = 15;Regards.
Satyaki De.

Debugging ECC6: how to see the fields name when download internal table?

When we debug a reprot in ECC6 and save to a local file an internal table, the fields are not appearing only the data,
Is there a way to download also the table fields name?

From the new debugger switch to the classic debugger using menu path Debugger->Switch to Classic Debugger. Form the classic debugger you can download internal table data with column name(s).
Regards,
Joy.

How to group together same field values in a internal table.

Hi Gurus,
Case:1
Using AUFNR, i am retrieving data from RESB table.
Fields (RSPOS, ALPGR, ALPRF,KZAUS, MATNR).
If RESB-ALPGR (Alternate material group) is not initial, sort those values with ALPFR (Priority) after that group together same ALPGR values.
1) Top most priority (ALPRF) value MATNR populate to IDOC field.
2). Next top priority (ALPRF) value MATNR populate to IDOC field.
Case2:
using AUFNR, check RESB-KZAUS if it has a value '1'.
then, check to see if there are RESB-RSPOS that has the same (repeated RSPOS values) Ex: RSPOS value 0002,0002.
if yes, place the first RSPOS with KZAUS = 1. MATNR move to IDOC next RSPOS-MATNR value move to IDOC field.
Points will be awarded for useful answers.
Thanks in Advance.
Sashi.

Hi,
Check this Example..
DATA:BEGIN OF ITAB OCCURS 0,
NAME(15) TYPE C,
END OF ITAB.
ITAB-NAME = 'peter'.
APPEND ITAB.
CLEAR ITAB.
ITAB-NAME = 'john'.
APPEND ITAB.
CLEAR ITAB.
ITAB-NAME = 'abrahm'.
APPEND ITAB.
CLEAR ITAB.
ITAB-NAME = 'daneyal'.
APPEND ITAB.
CLEAR ITAB.
LOOP AT ITAB.
WRITE:/ ITAB-NAME.
ENDLOOP.
Reward Points if found helpfull..
Cheers,
Chandra Sekhar.

Check list field values using LINQ

I have to check if the CURRENT USER is already in the list USERS by comparing his AccountName to the list field ACCOUNTNAME.
If the USER is on the list I have to check if the field IsFollower is YES or NO and change it according to some conditions.
I think LINQ would be the correct way of doing this but I have no clue how to do that.
Any ideas pls, thanks

Hi,
Yes, you can query the list using LINQ.
You need to get the SPList Object firstly, and then you can query list item value using LINQ.
More information about how to check list field value using LINQ:
http://msdn.microsoft.com/en-us/library/office/ee538250(v=office.14).aspx
http://www.wolfsys.net/query-sharepoint-lists-with-linq/
http://geekswithblogs.net/TanviBlog/archive/2013/06/06/linq-in-sharepoint-and-querying-list-items.aspx
More information about how to use Server Object Model in SharePoint lists:
http://msdn.microsoft.com/en-us/library/microsoft.sharepoint.splist.aspx
http://msdn.microsoft.com/en-us/library/office/ms456030(v=office.14).aspx
Best regards

How to check if all values from a dataset has come to an internal table

How to check if all values from a dataset has come to an internal table ?

Hi,
After OPEN DATASET statement check if sy-subrc = 0 if its success then proceed with split statement and save the dataset values into a internal table and while debugging the internal table you will find that whether all values get into internal table.
Checking sy-subrc after OPEN DATASET statement is must to fill up the values in the internal table.
For e.g.
OPEN DATASET p_inpfile FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc NE 0.
    WRITE :/ 'No such input file' .
    EXIT.
ELSE.
READ DATASET p_inpfile INTO loc_string.
      IF sy-subrc NE 0.
        EXIT.
      ELSE.
        CLEAR loc2.
*Spliting fields in the file-
        REPLACE ALL OCCURRENCES OF '#' IN wa_string WITH ' '.
       SPLIT wa_string AT const INTO loc2-pernr
                                       loc2-werks
                                       loc2-persk
                                       loc2-vdsk1.
Hope you get some idea.
Thanks,
Sakthi C

How to update field values in a database table using module pool prg?

hi
how to update field values in a database table using module pool prg?
we created a customized table, and we put 2 push buttons in screen painter update and display.
but update is not working?
data is enter into screen fields and to internal table, but it is not updated in database table.
thanks in adv
vidya

HI,
we already used the update statement. but its not working.
plz check this.
*& Module Pool ZCUST_CALL_REC
PROGRAM ZCUST_CALL_REC.
TABLES: ZCUST_CALL_REC,ZREMARKS.
data: v_kun_low like ZCUST_CALL_REC-kunnr ,
 v_kun_high like ZCUST_CALL_REC-kunnr,
 v_bud_low like ZCUST_CALL_REC-budat,
 v_bud_high like ZCUST_CALL_REC-budat.
ranges r_kunnr for ZCUST_CALL_REC-kunnr .
ranges r_budat for zcust_call_rec-budat.
DATA: ITAB TYPE STANDARD TABLE OF ZCUST_CALL_REC WITH HEADER LINE,
 JTAB TYPE STANDARD TABLE OF ZREMARKS WITH HEADER LINE.
*data:begin of itab occurs 0,
 MANDT LIKE ZCUST_CALL_REC-MANDT,
 kunnr like ZCUST_CALL_REC-kunnr,
 budat like ZCUST_CALL_REC-budat,
 code like ZCUST_CALL_REC-code,
 remarks like ZCUST_CALL_REC-remarks,
 end of itab.
*data:begin of Jtab occurs 0,
 MANDT LIKE ZCUST_CALL_REC-MANDT,
 kunnr like ZCUST_CALL_REC-kunnr,
 budat like ZCUST_CALL_REC-budat,
 code like ZCUST_CALL_REC-code,
 remarks like ZCUST_CALL_REC-remarks,
 end of Jtab.
CONTROLS:vcontrol TYPE TABLEVIEW USING SCREEN '9001'.
CONTROLS:vcontrol1 TYPE TABLEVIEW USING SCREEN '9002'.
*start-of-selection.
*& Module USER_COMMAND_9000 INPUT
 text
MODULE USER_COMMAND_9000 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
WHEN 'ENQUIRY'.
perform multiple_selection.
perform append_CUSTOMER_code.
PERFORM SELECT_DATA.
call screen '9001'.
WHEN 'UPDATE'.
 perform append_CUSTOMER_code.
 PERFORM SELECT_DATA.
 call screen '9002'.
 perform update on commit.
WHEN 'DELETE'.
 perform append_CUSTOMER_code.
 PERFORM SELECT_DATA.
 call screen '9002'.
ENDCASE.
ENDMODULE. " USER_COMMAND_9000 INPUT
*& Module STATUS_9000 OUTPUT
 text
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_9000 OUTPUT
*& Module USER_COMMAND_9001 INPUT
 text
MODULE USER_COMMAND_9001 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
endcase.
ENDMODULE. " USER_COMMAND_9001 INPUT
*& Module STATUS_9001 OUTPUT
 text
MODULE STATUS_9001 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
move itab-MANDT to zcust_call_rec-MANDT.
move itab-kunnr to zcust_call_rec-kunnr.
move itab-budat to zcust_call_rec-budat.
move itab-code to zcust_call_rec-code.
move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
ENDMODULE. " STATUS_9001 OUTPUT
*& Module USER_COMMAND_9002 INPUT
 text
module USER_COMMAND_9002 input.
CASE sy-ucomm.
 WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
 SET SCREEN 0.
 LEAVE SCREEN.
 CLEAR sy-ucomm.
 WHEN 'UPDATE'.
 perform move_data.
 UPDATE ZCUST_CALL_REC FROM TABLE ITAB.
 IF SY-SUBRC = 0.
 MESSAGE I000(0) WITH 'RECORDS ARE UPDATED'.
 ELSE.
 MESSAGE E001(0) WITH 'RECORDS ARE NOT UPDATED'.
 ENDIF.
WHEN 'DELETE'.
 perform move_data.
 DELETE ZCUST_CALL_REC FROM TABLE ITAB.
 IF SY-SUBRC = 0.
 MESSAGE I000(0) WITH 'RECORDS ARE DELETED'.
 ELSE.
 MESSAGE E001(0) WITH 'RECORDS ARE NOT DELETED'.
 ENDIF.
endcase.
endmodule. " USER_COMMAND_9002 INPUT
*& Module STATUS_9002 OUTPUT
 text
module STATUS_9002 output.
SET PF-STATUS 'ZCUSTOMER1'.
SET TITLEBAR 'xxx'.
endmodule. " STATUS_9002 OUTPUT
*& Module update_table OUTPUT
 text
module update_table output.
 move itab-MANDT to zcust_call_rec-MANDT.
 move itab-kunnr to zcust_call_rec-kunnr.
 move itab-budat to zcust_call_rec-budat.
 move itab-code to zcust_call_rec-code.
 move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
endmodule. " update_table OUTPUT
***Selection Data
FORM SELECT_DATA.
SELECT mandt kunnr budat code remarks FROM zcust_call_rec INTO
 table itab
 WHERE kunnr IN r_kunnr AND BUDAT IN R_BUDAT.
ENDFORM.
****append vendor code
FORM APPEND_CUSTOMER_CODE.
clear r_kunnr.
clear itab.
clear r_budat.
refresh r_kunnr.
refresh itab.
refresh r_kunnr.
IF r_kunnr IS INITIAL
 AND NOT v_kun_low IS INITIAL
 AND NOT v_kun_high IS INITIAL.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = v_kun_low
 IMPORTING
 OUTPUT = r_kunnr-low.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = v_kun_high
 IMPORTING
 OUTPUT = r_kunnr-high.
 r_kunnr-option = 'BT'.
 r_kunnr-sign = 'I'.
 append r_kunnr.
 PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
 AND NOT v_kun_low IS INITIAL
 AND v_kun_high IS INITIAL.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = v_kun_low
 IMPORTING
 OUTPUT = r_kunnr-low.
 r_kunnr-SIGN = 'I'.
 r_kunnr-OPTION = 'EQ'.
 APPEND r_kunnr.
 PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
 AND v_kun_low IS INITIAL
 AND NOT v_kun_high IS INITIAL.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = v_kun_low
 IMPORTING
 OUTPUT = r_kunnr-low.
 r_kunnr-SIGN = 'I'.
 r_kunnr-OPTION = 'EQ'.
 APPEND r_kunnr.
 PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
 AND v_kun_low IS INITIAL
 AND v_kun_high IS INITIAL.
 IF SY-SUBRC = 0.
 MESSAGE I003(0) WITH 'ENTER CUSTOMER NUMBER'.
 CALL SCREEN '9000'.
 ENDIF.
PERFORM V_BUDAT.
ENDIF.
ENDFORM.
FORM V_BUDAT.
IF R_BUDAT IS INITIAL
 AND NOT v_BUD_low IS INITIAL
 AND NOT v_BUD_high IS INITIAL.
 r_budat-low = v_bud_low.
 r_budat-high = v_bud_high.
 r_budat-option = 'BT'.
 r_budat-sign = 'I'.
 append r_budat.
 ELSEIF R_BUDAT IS INITIAL
 AND NOT v_BUD_low IS INITIAL
 AND v_BUD_high IS INITIAL.
 r_budat-low = v_bud_low.
 r_budat-high = v_bud_high.
 r_budat-option = 'EQ'.
 r_budat-sign = 'I'.
 append r_budat.
 ELSEIF R_BUDAT IS INITIAL
 AND v_BUD_low IS INITIAL
 AND NOT v_BUD_high IS INITIAL.
 r_budat-HIGH = v_bud_HIGH.
 r_budat-option = 'EQ'.
 r_budat-sign = 'I'.
 append r_budat.
 ELSEIF R_BUDAT IS INITIAL
 AND v_BUD_low IS INITIAL
 AND v_BUD_high IS INITIAL.
 IF SY-SUBRC = 0.
 MESSAGE I002(0) WITH 'ENTER POSTING DATE'.
 CALL SCREEN '9000'.
 r_budat-low = ''.
 r_budat-option = ''.
 r_budat-sign = ''.
 ENDIF.
 ENDIF.
ENDFORM.
*& Form update
 text
--> p1 text
<-- p2 text
form update .
commit work.
endform. " update
*& Form move_data
 text
--> p1 text
<-- p2 text
form move_data .
 clear itab.
refresh itab.
 move-corresponding zcust_call_rec to itab.
 MOVE ZCUST_CALL_REC-MANDT TO ITAB-MANDT.
 MOVE ZCUST_CALL_REC-KUNNR TO ITAB-KUNNR.
 MOVE ZCUST_CALL_REC-BUDAT TO ITAB-BUDAT.
 MOVE ZCUST_CALL_REC-CODE TO ITAB-CODE.
 MOVE ZCUST_CALL_REC-REMARKS TO ITAB-REMARKS.
 APPEND ITAB.
 delete itab where kunnr is initial.
endform. " move_data
thanks in adv
vidya

How can I pass field value betwen view in ICWC?

Hi experts,
I am new to this BSP programming. I have some requirements to modify standard ICWC in CRM 5.0
Hope can get some advices and helps here.
I have added a new field called <status> to context note SEARCHCUSTOMER in BupaSearchB2B view and also the same field name to context note CUSTOMER in BupaCreate view.
I have added the field into both the HTM views and able to execute thru WebClient. However, I have one problem in passing the <status> value from BupaSearchB2B view to the BupaCreate view when I click on the 'create' button.
I do search and saw this thread How can I pass field value beetwen view in IC Web Client? , but i cant figure out how it works.
Do I need to create the field <status> to context note CUSTOMER in BupaSearchB2B? Currently the context note does not have any attributes.
Really appreciate for any help.
Edited by: mervyn tay on Apr 7, 2009 11:42 AM

solved by myself...
code in the CREATE_ACCOUNT method.
ev_entity->set_property( iv_attr_name = 'ZZICNO'
iv_value = lv_icnum1 ).

How to take a field value in an array?

how to take a field value in an array? its urgent........

yaa... i know, but actually we need to multiply that number with some digit.
take it this is way, if i push it into another array, we have an array of digits but what i need is a all digit to be together to be multiplied to a number
for example -
if i push the numbers into new array say arr[];
so i will have something like this. arr[1,2,3,4,5,6.......]
but i need the new varaible should have value as 12345........ all concatenated.
if i perform operation on array each digit will be multiplied individually.
hope u got what m trying to sayy....
Thanks for the prompt response..........

How to Assign a Field value to a Variable??

Dear All,
Kindly let me know, if "HOW TO ASSIGN A FIELD VALUE TO A VARIABLE????"
Situation is, we have a Field (OBJK-TASER) in which 2 tables (SER01 & SER03) are stored. And we want to access names of the Tables which are there in the field(TASER) in (OBJK) table to a variable and then passing that variable to the sql query as a table name to get data accessed dynamicaly.

try this
select TASER from OBJK into table it_table.
loop at it_table.
select field1 field2 from (it_table-table) into table it_fields.
endloop

How to check the numerica value

Dear Experts,
Would you please show me the code how to check a character value is numeric or not, include negative sign '-'.
For example the character value (01.-10) should not be a good numeric value use in later. the (-1.00) should be a good numeric value.
Thanks,
Helen

Hello,
Use the FM NUMERIC_CHECK
Regards,
Vasanth

How to add field value to the standard table

Hi,
How to add field value to the standard table?
for example:
when we go to TCODE SE16-> VBAK table -> on the selection screen if we press F4 against VBTYP we get all the available values for that field. How to add a new document Category value to this field so that it shows up in F4 help for that field.

Hi Asif,
I don't think it is possible and feasible for adding new field value to the field VBTYP because it is not possible through SPRO.
If u see the domain of this field VBTYP we have fixed values provided by SAP. There is no value table for this. If u have value table then it will be updated through SPRO. But still if u really want to add some value u can do that by getting access key and add the value in the fixed values of the domain. But of no use other than simply displaying in F4. Because for what ever value u created here there will be no documents in VBAK or any table using this domain.
Hope this is clear for u.
Thanks,
Vinod.

How to check a field value within an Internal table

Similar Messages

Maybe you are looking for