Menu personalisé à créer par UIM (MENUUIM)

BoTTom |
.* ----------------------------------------------------------------- *
.*                                                                   *
.*  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.
Voir le source UIM de ce menu :EHELP. .* ----------------------------------------------------------------- .* Fin du programme .* ----------------------------------------------------------------- :EPNLGRP.








©AF400