hossam mohamed
19th July 2007, 10:59
|******************************************************************************
|* tssoc9999 0 VRC B61U a stnd
|*
|* demo
|* 07-06-07 [17:44]
|******************************************************************************
|* Script Type: 123
|******************************************************************************
|****************************** DECLARATION SECTION ***************************
declaration:
table ttitrp002,ttssoc210,ttcmcs060
long sql
|****************************** PROGRAM SECTION ***************************
|****************************** ZOOM FROM SECTION ***************************
|****************************** FORM SECTION ***************************
|****************************** CHOICE SECTION ***************************
|****************************** FIELD SECTION ***************************
|****************************** MAIN TABLE SECTION ***************************
|****************************** FUNCTION SECTION ***************************
before.program:
test()
functions:
function long test()
{
sql =sql.parse ("delete from tssoc210,titrp002 where tssoc210.orno = :titrp002.serr and tssoc210.acln >10")
return (sql)
}
|* tssoc9999 0 VRC B61U a stnd
|*
|* demo
|* 07-06-07 [17:44]
|******************************************************************************
|* Script Type: 123
|******************************************************************************
|****************************** DECLARATION SECTION ***************************
declaration:
table ttitrp002,ttssoc210,ttcmcs060
long sql
|****************************** PROGRAM SECTION ***************************
|****************************** ZOOM FROM SECTION ***************************
|****************************** FORM SECTION ***************************
|****************************** CHOICE SECTION ***************************
|****************************** FIELD SECTION ***************************
|****************************** MAIN TABLE SECTION ***************************
|****************************** FUNCTION SECTION ***************************
before.program:
test()
functions:
function long test()
{
sql =sql.parse ("delete from tssoc210,titrp002 where tssoc210.orno = :titrp002.serr and tssoc210.acln >10")
return (sql)
}