Help on skill code for to create wire for instance symbol

Hi Friends,

                  I have many standard cells & having Schematics .Each schematic only  have one instance symbol like AND or NAND or INV gates.I want to draw wire for every input & outpus of instance symbol & then I want to put pins for every wire.I tried to do this job by using skill code but I did not got it.. plz review my skill progrmme & plz let me know if any improvements in this... or  

 If you have any idea plz let me know.........

procedure(MyInstancePins( libName viewName "tt" )
        let( ( d_libId d_cvId l_cellList l_instanceList )

d_libId = ddGetObj( libName )
l_cellList = setof(
                d_cell d_libId~>cells
                member( viewName d_cell~>views~>name )
                )

foreach( d_cell l_cellList

     d_cvId = dbOpenCellViewByType( libName d_cell~>name viewName nil "a" )

     l_instanceList = setof( d_shape d_cvId~>shapes  d_shape~>objType == "InstPin" )

     foreach( d_InstPin l_instanceList

          dbCreateNet(cvId "wire" d_InstPin)

);foreach
      schCheck(cvId)
   dbSave( d_cvId )
   dbClose( d_cvId )


);foreach
);let

);;end of MyInstancePins

Thanks

Narendra