*DECK CMSLOV                                                             CMSLOV 
          IDENT  CMS.LOV                                                 CMSLOV 
                                                                         CMSLOV 
 ERRCK    EQU    1                                                       CMSLOV 
*CALL LOV                                                                CMSLOV 
          END                                                            CMSLOV 
