Function gen_request

src/gpre/languages/cob.cpp:3039–3173

//

static void gen_request( gpre_req* request)
{
	if (!(request->req_flags & (REQ_exp_hand | REQ_sql_blob_open | REQ_sql_blob_create)) &&
		request->req_type != REQ_slice && request->req_type != REQ_procedure)
	{
		printa(names[COLUMN_0], false, "01  %s PIC S9(9) USAGE COMP VALUE IS 0.", request->req_handle);
	}

	if (request->req_type == REQ_ready)
		printa(names[COLUMN_0], false, "01  %s%dL PIC S9(4) USAGE %s VALUE IS %d.",
			   names[isc_a_pos], request->req_ident, COMP_VALUE, request->req_length);

	// check the case where we need to extend the dpb dynamically at runtime,
	// in which case we need dpb length and a pointer to be defined even if
	//there is no static dpb defined

	if (request->req_flags & REQ_extend_dpb)
	{
		printa(names[COLUMN_0], false, "01  %s%dP PIC S9(9) USAGE COMP-5 VALUE IS 0.",
			   names[isc_a_pos], request->req_ident);
	}

	if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create))
		printa(names[COLUMN_0], false, "01  %s%dS PIC S9(9) USAGE COMP VALUE IS 0.",
			   names[isc_a_pos],
			   request->req_ident);

	// generate the request as BLR long words

	if (request->req_length)
	{
		if (request->req_flags & REQ_sql_cursor)
			printa(names[COLUMN_0], false, "01  %s%dS PIC S9(9) USAGE COMP VALUE IS 0.",
				   names[isc_a_pos], request->req_ident);
		printa(names[COLUMN_0], false, "01  %s%d.", names[isc_a_pos], request->req_ident);
		gen_raw(request->req_blr, request->req_type, request->req_length, request->req_ident);

		const char* string_type;
		if (!gpreGlob.sw_raw)
		{
			printa(names[COMMENT], false, " ");
			printa(names[COMMENT], false, "FORMATTED REQUEST BLR FOR %s%d = ",
				   names[isc_a_pos], request->req_ident);
			switch (request->req_type)
			{
			case REQ_create_database:
			case REQ_ready:
				string_type = "DPB";
				if (PRETTY_print_cdb(request->req_blr, gen_blr, 0, 0))
					CPR_error("internal error during parameter generation");
				break;


			case REQ_ddl:
				string_type = "DYN";
				if (PRETTY_print_dyn(request->req_blr, gen_blr, 0, 0))
					CPR_error("internal error during dynamic DDL generation");
				break;