Editions ENI Livres | Vidéos | e-Formations
Les menus AS/400
Introduction
Les menus sont un moyen simple d’organiser les appels à différents programmes en les groupant sur un seul écran.
Cette partie est moins ardue. Les menus AS/400 sont d’une simplicité étonnante, de plus on ne peut quasiment que les réaliser au moyen de SDA qui est particulièrement bien adapté et soudainement très simple d’utilisation (après les sous-fichiers, tout paraît très simple).
Le menu du programmeur
Nous allons étudier en détail notre menu. Chacun ajoutera ou supprimera ce que bon lui semble et, sauf si quelqu’un ajoute la commande fatidique PWRDWNSYS, tout se passera bien.
Dans le fichier QMNUSRC, il faut créer un membre de type MNUDDS, touche [F6] et saisie des bons paramètres.
Cet écran représente ce qui existera une fois les trois menus créés.
Choisir l’option 17 (SDA) pour commencer la création du menu. Il s’agit en fait de saisir sur l’écran suivant tout ce qui devra être affiché et d’associer les commandes ou les programmes à appeler.
Cet écran sert essentiellement à réaliser la mise en page. Dans les premiers temps l’usage de la touche [F1] est hautement recommandée.
Quand on quitte l’éditeur, par défaut, la compilation est lancée et le programme remplacé.
Pour obtenir un peu plus de choix, il faut taper la commande suivante, puis [F4]. Cela permet entre autres de modifier la ligne de commande, notée par défaut option de commande :
CRTMNU MENU(TBIBPGM/PGMUDV) TYPE(*DSPF) Voici à quoi ressemble SDA lors de la conception des menus AS/400. Il faut remarquer l’option de commande ridicule qui par défaut ne permet pas de saisir grand-chose.
À la sortie de SDA et si l’on a choisi les options par défaut, on aura...
Le menu utilisateur et le menu système
Il n’y a rien de particulier à signaler, les sources parlent d’eux-mêmes, il y a simplement l’utilisation d’une commande particulière lorsqu’on veut lancer l’édition de la liste du personnel qui permet d’afficher directement un écran de sélection. Il faut passer un paramètre au programme, pour que l’utilisateur puisse choisir quel matricule il veut éditer.
0001.00 CMD PROMPT('Edition liste du personnel')
0002.00
0003.00 PARM KWD(MATR) TYPE(*CHAR) LEN(10) +
0004.00 RANGE('0000000001' '9999999999') MIN(0) +
0005.00 ALWUNPRT(*NO) ALWVAR(*NO) +
0006.00 CHOICE('Matricule ou totale') +
0007.00 PROMPT('Edition liste du personnel' 1)
*************** Fin des données ************************************* Exercice
Chacun s’entraînera à créer des menus, des commandes et voir les variations possibles.
Il a été évoqué la possibilité d’ajouter une aide aux commandes, c’est le moment ou jamais de voir si c’est possible (c’est possible) et comment faire.
Indice, dans le QPNLGRP penser à faire la référence correcte aux paramètres.
Pas de difficultés majeures à ce niveau. Disons que c’est le chapitre qui permet d’agencer et de présenter sous la forme la plus conviviale possible, du moins en terme AS/400, le fruit du travail bien accompli.
