Comment utiliser des redéfinitions dans COBOL

le processus d’importation COBOL de l’intégrateur de transactions (TI) Project reconnaît la clause redefines dans une entrée de description de données et associe correctement les entrées de redéfinition à l’entrée redéfinie. Vous devez sélectionner l’une des clauses redéfinies ou redéfinies comme entrée représentant les données qui seront transmises.

Les entrées de redéfinition peuvent utiliser moins d’espace que l’entrée redéfinie. si vous sélectionnez une entrée redéfinissant une valeur inférieure à l’entrée redéfinie, l’TI Project ajoute automatiquement le remplissage afin que les données soient correctement superposées à la description des données lorsqu’elles sont envoyées à l’hôte. Si l’entrée de redéfinition représente une table avec plusieurs champs, le dernier champ contient le remplissage.

L’exemple de code COBOL suivant illustre une clause redéfinis. La clause redéfinissant 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 qui est 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 remplissage est ajouté à la zone redéfinie par l’ID client. Lorsque ce remplissage se produit à la fin des mémoires tampons d’envoi ou de réception, pour des raisons de performances, 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  

Voir aussi

Caractère de remplissage