29 09 | 2012

Lancer un site web avec Firefox ou Internet Explorer depuis un programme CL à partir d'une émulation 5250

Rédigé par inconnu

Classé dans : PHP sur IBM i, IBM i (AS/400)

Lancement rapide d'une page Web dans un navigateur depuis un programme CL sur une émulation écran d'IBM i (AS/400) en mode 5250.

Ce programme est utilisé pour lancer une application (ici un navigateur) à partir de l'émulation écran de Client Access (iSeries Access for Windows, IBM i Access for Windows...).

Ce principe peut être mis en application avec d'autres logiciels tournant sur le micro-ordinateur tel que Microsoft Excel et Word.

Il peut y avoir quelques variations selon le système d'exploitation du micro-ordinateur.

URL = Adresse complète du site web, http:// y compris

La longueur de la variable passée à la commande STRPCCMD ne doit pas dépasser 123 caractères ce qui peut être un problème dans certains cas, d'autant qu'une bonne trentaine de caractères est occupée par l'appel de l'interpréteur de commande Windows (rundll...).

Ce programme a été utilisé en production dans un menu programmeur (Par la touche ATTN pour afficher un formulaire web en PHP). Il peut aussi être associé à une option de menu ou à une touche de fonction.

1) Pour Firefox

PGM

     DCL VAR(&CMD) TYPE(*CHAR) LEN(200)

     DCL VAR(&PATH) TYPE(*CHAR) LEN(123)

     STRPCO PCTA(*NO) /*Démarrage de l'intégrateur*/    

     MONMSG IWS4010  /*Déja démarré*/                                        

     CHGVAR     VAR(&PATH) VALUE('"firefox.exe"   http://www.notos.fr')

     CHGVAR VAR(&CMD) + 

        VALUE('rundll32 shell32,ShellExec_RunDLL ' *BCAT &PATH) 

     STRPCCMD PCCMD(&CMD) PAUSE(*NO)

ENDPGM


2) Pour Internet Explorer

PGM

     DCL VAR(&CMD) TYPE(*CHAR) LEN(200)

     DCL VAR(&PATH) TYPE(*CHAR) LEN(123)

     STRPCO PCTA(*NO)   /*Démarrage de l'intégrateur*/

     MONMSG IWS4010     /*Déja démarré*/

     CHGVAR     VAR(&PATH) VALUE('"iexplore.exe"   http://www.notos.fr')

     CHGVAR VAR(&CMD) +

          VALUE('rundll32 shell32,ShellExec_RunDLL ' *BCAT &PATH)

     STRPCCMD PCCMD(&CMD) PAUSE(*NO)

ENDPGM


 

Mots clés : CL, Code, AS/400, Web

Les commentaires sont fermés.

Qui sommes-nous ?

  • Notos, expert IBMi (AS/400) et spécialiste de l’informatisation des PME/PMI est le partenaire privilégié des entreprises qui veulent moderniser leur Informatique.
  • En savoir plus

Archives

Derniers commentaires