9.193 RESTORE_SAVED_LIST

LANSA

9.193 RESTORE_SAVED_LIST


Þ 注:組み込み関数の規則

保存済みの永久作業リストまたは一時作業リストの内容を復元します。

可搬性に関する注意事項

RESTORE_SAVED_LISTとSAVE_LISTは、同じコンテキスト内で使用する必要があります。つまり、Web上で実行されたファンクションからSAVE_LISTを使用し、その後でVisual LANSAファンクションとして実行されたファンクションから保存済みリストを復元しないでください。

各製品の対応

LANSA/AD

使用可

Visual LANSA for Windows

使用可

Visual LANSA for Linux

使用可

引数

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

復元する保存済みリストの名前

1

10

 

 

戻り値

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

L

必須

保存済みリストをロード/復元する作業リスト

1

10

 

 

2

A

任意

戻りコード
'OK' - リストが取得された
'OV' - リストが満杯になった
'NR' - リストが見つからなかった

2

2

 

 

3

N

任意

各リスト・エントリーの長さ

1

15

0

0

4

A

任意

リストのタイプ
'P' - 永久リスト
'T' - 一時リスト

1

1

 

 

技術ノート

·         この組み込み関数は、保存済み作業リストを復元する目的、またはジョブ間(例:インターラクティブからバッチ)で受け渡される作業リストの内容を取得する目的で作られています。同一ジョブ内でプログラムの作業リストの詳細を取得することが目的ではありません。FUNCTIONコマンドとCALLコマンドのRCV_LISTSパラメータとPASS_LISTSパラメータを使用すると、より効率的に同じジョブのプログラム間で作業リストの詳細を交換することができます。

·         LANSAデータ・ライブラリにあるDC@F80ファイルで保存済みリストの詳細が保管されています。バックアップと復元の手順には、このファイルを含めることを検討する必要があります。

·         復元先のリストは、保存済みリストと同じかまたは大きなサイズにする必要があります。そうでない場合は保存済みの情報が復元されません。この場合、戻りコード'OV'と空のリストが戻されます。

·         通常のLANSA内部データベース再編成の際に、DC@F80ファイルの削除されたレコードのスペースは再編成され除去されます。この再編成により、保持期間が超えている一時リストも削除されます。

·         I5/OS RGZPFM (Reorganize Physical File Member:物理ファイル・メンバーの再編成)コマンドを使えば、DC@F80ファイルの削除されたレコードのスペースはいつでも解放することができます。順次論理ビューにはDC@F80V1を使用します。

·         DC@A08データ・エリア、DC@F80データベース・ファイル(およびその論理ビューであるDC@F80V1とDC@F80V2)のバックアップと復元は、お客様の責任で実行してください。

·         DC@F80、つまり保存済みリストをコンピュータ間または環境間で移動する場合は、お客様の責任で実行してください。

あるリストが保存されています。これは顧客リストで、ユーザーがレポート印刷のためすでに顧客を選択済みです。投入元のジョブにより、このジョブにはすでにリスト名が渡されています。

DEF_LIST   NAME(#RSTLST) FIELDS((#CLICDE) (#CLIDES)) TYPE(*WORKING)
DEF_LINE   NAME(#LINE1)  FIELDS((#CLICDE) (#CLIDES) (#CLIAD1) (#CLIAD2) (#CLIAD3) (#CLIPHO) (#CLIFAX))
DEFINE     FIELD(#LSTNME) TYPE(*CHAR) LENGTH(10)
********** Clear the list
CLR_LIST   NAMED(#RSTLST)
********** Restore the list
USE        BUILTIN(RESTORE_SAVED_LIST) WITH_ARGS(#LSTNME) TO_GET(#RSTLST)
********** Process the list
SELECTLIST NAMED(#RSTLST)
FETCH      FIELDS(#LINE1) FROM_FILE(CLIMASTER) WITH_KEY(#CLICDE)
PRINT      LINE(#LINE1)
ENDSELECT
********** Close print file
ENDPRINT
********** Submit job to delete list
USE        BUILTIN(DELETE_SAVED_LIST) WITH_ARGS(#LSTNME)