LOOP
       BEGIN
       DBMS_AQ.DEQUEUE(
        queue_name         => 'XYZ',
        dequeue_options    => dequeue_options,
        message_properties => message_properties,
        payload            => message,
        msgid              => message_handle);
   /* Procedure INSERT invoked to insert data  */
       INSERTDAT(message.p1,message.p2);

       dequeue_options.navigation := DBMS_AQ.NEXT_MESSAGE;