output to out.tmp.

for each book.
   delete book.
end.

create book.
book.isbn = 1.
book.book-title = "My book".
release book.

define buffer book1 for book.
define buffer book2 for book.

do transaction:
   def query q1 for book1 fields (isbn), book2 fields (isbn).
   open query q1 for each book1, each book2.
   get first q1.
   message "NOTHING NOTHING NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
   		message "NOTHING NOTHING NOTHING error".
   END CATCH.
end.

do transaction:
   def query q2 for book1 fields (isbn), book2 fields (isbn).
   open query q2 for each book1, each book2.
   get first q2 no-lock.
   message "NOTHING NOTHING NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING NOTHING NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q3 for book1 fields (isbn), book2 fields (isbn).
   open query q3 for each book1, each book2.
   get first q3 share-lock.
   message "NOTHING NOTHING SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING NOTHING SAHRE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q4 for book1 fields (isbn), book2 fields (isbn).
   open query q4 for each book1, each book2.
   get first q4 exclusive-lock.
   message "NOTHING NOTHING EXCLUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING NOTHING EXCLUSIVE-LOCK error".
   END CATCH.
end.


do transaction:
   def query q51 for book1 fields (isbn), book2 fields (isbn).
   open query q51 for each book1 no-lock, each book2.
   get first q51.
   message "NO-LOCK NOTHING NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK NOTHING NOTHING error".
   END CATCH.
end.

do transaction:
   def query q55 for book1 fields (isbn), book2 fields (isbn).
   open query q55 for each book1 no-lock, each book2.
   get first q55 no-lock.
   message "NO-LOCK NOTHING NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
      message "NO-LOCK NOTHING NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q5 for book1 fields (isbn), book2 fields (isbn).
   open query q5 for each book1 no-lock, each book2.
   get first q5 share-lock.
   message "NO-LOCK NOTHING SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK NOTHING SHARE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q6 for book1 fields (isbn), book2 fields (isbn).
   open query q6 for each book1 no-lock, each book2.
   get first q6 exclusive-lock.
   message "NO-LOCK NOTHING EXCLUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK NOTHING EXCLUSIVE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q7 for book1 fields (isbn), book2 fields (isbn).
   open query q7 for each book1, each book2 no-lock.
   get first q7.
   message "NOTHING NO-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING NO-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q9 for book1 fields (isbn), book2 fields (isbn).
   open query q9 for each book1, each book2 no-lock.
   get first q9 no-lock.
   message "NOTHING NO-LOCK NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING NO-LOCK NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q10 for book1 fields (isbn), book2 fields (isbn).
   open query q10 for each book1, each book2 no-lock.
   get first q10 share-lock.
   message "NOTHING NO-LOCK SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING NO-LOCK SHARE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q11 for book1 fields (isbn), book2 fields (isbn).
   open query q11 for each book1, each book2 no-lock.
   get first q11 exclusive-lock.
   message "NOTHING NO-LOCK EXCLUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING NO-LOCK EXCLUSIVE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q12 for book1 fields (isbn), book2 fields (isbn).
   open query q12 for each book1 no-lock, each book2 no-lock.
   get first q12.
   message "NO-LOCK NO-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK NO-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q13 for book1 fields (isbn), book2 fields (isbn).
   open query q13 for each book1 no-lock, each book2 no-lock.
   get first q13 no-lock.
   message "NO-LOCK NO-LOCK NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK NO-LOCK NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q14 for book1 fields (isbn), book2 fields (isbn).
   open query q14 for each book1 no-lock, each book2 no-lock.
   get first q14 share-lock.
   message "NO-LOCK NO-LOCK SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK NO-LOCK SHARE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q15 for book1 fields (isbn), book2 fields (isbn).
   open query q15 for each book1 no-lock, each book2 no-lock.
   get first q15 exclusive-lock.
   message "NO-LOCK NO-LOCK EXCLUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK NO-LOCK EXCLUSIVE-LOCK error".
   END CATCH.
end.

///////// SHARE-LOCK

do transaction:
   def query q16 for book1 fields (isbn), book2 fields (isbn).
   open query q16 for each book1 share-lock, each book2.
   get first q16.
   message "SHARE-LOCK NOTHING NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK NOTHING NOTHING error".
   END CATCH.
end.

do transaction:
   def query q17 for book1 fields (isbn), book2 fields (isbn).
   open query q17 for each book1 share-lock, each book2.
   get first q17 no-lock.
   message "SHARE-LOCK NOTHING NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK NOTHING NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q18 for book1 fields (isbn), book2 fields (isbn).
   open query q18 for each book1 share-lock, each book2.
   get first q18 share-lock.
   message "SHARE-LOCK NOTHING SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK NOTHING SHARE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q19 for book1 fields (isbn), book2 fields (isbn).
   open query q19 for each book1 share-lock, each book2.
   get first q19 exclusive-lock.
   message "SHARE-LOCK NOTHING EXCUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK NOTHING EXCUSIVE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q20 for book1 fields (isbn), book2 fields (isbn).
   open query q20 for each book1, each book2 share-lock.
   get first q20.
   message "NOTHING SHARE-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING SHARE-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q21 for book1 fields (isbn), book2 fields (isbn).
   open query q21 for each book1, each book2 share-lock.
   get first q21 no-lock.
   message "NOTHING SHARE-LOCK NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING SHARE-LOCK NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q57 for book1 fields (isbn), book2 fields (isbn).
   open query q57 for each book1, each book2 share-lock.
   get first q57 share-lock.
   message "NOTHING SHARE-LOCK SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING SHARE-LOCK SHARE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q23 for book1 fields (isbn), book2 fields (isbn).
   open query q23 for each book1, each book2 share-lock.
   get first q23 exclusive-lock.
   message "NOTHING SHARE-LOCK EXCLUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING SHARE-LOCK EXCLUSIVE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q24 for book1 fields (isbn), book2 fields (isbn).
   open query q24 for each book1 share-lock, each book2 share-lock.
   get first q24.
   message "SHARE-LOCK SHARE-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK SHARE-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q25 for book1 fields (isbn), book2 fields (isbn).
   open query q25 for each book1 share-lock, each book2 share-lock.
   get first q25 no-lock.
   message "SHARE-LOCK SHARE-LOCK NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK SHARE-LOCK NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q26 for book1 fields (isbn), book2 fields (isbn).
   open query q26 for each book1 share-lock, each book2 share-lock.
   get first q26 share-lock.
   message "SHARE-LOCK SHARE-LOCK SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK SHARE-LOCK SHARE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q27 for book1 fields (isbn), book2 fields (isbn).
   open query q27 for each book1 share-lock, each book2 share-lock.
   get first q27 exclusive-lock.
   message "SHARE-LOCK SHARE-LOCK EXCLUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK SHARE-LOCK EXCLUSIVE-LOCK error".
   END CATCH.
end.

///////////// EXCLUISVE-LOCK

do transaction:
   def query q28 for book1 fields (isbn), book2 fields (isbn).
   open query q28 for each book1 exclusive-lock, each book2.
   get first q28.
   message "EXCLUSIVE-LOCK NOTHING NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK NOTHING NOTHING error".
   END CATCH.
end.

do transaction:
   def query q29 for book1 fields (isbn), book2 fields (isbn).
   open query q29 for each book1 exclusive-lock, each book2.
   get first q29 no-lock.
   message "EXCLUSIVE-LOCK NOTHING NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK NOTHING NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q30 for book1 fields (isbn), book2 fields (isbn).
   open query q30 for each book1 exclusive-lock, each book2.
   get first q30 share-lock.
   message "EXCLUSIVE-LOCK NOTHING SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK NOTHING SHARE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q31 for book1 fields (isbn), book2 fields (isbn).
   open query q31 for each book1 exclusive-lock, each book2.
   get first q31 exclusive-lock.
   message "EXCLUSIVE-LOCK NOTHING EXCLUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK NOTHING EXCLUSIVE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q32 for book1 fields (isbn), book2 fields (isbn).
   open query q32 for each book1, each book2 exclusive-lock.
   get first q32.
   message "NOTHING EXCLUSIVE-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING EXCLUSIVE-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q33 for book1 fields (isbn), book2 fields (isbn).
   open query q33 for each book1, each book2 exclusive-lock.
   get first q33 no-lock.
   message "NOTHING EXCLUSIVE-LOCK NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING EXCLUSIVE-LOCK NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q34 for book1 fields (isbn), book2 fields (isbn).
   open query q34 for each book1, each book2 exclusive-lock.
   get first q34 share-lock.
   message "NOTHING EXCLUSIVE-LOCK SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING EXCLUSIVE-LOCK SHARE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q35 for book1 fields (isbn), book2 fields (isbn).
   open query q35 for each book1, each book2 exclusive-lock.
   get first q35 exclusive-lock.
   message "NOTHING EXCLUSIVE-LOCK EXCLUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NOTHING EXCLUSIVE-LOCK EXCLUSIVE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q36 for book1 fields (isbn), book2 fields (isbn).
   open query q36 for each book1 exclusive-lock, each book2 exclusive-lock.
   get first q36.
   message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q37 for book1 fields (isbn), book2 fields (isbn).
   open query q37 for each book1 exclusive-lock, each book2 exclusive-lock.
   get first q37 no-lock.
   message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK NO-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK NO-LOCK error".
   END CATCH.
end.

do transaction:
   def query q38 for book1 fields (isbn), book2 fields (isbn).
   open query q38 for each book1 exclusive-lock, each book2 exclusive-lock.
   get first q38 share-lock.
   message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK SHARE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK SHARE-LOCK error".
   END CATCH.
end.

do transaction:
   def query q40 for book1 fields (isbn), book2 fields (isbn).
   open query q40 for each book1 exclusive-lock, each book2 exclusive-lock.
   get first q40 exclusive-lock.
   message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK EXCLUSIVE-LOCK" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK EXCLUSIVE-LOCK error".
   END CATCH.
end.

/// NO-LOCK - REST

do transaction:
   def query q41 for book1 fields (isbn), book2 fields (isbn).
   open query q41 for each book1 no-lock, each book2 no-lock.
   get first q41.
   message "NO-LOCK NO-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK NO-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q42 for book1 fields (isbn), book2 fields (isbn).
   open query q42 for each book1 no-lock, each book2 share-lock.
   get first q42.
   message "NO-LOCK SHARE-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK SHARE-LOCK NOTHING error".
   END CATCH.
end.


do transaction:
   def query q43 for book1 fields (isbn), book2 fields (isbn).
   open query q43 for each book1 no-lock, each book2 exclusive-lock.
   get first q43.
   message "NO-LOCK EXCLUSIVE-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "NO-LOCK EXCLUSIVE-LOCK NOTHING error".
   END CATCH.
end.

////// SHARE-LOCK - THE REST

do transaction:
   def query q59 for book1 fields (isbn), book2 fields (isbn).
   open query q59 for each book1 share-lock, each book2 no-lock.
   get first q59.
   message "SHARE-LOCK NO-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK NO-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q60 for book1 fields (isbn), book2 fields (isbn).
   open query q60 for each book1 share-lock, each book2 share-lock.
   get first q60.
   message "SHARE-LOCK SHARE-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK SHARE-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q44 for book1 fields (isbn), book2 fields (isbn).
   open query q44 for each book1 share-lock, each book2 exclusive-lock.
   get first q44.
   message "SHARE-LOCK EXCLUSIVE-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "SHARE-LOCK EXCLUSIVE-LOCK NOTHING error".
   END CATCH.
end.

//// EXCLUSIVE-LOCK - REST

do transaction:
   def query q45 for book1 fields (isbn), book2 fields (isbn).
   open query q45 for each book1 exclusive-lock, each book2 no-lock.
   get first q45.
   message "EXCLUSIVE-LOCK NO-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK NO-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q46 for book1 fields (isbn), book2 fields (isbn).
   open query q46 for each book1 exclusive-lock, each book2 share-lock.
   get first q46.
   message "EXCLUSIVE-LOCK NO-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK SHARE-LOCK NOTHING error".
   END CATCH.
end.

do transaction:
   def query q47 for book1 fields (isbn), book2 fields (isbn).
   open query q47 for each book1 exclusive-lock, each book2 exclusive-lock.
   get first q47.
   message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK NOTHING" book1.book-title.
   
   CATCH err AS Progress.Lang.Error :
        message "EXCLUSIVE-LOCK EXCLUSIVE-LOCK NOTHING error".
   END CATCH.
end.

output close.