Creating a Vertical report

Question

Hi
I have an SQL query that returns data like this
Col1 Col2
text1 1234
text2 4321
I have created a report region based on the SQL query, and using the builtin report template "default vertical report, look1",. This shows the data like this:
Col1 Text1
Col2 1234
Col1 text2
Col2 4321
But what I want is this:
Col1 Text1 Text2
Col2 1234 4321
In other words, I want all the rows from the query to be displayed vertically, across the page. Is this in any way possible?
I have looked into creating a custom report template, but having been able to figure it out. The Apex users guide, is quit silent on how to do this.
Regards, and thanks in advance for any help
Søren

Answer 1

Smors,
Here is a package that will let you create pivot results whatever the table is. You might have to change the size of the variables to suit your needs ...
CREATE OR REPLACE PACKAGE PIVOT AS
TYPE REFCURSOR IS REF CURSOR;
TYPE ARRAY IS TABLE OF VARCHAR2(30);
PROCEDURE PIVOT (P_MAX_COLS IN NUMBER DEFAULT NULL,
P_MAX_COLS_QUERY IN VARCHAR2 DEFAULT NULL,
     P_QUERY IN VARCHAR2,
     P_ANCHOR IN ARRAY,
     P_PIVOT IN ARRAY,
     P_CURSOR IN OUT REFCURSOR );
END;
SHOW ERRORS
CREATE OR REPLACE PACKAGE BODY PIVOT AS
PROCEDURE PIVOT (P_MAX_COLS IN NUMBER DEFAULT NULL,
P_MAX_COLS_QUERY IN VARCHAR2 DEFAULT NULL,
          P_QUERY IN VARCHAR2,
          P_ANCHOR IN ARRAY,
          P_PIVOT IN ARRAY,
          P_CURSOR IN OUT REFCURSOR ) AS
L_MAX_COLS NUMBER;
L_QUERY LONG;
L_CNAMES ARRAY;
BEGIN
IF (P_MAX_COLS IS NOT NULL) THEN
     L_MAX_COLS := P_MAX_COLS;
ELSIF (P_MAX_COLS_QUERY IS NOT NULL) THEN
     EXECUTE IMMEDIATE P_MAX_COLS_QUERY INTO L_MAX_COLS;
ELSE
RAISE_APPLICATION_ERROR (-20001, 'Cannot figure out max cols');
END IF;
-- NOW CONSTRUCT THE QUERY THAN CAN ANSWER THE QUESTION FOR US...
-- START WITH THE C1,C2 ... CX COLUMNS
L_QUERY := 'SELECT ';
FOR I IN 1..P_ANCHOR.COUNT LOOP
L_QUERY := L_QUERY || P_ANCHOR(i) ||',';
END LOOP;
-- NOW ADD IN THE C(x+1)... CN COLUMNS TO BE PIVOTED
FOR i IN 1..L_MAX_COLS LOOP
FOR j IN 1..P_PIVOT.COUNT LOOP
L_QUERY := L_QUERY ||
     'MAX(DECODE(RN,'||i||','||
P_PIVOT(J)||',NULL)) ' ||
P_PIVOT(J)||'_'||i||',';
END LOOP;
END LOOP;
-- NOW JUST ADD IN THE ORIGINAL QUERY
L_QUERY := RTRIM(L_QUERY,',')||' FROM ('||P_QUERY||') GROUP BY ';
-- AND THEN GROUP BY COLUMNS...
FOR I IN 1..P_ANCHOR.COUNT LOOP
L_QUERY := L_QUERY || P_ANCHOR(i) ||',';
END LOOP;
L_QUERY := RTRIM(L_QUERY,',');
INSERT INTO X_TAB VALUES (L_QUERY);
COMMIT;
-- AND RETURN IT
EXECUTE IMMEDIATE 'ALTER SESSION SET CURSOR_SHARING = FORCE';
OPEN P_CURSOR FOR L_QUERY;
EXECUTE IMMEDIATE 'ALTER SESSION SET CURSOR_SHARING = EXACT';
END;
END;
SHOW ERROR
BEGIN
PIVOT.PIVOT(
P_MAX_COLS_QUERY => 'SELECT MAX(COUNT(*)) FROM EMP GROUP BY DEPTNO,JOB',
P_QUERY => 'SELECT DEPTNO,JOB,ENAME,SAL,ROW_NUMBER() OVER
     (PARTITION BY DEPTNO,JOB ORDER BY SAL,ENAME ) RN
FROM EMP A',
P_ANCHOR => PIVOT.ARRAY ('DEPTNO','JOB'),
P_PIVOT => PIVOT.ARRAY ('ENAME', 'SAL'),
P_CURSOR => :X );
END;
Keep Smiling,
Bob R