/*                                                                  */
/* Ajout des boucles Do dans un sources RPG                         */
/*                                                                  */
             CMD        PROMPT('Convert MBR TO HTML')
/* Membre                                                           */
             PARM       KWD(SRCMBR) TYPE(*NAME) MIN(1) +
                          PROMPT('Name of member')
/* Bibliothèque/fichier                                             */
             PARM       KWD(FROMFILE) TYPE(QUAL1) +
                          PROMPT('Source File')
 QUAL1:      QUAL       TYPE(*NAME) DFT(QTXTSRC)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL) +
                          (*CURLIB)) PROMPT('Library')
             PARM       KWD(TOFILE) TYPE(*NAME) LEN(32) DFT(*MBR) +
                          SPCVAL((*MBR)) PROMPT('Name of file HTML')
             PARM       KWD(TODIR) TYPE(*CHAR) LEN(40) DFT('/html') +
                          PROMPT('Directory')
             PARM       KWD(BCKGRD) TYPE(*NAME) LEN(8) DFT(*NONE) +
                          SPCVAL((*NONE ' ')) PMTCTL(*PMTRQS) +
                          PROMPT('Image pour Background')
             PARM       KWD(TOP) TYPE(*NAME) LEN(8) DFT(*NONE) +
                          SPCVAL((*NONE ' ')) PMTCTL(*PMTRQS) +
                          PROMPT('Image pour #TOP')
             PARM       KWD(BOT) TYPE(*NAME) LEN(8) DFT(*NONE) +
                          SPCVAL((*NONE ' ')) PMTCTL(*PMTRQS) +
                          PROMPT('Image pour #BOT')
             PARM       KWD(AF4DIR) TYPE(*CHAR) LEN(80) +
                          DFT('IMAGES') PMTCTL(*PMTRQS) +
                          PROMPT('Images AF400')