API ： QUSRMBRD ：メンバー記述の検索

QUSRMBRD
はファイルのメンバーの記述情報を検索する API である。

ファイルメンバーの記述情報の検索（ `QUSRMBRD` ） API

パラメータ

必須パラメータ・グループ：

1.	レシーバー変数	出力	`Char(*)`
2.	レシーバー変数長	入力	`Binary(4)`
3.	形式名	入力	`Char(8)`
4.	修飾データ・ベースファイル名	入力	`Char(20)`の配列`(*)`
5.	データ・ベース・メンバー名	入力	`Char(10)`
6.	一時変更処理	入力	`Char(1)`

任意選択パラメータ：

7. エラー・コード入出力 Char(*)

任意選択パラメータ：

8. メンバー検索処理入力 Char(*)

QUSRMBRD は形式名によって戻されるレシーバー変数 ( 戻り変数 ) の内容とその長さが変わります。

形式名

`MBRD0100` 形式	・・・・・・	メンバー名および基本的なソース情報
`MBRD0200` 形式	・・・・・・	メンバー名および拡張情報
`MBRD0300` 形式	・・・・・・	メンバー名および完全な情報

修飾データ・ベース名

ファイル名 ( 10桁 ) + ライブラリー名 ( 10桁 ) で表現する。

ライブラリー名には *CURLIB, *LIBL の指定も可。

データ・ベース・メンバー名

ファイルのメンバー名を指定する。

*FIRST または *LAST の使用も可。

一時変更処理

0 : 一時変更を行なわないを指定すること。

■ MBRD0100 形式

オフセット		タイプ	フィールド
10進数	16進数	タイプ	フィールド
`0`	`0`	`BINARY(4)`	返されるバイト数
`4`	`4`	`BINARY(4)`	使用可能なバイト数
`8`	`8`	`CHAR(10)`	データ・ベース・ファイル名
`18`	`12`	`CHAR(10)`	ライブラリー名
`28`	`1C`	`CHAR(10)`	メンバー名
`38`	`26`	`CHAR(10)`	ファイル属性
`48`	`30`	`CHAR(10)`	ソース・タイプ
`58`	`3A`	`CHAR(13)`	作成日時
`71`	`47`	`CHAR(13)`	最後のソースを変更した日時
`84`	`54`	`CHAR(50)`	メンバー・テキスト記述
`134`	`86`	`CHAR(1)`	ソース・ファイル

■ MBRD0200 形式

オフセット		タイプ	フィールド
10進数	16進数	タイプ	フィールド
`0`	`0`		`OBJD0200` 形式からのすべての情報
`135`	`87`	`CHAR(13)`	ソース・ファイルの更新日時
`136`	`88`	`CHAR(13)`	オブジェクト保管日時
`140`	`89`	`CHAR(13)`	オブジェクト復元日時
`144`	`8A`	`CHAR(10)`	作成者のユーザー・プロフィール
`148`	`8C`	`CHAR(8)`	オブジェクトが作成されたシステム
`152`	`90`	`CHAR(7)`	リセット日付
`156`	`9C`	`BINARY(4)`	保管サイズ
`160`	`A0`	`BINARY(4)`	保管順序番号
`173`	`AD`	`CHAR(10)`	記憶域
`186`	`BA`	`CHAR(10)`	保管コマンド
`199`	`C7`	`CHAR(71)`	保管ボリュームID
`206`	`CE`	`CHAR(10)`	保管装置
`212`	`D4`	`CHAR(10)`	保管ファイル名
`216`	`D8`	`CHAR(10)`	保管ファイル・ライブラリー名
`223`	`DF`	`CHAR(17)`	保管ラベル
`230`	`E6`	`CHAR(9)`	システム・レベル
`232`	`E8`	`CHAR(16)`	コンパイラー
`236`	`EC`	`CHAR(8)`	オブジェクト・レベル
`240`	`F0`	`CHAR(1)`	ユーザーの変更
`244`	`F4`	`CHAR(16)`	ライセンス・プログラム
`248`	`F8`	`CHAR(10)`	プログラム一時修正(PTF)
`252`	`FC`	`CHAR(10)`	プログラム診断依頼書(APAR)

■ MBRD0300 形式

オフセット		タイプ	フィールド
10進数	16進数	タイプ	フィールド
`0`	`0`		`OBJD0200` 形式からのすべての情報
`266`	`10A`	`CHAR(1)`	結合メンバー
`267`	`10B`	`CHAR(1)`	アクセス・パスの保守
`268`	`10C`	`CHAR(10)`	SQL ファイル・タイプ
`278`	`116`	`CHAR(1)`	予約済み
`279`	`117`	`CHAR(1)`	読み取り操作の許可
`280`	`118`	`CHAR(1)`	書き出し操作の許可
`281`	`119`	`CHAR(1)`	更新操作の許可
`282`	`11A`	`CHAR(1)`	削除操作の許可
`283`	`11B`	`CHAR(1)`	予約済み
`284`	`11C`	`BIBARY(4)`	書出しの置換えを行なうレコード
`288`	`120`	`BIBARY(4)`	削除レコードの許容最大パーセント
`292`	`124`	`BIBARY(4)`	レコードの初期数
`296`	`128`	`BIBARY(4)`	レコードの増分数
`300`	`12C`	`BIBARY(4)`	増分の最大数
`304`	`130`	`BIBARY(4)`	増分の現行数
`308`	`134`	`BIBARY(4)`	レコード容量
`312`	`138`	`CHAR(10)`	レコード様式選択プログラム
`322`	`142`	`CHAR(10)`	ライブラリー
`332`	`14C`	`BIBARY(4)`	制約索引の数
`334`	`14E`	`BIBARY(4)`	制約索引情報までのオフセット
`338`	`153`	`CHAR(46)`	予約済み
`384`	`180`	`CHAR(112)`配列	レコード様式および基本ファィル・リスト
`*`	`*`	`CHAR(320)`配列	制約索引情報

【サンプル・ソース：TESTMBRD 】

ソースコード

これはソース・ファイル PGMRLIB/QRPGLESRC のメンバー AAI006 のソース・タイプを

表示するプログラムである。

0001.00              PGM                                                                 
0002.00 /*---------------------------------------------------------*/                    
0003.00 /*   TESTMBRDCL :   メンバー記述の検索                     */                    
0004.00 /*---------------------------------------------------------*/                    
0005.00              DCL        VAR(&MSG) TYPE(*CHAR) LEN(132)                           
0006.00              DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                           
0007.00              DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)                           
0008.00              DCL        VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)                        
0009.00              DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(132)                        
0010.00              DCL        VAR(&TYPE) TYPE(*CHAR) LEN(1)                            
0011.00              DCL        VAR(&RCVVAR) TYPE(*CHAR) LEN(1024)                       
0012.00              DCL        VAR(&RCVLEN) TYPE(*CHAR) LEN(4) +                        
0013.00                           VALUE(X'00000400')                                     
0014.00              DCL        VAR(&APIERR) TYPE(*CHAR) LEN(116) +                      
0015.00                           VALUE(X'000074') /* 2 進数  */                         
0016.00              DCL        VAR(&NULL4) TYPE(*CHAR) LEN(4) +                         
0017.00                           VALUE(X'00000000')                                     
0018.00              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                  
0019.00                                                                                  
0020.00              RTVJOBA    TYPE(&TYPE)                                              
0021.00              CALL       PGM(QUSRMBRD) PARM(&RCVVAR &RCVLEN +                     
0022.00                           'MBRD0100' 'QRPGLESRC PGMRLIB   ' +                    
0023.00                           'AAI006    ' '0' &APIERR)                              
0024.00              IF         COND(%SST(&APIERR 5 4) *NE &NULL4) THEN(DO)              
0025.00              GOTO       APIERR                                                   
0026.00              ENDDO                                                               
0027.00              SNDPGMMSG  MSG('SRCTYPE = ' *CAT %SST(&RCVVAR 49 +                  
0028.00                           10)) TOMSGQ(*TOPGMQ) MSGTYPE(*DIAG)                    
0029.00              RETURN                                                              
0030.00                                                                                  
0031.00  APIERR:                                                                         
0032.00              CHGVAR     VAR(&MSGID) VALUE(%SST(&APIERR 9 7))                     
0033.00              CHGVAR     VAR(&MSGF) VALUE('QCPFMSG   ')                           
0034.00              CHGVAR     VAR(&MSGDTA) VALUE(%SST(&APIERR 17 100))                 
0035.00              RTVMSG     MSGID(&MSGID) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +            
0036.00                           MSG(&MSG)                                              
0037.00              GOTO       SNDMSG                                                   
0038.00  ERROR:      RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG)                        
0039.00  SNDMSG:                                                                         
0040.00              IF         COND(&TYPE *EQ '0') THEN(DO)                             
0041.00              SNDPGMMSG  MSG(&MSG) TOMSGQ(*SYSOPR) MSGTYPE(*COMP)                 
0042.00              ENDDO                                                               
0043.00              ELSE       CMD(DO)                                                  
0044.00              SNDPGMMSG  MSG(&MSG) TOMSGQ(*TOPGMQ) MSGTYPE(*DIAG)                 
0045.00              ENDDO                                                               
0046.00              ENDPGM

【解説】

QUSRMBRD を使用しているのは

0021.00              CALL       PGM(QUSRMBRD) PARM(&RCVVAR &RCVLEN +                     
0022.00                           'MBRD0100' 'QRPGLESRC PGMRLIB   ' +                    
0023.00                           'AAI006    ' '0' &APIERR)

であり、レシーバー変数 mbrd0100 からソース・タイプを

0027.00              SNDPGMMSG  MSG('SRCTYPE = ' *CAT %SST(&RCVVAR 49 +                  
0028.00                           10)) TOMSGQ(*TOPGMQ) MSGTYPE(*DIAG)

によって取り出して表示している。

QUSRMBRD の実行でエラーが発生すれば

0031.00  APIERR:                                                                         
0032.00              CHGVAR     VAR(&MSGID) VALUE(%SST(&APIERR 9 7))                     
0033.00              CHGVAR     VAR(&MSGF) VALUE('QCPFMSG   ')                           
0034.00              CHGVAR     VAR(&MSGDTA) VALUE(%SST(&APIERR 17 100))                 
0035.00              RTVMSG     MSGID(&MSGID) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +            
0036.00                           MSG(&MSG)                                              
0037.00              GOTO       SNDMSG

によってエラー・メッセージが出力されるように対処している。

この例はサンプルとはいえ十分なエラー・モニターも行なわれているのである。

ファイルメンバーの記述情報の検索 （ QUSRMBRD ） API

【 サンプル・ソース：TESTMBRD 】

【解説】

ファイルメンバーの記述情報の検索（ `QUSRMBRD` ） API

【サンプル・ソース：TESTMBRD 】