Partager via

Problèmes pour définir un jeu d’enregistrements pour des applications web

  • Article

Dans TI, un recordset se compose de données tabulaires définies dans le code source COBOL sur le mainframe. Les données tabulaires sont définies par un élément de groupe contenant une clause OCCURS dans la zone de données COBOL. Lorsque vous importez une zone de données COBOL dans TI Designer, les conversions COBOL-to-Automation suivantes ont lieu :

  • La zone de données COBOL définit les paramètres de la méthode nouvellement créée et les membres des ensembles d’enregistrements.

  • L’élément de groupe qui définit la table (contient la clause OCCURS) est représenté à la fois comme la définition de type du jeu d’enregistrements de la méthode et comme paramètre de méthode.

  • Les autres éléments de groupe sont représentés en tant que paramètres de méthode.

  • Les éléments de données élémentaires (définitions des champs de table) sont représentés en tant que membres du jeu d’enregistrements.

    La zone de données COBOL suivante décrit la bibliothèque de types pour une application web qui utilise un environnement distant CICS LINK. L’application retourne des informations sur jusqu’à six comptes pour chaque nom de client et le code pin correspondant entré en tant qu’entrée.

01         DFHCOMMAREA.  
*                    ACCTINFO IS (INPUT, OUTPUT)  
           O5        ACCTINFO OCCURS 6 TIMES.  
                     10 ACCOUNTNUMBER                       PIC X(6).  
                     10 ACCOUNTTYPE                         PIC X(20).  
                     10 CURRENTBALANCE                      PIC S9(13)V9(2) COMP-3.  
  
                     10 INTERESTBEARING                     PIC S9(4) COMP.  
                     10 INTERESTRATE                        COMP-1.  
                     10 MONTHLYSVCCHG                       PIC S9(13)V9(2) COMP-3.  
  
*                    NAME IS (INPUT, OUTPUT)  
                     05                                     NAMEPIC X(30).  
*                    PIN IS (INPUT, OUTPUT)  
                     05                                     PIN PIC X(10).

Lorsqu’ils sont importés dans TI Designer, les éléments de groupe de la zone de données sont traités comme les paramètres de la méthode nouvellement créée. Toutefois, en raison des exigences du service de données à distance (RDS) pour les applications web, l’élément de groupe qui définit la table doit être défini comme la valeur de retour de la méthode, et non comme un paramètre de méthode. Pour définir correctement la méthode, vous devez redéfinir manuellement cet élément de groupe (ACCTINFO dans l’exemple précédent) en tant que valeur de retour.

Avant d’importer la zone de données COBOL, notez le nombre de lignes spécifiées dans la clause OCCURS. Une fois que vous avez importé la zone de données COBOL, utilisez la procédure suivante pour définir un jeu d’enregistrements pour les applications web.

Pour définir un jeu d’enregistrements pour une application web

  1. Démarrez ti Designer.

  2. Dans l’arborescence de la console, double-cliquez sur le dossier Recordsets pour vérifier que TI Designer créé la définition de type du recordset. Le nom de la définition de type provient de l’élément de groupe qui a défini la table dans le code source COBOL.

  3. Double-cliquez sur le dossier Méthodes , puis cliquez sur le nom de la méthode. Vérifiez que le paramètre recordset s’affiche dans le volet d’informations. Le nom du paramètre doit correspondre au nom de la définition de type du jeu d’enregistrements.

  4. Dans le menu Modifier , cliquez sur Déverrouiller pour déverrouiller la méthode.

  5. Dans le volet d’informations, supprimez le paramètre recordset.

  6. Cliquez avec le bouton droit sur la méthode, cliquez sur Propriétés, puis cliquez sur l’onglet Définition Automation .

  7. Cliquez sur le nom de la définition de type du jeu d’enregistrements dans la zone Type de retour .

  8. Cliquez sur l’onglet Recordsets .

  9. Dans la zone Nombre maximal d’éléments de groupe, tapez le nombre de lignes spécifiées dans le code source COBOL, puis cliquez sur OK.

    Pour plus d’informations sur les jeux d’enregistrements, consultez la documentation ADO (ActiveX Data Objects) et RdS (Remote Data Service) incluse lors de l’installation de Microsoft Data Access Components (MDAC).