             CMD        PROMPT('Format RPG/Free source member')                 
                                                                                
             PARM       KWD(FILE) TYPE(Q1) PROMPT('RPG source file')            
 Q1:         QUAL       TYPE(*NAME) DFT(QRPGLESRC)                              
             QUAL       TYPE(*CHAR) LEN(10) DFT(*LIBL) +                        
                          PROMPT('Library name')                                
             PARM       KWD(MBR) TYPE(*NAME) DFT(*FIRST) +                      
                          SPCVAL((*FIRST *FIRST)) PROMPT('Member name')         
             PARM       KWD(STARTPOS) TYPE(*DEC) LEN(2) DFT(8) +                
                          RANGE(8 20) PROMPT('Starting indent +                 
                          position')                                            
             PARM       KWD(INCR) TYPE(*DEC) LEN(2) DFT(3) RANGE(1 +            
                          6) PROMPT('Increment')                                
             PARM       KWD(LINENO) TYPE(*CHAR) LEN(4) RSTD(*YES) +             
                          DFT(*YES) VALUES(*YES *NO) PROMPT('Show +             
                          starting line # on ENDxx')                            
