QGPL　や　QGPLTEMP　を使って、ただし複数のほかのユーザーと
バッティングしないように　ALCOBJ　*EXCLUDE　で他のユーザーからの
使用を一時的に排他制御してはどうでしょうか　?。