Francis
Give me code, or give me retirement. In FOCUS since 1991
Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
-SET &ECHO='ALL';
-SET XRETRIEVAL = ON
SQL EDA SET SERVER EMPD
-REMOTE BEGIN
ENGINE SQLMSS SET DEFAULT_CONNECTION EMP_DEV
SQL SQLMSS PREPARE SQLOUT FOR
SELECT name FROM Emp.dbs.Empl;
END
TABLE FILE SQLOUT
PRINT *
ON TABLE PCHOLD AS FAQLUDIA
END
-REMOTE END
TABLE FILE FAQLUDIA
PRINT *
ON TABLE HOLD AS SHORT FORMAT HTMTABLE
END
-HTMLFORM BEGIN
<HTML><HEAD><STYLE>TD {FONT-FAMILY: ARIAL; COLOR: BLUE; }
</STYLE></HEAD><BODY><DIV ALIGN="CENTER">
!IBI.FIL.SHORT;</DIV></BODY></HTML>
-HTMLFORM END quote:Managed Reporting will not process the lines when evaluating the Managed Reporting procedure prior to sending it to the WebFOCUS Reporting Server. The lines of code will be passed without the -MRNOEDIT tags to the WebFOCUS Reporting Server.
-mrnoedit begin focexec_code -mrnoedit end
-mrnoedit begin
SQL EDA SET SERVER EMPD
-REMOTE BEGIN
ENGINE SQLMSS SET DEFAULT_CONNECTION EMP_DEV
SQL SQLMSS PREPARE SQLOUT FOR
SELECT name FROM Emp.dbs.Empl;
END
TABLE FILE SQLOUT
PRINT *
ON TABLE PCHOLD AS FAQLUDIA
END
-REMOTE END
TABLE FILE FAQLUDIA
PRINT *
ON TABLE HOLD AS SHORT FORMAT HTMTABLE
END
-HTMLFORM BEGIN
<HTML><HEAD><STYLE>TD {FONT-FAMILY: ARIAL; COLOR: BLUE; }
</STYLE></HEAD><BODY><DIV ALIGN="CENTER">
!IBI.FIL.SHORT;</DIV></BODY></HTML>
-HTMLFORM END
-mrnoedit end
quote:
SQL EDA SET SERVER EMPD
-REMOTE BEGIN
ENGINE SQLMSS SET DEFAULT_CONNECTION EMP_DEV
SQL SQLMSS PREPARE SQLOUT FOR
SELECT name FROM Emp.dbs.Empl;
END
TABLE FILE SQLOUT
PRINT *
ON TABLE PCHOLD AS FAQLUDIA
END
-REMOTE END
quote:
ENGINE SQLMSS SET DEFAULT_CONNECTION EMP_DEV