How to assign user-defined netnames to the multiple nets drawn though rodcreatpath

Hi,

 I want to assign user-defined netnames to the nets that I draw. I can get the values through user with help of "Form", but how to assign them to the drawn nets. Can anyone help me on this.

;; Create a shielded path
procedure( shield()
errset(
(let (cv layer purpose list_draw_layer tech width1 tfId)
cv= geGetEditCellView()
layer = car(leGetEntryLayer()) ;displays layer on LSW is taken
purpose = cadr(leGetEntryLayer()); displays drawing or pin on the selected lsw
list_draw_layer =list(layer purpose)
tech = techGetTechFile(geGetWindowCellView()); rule deck file id is stored in tech
width1 = techGetSpacingRule(tech "minWidth" layer) ; the minimum width is stored in width1
rodCreatePath(
?name "shield"
?layer list( layer purpose )
?pts list(2:-15 2:-5 15:-5 15:-15)
?width .16
?justification "center"
?cvId cv
?offsetSubPath
list(
list(
?layer list( layer purpose )
?justification "left"
?sep .12
?width .08
) ;end of offset sublist1
list(
?layer list( layer purpose )
?justification "right"
?sep .12
?width .08
) ;end of offset sublist2
) ;end of offset list of lists
) ;end of rodCreatePath
) ; end of let
t
) ; end of errset
) ; end of procedure

The above mentioned programmes draw the net selected on the LSW Choice. Can anyone tell me, what i need to add in this programme so that i can assign the netname what user gives.

Regards,

Manu