sqlrpgle でロックが解放されない

下記ブログの方法で解決しました。1437様ありがとうございました

 SQLRPGのプログラムにてプログラムが終了してもファイルのロックが開放されない現象がおこることがあります

strpdm 15CLOSQLCSR(*ENDMOD)でコンパイル

crtpgm で同名ファイルをACTGRP(*NEW)でコンパイルでロックされなくなりました

それよりも、14 CRTSQLRPGIでコンパイルする時、 
CLOSQLCSR      *ENDACTGRP ではなく
CLOSQLCSR      *ENDMOD でコンパイルするとロックされませんでした

コミットメント制御  . . . . . . COMMIT         *NONE     でコンパイルしています