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

EXEC SQLOPENC1END-EXEC.
EXEC SQLFETCHC1INTO:ITEM END-EXEC.
IF SQLCODE=NO-DATA
DISPLAY 'NOSELECTED RECORD IN ITEM TABLE'
ELSE
MOVE UNIT-PRICE TO PRICE
DISPLAY 'SUPPLIER'ITEM.SUPPLIER-ID
', PART 'ITEM.PART-ID, ': PRICE'PRICE
PERFORM150-SELECT-NEXT-ITEM
UNTILSQLCODE =END-OF-SET.
150-SELECT-NEXT-ITEM.
EXEC SQLFETCHC1INTO:ITEM END-EXEC.
IF SQLCODE=ACCESS-OK
MOVE UNIT-PRICETOPRICE
DISPLAY 'SUPPLIER'ITEM.SUPPLIER-ID
', PART ' TEM.PART-ID, ': PRICE' PRICE.

300-INSERT-ITEM.
MOVE 'S3' TO SUPPLER-ID.
MOVE 'P1' TO PART-ID.
MOVE 5TOUNIT-PRICE.
EXEC SQLINSERTINTOITEM
(SUPPLIER-ID, PART-ID, UNIT-PRICE)
VALUES (:SUPPLIER-ID, :PART-ID, :UNIT-PRICE)
END-EXEC.
IF SQLCODE=NO-DATA
DISPLAY 'NORECORD INSERTED'
ELSE
MOVE UNIT-PRICE TO PRICE
DISPLAY 'SUPPLIER'ITEM.SUPPLIER-ID
', PART 'ITEM.PART-ID
': PRICE'PRICE'INSERTED'.

After program translation, the above embedded-SQL program will be translated
into a network database program containing the emulated Network DML statements
of OBTAIN and STORE as shown below:

IDENTIFICATION DIVISION.
PROGRAM-ID. CONVERTED-NETWORK-DATABASE-
PROGRAM.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. DG MV10000.
OBJECT-COMPUTER. DG MV10000.
DATA DIVISION.