BEGIN
      FOR MES_SLAB IN MES_SLABS
      LOOP
      BEGIN
        -- Код
      EXCEPTION
            WHEN OTHERS
            THEN
               DECLARE
                  ERROR_MESSAGE   NVARCHAR2 (2000) := SQLERRM;
               BEGIN
                  INSERT
                    INTO WMS_DATABASE_LOG (LOG_TYPE, SOURCE_NAME, MESSAGE)
                     VALUES (
                               'ERROR',
                               'PRC_COPY_SLABS_FROM_MES',
                                  'MSG_COUNTER: '
                               || MES_SLAB.MSG_COUNTER
                               || '. '
                               || ERROR_MESSAGE);

                  UPDATE MES_EVENT
                     SET MSG_STATUS =
                            MES_EXCHANGE_CONSTANTS.RECEIVER_ERROR_STATUS,
                         MOD_USER_ID = MES_EXCHANGE_CONSTANTS.WMS_USER_ID,
                         MOD_DATETIME = VAR_STATE_TIME,
                         MSG_REMARK = ERROR_MESSAGE
                   WHERE MSG_COUNTER = MES_SLAB.MSG_COUNTER;
               END;
         END;
         END LOOP;
   EXCEPTION
      WHEN OTHERS
      THEN
         DECLARE
            ERROR_MESSAGE   NVARCHAR2 (2000) := SQLERRM;
         BEGIN
            INSERT INTO WMS_DATABASE_LOG (LOG_TYPE, SOURCE_NAME, MESSAGE)
                 VALUES ('ERROR', 'PRC_COPY_SLABS_FROM_MES', ERROR_MESSAGE);
         END;
   END;