Partager via

Problèmes de définition d’un recordset pour les applications Web-Based

Dans TI, un jeu d’enregistrements se compose de données tabulaires définies dans le code source COBOL sur le système central. 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 jeux d’enregistrements.

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

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

  • Les éléments de données élémentaux (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 client et le code confidentiel correspondant entré en 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 rdS (Remote Data Service) pour les applications web, l’élément de groupe qui définit la table doit être défini comme valeur de retour de la méthode, et non comme paramètre de méthode. Pour définir la méthode correctement, vous devez redéfinir manuellement cet élément de groupe (ACCTINFO dans l’exemple précédent) comme 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 a créé la définition de type du recordset. Le nom de la définition de type est extrait 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 boîte Type de retour.

  8. Cliquez sur l’onglet Recordsets .

  9. Dans la zoneGroup-Item Maximum , 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 ActiveX Data Objects (ADO) et RdS (Remote Data Service) incluse lorsque vous avez installé Microsoft Data Access Components (MDAC).

  • Last updated on