Problema nella definizione di un recordset per le applicazioni basate sul Web
In TI, un recordset è costituito da dati tabulari definiti nel codice sorgente COBOL nel mainframe. I dati tabulari sono definiti da un elemento di gruppo contenente una clausola OCCURS nell'area dati COBOL. Quando si importa un'area dati COBOL in TI Designer, vengono eseguite le conversioni COBOL-to-Automation seguenti:
L'area dati COBOL definisce i parametri del metodo appena creato e i membri di tutti i set di record.
L'elemento del gruppo che definisce la tabella (contiene la clausola OCCURS) è rappresentato sia come definizione di tipo del recordset del metodo che come parametro del metodo.
Altri elementi del gruppo sono rappresentati come parametri del metodo.
Gli elementi dati elementali (definizioni dei campi della tabella) sono rappresentati come membri del recordset.
L'area dati COBOL seguente descrive la libreria dei tipi per un'applicazione basata sul Web che usa un ambiente remoto CICS LINK. L'applicazione restituisce informazioni su fino a sei account per ogni nome del cliente e il PIN corrispondente immesso come input.
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).
Quando viene importato in TI Designer, gli elementi del gruppo dell'area dati vengono considerati come parametri del metodo appena creato. Tuttavia, a causa dei requisiti di Remote Data Service (RDS) per le applicazioni basate sul Web, l'elemento di gruppo che definisce la tabella deve essere definito come valore restituito del metodo, non come parametro del metodo. Per definire correttamente il metodo, è necessario ridefinire manualmente questo elemento di gruppo (ACCTINFO nell'esempio precedente) come valore restituito.
Prima di importare l'area dati COBOL, prendere nota del numero di righe specificate nella clausola OCCURS. Dopo aver importato l'area dati COBOL, usare la procedura seguente per definire un recordset per le applicazioni basate sul Web.
Per definire un recordset per un'applicazione basata sul Web
Avviare Designer TI.
Nell'albero della console fare doppio clic sulla cartella Recordets per verificare che TI Designer creato la definizione del tipo del recordset. Il nome della definizione del tipo viene tratto dall'elemento del gruppo che ha definito la tabella nel codice sorgente COBOL.
Fare doppio clic sulla cartella Metodi e fare clic sul nome del metodo. Verificare che il parametro recordset sia visualizzato nel riquadro dei dettagli. Il nome del parametro deve corrispondere al nome della definizione del tipo del recordset.
Nel menu Modifica fare clic su Sblocca per sbloccare il metodo.
Nel riquadro dei dettagli eliminare il parametro recordset.
Fare clic con il pulsante destro del mouse sul metodo, scegliere Proprietà e quindi fare clic sulla scheda Definizione di automazione .
Fare clic sul nome della definizione del tipo del recordset nella casella Tipo restituito .
Fare clic sulla scheda Recordset .
Nella casella Valore massimo elemento gruppo digitare il numero di righe specificate nel codice sorgente COBOL e quindi fare clic su OK.
Per informazioni dettagliate sui set di recordset, vedere la documentazione di ActiveX Data Objects (ADO) e Remote Data Service (RDS) inclusa quando è stato installato Microsoft Data Access Components (MDAC).