topic Re: upper/lowercase problem in Application Development and Automation Discussions

upper/lowercase problem

Former Member — Wed, 27 Jun 2007 05:36:43 GMT

Hi i m working on a material/ spare search alv report.

well i m using value request on the three select optons.

f4 help is coming in uppercase and after selecting it is giving correct output. but when user change any thing in that select option to lowercase it is not giving any output.

please suggest me what will be the best solution.

either user will forced to put in uppercase or when user put in lowercase then it automatically convert into uppercase but how?

please this is caritical issue and very urgent.

thanks in advance

vijay

helpfull answer will be fully rewarded

Re: upper/lowercase problem

Former Member — Wed, 27 Jun 2007 05:41:42 GMT

Do the coding to convert lower case to upper case in event 'at selection-screen'. Use translate command for this.

Re: upper/lowercase problem

Former Member — Wed, 27 Jun 2007 05:43:18 GMT

HI,

TRY IN THIS MANNER

SELECT-OPTIONS : S_MATNR FOR MARA-MATNR LOWER CASE.

YOU WILL GET IT IN UPPER CASE AND LOWER CASE ALSO

Re: upper/lowercase problem

Former Member — Wed, 27 Jun 2007 05:44:11 GMT

When ever you ebnter some value in fields on selection screen and press enter by default they are converted to Upper case, and see in most of the tables also, the values are stored in Upper case

if not use the command TRANSLATE

if not p_matnr CS 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.

TRANSLATE P_MATNR TO UPPERCASE.

ENDIF.

Reward points for useful Answers

Regards

Anji

Re: upper/lowercase problem

MohanChauhan — Wed, 27 Jun 2007 05:46:57 GMT

Hi,

In Domain of the field that your using( select-option) you can uncheck flag for Lower case. This will convert the value into Upper case.

Reward points if useful.

Regards,

Mohan

Re: upper/lowercase problem

Former Member — Wed, 27 Jun 2007 06:08:53 GMT

hi anji sir,

i m sending u the whole code plz copy and paste and run it.

jus try to change the equipment after selecting into lower case. plz if u have any solution plz suggest me. i have already used translate but it is not working.

REPORT ZMMR_MATERIAL_MASTER.

TABLES : MARA, T001W,AUSP.

DATA: BEGIN OF T_SPARES OCCURS 0,

MATNR TYPE MARA-MATNR,

ERSDA TYPE MARA-ERSDA,

ERNAM TYPE MARA-ERNAM,

MTART TYPE MARA-MTART,

MAKTX TYPE MAKT-MAKTX,

WERKS TYPE MARC-WERKS,

MATKL LIKE mara-MATKL,

R_ATINN like ausp-ATINN,

NORMT like mara-normt,

END OF t_spares.

DATA : BEGIN OF T_PLANT OCCURS 0,

MATNR TYPE MARA-MATNR,

ERSDA TYPE MARA-ERSDA,

ERNAM TYPE MARA-ERNAM,

MTART TYPE MARA-MTART,

MAKTX TYPE MAKT-MAKTX,

WERKS LIKE MARC-WERKS,

MATKL LIKE mara-MATKL,

ATWRT1 LIKE ausp-ATWRT,

ATWRT2 LIKE ausp-ATWRT,

ATWRT3 LIKE ausp-ATWRT,

sel(1),

R_ATINN1(20) TYPE C,

R_ATINN2(20) TYPE C,

R_ATINN3(20) TYPE C,

NORMT like mara-normt,

END OF T_PLANT.

DATA : T_AUSP LIKE AUSP OCCURS 0 WITH HEADER LINE.

DATA : OEM(120) TYPE C.

TYPE-POOLS : slis.

data : fieldcat type slis_t_fieldcat_alv,

es_selfield type slis_selfield,

e_exit type c,

ls_fieldcat type slis_fieldcat_alv,

cntr type i value 0.

----

ALV-Specific Structures & Variables *

----

DATA : t_fieldalv TYPE slis_t_fieldcat_alv.

DATA : xrepid LIKE sy-repid,

events TYPE slis_t_event WITH HEADER LINE,

gt_event TYPE slis_t_event WITH HEADER LINE,

gd_layout TYPE slis_layout_alv,

repid LIKE sy-repid,

fieldcat TYPE slis_t_fieldcat_alv,

layout TYPE slis_layout_alv.

gd_layout-box_fieldname = 'SEL'.

Selection-screen begin of block b1 with frame title text-001.

SELECTION-SCREEN : SKIP 1.

SELECT-OPTIONS : S_ERNAM FOR MARA-ERNAM ,

S_ERSDA FOR MARA-ERSDA ,

MAtl for mara-matnr,

S_WERKS FOR T001W-WERKS no intervals OBLIGATORY,

S_MTART FOR MARA-MTART no intervals OBLIGATORY,

MATKL for mara-MATKL,

NORMT for mara-NORMT,

ATINN for OEM no intervals no-display,

ATWRT1 for ausp-ATWRT,

ATWRT2 for ausp-ATWRT,

ATWRT3 for ausp-ATWRT,

ATWRT for AUSP-ATWRT NO intervals no-display.

SELECTION-SCREEN : SKIP 1.

selection-screen end of block b1.

data : R_ATINN like ausp-ATINN.

*data : tATWRT like ausp-ATWRT occurs 0 with header line.

data : begin of tATWRT occurs 0 ,

ATWRT like ausp-ATWRT,

sel,

end of tATWRT.

*DATA : WA_TATWRT LIKE TATWRT.

clear : R_ATINN.

************************************************************************

*SELECTION SCREEN FOR VALUE HELP FOR FORM SELECTION.

************************************************************************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR ATWRT1-low.

perform ATWRT1_help CHANGING ATWRT1-low.

if not ATWRT1-LOW CS 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.

TRANSLATE ATWRT1-LOW TO upper case.

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR ATWRT1-HIGH.

perform ATWRT1_help CHANGING ATWRT1-HIGH.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR ATWRT2-low.

perform ATWRT2_help CHANGING ATWRT2-low.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR ATWRT2-HIGH.

perform ATWRT2_help CHANGING ATWRT2-HIGH.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR ATWRT3-low.

perform ATWRT3_help CHANGING ATWRT3-low.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR ATWRT3-HIGH.

perform ATWRT3_help CHANGING ATWRT3-HIGH.

START-OF-SELECTION.

perform data_sel.

if T_PLANT[] is not initial.

PERFORM initial_alv_fieldcat CHANGING t_fieldalv[].

PERFORM build_layout.

perform data_DISPLAY.

endif.

end-of-selection.

&----

*& Form data_sel

&----

text

----

--> p1 text
<-- p2 text

----

FORM data_sel .

if not ATWRT1-LOW CS 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.

TRANSLATE ATWRT1-LOW TO upper case.

ENDIF.

SELECT a~MATNR a~ERSDA a~ERNAM a~MTART a~MATKL

a~NORMT

b~WERKS

INTO corresponding fields of TABLE T_PLANT

FROM mara AS a

JOIN marc AS b

ON a~matnr = b~matnr

WHERE a~ERSDA IN S_ERSDA

AND a~ERNAM IN S_ERNAM

AND a~MTART IN S_MTART

AND a~matnr IN MAtl

AND a~MATKL in MATKL

AND a~NORMT IN NORMT

and b~WERKS in S_WERKS.

IF T_PLANT[] IS NOT INITIAL.

LOOP AT T_PLANT.

SELECT SINGLE MAKTX FROM MAKT INTO CORRESPONDING FIELDS OF T_PLANT

WHERE MATNR = T_PLANT-MATNR

AND SPRAS = SY-LANGU.

MODIFY T_PLANT FROM T_PLANT.

CLEAR : T_PLANT.

ENDLOOP.

ELSE.

Message S999(ZM) with 'Record not found'.

ENDIF.

ranges : R_MATNR FOR MARA-MATNR,

ATWRT FOR AUSP-ATWRT.

REFRESH : T_AUSP.

CLEAR : T_AUSP.

IF NOT ATWRT1 IS INITIAL.

clear : R_ATINN.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

EXPORTING

INPUT = 'HCC_MM_MAT_EQP'

IMPORTING

OUTPUT = R_ATINN.

SELECT * FROM AUSP INTO TABLE T_AUSP WHERE ATWRT IN ATWRT1 and ATINN = R_ATINN.

if not ATWRT2 is initial.

DELETE T_AUSP WHERE ( ATWRT IN ATWRT2 ). " new

endif.

if not ATWRT3 is initial.

DELETE T_AUSP WHERE ( ATWRT IN ATWRT3 ).

endif.

SORT T_AUSP BY OBJEK.

DELETE ADJACENT DUPLICATES FROM T_AUSP COMPARING OBJEK.

LOOP AT T_AUSP.

R_MATNR-sign = 'I'.

R_MATNR-option = 'EQ'.

R_MATNR-low = T_AUSP-OBJEK.

append R_MATNR.

CLEAR : R_MATNR.

CLEAR :T_PLANT-R_ATINN1.

LOOP AT T_PLANT WHERE MATNR = T_AUSP-OBJEK.

T_PLANT-ATWRT1 = T_AUSP-ATWRT.

T_PLANT-R_ATINN1 = 'EQP'.

MODIFY T_PLANT.

CLEAR :T_PLANT-R_ATINN1.

ENDLOOP.

ENDIF.

REFRESH :T_AUSP.

CLEAR : T_AUSP.

IF NOT ATWRT2 IS INITIAL.

clear : R_ATINN.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

EXPORTING

INPUT = 'HCC_MM_MAT_MMO'

IMPORTING

OUTPUT = R_ATINN.

SELECT * FROM AUSP INTO TABLE T_AUSP WHERE ATWRT IN ATWRT2 and ATINN = R_ATINN.

if not ATWRT1 is initial.

DELETE T_AUSP WHERE ( ATWRT IN ATWRT1 ). " new

endif.

if not ATWRT3 is initial.

DELETE T_AUSP WHERE ( ATWRT IN ATWRT3 ).

endif.

SORT T_AUSP BY OBJEK.

DELETE ADJACENT DUPLICATES FROM T_AUSP COMPARING OBJEK.

LOOP AT T_AUSP.

R_MATNR-sign = 'I'.

R_MATNR-option = 'EQ'.

R_MATNR-low = T_AUSP-OBJEK.

append R_MATNR.

CLEAR : R_MATNR.

CLEAR :T_PLANT-R_ATINN2.

LOOP AT T_PLANT WHERE MATNR = T_AUSP-OBJEK.

T_PLANT-ATWRT2 = T_AUSP-ATWRT.

T_PLANT-R_ATINN2 = 'MMO'.

MODIFY T_PLANT.

CLEAR :T_PLANT-R_ATINN2.

ENDLOOP.

ENDIF.

REFRESH : T_AUSP.

CLEAR : T_AUSP.

IF NOT ATWRT3 IS INITIAL.

clear : R_ATINN.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

EXPORTING

INPUT = 'HCC_MM_MAT_OEM'

IMPORTING

OUTPUT = R_ATINN.

SELECT * FROM AUSP INTO TABLE T_AUSP WHERE ATWRT IN ATWRT3 and ATINN = R_ATINN.

if not ATWRT1 is initial.

DELETE T_AUSP WHERE ( ATWRT IN ATWRT1 ).

endif.

if not ATWRT2 is initial.

DELETE T_AUSP WHERE ( ATWRT IN ATWRT2 ).

endif.

SORT T_AUSP BY OBJEK.

DELETE ADJACENT DUPLICATES FROM T_AUSP COMPARING OBJEK.

LOOP AT T_AUSP.

R_MATNR-sign = 'I'.

R_MATNR-option = 'EQ'.

R_MATNR-low = T_AUSP-OBJEK.

append R_MATNR.

CLEAR : R_MATNR.

CLEAR :T_PLANT-R_ATINN3.

LOOP AT T_PLANT WHERE MATNR = T_AUSP-OBJEK.

T_PLANT-ATWRT3 = T_AUSP-ATWRT.

T_PLANT-R_ATINN3 = 'OEM'.

MODIFY T_PLANT.

CLEAR :T_PLANT-R_ATINN3.

ENDLOOP.

ENDIF. " check

DELETE T_PLANT WHERE NOT ( MATNR IN R_MATNR ).

IF NOT ATWRT1 IS INITIAL.

DELETE T_PLANT WHERE NOT ( ATWRT1 IN ATWRT1 ).

endif.

IF NOT ATWRT2 IS INITIAL.

DELETE T_PLANT WHERE NOT ( ATWRT2 IN ATWRT2 ).

endif.

IF NOT ATWRT3 IS INITIAL.

DELETE T_PLANT WHERE NOT ( ATWRT3 IN ATWRT3 ).

endif.

DATA : TEST LIKE AUSP OCCURS 0 WITH HEADER LINE.

DATA : P_TEST LIKE AUSP-ATWRT.

CLEAR : P_TEST.

DATA : TEST_ATWRT LIKE AUSP-ATWRT.

LOOP AT T_PLANT.

clear : P_TEST.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

EXPORTING

INPUT = 'HCC_MM_MAT_OEM'

IMPORTING

OUTPUT = P_TEST.

CLEAR : TEST_ATWRT.

SELECT SINGLE ATWRT FROM AUSP INTO TEST_ATWRT WHERE OBJEK = T_PLANT-MATNR AND ATINN = P_TEST.

T_PLANT-ATWRT3 = TEST_ATWRT.

clear : P_TEST.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

EXPORTING

INPUT = 'HCC_MM_MAT_MMO'

IMPORTING

OUTPUT = P_TEST.

CLEAR : TEST_ATWRT.

SELECT SINGLE ATWRT FROM AUSP INTO TEST_ATWRT WHERE OBJEK = T_PLANT-MATNR AND ATINN = P_TEST.

T_PLANT-ATWRT2 = TEST_ATWRT.

clear : P_TEST.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

EXPORTING

INPUT = 'HCC_MM_MAT_EQP'

IMPORTING

OUTPUT = P_TEST.

CLEAR : TEST_ATWRT.

SELECT SINGLE ATWRT FROM AUSP INTO TEST_ATWRT WHERE OBJEK = T_PLANT-MATNR AND ATINN = P_TEST.

T_PLANT-ATWRT1 = TEST_ATWRT.

MODIFY : T_PLANT.

ENDLOOP.

ENDFORM. " data_sel

&----

*& Form initial_alv_fieldcat

&----

text

----

<--P_T_FIELDALV[] text

----

FORM initial_alv_fieldcat CHANGING rt_fieldcat TYPE slis_t_fieldcat_alv.

DATA : ls_fieldcat TYPE slis_fieldcat_alv,

ls_subtot TYPE slis_sortinfo_alv.

DATA : cntr TYPE i VALUE 1.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'MATNR'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-no_zero = 'X'.

ls_fieldcat-seltext_l = 'Material No'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'MAKTX'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_l = 'Description'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'ERNAM'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_l = 'Created By'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'ERSDA'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_l = 'Created On'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'WERKS'.

ls_fieldcat-outputlen = 6.

ls_fieldcat-seltext_l = 'Plant'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'MTART'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_l = 'Material Type'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'MATKL'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_l = 'Material Group'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'ATWRT1'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_l = 'Equipment'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'ATWRT2'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_l = 'Make & Model'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'ATWRT3'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_l = 'OEM Part No'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'NORMT'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_l = 'Industry Std Desc.'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

cntr = cntr + 1.
ls_fieldcat-col_pos = cntr.
ls_fieldcat-fieldname = 'R_ATINN2'.
ls_fieldcat-outputlen = 10.
ls_fieldcat-seltext_l = 'OEM Part No'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.

cntr = cntr + 1.
ls_fieldcat-col_pos = cntr.
ls_fieldcat-fieldname = 'R_ATINN3'.
ls_fieldcat-outputlen = 10.
ls_fieldcat-seltext_l = 'OEM Part No'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.

ENDFORM. " initial_alv_fieldcat

&----

*& Form build_layout

&----

text

----

--> p1 text
<-- p2 text

----

FORM build_layout .

gd_layout-no_input = 'X'.

gd_layout-colwidth_optimize = 'X'.

gd_layout-box_fieldname = 'SEL'.

gd_layout-zebra = 'X'.

ENDFORM. " build_layout

&----

*& Form data_DISPLAY

&----

text

----

--> p1 text
<-- p2 text

----

FORM data_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

is_layout = gd_layout

i_callback_top_of_page = 'TOP_OF_PAGE'

it_fieldcat = t_fieldalv[]

TABLES

t_outtab = t_plant[].

ENDFORM. " data_DISPLAY

&----

*& Form top_of_page

&----

text

----

FORM top_of_page.

DATA: theader TYPE slis_t_listheader,

waheader TYPE slis_listheader.

DATA : lin(10) TYPE c,

str(100).

CLEAR : lin,str.

CLEAR waheader.

waheader-typ = 'H'.

CONCATENATE 'Material Details' '' INTO waheader-info.

APPEND waheader TO theader.

CLEAR waheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

i_logo = 'HCCLOGO'

it_list_commentary = theader.

ENDFORM. "top_of_page

&----

*& Form ATWRT1_help

&----

text

----

--> p1 text
<-- p2 text

----

FORM ATWRT1_help CHANGING P_ATWRT .

refresh : tATWRT, fieldcat.

CLEAR cntr.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

EXPORTING

INPUT = 'HCC_MM_MAT_EQP'

IMPORTING

OUTPUT = R_ATINN.

select ATWRT from ausp into corresponding fields of table tATWRT where ATINN = R_ATINN.

SORT tATWRT BY ATWRT.

DELETE ADJACENT DUPLICATES FROM tATWRT COMPARING ATWRT.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'ATWRT'.

ls_fieldcat-outputlen = 30.

ls_fieldcat-seltext_l = 'EQUIPMENT'.

ls_fieldcat-hotspot = 'X'.

append ls_fieldcat to fieldcat.

clear ls_fieldcat.

call function 'REUSE_ALV_POPUP_TO_SELECT'

exporting

i_tabname = 'TATWRT'

it_fieldcat = fieldcat

importing

es_selfield = es_selfield

e_exit = e_exit

tables

t_outtab = tATWRT

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

if e_exit = 'X'.

exit.

else.

translate tatwrt to upper case.

read table tATWRT index es_selfield-tabindex .

ATWRT1-LOW = TATWRT-ATWRT.

P_ATWRT = TATWRT-ATWRT.

endif.

ENDFORM. " ATWRT1_help

&----

*& Form ATWRT2_help

&----

text

----

<--P_ATWRT2_LOW text

----

FORM ATWRT2_help CHANGING P_ATWRT.

refresh : tATWRT, fieldcat.

CLEAR : R_ATINN,cntr.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

EXPORTING

INPUT = 'HCC_MM_MAT_MMO'

IMPORTING

OUTPUT = R_ATINN.

select ATWRT from ausp into corresponding fields of table tATWRT where ATINN = R_ATINN.

SORT tATWRT BY ATWRT.

DELETE ADJACENT DUPLICATES FROM tATWRT COMPARING ATWRT.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'ATWRT'.

ls_fieldcat-outputlen = 30.

ls_fieldcat-seltext_l = 'MAKE/ MODEL OF EQUIPMENT'.

ls_fieldcat-hotspot = 'X'.

append ls_fieldcat to fieldcat.

clear ls_fieldcat.

call function 'REUSE_ALV_POPUP_TO_SELECT'

exporting

i_tabname = 'TATWRT'

it_fieldcat = fieldcat

importing

es_selfield = es_selfield

e_exit = e_exit

tables

t_outtab = tATWRT

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

if e_exit = 'X'.

exit.

else.

read table tATWRT index es_selfield-tabindex .

ATWRT1-LOW = TATWRT-ATWRT.

P_ATWRT = TATWRT-ATWRT.

endif.

ENDFORM. " ATWRT2_help

&----

*& Form ATWRT3_help

&----

text

----

<--P_ATWRT3_LOW text

----

FORM ATWRT3_help CHANGING P_ATWRT.

refresh : tATWRT, fieldcat.

CLEAR : R_ATINN,cntr.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

EXPORTING

INPUT = 'HCC_MM_MAT_OEM'

IMPORTING

OUTPUT = R_ATINN.

select ATWRT from ausp into corresponding fields of table tATWRT where ATINN = R_ATINN.

SORT tATWRT BY ATWRT.

DELETE ADJACENT DUPLICATES FROM tATWRT COMPARING ATWRT.

cntr = cntr + 1.

ls_fieldcat-col_pos = cntr.

ls_fieldcat-fieldname = 'ATWRT'.

ls_fieldcat-outputlen = 30.

ls_fieldcat-seltext_l = 'OEM PART NUMBER'.

ls_fieldcat-hotspot = 'X'.

append ls_fieldcat to fieldcat.

clear ls_fieldcat.

call function 'REUSE_ALV_POPUP_TO_SELECT'

exporting

i_tabname = 'TATWRT'

it_fieldcat = fieldcat

importing

es_selfield = es_selfield

e_exit = e_exit

tables

t_outtab = tATWRT

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

if e_exit = 'X'.

exit.

else.

read table tATWRT index es_selfield-tabindex .

ATWRT1-LOW = TATWRT-ATWRT.

P_ATWRT = TATWRT-ATWRT.

endif.

ENDFORM. " ATWRT3_help

regards

vijay

Re: upper/lowercase problem

Former Member — Wed, 27 Jun 2007 06:17:17 GMT

You have to try 'translate' on the internal table of your select option. Use loop /endloop and modify to translate from lower case to upper case. In your code you are only changing the header line,not the teble entreis.

Re: upper/lowercase problem

Former Member — Wed, 27 Jun 2007 06:28:24 GMT

hi sudhir,

my problem is different, actually i m getting the correct output if i will select the entry in select option from f4 help. since table entry is in upper case or any one it will give correct output since f4 help is coming from table itself but my problem started after selecting f4 help entry . when user change any alphabet of select-option entry into lowercase and execute it . then it is not working because i cant apply anthing in at selection screen since it wont work.

so i can either check the user to do not change any character or not put anything except from f4.

or is there any condition when i read the data .

well i m using translate in read stmnt but it is not working.

regards

vijay

Re: upper/lowercase problem

Former Member — Wed, 27 Jun 2007 06:33:09 GMT

If you use event 'at selection-screen' (without any addition) then you should be able to change any entry to uppercase , even if user has changed the entry given by f4. Please try this.