I believe that the video on Using OpenESQL Assistant covers how to generate the host variable copybooks for a particular table. The one generated for the example here which uses SQL Server Northwind database Customer table would be: * ------------------------------------------- * DECLARE TABLE for Customers * ------------------------------------------- EXEC SQL DECLARE Customers TABLE ( CustomerID nchar(5) NOT NULL , CompanyName nvarchar(40) NOT NULL , ContactName nvarchar(30) , ContactTitle nvarchar(30) , Address nvarchar(60) , City nvarchar(15) , Region nvarchar(15) , PostalCode nvarchar(10) , Country nvarchar(15) , Phone nvarchar(24) , Fax nvarchar(24) ) END-EXEC. * ------------------------------------------- * COBOL HOST VARIABLES FOR TABLE Customers * ------------------------------------------- 01 DCLCustomers. 03 Customers-CustomerID PIC N(5) USAGE NATIONAL. 03 Customers-CompanyName PIC N(40) USAGE NATIONAL. 03 Customers-ContactName PIC N(30) USAGE NATIONAL. 03 Customers-ContactTitle PIC N(30) USAGE NATIONAL. 03 Customers-Address PIC N(60) USAGE NATIONAL. 03 Customers-City PIC N(15) USAGE NATIONAL. 03 Customers-Region PIC N(15) USAGE NATIONAL. 03 Customers-PostalCode PIC N(10) USAGE NATIONAL. 03 Customers-Country PIC N(15) USAGE NATIONAL. 03 Customers-Phone PIC N(24) USAGE NATIONAL. 03 Customers-Fax PIC N(24) USAGE NATIONAL. * ------------------------------------------- * COBOL INDICATOR VARIABLES FOR TABLE Customers * ------------------------------------------- 01 DCLCustomers-NULL. 03 Customers-ContactName-NULL PIC S9(04) COMP-5. 03 Customers-ContactTitle-NULL PIC S9(04) COMP-5. 03 Customers-Address-NULL PIC S9(04) COMP-5. 03 Customers-City-NULL PIC S9(04) COMP-5. 03 Customers-Region-NULL PIC S9(04) COMP-5. 03 Customers-PostalCode-NULL PIC S9(04) COMP-5. 03 Customers-Country-NULL PIC S9(04) COMP-5. 03 Customers-Phone-NULL PIC S9(04) COMP-5. 03 Customers-Fax-NULL PIC S9(04) COMP-5.
↧