againtop **** RESPONSE FOR REQUEST=AGAIN Accept-HTSession:/%HANDLE%/ Content-type: text/html X-XSS-Protection: 1; Sample Persistent CGI RPG Program again **** RESPONSE FOR REQUEST=AGAIN oldos400 **** OS/400 IS TOO OLD *** end **** END HTML ****

Sample Persistent CGI RPG Program

legenda **** LEGENDA ****
defines an integer variable which is incremented by 1 any time you call again.
This variable, though its value is shown in the output html, is NOT sent back from the html to the program.
The proof that this is a real persistent CGI program is that this variable retains its preceding value when the program is called again (then the program increments it).


This is your call number    /%NUMBER%/
Sorry, persistent CGI programs can run from OS/400 Release V04R03M00 on.
This AS/400 is currently equipped with OS/400 Release /%OSRLS%/, therefore it cannot run this sample program.