ROLLUP:     CMD        PROMPT('Roll up')                                       
                                                                                
             PARM       KWD(LINES) TYPE(*INT4) DFT(*DFT) RANGE(1 27) +          
                          SPCVAL((*DFT 1) (*SCREEN 99) (*DATA 98)) +            
                          EXPR(*YES) PROMPT('Lines to roll')                    
                                                                                
             PARM       KWD(TOP) TYPE(*INT4) DFT(*DFT) RANGE(1 27) +            
                          SPCVAL((*TOP 1) (*BOTTOM 99) (*DFT 98)) +             
                          EXPR(*YES) PROMPT('Top of roll area')                 
                                                                                
             PARM       KWD(BOTTOM) TYPE(*INT4) DFT(*DFT) RANGE(1 +             
                          27) SPCVAL((*DFT 1) (*BOTTOM 99) (*DATA +             
                          98)) EXPR(*YES) PROMPT('Bottom of roll area')         
                                                                                
             PARM       KWD(CTLOPT) TYPE(*CHAR) LEN(10) DFT(*DFT) +             
                          EXPR(*YES) PROMPT('Control option')