topic Re: String Comparision in Application Development and Automation Discussions

String Comparision

Former Member — Tue, 27 Dec 2005 09:14:04 GMT

See this code and the explaination below

Variable declaration

DATA : v_route(36) TYPE C,

V_OPRNUM(4) TYPE C.

*Selection Screen

SELECT-OPTIONS: s_matnr FOR mara-matnr, "MATERIAL Number

s_aufnr FOR afpo-aufnr, "Production Order No

s_oprdes FOR V_ROUTE, "Route - Operation" Description

s_opnum FOR V_OPRNUM. "Operation Number

I will have some data in the internal table which based on the selection criteria.

In that I have one field (opr_descp) which is length 40 Characters.

I need only those recods from the internal table where this V_OPRNUM is equal to that first four characters of the internal table field (opr_descp) and I have do the same thing for V_ROUTE is equal to the internal field ( opr_descp) excluding the first four characters of the same field(opr_descp).

Tell me how write the code using string length or any other way. Send me as example or give me suggestion regarding this.

Re: String Comparision

Former Member — Tue, 27 Dec 2005 09:22:01 GMT

loop at itab.

l_index = sy-tabix.

if not itab-opr_descp+0(4) = V_OPRNUM and

not itab-opr_descp+4(36) = V_ROUTE .

delete itab index l_index.

endloop.

Re: String Comparision

Former Member — Tue, 27 Dec 2005 09:22:05 GMT

Hi,

loop at itab where opr_descp+0(4) = V_OPRNUM
                 and opr_descp+4(36) = V_ROUTE.

**do something...
endloop.

regards

vijay

Re: String Comparision

Former Member — Tue, 27 Dec 2005 09:24:08 GMT

Hi Hema,

1. We can use COMPARISON OPERATORS for character type fields.

2. CP

This we can use

3. Sample program is : (just copy paste)

We will try to fetch those records

starting with ABCD

REPORT abc.

DATA : BEGIN OF itab OCCURS 0,

f(36) TYPE c,

END OF itab.

*----

itab-f = 'ABCDEFGHI'.

APPEND itab.

itab-f = 'ABCPPPPPP'.

APPEND itab.

itab-f = 'XXXABCDEFGHI'.

APPEND itab.

itab-f = 'ABCDPPPPPP'.

APPEND itab.

itab-f = 'LLLLDDD'.

APPEND itab.

*----

LOOP AT itab WHERE f CP 'ABCD*'.

WRITE 😕 itab-f.

ENDLOOP.

I hope it helps.

Regards,

Amit M.

Re: String Comparision

Former Member — Tue, 27 Dec 2005 09:25:17 GMT

Hi,

eg.

if opr_descp+0(4) eq v_oprnum -- for 1st criteria

if opr_descp+4(36) eq v_route -- for 2nd criteria

Best regards,

Prashant

Re: String Comparision

madan_ullasa — Tue, 27 Dec 2005 09:30:51 GMT

hi hema,

check out this piece of code..

w_charg = t_vbrp_temp-charg+4(4).

IF t_vbrp_temp-vrkme <> 'CV'.

IF w_charg <> 0.

w_fkimg = ( t_vbrp_temp-fkimg DIV w_charg ) .

ENDIF.

w_units = t_vbrp_temp-fkimg - ( w_fkimg * w_charg ) .

ENDIF.

w_case = w_case + w_fkimg .

w_tot_units = w_units + w_tot_units .

in this particular case im considering 4 characters of the field charg from VBRP... i.e

if charg is 'abcd1234jk' , then charg+4(4) gives me a value of '1234'.

This is called as substrings..

hope this is clear to you.

regards,

Madan........

Re: String Comparision

Former Member — Tue, 27 Dec 2005 09:33:16 GMT

Loop at itab.

l_tabix = sy-tabix.

if itab-opr_descp+0(4) <> v_oprnum or

itab-opr_descp+4(40) <> v_route.

if sy-subrc = 0.

delete itab index l_tabix.

endif.

endloop.

Re: String Comparision

Former Member — Tue, 27 Dec 2005 09:48:22 GMT

Hi Chandrasekhar,

in the same logic instead of ""if not itab-opr_descp0(4) = V_OPRNUM"" can I write ""if not itab-opr_descp0(4) in V_OPRNUM"" as I want to compare this field to the range which is given in the selection screen (s_oprdes FOR V_ROUTE) and the same with V_ROUTE as well.

Also pls clarify this as well. This field OPR_DESCP is 40 characters long. in the final output i have split this into and display accordingly.

one thing I have noticed in the date is after first four characters there is space for every entry.

can i write the code like

SPLIT OPR_DESCP AT ' '(SPACE)

or is there any other way

Re: String Comparision

Former Member — Tue, 27 Dec 2005 09:53:30 GMT

Hema..u can use in <v_oprnum>.

and while displaying use split itab-opr_descp at ' ' into <> <> .

Re: String Comparision

Former Member — Tue, 27 Dec 2005 09:53:41 GMT

i think you can use in clause.

instead you can use in in where clause.

loop at itab where text+0(4) in v_oprnum.

2. to avod space , use condense.

vijay

Re: String Comparision

Former Member — Tue, 27 Dec 2005 10:01:50 GMT

yes u can use IN for both

for second question u can use SPLIT as u had mentioned

Re: String Comparision

Former Member — Tue, 27 Dec 2005 10:16:40 GMT

Hi Hema,

If i understood ur problem clearly u want to display only those details of internal table whose desc

field parts (first 4char matches OPNUM) and (rest match desc) of ur selection parameters.

I am giving u an example program.

REPORT yh291_practice1 .

Tables declaration

TABLES: mara, afpo.

Variable declaration

DATA : v_route(36) TYPE c,

v_oprnum(4) TYPE c.

Internal table declaration

DATA:

BEGIN OF itab OCCURS 0,

matnr LIKE mara-matnr,

aufnr LIKE afpo-aufnr,

oprdes(40) TYPE c,

END OF itab.

*Selection Screen

SELECT-OPTIONS:

s_matnr FOR mara-matnr, "MATERIAL Number

s_aufnr FOR afpo-aufnr, "Production Order No

s_oprdes FOR v_route, "Route - Operation" Description

s_opnum FOR v_oprnum. "Operation Number

START-OF-SELECTION.

Populating internal table

PERFORM populate_itab.

WRITE:/ 'CONTENTS IN INTERNAL TABLE'.

LOOP AT itab.

WRITE:/ itab-matnr, itab-aufnr, itab-oprdes.

ENDLOOP.

SKIP 3.

WRITE:/ 'CONTENTS IN ITAB FOR CREITERIA'.

WRITE: 's_opnum-LOW = "BRIC" s_opnum-HIGH = "COMP" & '.

WRITE: 's_oprdes-low =" DIST DRIVE" s_oprdes-high = "CLEEN" '.

LOOP AT itab WHERE oprdes0(4) IN s_opnum OR oprdes4 IN s_oprdes.

WRITE:/ itab-matnr, itab-aufnr, itab-oprdes0(4), itab-oprdes4.

ENDLOOP.

&----

*& Form populate_itab

&----

text

----

--> p1 text
<-- p2 text

----

FORM populate_itab.

Populating internal table

itab-matnr = 'FERT-26'.

itab-aufnr = '0001'.

itab-oprdes = 'COMPUTER'.

APPEND itab.

itab-matnr = 'FERT-43'.

itab-aufnr = '0002'.

itab-oprdes = 'WIRE BEARING'.

APPEND itab.

itab-matnr = 'FERT-46'.

itab-aufnr = '0003'.

itab-oprdes = 'SYSTEM'.

APPEND itab.

itab-matnr = 'FERT-60'.

itab-aufnr = '0004'.

itab-oprdes = 'BICYCLEEN'.

APPEND itab.

itab-matnr = 'FERT-63'.

itab-aufnr = '0005'.

itab-oprdes = 'BRICKS'.

APPEND itab.

itab-matnr = 'FERT-65'.

itab-aufnr = '0006'.

itab-oprdes = 'BICYCLE'.

APPEND itab.

itab-matnr = 'FERT-67'.

itab-aufnr = '0007'.

itab-oprdes = 'HARD DISK DRIVE'.

APPEND itab.

itab-matnr = 'FERT-68'.

itab-aufnr = '0007'.

itab-oprdes = 'RAW MATERIAL'.

APPEND itab.

itab-matnr = 'FERT-71'.

itab-aufnr = '0008'.

itab-oprdes = 'HARD DISK DRIVE'.

APPEND itab.

itab-matnr = 'FERT-73'.

itab-aufnr = '0009'.

itab-oprdes = 'RAW MATERIAL'.

APPEND itab.

itab-matnr = 'FERT-74'.

itab-aufnr = '0010'.

itab-oprdes = 'COMPUTER'.

APPEND itab.

itab-matnr = 'FERT-75'.

itab-aufnr = '0011'.

itab-oprdes = 'HARD DISK DRIVE'.

APPEND itab.

ENDFORM. " populate_itab

HOPE this example serves ur purpose.

bye

Lakshmi

Re: String Comparision

Former Member — Tue, 27 Dec 2005 10:23:02 GMT

HI chandrasekhar

THESE ARE THE DECLARATIONS WHICH I HAVE GIVEN. THE TYPES, INTERNAL TABLE, STRUCUTE AND THE VARIABLES.

Types declaration for the table ZWIPSTAT1.

TYPES: BEGIN OF t_zwipstat1,

lotnum TYPE zmes_lot, "MES Lot number

ordernum TYPE aufnr, "Order Number

opr_descp TYPE zoprdescp, "Operation Description

END OF t_zwipstat1.

DATA: i_zwipstat1 TYPE STANDARD TABLE OF t_zwipstat1 INITIAL SIZE 0.

DATA: is_zwipstat1 TYPE t_zwipstat1.

DATA: v_route(36) TYPE C,

V_OPRNUM(4) TYPE N,

V_INDEX TYPE SY-TABIX.

SELECT lotnum

ordernum

opr_descp

INTO TABLE i_zwipstat1

FROM zwipstat

WHERE werks = is_zlhstockoverview-werks

AND ordernum = v_ordernum.

LOOP AT I_ZWIPSTAT1 INTO IS_ZWIPSTAT1.

v_index = sy-tabix.

if not IS_ZWIPSTAT-OPR_DESCP+0(4) IN V_OPRNUM AND

NOT IS_ZWIPSTAT-OPR_DESCP+4(36) IN V_ROUTE.

DELETE IS_ZWIPSTAT INDEX V_INDEX.

ENDLOOP.

IS THIS CORRECT, IF NOT PLEASE CORRECT ME. ALSO AT THE END I HAVE MOVE ALL THE FIELDS TO THE INTERNAL TABLE I_ZWIPSTAT IS SAME IS I_ZWIPSTAT1.

Re: String Comparision

Former Member — Tue, 27 Dec 2005 10:30:13 GMT

* Types declaration for the table ZWIPSTAT1.
TYPES: BEGIN OF t_zwipstat1,
lotnum TYPE zmes_lot, "MES Lot number
ordernum TYPE aufnr, "Order Number
opr_descp TYPE zoprdescp, "Operation Description
END OF t_zwipstat1.


DATA: i_zwipstat1 TYPE STANDARD TABLE OF t_zwipstat1 INITIAL SIZE 0.

DATA: is_zwipstat1 TYPE t_zwipstat1.

DATA: v_route(36) TYPE C,
V_OPRNUM(4) TYPE N, 
V_INDEX TYPE SY-TABIX.


SELECT lotnum
ordernum
opr_descp
INTO TABLE i_zwipstat1
FROM zwipstat
WHERE werks = is_zlhstockoverview-werks
AND ordernum = v_ordernum. 


LOOP AT I_ZWIPSTAT1 INTO IS_ZWIPSTAT1.


v_index = sy-tabix.

if not IS_ZWIPSTAT<b>1</b>-OPR_DESCP+0(4) IN V_OPRNUM AND
NOT IS_ZWIPSTAT<b>1</b>-OPR_DESCP+4(36) IN V_ROUTE.
DELETE I_ZWIPSTAT1<b>1</b> INDEX V_INDEX.
<b>else.
move-corresponding I_ZWIPSTAT1 to I_ZWIPSTAT.
append I_ZWIPSTAT.
endif.</b>
ENDLOOP.

Bold ones are corrections to your code.

vijay

Re: String Comparision

Former Member — Tue, 27 Dec 2005 10:30:46 GMT

in ur SELEct,is v_ordern select option or parameter,if it is select option then write IN V_ORDERN instead of = V_ORDERN.

please explain from where u r gettin this field is_zlhstockoverview-werks

SELECT lotnum

ordernum

opr_descp

INTO TABLE i_zwipstat1

FROM zwipstat

WHERE werks = is_zlhstockoverview-werks

AND ordernum = v_ordern

write the loop code like this as u r using workareas,this will modify ur internal table I_ZWIPSTAT1 and no need to write separate code

LOOP AT I_ZWIPSTAT1 INTO IS_ZWIPSTAT1.

if not IS_ZWIPSTAT-OPR_DESCP+0(4) IN V_OPRNUM AND

NOT IS_ZWIPSTAT-OPR_DESCP+4(36) IN V_ROUTE.

DELETE TABLE I_ZWIPSTAT1 from IS_ZWIPSTAT1.

ENDLOOP.

Message was edited by: chandrasekhar jagarlamudi

Re: String Comparision

Former Member — Tue, 27 Dec 2005 10:30:51 GMT

hi hema,

You have a field called opr_descp which is of length 40 characters but you need only the first 4 characters of oper_descp for v_opernum and remaining character for v_route.

My suggestion to your problem is solve your problem at very beginning. i.e i suggest you to have 2 fields with oper_num & oper_route instead of one field

opr_descp.

When you are inserting data into the internal table do

like this...


len type i.
len = strlen( string value of oper_descp ).
......
......
oper_num = string value of oper_descp+0(4).
oper_route = string value of oper_descp+4(len).
.......
.......
append itab.

*if you know that len is 40 you donot need len variable.

Because the advantage of using this is...

1. You need not have to use the 2 variables.

2. Use the oper_num or oper_route fields of itab.

if you want to select a particular field use...

read table itab where itab-oper_num = 'xxxx'. or

read table itab where itab-oper_num = 'xxxx.....xxx'.

Hope it helps.

Regards,

Maheswaran.B

Re: String Comparision

Former Member — Tue, 27 Dec 2005 10:31:14 GMT

LOOP AT I_ZWIPSTAT1 INTO IS_ZWIPSTAT1.

v_index = sy-tabix.

if not IS_ZWIPSTAT-OPR_DESCP+0(4) IN V_OPRNUM AND

NOT IS_ZWIPSTAT-OPR_DESCP+4(36) IN V_ROUTE.

DELETE I_ZWIPSTAT1 INDEX V_INDEX.

else.

append is_zwipstat1 to <last internal table.

endif.

ENDLOOP.

Re: String Comparision

Former Member — Tue, 27 Dec 2005 10:56:12 GMT

HI Chandrasekhar.

THIS IS THE COMPLETE CODE.

WHEN I CHECK FOR SYNTAX CHECK IT SAYS THAT V_OPRNUM IS NOT AN INTERNAL TABLE.

PLEASE TELL ME HOW SHOULD I WRITE THE SELECT-OPTIONS STATMENT AS HERE THIS V_OPRNUM IS A LOCAL VARIABLE WHICH I DECLARED AS THE USER WILL ENTER ONLY 4 CHARACTERS IN THE SELECTION SCREEN WHICH IS A PART OF ZWIPSTAT-OPR_DESCP AND THE SAME WITH V_ROUTE.

please check the variable declarations, select-options.

TYPE-POOLS: slis.

----

Tables *
*

----

TABLES : zlhstockoverview, "Stock Overview Details Table

zwipstat, "WIP Status Table

afpo, "Order item

mara, "General Material Data

marc. "Plant Data for Material

----

Types *
*

----

Types declaration for the table ZLHSTOCKOVERVIEW

TYPES: BEGIN OF t_zlhstockoverview,

werks TYPE werks_d, "Plant

matnr TYPE matnr, "Material Number

dispo TYPE dispo, "MRP controller

dat00 TYPE dat00, "Receipt/Requirements date

extra TYPE extra, "MRP element data

umdat TYPE umdat, "Rescheduling date

ornum TYPE aufnr,

lotnumber TYPE zmes_lot,

END OF t_zlhstockoverview.

Types declaration for the table ZWIPSTAT.

TYPES: BEGIN OF t_zwipstat,

lotnum TYPE zmes_lot, "MES Lot number

ordernum TYPE aufnr, "Order Number

opr_descp TYPE zoprdescp, "Operation Description

END OF t_zwipstat.

Types declaration for the table ZWIPSTAT1.

TYPES: BEGIN OF t_zwipstat1,

lotnum TYPE zmes_lot, "MES Lot number

ordernum TYPE aufnr, "Order Number

opr_descp TYPE zoprdescp, "Operation Description

END OF t_zwipstat1.

Types declaration for the table AFPO.

TYPES: BEGIN OF t_afpo,

aufnr TYPE aufnr, "Order Number

dauat TYPE aufart, "Order Type

psmng TYPE co_psmng, "Order item quantity

END OF t_afpo.

Types declaration for the table AFPO.

TYPES: BEGIN OF t_mara,

matnr TYPE matnr, "Material Number

normt TYPE normt, "Industry Standard Description

END OF t_mara.

Types declaration for the table FINAL1

TYPES: BEGIN OF t_final1,

ordernum TYPE aufnr,

dauat TYPE afpo-dauat,

matnr TYPE zlhstockoverview-matnr,

normt TYPE mara-normt,

lotnum TYPE zwipstat-lotnum,

psmng TYPE afpo-psmng,

umdat TYPE zlhstockoverview-umdat,

dat00 TYPE zlhstockoverview-dat00,

opr_descp TYPE zwipstat-opr_descp,

END OF t_final1.

Types declaration for the table FINAL

TYPES: BEGIN OF t_final,

ordernum TYPE aufnr,

dauat TYPE afpo-dauat,

matnr TYPE zlhstockoverview-matnr,

normt TYPE mara-normt,

lotnum TYPE zwipstat-lotnum,

psmng TYPE afpo-psmng,

umdat TYPE zlhstockoverview-umdat,

dat00 TYPE zlhstockoverview-dat00,

opr_descp TYPE zwipstat-opr_descp,

END OF t_final.

----

Internal tables *
*

----

DATA: i_zlhstockoverview TYPE STANDARD TABLE OF t_zlhstockoverview

INITIAL SIZE 0,

i_zwipstat TYPE STANDARD TABLE OF t_zwipstat INITIAL SIZE 0,

i_zwipstat1 TYPE STANDARD TABLE OF t_zwipstat1 INITIAL SIZE 0,

i_afpo TYPE STANDARD TABLE OF t_afpo INITIAL SIZE 0,

i_mara TYPE STANDARD TABLE OF t_mara INITIAL SIZE 0,

i_final1 TYPE STANDARD TABLE OF t_final1 INITIAL SIZE 0,

i_final TYPE STANDARD TABLE OF t_final INITIAL SIZE 0.

Structurs declaration

DATA: is_zlhstockoverview TYPE t_zlhstockoverview,

is_zwipstat TYPE t_zwipstat,

is_zwipstat1 TYPE t_zwipstat1,

is_afpo TYPE t_afpo,

is_mara TYPE t_mara,

is_final1 TYPE t_final1,

is_final TYPE t_final.

Variable declaration

DATA : v_extra TYPE zlhstockoverview-extra,

v_lotnum TYPE zmes_lot,

v_ordernum TYPE aufnr,

v_route(36) TYPE C,

V_OPRNUM(4) TYPE N,

v_index TYPE SY-TABIX.

*Constant declaration.

DATA: c_delb0 TYPE delb0 VALUE 'PrdOrd'.

----

Selection-screen *
*

----

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001 .

PARAMETERS: p_werks TYPE marc-werks. "default 'TQT1'. "PLANT

SELECT-OPTIONS: s_matnr FOR mara-matnr, "MATERIAL Number

s_aufnr FOR afpo-aufnr, "Production Order No

P_oprdes FOR V_ROUTE, "Route - Operation Description

P_opnum FOR OPRNUM. "Operation Number

PARAMETERS: p_date TYPE mdez-dat00. "Requirement Date

SELECT-OPTIONS: s_dispo FOR marc-dispo, "MRP Controller

s_normt FOR mara-normt. "EG Number

SELECTION-SCREEN END OF BLOCK b1.

----

Start-of-selection *
*

----

START-OF-SELECTION.

SELECT werks

matnr

dispo

dat00

extra

umdat

INTO TABLE i_zlhstockoverview

FROM zlhstockoverview

WHERE delb0 = c_delb0

AND werks = p_werks

AND umdat = p_date

OR dat00 = p_date

AND matnr IN s_matnr

AND dispo IN s_dispo.

LOOP AT i_zlhstockoverview INTO is_zlhstockoverview.

MOVE is_zlhstockoverview-extra TO v_extra.

SPLIT v_extra AT '/' INTO v_lotnum v_ordernum.

MOVE v_lotnum TO is_zlhstockoverview-lotnumber.

MOVE v_ordernum TO is_zlhstockoverview-ornum.

APPEND is_zlhstockoverview TO i_zlhstockoverview.

SELECT lotnum

ordernum

opr_descp

INTO TABLE i_zwipstat1

FROM zwipstat

WHERE werks = is_zlhstockoverview-werks

AND ordernum = v_ordernum.

SELECT aufnr

dauat

psmng

INTO TABLE i_afpo

FROM afpo

WHERE aufnr = v_ordernum

AND aufnr IN s_aufnr.

SELECT matnr

normt

INTO TABLE i_mara

FROM mara

WHERE matnr = is_zlhstockoverview-matnr

AND matnr IN s_matnr.

ENDLOOP.

LOOP AT I_ZWIPSTAT1 INTO IS_ZWIPSTAT1.

v_index = sy-tabix.

if not IS_ZWIPSTAT-OPR_DESCP+0(4) IN V_OPRNUM AND

NOT IS_ZWIPSTAT-OPR_DESCP+4(36) IN V_ROUTE.

DELETE IS_ZWIPSTAT INDEX V_INDEX.

ENDLOOP.

LOOP AT i_zwipstat INTO is_zwipstat.

READ TABLE i_afpo INTO is_afpo WITH KEY

aufnr = is_zwipstat-lotnum.

MOVE is_afpo-dauat TO is_final1-dauat.

MOVE is_afpo-psmng TO is_final1-psmng.

MOVE is_zwipstat-lotnum TO is_final1-lotnum.

MOVE is_zwipstat-ordernum TO is_final1-ordernum.

MOVE is_zwipstat-opr_descp TO is_final1-opr_descp.

APPEND is_final1 TO i_final1.

ENDLOOP.

LOOP AT i_zlhstockoverview INTO is_zlhstockoverview.

READ TABLE i_final1 INTO is_final1 WITH KEY

lotnum = is_zlhstockoverview-lotnumber.

MOVE is_zlhstockoverview-matnr TO is_final1-matnr.

MOVE is_zlhstockoverview-umdat TO is_final1-umdat.

MOVE is_zlhstockoverview-dat00 TO is_final1-dat00.

APPEND is_final1 TO i_final1.

ENDLOOP.

LOOP AT i_mara INTO is_mara.

READ TABLE i_final1 INTO is_final1 WITH KEY

matnr = is_mara-matnr.

MOVE is_final1-ordernum TO is_final-ordernum.

MOVE is_final1-dauat TO is_final-dauat.

MOVE is_final1-matnr TO is_final-matnr.

MOVE is_final1-lotnum TO is_final-lotnum.

MOVE is_final1-psmng TO is_final-psmng.

MOVE is_final1-umdat TO is_final-umdat.

MOVE is_final1-dat00 TO is_final-dat00.

MOVE is_final1-opr_descp TO is_final-opr_descp.

MOVE is_mara-normt TO is_final-normt.

APPEND is_final TO i_final.

ENDLOOP.

Sub routine to display the ALV

PERFORM output_alv.

*&----

*& Form OUTPUT_ALV

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM output_alv .

DATA : it_fieldcat TYPE slis_t_fieldcat_alv,

is_layout TYPE slis_layout_alv.

IF it_fieldcat IS INITIAL.

PERFORM field_fill USING it_fieldcat.

ENDIF.

Sub routine to set the layout

PERFORM set_layout USING is_layout.

call function 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IS_LAYOUT = IS_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

tables

t_outtab = I_FINAL

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

if sy-subrc <> 0.

endif.

ENDFORM. " OUTPUT_ALV

*&----

*& Form FIELD_FILL

*&----

text

*----

-->P_IT_FIELDCAT text

*----

form FIELD_FILL using PT_FIELDCAT type SLIS_T_FIELDCAT_ALV.

data : LS_FIELDCAT type SLIS_FIELDCAT_ALV,

POS type I value 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = 'ORDERNUM'.

LS_FIELDCAT-REF_FIELDNAME = 'ORDERNUM'.

LS_FIELDCAT-REF_TABNAME = 'ZWIPSTAT'.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = 'DAUAT'.

LS_FIELDCAT-REF_FIELDNAME = 'DAUAT'.

LS_FIELDCAT-REF_TABNAME = 'AFPO'.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = 'MATNR'.

LS_FIELDCAT-REF_FIELDNAME = 'MATNR'.

LS_FIELDCAT-REF_TABNAME = 'MARA'.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = 'NORMT'.

LS_FIELDCAT-REF_FIELDNAME = 'NORMT'.

LS_FIELDCAT-REF_TABNAME = 'MARA'.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = 'LOTNUM'.

LS_FIELDCAT-REF_FIELDNAME = 'LOTNUM'.

LS_FIELDCAT-REF_TABNAME = 'ZWIPSTAT'.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = 'PSMNG'.

LS_FIELDCAT-REF_FIELDNAME = 'PSMNG'.

LS_FIELDCAT-REF_TABNAME = 'AFPO'.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = 'UMDAT'.

LS_FIELDCAT-REF_FIELDNAME = 'UMDAT'.

LS_FIELDCAT-REF_TABNAME = 'ZLHSTOCKOVERVIEW'.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = 'DAT00'.

LS_FIELDCAT-REF_FIELDNAME = 'DAT00'.

LS_FIELDCAT-REF_TABNAME = 'ZLHSTOCKOVERVIEW'.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = ''.

LS_FIELDCAT-SELTEXT_L = TEXT-002.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = ''.

LS_FIELDCAT-SELTEXT_L = TEXT-003.

append LS_FIELDCAT to PT_FIELDCAT.

clear LS_FIELDCAT.

POS = POS + 1.

ENDFORM. " FIELD_FILL

*&----

*& Form SET_LAYOUT

*&----

text

*----

-->P_IS_LAYOUT text

*----

form SET_LAYOUT using LS_LAYOUT type SLIS_LAYOUT_ALV.

CLEAR ls_layout.

ls_layout-zebra = 'X'.

ls_layout-colwidth_optimize = 'X'.

ENDFORM. " SET_LAYOUT

Re: String Comparision

Former Member — Tue, 27 Dec 2005 10:59:56 GMT

Hi Hema...

dont declare as parameters

parameters:

P_oprdes FOR V_ROUTE, "Route - Operation Description

P_opnum FOR OPRNUM. "Operation Number

correct way:

select-options:

P_oprdes FOR V_ROUTE, "Route - Operation Description

P_opnum FOR OPRNUM. "Operation Number

Re: String Comparision

Former Member — Tue, 27 Dec 2005 11:00:10 GMT

LOOP AT I_ZWIPSTAT1 INTO IS_ZWIPSTAT1.

v_index = sy-tabix.

if not IS_ZWIPSTAT-OPR_DESCP+0(4) IN P_opnum AND

NOT IS_ZWIPSTAT-OPR_DESCP+4(36) IN P_oprdes.

DELETE I_ZWIPSTAT INDEX V_INDEX.

ENDLOOP.

try these changes...