Hi,
Below is the html/javascript that I was hoping would turn the "Abort" button
into a hot abort key. As it wasn't necessary for this example I've just
removed the button altogether but I will come back to the issue of
stop/cancel/abort processing in the next example. I think this "Frames"
idea's got legs so please let me know if you have any knowledge in this area
that may help.
Cheers Richard Maher.
PS. If you've got a chance to look, I couldn't make the Courier Font in the
..green_screen style smaller. Can anyone show me how with this example?
PPS. What controls if a button is Up or Down? I couldn't find the property
or method but sometimes the "send" button stayed down. (I think if disabled
when an alert fired?) Any Ideas how to control that?
<html>
<head>
<title>
Example Client for Tier3 demo queue-lookup server
Author: Richard Maher
</title>
<style>
h2
{
color: Turquoise;
}
p.credits
{
color: Turquoise;
}
.green_screen
{
color: Lime;
background-color: Black;
font-family: courier;
}
</style>
<script type="text/javascript">
function enter(nextfield )
{
if (window.event && window.event.ke yCode == 13)
{
nextfield.focus ();
return false;
}
else
return true;
}
function num_only(numObj )
{
if (isNaN(numObj.v alue))
{
numObj.value = "";
alert("Numeric value required");
numObj.focus();
return false;
}
else
return true;
}
function job_lookup()
{
if (!num_only(docu ment.getjobs.en try_number))
return true;
document.getjob s.abort.disable d = false;
document.getjob s.send.disabled = true;
document.getjob s.abort.disable d = false;
var recTypeLen = 2;
var recType = "";
var msgGetInfo = "10";
var jobInfo = "11";
var errorInfo = "00";
var zeroFill = "0000";
var maxRows = "9999";
var outPad = "";
var ok = true;
var selectRef = document.getjob s.job_list;
var msgEntry = "";
selectRef.optio ns[0].selected=true;
var holdHdr = selectRef.optio ns[0];
while (selectRef.opti ons.length 0)
{
selectRef.remov e(selectRef.opt ions[0]);
}
selectRef.optio ns[0] = holdHdr
document.getjob s.job_list.size = 1;
msgEntry = document.getjob s.entry_number. value;
outPad = zeroFill.substr ing(0, (zeroFill.lengt h - msgEntry.length ));
var chan = document.getEle mentById("Cornu Copiae");
chan.sendMessag e(msgGetInfo.co ncat(outPad,msg Entry,maxRows)) ;
if (chan.readMessa ge(recTypeLen) != recTypeLen)
{
alert ("Error receiving reply from server");
return false;
}
recType = chan.getString( 0,recTypeLen);
if (recType == jobInfo)
{
ok = process_jobs(ch an);
}
else
{
if (recType == errorInfo)
{
ok = process_error(c han);
}
else
{
alert ("Unknown message type " + recType);
return false;
}
}
if (!ok) return false;
document.getjob s.abort.disable d = true;
document.getjob s.send.disabled = false;
document.getjob s.entry_number. focus();
return true;
}
function process_error(c han)
{
document.getjob s.rec_count.val ue = 0;
var errMsgLen = 0;
var errLenLen = 3;
var alertMsg = "Error retrieving job entry information\n";
if (chan.readMessa ge() < errLenLen)
{
alert ("Error receiving Error Length from server");
return false;
}
errMsgLen = parseInt(chan.g etString(0,errL enLen),10);
alertMsg = alertMsg + chan.getString( errLenLen,errMs gLen);
document.getjob s.send.disabled = false;
alert(alertMsg) ;
return true;
}
function process_jobs(ch an)
{
var recTypeLen = 2;
var recType = "";
var jobInfo = "11";
var eofInfo = "99";
var eofLen = 3;
var jobMsgLen = 109;
var jobMsg = "";
var rc = 1;
var eofInfo = "99";
var selectRef = document.getjob s.job_list;
for (;;)
{
rc = rc + 1;
if (rc < 6)
document.getjob s.job_list.size = rc;
if (chan.readMessa ge(jobMsgLen) != jobMsgLen)
{
alert ("Error receiving Job Information from server");
return false;
}
jobMsg = chan.getString( 0,4) + "|" +
chan.getString( 4,39) + "|" +
chan.getString( 43,15) + "|" +
chan.getString( 58,31) + "|" +
chan.getString( 89,10) + "|" +
chan.getString( 99,10);
selectRef.optio ns[selectRef.optio ns.length] = new Option (jobMsg);
if (chan.readMessa ge(recTypeLen) != recTypeLen)
{
alert ("Error receiving reply from server");
return false;
}
recType = chan.getString( 0,recTypeLen);
if (recType != jobInfo)
break;
}
if (recType != eofInfo)
return false;
if (chan.readMessa ge(eofLen) != eofLen)
{
alert ("Error receiving reply from server");
return false;
}
document.getjob s.rec_count.val ue = (rc - 1);
return true;
}
function send_oob(oob_ch ar)
{
var chan = document.getEle mentById("Cornu Copiae");
chan.sendUrgent Data(oob_char);
return;
}
</script>
</head>
<body>
<h2>Example Client for Tier3 DEMO application server on VMS</h2><hr>
<form name="getjobs">
<object classid="clsid: 8AD9C840-044E-11D1-B3E9-00805F499D93"
width= "0" height= "0" name="CornuCopi ae"
id="CornuCopiae ">
<param name="archive" value="tier3.ja r">
<param name="codebase"
value="http://1.2.3.6/">
<param name="code"
value="CornuCop iae">
<param name="mayscript " value="yes">
<param name="scriptabl e" value="true">
<param name="name"
value="CornuCop iae">
<param name="PORT" value="1024">
<param name="HOSTCHARS ET"
value="ISO-8859-1">
<param name="MAXBUF" value="512">
<param name="APPLICATI ON" value="DEMO">
</object>
<br />Enter Job Entry Number [Default is All jobs]:
<input
type="text"
onkeypress="ret urn enter(document. getjobs.send)"
name="entry_num ber"
maxlength=4
size=4
dir="rtl"
/>
<input
type="button"
onmouseup="job_ lookup()"
name="send"
value="Get Job Info."
/>
<input
type="button"
onmousedown="se nd_oob(1)"
name="abort"
value="Abort"
/>
Jobs Found:
<input
type="text"
name="rec_count "
readonly
value="0"
size=5
/>
<br /><br />
<select
name="job_list"
id="Job_list"
class="green_sc reen"
size=1>
<option
value="lovhdr"
selected=true
disable=true
>
Nbr--Job-Name--------------------------------Job Status------Queue
Name----------------------Queue Type-Status----</option>
</select>
<br />
</form>
<p>
This is an example of a browser-based, html and JavaScript,
client interacting with a VMS hosted Tier3 Application Server
in a connection-oriented and context-rich environment.<br /><br />
You would have noticed that, when this page was initially displayed,
you were immediately prompted for your VMS Username and Password.
Once authorization is successful your credentials, and an accompanying
Persona, are automatically made available to your 3GL User Action
Routines each time their Server Process is chosen to perform work on
behalf of the client. In this example, the user only gets to see those
Print and Batch jobs that they have privileges to view. You can find
the corresponding server code for this example (demo_uars.cob) in your
t3$examples directory.<br /><br />
The session and server connection are terminated when you change
web pages or refresh this page.
</p>
<hr>
<p class="credits" >
"Tier3" is a registered trademark of Tier3 Software Ltd<br />
"CornuCopia e" is a trademark of Richard Maher
</p>
</body>
</html>
