API: QUSROBJD : オブジェクトの属性の検索

QUSROBJD は API の中でもかなり使用頻度が高い API であり、C/400 開発者が最初に使う API かも

知れないと思うほどポピュラーな API である。

QUSROBJD は DSPOBJD コマンドとほぼ同じ情報を提供する。

もちろん API であるので DSPOBJD より詳しい情報を高速で得ることができる。

今回のサンプルはライブラリー SPOOLWTR の最終変更日と時刻を QUSROBJD によって

取得するというものである。

オブジェクト記述の検索（QUSROBJD）API

パラメータ

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

1.	レシーバー変数	出力	`Char(*)`
2.	レシーバー変数長	入力	`Binary(4)`
3.	形式名	入力	`Binary(4)`
4.	オブジェクト修飾名	入力	`Char(10)`の配列`(*)`
5.	オブジェクト・タイプ	入出力	`Char(*)`

任意選択パラメータ：

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

【解説】

レシーバー変数 と レシーバー変数長 は形式名によって異なる。

形式名 は、

`OBJD0100` 形式	・・・・・・	基本情報(最高速)
`OBJD0200` 形式	・・・・・・	PDM によって表示される情報に良く似た情報
`OBJD0300` 形式	・・・・・・	保守情報
`OBJD0400` 形式	・・・・・・	全情報(最低速)

レシーバー変数の構造

[参照メンバー] QSYSINC/H(QUSROBJD)

■ OBJD0100 形式

オフセット		タイプ	フィールド
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`	`BINARY(4)`	補助記憶域プール
`52`	`34`	`CHAR(10)`	オブジェクト所有者
`62`	`3E`	`CHAR(2)`	オブドェクト・ドメイン
`64`	`40`	`CHAR(13)`	作成日時
`77`	`40`	`CHAR(13)`	オブジェクト変更日時

■ OBJD0200 形式

オフセット		タイプ	フィールド
10進数	16進数	タイプ	フィールド
`0`	`0`		`OBJD0100` 形式からのすべての情報
`90`	`5A`	`CHAR(10)`	オブジェクトの拡張属性
`100`	`64`	`CHAR(50)`	テキスト記述
`150`	`96`	`CHAR(10)`	ソース・ファイル名
`160`	`A0`	`CHAR(10)`	ソース・ファイル・ライブラリー名
`170`	`AA`	`CHAR(10)`	ソース・ファイル・メンバー名

■ OBJD0300 形式

オフセット		タイプ	フィールド
10進数	16進数	タイプ	フィールド
`0`	`0`		`OBJD0200` 形式からのすべての情報
`180`	`B4`	`CHAR(13)`	ソース・ファイルの更新日時
`193`	`C1`	`CHAR(13)`	オブジェクト保管日時
`206`	`CE`	`CHAR(13)`	オブジェクト復元日時
`219`	`DB`	`CHAR(10)`	作成者のユーザー・プロフィール
`229`	`E5`	`CHAR(8)`	オブジェクトが作成されたシステム
`237`	`ED`	`CHAR(7)`	リセット日付
`244`	`F4`	`BINARY(4)`	保管サイズ
`248`	`F8`	`BINARY(4)`	保管順序番号
`252`	`FC`	`CHAR(10)`	記憶域
`262`	`106`	`CHAR(10)`	保管コマンド
`272`	`110`	`CHAR(71)`	保管ボリュームID
`343`	`157`	`CHAR(10)`	保管装置
`353`	`161`	`CHAR(10)`	保管ファイル名
`363`	`16B`	`CHAR(10)`	保管ファイル・ライブラリー名
`373`	`175`	`CHAR(17)`	保管ラベル
`390`	`186`	`CHAR(9)`	システム・レベル
`399`	`18F`	`CHAR(16)`	コンパイラー
`415`	`19F`	`CHAR(8)`	オブジェクト・レベル
`423`	`1A7`	`CHAR(1)`	ユーザーの変更
`424`	`1A8`	`CHAR(16)`	ライセンス・プログラム
`440`	`1B8`	`CHAR(10)`	プログラム一時修正(PTF)
`450`	`1C2`	`CHAR(10)`	プログラム診断依頼書(APAR)

■ OBJD0400 形式

オフセット		タイプ	フィールド
10進数	16進数	タイプ	フィールド
`0`	`0`		`OBJD0300` 形式からのすべての情報
`460`	`1CC`	`CHAR(7)`	最終使用日付
`467`	`1D3`	`CHAR(1)`	使用状況の更新
`468`	`1D4`	`BINARY(4)`	使用日数カウント
`472`	`1D8`	`BINARY(4)`	オブジェクト・サイズ
`476`	`1DC`	`BINARY(4)`	オブジェクト・サイズの乗数
`480`	`1E0`	`CHAR(1)`	オブジェクト圧縮状況
`481`	`1E1`	`CHAR(1)`	プログラムによる変更許可<
`482`	`1E2`	`CHAR(1)`	プログラムによる変更
`483`	`1E3`	`CHAR(10)`	ユーザー定義属性
`493`	`1ED`	`CHAR(1)`	オブジェクト ASP オーバーフロー標識
`494`	`1EE`	`CHAR(13)`	SAVACT 保管日時
`507`	`1FB`	`CHAR(10)`	オブジェクト監査値
`517`	`205`	`CHAR(10)`	1次グループ

ソースコード

0001.00 #include <stdio.h>                                                               
0002.00 #include <stdlib.h>                                                              
0003.00 #include <string.h>                                                              
0004.00 #include <QUSROBJD.h>                                                            
0005.00                                                                                  
0006.00 #define TRUE         0                                                           
0007.00 #define FALSE       -1                                                           
0008.00 typedef struct {                                                                 
0009.00    int  BYTESPRO;                                                                
0010.00    int  BYTESAVL;                                                                
0011.00    char MSGID[7];                                                                
0012.00    char RESRVD;                                                                  
0013.00    char EXCPDATA[100];                                                           
0014.00 } ERRSTRUCTURE;     /* Define the error return structure            */           
0015.00 ERRSTRUCTURE  errcode;/* Error Code Structure for RCVMSG      */                 
0016.00                                                                                  
0017.00 void main(void){                                                                 
0018.00   Qus_OBJD0100_t objd0100;                                                       
0019.00   char date_time[14], year[4], DATE[11], TIME[9];                                
0020.00 typedef struct {                                                                 
0021.00   char year[5];                                                                  
0022.00   char month[3];                                                                 
0023.00   char day[3];                                                                   
0023.00   char day[3];                                                                   
0024.00 } DATE_;                                                                         
0025.00 DATE_ date;                                                                      
0026.00 typedef struct {                                                                 
0027.00   char hour[3];                                                                  
0028.00   char minute[3];                                                                
0029.00   char second[3];                                                                
0030.00 } TIME_;                                                                         
0031.00 TIME_ time;                                                                      
0032.00                                                                                  
0033.00   printf("** TESTLIBDAT:  最終更新日付の検索 **\n");                             
0034.00   getchar();                                                                     
0035.00   errcode.BYTESPRO = 160;                                                        
0036.00   errcode.BYTESAVL  = 0;                                                         
0037.00   QUSROBJD(&objd0100, sizeof(Qus_OBJD0100_t),"OBJD0100", "SPOOLWTR  *LIBL     ", 
0038.00            "*LIB      ", &errcode);                                              
0039.00   memcpy(date_time, objd0100.Change_Date_Time, 13);                              
0040.00   date_time[13] = 0x00;                                                          
0041.00   printf("SPOOLWTR(*LIB) date_time = [%s]\n", date_time);                        
0042.00   memcpy(year, "20", 2);                                                         
0043.00   memcpy(&year[2], &date_time[1], 2);                                            
0044.00   memcpy(date.year, year, 4);                                                    
0045.00   date.year[4] = 0x00;                                                           
0046.00   memcpy(date.month, &date_time[3], 2);                                          
0047.00   date.month[2] = 0x00;                                                          
0048.00   memcpy(date.day, &date_time[5], 2);                                            
0049.00   date.day[2] = 0x00;                                                            
0050.00   sprintf(DATE, "%s/%s/%s", date.year, date.month, date.day);                    
0051.00   printf("DATE = [%s]\n", DATE);                                                 
0052.00   memcpy(time.hour, &date_time[7], 2);                                           
0053.00   time.hour[2] = 0x00;                                                           
0054.00   memcpy(time.minute, &date_time[9], 2);                                         
0055.00   time.minute[2] = 0x00;                                                         
0056.00   memcpy(time.second, &date_time[11], 2);                                        
0057.00   time.second[2] = 0x00;                                                         
0058.00   sprintf(TIME, "%s:%s:%s", time.hour, time.minute, time.second);                
0059.00   printf("time = [%s]\n", TIME);                                                 
0060.00   getchar();                                                                     
0061.00 }

【解説】

0037.00   QUSROBJD(&objd0100, sizeof(Qus_OBJD0100_t),"OBJD0100", "SPOOLWTR  *LIBL     ", 
0038.00            "*LIB      ", &errcode);

によって戻り値の構造体

0018.00 Qus_OBJD0100_t objd0100;

の値を受け取っている。

0039.00   memcpy(date_time, objd0100.Change_Date_Time, 13);                              
0040.00   date_time[13] = 0x00;

によって 13 桁の変更日付・時刻を date_time に受け取ってから後で日付と時刻に分解して

処理しているだけである。

ここで何故、ライブラリーの更新日付と時刻を検索しているのかというと

そのライブラリー内に含まれるオブジェクトの最新の更新された日付・時刻が同時に

ライブラリー自身の更新日付・時刻でもあるからである。