Thanks for this............Cheers..............Martin
--- In [email protected], "andrew_david_kerr"
<[EMAIL PROTECTED]> wrote:
>
> 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"
> <martin.welsh@> 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/
