Discussion :

[fred_crrm]

Nouveau débat pour les accros du WEB

Que pensez de PHP ( sur la V5R3 de l'OS/400 ) avec ZendCore ??

Avantages et inconvénients

Que pensez de NETDATA ??

Avantages et inconvénients

Autres solutions ???

[Luc Orient]

Si c'est un débat spécifique à AS/400 il existe un sous-forum récent spécifique à cet OS :
Hardware, Systèmes et Logiciels > Autres systèmes > AS/400

[fred_crrm]

Je découvre avec plaisir ce nouveau forum pour les développeurs AS/400 ( Iseries, Isystem )

Par contre, je n'obtiens pas de réponse à ma question, dommage.....

[JPLAROCHE]

Nouveau débat pour les accros du WEB

Que pensez de PHP ( sur la V5R3 de l'OS/400 ) avec ZendCore ??

Avantages et inconvénients

Que pensez de NETDATA ??

Avantages et inconvénients

Autres solutions ???

moi je part sur CGI AS400

vas voir http://www.easy400.net/

applaudi pas IBM tu peut continuer avec RPGLE et HTML
faire du dialogue
j'ai fait mon interface as400 pour choisir et automatiser HAST
de même je remplace TOUT PHP
HTML + CGIDEVD2 (tu comprendra apres avoir ete sur esay400)
il y a de bon exemple
la mise en oeuvre est simple

ta question est judicieuse car le probleme est de rester simple
là le langage ne change pas d'ailleurs chez IBM FRANCE ils ont pris la descision
de faire connaitre CGI ça répond a tous les problemes WEB

imagine toi tu remplace les DDS DSPF en HTML
et le reste cela ne differe pas beaucoup

exemple

*********************************************************************
* RPG ILE MODULE CGIDEV2/HELLO1
*
* After compiling this RPG MODULE,
* create the related program with the following command:
*
* CRTPGM CGI400/ECRWEB MODULE(CGI400/ECRWEB)
* ACTGRP(CGI) AUT(*USE)
*
*********************************************************************
* Input HTML parameters
*
* VARIABLE MEANING
* lng= national language
*
*********************************************************************
/copy CGI400/qrpglesrc,hspecs
/copy CGI400/qrpglesrc,hspecsbnd
*=====================================================================
LIPADRB IF E K DISK USROPN
*--------------------------------------------------------------------
* Variables common to all CGIs
*--------------------------------------------------------------------
/copy CGI400/qrpglesrc,prototypeb
/copy CGI400/qrpglesrc,usec
/copy CGI400/qrpglesrc,variables3
* Variables parsed from input query string
D lng s 2a
D CMD s 80a


DNotAvail S 10A INZ('ERROR')
D V_IP S 15A inz('255.255.255.255')
D V_DEVD S 10A inz('T_EXT00')
* Other variables
*=====================================================================
* PROCESS
*=====================================================================
/copy CGI400/qrpglesrc,prolog3
*=====================================================================
C IF NOT *IN45
C callp wrtjobdbg(*OFF)
C EVAL RC = DOCMD('OVRPRTF FILE(LIPADRB) +
C TOFILE(MNGFIC/LIPADRB)')
C* SECURE(*YES)')
C OPEN LIPADRB 33
C SETON 45
C ENDIF
C exsr rtvenvvar
* Retrieve environment variables
* Load external html
C exsr LoadHtml
* Set html output variables
C exsr SetVar
* Send sections
C callp wrtsection('TOP')
C callp wrtsection('END')
* Quit
C exsr Exit
*=====================================================================
* Close output html and quit
*=====================================================================
C Exit begsr
* Do not delete the call to wrtsection with section name *fini. It is needed
* to ensure that all output html that has been buffered gets output.
C callp wrtsection('*fini')
* Quit
C return
C endsr
*=====================================================================
* Set HTML output variables
*=====================================================================
C SetVar begsr
* DEVD
C V_DEVD ifeq *blanks
C eval V_DEVD = NotAvail
C endif
C callp updHTMLvar('devd':V_DEVD)
C endsr
*=====================================================================******
* Retrieve environment variables
*=====================================================================******
C rtvenvvar begsr
* Remote Address >
C eval V_IP=getenv('REMOTE_ADDR':
C qusec)
* Remote NAME >
C V_IP CHAIN IPADRFB 33
C N33 EVAL V_DEVD = IPDEVD
C endsr
*=====================================================================******
* Read output skeleton html member into memory
*=====================================================================******
C LoadHtml begsr
C eval lng = uppify(lng)
C callp gethtml('HTMLSRCI' + %trimr(lng):
C 'CGI400':
C 'AS400DEB':
C '/$')
* Retrieve current OS/400 release
C endsr
*=========================================================


partit HTML


/$TOP **** START HTML
Content-type: text/html

<html>

<td width="491">
<p><b><font size="3" face="Courier New">Bonjour..:</font></b></p>
</td>
<td width="491">
<p>&nbsp;&nbsp;</p>
</td>
<td width="491">
<p align="left"><tt><font face="Courier New"><input
type="text" name=xNOM maxlength="30"
style='font-style: normal; text-align: left; background-color: rgb(204, 204, 204);
color: blue; border-style: solid; border-width: 1px;
font-family: "Courier New"; font-weight: bold; border-color: black'
READONLY value=/%nom%/
size="30"></font></tt></p>
</td>
</tr>
<tr>
<td width="491">
<p><b><font size="3" face="Courier New">IP.......:</font></b></p>
</td>
<td width="491">
<p>&nbsp;</p>
</td>
<td width="491">
<p align="left"><tt><font face="Courier New"><input
type="text" name=xIP maxlength="16"
style='font-style: normal; text-align: left; background-color: rgb(204, 204, 204);
color: blue; border-style: solid; border-width: 1px;
font-family: "Courier New"; font-weight: bold; border-color: black'
READONLY value=/%ip%/
size="16"></font></tt></p>
</td>
</tr>
<tr>


ect......

tu vois les variables dans HTML sont %nnnn%
j'espere avoir repondu

[Green Hornet]

je suis actuellement en congés mais j'avoue que t'as réponse me donne envie de retourner au taf pour me lancer dans cette aventure