Martin, They do very little(for the moment!)and are probably extremely badly coded, but here goes. Ajax2 exists only to return the two pieces of info about a customer. Hope this helps.
ajax1.pgm
/copy CGISRC/qrpglesrc,hspecs
/copy CGISRC/qrpglesrc,hspecsbnd
/copy CGISRC/qrpglesrc,prototypeb
/copy CGISRC/qrpglesrc,usec
/copy CGISRC/qrpglesrc,variables3
/copy CGIDEV2/qrpglesrc,prolog3
/free
callp gethtmlifs('/cgiprd/ajax1.html');
callp wrtsection('top');
callp wrtsection('end');
callp wrtsection('*fini');
*inlr=*on;
/end-free
and ajax2
/copy CGISRC/qrpglesrc,hspecs
/copy CGISRC/qrpglesrc,hspecsbnd
FOCUSMA00 if a e k disk usropn
/copy CGISRC/qrpglesrc,prototypeb
/copy CGISRC/qrpglesrc,usec
/copy CGISRC/qrpglesrc,variables3
d cuno s 10
d cono s 3 0 inz(901)
d cunm_msg c const('Customer not found')
d cucl_msg c const(' ')
/copy CGIDEV2/qrpglesrc,prolog3
C kcusma klist
C kfld cono
C kfld cuno
/free
// get customer number from browser
cuno = zhbgetvar('cuno');
rc = docmd('OVRDBF FILE(OCUSMA00) TOFILE(MVXBDTA901/OCUSMA00) +
SECURE(*YES)');
open OCUSMA00;
callp gethtmlifs('/cgiprd/ajax2.html');
chain kcusma OCUSMA00;
if %found(OCUSMA00);
callp updHTMLvar('cunm':OKCUNM);
callp updHTMLvar('cucl':OKCUCL);
else;
callp updHTMLvar('cunm':cunm_msg);
callp updHTMLvar('cucl':cucl_msg);
endif;
callp wrtsection('top');
callp wrtsection('end');
callp wrtsection('*fini');
*inlr=*on;
/end-free
--- In [email protected], "martin_d_welsh"
<[EMAIL PROTECTED]> wrote:
>
> Hi!
>
> This looks great, but any chance that you can upload the RPGLE too?
>
> Cheers,
>
> Martin
>
>
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Easy400Group/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
