.* ----------------------------------------------------------------- * .* * .* Squelette pour création d'un menu UIM * .* * .* Prévoit: * .* 10 options pour le menu avec leur aide spécifique * .* Vous pouvez mettre plus de dix options mais si vous * .* dépassez 17 il vous faudra changer SCROLL=NO en SCROLL=YES * .* des touches de fonctions sont prédéfinis mais d'autres * .* pourront être ajoutées. * .* * .* COPY$ pour COPYRIGHT * .* OPTn$ Pour les options * .* AIDn$ Pour les aides * .* * .* * .* * .* * .* * .* ----------------------------------------------------------------- * :PNLGRP SCHIDX=qhss1. .* ----------------------------------------------------------------- .* Copyright affiché pour le premier affichage .* ----------------------------------------------------------------- :COPYR. <texte du copy 1992 1993.> .* .* ----------------------------------------------------------------- .* UIM Z-variable utilisé pour identifier le panel de groupe .* ----------------------------------------------------------------- :VAR NAME=ZMENU. .* .* ----------------------------------------------------------------- .* Definition des touches de fonctions du menu .* ----------------------------------------------------------------- :KEYL NAME=menukeys HELP=keyl. :KEYI KEY=F1 HELP=helpf1 ACTION=HELP. :KEYI KEY=F3 HELP=exit ACTION='EXIT SET' VARUPD=NO. |
F3=Exit :KEYI KEY=F4 HELP=prompt ACTION=PROMPT. F4=Invite :KEYI KEY=F9 HELP=retrieve ACTION=RETRIEVE. F9=Rappel :KEYI KEY=F12 HELP=cancel ACTION='CANCEL SET' VARUPD=NO. :KEYI KEY=F24 HELP=morekeys ACTION=MOREKEYS. F24=Autres touches :KEYI KEY=ENTER HELP=enter ACTION=ENTER. :KEYI KEY=HELP HELP=help ACTION=HELP. :KEYI KEY=HOME HELP=home ACTION=HOME. :KEYI KEY=PAGEDOWN HELP=pagedown ACTION=PAGEDOWN. :KEYI KEY=PAGEUP HELP=pageup ACTION=PAGEUP. :KEYI KEY=PRINT HELP=print ACTION=PRINT. :EKEYL. .* .* ----------------------------------------------------------------- .* Définition du menu .* ----------------------------------------------------------------- :PANEL NAME=xmpmenu HELP='menu/help' KEYL=menukeys ENTER='MSG CPD9817 QCPFMSG' |
PANELID=ZMENU TOPSEP=SYSNAM. Menu UIM AF400 .* .* ------------------------------------- .* Definir l'espace du menu .* ------------------------------------- :MENU DEPTH='*' SCROLL=NO BOTSEP=SPACE. :TOPINST.Sélectionnez une des options suivantes: .* ------------------------------------------------------------------ * .* * .* Action éffectué par chaque OPTION * .* * .* -------------------------------------------------------------------* .* ------------------------------------------------------------------ * .* Option 1 $OPT1 * .* -------------------------------------------------------------------* :MENUI OPTION=1 ACTION='CMD SLTAF4' HELP='menu/option1'. Sélection AF400 .* ------------------------------------------------------------------ * .* Option 2 $OPT2 * .* -------------------------------------------------------------------* :MENUI OPTION=2 ACTION='CMD WRKSPLF' HELP='menu/option2'. Vos spool .* ------------------------------------------------------------------ * .* Option 3 $OPT3 * .* -------------------------------------------------------------------* :MENUI OPTION=3 ACTION='CMD WRKSBMJOB' HELP='menu/option3'. Travaux soumis .* ------------------------------------------------------------------ * .* Option 4 $OPT4 * .* -------------------------------------------------------------------* :MENUI OPTION=4 ACTION='CMD ?DSPMSG' HELP='menu/option4'. Vos messages |
.* ------------------------------------------------------------------ * .* Option 5 $OPT5 * .* -------------------------------------------------------------------* :MENUI OPTION=5 ACTION='CMD AF4TOOL/APIFMT' HELP='menu/option5'. Liste des formats API. .* ------------------------------------------------------------------ * .* Option 6 $OPT6 * .* -------------------------------------------------------------------* :MENUI OPTION=6 ACTION='CMD AF4TOOL/CHXCMD AF4TOOL/*ALL' HELP='menu/option6'. Liste des outils AF400 .* ------------------------------------------------------------------ * .* Option 7 $OPT7 * .* -------------------------------------------------------------------* :MENUI OPTION=7 ACTION='CMD AF4TOOL/TIME' HELP='menu/option7'. Heure .* ------------------------------------------------------------------ * .* Option 8 $OPT8 * .* -------------------------------------------------------------------* :MENUI OPTION=8 ACTION='MENU *LIBL/INFO' HELP='menu/option8'. Informations complémentaires .* ------------------------------------------------------------------ * .* Option 9 $OPT9 * .* -------------------------------------------------------------------* :MENUI OPTION=9 ACTION='CMD ? DSPHLP' HELP='menu/option9'. Affichage panneau d'aide .* ------------------------------------------------------------------ * .* Option 10 $OPT10 * .* -------------------------------------------------------------------* :MENUI OPTION=10 ACTION='CMD AUTREANIM menuuim AF4SRCT/DIVERS' HELP='menu/option10'. Source de ce menu .* :EMENU. |
.* .* ----------------------------------------------------------------- * .* permet d'utiliser une ligne de commande grand format * .* ----------------------------------------------------------------- * :CMDLINE SIZE=LONG. Sélection ou commande .* :EPANEL. .* .* ----------------------------------------------------------------- .* Definition des aides pour le menu .* ----------------------------------------------------------------- :HELP NAME=keyl. Aide pour les touches de fonction :XH3.Touches de fonction :EHELP. .* :HELP NAME=helpf1. :PARML. :PT.F1=Aide :PD. Informations complémentaires sur l'utilisation de cet écran ou sur les zones de cet écran. :EPARML. :EHELP. .* :HELP NAME=exit. :PARML. :PT.F3=Exit :PD. Arrêt de la tache en cours d'exécution et retour à la tache précédente. :EPARML. :EHELP. .* :HELP NAME=prompt. :PARML. :PT.F4=Invite :PD. Permet d'utiliser l'invite ou la sélection de commande. :EPARML. :EHELP. .* :HELP NAME=retrieve. :PARML. |
:PT.F9=Rappel :PD. Affiche la dernière commande que vous avez entré avec les paramètres que vous avez choisi. Si vous appuyez a nouveau sur la touche vous aurez la commande précédente et ainsi de suite. :EPARML. :EHELP. .* :HELP NAME=cancel. :PARML. :PT.F12=Retour :PD. Retourne a l'écran précédent. :EPARML. :EHELP. .* :HELP NAME=morekeys. :PARML. :PT.F24=Autres touches :PD. Permet d'afficher les autres touches de fonction disponibles. :EPARML. :EHELP. .* :HELP NAME=enter. :PARML. :PT.ENTRER :PD. Permet de valider une saisie. :EPARML. :EHELP. .* :HELP NAME=help. :PARML. :PT.Help :PD. Permet d'afficher l'aide concernant le menu ou une option du menu. :EPARML. :EHELP. .* :HELP NAME=home. :PARML. :PT.Home :PD. |
Pour avoir ce menu comme menu initial placer le dans votre profil dans le paramètre INLMNU( ). :EPARML. :EHELP. .* :HELP NAME=pagedown. :PARML. :PT.Page Down (Roll Up) :PD. Affiche la page suivante des options du menu. :EPARML. :EHELP. .* :HELP NAME=pageup. :PARML. :PT.Page Up (Roll Down) :PD. Affiche la page précédente des options du menu. :EPARML. :EHELP. .* :HELP NAME=print. :PARML. :PT.Print :PD. Imprime les informations affichées sur l'écran. :EPARML. :EHELP. .* :HELP NAME='menu/help'. Aide du menu. :P. Aide sur l'utilisation du menu. :XH3. Comment utiliser ce menu: :P. Pour sélectionner une option entrez le numéro de l'option et appuyez sur entrer. :P. Pour lancer une commande Tapez la commande et appuyer sur entrer, si vous désirez l'invite, appuyer sur la touche de fonction F4 (Invite). Vous pouvez de l'aide par la touche de fonction F1 ou HELP . vous pouvez rappeler une commande en appuyante sur F9 (Rappel). :EHELP. |
.* ------------------------------------------------------------------ * .* Option 1 $AID1 * .* -------------------------------------------------------------------* :HELP NAME='menu/option1'. Option 1 - Aide :XH3.Option 1. :P. Sélection AF400 :EHELP. .* ------------------------------------------------------------------ * .* Option 2 $AID2 * .* -------------------------------------------------------------------* :HELP NAME='menu/option2'. Option 2 - Aide :XH3.Option 2. :P. Voir vos spool :EHELP. .* ------------------------------------------------------------------ * .* Option 3 $AID3 * .* -------------------------------------------------------------------* :HELP NAME='menu/option3'. Option 3 - Aide :XH3.Option 3. :P. Travaux soumis. :EHELP. .* ------------------------------------------------------------------ * .* Option 4 $AID4 * .* -------------------------------------------------------------------* :HELP NAME='menu/option4'. Option 4 - Aide :XH3.Option 4. :P. Voir vos messages :EHELP. .* ------------------------------------------------------------------ * .* Option 5 $AID5 * .* -------------------------------------------------------------------* :HELP NAME='menu/option5'. Option 5 - Aide :XH3.Option 5. :P. Liste formats des structures API |
:EHELP. .* ------------------------------------------------------------------ * .* Option 6 $AID6 * .* -------------------------------------------------------------------* :HELP NAME='menu/option6'. Option 6 - Aide :XH3.Option 6. :P. Liste les outils AF400 :EHELP. .* ------------------------------------------------------------------ * .* Option 7 $AID7 * .* -------------------------------------------------------------------* :HELP NAME='menu/option7'. Option 7 - Aide :XH3.Option 7. :P. Informations complémentaires :EHELP. .* ------------------------------------------------------------------ * .* Option 8 $AID8 * .* -------------------------------------------------------------------* :HELP NAME='menu/option8'. Option 8 - Aide :XH3.Option 8. :P. Affiche date et heure :EHELP. .* ------------------------------------------------------------------ * .* Option 9 $AID9 * .* -------------------------------------------------------------------* :HELP NAME='menu/option9'. Option 9 - Aide :XH3.Option 9. :P. Visualiser un panneau d'aide :EHELP. .* ------------------------------------------------------------------ * .* Option 10 $AID10 * .* -------------------------------------------------------------------* :HELP NAME='menu/option10'. Option 10 - Aide :XH3.Option 10. :P. |