CMD        PROMPT('Création d''un pgm MI')
             PARM       KWD(PGM) TYPE(Q1) MIN(1) PROMPT('Programe')
             PARM       KWD(SRCFILE) TYPE(Q2) MIN(1) PROMPT('Fichier +
                          source')
             PARM       KWD(SRCMBR) TYPE(*NAME) DFT(*PGM) +
                          SPCVAL((*PGM)) PROMPT('Membre source')
             PARM       KWD(TEXT) TYPE(*CHAR) LEN(50) +
                          DFT(*SRCMBRTXT) SPCVAL((*SRCMBRTXT) +
                          (*BLANK)) PROMPT('Texte du pgm')
             PARM       KWD(AUT) TYPE(*NAME) DFT(*EXCLUDE) +
                          SPCVAL((*EXCLUDE) (*CHANGE) (*USE) +
                          (*ALL)) PROMPT('Autorisations')
             PARM       KWD(GENOPT) TYPE(*CHAR) RSTD(*YES) +
                          SPCVAL((*NOREPLACE) (*REPLACE) (*NOLIST) +
                          (*LIST) (*NOXREF) (*XREF) (*NOATR) (*ATR) +
                          (*USER) (*ADOPT) (*OWNER) (*ADPAUT) +
                          (*NOADPAUT) (*SUBSCR) (*NOSUBSCR) +
                          (*UNCON) (*SUBSTR) (*NOSUBSTR) (*CLRPSSA) +
                          (*NOCLRPSSA) (*NOIGNDEC) (*IGNDEC) +
                          (*NOIGNBIN) (*IGNBIN) (*NOOVERLAP) +
                          (*OVERLAP) (*NODUP) (*DUP) (*OPT) +
                          (*NOOPT)) MAX(16) PROMPT('Options de +
                          génération')
 
 Q1:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*CURLIB) SPCVAL((*CURLIB)) +
                          PROMPT('Bibliotheque')
 Q2:         QUAL       TYPE(*NAME) MIN(1)
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
                          PROMPT('Bibliotheque source')