Exemple de menu créé sous SDA.

Ecran du menu

MNUATT Menu d'assistance développeur 17/01/97
QPGMR 17:25:00

Choisir une des options suivantes :

1. Spoules
2. Travaux
3. Query
4. Messages
5. Ligne de Commande
6. Menu Programmeur
7. Gestion Membres
8. Gestion Objets
9. Envoi d'un Message
20. Query simplifié (DSPDBF)
21. Description fichier (DESCFIC)
22. Glossaire des fichiers(EDTFIC)
23. Source RPG indenté
90. Fin de session
Option ou commande
===>________________________________________________________________________
F3=Exit F4=Invite F9=Rappel F12=Annuler
F13=Informations techniques F16=Menu principal AS/400

Commandes AS/400 rattachées aux options du menu

1 WRKSPLF
2 WRKSBMJOB *USER
3 WRKQRY
4 DSPMSG
5 CALL QCMD
6 STRPGMMNU
7 STRPDM
8 WRKOBJPDM ??OBJ(*ALL) ??LIB(*PRV) ??OBJTYPE(*ALL) ??OBJATR(*ALL)
9 CALL QSYS/QEZSNDMG
20 DEVOBJ/DSPDBF ??FILE() ??OUTPUT(*) ??RCDSLT(*YES) ??MBR(*FIRST)
21 DEVOBJ/DESCFIC ??NOMFIC() ??NOMBIB(*LIBL) ??OUTPUT(*)
22 DEVOBJ/EDTFIC ??NOMBIB() ??TYPFIC(*ALL)
23 PRTRPG ??SRCMBR() ??SRCFILE(*LIBL/QRPGSRC)
90 SIGNOFF

Print Friendly, PDF & Email