CMD        PROMPT('Retrouve taille IFS')
 
             PARM       KWD(STMF) TYPE(*PNAME) LEN(256) MIN(1) +
                          EXPR(*YES) PROMPT('Fichier IFS')
             PARM       KWD(SIZE) TYPE(*DEC) LEN(15 0) RTNVAL(*YES) +
                          MIN(1) PROMPT('Taille retour (15 0)')