TI 應用程式無法參考 FILLER
應用程式無法參考 FILLER 資料的原因至少有三個可能的原因:
大型主機或 COBOL 細節。
自動化細節。
使用 TI 專案的程式。
下列提供這三個原因的詳細資料。
大型主機或 COBOL 特定專案
在匯入程式中遇到 FILLER 關鍵字時,交易整合器 (TI) 執行時間環境會根據填入或接收緩衝區長度調整在傳送或接收緩衝區之後之資料位置的位移。 這會在傳送至主機 (或) 從主機接收的緩衝區中留下未轉譯的間距,並允許您的資料正確地重迭到描述它的資料宣告上。
自動化細節
Automation 方法不會參考填入的資料描述專案。
使用 TI 專案的程式
資料宣告開頭的填滿專案會與方法、記錄集、資料資料表、使用者定義型別 (UDT) 或 .NET 結構相關聯。 您可以從方法屬性頁面的 [ 進階 ] 索引標籤,檢視或變更與方法相關聯的填滿專案。 若要檢視或變更與方法、記錄集或 UDT 相關聯的填滿專案,請以滑鼠右鍵按一下方法、記錄集或 UDT,然後按一下 [ 屬性]。
在資料描述專案之後的 Filler 會與方法的資料描述專案、記錄集的資料行或 UDT) 的成員 (或參數相關聯。 您可以從參數、資料行或成員屬性的 [COBOL 定義 ] 索引標籤,檢視或變更與參數、資料行或成員相關聯的填滿專案。 當 filler 遵循您指定為傳回值的資料描述專案時,您可以從方法屬性的 [COBOL 定義 ] 索引標籤檢視或變更該填入專案。
下列範例顯示使用 FILLER 的 COBOL 資料宣告:
01 CUSTOMER-DATA.
05 CUSTOMER-INFO.
10 LAST-NAME PIC X(20).
10 FIRST-NAME PIC X(20).
10 FILLER PIC X(12).
05 DEMOGRAPHICS.
10 DEMO-AGE PIC 999.
10 DEMO-INCOME PIC S9(9)V99 COMP-3.
10 DEMO-SEX PIC X.
10 DEMO-MSTATUS PIC X.
10 FILLER PIC X(40).
產生的方法是:
CustomerDemographics(strLastName As String, strFirstName As String, iAge As Integer _
, curIncome As Currency, strSex As String, strMStatus As String)
以下是呼叫 方法的 Visual Basic 程式碼範例:
Dim objCustomer As Object
Dim strLastName As String
Dim strFirstName As String
Dim iAge As Integer
Dim curIncome As Currency
Dim strSex As String
Dim strMStatus As String
strLastName = "Doe"
strFirstName = "John"
'create an instance of the invoicing object
On Error GoTo ErrorHandler1
Set objCustomer = CreateObject("Customer.Invoicing.1")
'invoke the SetInvoices method
On Error GoTo ErrorHandler2
objCustomer.CustomerDemographics strLastName, strFirstName _
, iAge, curIncome, strSex, strMStatus