HTML for SET011B (SET011B001)

LANSA

HTML for SET011B (SET011B001)

<HTML>
<HEAD>

<RDML MERGE="&SCRIPT">

<SCRIPT LANGUAGE="JavaScript1.2">
if(!window.saveInnerWidth) {
window.onresize = resize;
window.saveInnerWidth = window.innerWidth;
window.saveInnerHeight = window.innerHeight;
}

function resize() {
if (saveInnerWidth < window.innerWidth ||
saveInnerWidth > window.innerWidth ||
saveInnerHeight > window.innerHeight ||
saveInnerHeight < window.innerHeight )
{
window.history.go(0);
}
}
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2">
var _id = 0, _pid = 0, _lid = 1, _pLayer;
var _mLists = new Array();
document.lists = _mLists;
var isNav4, isIE4;
if (parseInt(navigator.appVersion.charAt(0)) >= 4) {
isNav4 = (navigator.appName == "Netscape") ? true : false;
isIE4 = (navigator.appName.indexOf("Microsoft") != -1) ? true : false;
}
function List(visible, width, height, bgColor) {
this.setIndent = setIndent;
this.addItem = addItem;
this.addList = addList;
this.build = build;
this.rebuild = rebuild;
this.setFont = _listSetFont;
this._writeList = _writeList;
this._showList = _showList;
this._updateList = _updateList;
this._updateParent = _updateParent;
this.onexpand = null; this.postexpand = null;
this.lists = new Array(); // sublists
this.items = new Array(); // layers
this.types = new Array(); // type
this.strs = new Array(); // content
this.x = 0;
this.y = 0;
this.visible = visible;
this.id = _id;
this.i = 18;
this.space = true;
this.pid = 0;
this.fontIntro = false;
this.fontOutro = false;
this.width = width;
this.height = height || 22;
this.parLayer = false;
this.built = false;
this.shown = false;
this.needsUpdate = false;
this.needsRewrite = false;
this.parent = null;
this.l = 0;
if(bgColor) this.bgColor = bgColor;
else this.bgColor = null;
_mLists[_id++] = this;
}
function _listSetFont(i,j) {
this.fontIntro = i;
this.fontOutro = j;
}
function setIndent(indent) { this.i = indent; if(this.i < 0) { this.i = 0; this.space = false; } }
function setClip(layer, l, r, t, b) {
if(isNav4) {
layer.clip.left = l; layer.clip.right = r;
layer.clip.top = t; layer.clip.bottom = b;
} else {
layer.style.pixelWidth = r-l;
layer.style.pixelHeight = b-t;
layer.style.clip = "rect("+t+","+r+","+b+","+l+")";
}
}
function _writeList() {
self.status = "List: Writing list...";
var layer, str, clip;
for(var i = 0; i < this.types.length; i++) {
layer = this.items[i];
if(isNav4) layer.visibility = "hidden";
else layer.style.visibility = "hidden";
str = "";
if(isNav4) layer.document.open();
str += "<TABLE WIDTH="+this.width+" NOWRAP BORDER=0 CELLPADDING=0 CELLSPACING=0><TR>";
if(this.types[i] == "list") {
str += "<TD WIDTH=25 NOWRAP VALIGN=MIDDLE>";


str += "<A HREF=\"javascript:void(0);\" onMouseOver=\"expand("+this.lists[i].id+");\"><IMG BORDER=0 SRC=\"<RDML MERGE="*LW3SETOPENFOLDER">\" NAME=\"_img"+this.lists[i].id+"\"></A></TD>";
_pid++;
} else if(this.space)
str += "<TD WIDTH=15 NOWRAP> </TD>";
if(this.l>0 && this.i>0) str += "<TD WIDTH="+this.l*this.i+" NOWRAP> </TD>";
str += "<TD HEIGHT="+(this.height-3)+" WIDTH="+(this.width-15-this.l*this.i)+" VALIGN=MIDDLE ALIGN=LEFT>";
if(this.fontIntro) str += this.fontIntro;
str += this.strs[i];
if(this.fontOutro) str += this.fontOutro;
str += "</TD></TABLE>";
if(isNav4) {
layer.document.writeln(str);
layer.document.close();
} else layer.innerHTML = str;
if(this.types[i] == "list" && this.lists[i].visible)
this.lists[i]._writeList();
}
this.built = true;
this.needsRewrite = false;
self.status = '';
}
function _showList() {
var layer;
for(var i = 0; i < this.types.length; i++) {
layer = this.items[i];
setClip(layer, 0, this.width, 0, this.height-1);
var bg = layer.oBgColor || this.bgColor;
if(isIE4) {
if((bg == null) || (bg == "null")) bg = "";
layer.style.backgroundColor = bg;
} else layer.document.bgColor = bg;
if(this.types[i] == "list" && this.lists[i].visible)
this.lists[i]._showList();
}
this.shown = true;
this.needsUpdate = false;
}
function _updateList(pVis, x, y) {
var currTop = y, layer;
for(var i = 0; i < this.types.length; i++) {
layer = this.items[i];
if(this.visible && pVis) {
if(isNav4) {
layer.visibility = "visible";
layer.top = currTop;
layer.left = x;
} else {
layer.style.visibility = "visible";
layer.style.pixelTop = currTop;
layer.style.pixelLeft = x;
}
currTop += this.height;
} else {
if(isNav4) layer.visibility = "hidden";
else layer.style.visibility = "hidden";
}
if(this.types[i] == "list") {
if(this.lists[i].visible) {
if(!this.lists[i].built || this.lists[i].needsRewrite) this.lists[i]._writeList();
if(!this.lists[i].shown || this.lists[i].needsUpdate) this.lists[i]._showList();
if(isNav4) layer.document.images[0].src = "<RDML MERGE="*LW3SETOPENFOLDER">";
else eval('document.images._img'+this.lists[i].id+'.src = "<RDML MERGE="*LW3SETOPENFOLDER">"');
} else {
if(isNav4) layer.document.images[0].src = "<RDML MERGE="*LW3SETCLOSEFOLDER">";
else eval('document.images._img'+this.lists[i].id+'.src = "<RDML MERGE="*LW3SETCLOSEFOLDER">"');
}
if(this.lists[i].built)
currTop = this.lists[i]._updateList(this.visible && pVis, x, currTop);
}
}
return currTop;
}
function _updateParent(pid, l) {
var layer;
if(!l) l = 0;
this.pid = pid;
this.l = l;
for(var i = 0; i < this.types.length; i++)
if(this.types[i] == "list")
this.lists[i]._updateParent(pid, l+1);
}
function expand(i) {
_mLists[i].visible = !_mLists[i].visible;
if(_mLists[i].onexpand != null) _mLists[i].onexpand(_mLists[i].id);
_mLists[_mLists[i].pid].rebuild();
if(_mLists[i].postexpand != null) _mLists[i].postexpand(_mLists[i].id);
}
function build(x, y) {
this._updateParent(this.id);
this._writeList();
this._showList();
this._updateList(true, x, y);
this.x = x; this.y = y;
}
function rebuild() { this._updateList(true, this.x, this.y); }
function addItem(str, bgColor, layer) {
var testLayer = false;
if(!document.all) document.all = document.layers;
if(!layer) {
if(isIE4 || !this.parLayer) testLayer = eval('document.all.lItem'+_lid);
else {
_pLayer = this.parLayer;
testLayer = eval('_pLayer.document.layers.lItem'+_lid);
}
if(testLayer) layer = testLayer;
else {
if(isNav4) {
if(this.parLayer) layer = new Layer(this.width, this.parLayer);
else layer = new Layer(this.width);
} else return;
}
}
if(bgColor) layer.oBgColor = bgColor;
this.items[this.items.length] = layer;
this.types[this.types.length] = "item";
this.strs[this.strs.length] = str;
_lid++;
}
function addList(list, str, bgColor, layer) {
var testLayer = false;
if(!document.all) document.all = document.layers;
if(!layer) {
if(isIE4 || !this.parLayer) testLayer = eval('document.all.lItem'+_lid);
else {
_pLayer = this.parLayer;
testLayer = eval('_pLayer.document.layers.lItem'+_lid);
}
if(testLayer) layer = testLayer;
else {
if(isNav4) {
if(this.parLayer) layer = new Layer(this.width, this.parLayer);
else layer = new Layer(this.width);
} else return;
}
}
if(bgColor) layer.oBgColor = bgColor;
this.lists[this.items.length] = list;
this.items[this.items.length] = layer;
this.types[this.types.length] = "list";
this.strs[this.strs.length] = str;
list.parent = this;
_lid++;
}
</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">

function init() {
if(parseInt(navigator.appVersion) < 4) {
alert("Sorry, a 4.0+ browser is required to view this demo.");
document.open();
document.write("Write a Table with the Menu here for Older versions of the Browser!");
document.close();
return;
}
var width = 500;
var height = 22;
<RDML MERGE="&BLS_011MTRE">
}
</SCRIPT>

<STYLE TYPE="text/css">
#spacer { position: absolute; height: 1120; }
</STYLE>
<STYLE TYPE="text/css">
<RDML MERGE="&BLS_011MSTY">
</STYLE>
</HEAD>
<BODY BACKGROUND="background.jpg" alink="blue" vlink="darkred" link="darkblue" text="darkblue" ONLOAD="init();">
<FORM METHOD="POST" NAME="LANSA"
ACTION="/<RDML MERGE="&CGI">/LANSAWEB?WEBEVENT+<RDML MERGE="&SESSPL">">
<RDML MERGE="&HIDDEN">
<INPUT NAME="AMODE " TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="MODE ">">
<INPUT NAME="ASELT_DEPT" TYPE="HIDDEN" SIZE="004" MAXLENGTH="004" VALUE="<RDML MERGE="SELT_DEPT ">">
<INPUT NAME="ASELT_SECT" TYPE="HIDDEN" SIZE="002" MAXLENGTH="002" VALUE="<RDML MERGE="SELT_SECT ">">
<DIV ID="spacer"></DIV>
<TABLE BORDER=0 WIDTH="100%">
<TR>
<TD><IMG BORDER=0 WIDTH="22" HEIGHT="10" SRC="<RDML MERGE="*LW3SETSPACER">"></TD>
</TR>
<TR>
<TD><DIV ALIGN="CENTER"><FONT FACE="Arial" SIZE="4" COLOR="DARKRED">Departments</FONT></DIV></TD>
</TR>
</TABLE>
<RDML MERGE="&BLS_011MDIV">
</FORM>
</BODY>
</HTML>

previous page start next page