LET l_allow_insert = cl_detail_input_auth('insert')
LET l_allow_delete = cl_detail_input_auth('delete')
LET g_forupd_sql = "SELECT * FROM qdc_file",
" WHERE qdc01=? FOR UPDATE"
DECLARE i001_bcl CURSOR FROM g_forupd_sql # LOCK CURSOR
LET l_allow_delete = cl_detail_input_auth('delete')
LET g_forupd_sql = "SELECT * FROM qdc_file",
" WHERE qdc01=? FOR UPDATE"
DECLARE i001_bcl CURSOR FROM g_forupd_sql # LOCK CURSOR
