Subject: | |
From: | |
Reply To: | |
Date: | Tue, 19 Aug 1997 14:55:00 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Efren,
Below is basically what you need it calls a cobol program on the HP3000
with 1 input of a member number. It contains 2 .html docs (1 form, the
other for displaying the cobol display's) and 2 scripts (1 unix the other
MPE).
It should give you the basic idea.
The web page calls a cgi script under posix which formats the input and
calls a mpe command file whose input sets variables that are read by the
Cobol program that runs.
*****************************************************************************
** First query screen contains form
*****************************************************************************
<HTML>
<HEAD>
<TITLE>
Member Claim Status
</TITLE>
</HEAD>
<bgsound src="/midi/twinpeak.mid" loop="2">
<body background="/images/bkgr_redstc.jpg" bgcolor="#FFFFFF"
link="#0000FF" vlink="#800080" alink="#FF0000"
bgproperties="fixed">
<H2><img src="/images/chsm.gif" align=left hspace="0" width="178"
height="76">
<p align=center>
<font size="8"><em>Member Claim Status</em></font>
<br> <font size="2"></font>
</p>
</H2>
<HR>
<FORM METHOD=GET ACTION="cgi-amisys/memclaim.shtml"> *** Gets
called next ***
<H2>
Member Claim Lookup
</H2>
<P>
Enter Member Number
<INPUT NAME=Memberid TYPE=TEXT SIZE=16>
<br>
<BR>
<INPUT TYPE=SUBMIT VALUE="Submit">
</P>
<HR>
<ADDRESS>Updated <em><!--#echo var="LAST_MODIFIED"--></em><br>
<A HREF="mailto:[log in to unmask]">Comments and Suggestions</A>
</ADDRESS>
</BODY>
</HTML>
**********************************************************
**** cgi-amisys/memclaim.shtml
**** This calls the posix script.
**** This is used to format the display in HTML format the
**** output from the cobol program is in the <pre> </pre> area
<HTML>
<HEAD>
<TITLE>
Member Claim Status
</TITLE>
</HEAD>
<bgsound src="/midi/twinpeak.mid" loop="2">
<body background="/images/bkgr_redstc.jpg" bgcolor="#FF0000"
link="#0000FF" vlink="#800080" alink="#FF0000"
bgproperties="fixed">
<H2><img src="/images/chsm.gif" align=left hspace="0" width="178"
height="76">
<p align=center>
<font size="8"><em>Member Claim Status</em></font>
<br> <font size="2"></font>
</p>
</H2>
<HR>
<br>
<table border="4" cellpadding="4" cellspacing="4" width="100%"
align="center" bordercolor="#000080" bordercolordark="#800080"
bordercolorlight="#FF00FF" >
<tr>
<TD WIDTH="100%" BGCOLOR="#fffacc"><FONT COLOR="#00267F"
valign="middle" align="left">
<font size="3">
<p>
<pre>
<!--#exec cgi="/cgiami/memclaim.cgi"--> **** Call CGI Script
*****
</pre>
<p>
</td></tr>
</table>
<br>
<HR>
</BODY>
</HTML>
*******************************************************
**** cgiami/memclaim.cgi
**** This script parses the data from $QUERY_STRING
**** then calls the MPE command file MEMCLM
#!/bin/sh
echo Content-type: text/plain
echo
typeset -L16 memberid
in_string=$QUERY_STRING
memberid=${in_string#*Memberid=}
callci "MEMCLM.WEBCGI.ACCT $memberid"
************************************************************
**** MEMCLM.WEBCGI.ACCT
**** This is the MPE command file that calls the cobol program
**** which just does regualar displays.
PARM CLAIMIN=$NULL
SETVAR CLAIMNUM '!CLAIMIN'
file health=health.data.aih
XEQ MEMCLM9.webcgi.aih
Enjoy...
Rich Fisher
Carilion Health System
Roanoke, Virginia
[log in to unmask]
The opinions expressed are not necessarily my employers,
and may or may not be my own.
|
|
|