Information Technology Reference
In-Depth Information
ID DIVISION.
PROGRAM-ID. RELATIONAL-DATABASE-PROGRAM.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. DG MV10000.
OBJECT-COMPUTER. DG MV10000.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL DECLARE C1 CURSOR FOR
SELECT * FROM SUPPLIER
END-EXEC.
01 SUPPLIER.
05 SUPPLIER-ID
PIC X(4).
05 SUPPLIER-NAME
PIC X(20).
05 ADDRESS
PIC X(20).
01 PART.
05 PART-ID
PIC X(4).
05 PART-NAME
PIC X(20).
01 ITEM.
05 SUPPLIER-ID
PIC X(4).
05 PART-ID
PIC X(4).
05 UNIT-PRICE
PIC 9(4).
01 PRICE
PIC ZZ9.
77 NO-DATA
PIC S9(9) COMP VALUE +100.
77 END-OF-SET
PIC S9(9) COMP VALUE +100.
77 ACCESS-OK
PIC S9(9) COMP VALUE +0.
PROGRAM DIVISION.
000-MAIN-ROUTINE.
PERFORM 100-SELECT-ITEM.
PERFORM 300-INSERT-ITEM.
EXEC SQL CLOSE C1 END-EXEC.
STOP RUN.
100-SELECT-ITEM.
Search WWH ::
Custom Search