*DECK CBRDSC
          IDENT  CBRDSC 
*CALL COMCBRSC
