Deleting a field from itab!!

hi i have a structure with certain fields which i am using for select query...but i dont want this field to get downloaded when i download the required data
the query seem to be like
select tel_number fax_number from adrc into corresponding fields of shipitab where addrnumber eq
shipitab-adrnr
after whihc im appending this as append shipitab.
n want to delete this particular field from shipitab....
tats it..

>
anjum ahmed wrote:
>
>
select tel_number fax_number from adrc into corresponding fields of shipitab where addrnumber eq
> shipitab-adrnr
>
anjum,
u are passing the fields to same work area from where u are reading the values in select statement? its not a good practice neither is the use of into corresponding.
and: after selecting (as u r selecting it into a structure) u can just clear the value of adrnr before appending to teh table.
like:
clear: shipitab-adrnr.
append shipitab.
or: if u want to delete after appending to table..
u can loop in the table and clear that variable and modify that record. like:
loop at shipitab.
clear: shipitab-adrnr.
modify shipitab.
endloop.
this will solve ur prob.. but using internal tables with header line is not a good practice as well

Similar Messages

DELETE ADJACENT DUPLICATES FROM itab

Hi Frends, can any one explain me about
DELETE ADJACENT DUPLICATES FROM itab
and can any one give me sample program using the above statement.
full points will be given for good example
Thanks and Regards
Vijaya

i am sending 2 programs to u:
DESCRIPTION: INTERACTIVE REPORT FOR SALES DOCUMENT
*FOR PRINTING SALES DOCUMENT HEADER, SALES DOCUMENT DETAILS, PARTNER
 DETAILS, SCHEDULE LINE DATA.
 D A T A D E C L A R A T I O N S *
INCLUDE z8vg_isro1.
INITIALIZATION.
v_chkbox = ' '.
v_chkbox1 = ''.
 S T A R T O F S E L E C T I O N *
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-028.
SELECT-OPTIONS: s_vbeln FOR i_vbak-vbeln.
"FOR RANGE OF VALUES.
SELECTION-SCREEN END OF BLOCK bl1.
A T S E L E C T I O N S C R E E N ( V A L I D A T I O N S ) *
AT SELECTION-SCREEN.
Check if record exists or not.
PERFORM zf_validations.
 S T A R T O F S E L E C T I O N *
START-OF-SELECTION.
*this is event blocks which is executed when the user chooses the
*corresponding function key
REFRESH i_ucomm.
CLEAR i_ucomm.
i_ucomm-ucomm = 'G002'. " schdl data
APPEND i_ucomm.
SET PF-STATUS 'MENU2' EXCLUDING i_ucomm.
" MENU BAR STATUS.
*populating sales order header data , item data , partner data ,
*schedule data
PERFORM zf_select_headerdata.
AT USER-COMMAND.
"This event is executed whenever the user presses a menu option 'execute
"' in the list
CASE sy-ucomm.
 WHEN 'EX01'. "Cancel
 LEAVE PROGRAM.
 WHEN 'GO01'. "for item data
 vflag = '0'.
 REFRESH i_ucomm.
 CLEAR i_ucomm.
 i_ucomm-ucomm = 'GO01'. " item data
 APPEND i_ucomm.
 SET PF-STATUS 'MENU2' EXCLUDING i_ucomm .
 PERFORM zf_select_details.
 WHEN 'G002'. "for schedule data .
 REFRESH i_ucomm.
 CLEAR i_ucomm.
 i_ucomm-ucomm = 'G000'.
 APPEND i_ucomm.
 APPEND 'GO01' TO i_ucomm.
 APPEND 'G002' TO i_ucomm.
 SET PF-STATUS 'MENU2' EXCLUDING i_ucomm .
 PERFORM zf_scheduledata .
 WHEN 'G000'.
 "function code for displaying partner details.
 REFRESH i_ucomm.
 CLEAR i_ucomm.
 i_ucomm-ucomm = 'G000'.
 APPEND i_ucomm.
 APPEND 'GO01' TO i_ucomm.
 APPEND 'G002' TO i_ucomm.
 SET PF-STATUS 'MENU2' EXCLUDING i_ucomm .
 IF vflag = '1'.
 PERFORM zf_partnerdetails.
 " FOR PARTNER DETAILS OF HEADER
 ELSE.
 PERFORM zf_partnerdetails1.
 " FOR PARTNER DETAILS OF SALES ORDER ITEMS .
 ENDIF.
 WHEN 'BACK'.
 LEAVE PROGRAM.
ENDCASE.
*& FORM TOP_OF_PAGE
TOP-OF-PAGE DURING LINE-SELECTION.
printing header for secondary list of report.
PERFORM zf_tols.
TOP-OF-PAGE.
printing hearder for basic list of report
PERFORM zf_top.
*& Form VALIDATIONS
 subroutine to check whether record exists or not
--> p1 text
<-- p2 text
FORM zf_validations .
SELECT SINGLE vbeln FROM vbak
 INTO i_vbak-vbeln
 WHERE vbeln IN s_vbeln.
EXIT.
CHECK IF THE RECORD EXISTS OR NOT.
IF sy-subrc <> 0.
 MESSAGE e001.
ENDIF.
ENDFORM. " VALIDATIONS
*& Form SELECT_HEADERDATA
subroutine for populating header data and other details.
--> p1 text
<-- p2 text
FORM zf_select_headerdata .
*refreshing all the internal tables.
CLEAR i_vbak.
REFRESH i_vbak.
CLEAR i_vbap.
REFRESH i_vbap.
CLEAR i_vbpa.
REFRESH i_vbpa.
CLEAR i_vbep.
REFRESH i_vbep.
*populating sales order header data , item data , partner data ,
*schedule data
SELECT vbeln
 erdat
 vkorg
 FROM vbak
 INTO TABLE i_vbak
 WHERE vbeln IN s_vbeln.
IF NOT i_vbak[] IS INITIAL.
 SELECT vbeln
 posnr
 matnr FROM vbap
 INTO TABLE i_vbap
 FOR ALL ENTRIES IN i_vbak
 WHERE vbeln = i_vbak-vbeln.
ENDIF.
IF sy-subrc <> 0.
 MESSAGE e004.
ENDIF.
SORT i_vbap BY vbeln posnr.
" SORTING TABLE WITH KEY FIELDS .
REFRESH i_mat.
CLEAR i_mat.
fetching of unique material numbers corresponding sales orderno.
LOOP AT i_vbap.
 i_mat-matnr = i_vbap-matnr.
 APPEND i_mat.
ENDLOOP.
SORT i_mat BY matnr. " sorting of material nos.
IF sy-SUBRC = 0.
deleting duplicate entries from table
DELETE ADJACENT DUPLICATES FROM i_mat
 COMPARING matnr.
*endif.
REFRESH i_mat1.
CLEAR i_mat1.
populating material no and dscription .
SELECT matnr
 maktx FROM makt
 INTO TABLE i_mat1
 FOR ALL ENTRIES IN i_mat
 WHERE matnr = i_mat-matnr.
SELECT vbeln
 posnr
 parvw
 kunnr
 FROM vbpa
 INTO TABLE i_vbpa
 FOR ALL ENTRIES IN i_vbap
 WHERE vbeln = i_vbap-vbeln .
SORT i_vbap BY vbeln posnr.
REFRESH i_tvbpa.
REFRESH i_tpartf.
CLEAR i_tpartf.
*FOR FETCHING UNIQUE PARTNER FUNCTIONS
LOOP AT i_vbpa.
 i_tpartf-parvw = i_vbpa-parvw.
 APPEND i_tpartf.
ENDLOOP.
SORT i_tpartf BY parvw.
DELETE ADJACENT DUPLICATES FROM i_tpartf
 COMPARING parvw.
SELECT spras
 parvw
 vtext
 FROM tpart
 INTO TABLE i_tvbpa
 FOR ALL ENTRIES IN i_tpartf
 WHERE parvw = i_tpartf-parvw AND spras = sy-langu.
IF NOT i_vbap[] IS INITIAL.
 SELECT vbeln
 posnr
 etenr
 ettyp
 lfrel
 edatu
 FROM vbep
 INTO TABLE i_vbep
 FOR ALL ENTRIES IN i_vbap
 WHERE vbeln = i_vbap-vbeln.
ENDIF.
SORT i_vbap BY vbeln posnr.
to fetch data from internal table to print report
LOOP AT i_vbak.
 WRITE:/1 sy-vline,10 v_chkbox AS CHECKBOX, i_vbak-vbeln,28
 sy-vline,
 30 i_vbak-erdat,48 sy-vline,
 50 i_vbak-vkorg, 132 sy-vline.
ENDLOOP.
ULINE.
ENDFORM. " SELECT_HEADERDATA
*& Form ZF_SELECT_DETAILS
 SUBROUTINE FOR DISPLAYING SELECTED ITEM DETAILS DATA
--> p1 text
<-- p2 text
FORM zf_select_details .
vflag = 0.
WRITE:/1 sy-vline,10 text-006 COLOR 3,28 sy-vline,
 30 text-007 COLOR 3, 48 sy-vline,
 50 text-008 COLOR 3, 68 sy-vline,
 70 text-022 COLOR 3, 132 sy-vline.
ULINE.
CLEAR i_selvbap.
CLEAR i_final.
REFRESH i_selvbap.
REFRESH i_final.
CLEAR i_mat1.
vnline = 7.
DO.
 READ LINE vnline FIELD VALUE i_vbak-vbeln v_chkbox.
 " READING LINES FROM BASIC LIST.
 IF sy-subrc <> 0. " no lines read.
 EXIT.
 ENDIF.
 IF v_chkbox = 'X'.
 " checking of selected items from basic list.
*alpha conversion function - During conversion from the external to the
*internal format, the system checks to see
*if input is purely nummeric or not ,if not all spaces to the left of
*the value are filled with zeroes ('0').
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = i_vbak-vbeln
 IMPORTING
 output = i_selvbap-vbeln.
 APPEND i_selvbap.
 " appending values from header line to body.
 flag = flag + 1.
 " TO CHECK VALUE OF CHECKBOX.
 CLEAR i_vbak.
 " clearing of header line after appending.
 ENDIF.
 vnline = vnline + 1.
ENDDO.
IF flag <> 0.
 CLEAR i_final.
 CHECK NOT i_selvbap[] IS INITIAL.
 LOOP AT i_selvbap.
 LOOP AT i_vbap WHERE vbeln = i_selvbap-vbeln.
 READ TABLE i_mat1 WITH KEY matnr = i_vbap-matnr BINARY SEARCH.
 IF sy-subrc = 0.
 i_final-vbeln = i_vbap-vbeln.
 i_final-posnr = i_vbap-posnr.
 i_final-matnr = i_vbap-matnr.
 i_final-maktx = i_mat1-maktx.
 APPEND i_final.
 CLEAR i_mat1.
 ENDIF.
 ENDLOOP.
 CLEAR i_selvbap.
 CLEAR i_vbap.
 CLEAR i_final.
 ENDLOOP.
ENDIF.
IF flag = 0.
 MESSAGE e005.
ENDIF.
to fetch data from internal table to print report
LOOP AT i_final.
 WRITE:/1 sy-vline,10 v_chkbox1 AS CHECKBOX,i_final-vbeln,28 sy-vline
 30 i_final-posnr, 48 sy-vline,
 50 i_final-matnr, 68 sy-vline,
 70 i_final-maktx,
 132 sy-vline.
ENDLOOP.
ULINE.
ENDFORM. " ZF_SELECT_DETAILS
*& Form ZF_TOLS
 text
--> p1 text
<-- p2 text
FORM zf_tols .
*printing header of secondary list
ULINE.
WRITE:/10 text-023,20 text-001 COLOR 4, 45 text-019 COLOR 4.
WRITE: 80 text-024,90 sy-datum .
WRITE:/10 text-025,20 text-027,80 text-026,90 sy-pagno.
WRITE:/.
ULINE.
ENDFORM. " ZF_TOLS
*& Form ZF_TOP
 text
--> p1 text
<-- p2 text
FORM zf_top .
*printing header of basic list
ULINE.
WRITE:/10 text-023,20 text-001 COLOR 4 ,45 text-002 COLOR 4.
WRITE: 80 text-024, 90 sy-datum.
WRITE:/10 text-025,20 text-027,80 text-026,90 sy-pagno.
ULINE.
WRITE:/1 sy-vline, 10 text-003 COLOR 3 ,28 sy-vline,
 30 text-004 COLOR 3 ,48 sy-vline,
 50 text-005 COLOR 3 ,132 sy-vline.
ULINE.
ENDFORM. " ZF_TOP
*& Form ZF_PARTNERDETAILS
 SUBROUTINE FOR DISPLAYING SELECTED PARTNER DETAILS DATA
--> p1 text
<-- p2 text
FORM zf_partnerdetails .
IF vflag = 1.
 WRITE:/1 sy-vline,10 text-016 COLOR 3,28 sy-vline,
 30 text-017 COLOR 3,48 sy-vline,
 30 text-018 COLOR 3,48 sy-vline,
 70 text-021 COLOR 3, 132 sy-vline.
 ULINE.
 CLEAR i_selvbpa.
 REFRESH i_selvbpa.
 " clearing work area and body of internal tables
 REFRESH i_finalpd.
 vnline = 7.
 DO.
 CLEAR i_selvbpa.
 READ LINE vnline FIELD VALUE i_vbak-vbeln v_chkbox.
 " READING LINES FROM BASIC LIST.
 IF sy-subrc <> 0.
 " NO LINES READ
 EXIT.
 ENDIF.
 IF v_chkbox = 'X'.
 " if any value is selected
*converts any number into a string fill with zeroes, with the number at
*the extreme right.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = i_vbak-vbeln
 IMPORTING
 output = i_selvbpa-vbeln.
 APPEND i_selvbpa.
 CLEAR i_vbak.
 flag = flag + 1.
 ENDIF.
 vnline = vnline + 1.
 ENDDO.
 IF flag <> 0.
 CHECK NOT i_selvbpa[] IS INITIAL.
 LOOP AT i_selvbpa.
 LOOP AT i_vbpa WHERE vbeln = i_selvbpa-vbeln.
 READ TABLE i_tvbpa WITH KEY parvw = i_vbpa-parvw BINARY SEARCH
 IF sy-subrc = 0..
 i_finalpd-vbeln = i_vbpa-vbeln.
 i_finalpd-posnr = i_vbpa-posnr.
 i_finalpd-parvw = i_vbpa-parvw.
 i_finalpd-vtext = i_tvbpa-vtext.
 APPEND i_finalpd.
 CLEAR i_tvbpa.
 ENDIF.
 ENDLOOP.
 ENDLOOP.
 ENDIF.
 IF flag = 0.
 MESSAGE e005.
 ENDIF.
 LOOP AT i_finalpd.
 WRITE:/1 sy-vline,10 i_finalpd-vbeln, 28 sy-vline,
 30 i_finalpd-posnr, 48 SY-VLINE,
 30 i_finalpd-parvw, 48 sy-vline,
 70 i_finalpd-vtext, 132 sy-vline.
 ENDLOOP.
 ULINE.
ENDIF.
ENDFORM. " ZF_PARTNERDETAILS
*& Form ZF_SCHEDULEDATA
 SUBROUTINE FOR DISPLAYING SELECTED ITEM SCHEDULE DATA
--> p1 text
<-- p2 text
FORM zf_scheduledata .
vflag = 0.
WRITE:/1 sy-vline,10 text-009 COLOR 3,18 sy-vline,
 20 text-011 COLOR 3,38 sy-vline,
 40 text-012 COLOR 3,58 sy-vline,
 60 text-013 COLOR 3,78 sy-vline,
 80 text-020 COLOR 3,98 sy-vline,
 100 text-015 COLOR 3,132 sy-vline.
ULINE.
CLEAR i_selvbep.
REFRESH i_selvbep.
vnline1 = 5.
CLEAR flag.
CLEAR i_final.
REFRESH i_finalsd.
DO.
 READ LINE vnline1 FIELD VALUE i_final-vbeln v_chkbox1 i_final-posnr
 . " READING LINES FROM BASIC LIST.
 IF sy-subrc <> 0.
 EXIT.
 ENDIF.
 IF v_chkbox1 = 'X'.
*converts any number into a string fill with zeroes, with the number at
*the extreme right
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = i_final-vbeln
 IMPORTING
 output = i_selvbep-vbeln.
 i_selvbep-posnr = i_final-posnr.
 APPEND i_selvbep.
 CLEAR i_final.
 flag = flag + 1.
 ENDIF.
 vnline1 = vnline1 + 1.
ENDDO.
IF flag <> 0.
 CHECK NOT i_selvbep[] IS INITIAL.
 LOOP AT i_selvbep.
 LOOP AT i_vbep WHERE vbeln = i_selvbep-vbeln AND posnr =
 i_selvbep-posnr.
 i_finalsd-vbeln = i_vbep-vbeln.
 i_finalsd-posnr = i_vbep-posnr.
 i_finalsd-etenr = i_vbep-etenr.
 i_finalsd-ettyp = i_vbep-ettyp.
 i_finalsd-lfrel = i_vbep-lfrel.
 i_finalsd-edatu = i_vbep-edatu.
 APPEND i_finalsd.
 CLEAR i_selvbep.
 CLEAR i_vbep.
 CLEAR i_finalsd.
 ENDLOOP.
 ENDLOOP.
ENDIF.
IF flag = 0.
 MESSAGE e005.
ENDIF.
LOOP AT i_finalsd.
 WRITE:/1 sy-vline,10 i_finalsd-vbeln,18 sy-vline,
 20 i_finalsd-posnr, 38 sy-vline,
 40 i_finalsd-etenr, 58 sy-vline,
 60 i_finalsd-ettyp, 78 sy-vline,
 80 i_finalsd-lfrel, 98 sy-vline,
 100 i_finalsd-edatu,132 sy-vline.
 CLEAR i_finalsd.
ENDLOOP.
ULINE.
ENDFORM. " ZF_SCHEDULEDATA
*& Form ZF_PARTNERDETAILS1
 text
--> p1 text
<-- p2 text
FORM zf_partnerdetails1 .
vflag = 1.
WRITE:/1 sy-vline,10 text-016 COLOR 3,18 sy-vline,
 20 text-017 COLOR 3,38 sy-vline,
 40 text-018 COLOR 3,58 sy-vline,
 60 text-021 COLOR 3,78 sy-vline,
 132 sy-vline.
ULINE.
CLEAR i_selvbpa1.
REFRESH i_selvbpa1.
REFRESH i_finalpd1.
vnline1 = 7.
DO.
 CLEAR I_SELVBEP.
 READ LINE vnline1 FIELD VALUE i_final-vbeln v_chkbox1 i_final-posnr
 . " READING LINES FROM BASIC LIST.
 IF sy-subrc <> 0.
 EXIT.
 ENDIF.
 IF v_chkbox1 = 'X'.
*converts any number into a string fill with zeroes, with the number at
*the extreme right
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = i_final-vbeln
 IMPORTING
 output = i_selvbpa1-vbeln.
 i_selvbpa1-posnr = i_final-posnr.
 APPEND i_selvbpa1.
 CLEAR i_final.
 flag = flag + 1.
 ENDIF.
 vnline1 = vnline1 + 1.
ENDDO.
IF flag <> 0.
 CLEAR i_vbpa.
 CLEAR i_finalpd1.
 CHECK NOT i_selvbpa1[] IS INITIAL.
 LOOP AT i_selvbpa1.
 LOOP AT i_vbpa WHERE vbeln = i_selvbpa1-vbeln.
 CLEAR i_finalpd1.
 IF sy-subrc = 0.
 i_finalpd1-vbeln = i_vbpa-vbeln.
 IF i_vbpa-posnr = 0 OR i_vbpa-posnr = ''.
 i_finalpd1-parvw1 = 'NO DATA EXISTS'.
 ELSE.
 i_finalpd1-posnr = i_vbpa-posnr.
 i_finalpd1-parvw = i_vbpa-parvw.
 i_finalpd1-vtext = i_vbpa-vtext.
 i_finalpd1-kunnr = i_vbpa-kunnr.
 ENDIF.
 APPEND i_finalpd1.
 IF i_finalpd1-vbeln = i_selvbpa1-vbeln.
 EXIT.
 ENDIF.
 CLEAR i_vbpa.
 CLEAR i_finalpd1.
 ENDIF.
 ENDLOOP.
 ENDLOOP.
ENDIF.
IF flag = 0.
 MESSAGE e005.
ENDIF.
fetching data from internal table for printing.
LOOP AT i_finalpd1.
 WRITE:/1 sy-vline,10 i_finalpd1-vbeln,18 sy-vline,
 20 I_FINALPD1-POSNR, 38 SY-VLINE,
 40 i_finalpd1-parvw1,
 58 SY-VLINE,
 60 i_finalpd1-vtext,
 78 SY-VLINE,
 80 i_finalpd1-kunnr,
 132 sy-vline.
ENDLOOP.
ULINE.
ENDFORM. " ZF_PARTNERDETAILS1
2nd is :-
REPORT Z8NB_SHA10_1
 NO STANDARD PAGE HEADING
 LINE-COUNT 30
 LINE-SIZE 170
 MESSAGE-ID Z8NBSHADOW.
 T A B L E D E C L A R A T I O N *
TABLES : LIKP. " Delivery Header.
 T Y P E D E C L A R A T I O N *
**-- Type decleration for Delivery Header
TYPES : BEGIN OF T_LIKP,
 VBELN LIKE LIKP-VBELN, " Delivery Number
 ERDAT LIKE LIKP-ERDAT, " Date on which record was craeted
 KUNNR LIKE LIKP-KUNNR, " Sold-to-party
 KUNAG LIKE LIKP-KUNAG, " Ship-to-party
 TRMTYP LIKE LIKP-TRMTYP, " Means of transport
 END OF T_LIKP.
**-- Type decleration for Delivery Items
TYPES : BEGIN OF T_LIPS,
 VBELN LIKE LIPS-VBELN, " Delivery Number
 POSNR LIKE LIPS-POSNR, " Delivery Item Number
 MATNR LIKE LIPS-MATNR, " Material Number
 LFIMG LIKE LIPS-LFIMG , " DELIVERED QTY
 MEINS LIKE LIPS-MEINS, " Unit of Measurement
 BRGEW LIKE LIPS-BRGEW, " Gross Weight
 GEWEI LIKE LIPS-GEWEI, " Weight Unit
 VOLUM LIKE LIPS-VOLUM, " Volumn
 VOLEH LIKE LIPS-VOLEH, " Volumn Unit
 END OF T_LIPS.
**-- Type decleration for Customer Details
TYPES : BEGIN OF T_KNA1,
 KUNNR LIKE KNA1-KUNNR, " Customer Number
 NAME1 LIKE KNA1-NAME1, " Name1
 NAME2 LIKE KNA1-NAME2, " Name2
 STRAS LIKE KNA1-STRAS, " House/ Street Number
 REGIO LIKE KNA1-REGIO, " Region
 ORT01 LIKE KNA1-ORT01, " City
 LAND1 LIKE KNA1-LAND1, " Country Key
 TELF1 LIKE KNA1-TELF1, " First Telephone Number
 END OF T_KNA1.
**-- Type decleration for Partner Function
TYPES : BEGIN OF T_KNVP,
 KUNNR LIKE KNVP-KUNNR, " Customer Number
 PARVW LIKE KNVP-PARVW, " Partner Function
 KUNN2 LIKE KNVP-KUNN2, " Cust no of business partner
 END OF T_KNVP.
**-- Type decleration for Shipment Header
TYPES : BEGIN OF T_VTTK,
 TKNUM LIKE VTTK-TKNUM, " Shipment Number
 TNDR_CRNM LIKE VTTK-TNDR_CRNM, " Carrier
 END OF T_VTTK.
**-- Type decleration for Shipment Item
TYPES : BEGIN OF T_VTTP,
 TKNUM LIKE VTTP-TKNUM, " Shipment Number
 VBELN LIKE VTTP-VBELN, " Order Number
 END OF T_VTTP.
**-- Type decleration for Material Description
TYPES : BEGIN OF T_MAKT,
 MATNR LIKE MAKT-MATNR, " Material Number
 MAKTX LIKE MAKT-MAKTX, " Material Description
 END OF T_MAKT.
**-- Type decleration for Final table containing all item details
TYPES : BEGIN OF T_FINAL,
 VBELN LIKE LIPS-VBELN, " Delivery Number
 POSNR LIKE LIPS-POSNR, " Delivery Item Number
 MATNR LIKE LIPS-MATNR, " Material Number
 LFIMG LIKE LIPS-LFIMG , " DELIVERED QTY
 MEINS LIKE LIPS-MEINS, " Unit of Measurement
 BRGEW LIKE LIPS-BRGEW, " Gross Weight
 GEWEI LIKE LIPS-GEWEI, " Weight Unit
 VOLUM LIKE LIPS-VOLUM, " Volumn
 VOLEH LIKE LIPS-VOLEH, " Volumn Unit
 MAKTX LIKE MAKT-MAKTX, " Material Description
 END OF T_FINAL.
 C O N S T A N T D E C E L E R A T I O N *
CONSTANTS: C_RE(4) TYPE C VALUE 'RE', "Bill-to-party
 C_EQ(4) TYPE C VALUE 'EQ', "Equal To
 C_I(2) TYPE C VALUE 'I'. "Inclusion
 V A R I A B L E D E C E L E R A T I O N *
DATA : V_SUM TYPE LIPS-LFIMG, "For calculating total of Quantity.
 V_SUM_FINAL TYPE LIPS-LFIMG, "For displaying total
 V_DESC TYPE C LENGTH 20. "Storing Description
 I N T E R N A L D E C L A R A T I O N *
**-- Internal table for delivery header data
DATA: IT_LIKP TYPE STANDARD TABLE OF T_LIKP WITH HEADER LINE,
**-- Internal table for delivery item data
 IT_LIPS TYPE STANDARD TABLE OF T_LIPS WITH HEADER LINE,
**-- Internal table for bill-to-party details
 IT_KNA1 TYPE STANDARD TABLE OF T_KNA1 WITH HEADER LINE,
**-- Internal table to store partner function data
 IT_KVNP TYPE STANDARD TABLE OF T_KNVP WITH HEADER LINE,
**-- Internal table for shipment header data
 IT_VTTK TYPE STANDARD TABLE OF T_VTTK WITH HEADER LINE,
**-- Internal table for shipmant item data
 IT_VTTP TYPE STANDARD TABLE OF T_VTTP WITH HEADER LINE,
**-- Internal table for material description
 IT_MAKT TYPE STANDARD TABLE OF T_MAKT WITH HEADER LINE,
**-- Internal table for final item details
 IT_FINAL TYPE STANDARD TABLE OF T_FINAL WITH HEADER LINE,
**-- Temporary internal table for Shipment Item
 IT_VTTP_TEMP TYPE STANDARD TABLE OF T_VTTP WITH HEADER LINE,
**-- Temporary internal table for delivery item
 IT_LIPS_TEMP TYPE STANDARD TABLE OF T_LIPS WITH HEADER LINE,
**-- Temporary internal table for delivery header
 IT_LIKP_TEMP TYPE STANDARD TABLE OF T_LIKP WITH HEADER LINE.
**-- Ranges for Inquiry/Quotation
RANGES R_CUSTOMER FOR KNA1-KUNNR.
 S E L C T I O N S C R E E N *
**-- Selection screen containing Delivery no as the obligatory field
SELECTION-SCREEN BEGIN OF BLOCK CHARLY WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_VBELN FOR LIKP-VBELN OBLIGATORY.
SELECTION-SCREEN END OF BLOCK CHARLY.
 I N I T I A L I Z A T I O N *
INITIALIZATION.
**-- Clear all internal tables
CLEAR : IT_LIKP,
 IT_LIPS,
 IT_KNA1,
 IT_KVNP,
 IT_VTTK,
 IT_VTTP,
 IT_MAKT,
 IT_FINAL,
 IT_VTTP_TEMP,
 R_CUSTOMER,
 V_SUM,
 V_SUM_FINAL,
 V_DESC.
**-- Refresh all internal tables
REFRESH : IT_LIKP,
 IT_LIPS,
 IT_KNA1,
 IT_KVNP,
 IT_VTTK,
 IT_VTTP,
 IT_MAKT,
 IT_FINAL,
 IT_VTTP_TEMP,
 R_CUSTOMER.
A T S E L E C T I O N S C R E E N ( V A L I D A T I O N S ) *
AT SELECTION-SCREEN.
**-- Check the sales order number exists in the database table or not
SELECT SINGLE VBELN
 FROM LIKP
 INTO IT_LIKP
 WHERE VBELN IN S_VBELN.
**-- If no single data selected display error message.
IF SY-SUBRC <> 0.
 MESSAGE E000.
ENDIF.
 S T A R T O F S E L E C T I O N *
START-OF-SELECTION.
**-- Fetch data from the transprant tables into the internal tables
PERFORM GET_DATA.
**-- Final table for complete item data
PERFORM FINAL_DATA.
 E N D O F S E L E C T I O N *
END-OF-SELECTION.
**-- Display of Delivery Note
PERFORM DISPLAY_DATA.
*& Form GET_DATA
 text
FORM GET_DATA .
**-- Fetch data from Delivery Header Table ( LIKP )
SELECT VBELN
 ERDAT
 KUNNR
 KUNAG
 TRMTYP
 FROM LIKP
 INTO TABLE IT_LIKP
 WHERE VBELN IN S_VBELN
 ORDER BY VBELN.
**-- Check SY_SUBRC.
IF SY-SUBRC <> 0 .
ENDIF.
**-- If record is present in IT_LIKP internal table then fetch data from
**-- Delivery Item table (LIPS)
IF NOT IT_LIKP[] IS INITIAL.
 SELECT VBELN
 POSNR
 MATNR
 LFIMG
 MEINS
 BRGEW
 GEWEI
 VOLUM
 VOLEH
 FROM LIPS
 INTO TABLE IT_LIPS
 FOR ALL ENTRIES IN IT_LIKP
 WHERE VBELN = IT_LIKP-VBELN.
**-- If record found, sort the internal table on delivery no and item no
 IF SY-SUBRC = 0.
 SORT IT_LIPS BY VBELN POSNR.
 ENDIF.
ENDIF.
**-- If record present in IT_LIPS internal table then fetch data from
**-- Shipment Item Table where delivery number is same
IF NOT IT_LIPS[] IS INITIAL.
 SELECT TKNUM
 VBELN
 FROM VTTP
 INTO TABLE IT_VTTP
 FOR ALL ENTRIES IN IT_LIPS
 WHERE VBELN = IT_LIPS-VBELN.
**-- If record found, sort the internal table on shipment no
 IF SY-SUBRC = 0.
 SORT IT_VTTP BY TKNUM.
 ENDIF.
ENDIF.
**-- Move records in IT_LIPS to an temporary internal table for
**-- removing the duplicate entries of material number.
IT_LIPS_TEMP[] = IT_LIPS[].
SORT IT_LIPS_TEMP BY MATNR.
DELETE ADJACENT DUPLICATES FROM IT_LIPS_TEMP
 COMPARING MATNR.
IF NOT IT_LIPS_TEMP[] IS INITIAL.
**-- Fetch Material description from MAKT for all materials in
**-- IT_LIPS_TEMP
 SELECT MATNR
 MAKTX
 INTO TABLE IT_MAKT
 FROM MAKT FOR ALL ENTRIES IN IT_LIPS_TEMP
 WHERE MATNR = IT_LIPS_TEMP-MATNR.
**-- If record found, sort the internal table on Matreial No.
 IF SY-SUBRC = 0.
 SORT IT_MAKT BY MATNR.
 ENDIF.
ENDIF.
**-- Transfer data in shipment item internal table to a temporary
**-- internal table to delete duplicate entries of shipment number.
IT_VTTP_TEMP[] = IT_VTTP[].
SORT IT_VTTP_TEMP BY TKNUM.
DELETE ADJACENT DUPLICATES FROM IT_VTTP_TEMP
 COMPARING TKNUM.
**-- If record found in IT_VTTP_TEMP then fetch shipment no and carrier
**--from Shipment Header Table(VTTK).
IF NOT IT_VTTP_TEMP[] IS INITIAL.
 SELECT TKNUM
 TNDR_CRNM
 FROM VTTK
 INTO TABLE IT_VTTK
 FOR ALL ENTRIES IN IT_VTTP_TEMP
 WHERE TKNUM = IT_VTTP_TEMP-TKNUM.
**-- If record found, sort the internal table on shipment no
 IF SY-SUBRC = 0.
 SORT IT_VTTK BY TKNUM.
 ENDIF.
ENDIF.
**-- Move the data of IT_LIKP to an internal table to remove the
**-- duplicate entries of sold-to-party number.
IT_LIKP_TEMP[] = IT_LIKP[].
SORT IT_LIKP_TEMP BY KUNAG.
DELETE ADJACENT DUPLICATES FROM IT_LIKP_TEMP

Getting Error while deleting a field from the 'Z' Structure

Hi All,
I have created a 'z' structure in which i have 5 fields, now i want to delete one field from the structure, but it is giving me error like Invalid Change.
Its a structure so i cant activate and adjust as we do for Tables.(se14)
So pls help me out asap.
thanks & Regards,
Dhruv Shah

Thanks for Quick Reply.
I have not used this field in any FM/ Report.
I have tried log off and then log on. but it make no difference.
Now the Other scenario is that i want to change the datatype of this field to TEXT25.
But it is also not allowing me to change because currently datatype is TEXT20.
So now how can i change the length from 20 to 25.
Regards,
Dhruv Shah

How to delete a field from search help which is delivered

hi
I got a requirement to delete a field from search help which is delivered long back
Regards
krishna

Hi
Whether it exists in DEV system or not?
Take the name of that Search Help from PRD/Quality(if it is not there in DEV system) and modify/change it by removing that field from the search help in DEV system and create a Transport request and transport the same request to Quality/PRD systems
Now the New changes (in which the field was removed) will be over written on the old search help in the PRD system, since it is the same Name (search help)
Regards
Anji

MM17 Delete a Field from this Transaction

Hi,
Could someone tell me how to delete a field from the MM17 transaction code.
Please let me know if this is feasible.
Thanks & Regards,
YJR.
Message was edited by:
YJR

Hello,
I think it is not possible to delete fields or add tables in MM17.
Vasanth

How to delete invisible fields from screen painter SE51?

Dear all,
How to delete/remove invisible fields from screen painter SE51?
Thanks.

HI,
just go to screen painter-->layout in change mode.
the invisible fields will be looking faded
click on that and press the DEL button.
that will be deleted.
<REMOVED BY MODERATOR>
vivekanand
Message was edited by:
Alvaro Tejada Galindo

Delete standard fields from template repository

Hello,
We've created a repository based on standard repository template, which contains several fields that we don't use and we want to delete.
The problem appears after deleting different standard fields like:
MDMSRM_PRICE_INFORMATION
MDMSRM_CONTRACT_PRICE
As it seems the system is using these fields when displaying the catalog into the portal through iviews.
I've checked the UI Configuration into the web finished with .../MDM_SRM_UI_App, but I cannot find the fields I've deleted anywhere.
I've been reading different threads on this forum, but I'm not sure if I need to delete the deleted fields from an XML structure.
If I have to modify any file, where can I get the file to be updated?
If not, how should I proceed?
Thanks & regards,
Carlos Santamaría.

Hi Carlos.
Are you looking forward to 1. Revert back the fields which you have deleted or
2. Remove the fields from the XML data structure.
If (1) - Check the Note: 1171711 where you will find a PDF attached about the repository information which gives you more details about the fields which are available so that you can manually adjust your repository by adding those fields accordingly.
If (2) - In the configuration screen, provide your user credentials by selecting the repository and click "Transport Configuration" button where you can get the XML file to view the fields and edit the file by removing those fields and update back to it.
Note: SAP doesn't recommend you to delete fields from its delivered repository. Especially its price fields. So try to achieve your solution without deleting it if you can.
Regards
Bala

How to delete a field from a Dynamically created internal table

Hi friends,
I have got a requirement in which, I will be entering the table name and Excel file from seletion-screen.
based on the Table I have entered in the selection-screen I need to create a dynamic internal table so that I can fill that Execel data into that internal table and later i using BDC i can I can fill the database table using SM30 transaction.
here. my problem is that, When I am creating internal table dynamically, MANDT filed is also getting created in the internal table.
please, help in deleteing the filed MANDT from the internal able.
following is the code which creates the dynamic internal table.
CREATE DATA dy_table TYPE TABLE OF (p_tabname).
assign dy_table->* to <dyn_table>.
please provide, if any sample code is available.
Regards,
Xavier.P

Hi,
You can use this logic,
While creating the Dynamic filed catalog try to avoid MANDT field.
Ex:
*Dynamic creation of a structure
CREATE DATA LP_STRUCT TYPE (V_TABLE).
ASSIGN LP_STRUCT->* TO <FS>.
*Fields Structure
OF_SDESCR ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA( <FS> ).
LOOP AT OF_SDESCR->COMPONENTS ASSIGNING <COMPONENTS>.
*Field MANDT not displayed
 IF SY-TABIX = 1 AND <COMPONENTS>-NAME = 'MANDT'.
 CONTINUE. " Next loop
 ENDIF.
*Build Fieldcatalog
 LS_LVC_CAT-FIELDNAME = <COMPONENTS>-NAME.
 LS_LVC_CAT-REF_TABLE = V_TABLE.
 APPEND LS_LVC_CAT TO LT_LVC_CAT.
 CLEAR LS_LVC_CAT.
ENDLOOP.

Deleting one filed from itab cpmaring duplicates

Hi,
I have one final table with 8 columns as
Billing document , date, net amount , tax amount, Gross amount, Cform serial no. , c form no. , c form amount
from above table i want to delete only c form amount if it is duplicate comparing. Cform serial no. , c form no. , c form amount, means if my data in those three fileds is repeating again i want to delete the c form amount by keeping remaining data as it is in the final table.
regards,
zafar

Hi,
You can do it in either of the following ways
1) Use AT NEW f1 f2 f3 command, and make a note of the sy-tabix values in a seperate internal table.
2) Set the amount as 0 and use the MODIFY itab from wa_itab TRANSPORTING amount.
Alternatively,
Write a logic where you compare the first row and second row and second row and then third row and so on and modify the amount.
Please search the SDN for snippets.

How can we delete value fields from the Table T237A?

Dear All,
We need to delete some value fields in CO-PA. We got a message that these value fileds are being used in the Table T237A.
This table is related to key figure scheme.
We have deleted in t.c. sm31 in the table/view V_RS_T237A elements which were assigned to value fields to be deleted.
But we still have a message value fields are being used. And after some searches we found out they are still being used in the table T237A.
COuld you please, help us?
Thank you in advance!
Best regards,
Kamila.

Change the Table Control attributes such that user can only select a single record(row).
Tip to delete a selected record
1) write a module 'Mark' in the PAI as below
PROCESS AFTER INPUT.
MODULE cancel AT EXIT-COMMAND.
LOOP WITH CONTROL table_view.
MODULE read_table_control.
FIELD flag MODULE mark ON INPUT.
ENDLOOP.
MODULE user_command_0100.
2) Module Mark is below.
MODULE mark INPUT.
CHECK flag = 'X'.
x = table_view-top_line + sy-stepl - 1.
Delete itab INDEX x.
ENDMODULE. " mark INPUT
Table_view is the TableControl Name.
'flag' is of type char(1) available in the Internal table which was assigned to the select option in the table control.
award if uesful
Regards,
Sudheer

How to delete customized field from an infotype

Hi All,
I have created a customized field in standard infotype.Now i want to remove that field. Can anyone pls send me procedure to delete the customized field.
Thanks
Partha.

u can use transaction se11 to delete the corresponding customised domain, data element etc. (if any), and finally delete the structure CI_Pnnnn.
if u have already input data in the field, u have to firstly delete these data.
Kind regards,
Echo

How to delete a field from already created search help

hi
i got a requirement that delete a search help field which is already delivered
regards
krishna

Hi Krishna,
1. Go to SE80 and Enter the Package name
2. Dictionary objects --> Search helps ---> select ur Srarch help[double click it] ---> CTRL + F1.
3. Then remove the unwanted fields.
Thanks,
Reward If Helpful.

Deleting fields from a standard view

Hello,
I want to delete fields form standard view which are appended by me accidentally . I have written a delete statement to delete the fields from the standard view . but i got an error at declaration part . I have declared it as shown below
Tables : V_MMIM_REP_CUST
V_MMIM_REP_CUST----
> is the view name
So, guide me how to declare this view .
Regards,
mnarar.
Edited by: mnarar on Nov 30, 2011 1:12 PM

Hi,
This is just an idea to delete the records from the Table. But ideally you should not use this approach in any development.
The table for this view is MMIM_REP_CUST. You can write a Custom Report Program where you need to create a work area with the values which you would like to delete. And then write a Delete statement and delete the table entry from that work area.
I guess you are doing this in the development environment and have all the necessary authorizations. And you should not transport any report like the above to other environments. Also double check if that entry will not effect other business scenarios.
Hope this helps.
Best Regards,
Samantak.

Deleting AET custom field from the SAP tableu2019s level.

Hi experts,
I am deleting few un-used custom fields in AET. I am able to see delete symbol as status in AET. Although deleted custom fields are present in lot of structure and tables (eg: CRMD_ORDERADM_H) in SAP GUI tables. I want to delete the custom field from SAP GUI tables and structures.
I tried to delete custom field from the SAP GUI tableu2019s level. But it is not allowing.
Please get me some clue on deleting custom field from the SAP GUI tableu2019s level.
Thanks in advance
Chand

Hi,
The deletion of custom field in AET happens in two steps:
1. You select a custom field that you want to delete, than you press on the delete icon in the Custom Field Assignment Block.
Doing this, you mark the selected custom field to be deleted.
2. You press on "Save and Generate" button. The "Save" will persist the deletion mark of the custom field. It means the custom field is marked to be deleted in the database. The "Generate" will process all the deletion of objects which are needed to delete the custom field, for example: Domain, Data Element, Append, etc.
If the "Generate" does not happen due any reason, the deletion mark is already persisted in DB. It means, later on if you go back to AET, you will see that the custom field is marked to be deleted, but it is not yet deleted.
If you do not press "Save and Generate" button at all, it means, you do not persist the deletion mark in DB. Later on if you go back to AET, you won't see that the custom field marked to be deleted.
Note: Please make sure, "Generation" is only applied for field that is flagged to be generated. The "Generate" flag column is by default hidden. You can use personlization to show the column.
Regards,
Steve

Hide/delete fields from standard Adobe Form FITP_REQUEST_FORM

All dear gurus,
I am new to adobe form. I am working on ess mss. In travel request we are getting the adobe form fitp_request_form.
We have some unwanted fields in the form. Its not interactive .
Either I want to hide or delete those fields from the form. thats it.
How I should start. guide me pls.
Regards,
Namsheed.

Hi Namsheed,
You might need to copy the standard as customized form and you are free to hide / delete any field in the form .
http://scn.sap.com/thread/3578272
Also, you need functional to configure to use this customized form instead.
Thanks.
regards,
Xiang Li

Deleting a field from itab!!

Similar Messages

Maybe you are looking for