バージョン 8.1.3
 —  ユーティリティ  —

VSE 用のライブラリおよびファイルプロシージャの例

VSE の例では、Adabas ライブラリ(ADAVvLIB)および Adabas ファイル(ADAVvFIL)を定義するプロシージャが、アクセス可能なプロシージャライブラリにカタログ化されていると仮定しています。

プロシージャのカタログ化については、『Adabas インストールマニュアル』の VSE セクションの「ライブラリ/データベース定義用のカタログプロシージャ」を参照してください。

Delta Save Facility を使用したカタログ化プロシージャについては『Adabas Delta Save Facility マニュアル』を参照してください。

このドキュメントでは、次のトピックについて説明します。


Adabas のライブラリ(ADAVvLIB)

// PROC
* ********************************************************** *
* LIBRARY DEFINITIONS AND CHAINING FOR ADABAS                *
* ********************************************************** *
// SETPARM VERS=vrs                  <- CURRENT VERSION
// SETPARM ADALIB=SAGLIB             <- SAG PRODUCT LIBRARY
// SETPARM ADASUB=ADA&VERS           <- ADABAS SUBLIBRARY
// DLBL SAGLIB,'SAG.PRODUCT.LIBRARY'
// EXTENT ,vvvvvv
// LIBDEF *,SEARCH=&ADALIB..&ADASUB,TEMP
// LIBDEF PHASE,CATALOG=&ADALIB..&ADASUB,TEMP
// ASSGN SYS009,PRINTER

ここでは次の内容を表しています。

vrs Adabas バージョン、リビジョン、およびシステムメンテナンス(SM)レベル
vvvvvv 割り当てられたプログラマ論理ユニット

Top of page

Adabas のファイル(ADAVvFIL)

// ASSGN SYS031,dddd,VOL=ADA001,SHR
// ASSGN SYS032,dddd,VOL=ADA002,SHR
// ASSGN SYS033,dddd,VOL=ADA003,SHR
// ASSGN SYS034,dddd,VOL=ADA004,SHR
// DLBL ASSOR1,'EXAMPLE.ADAyyyyy.ASSOR1',99/365,DA
// EXTENT SYS031,ADA001,,,15,1500
// DLBL DATAR1,'EXAMPLE.ADAyyyyy.DATAR1',99/365,DA
// EXTENT SYS032,ADA002,,,15,3000
// DLBL WORKR1,'EXAMPLE.ADAyyyyy.WORKR1',99/365,DA
// EXTENT SYS033,ADA003,,,15,600
// DLBL PLOGR1,'EXAMPLE.ADAyyyyy.PLOGR1',99/365,DA
// EXTENT SYS034,ADA004,,,15,600
// DLBL PLOGR2,'EXAMPLE.ADAyyyyy.PLOGR2',99/365,DA
// EXTENT SYS034,ADA004,,,615,600
// DLBL CLOGR1,'EXAMPLE.ADAyyyyy.CLOGR1',99/365,DA
// EXTENT SYS034,ADA004,,,1215,750
// DLBL CLOGR2,'EXAMPLE.ADAyyyyy.CLOGR2',99/365,DA
// EXTENT SYS034,ADA004,,,1965,750
// DLBL TEMPR1,'EXAMPLE.ADAyyyyy.TEMPR1',99/365,DA
// EXTENT SYS032,ADA002,,,3015,1500
// DLBL SORTR1,'EXAMPLE.ADAyyyyy.SORTR1',99/365,DA
// EXTENT SYS033,ADA003,,,615,375
// EXTENT SYS034,ADA004,,,2715,375
// DLBL RLOGR1,'EXAMPLE.ADAyyyyy.RLOGR1',99/365,DA
// EXTENT SYS033,ADA003,,,990,150        

Top of page