CSP page for viewing the FOP Queue items via SQL User vhLib.Macro,vhLib.cspError cache %CSP.Page 0 1 code lbErrTypes cache 1 code %Status 1 code %Boolean " Write !,$c(9)_"

"_($$$UCase($G(CspPageTitle, ..%ClassName(0)))_$G(OnServer))_"

",! Write ! If '((blnSQED)) Goto %csp00001 ;{ Write !,$c(9)_"
",! Write $c(9)_"
"_(sqlLOGAllFields)_"
",! Write $c(9) Write "
" Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"
",! Write $c(9,9,9,9,9)_"

SQL Query:

",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"		",! Write $c(9,9,9,9,9)_"

 

",! Write $c(9,9,9,9,9)_"

",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9)_"
",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"
",! Write $c(9,9)_" ",! Write $c(9,9) Write "" Write " ",! Write $c(9) Write ..InsertHiddenFields(""),! Write "
" Write ! Goto %csp00002 ;} %csp00001 ;{ Write !,$c(9)_"
",! Write $c(9) Write "" Write "Show Query Editor" Write "" Write ! %csp00002 ;} Write !,$c(9)_"
",! Write $c(9)_"
",! Write "
",! If '(($L(sqlActive))) Goto %csp00003 ;{ Write !,$c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryA = ##class(%ResultSet).%New() Set queryA.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlActive),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,175)) Quit } // translate tab/cr/nl to spaces Set %sc = queryA.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryA.Execute(($G(%request.Data("P1",1),"A"))) If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9) Set qryAColCount=queryA.GetColumnCount() Write !,$c(9) Write "
" Write !,$c(9)_"",! Write $c(9,9)_""_$c(9,9),! Write $c(9,9,9)_""_$c(9,9,9),! Write $c(9,9,9) Set col=0 %csp00005 If '((col"_$c(9,9,9),! Write $c(9,9,9) Goto %csp00005 %csp00004 ;} Write !,$c(9,9)_""_$c(9,9),! Write $c(9,9) Kill arColSpecial Set blnAddLink=0 Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9) Set col=0 %csp00007 If '((col"_(ColumnName)_"",! Write $c(9,9,9) Goto %csp00007 %csp00006 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00009 If '(queryA.Next()) Goto %csp00008 ;{ Set row=row+1 Write " " Write !,$c(9,9)_"",! Write $c(9,9,9) ;Set blnAddLink=(queryA.GetDataByName("ID")?1(1"MAINPAGE",1"WIZARD_CALC")) Write !,$c(9,9,9)_"",! Write $c(9,9,9) Set col=0 %csp00011 If '((col" Write "
" Write ($S($L(tmpVal):tmpVal,1:" ")) Write "
" Write "",! Write $c(9,9) Goto %csp00013 ;} %csp00012 If '((UseCollapsedSection)) Goto %csp00014 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9) Goto %csp00013 ;} %csp00014 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9) %csp00013 ;} Write !,$c(9,9,9) Goto %csp00011 %csp00010 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00009 %csp00008 ;} Write !,$c(9)_"
 
"_($S(blnAddLink:">", 1:" "))_"",! Write $c(9,9,9,9) Write "
" Write !,$c(9,9,9,9,9)_"

",! Write $c(9,9,9,9,9,9) Write "" Write "Summary:" Write "" Write !,$c(9,9,9,9,9,9) Write "" Write ($S($L(tmpDataSummary):tmpDataSummary, 1:" ")) Write "" Write !,$c(9,9,9,9,9)_"

",! Write $c(9,9,9,9,9) Write "
" Write "
"_($S($L(tmpVal):tmpVal,1:" "))_"
" Write "
" Write !,$c(9,9,9,9) Write "
" Write !,$c(9,9,9)_"		",! Write $c(9,9,9,9) Write "
" Write !,$c(9,9,9,9,9)_"
",!
                 Write ($E(tmpVal,1,32000)),!
                 Write $c(9,9,9,9,9)_"
",! Write $c(9,9,9,9) Write "
" Write !,$c(9,9,9)_"
",! Write $c(9) Write ..InsertHiddenFields("vhLogging.csp"),! Write "
" Write !,$c(9)_"
",! %csp00003 ;} Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,! Set BodyBgColor=##class(TECH.Config.ConfigMgr).Instance().GetString("WebpaginaAchtergrondKleur") Set OnServer = "  ["_$$$Server_" - "_$$$NSpace_"]" Write !,!,"" Write $c(9),! Write !,$c(9)_""_($G(CspPageTitle, ..%ClassName(0))_$G(OnServer))_"",! Write $c(9),! Write $c(9) Write "" Write !,"" Write " ",! Write "" Write !,!,!,$c(9) Write "" Write !,!,"" ]]> 1 code %Boolean " Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code %Boolean 1 code %Boolean 1 code cache %Boolean '||"_%v_"||'') "_%v #define CvtNOBRhtml(%v) "('<NOBR>'||"_%v_"||'</NOBR>') "_%v /*** INPUT PARAMETERS ***/ /*** ================ ***/ ; Request Parameters Kill:($G(%request.Data("QUERY",1))="") %request.Data("QUERY") Set name="" For Set name=$O(%request.Data(name)) Quit:(name="") Merge tmpRq(name)=%request.Data(name,1) Set blnSQED=$G(%request.Data("SQED",1),0) Set sqlAll="" /*** SQL STATEMENTS ***/ /*** ============== ***/ ; SQL-statement for FOP Queue Set sqlLOGAllFields="SELECT Top 100 Datum, Tijd, Groep, Niveau, Actie, JobID, DetailTrunc As Detail, ID , LessDetail, MainIndex , Namespace , RemoteIP , Server , ProgLabel , SubID " Set sqlLOG ="SELECT Top 100 Datum, Tijd, Groep, Niveau, Actie, JobID, DetailTrunc As Detail" Set sqlLOG=sqlLOG_$C(13,10)_" FROM vhLib.Logging WHERE Niveau = 'E' OR Niveau = 'W' " Set sqlLOG=sqlLOG_$C(13,10)_" ORDER BY Datum DESC, Tijd DESC, SubID DESC" ; SQLs to be displayed Set sqlDFL=$S(1:sqlLOG) Set sqlActive=$G(%request.Data("QUERY",1),sqlDFL) ; URL for ToggleQueryEditor Merge tmpAr=tmpRq Kill tmpAr("SQED") Set tmpAr("SQED")=('blnSQED) Set arUrl("ToggleQED")="?"_##class(vhLib.cspBasis).CQueryString(.tmpAr) ; Check if SQL-statement does not alter the tables data !!! Set lbAvoidSQL=$LB("CREATE TABLE","ALTER TABLE","DROP TABLE","CREATE QUERY","DROP QUERY","INSERT","UPDATE","DELETE") Set CspPageTitle="VH LOGGING" Quit 1 ]]> c:\cachesys\csp\hadev\vhLibLogging.csp /csp/hadev/vhLibLogging.csp 62157,39419