MCPcopy Create free account
hub / github.com/FirebirdSQL/firebird / gen_s_end

Function gen_s_end

src/gpre/languages/cob.cpp:3181–3201  ·  view source on GitHub ↗

Source from the content-addressed store, hash-verified

3179//
3180
3181static void gen_s_end( const act* action)
3182{
3183 const gpre_req* request = action->act_request;
3184
3185 if (action->act_type == ACT_close)
3186 gen_cursor_close(action, request);
3187
3188 printa(names[COLUMN], true, "CALL \"%s\" USING %s, %s%s, %s%s%s",
3189 ISC_UNWIND_REQUEST,
3190 status_vector(action),
3191 BY_REF, request->req_handle,
3192 BY_VALUE, request->req_request_level, END_VALUE);
3193
3194 if (action->act_type == ACT_close)
3195 {
3196 printa(names[COLUMN], false, "END-IF");
3197 printa(names[COLUMN], false, "END-IF");
3198 }
3199
3200 set_sqlcode(action);
3201}
3202
3203
3204//____________________________________________________________

Callers 1

COB_actionFunction · 0.70

Calls 4

gen_cursor_closeFunction · 0.70
printaFunction · 0.70
status_vectorFunction · 0.70
set_sqlcodeFunction · 0.70

Tested by

no test coverage detected