Display Database informations

BoTTom |
             CMD        PROMPT('Dsp Database infos.')
             PARM       KWD(FILE) TYPE(Q1) MIN(1) PROMPT('Fichier +
                          Base de données')
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*CURLIB)) PROMPT('Bibliothèque')




©AF400