Check and Save complete Library from function

Hi All,

I am trying to write a function to check and save whole library in non-gui mode.

I want to write this function in *.il file
then i am going to load this .il file in CIW and giving function with library name.

Then all cells should be check and saved.

It tryied code::
procedure(CheckANDSave(lib_name)
      foreach( cell libId~>cells
             if(member("schematic" cell~>views~>name) && cell~>isWritable==t then
                 cv=dbOpenCellViewByType(ddGetObj(lib_name) cell~>name "schematic" "schematic" "w")
                 if( cv != nil then
                    schHiCheckAndSave()
                 )
             )
      )
)


But it is not working..................

Please HELP me to run this code..........

Thanks in advance

-Amit Kumar