Ejemplo de codigo en RpgForWeb

Ejemplo "Hola Mundo ++"

Este es el típico ejemplo que sólo consiste en visualizar el saludo "Hola Mundo". Pero lo hemos elaborado un poco para que no sea tan feo. Para ello hacemos un documento html (un poco complejo para adornarlo) y lo llamamos desde un programa RPG.
Una ventaja es que RpgForWeb admite toda clase de funciones html y javascript, por lo que no tenemos ninguna limitacion sino que cuanto mas sepamos de html y js mejores paginas podremos hacer.

creamos un fichero html tal como éste:

Y en el RPG tenemos que teclear (por supuesto, también se permite rpgfree):

*lee file-html del IFS con la pagina a presentar
C Eval cwPage = cwGetPage(cwpDirA:'holamundo')
*tomar fecha y hora
C Time Time12 14 0
C MoveL Time12 Hora 6 0
C Move Time12 Fecha 8 0
*cambiar campos y variables en la pagina
C CallP cwAddFld('hora':%EditW(Hora :' : : '))
C CallP cwAddFld('date':%EditW(Fecha:' / / ')
C Eval cwPage = cwChgFld(cwPage:cwFldV:cwValV)
*Envia la pagina al browser:
C CallP cwWrite(cwPage)
C Eval *INLR = *ON

De esta forma no solo se funciona en dos capas (una en el cliente, navegador y otra en el host, 400) sino que se programa tambien en dos capas, por una parte de hace el codigo de cliente (HTML basicamente, aqui con un poco de CSS) y por otra parte se hace el RPG en 400. Incluso lo pueden estar haciendo dos personas distintas cada una experta en lo suyo.

En fin, no es un hola mundo muy pequeño pero es que ya pasamos dos variables y todo
ver las variables %cw-hora% y %cw-date% en el html, y cómo desde RPG se "rellenan".

con este enlace se llama al programa en un 400 real.

esta es la imagen de la página resultante: