*DECK CODE                                                              000610
          IDENT  CODE                                                   000620
*CALL COMCODE                                                           000630
