Database Program Translation - Information Systems Reengineering, Integration and Normalization - page 206

As an example, an embedded-SQL program is as follows:

ID DIVISION.
PROGRAM-ID. Relational-DATABASE-PROGRAM.
ENVIRONMENTDIVISION.
DATA DIVISION
WORKING-STORAGESECTION.
EXEC SQLDECLARE TEST1CURSOR FOR
SELECT * FROM SUPPLIER
END-EXEC.
01 SUPPLIER.
05 SUPPLIER-IDPIC X(4).
05 SUPPLIER-NAMEPIC X(20).
05

ADDRESS PIC x(20).

01 PART.
05 PART-ID PIC X(4).
05 PART-NAME IC X(20)
01 ITEM.
05 SUPPLIER-IDPIC X(4).
05 PART-ID PIC X(4).
05 UNIT-PRICE IC 9(4).
01 PRICE PIC Z99.

77 NO-DATA PIC S9(9) COMP VALUE +100.

PROGRAMDIVISION.
000-MAIN-ROUTINE.
MOVE 'S3' TO SUPPLIER-ID.
MOVE 'P1' TO PART-ID.
MOVE 5 TO UNIT-PRICE.
EXEC SQL INSERT INTO ITEM
(SUPPLIER-ID,PART-ID,UNIT-PRICE)
VALUES (:SUPPLIER-ID, :PART-ID,:UNIT-PRICE)
END-EXEC.
IF SQLCODE=NO-DATA
DISPLAY'NO RECORD INSERT'
ELSE
MOVE UNIT-PRICE TO PRICE
DISPLAY'SUPPLIER' ITEM.SUPPLIER-ID
', PART 'ITEM.PART-ID
': PRICE'PRICE'INSERTED'.

Step 3.2. The emulation method of this embedded-SQL program can be converted
into an UniSQL C program as follows: