Demonstration Program

As soon as your installation and setup are complete, you may compile and run the demonstration program (demo.cbl), which is included in the sample directory (which by default is %PUBLIC%\Documents\Micro Focus\extend x.x.x\sample). This program illustrates many of the Acu4GL product capabilities, including how to:

map RDBMS data types to traditional COBOL data types.
compile a COBOL program in preparation for interfacing with an RDBMS.
modify records within the RDBMS database.

The demo program simulates what might be used in a distributor's shipping department. You'll be creating the orderfile table in an existing database of your choosing. The table will contain information about the orders placed by the distributor's customers. The orderfile table has the following columns of information (the database data type and COBOL data type are shown for each):

Note: The data type may be slightly different depending on the RDBMS.

Column Name	Data Type	COBOL PIC
order_name	varchar(4)	pic 9(4)
order_date	int	pic 9(6)
customer_num	varchar(3)	pic 9(3)
ship_instruct	varchar(40)	pic x(40)
backlog	varchar(1)	pic x
po_num	varchar(10)	pic x(10)
ship_date	int	pic 9(6)
ship_weight	decimal(8,2)	pic 9(6)v99
ship_charge	decimal(6,2)	pic 9(4)v99
paid_date	int	pic 9(6)

Here is the COBOL FD (file descriptor) that matches the orderfile table. Note that the FD entries must match the names of the RDBMS fields and must match their data types:

fd  orders. 
01  order-record. 
    03  order-num              pic x(4). 
    03  order-fields. 
        05  order-date         pic 9(6). 
        05  customer-num       pic 9(3). 
        05  ship-instruct      pic x(40). 
        05  backlog            pic x. 
        05  po-num             pic x(10). 
        05  ship-date          pic 9(6). 
        05  ship-weight        pic 9(6)v99. 
        05  ship-charge        pic 9(4)v99. 
        05  paid-date          pic 9(6).