1083: --
1084: WSH_DEBUG_SV.log(l_module_name,'P_SELECT_STATEMENT',P_SELECT_STATEMENT);
1085: END IF;
1086: --
1087: l_cursorid := DBMS_SQL.OPEN_CURSOR;
1088: l_SelectStmt := p_select_statement;
1089: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1090: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_ship_from_location_id);
1091: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 2, l_ship_to_location_id);
1085: END IF;
1086: --
1087: l_cursorid := DBMS_SQL.OPEN_CURSOR;
1088: l_SelectStmt := p_select_statement;
1089: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1090: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_ship_from_location_id);
1091: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 2, l_ship_to_location_id);
1092: l_dummy := DBMS_SQL.EXECUTE(l_CursorID);
1093:
1086: --
1087: l_cursorid := DBMS_SQL.OPEN_CURSOR;
1088: l_SelectStmt := p_select_statement;
1089: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1090: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_ship_from_location_id);
1091: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 2, l_ship_to_location_id);
1092: l_dummy := DBMS_SQL.EXECUTE(l_CursorID);
1093:
1094: LOOP
1087: l_cursorid := DBMS_SQL.OPEN_CURSOR;
1088: l_SelectStmt := p_select_statement;
1089: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1090: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_ship_from_location_id);
1091: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 2, l_ship_to_location_id);
1092: l_dummy := DBMS_SQL.EXECUTE(l_CursorID);
1093:
1094: LOOP
1095: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0
1088: l_SelectStmt := p_select_statement;
1089: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1090: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_ship_from_location_id);
1091: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 2, l_ship_to_location_id);
1092: l_dummy := DBMS_SQL.EXECUTE(l_CursorID);
1093:
1094: LOOP
1095: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0
1096: THEN
1091: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 2, l_ship_to_location_id);
1092: l_dummy := DBMS_SQL.EXECUTE(l_CursorID);
1093:
1094: LOOP
1095: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0
1096: THEN
1097: EXIT;
1098: END IF;
1099: DBMS_SQL.COLUMN_VALUE(l_CursorID, 1, l_ship_from_location_id);
1095: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0
1096: THEN
1097: EXIT;
1098: END IF;
1099: DBMS_SQL.COLUMN_VALUE(l_CursorID, 1, l_ship_from_location_id);
1100: DBMS_SQL.COLUMN_VALUE(l_CursorID, 2, l_ship_to_location_id);
1101: l_index := l_index + 1;
1102: x_headers(l_index).ship_from_location_id := l_ship_from_location_id;
1103: x_headers(l_index).ship_to_location_id := l_ship_to_location_id;
1096: THEN
1097: EXIT;
1098: END IF;
1099: DBMS_SQL.COLUMN_VALUE(l_CursorID, 1, l_ship_from_location_id);
1100: DBMS_SQL.COLUMN_VALUE(l_CursorID, 2, l_ship_to_location_id);
1101: l_index := l_index + 1;
1102: x_headers(l_index).ship_from_location_id := l_ship_from_location_id;
1103: x_headers(l_index).ship_to_location_id := l_ship_to_location_id;
1104: IF l_debug_on