pause-café

rendez-vous technique

Pause-Café est une réunion technique
destinée aux informaticiens sur plateforme IBM i.

Elle a lieu 3 à 4 fois par an : en Bretagne et sur internet.

Pause-café #30

Mars 2003

Qu'est-il possible de faire avec un AS/400 sans dispositif interactif ?

De l'exploitation avec Operation navigator.

Les actions proposées sont les suivantes :

il ne manque plus en V5R10 que la gestion des unités (WRKCFGSTS)

Vous retrouverez les principales options de gestion d'un AS/400, sous forme arborescente :

Opérations de base
(messages/spools et travaux )
gestion des travaux [V5R10]
( travaux actifs / Sbs et JOBQ, OUTQ en V5.20)
Configuration et maintenance
(Sysval [V5R10] , hardware et software)
Réseau
(configuration d'IP)
Sécurité
Gestion des utilisateurs
Base de données
(gestion de la base et
Database Navigator[V5R10] )
Système de fichiers
(gestion des fichiers IFS)
Sauvegarde
(équivalent de GO BACKUP)
Développement d'applications
(pour les développeurs JAVA et C)
AFP manager [V5R10]
(gestion des ressources pour PSF/400)

Chaque utilisation d"une option fait apparaitre une liste dans la fenêtre de droite. Cette fenêtre peut être paramétrée par :

Tri, chaque colonne peut être un critère de tri (pour un tri sur une seulle colonne, cliquez sur l'entête)
Inclusions permet de faire des sélections
Colonnes indique les colonnes que vous souhaitez voir et leur ordre d'apparition.

• Impression : (ici la liste des services IP) par Fichier/Impression ou Fichier/Apercu avant impression :

la nouveauté V5R10 en terme de présentation c'est le bloc de contrôle des tâches (taskpad)

qui vous affiche les actions les plus courrantes en fonction de l'option active.

ici c'est le nom de système qui est l'élément actif :

Base de données :

Réseau :

etc ...

Quelques avantages d'Operation navigator par rapport à une session 5250 :
- Vous pouvez glisser un spool sur un dossier PC afin d'en faire un fichier .txt (à envoyer par mail, par exemple)
- Utilisation du glisser/déposer (drap & drop) sur
  - les imprimantes et les outq (pour un spool)
  - les jobq (un travail)
- les options travaux de serveur et travaux actifs proposent comme critère de sélection l'utilisateur en cours
  
  Quand vous faites de l'ODBC/JDBC le profil de référence n'est pas l'utilsateur connecté, mais celui ayant démarré le travail c'est à dire QUSER.
- C'est le seul moyen de configurer
  - DNS
  - DHCP
  - Netserver
  - Le filtrage IP, QOS, PPP, etc...
- La notion de moniteur permet de surveiller les éléments systèmes suivants :
  - activité processeur, mémoire, I/O disques
  - activité d'un travail, d'un ensemble de job , d'un sous-système (nombre, % CPU , ...)
  - Messages recus par une file d'attente message (SYSOPR ou QSYSMSGQ)
  - Chaine de caractère insérée dans QHST, un fichier source, un fichier stream
    
    et à chaque fois vous pouvez associer une commande CL à l'évenement (avec invite)
- C'est le meilleur moyen de gérer les collectes de performances (STRPFRMON n'existe plus en V5)
- vous pouvez enregistrer :
  - des commandes à passer
  - des transferts de fichier à réaliser
  - des modèles de profils utilisateurs à créer
    
    et Exécuter (à partir d'une définition) sur un ensemble de machines
- L'option base de données propose
  - un accès complet aux tables (caractéristiques, lecture, mise à jour)
  - un gestionnaire de script SQL
  - Visual Explain pour analyser en détail une requête SQL
  - DataBase Navigator, pour voir votre base de données autrement
V5R20 : l'assistant SQL dans le gestionnaire de scripts

en demandant la liste des expressions, vous verrez les fonctions SQL disponibles

De la programmation client serveur Avec VisualAge RPG (inclus à WDS client)

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 (après installation de WDS client)

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.

Un projet contenant la liste des fenêtres de l'application
chaque fenêtre contient des objets graphiques
la palette d'outils propose la liste des objets graphiques pouvant être insérés dans la fenêtre.
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)

*OK	*CANCEL	*NOBUTTON
*ABORT	*IGNORE	*YESBUTTON

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.

En fait vous devez considérer que VARPG possède plusieurs exemplaires d'une même zone :

un exemplaire par fenêtre possedant une zone de ce nom
plus un exemplaire en mémoire:

Pour affecter à la zone mémoire, le contenu d'une variable d'une fenêtre, utilisez %GETATR
ou READ qui renseigne toutes les variables de même nom sur la fenêtre et dans le pgm..

Pour affecter la zone dans la fenêtre, utilisez %SETATR ou WRITE .

Vous pouvez aussi utiliser les ordres suivants :

SHOWWIN (affiche une fenêtre)
CLEAR (met à blanc tous les champs de la fenêtre et les champs mémoire de même nom)
RESET (réattribut les valeurs initiales attribuée à la conception)
CLSWIN (ferme une fenêtre)

• 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 :

la mise à blanc se fait par CLEAR

l'ajout (l'écriture) se fait par WRITE sans gestion du numéro de rang.

READS est un nouvel ordre qui permet de lire les enregistrements SÉLECTÉS.
(READC reste valide, pour lire enregistrements modifiés)

l'affichage se fait (par défaut) en temps réel (ligne à ligne, type minitel ....)
pour éviter cela, il faut fixer l'attribut REPAINT à 0 pendant la phase de chargement puis à 1.

eval %setatr('FENETRE' : 'SOUSFICHIER' : 'REPAINT') = 0/1

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.

tout cela ne représente qu'un tour d'horizon d'un produit extrèmement vaste et puissant, mais n'ayant pas encore complètement rencontré son public,
(en tous les cas dans le cadre d'un logiciel facturable)
.
WDS en V5 va-t-il changer la donne ???.

Développer avec Websphere Dev. Studio CLient V4.0

WDSc est un produit IBM faisant partie du produit 5722WDS

Il est basé sur ECLIPSE, un IDE en licence publique d' initiative IBM, comprenant :.

un environnement et des classes de base écrites en JAVA et multi-plateforme (Win32 et Unix)
La possibilité de travailler en équipe (pour gérer les versions, utilisez CVS )
Un éditeur de source
de quoi écrire des PLUG-IN ou outils additionnels

Au dessus d'éclipse, IBM vend un produit WSSDA , successeur de Websphere studio et de VisualAge pour JAVA.

il vous permet

de concevoir des applications JAVA
de concevoir des pages HTML avec un éditeur WYSIWYG et WebART Designer (graphisme etc..)
de gérer des instances de serveur d' applications (WAS 4.0 intégré au produit ou TOMCAT)
de concevoir des pages JSP avec divers assistants.

WDSc, est la version OS/400 de ce produit, comprenant :

WSSDA
RSE (un "plug-in" pour travailler avec des applications traditionnelles de l'AS/400),
ainsi que les produits CODE/400 (particulièrement Code designer pour les DSPF/PRTF)
et VisualAge RPG déjà livré sur les versions précédentes.

L'installation effectuée, la première tâche, va consister à définir une nouvelle connexion

Indiquez

un nom de profil :
- le votre si vous souhaitez ne pas partager cette définition
- Team (qui existe en standard) dans le cas contraire
le nom de la connexion et le nom du système AS/400 à connecter (hôte)
le type de système (ici iSeries)
votre ID utilisateur
Une description pour cette connexion.

vous remarquerez les propriétés de cette connexion dans la fenêtre basse à gauche

, cette fenêtre affiche toujours les propriétés de l' élément actif.

Vous voyez alors dans la partie haute, nommée "systèmes distants" ce que WDSc appelle des sous-systèmes (rien avoir avec les objets *SBSD).

Objets ISeries, vous permet de créer des filtres (des listes à produire) dans la branche QSYS
Commandes iseries, permet de mémoriser et de passer des commandes.
Travaux iseries affiche vos travaux (très pratique pour le debug)
Fichiers IFS, vous affiche vos fichiers (toujours sur AS/400) hors QSYS.

Sur chacun d'entre eux vous pourrez paramétrer votre connexion à l'AS/400

Particulièrement :

la liste de bibliothèques à mettre en place (Addlible)
la bibliothqèue en cours (bib de création par défaut)
une commande à lancer à la connexion

Cliquons sur Objets Iseries

Vos bibliothèques...
crée un filtre sur un nom (ou début de nom) de bibliothèque.
Vos objets...
un filtre sur un nom (ou un nom gen* ou *ALL) d'objet dans une bibliothèque
Vos membres...
un filtre basé sur un nom de membre dans un fichier source.
Liste de bibliothèques permet de travailler à partir de *LIBL

• Filtre de bibliothèques

nom du filtre : nom mnémonique à afficher
Chaînes de filtrage, chaîne de caractères permettant à RSE de constituer la liste à afficher
le bouton ajouter, permettant de mémoriser une chaine supplémentaire dans le filtre

la grande différence par rapport à PDM, c'est que vous pouvez mémoriser plusieurs chaines consécutives.

toutes les bibliothèques commencant par PAI (PAI*) et celles commencant par CPTA (CPTA*), etc ...

Le filtre est ajouté :
et à la première utilisation, il faut vous signer (l'utilisateur est déja renseigné en fonction de la connexion)

Voilà le résultat , remarquez la hiérarchie biliothèque/objets/membres

• Un filtre Objets

si vous indiquez *LIBL *USRLIBL ou *ALLUSR,

vous pourrez parcourir avec le bouton situé à droite :

sur la fenêtre de conception du filtre, vous pouvez aussi être sélectif sur le nom de l'objet (ou nom générique)
et sur le couple type / attribut :

• Un filtre Membres

en cliquant sur Ajouter, vous retrouverez les différents critères possibles pour un membre source :
(y compris des filtres sur les types de membre)

Résultat (tous les membres source des fichiers Q* de FORMATION9)

• enfin l'option Liste de bibliothèques vous permet de travailler à partir de *LIBL
tout en offrant la possibilité de descendre au niveau objet puis membre :

Vous pouvez aussi passer directement des commandes OS/400, en utilisant la fenêtre Commandes :

tapez votre commande dans la zone de saisie :

les messages seront affichés dans la partie principale, suite à l'exécution :

Pour chaque élément, vous remarquerez la fenêtre propriétés :
(ici l'élement actif est une bibliothèque, contenant 99 objets)

Sur chaque élément, un menu contextuel est proposé( avec un click droit)

Sur une biblitohèque :

Nouveau : création d'un fichier source
afficher dans une table : afficher une liste (ici d'objets)

ces fenêtres peuvent être déplacées, de manière flottante :

ou au contraire en superposition (cela génère alors un nouvel onglet en bas du cadre)

pour revenir à l'affichage par défaut :

, il faut ensuite confirmer.

Retournons au menu contextuel :

sur un objet simple

l'option propriété affiche l'équivalent de la commande DSPOBJD :

le texte est modifiable (CHGOBJD)

ATTENTION; il faut cliquer sur extraire les propriétés

infos disque, donne les informations de taille et de sauvegarde.

Infos source et service, les coordonnéees source et le niveau de compilateur, quand cela est possible.(pgm, etc...)
sur une commande
sur un programme
sur un fichier

Liste des zones :

ici un fichier physique ou TABLE SQL	ici un DSPF.

A NOTER que pour les DSPF, l'arboresence (de l'objet) affiche aussi la liste des formats et des zones :

et dans la fenêtre propiétés, le détail d'une zone

enfin, sur un membre source
(ici un DSPF)

Editer un membre source

pour éditer un membre source, pointez votre source dans l'arborescence et choisissez :

LPEX, éditeur interne à WDSc
(gère mieux le CL)
CODE/400, éditeur externe et plus ancien.plus puissant pour le RPG et les PRTF/DSPF, mais
gère mal les CLP et les Commandes.

regardons le fonctionnement de LPEX :

il affiche une colorisation syntaxique et fonctionne (par défaut) comme SEU. [voyez Fenêtre/Préférence/LPEX editor]

les ordres admis sont I (insertion) D (suppression), C (copie), M (move) et A/B (After/Before) , etc..

, ce qui donne

• Pour vous déplacer, vous pouvez utiliser :

le déplacement curseur
les touches pages suivante/page précédente
la touche Fin (fin de ligne) et Origine (début de ligne)
Ctrl + Fin (fin de document) / Ctrl + Origine (début de document)
la tabulation
- sur un langage en format libre, cela vous décale de 10 caractères.
- mais pour un langage colonné (SDD, RPG) la tabulation tiens compte des colonnes :
Vous pourrez aussi utiliser la ligne de commande interne à LPEX en appuyant sur ECHAP :
- add n ajoute n lignes à la position curseur
- locate line nn, positionne à la ligne n° nn
- etc ...

• F4 affiche l'invite, c'est à dire une aide à la saisie (ici sur du RPG4)

et fonctionne aussi avec du CL, par exemple : F4 sur une commande DCL dans un CLP

il s'agit d'une classe JAVA (la même que sous Operation Navigator) qui utilise une API OS/400 retournant la description de la commande au format XML (voir QCDRCMDDD sur Information Center).

Dans l'editeur remarquez en haut , la première ligne de la fenêtre d'édition

qui vous indique :

la position du curseur
si vous êtes en mode refrappe (Ecrasement) ou Insertion.
le nombre de modifications effectuées.

Chaque modification peut être annulée par CTRL+Z.

Le menu Edition propose (en plus des traditionnels CTRL+C / CTRL+V et CTRL+X .) :

Recherche et remplacement (CTRL+F)
Recherche multi-membres (CTRL+H)
sur les membre sources OUVERTS !
Sélection de la totalité du source (CTRL+A)
Sélection avancée

Exemple de sélection d'un rectangle:

vous pouvez ensuite :

un doucle click sur un mot, sélectionne le mot en question :

• recherche par CTRL+F (échap. efface cette fenêtre) :

remarquez la case Expression régulière , qui permet des recherches avancées (comme sur Unix).

• recherche par CTRL+H (sur les membres ouverts)

la fenêtre suivantes s'affiche dans la zone de contrôle (en bas à droite)

Remarquez les flèches

, permettant de passer d'une occurence à l'autre dans l'éditeur.

• et enfin, les options de comparaison :

choisissez "Editer/Comparaison" :

(dans notre exemple, nous visualisons un TP donné aux stagiaires, quelques lignes sont à remplir)

puis sélectionnez le membre source à comparer

(le source choisi est le corrigé)

les différences sont alors affichées :

les lignes identiques sont affichées normalement (sur fond blanc)
en jaunes les lignes (modifiables) du source actuel non présentes dans le source comparé (le TP, donc).
en rouges (non modifiables et sans n° de ligne) les lignes sources du fichier comparé (le corrigé !).

pour passer d'une différence à l'autre :

L'option effacer, reviens à l'affichage du premier source uniquement.

Compiler un membre source

pour compiler un membre source, utilisez l'option suivante (toujours click droit)

un DSPF (un seul choix)

Un SQLRPGLE (choix multiples)

Gérer les commandes, permet de gérer la liste des commandes associées à un type de source

Si vous choisissez Compiler (et non Compilation sans invite)

Option *EVENTF, va générer un évenement (une notion purement CODE/400 reportée à WDSc) afin de prevenir le produit que la compilation est terminée (elle est soumie par défaut) . Vous verrez alors :

puis dans les fenêtres basses :

le message d'erreur si la commande n'a pas aboutie

ainsi que la liste détaillée des erreurs

Un double click sur l'une des erreurs, lance LPEX et affiche l'erreur dans son contexte.

enfin, si la compil. se passe bien vous verrez :

Une fenêtre vide

OU la liste des messages d'info.

Pour terminer, la notion de Projet Iseries.

il s'agit d'un projet au sens ECLIPSE du mot.

Bénéficiant de sa propre perspective.
Les sources étant stockés localement
Pouvant faire l'objet d'une synchronisation dans le cadre d'un travail en équipe : il vous faut un produit additionnel.
(pour gérer les versions, utilisez CVS , par exemple)
Les éléments seront transférés sur votre AS/400 suivant une technique de "push" (c'est vous qui décidez du transfert).
Vous pouvez associer au projet une commande de reconstruction (compilation globale).

Choisissez Nouveau/ Projet ..

indiquez un nom et une bibliothèque sur le serveur,

puis un système (en choisissant un nom de connexion),

enfin une commande de création
(laissez à blanc, si vous n'en avez pas)

vous pouvez créer un fichier source par Nouveau / fichier source iseries, cela va créer un répertoire local qui deviendra un fichier source sur l'AS/400 au prochain "push", ou bien importer un fichier source existant :

ce qui nous affiche :

pour transférer un source sur l'AS/400 (push)

Autre solution pour travailler, demander à voir les membres sources distants en cliquant sur le projet,

indique un source présent localement et sur le serveur
indique un source local uniquement
représente un source présent uniquement sur le serveur.

vous pouvez alors demander son transfert local :

Utiliser WEBFACING

Le produit WEBFACING a été profondement modifié en V5R20.

Il est intégéré à WDS client.
il supporte les menus et les aides au format UIM.
il fonctionne avec W.A.S ET TOMCAT (nous utiliserons Apache/TOMCAT pour ce cours)

Commencons par configurer un serveur Apache standard.

démarrer l'instance d'administration par STRTCPSVR SERVER(*HTTP) HTTPSVR(*ADMIN)

puis lancer votre navigateur et saisissez comme URL ;http://votre-as400:2001/HTTPAdmin

SIGNEZ VOUS AVEC UN PROFIL AVEC LES DROITS *IOSYSCFG et choisissez Create new http Server

cliuqez sur Next et nommez votre instance de serveur (ce que vous voulez)

Indiquez NO à la question vouslez vous travialler en copie d'une configuration existante.

laissez le configuration dans /www/votre-nom

et les pages html dans htdocs

indiquez si le serveur doit être à l'"coute sur toutes vos adresses IP (si c'est votre premier serveur http)

ou sur une adresse particulière (vous faites un 2ème serveur dédidé à webfacing)

demandez la production de log (par défaut)

et confirmez la création.

on vous affiche alors :

démarrer votre serveur en cliquant sur la flèche verte (en haut à gauche), cela doit vous afficher :

ensuite, testez le par http://adresse-ipd'écoute

vous devez voir ce qui suit :

TOMCAT : (toujurs avec le serveur d'administration), demandez la configuration de TOMCAT, ICI !

ce qui vous affiche:

cliquez sur next.

laissez cette case cochée, cliquez sur next

et indiquez que vous souhaitez les deux exemples (servlet et page JSP)

confirmez, on doit vous afficher un écran récapitulatif :

relancez votre serveur et testez :

la servlet calc

la page JSP

vous devez avoir maintenant cette arborescence sur le serveur :

Projet WEBFACING :

lancez WDSc, faites fichier/nouveau/autre... et indiquez un projet WEBFACING

donnez un nom au projet :

sur cet écran, renseignez le nom de votre bibliothèque source et cliquez sur

Regénérer la liste DDS.

Choisissez ensuite la série de DSPF à convertir :

indiquez ici, la liste de pannel group (aides au format UIM) à convertir (en pages HTML)

donnez la commande permettant de lancer l'applicatif :

n'oubliez pas d'utiliser le bouton ajouter !

choisissez un style

Et CONVERTISSEZ :

vérifiez ensuite les message d'anomalie (MOTS-CLÉS non supportés)

ainsi que la présence d'un répertoire par DSPF dans le projet :

l'onglet navigateur (dans la même fenêtre) parmet de voir l'arborescence réelle (celle à exporter sur l'AS/400)

pour un premier test, placez vous sur le document index.html et cliquez avec le bouton droit.

choisissez ensuite exécuter sur le serveur.

cela va

ouvrir une nouvelle perspective WDSc (une perspective est un agencement des fenêtres du produit en fonction de travail à accomplir)
cette nouvelle perscpective s'appelle SERVEUR et permet de supperviser le serveur d'application local
lancer le serveur W.A.S 4.0 livré avec WDSc (attention à la mémoire [512 Mo recommandée] et donc aux termps de réponse.)
puis, ouvrir une fenêtre navigateur dans laquelle sera affichée la page index.html

Pour continuer ce test (facultatif) nous devons paramétrer WAS 4, pour cela, arréter le :

(onglet serveur) dans la fenêtre basse :

Sur la ligne Environnement de test Websphere , double-cliquez pour ouvrir le ficher de configuration

et Ajoutez dans l'onglet environnement client.encoding.override = UTF-8 (Webfacing travaille en UNICODE)

, sauvegardez.

puis, même chose sur la ligne Websphere Administrative Domain

indiquez visibilité du module à MODULE (et non APPLICATION),
sinon WAS ne pourra pas travailler avec deux projets WEBFACING en même temps