on 06-10-2008 11:39 AM
Hi Gurus,
I have a requirement in which I have to print a check.
I am done with that.
Now they want the employee address to come in CAPS.
Can anyone help me regarding this?
Its very urgent.
Cheers,
naveen
paste the code that u have written here. il check it.something is going wrong.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hi Nayan,
This is the code written in perform.
FORM convert_caps TABLES in_tab STRUCTURE itcsy
out_tab STRUCTURE itcsy.
DATA: l_variable(35).
READ TABLE in_tab WITH KEY 'REGUH_ZANRE'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZNME1'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZNME2'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZNME3'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZNME4'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZSTRA'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZPFAC'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZPST2'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZPFOR'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZPSTL'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZREGI'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZORT1'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZORT2'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZLAND'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'T001-LAND1'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
READ TABLE in_tab WITH KEY 'REGUH_ZADNR'.
IF sy-subrc EQ 0.
l_variable = in_tab-value.
ENDIF.
CALL FUNCTION '2054_TRANSLATE_2_UPPERCASE'
EXPORTING
i_string = l_variable
IMPORTING
e_string = l_variable
EXCEPTIONS
error_occured = 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.
READ TABLE out_tab WITH KEY 'ADRS1_ZANRE'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZNME1'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZNME2'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZNME3'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZNME4'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZSTRA'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZPFAC'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZPST2'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZPFOR'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZPSTL'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZREGI'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZORT1'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZORT2'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZLAND'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1-LAND1'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
READ TABLE out_tab WITH KEY 'ADRS1_ZADNR'.
IF sy-subrc EQ 0.
out_tab-value = l_variable .
MODIFY out_tab INDEX sy-tabix.
ENDIF.
ENDFORM. "convert_caps
Let me know if you need anything else?
Naveen
Hi,
The matter of concern is that u are using just one variable to capture all your values. Is the script gonna export only one value to your subroutine. Is yes then its fine.
1. Ur script code should be like theis :
/: PERFORM convert_caps IN PROGRAM <the prog name u have given>
/: using ®UH_ZANRE&
/: using ®UH_ZNME1&
( continue this for all the variables )
/: changing &ADRS1_ZANRE&
(continue for all the others also)
/:endperform. (this is important.check this)
check this and let me know. If its still not coming il tell u how to debug it.
Thanks
Nayan
Naveen,
you can either di it with perform routine and use fm 'STRING_UPPER_LOWER_CASE.
Amit.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hi,
Write a subroutine for this, and send your address there. Convert it to upper case and print it.Its that simple.
Thanks
Nayan
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
84 | |
25 | |
12 | |
9 | |
6 | |
6 | |
5 | |
5 | |
4 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.