help in perform

[Former Member]

hi,

i wont to now how to do perform for this code instead of doing it 4 times for changing variable .

i new to perform.

Regards

SPLIT name AT space INTO v_1up v_2up v_3up v_4up.

perform....

CLEAR f_letter.

MOVE v_1up TO v_1low.

TRANSLATE v_1low TO LOWER CASE.

MOVE v_1low TO v_1cap.

MOVE v_1up(1) TO f_letter.

TRANSLATE f_letter TO UPPER CASE.

MOVE f_letter TO v_1cap(1).

*--

---

second word--

---

CLEAR f_letter.

MOVE v_2up TO v_2low.

TRANSLATE v_2low TO LOWER CASE.

MOVE v_2low TO v_2cap.

MOVE v_2up(1) TO f_letter.

TRANSLATE f_letter TO UPPER CASE.

MOVE f_letter TO v_2cap(1).

CLEAR f_letter.

MOVE v_3up TO v_3low.

TRANSLATE v_3low TO LOWER CASE.

MOVE v_3low TO v_3cap.

MOVE v_3up(1) TO f_letter.

TRANSLATE f_letter TO UPPER CASE.

MOVE f_letter TO v_3cap(1).

CLEAR f_letter.

MOVE v_4up TO v_4low.

TRANSLATE v_4low TO LOWER CASE.

MOVE v_4low TO v_4cap.

MOVE v_4up(1) TO f_letter.

TRANSLATE f_letter TO UPPER CASE.

MOVE f_letter TO v_4cap(1).

[Former Member]

Try this:

perform: translate_word using v_1up v_1low v_1cap,

translate_word using v_2up v_2low v_2cap,

translate_word using v_3up v_3low v_3cap,

translate_word using v_4up v_4low v_4cap.

form translate_word using p_up p_low p_cap.

data: f_letter type c.

CLEAR f_letter.

MOVE p_up TO p_low.

TRANSLATE p_low TO LOWER CASE.

MOVE p_low TO p_cap.

MOVE p_up(1) TO f_letter.

TRANSLATE f_letter TO UPPER CASE.

MOVE f_letter TO p_cap(1).

endform.

-Cheers

[Former Member]

Perform change_variable using v_1up

changing v_1cap.

Perform change_variable using v_2up

changing v_2cap.

Perform change_variable using v_3up

changing v_3cap.

Perform change_variable using v_4up

changing v_4cap.

form change_variable using p_up

changing p_cap.

data : f_letter(10) , p_low(10).

MOVE p_up TO p_low.

TRANSLATE p_low TO LOWER CASE.

MOVE p_low TO p_cap.

MOVE p_up(1) TO f_letter.

TRANSLATE f_letter TO UPPER CASE.

MOVE f_letter TO p_cap(1).

endform.

[Former Member]

Try this:

perform: translate_word using v_1up v_1low v_1cap,

translate_word using v_2up v_2low v_2cap,

translate_word using v_3up v_3low v_3cap,

translate_word using v_4up v_4low v_4cap.

form translate_word using p_up p_low p_cap.

data: f_letter type c.

CLEAR f_letter.

MOVE p_up TO p_low.

TRANSLATE p_low TO LOWER CASE.

MOVE p_low TO p_cap.

MOVE p_up(1) TO f_letter.

TRANSLATE f_letter TO UPPER CASE.

MOVE f_letter TO p_cap(1).

endform.

-Cheers