今まで稼働していたアップロードPrgが無限ループ

Question

前提・実現したいこと

PowerBuilderで開発されたモジュールをWindowsタスクスケジュールにて実行運用。
2012より2018まで問題なく運用。
2018年末にエラー発生が発覚し、現在調査中。
ハンディターミナル（H/T）よりPCにて取り込んだデータをPC上のSQLserverに
蓄積している。（こちらはNoError）
別システムにて、WinServer2008上のPowerBuilderモジュールにてPC上のSQLserver
のデータを読込み、Oracle10GXeへ取り込む。
Oracle10GXeのワークテーブルへのアップデート時にエラーが発生していると推察。
前任者より引き継いだが、設計資料等無く、いろいろ試したが未だ解決せず。

発生している問題・エラーメッセージ

ハンド実行すると下記エラーがポップアップ表示されて終了。
「
PowerBuilder アプリケーションの実行エラー(R0002)
　アプリケーションは中断しました。
　エラー; Null オブジェクトの参照が行われました。イベント Clicked の 179行目
　（w_hdata_upload のオブジェクト cd_retrieve）
」
実運用ではWindowsタスクスケジュールにてバッチ起動。実行中のままフリーズ状態。

該当のソースコード

////////////////////////////////////////
// 照合用データベース接続
////////////////////////////////////////
SQLSHP = CREATE Transaction
 DISCONNECT USING SQLSHP;

SQLSHP.DBMS = "ODBC"
SQLSHP.AutoCommit = False
SQLSHP.DBParm = "ConnectString='DSN=SHP_DATA;UID=SHPUSR;PWD=SHPPASS',CommitOnDisconnect='No'"
CONNECT USING SQLSHP;
IF SQLSHP.SQLCode = -1 THEN 
	// 南館PCＧ繋がっていないため処理しない
	RETURN
END IF
////////////////////////////////////////
// オラクルDB接続
////////////////////////////////////////
DISCONNECT USING SQLCA;
// Profile sv03_mr
SQLCA.DBMS = "O10 Oracle10g (10.1.0)"
SQLCA.LogPass ="mr"
SQLCA.ServerName = "sv03"
SQLCA.LogId = "mr"
SQLCA.AutoCommit = False
SQLCA.DBParm = "CommitOnDisconnect='No',PBCatalogOwner='mr'"

CONNECT USING SQLCA;

IF SQLCA.SQLCode = -1 THEN 
	MessageBox("SQL エラー", SQLCA.SQLErrText)
END IF

////////////////////////////////////////
// アクセスのＭＤＢ接続（メイラ品番取得用）
////////////////////////////////////////
 SQLMDB = CREATE Transaction
 
 DISCONNECT USING SQLMDB;
 
 // Profile meiraitem
SQLMDB.DBMS = "ODBC"
SQLMDB.AutoCommit = False
SQLMDB.DBParm = "ConnectString='DSN=meiraitem;UID=;PWD=;,CommitOnDisconnect='No'"

CONNECT USING SQLMDB;

IF SQLMDB.SQLCode = -1 THEN 
	MessageBox("SQL エラー", SQLMDB.SQLErrText)
END IF

////////////////////////////////////////
// トレーサビリティポストグレスDB
// メタルワン12桁以上品番対応のためポスグレのデータを見る必要がある。
////////////////////////////////////////
 POSTGRES = CREATE Transaction
 
 DISCONNECT USING POSTGRES;
 
 // Profile meiraitem
POSTGRES.DBMS = "ODBC"
POSTGRES.AutoCommit = False
POSTGRES.DBParm = "ConnectString='DSN=sv03_maruichi;UID=maruichi;PWD=maruichi',CommitOnDisconnect='No'"

 // Profile meiraitem
"ConnectString='DSN=local_postgre_maruichi;UID=maruichi;PWD=maruichi',CommitOnDisconnect='No'"
//
CONNECT USING POSTGRES;
IF POSTGRES.SQLCode = -1 THEN 
	MessageBox("SQL エラー", POSTGRES.SQLErrText)
END IF
cb_retrieve.TriggerEvent(Clicked!)
String		ls_sql , ls_14digit_data , ls_base_data , ls_meira_itemno , ls_find , ls_data ,ls_posgre_sql , ls_fitemno ,  ls_hakkono
Long			ll_fseqno , ll_rows , ll_cnt , ll_cnt2 , ll_ins , ll_ret, ll_find
DateTime	ldt_pre_datetime
Int			li_ret
ds_base		lds_meraitem_to , lds_meiraitem_from , lds_upload_hst , lds_SHP_DATA , lds_work_table , lds_shp_data_list

//hpb_1.MaxPosition = 7 // 1つ増加させた

//*************************************
//		STEP 1.
// 	抽出対象取得
//*************************************
// 前回成功した日時
SELECT 処理開始日時 INTO :ldt_pre_datetime
FROM アップロード履歴
WHERE  連番 = (SELECT MAX(連番) 
							FROM アップロード履歴
						WHERE  実行結果 = 'C')
;

SELECT NVL(MAX(連番) ,0) INTO :ll_fseqno FROM アップロード履歴;

ll_fseqno++

// アップロード履歴F更新
// データストア作成
lds_upload_hst = CREATE ds_base
lds_upload_hst.DataObject = "d_upload_hst"
lds_upload_hst.SetTransObject(SQLCA)

lds_upload_hst.InsertRow(0)
lds_upload_hst.Object.連番[1]              = ll_fseqno
lds_upload_hst.Object.処理開始日時[1] = DateTime(Today(),Now())
lds_upload_hst.Object.実行結果[1]     = "E"
 
IF lds_upload_hst.Update() <> 1 THEN
	ROLLBACK;
	CLOSE(Parent)
	RETURN
END IF
	
COMMIT;
	
// 対象検索
lds_shp_data_list = CREATE ds_base
lds_shp_data_list.DataObject = "d_shp_targetlist"
lds_shp_data_list.SetTransObject(SQLSHP)
 
// 2014.03.12 Fujita 収集漏れがあったため一週間は遡る
ldt_pre_datetime = Datetime(RelativeDate(Date(ldt_pre_datetime),-7))
 
ls_sql = ""
ls_sql = "現品票チェック日付 >= " + String(ldt_pre_datetime,"YYYYMMDD")
ll_rows = lds_shp_data_list.uf_retrieve(ls_sql)
IF ll_rows = 0 THEN
	// 対象行がない場合は処理終了
	lds_upload_hst.uf_retrieve("連番=" + String(ll_fseqno))
	lds_upload_hst.Object.処理終了日時[1] = DateTime(Today(),Now())
	lds_upload_hst.Object.実行結果[1]     = "C"
	lds_upload_hst.Update()
	COMMIT;
	CLOSE(PARENT)
	RETURN
ELSEIF ll_rows < 0 THEN 
	// エラー
	lds_upload_hst.uf_retrieve("連番=" + String(ll_fseqno))
	lds_upload_hst.Object.処理終了日時[1] = DateTime(Today(),Now())
	lds_upload_hst.Object.実行結果[1]       = "E"
	lds_upload_hst.Object.エラー情報[1]     = "STEP1:検索できませんでした SQL:" + ls_sql
	lds_upload_hst.Update()
	COMMIT;
	CLOSE(PARENT)
	RETURN
END IF

hpb_1.Position = 1

↓%%%%%%%%%%%%%%該当ワークテーブルへの処理部分%%%%%%%%%%%%%%
//*************************************
//		STEP 3
//		ワークテーブルへインサート
//*************************************
DELETE FROM ワークテーブル;
IF SQLCA.SQLCode = -1 THEN 
	ROLLBACK;
	// エラー
	lds_upload_hst.uf_retrieve("連番=" + String(ll_fseqno))
	lds_upload_hst.Object.処理終了日時[1] = DateTime(Today(),Now())
	lds_upload_hst.Object.実行結果[1]       = "E"
	lds_upload_hst.Object.エラー情報[1]     = "STEP3:" + SQLCA.SQLErrText
	lds_upload_hst.Update()
	COMMIT;
	CLOSE(PARENT)
	RETURN
END IF

COMMIT;

lds_work_table = CREATE ds_base
lds_work_table.DataObject = "d_work_table"
lds_work_table.SetTransObject(SQLCA)


 // 対象検索用
 lds_SHP_DATA = CREATE ds_base
 lds_SHP_DATA.DataObject = "d_shp_data"
 lds_SHP_DATA.SetTransObject(SQLSHP)
 
 hpb_2.MaxPosition =  lds_shp_data_list.RowCount()
 
 FOR ll_cnt = 1 TO lds_shp_data_list.RowCount()
 	ls_sql = "現品票チェック日付 = '" + lds_shp_data_list.Object.現品票チェック日付[ll_cnt] + "'"
 	ll_ret = lds_SHP_DATA.uf_retrieve(ls_sql)
	
	lds_SHP_DATA.RowsCopy(1, lds_SHP_DATA.RowCount(), Primary!, lds_work_table, 1, Primary!)
	IF  lds_work_table.Update() < 0 THEN
		ROLLBACK;
		// エラー
		lds_upload_hst.uf_retrieve("連番=" + String(ll_fseqno))
		lds_upload_hst.Object.処理終了日時[1] = DateTime(Today(),Now())
		lds_upload_hst.Object.実行結果[1]       = "E"
		lds_upload_hst.Object.エラー情報[1]     = "STEP3:" + lds_meiraitem_from.is_err
		lds_upload_hst.Update()
		COMMIT;
		CLOSE(PARENT)
		RETURN
	END IF
	COMMIT;
	
	lds_work_table.Reset()
	 hpb_2.Position = ll_cnt
NEXT

IF IsValid(lds_work_table) THEN Destroy(lds_work_table)
hpb_1.Position = 3

//*************************************
//		STEP 4
//		重複データ削除
//    差分収集には不安があるためわざと一部重複させてインポート対象としている
//*************************************
DELETE 
FROM ワークテーブル
WHERE  EXISTS (SELECT 1
				FROM 照合生データ
				WHERE 読取順 = ワークテーブル.読取順);
				
IF SQLCA.SQLCode = -1 THEN 
	ROLLBACK;
	// エラー
	lds_upload_hst.uf_retrieve("連番=" + String(ll_fseqno))
	lds_upload_hst.Object.処理終了日時[1] = DateTime(Today(),Now())
	lds_upload_hst.Object.実行結果[1]       = "E"
	lds_upload_hst.Object.エラー情報[1]     = "STEP4:" + SQLCA.SQLErrText
	lds_upload_hst.Update()
	COMMIT;
	CLOSE(PARENT)
	RETURN
END IF
				
COMMIT;

hpb_1.Position = 4

//*************************************
//		STEP 7
//		ワークファイルの情報を一括して照合生データテーブルへ
//*************************************
Insert into 照合生データ
SELECT 読取順,
			品番,
			納入指示数,
			収容数,
			出荷数,
			発行番号,
			納入指示日,
			納入場所,
			供給ライン,
			納入便,
			納入指示時刻,
			背番,
			HT番号,
			プログラム区分,
			現品票チェック日付,
			現品票チェック時間,
			KDロットNO,
			予備1,
			予備3,
			エラーコード,
			備考,
			SYSDATE
FROM ワークテーブル;

IF SQLCA.SQLCode = -1 THEN 
	ROLLBACK;
	// エラー
	lds_upload_hst.uf_retrieve("連番=" + String(ll_fseqno))
	lds_upload_hst.Object.処理終了日時[1] = DateTime(Today(),Now())
	lds_upload_hst.Object.実行結果[1]       = "E"
	lds_upload_hst.Object.エラー情報[1]     = "STEP6:" + SQLCA.SQLErrText
	lds_upload_hst.Update()
	COMMIT;
	CLOSE(PARENT)
	RETURN
END IF

COMMIT;

// 処理正常終了
lds_upload_hst.uf_retrieve("連番=" + String(ll_fseqno))
lds_upload_hst.Object.処理終了日時[1] = DateTime(Today(),Now())
lds_upload_hst.Object.実行結果[1]     = "C"
lds_upload_hst.Update()
COMMIT;
CLOSE(PARENT)

試したこと

抽出元のSQLserverの該当テーブルに重複データがないか調査→無し
Oracle10gXeなのでデータ上限値に近づいていたのでバックアップの上データ削除
→該当テーブルの圧縮は実行済み（成功）
SQLserver、Oracle10g共に関連テーブルの重複は確認済み

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。
問題発生直後、SQLserver上の関連マスタに重複データがあったので
管理画面（Access）より削除済み。

Answer 1

2012より2018まで問題なく運用。

コードは見てませんが、SEQUENCEを使い切ったと予想。

Comments

[maesan]

>>SEQUENCEを使い切ったと予想。
回答有り難うございます。
具体的にはどのような対処方法を取れば良いでしょうか？よろしくご教授願います。

[nullpon]

予想通りだったと言うことでしょうか？
案1、古いデータをごっそり消してカウンタを巻き戻す。問題の先送りともいう。システムの耐用年数によってはこれが現実的。
案2、対象カラムの桁を増やして上限を上げる。影響範囲の確認が面倒臭い。コードの変更が必要ならご愁傷様。

[maesan]

実施策
１．データテーブルの古いデータをエクスポート退避し、削除。
２．データテーブルのシュリンク実施
３．UNDO表領域の再作成による縮小処理
以上、実施しましたが結果はダメでした。メモリー領域の上限：1Gを
超えていますが、こちらが原因でしょうか？
もし原因の可能性があるなら、メモリー領域の縮小は可能なのでしょうか？