[SOLVED] how to get single column data in a webfocus variable.

March 14, 2013, 05:36 AM

I have a procedure which return only single row.I want to store that data in a webfocus variable.

My webfocus code is given below

 
-SET &NO_OF_RECORDS=500;
SQL SQLORA SET SERVER &&CONNECTION_NAME
SQL SQLORA
EX PRC_LIST &NO_OF_RECORDS;
TABLE FILE SQLOUT
PRINT *
ON TABLE HOLD AS DATAFILE
END
TABLE FILE DATAFILE
PRINT
T
END

I want to store T value in a Webfocus variable say &PageCount

Oracle procedure code is given below

  
CREATE OR REPLACE PROCEDURE "PRC_LIST"(NOOFRECORDS IN NUMBER DEFAULT NULL,
                                       RC1         OUT SYS_REFCURSOR) AS
  RECCNT     NUMBER(6, 2);
  TOTALPAGES NUMBER(10, 0);

BEGIN
  TOTALPAGES := 0;
  BEGIN
    SELECT COUNT(1)
      INTO RECCNT
      FROM vw_test_piece;
  
    TOTALPAGES := CEIL(RECCNT / NOOFRECORDS);
  
    OPEN RC1 FOR
      SELECT ROUND(TOTALPAGES) AS T FROM DUAL;
  
  END;
END "PRC_LIST";

Please help.

Thanks in advance!

This message has been edited. Last edited by: Kerry,

March 14, 2013, 05:48 AM

Dave

How many columns is the 'PRINT *' ?

March 14, 2013, 10:51 AM

Francis Mariani

-READFILE DATAFILE

will give you a variable named &T containing the value.

There should only be one row in the input file DATAFILE.

This message has been edited. Last edited by: Francis Mariani,

March 14, 2013, 04:43 PM

Waz

Trilochan's signature says 7.6.1, I don't think READFILE is int that version.

Best to HOLD FORMAT ALPHA and then -READ.

March 15, 2013, 06:10 AM

Trilochan

Thanks Francis Mariani and Waz.

I have solve this problem using READ DATAFILE.

My code is given below.

 
-SET &NO_OF_RECORDS=500;
SQL SQLORA SET SERVER &&CONNECTION_NAME
SQL SQLORA
EX PRC_LIST &NO_OF_RECORDS;
TABLE FILE SQLOUT
PRINT *
ON TABLE HOLD AS DATAFILE
END
TABLE FILE DATAFILE
PRINT
T/A40
END
END
-RUN
-READ DATAFILE &T.A40.
-SET &A=&T;
-SET &A = TRUNCATE(&A);
-HTMLFORM BEGIN
<body >
<center>
<input type="text" value="&A">
</center>
</body>
-HTMLFORM END

Prod:	WebFOCUS 7.6.10/8.1.04	Upgrade:	WebFOCUS 8.2.07	OS:	Linux	Outputs:	HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!