WRTDTA:     CMD        PROMPT('Write data to screen')                          
                                                                                
             PARM       KWD(DATA) TYPE(*CHAR) LEN(132) MIN(1) +                 
                          EXPR(*YES) CASE(*MIXED) PROMPT('Data to +             
                          write')                                               
                                                                                
             PARM       KWD(LENDTA) TYPE(*INT4) REL(*LE 132) MIN(1) +           
                          EXPR(*YES) PROMPT('Length of data')                   
                                                                                
             PARM       KWD(FLDID) TYPE(*INT4) EXPR(*YES) +                     
                          PROMPT('Field ID')                                    
                                                                                
             PARM       KWD(ROW) TYPE(*INT4) RANGE(1 27) +                      
                          SPCVAL((*TOP 1) (*BOTTOM 99)) EXPR(*YES) +            
                          PROMPT('Row')                                         
                                                                                
             PARM       KWD(COLUMN) TYPE(*INT4) RANGE(1 132) +                  
                          SPCVAL((*LEFT 1) (*RIGHT 999)) EXPR(*YES) +           
                          PROMPT('Column')                                      
                                                                                
             PARM       KWD(STRMATR) TYPE(*CHAR) LEN(1) DFT(*NORM) +            
                          SPCVAL((*NORM X'20') (*CS X'30') (*BL +               
                          X'28') (*UL X'24') (*HI X'22') (*RI +                 
                          X'21') (*ULHI X'26') (*ULRI X'25') (*HIRI +           
                          X'23')) EXPR(*YES) PROMPT('Mono display +             
                          start attribute')                                     
                                                                                
             PARM       KWD(ENDMATR) TYPE(*CHAR) LEN(1) DFT(*NORM) +            
                          SPCVAL((*NORM X'20') (*CS X'30') (*BL +               
                          X'28') (*UL X'24') (*HI X'22') (*RI +                 
                          X'21') (*ULHI X'26') (*ULRI X'25') (*HIRI +           
                          X'23')) EXPR(*YES) PROMPT('Mono display +             
                          end attribute')                                       
                                                                                
             PARM       KWD(STRCOLATR) TYPE(*CHAR) LEN(1) DFT(*NORM) +          
                          SPCVAL((*NORM X'20') (*CS X'30') (*BL +               
                          X'28') (*UL X'24') (*HI X'22') (*RI +                 
                          X'21') (*ULHI X'26') (*ULRI X'25') (*HIRI +           
                          X'23')) EXPR(*YES) PROMPT('Color display +            
                          start attribute')                                     
                                                                                
             PARM       KWD(ENDCOLATR) TYPE(*CHAR) LEN(1) DFT(*NORM) +          
                          SPCVAL((*NORM X'20') (*CS X'30') (*BL +               
                          X'28') (*UL X'24') (*HI X'22') (*RI +                 
                          X'21') (*ULHI X'26') (*ULRI X'25') (*HIRI +           
                          X'23')) EXPR(*YES) PROMPT('Color display +            
                          end attribute')                                       
                                                                                
             PARM       KWD(CTLOPT) TYPE(*CHAR) LEN(10) DFT(*DFT) +             
                          PROMPT('Control option')