compile-option 1 *NONE 1
compile-string-constant
concurrent-access-option 1 *CURCMT 1 *WAIT 1 *DFT