[Easy400Group] Simple AJAX and iSeries Form Sample

[hr]

Hi,

here is a simple HTML that submits a form with AJAX
and calls
a program with parameters and outputs the result on
the page

http://www.way2trade.dk/w600websam/ajax3.htm

Be aware that my server is in Europe GMT+1 and may
be down
due to backup and IPL

WEB RESOURCES:
http://developer.mozilla.org/en/docs/AJAX:Getting_Started
http://www.captain.at/howto-ajax-form-post-request.php



Program AJAX4P
--------------
H DatFmt(*eur)          
                     
                   
 /copy qrpglesrc,hspecs      
                     
              
 /copy qrpglesrc,hspecsbnd      
                     
           
 /copy qrpglesrc,prototypeb      
                     
          
 /copy qrpglesrc,usec        
                     
              
 /copy qrpglesrc,variables3      
                     
          
d web_page        s    
       128            
                   
d name            s
            50        
                     
 
d address         s    
        50            
                   
 /copy qrpglesrc,prolog3      
                     
             
               
                     
                     
      
c              
    eval      web_page    = %trim('/w600websam/')

c              
                     
    + 'ajax4.htm'           
               
                     
                     
      
c              
    callp     gethtmlIFS(web_page:'<as400>')
     
               
                     
                     
      
c              
    eval      name        =
zhbgetvar('name')   
c              
    callp     UpdHtmlVar('NAME':name)    
      
c              
    eval      address     = zhbgetvar('address')
c              
    callp     UpdHtmlVar('ADDRESS':address)  
  
               
                     
                     
    
c              
    callp     wrtsection('noname')      
       
c              
    callp     wrtsection('*fini')      
        
               
                     
                     
    
c              
    return                
                     

HTML AJAX4:
------------
Content-type: text/html

This is the response from iSeries:
<br>
Your name are /%name%/
<br>
Your Address are /%address%/

  




  
  
  YAHOO! GROUPS LINKS



   Visit your group "Easy400Group" on the web. 
   To unsubscribe from this group, send an email to: [EMAIL PROTECTED] 
   Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.