avec qual

BoTTom |
             CMD        PROMPT('list de fichier')
             PARM       KWD(FICHIER) TYPE(ETIQ) MIN(1) +
                          PROMPT('fichier a lister')
 
 ETIQ:       QUAL       TYPE(*NAME) RSTD(*NO) MIN(1)
             QUAL       TYPE(*CHAR) LEN(10) RSTD(*NO) DFT(*LIBL) +
                          MIN(0) PROMPT('bibliotheque')
             PARM       KWD(MEMBRE) TYPE(*CHAR) LEN(10) +
                          DFT(*PREMIER) SPCVAL((*PREMIER *FIRST)) +
                          PROMPT('membre a lister')
             PARM       KWD(FORMAT) TYPE(*CHAR) LEN(10) RSTD(*YES) +
                          DFT(*CARACT) SPCVAL((*CARACT *CHAR) (*HEXA +
                          *HEX)) PROMPT('format impres(*char *hexa)')




©AF400