Discussion :

[Aminos]

Bonjour,
Je travaille sur un programme sous VB6 qui doit appeler un autre programme se trouvant dans un serveur as400 en lui passant un parametre de date pour remplir un fichier que j'exploiterais par la suite via mon programme vb.
le probleme est que je ne trouve pas le code pour appeler un programme as400 depuis VB.
Je vous remercie pour votre collaboration.

[jmfmarques]

L'AS400 ???

Tu parles bien de cette vielle machine tournant avec l'OS400 ???

Il y en a encore en utilisation ??

Quoiqu'il en soit, la chose ne me parait possible que si la version OS400 utilisée est accompagnée des émulateurs et passerelles nécessaires à une communication avec d'autres systèmes d'exploitation (autres que l'OS400), donc...

Je crois que le premier pas serait de prendre à ce sujet l'attache d'IBM dont l'AS400 a longtemps été le fleuron (s'ils veulent bien répondre encore à ce propos...)

[startout]

L'AS400 est trés répandu encore.
Je travaille dans une banque et nous avons encore de ce type de machine en fonctionnement

[Aminos]

Il faut savoir que l''AS400 est l'un des serveurs les plus robuste et sûr qui puisse exister j'ai deja travaillé sous unix par exemple et je vous raconte pas le nombre de fois d'indisponibilités des applications BD ou autres services sous c'est machines
concernant les passerelles nous avons client access qui fournit les passerelles necessaire pour acceder au serveur mais ce qui manque c le code vb.?

[jmfmarques]

concernant les passerelles nous avons client access qui fournit les passerelles necessaire pour acceder au serveur mais ce qui manque c le code vb.?

Non, ce n'est pas uniquement celà, mais, plus généralement, la façon d'établir le dialogue (passerelle + émulateur et connaissance parfaite des deux...)
Mais il me semble qu'une machine AS400 nécessite l'intervention périodique (si ma mémoire est bonne) d'un "pupitreur" et (si émulateurs et passerelles présents) d'un informaticien "systèmes".
C'est donc en premier lieu ces deux personnes que tu dois interroger.
En second lieu : IBM (comme je te l'ai déjà dit).

Si ma mémoire est bonne (encore une fois), il n'est pas suffisant que l'OS400 "propriétaire" sache émuler d'autres systèmes. Il faut également que les autres systèmes à utiliser éventuellement sachent émuler OS400....

Il en va ici un peu comme il en irait avec un DPS6 de bull tournant sous Pick ou sous GCOS.

Pick et Unix se sont mis d'accord pour créer Pick Universe. GCOS en a fait autant....
Je ne sais pas si IBM a prévu ce qu'il faut pour un dialogue "dans les deux sens" avec tel ou tel autre (et lesquels ?) système d'exploitation.

Le responsable informatique de ta boîte, le "pupitreur" et IBM sont à consulter, me semble-t-il donc !..

[zazaraignée]

Salut

Instructif!

Si j'étais toi, suite à ces savantes informations (salut jmf), j'irais fouiller les sites de Microsoft et de IBM... Le second étant historiquement en brouille avec le chef du premier... Bonne chance!

[Edit] Et juste au cas où mes propos serait interprétés comme diffamatoires (envers les deux géants), loin de moi l'intention (dans tous les sens du terme).

[Aminos]

Bonjour,
Bon j'ai trouvé un petit truc concernant mon sujet.
Au lieu de passer par du code VB je fais appel à l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RMTCMD

cette commande se trouve dans le repertoire windows dés qu'on install Client ACCESS
voila la syntaxe de cette commande

Syntaxe : RMTCMD la-commande [//système] [/Z]

la-commande = commande AS/400 n'utilisant pas d'écran (peut-être indiquée entre guillemets)
//système indique le nom du système (S44xxxx par exemple)
/Z empèche l'apparition des lignes "(C) Copyright IBM ..."

Pour plus d'info vous pouvez consulter google en recherchant la commande RMTCMD ou bien vous pouvez allez consulter le site suivant : http://www.volubis.fr/Pausecaf/PAUSECAF31.htm