Affichage de panneaux d'aide UIM

BoTTom |
             CMD        PROMPT('Affichage d''aide')
             PARM       KWD(AIDE) TYPE(E1) MIN(1) MAX(25) +
                          PROMPT('Identifiants des aides')
     E1:      ELEM       TYPE(Q1) MIN(1) PROMPT('Pannel groupe')
              ELEM       TYPE(*CHAR) LEN(32) MIN(1) PROMPT('Module +
                          d''aide')
     Q1:       QUAL       TYPE(*NAME) MIN(1)
               QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliotheque')
 
             PARM       KWD(RANGE) TYPE(E2) PROMPT('Aide à afficher')
     E2:      ELEM       TYPE(*INT4) DFT(*FIRST) REL(*GT 0) +
                          SPCVAL((*FIRST 1)) PROMPT('1 er aide')
              ELEM       TYPE(*INT4) DFT(*LAST) REL(*GT 0) +
                          SPCVAL((*LAST 0)) PROMPT('Dernier aide')
 
             PARM       KWD(TITRE) TYPE(*CHAR) LEN(55) DFT(*BLANK) +
                          SPCVAL((*BLANK ' ')) PROMPT('Titre à +
                          afficher')
 
             PARM       KWD(SCHIDX) TYPE(Q2) PROMPT('Index de +
                          recherche')
     Q2:      QUAL       TYPE(*NAME) DFT(*NONE)
              QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliotheque')
 
             PARM       KWD(PLEINECRAN) TYPE(*CHAR) LEN(1) +
                          RSTD(*YES) DFT(*NO) SPCVAL((*YES Y) (*NO +
                          N)) PROMPT('Affichage plein écran')
 
             PARM       KWD(CURSEUR) TYPE(E3) PROMPT('Position +
                          curseur avant aide')
     E3:      ELEM       TYPE(*INT4) DFT(1) RANGE(1 24) PROMPT('N° +
                          ligne')
              ELEM       TYPE(*INT4) DFT(1) RANGE(1 80) PROMPT('N° +
                          colonne')
 
             PARM       KWD(FENETRE) TYPE(E4) PMTCTL(CTL1) +
                          PROMPT('fenetre logique concernée/aide')
     E4:      ELEM       TYPE(*INT4) DFT(01) RANGE(1 24) PROMPT('N° +
                          ligne angle sup gauche')
              ELEM       TYPE(*INT4) DFT(01) RANGE(1 80) PROMPT('N° +
                          colonne angle sup gauche')
              ELEM       TYPE(*INT4) DFT(02) RANGE(1 24) PROMPT('N° +
                         ligne angle inf droit')               ELEM       TYPE(*INT4) DFT(80) RANGE(1 80) PROMPT('N° +                           colonne angle inf droit')    CTL1:       PMTCTL     CTL(PLEINECRAN) COND((*EQ 'N'))




©AF400