Unable to create multiple pins in symbolview using skill

I thought that this code should work for creating multiple pins in a cell view.

cv=dbOpenCellViewByType("TEST_5" "test_3" "symbol" "schematicSymbol" "a")

procedure(CCScreatePin( portList directionList  cv )
let( (mysympin)
   mysympin = dbOpenCellViewByType("basic" "sympin" "symbol")
   i=0
   foreach(portName portList
          let( ( myterm mytermdir mypinfig)

          myterm = portName
         mytermdir = (nth i directionList)
         println(mytermdir)

        case(mytermdir
         ("input"
                           mypinfig=schCreateSymbolPin(cv mysympin myterm "input" 0:0 "R0" )      )

          ("output"
                              mypinfig=schCreateSymbolPin(cv mysympin myterm "output" 0:100 "R0" )      )

           (t
                               error("\nUnexpected terminal direction")      )
           );case

          ) ;let

            i++

          ) ;foreach

dbSave(cv)

);let

);procedure

I am calling the procedure CCScreatePin( '("IN" "OUT")  '("input" "output")   cv)

Somehow when i use "w" for cv = dbOpenCellViewByType it generates just a single pin. But "a" doesnt create anything

Is there anyway i can get multiple pins in the symbol

Thanks

Lavanya