how to map values in_par and out_par in script and program

hii experts,

here my code....

perfrom in FORM is...

PERFORM GET_VENDOR_ADDRESS IN PROGRAM ZRVADOR2TEST

USING &NAME1&

USING &NAME2&

USING &STRAS&

.

.

.

.

.

.

.

CHANGING &NAME1_1&

CHANGING &NAME2_2&

CHANGING &STRAS_1&

.

.

.

.

.

.

.

IN PROGRAM................

form GET_VENDOR_ADDRESS tables in_par structure itcsy

out_par structure itcsy.

types: begin of tp_ven_address,

lifnr type lfa1-lifnr,

adrnr type lfa1-adrnr,

name1 type lfa1-name1,

name2 type lfa1-name2,

stras type lfa1-stras,

ort01 type lfa1-ort01,

ort02 type lfa1-ort02,

pstlz type lfa1-pstlz,

regio type lfa1-regio,

end of tp_ven_address.

data: it_ven_address type table of tp_ven_address with header line.

data: wa_ven_address type tp_ven_address.

DATA L_MFRNR TYPE MARA-MFRNR.

IF VBDKA-DWERK = '97' AND VBDKA-ZZSHPMET = '1PC'.

READ TABLE TVBDPA WITH KEY VBELN_VANG = VBDKA-VBELN.

SELECT SINGLE MFRNR FROM MARA INTO L_MFRNR WHERE MATNR = TVBDPA-MATNR.

SELECT LIFNR ADRNR NAME1 NAME2 STRAS ORT01 ORT02 PSTLZ REGIO

FROM LFA1

INTO CORRESPONDING FIELDS OF TABLE it_ven_address

WHERE ADRNR = VBDKA-ADRNR.

ENDIF.

*read table in_par with key 'NAME1'.

*check sy-subrc = 0.

*

*

*

*loop at it_ven_address into wa_ven_address.

*

*in_par-value = wa_ven_address-name1.

*in_par-value = wa_ven_address-stras.

*append in_par.

*endloop.

*

*read table in_par with key 'NAME1_1'.

*check sy-subrc = 0.

endform.

my requierement is how we pass value from internal table it_ven_address to out_par.....

please provide me the suitable code.

thanks

RC