*DECK CBRDSC                                                            001080
          IDENT  CBRDSC                                                 001090
*CALL COMCBRSC                                                          001100
