customer n consignees address

hi all

i want to pint customer n consignee's address for tht in driver program i hav written the below code but its not working if smbdy can help me....

select single ADRNR

from vbpa

into v_adrnr

where vbeln = s_vbeln

and parvw = 'AG'.

if sy-subrc eq 0 and v_adrnr is not initial .

Select name1 city1

from adrc

into table it_cust

where addrnumber = v_adrnr.

endif.

select single ADRNR

from vbpa

into c_adrnr

where vbeln = s_vbeln

and parvw = 'RJ'.

if sy-subrc eq 0 and c_adrnr is not initial .

Select name1 city1

from adrc

into table it_cons

where addrnumber = c_adrnr.

endif.

if sy-subrc eq 0 and v_adrnr is not initial .

Select name1 city1

from adrc

into table it_cust

where addrnumber = v_adrnr.

endif.