9.149 OBJECT_PROPAGATE

注意: 9.1 組み込み関数の規則      利用オプション

指定のリポジトリ・グループにオブジェクトを伝播します。

 

引数

番号 タイプ 必須/任意 記述 最小長 最大長 最小小数桁数 最大小数桁数 1 A 必須 オブジェクト名 タイプ：オブジェクト名 フィールド：フィールド名 ファイル：ファイル名 ファンクション：プロセス名 プロセス：プロセス名 システム変数：システム変数名の最初の10文字 言語変数：言語変数名の最初の10文字 1 10 0 0 2 A 必須 オブジェクト拡張子 タイプ：オブジェクト拡張子 フィールド：ブランク ファイル：ファイル・ライブラリ名 ファンクション：ファンクション名 プロセス：ブランクまたは区画モジュール・ライブラリ システム変数：システム変数名の最後の10文字 言語変数：言語変数名の最後の10文字 1 10 0 0 3 A 必須 オブジェクト・タイプ 有効なオブジェクト・タイプは以下のとおりです。 DF = フィールド FD = ファイル PF = ファンクション PD = プロセス SV = システム変数 MT = 複数言語文字変数         4 A 必須 ワーク・グループ *ALL または有効なワーク・グループ

戻り値

番号 タイプ 必須/任意 記述 最小長 最大長 最小小数桁数 最大小数桁数 1 A 必須 戻りコード 有効な戻りコード： OK = 成功した ER = 成功しなかった 1 2 0 0

技術上の注記

区画IDは、この組み込み関数が実行される現在の区画です。

例

以下のRDMLコードは、組み込み関数を別の環境で使用する方法を示します。

LANSAコマンドに以下のパラメータを指定して、以下のファンクションを直接呼び出すことができます。

LANSA REQUEST(RUN) PROCESS(Process_name) FUNCTION(Function_name) PARTITION(DEM)

FUNCTION   *DIRECT                                                 
 DEFINE     FIELD(#OBJNM) TYPE(*CHAR) LENGTH(10) DESC('Object Name' 
            )                                                       
 DEFINE     FIELD(#OBJEX) TYPE(*CHAR) LENGTH(10) DESC('Object Ex')  
 DEFINE     FIELD(#OBJTY) TYPE(*CHAR) LENGTH(2) DESC('Object Type') 
 DEFINE     FIELD(#WRKGP) TYPE(*CHAR) LENGTH(10) DESC('WorkGroup ') 
 DEFINE     FIELD(#TSKID) TYPE(*CHAR) LENGTH(10) DESC('Task ID')    
 DEFINE     FIELD(#RTNCD) TYPE(*CHAR) LENGTH(2) DESC('Return Code') 
 GROUP_BY   NAME(#PARM_GRP) FIELDS((#OBJNM) (#OBJEX) (#OBJTY) (#WRK GP) (#RTNCD))
 **********                                                         
 BEGIN_LOOP                                                         
 REQUEST    FIELDS((#PARM_GRP))                                     
USE        BUILTIN(OBJECT_PROPAGATE) WITH_ARGS(#OBJNM #OBJEX #OBJT Y #WRKGP) TO_GET(#RTNCD)
 END_LOOP                                                           
*
FUNCTION   *DIRECT                                                 
DEFINE     FIELD(#OBJNM) TYPE(*CHAR) LENGTH(10) DESC('Object Name')
DEFINE     FIELD(#OBJEX) TYPE(*CHAR) LENGTH(10) DESC('Object Ex')  
DEFINE     FIELD(#OBJTY) TYPE(*CHAR) LENGTH(2) DESC('Object Type') 
DEFINE     FIELD(#WRKGP) TYPE(*CHAR) LENGTH(10) DESC('WorkGroup (* ALL)')
DEFINE     FIELD(#TSKID) TYPE(*CHAR) LENGTH(10) DESC('Task ID')    
DEFINE     FIELD(#RTNCD) TYPE(*CHAR) LENGTH(2) DESC('Return Code') 
DEFINE     FIELD(#MSGDTA1) TYPE(*CHAR) LENGTH(30)                  
DEFINE     FIELD(#MSGDTA) TYPE(*CHAR) LENGTH(132)                  
CHANGE     FIELD(#MSGDTA1) TO('RETURN CODE--> ')                   
GROUP_BY   NAME(#PARM_GRP) FIELDS((#OBJNM) (#OBJEX) (#OBJTY) (#WRK GP) )
IF         COND('*JOBMODE = I')                                    
BEGIN_LOOP                                                         
REQUEST    FIELDS((#PARM_GRP))                                     
SUBMIT     PROCESS(TESTBIF) FUNCTION(BIF02) EXCHANGE(#PARM_GRP)    
CHANGE     FIELD(#PARM_GRP) TO(*NULL)                              
END_LOOP                                                           
ELSE                                                               
USE        BUILTIN(OBJECT_PROPAGATE) WITH_ARGS(#OBJNM #OBJEX #OBJTY #WRKGP) TO_GET(#RTNCD)
**********                                                         
USE        BUILTIN(BCONCAT) WITH_ARGS(#MSGDTA1 #RTNCD #OBJNM) TO_GET(#MSGDTA)
     MESSAGE    MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(#MSGDTA)
ENDIF