«as400»againtop           **** RESPONSE FOR REQUEST=AGAIN
 Accept-HTSession:/%HANDLE%/
 Content-type: text/html
 X-XSS-Protection: 1;
 
 «!doctype html»
 «HTML»
 «HEAD»«TITLE»Sample Persistent CGI RPG Program«/TITLE»
 «meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"»
 «meta name="DOCUMENTCOUNTRYCODE" value="it"/»
 «meta name="DOCUMENTLANGUAGECODE" value="EN"/»
 «meta name="ROBOTS" content="noindex,nofollow"/»
 «script language=javascript»
 function sbmform1(xx) {
  document.form1.request.value=xx
  document.form1.submit()
  return
 }
 «/script»
 «/head»
 «BODY TEXT="black" LINK="blue" VLINK="purple" ALINK="violet" BGCOLOR="white"»
 «TABLE WIDTH=600»«TR»«TD ALIGN=CENTER»
 «font color="blue"»«h1»Sample Persistent CGI RPG Program«/h1»«/font»
 «/TD»«/TR»
 «TR»«TD»
 «as400»again              **** RESPONSE FOR REQUEST=AGAIN
 «TR»«TD ALIGN=CENTER»
 «font face="Helvetica,Helv,Arial"»
 This is your call number
 «font color="red" size=+1»«b»   /%NUMBER%/«/b»«/font»«/font»
 «/TD»«/TR»
 «TR»«TD ALIGN=CENTER»
     «table width=200»
     «form name=form1 method=post action="/cgidev2p/persist01.pgm//%HANDLE%/"»
     «input type=hidden name=request»
     «tr»«td»
     «font face="Helvetica,Helv,Arial" size=+1»
     «input type=button value="Call again" onClick=sbmform1("runagain")»«/font»
     «/td»«td»
     «font face="Helvetica,Helv,Arial" size=+1»
     «input type=button value="Stop" onClick=sbmform1("stop")»«/font»
     «/td»«/tr»«/table»
     «/form»
 «/TD»«/TR»
 «as400»stoptop            **** RESPONSE FOR REQUEST=STOP ****
 Content-type: text/html
 
 «HTML»
 «HEAD»«TITLE»Sample Persistent CGI RPG Program«/TITLE»«/HEAD»
 
 «BODY TEXT="black" LINK="blue" VLINK="purple" ALINK="violet" BGCOLOR="white"»
 «TABLE WIDTH=600»«TR»«TD ALIGN=CENTER»
 «font color="blue"»«h1»Sample Persistent CGI RPG Program«/h1»«/font»
 «/TD»«/TR»
 «as400»stop               **** RESPONSE FOR REQUEST=STOP ****
 «TR»«TD ALIGN=CENTER»
 «font face="Helvetica,Helv,Arial"»
 You stopped calls to this program
 after call number
 «font color="red" size=+1»«b»   /%NUMBER%/«/b»«/font»«/font»
 «/TD»«/TR»
 «as400»legenda            **** LEGENDA  ****
 «TR»«TD»
 «CENTER»
 «table width=550 border=1»«tr»«td»
 This «i»persistent«/i» CGI RPG program
 defines an integer variable which is incremented
 by 1 any time you «i»call again«/i».«br»
 This variable, though its value is shown in the output html,
 is NOT sent back from the html to the program.«br»
 The «b»proof«/b» that this is a real «i»persistent«/i»
 CGI program is that this variable retains
 its preceding value when the program is called again
 (then the program increments it).
 «/td»«/tr»«/table»
 «/CENTER»
 «br»«br»
 «/TD»«/TR»
 «as400»oldos400           **** OS/400 IS TOO OLD ***
 «TR»«TD»
 «CENTER»
 «table width=550 border=1»«tr»«td»
 Sorry, persistent CGI programs can run from OS/400 Release V04R03M00 on.
 «br»This AS/400 is currently equipped with
 OS/400 Release /%OSRLS%/, therefore it cannot run this sample
 program.
 «/td»«/tr»«/table»
 «/CENTER»
 «br»«br»
 «/TD»«/TR»
 «as400»about              **** ABOUT THIS PROGRAM ****
 «TR»«TD»«br»
 «table width=580»«tr»«td»
     «font face="Helvetica,Helv,Arial"»«i»
     «A HREF="/cgidev2p/htmlmbr.pgm?cgiinp01=cgidev2&cgiinp02=demohtml&cgiinp03=persist01a"»
     About this program
     «/i»«/font»
 «/td»«td align=right»
     «font face="Helvetica,Helv,Arial"»«i»
     «A HREF="//%REFERER%/"»
     Return
     «/i»«/font»
 «/td»«/tr»«/table»
 «/TD»«/TR»
 «as400»end                **** END HTML ****
 «/TD»«/TR»«/TABLE»
 «/BODY»«/HTML»