*DECK LISTCMP 
          IDENT  LSTCMP1
'<DEF>?    SET    1 
*CALL  AAMCOMCMP
          END 
