EsbPartitionApplyOtlChangeFile

サーバーに対して、アウトライン変更ファイルのリストを適用するように要求します。

構文

            EsbPartitionApplyOtlChangeFile
             (
            hCtx
            , 
            usFileNum
            , 
            fileList
            )
ByVal 
            hCtx
                  As Long
ByVal 
            usfilenum
             As Integer
ByVal 
            filelist
              As String

パラメータ	説明
hCtx	APIコンテキストへのハンドル。
usFileNum	アウトライン変更ファイルの数。
fileList	CR/LFで区切られたファイル名の文字列。配列のサイズはusFileNumで定義されます。

備考

EsbPartitionGetOtlChangesを呼び出してfilenameを取得します。

戻り値

正常終了の場合は0が戻されます。それ以外の場合はエラー・コードが戻されます。

アクセス

データベース・マネージャ権限が必要です。

例

         Public Sub ESB_PartitionApplyOtlChangeFile()
   Dim FileItems As Integer
   Dim Filelist As String
   Dim ProcState As ESB_PROCSTATE_T
   
   FileItems = 1
   Filelist = "C:\ESSBASE\APP\SAMPPART\COMPANY\ESS00001.CHG"   
      sts = EsbPartitionApplyOtlChangeFile(hCtx, FileItems, Filelist)
          If sts = 0 Then
         sts = EsbGetProcessState(hCtx, ProcState)
         Do Until ProcState.State = ESB_STATE_DONE
         sts = EsbGetProcessState(hCtx, ProcState)
      Loop
      End If
End Sub