|
midrange.com
This is a net.data script that I use, to show the status of FAX's that have
been sent, and it gives a PDF icon, to click on, so that the browser will
show them the fax image if they would like to see it...
It's a chunk of code... But it gives you a good idea, what net.data is...
And for the people who like to seperate presentation from logic, please turn
away now... :-)
%FUNCTION(DTW_SQL) sqlfaxwaiting(out table_faxwaiting) {
select b.POID,
b.C_To,
b.C_SETTING,
b.C_CONTENT
from mmcust120.acom b
exception join edilib.faxstatus a
on substr(a.message_to,1,15) = substr(b.c_to,1,15)
where (b.tpkey = 8 or b.tpkey = -8)
for fetch only
%MESSAGE {
100 : "<tr><td colspan=7><big>Nothing to process at this
time</td></tr></big>":continue
default: "<big>Unexpected Error CODE**$(RETURN_CODE)</big>"
%}
%}
%html(faxstatus){
<style type="text/css">
td {
font-size:10px;
font-family : Arial;
font-weight : 400;
padding-top : 0px;
padding-bottom : 0px;
border-left-width : 1px;
border-right-width : 1px;
border-top-width : 1px;
border-bottom-width : 1px;
vertical-align : auto;
height : auto;
}
tr {
background-color : LavenderBlush;
}
</style>
<script language="JavaScript">
function GoPage(pagelink) {
document.pickedi.action= pagelink;
document.pickedi.target= "_blank";
document.pickedi.submit();
}
function GoHREF(pagelink) {
document.location.href= pagelink;
}
function GoPageNewWindow(pagelink) {
wscreen =
'resizable=yes,scrollbars=yes,menubar=yes,left=0,top=0,status=yes';
myWindowHandle = window.open(pagelink,'',wscreen);
if (!myWindowHandle.opener)
myWindowHandle.opener = self;
}
</script>
<FORM METHOD="post" name="pickedi">
<table border = 2 bgcolor="lightgrey" width = 100%>
<tr>
<th colspan=5>Fax's waiting to be Mapped and Sent (via Acom)</th>
</tr>
<tr bgcolor="#bda6de">
<th>PO#</th>
<th>To</th>
<th>Number</th>
<th>Cover Sheet</th>
</tr>
@sqlfaxwaiting(table_faxwaiting)
@dtw_assign(num,@dtw_tb_rrows(table_faxwaiting))
@dtw_assign(rowIndex,"1")
%while(rowIndex <= num) {
<tr bgcolor = "white">
<td>@dtw_tb_rgetv(table_faxwaiting,rowIndex,"1") </td>
<td>@dtw_tb_rgetv(table_faxwaiting,rowIndex,"2")</td>
<td>@dtw_tb_rgetv(table_faxwaiting,rowIndex,"3")</td>
<td>@dtw_tb_rgetv(table_faxwaiting,rowIndex,"4")</td>
</tr>
@dtw_add(rowIndex,"1",rowIndex)
%}
</table>
<br>
@sqlfaxstatus(table_faxstatus)
@dtw_assign(num,@dtw_tb_rrows(table_faxstatus))
@dtw_assign(rowIndex,"1")
<table border = 2 bgcolor="lightgrey" width = 100%>
<tr>
<th colspan=12>Fax Server's Log ** Updated every 6 minutes **</th>
</tr>
<tr bgcolor = "#bda6de">
<th>Result %{<input type ="button" name = GO value="Refresh" align = top
border=0
onClick=GoPage('/cgi-dta/materiels/edi.mac/refreshfax')%}
</th>
</th>
<th>To</th>
<th>Number</th>
<th>Subject</th>
<th>Pages</th>
<th>Date</th>
%{<th>Date Short</th>%}
<th>Time</th>
%{<th>Time Short</th>%}
<th>Baud</th>
<th>Secs.</th>
<th>Folder</th>
<th>Retries</th>
<th>Dest Fax ID</th>
</tr>
%while(rowIndex <= num) {
@dtw_assign(message_to,@dtw_tb_rgetv(table_faxstatus,rowIndex,"1"))
@dtw_assign(message_number,@dtw_tb_rgetv(table_faxstatus,rowIndex,"2"))
@dtw_assign(message_subject,@dtw_tb_rgetv(table_faxstatus,rowIndex,"3"))
@dtw_assign(message_page_count,@dtw_tb_rgetv(table_faxstatus,rowIndex,"4"))
@dtw_assign(message_date,@dtw_tb_rgetv(table_faxstatus,rowIndex,"5"))
@dtw_assign(message_date_short,@dtw_tb_rgetv(table_faxstatus,rowIndex,"6"))
@dtw_assign(message_time,@dtw_tb_rgetv(table_faxstatus,rowIndex,"7"))
@dtw_assign(message_time_short,@dtw_tb_rgetv(table_faxstatus,rowIndex,"8"))
@dtw_assign(message_baud_rate,@dtw_tb_rgetv(table_faxstatus,rowIndex,"9"))
@dtw_assign(message_durration,@dtw_tb_rgetv(table_faxstatus,rowIndex,"10"))
@dtw_assign(message_error,@dtw_tb_rgetv(table_faxstatus,rowIndex,"11"))
@dtw_assign(message_fax_folder,@dtw_tb_rgetv(table_faxstatus,rowIndex,"12"))
@dtw_assign(message_retries,@dtw_tb_rgetv(table_faxstatus,rowIndex,"13"))
@dtw_assign(message_csid,@dtw_tb_rgetv(table_faxstatus,rowIndex,"14"))
@dtw_assign(message_pdfpath,@dtw_tb_rgetv(table_faxstatus,rowIndex,"15"))
@dtw_assign(message_pdfpath,@dtw_rreplace(message_pdfpath,"d:\FOP\XML\In\","
http://xxx.xx.x.xxxx/pics/pdf/tecmmfax/";))
@dtw_concat(message_pdfpath,".pdf",message_pdfpath)
%if(message_error == "0")
@dtw_assign(message_error_text,"Successful")
%elseif(message_error == "4")
@dtw_assign(message_error_text,"Line Busy - Failed")
%elseif(message_error == "11")
@dtw_assign(message_error_text,"No Answer - Failed")
%elseif(message_error == "2")
@dtw_assign(message_error_text,"Cancelled Fax - Failed")
%else
@dtw_assign(message_error_text,"Failed - Not Sure Why!")
%endif
%if(message_fax_folder == "Outbox")
<td>Preparing to Send...</td>
%else
<td>$(message_error_text) ($(message_error))</td>
%endif
<td>$(message_to)</td>
<td>$(message_number)</td>
<td>
<a target="_blank" href="$(message_pdfpath)"> $(message_subject)</a>
<img title="Click PO# to Open File" src="/pics/pdf/pdf_icon.gif"
border="0">
</td>
<td>$(message_page_count)</td>
<td>$(message_date)</td>
%{<td>$(message_date_short)</td>%}
<td>$(message_time)</td>
%{<td>$(message_time_short)</td>%}
<td>$(message_baud_rate)</td>
<td>$(message_durration)</td>
<td>$(message_fax_folder)</td>
<td>$(message_retries)</td>
<td>$(message_csid)</td>
</tr>
@dtw_add(rowIndex,"1",rowIndex)
%}
</table>
%}
> -----Original Message-----
> From: Jeff Crosby [SMTP:jlcrosby@xxxxxxxxxxxxxxxx]
> Sent: Wednesday, August 20, 2003 1:50 PM
> To: Midrange Systems Technical Discussion
> Subject: Re: How to move forward
>
> Vern Hamberg wrote:
>
> > Jeff
> >
> > WDSC assumes you will use WebSphere Application Server - this is Java
> > servlets, etc. I recommend learhing net.data if you want to get data
> > from the 400. It is inserted into standard HTML but lets you run SQL
> > statements based on user input, etc. It's very easy to get going. Go to
> > www.ibm.com/net.data, then look for the "self-help"button in the middle
> > of the page. There's a Redbook there on getting the 400 on the Internet
> > - 1997 but still useful for net.data. Also on the main page, look for
> > the net.data for iSereis link on the left hand side. Once there, follow
> > your nose - you can get samples and white papers, etc.
> >
> > Net.Data is really quite cool, IMO. Good way to get on the web quickly,
> > and is cross-platform, as well. I believe everything you want can be
> done.
>
> Thanks!
>
> --
> Jeff Crosby
> Dilgard Frozen Foods, Inc.
> P.O. Box 13369
> Ft. Wayne, IN 46868-3369
> 260-422-7531
>
> The opinions expressed are my own and not necessarily
> the opinion of my company. Unless I say so.
>
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential or privileged
information. Any unauthorized review, use, disclosure or distribution is
prohibited. If you are not the intended recipient, please contact the
sender by reply e-mail and destroy the message.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
