VisualAge RPG est un produit IBM faisant partie du produit ADTCS (5763CL2) ou intégré à WDS depuis la V5

Il permet de concevoir des applications client/serveur en programmant avec le langage RPG.

Pour démarrer :

• lancez le serveur TCP/IP spécifique au produit , SUR VOTRE PC.
  
  démarrez une session 5250, et sur cette session lancez
  
  "STRCODE RMTLOCNAME(adresse-IP) CMNTYPE(*TCPIP) si vous êtes en IP
  
  
• ou bien utilisez un serveur "batch" (voyez comment configurer un serveur CODE/400)
  

 

enfin, lancez VRPG - vous verrez apparaître l'espace de travail, composé comme suit :

la logique est celle de toutes les applications de programmation PC d'aujourd'hui.

1. Un projet contenant la liste des fenêtres de l'application
2. chaque fenêtre contient des objets graphiques
3. la palette d'outils propose la liste des objets graphiques pouvant être insérés dans la fenêtre.
4. Après avoir composé visuellement votre fenêtre, vous devez définir le code associé à un événement.

Soit l'application suivante (liste des cours) :

le plus simple est de faire référence à la base de données (comme avec SDA), par "Serveur/Définition des zones de référence"

pour chaque objet :

on peut définir les propriétés :

parmi les propriétés remarquables, citons: Genéral le nom de l'objet style cadrage , et principales options. Données type et longueur edition l'équivalent des EDIT-CODE Police/Couleur aspect graphique description Commentaire technique de l'objet

ensuite il faudra associer du code à un événement :

• getfocus : devient l'objet en cours (ayant le focus)
• lost focus : perd le focus (voir ci-dessus)
• mouseenter: la souris passe par dessus
• mousexit : la souris quitte l'objet
• press (pour un bouton): on appuie sur le bouton
• select pour un bouton radio ou une case à cocher, etc...

vous passerez alors sous l'éditeur de source "CODE/400" .

tous les sous programmes liès à un événement sont structurés de la manière suivante:

• BEGACT : équivalent BEGSR, mais pour un événement
• facteur1 : le nom de l'objet
• facteur2 : l'événement
• Zone résultat : le nom de la fenêtre "mère".

regardons ensemble le code:

• Spécif F "normale", si ce n'est le mot-clé remote qui indique un fichier AS/400
  (en l'absence de ce mot-clé les fichiers sont considérés comme locaux [c'est à dire PC] et doivent être en interne.)

  Vous devez cependant, configurer vos serveur de données (on utilise en fait DDM/IP)
  par l'option "Serveur/Définition des options AS/400"

Puis vos ressource (particulièrement vos fichiers) en les attachant à un serveur :

• Définition des variables:

msg est une constante, retour une variable numérique.

par contre msgerr de type M est une particularité de Vrpg permettant une définition de message :
–le type est M (à la place de S pour single, C pour constant, etc....)
–style définit le type de message : *INFO , *WARN , *HALT
–button , les boutons affichés (et donc utilisables)

on peut utiliser trois boutons

tout cela permet d'envoyer un message à l'utilisateur par DSPLY

regardons ce sous programme :

• les fonctions %getatr , %setatr permettent de retrouver / ou de modifier une propriété d'un objet.
(les codes opération SETATR et GETATR sont admis)

Par exemple un objet image possède un attribut FILENAME indiquant le chemin et le nom du fichier image à charger.

vous pouvez utiliser :

C 	'IMAGE1'	SETATR		path		'FILENAME'


ou bien 


C 	 			eval		%setatr('FENETRE':'IMAGE1':'FILENAME') = path 

Dans l'extrait de code ci-dessus %GETATR retourne la propriété 'TEXT' de l'objet AF4MDL , c'est à dire son contenu

Pour les variables d'une fenêtre, vous pouvez aussi utiliser WRITE et READ, pour renseigner ou retrouver
tous les champs à la fois.

• Effectuons un CHAIN sur le fichier Base de Données (nous venons de faire une lecture sur le fichier REMOTE)

• si aucun enregistrement n'est trouvé, affichage d'un message d'erreur sous forme d'une boite de dialogue.

• Sinon chargement de l'objet sous fichier. Quelques différences avec les sous-fichiers 400 :

et enfin la fin du programme (bouton "sortie") :

Pour tester (option Projet/Construction) :

puis Projet/Exécution, pour lancer :

Vous retrouverez ces options en cliquant directement sur le projet (dans le dossier VARPG Projects)
ainsi que l'option "package" qui permet de générer une distribution.

Après avoir choisi une cible (Win32 ou Java), vous verrez :

Cochez module d'exécution, si vous souhaitez aussi générer une installation du RUN-TIME VARPG
(à installer UNE fois sur chaque PC)

Choisissez simplement un répertoire différent pour ce dernier.

VARPG va générer DEUX exécutables SETUP.EXE, dans chaque répertoire.

©AF400