I am struck with AFS for tdpcg0231m000

Hi,
I am writing an AFS to upload price book lines from text file. As for a me my script is fine and throws no error, but the data is not getting processed and the price is not getting uploaded. Also, the report output is not getting generated. I have pasted my script below.

function process.price.book.lines()
{
long ret
effd = utc.num()
stpapi.put.field("tdpcg0131m000","tdpcg031.prbk",pric.book)
stpapi.put.field("tdpcg0131m000","tdpcg031.item",in.item)
stpapi.find("tdpcg0131m000",errm)
stpapi.mark("tdpcg0131m000",errm)
stpapi.handle.subproc("tdpcg0131m000","tdpcg0231m000",errm)
stpapi.put.field("tdpcg0231m000","enum",str$(etol(tdpcg.ampe.amount)))
stpapi.put.field("tdpcg0231m000","prc.valby",str$(valby))
stpapi.put.field("tdpcg0231m000","working.curr",str$(ccur))
stpapi.put.field("tdpcg0231m000","new.effdte",str$(effd))
stpapi.put.field("tdpcg0231m000","new.expdte",str$(0))
stpapi.put.field("tdpcg0231m000","simonl",str$(etol(tcyesno.no)))
stpapi.put.field("tdpcg0231m000","prtchg",str$(etol(tcyesno.yes)))
stpapi.set.report("tdpcg0231m000","rtdpcg023111000","D66",errm)


if isspace(errm) then

stpapi.form.command("tdpcg0231m000",5,"exec.cont.process",errm)
else
stpapi.recover("tdpcg0231m000",errm)
endif
stpapi.end.session("tdpcg0231m000")
stpapi.end.session("tdpcg0131m000")
}

Nothing is happening and no error is poping up.

If any one can throw some light on what I am missing here, it will be much helpful as I am struck for hours on this.

Thanks in advance

Regards
Babu N