Freigeben über

Probleme beim Definieren eines Recordsets für Web-Based Anwendungen

In TI besteht ein Recordset aus tabellarischen Daten, die im COBOL-Quellcode auf dem Mainframe definiert sind. Tabellarische Daten werden durch ein Gruppenelement definiert, das eine OCCURS-Klausel im COBOL-Datenbereich enthält. Wenn Sie einen COBOL-Datenbereich in TI Designer importieren, werden die folgenden COBOL-zu-Automation-Konvertierungen durchgeführt:

  • Der COBOL-Datenbereich definiert die Parameter der neu erstellten Methode und die Member aller Recordsets.

  • Das Gruppenelement, das die Tabelle definiert (enthält die OCCURS-Klausel), wird sowohl als Typdefinition des Recordsets der Methode als auch als Methodenparameter dargestellt.

  • Andere Gruppenelemente werden als Methodenparameter dargestellt.

  • Elementale Datenelemente (Definitionen der Tabellenfelder) werden als Elemente des Recordsets dargestellt.

    Im folgenden COBOL-Datenbereich wird die Typbibliothek für eine webbasierte Anwendung beschrieben, die eine CICS LINK-Remoteumgebung verwendet. Die Anwendung gibt Informationen zu bis zu sechs Konten für jeden Kundennamen und die entsprechende PIN zurück, die als Eingabe eingegeben wurde.

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).

Beim Importieren in TI Designer werden die Gruppenelemente des Datenbereichs als Parameter der neu erstellten Methode behandelt. Aufgrund der RDS-Anforderungen (Remote Data Service) für webbasierte Anwendungen muss das Gruppenelement, das die Tabelle definiert, jedoch als Rückgabewert der Methode und nicht als Methodenparameter definiert werden. Um die Methode richtig zu definieren, müssen Sie dieses Gruppenelement (ACCTINFO im vorherigen Beispiel) manuell als Rückgabewert neu definieren.

Beachten Sie vor dem Importieren des COBOL-Datenbereichs die Anzahl der Zeilen, die in der OCCURS-Klausel angegeben sind. Nachdem Sie den COBOL-Datenbereich importiert haben, verwenden Sie das folgende Verfahren, um ein Recordset für webbasierte Anwendungen zu definieren.

So definieren Sie ein Recordset für eine webbasierte Anwendung

  1. Starten Sie TI Designer.

  2. Doppelklicken Sie in der Konsolenstruktur auf den Ordner "Recordsets ", um zu überprüfen, ob TI Designer die Typdefinition des Recordsets erstellt hat. Der Name der Typdefinition stammt aus dem Gruppenelement, das die Tabelle im COBOL-Quellcode definiert hat.

  3. Doppelklicken Sie auf den Ordner "Methoden ", und klicken Sie auf den Namen der Methode. Stellen Sie sicher, dass der Recordset-Parameter im Detailbereich angezeigt wird. Der Parametername sollte mit dem Namen der Typdefinition des Recordsets übereinstimmen.

  4. Klicken Sie im Menü "Bearbeiten " auf " Entsperren ", um die Methode zu entsperren.

  5. Löschen Sie im Detailbereich den Recordset-Parameter.

  6. Klicken Sie mit der rechten Maustaste auf die Methode, klicken Sie auf "Eigenschaften", und klicken Sie dann auf die Registerkarte "Automatisierungsdefinition ".

  7. Klicken Sie im Feld "Rückgabetyp " auf den Namen der Typdefinition des Recordsets.

  8. Klicken Sie auf die Registerkarte "Recordsets ".

  9. Geben Sie im Feld "Group-Item Maximum " die Anzahl der Zeilen ein, die im COBOL-Quellcode angegeben sind, und klicken Sie dann auf "OK".

    Ausführliche Informationen zu Recordsets finden Sie in der Dokumentation zu ActiveX Data Objects (ADO) und Remote Data Service (RDS), die beim Installieren von Microsoft Data Access Components (MDAC) enthalten ist.

  • Last updated on