Html Tags
Adam Woodhouse
adamw@agf.com
Thu, 5 Apr 2001 15:37:53 -0400
This is a cut-and-paste. Hopefully it will look OK. I e-mailed it to myself to
test and it looked fine when I got it ... but we are on Lotus Notes.
I have a fair amount of HTML experience and alot of PowerHouse, so my
converting it was easy (around 1/2 - 3/4 of a day).
100 CANCEL CLEAR
200 SET VERIFY ERRORS
300 ;*******************************************************************
400 ;* PROGRAM : CMSDBWEB
500 ;* TYPE : POWERHOUSE QUIZ
600 ;* PROGRAMMER : KEVIN TROTMAN
700 ;*******************************************************************
800 ;* CREATED ON : 2000/06/09
900 ;* CALLED BY : CMSDBWEB (CLP)
1000 ;* DESCRIPTION : CMS: DataBase / Environment List
1100 ;*
1200 ;*******************************************************************
1300 ;* CHANGED BY * YYYY/MM/DD * DESCRIPTION OF CHANGE
1400 ;*******************************************************************
1500 ;* Adam W * 2001/02/06 * Converted to HTML output
1600 ;* * *
1700 ;*******************************************************************
1800
1900 ACCESS CMS-ENV-DB-MATRIX &
2000 LINK TO CMS-WORK-PATH &
2100 LINK TO CMS-DATABASE &
2200 LINK TO CMS-CLIENTS opt &
2300 LINK TO CMS-ENVIRONMENTS
2400
2500 SELECT IF STATUS OF CMS-ENV-DB-MATRIX EQ "A" OR &
2600 STATUS OF CMS-ENV-DB-MATRIX EQ "X"
2700
2800 SORT ON WORK-PATH-CODE , &
2900 ENV-CODE , &
3000 LOB-CODE , &
3100 CLT-CODE
3200
3300 DEFINE D-FSVR-DESC CHAR * 04 = &
3400 CASE OF FSVR-USER OF CMS-ENV-DB-MATRIX &
3500 WHEN "A" THEN "On"
3600 WHEN "I" THEN "Off"
3700
3800 DEFINE D-STAT-DESC CHAR * 10 = &
3900 CASE OF STATUS OF CMS-ENV-DB-MATRIX &
4000 WHEN "X" THEN "(Sub-Set)"
4100
4200 PAGE HEADING &
4300 TAB 1 '<HTML>' &
4400 SKIP 1 &
4500 TAB 1 '<HEAD>' &
4600 SKIP 1 &
4700 TAB 1 '<TITLE>DB Slot Matrix Listing</TITLE>' &
4800 SKIP 1 &
4900 TAB 1 '</HEAD>' &
5000 SKIP 1 &
5100 TAB 1 '<BODY bgcolor="#FFFFFF"' &
5200 TAB 24 'background="file:///h:/asi%20projects/images/background.gif">'&
5300 SKIP 1 &
5400 TAB 1 '<center>' &
5500 SKIP 1 &
5600 TAB 1 '<table border="0" width="90%">' &
5700 SKIP 1 &
5800 TAB 1 ' <tr>' &
5900 SKIP 1 &
6000 TAB 1 ' <td width="25%"><img border="0"' &
6100 TAB 35 'src="file:///h:/asi%20projects/images/asi_logo.gif"></td>' &
6200 SKIP 1 &
6300 TAB 1 ' <td width="50%" align="center">' &
6400 SKIP 1 &
6500 TAB 1 ' <font face="Arial" size="6"><b>ALDON DBMatrix</b></font><br>' &
6600 SKIP 1 &
6700 TAB 1 ' <font face="Arial" size="2">' &
6800 TAB 32 '<b>- Last Updated on' SYSDATE '@' SYSTIME '-</b>' &
6900 TAB 80 '</font>' &
7000 SKIP 1 &
7100 TAB 1 ' </td>' &
7200 SKIP 1 &
7300 TAB 1 ' <td width="25%" align="center">' &
7400 SKIP 1 &
7500 TAB 1 ' <a href="file://asi_oak_nt/groups/' &
7600 TAB 38 'asi%20information%20technology/Intranet/index.htm">' &
7700 SKIP 1 &
7800 TAB 1 ' <img border="0" src="file:///h:/asi%20projects/im' &
7900 TAB 53 'ages/home_icon.gif"><br>' &
8000 SKIP 1 &
8100 TAB 1 ' <font size="1">Back to Home Page</font></a>' &
8200 SKIP 1 &
8300 TAB 1 ' </td>' &
8400 SKIP 1 &
8500 TAB 1 ' </tr>' &
8600 SKIP 1 &
8700 TAB 1 '</table>' &
8800 SKIP 1 &
8900 TAB 1 '<p></p>' &
9000 SKIP 1 &
9100 TAB 1 '<table border="0" width="90%" font face' &
9200 TAB 40 '="Arial" size="1" style="font-family: Arial; font-size: 9pt">'&
9300 SKIP 1 &
9400 TAB 1 ' <tr>' &
9500 SKIP 1 &
9600 TAB 1 ' <td width="11%" align="center"><b>Work</b></td>' &
9700 SKIP 1 &
9800 TAB 1 ' <td width="11%" align="center"><b>Environment</b></td>' &
9900 SKIP 1 &
10000 TAB 1 ' <td width="11%" align="center"><b>Line of</b></td>' &
10100 SKIP 1 &
10200 TAB 1 ' <td width="11%" align="center"><b>Client</b></td>' &
10300 SKIP 1 &
10400 TAB 1 ' <td width="11%" align="center"><b>FundSERV</b></td>' &
10500 SKIP 1 &
10600 TAB 1 ' <td width="11%" align="center"><b>Refreshed</b></td>' &
10700 SKIP 1 &
10800 TAB 1 ' <td width="11%" align="center"><b>Refreshed</b></td>' &
10900 SKIP 1 &
11000 TAB 1 ' <td width="11%" align="center"><b>Time</b></td>' &
11100 SKIP 1 &
11200 TAB 1 ' <td width="11%" align="center"><b>Misc</b></td>' &
11300 SKIP 1 &
11400 TAB 1 ' </tr>' &
11500 SKIP 1 &
11600 TAB 1 ' <tr>' &
11700 SKIP 1 &
11800 TAB 1 ' <td width="11%" align="center"><b>Path</b></td>' &
11900 SKIP 1 &
12000 TAB 1 ' <td width="11%"></td>' &
12100 SKIP 1 &
12200 TAB 1 ' <td width="11%" align="center"><b>Business</b></td>' &
12300 SKIP 1 &
12400 TAB 1 ' <td width="11%"></td>' &
12500 SKIP 1 &
12600 TAB 1 ' <td width="11%"></td>' &
12700 SKIP 1 &
12800 TAB 1 ' <td width="11%" align="center"><b>By</b></td>' &
12900 SKIP 1 &
13000 TAB 1 ' <td width="11%" align="center"><b>Date</b></td>' &
13100 SKIP 1 &
13200 TAB 1 ' <td width="11%"></td>' &
13300 SKIP 1 &
13400 TAB 1 ' <td width="11%" align="center"><b>Info</b></td>' &
13500 SKIP 1 &
13600 TAB 1 ' </tr>' &
13700 SKIP 1 &
13800 TAB 1 '</table>' &
13900 SKIP 1 &
14000 TAB 1 '<hr width="85%">' &
14100 SKIP 1 &
14200 TAB 1 '<table border="0" width="90%" font face' &
14300 TAB 40 '="Arial" size="1" style="font-family: Arial; font-size: 9pt">'&
14400 SKIP 1
14500
14600 REPORT &
14700 TAB 1 ' <tr>' &
14800 SKIP 1 &
14900 TAB 1 ' <td width="11%" align="center">' &
15000 WORK-PATH-CODE OF CMS-WORK-PATH &
15100 PRINT AT WORK-PATH-CODE HEADING "" &
15200 SKIP 1 &
15300 TAB 1 ' </td>' &
15400 SKIP 1 &
15500 TAB 1 ' <td width="11%" align="center">' &
15600 ENV-CODE OF CMS-ENVIRONMENTS &
15700 PRINT AT ENV-CODE HEADING "" &
15800 SKIP 1 &
15900 TAB 1 ' </td>' &
16000 SKIP 1 &
16100 TAB 1 ' <td width="11%" align="center">' &
16200 LOB-CODE OF CMS-DATABASE &
16300 PRINT AT LOB-CODE HEADING "" &
16400 SKIP 1 &
16500 TAB 1 ' </td>' &
16600 SKIP 1 &
16700 TAB 1 ' <td width="11%" align="center">' &
16800 CLT-CODE OF CMS-CLIENTS &
16900 PRINT AT CLT-CODE HEADING "" &
17000 SKIP 1 &
17100 TAB 1 ' </td>' &
17200 SKIP 1 &
17300 TAB 1 ' <td width="11%" align="center">' &
17400 D-FSVR-DESC HEADING "" &
17500 SKIP 1 &
17600 TAB 1 ' </td>' &
17700 SKIP 1 &
17800 TAB 1 ' <td width="11%" align="center">' &
17900 USERID HEADING "" &
18000 SKIP 1 &
18100 TAB 1 ' </td>' &
18200 SKIP 1 &
18300 TAB 1 ' <td width="11%" align="center">' &
18400 AUDIT-DATE HEADING "" &
18500 SKIP 1 &
18600 TAB 1 ' </td>' &
18700 SKIP 1 &
18800 TAB 1 ' <td width="11%" align="center">' &
18900 AUDIT-TIME HEADING "" &
19000 SKIP 1 &
19100 TAB 1 ' </td>' &
19200 SKIP 1 &
19300 TAB 1 ' <td width="11%" align="center">' &
19400 D-STAT-DESC HEADING "" &
19500 SKIP 1 &
19600 TAB 1 ' </td>' &
19700 SKIP 1 &
19800 TAB 1 ' </tr>' &
19900 SKIP 1
20000
20100 FINAL FOOTING SKIP 1 &
20200 TAB 1 '</table>' &
20300 SKIP 1 &
20400 TAB 1 '<hr width="85%">' &
20500 SKIP 1 &
20600 TAB 1 '<font face="Arial" size="3">' &
20700 SKIP 1 &
20800 TAB 1 '<b>TOTAL ACTIVE DBs: ' COUNT HEADING "" '</b>' &
20900 SKIP 1 &
21000 TAB 1 '</font>' &
21100 SKIP 1 &
21200 TAB 1 '</center>' &
21300 SKIP 1 &
21400 TAB 1 '</BODY>' &
21500 SKIP 1 &
21600 TAB 1 '</HTML>'
21700
21800 ;*******************************************************************
21900 ;* Environment Section
22000 ;*******************************************************************
22100
22200 SET REPORT DEVICE PRINTER NAME CMSDBWEB
22300 SET PAGE WIDTH 120 LENGTH 999
22400 SET REPORT NOLIMIT
22500
22600 BUILD CMSDBWEB
Adam Woodhouse
IT Project Leader
AdminSource
Ontario