Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Le processus d’importation COBOL dans le projet d’intégrateur de transactions (TI) reconnaît la clause REDEFINES dans une entrée de description de données et associe correctement les entrées de définition à l’entrée redéfinie. Vous devez sélectionner l’une des clauses redéfinies ou redéfinissantes comme l'entrée représentant les données qui seront transmises.
Les entrées de définition peuvent utiliser moins d’espace que l’entrée redéfinie. Si vous sélectionnez une entrée de redéfinition inférieure à l’entrée redéfinie, TI Project ajoute automatiquement le remplissage afin que les données superposent correctement la description des données lorsqu’elles sont envoyées à l’hôte. Si l’entrée de définition représente une table avec plusieurs champs, le dernier champ contient le remplissage.
L’exemple COBOL suivant montre une clause REDEFINES. La clause de redéfinition a été sélectionnée lors de l’importation :
01 CUSTOMER-DATA.
05 CUSTOMER-ID PIC X(10).
05 CUSTOMER-ID-PARTS REDEFINES CUSTOMER-ID.
10 LOCATION PIC X(3).
10 NAME-ABREV PIC X(5).
La méthode obtenue importée est la suivante :
CreateCustomerID(strLocation As String, strNameAbrev As String)
Le COBOL généré pour cette méthode est :
01 CREATECUSTOMERID-INPUT-AREA.
05 LOCATION PIC X(3). INPUT
05 NAME-ABREV PIC X(5). INPUT
05 FILLER PIC X(2). INPUT
Le FILLER est ajouté à la zone CUSTOMER-ID redéfinie. Lorsque ce FILLER se produit à la fin des mémoires tampons d'envoi, pour des raisons de performance, il n'est pas envoyé.
Voici un exemple de code Visual Basic qui appelle cette méthode :
Dim objCustomer As Object
Dim strLocation As String
Dim strNameAbrev As String
strLocation = "101"
strNameAbrev = "SPORT"
'create an instance of the invoicing object
On Error GoTo ErrorHandler1
Set objCustomer = CreateObject("Customer.Invoicing.1")
'invoke the CreateCustomerID method
On Error GoTo ErrorHandler2
objCustomer.CreateCustomerID strLocation, strNameAbrev