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

Index: csp/vhlogging.cls.xml =================================================================== diff -u -r1019 -r1074 --- csp/vhlogging.cls.xml (.../vhlogging.cls.xml) (revision 1019) +++ csp/vhlogging.cls.xml (.../vhlogging.cls.xml) (revision 1074) @@ -1,4 +1,447 @@ - - + + + +CSP page for viewing the FOP Queue items via SQL +User +vhLib.Macro,vhLib.cspError +cache +%CSP.Page + + +1 +code +lbErrTypes +cache + +",$LB($$$EmailTo),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1) + Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("csp.vhLibError","OnPageMinimum") + } + Else { + Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("ErrPage") + Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("csp.vhLibError","OnPage") + } + + Quit + +]]> + + + +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)_"

"_(sqlAll)_"

",! + Write $c(9) + 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,126)) + 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 !,..InsertHiddenFields("vhLogging.csp"),! + 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) +%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:" ")_row)_"	",! + Write !,$c(9,9,9,9) + Write " " + Write !,$c(9,9,9,9,9)_" " + Write "" + Write "Summary:" + Write "" + Write " " + Write "" + Write ($S($L(tmpDataSummary):tmpDataSummary, 1:" ")) + Write "" + Write " ",! + Write $c(9,9,9,9,9) + If '(1) Goto %csp00015 ;{ + Write " " + Write " "_($S($L(tmpVal):tmpVal,1:" "))_" " + Write " " +%csp00015 ;} + Write !,$c(9,9,9,9) + Write " " + Write !,!,!,!,$c(9,9) + Goto %csp00013 ;} +%csp00014 ;{ + 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 "

" + Write !,$c(9)_"
",! +%csp00003 ;} + Write !,!,"" +]]> + + + +1 +code +%Boolean + + + + +1 +code +%Boolean +" + Write !,! + Set BodyBgColor=##class(TECH.Config.ConfigMgr).Instance().GetString("WebpaginaAchtergrondKleur") + Set OnServer = " ["_$$$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 sqlLOG="SELECT Top 100 Datum, Tijd, Groep, Niveau, Actie, JobID, LessDetail, DetailTrunc As Detail, ID , MainIndex , Namespace , RemoteIP , Server , ProgLabel , SubID " + Set sqlLOG="SELECT Top 100 Datum, Tijd, Groep, Niveau, Actie, JobID, LessDetail, 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, 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\admin1\vhLogging.csp + + + +/csp/admin1/vhLogging.csp + + + +62151,62751 + +