I           SDS                                                            
     I                                       91 170 MSGTXT                      
     C                     SETOF                     99                         
     C           KEY       CHAINFILE                 9990                       
     C           *IN90     IFEQ *ON                                             
     C                     MOVELMSGTXT    ERRMSG                                
     C                     END