Information Technology Reference
In-Depth Information
SUBSCHEMA SECTION.
COPY "SUBSUPPLY.COB"
WORKING-STORAGE SECTION.
77 TXT-NO PIC 9(10).
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.
PROCEDURE DIVISION.
MAIN-CNV SECTION.
INIT.
READY UPDATE.
INITIATE TRANSACTION TX-NO USAGE UPDATE.
000-MAIN-ROUTINE.
PERFORM 100-SELECT-ITEM.
PERFORM 300-INSERT-ITEM.
COMMIT.
FINISH.
STOP RUN.
100-SELECT-ITEM.
OBTAIN FIRST ITEM WITHIN AIX-ITEM.
IF DBMS-STATUS NOT = 00000
DISPLAY 'NO RECORD IN ITEM TABLE'
ELSE
MOVE UNIT-PRICE TO PRICE
DISPLAY 'SUPPLIER ' AIX-SUPPLIER-ID
', PART ' AIX-PART-ID
': PRICE ' PRICE
PERFORM 150-SELECT-NEXT-ITEM
UNTIL DBMS-STATUS = 17410.
150-SELECT-NEXT-ITEM.
OBTAIN NEXT ITEM WITHIN AIX-ITEM.
IF DBMS-STATUS = 00000
MOVE UNIT-PRICE TO PRICE
DISPLAY 'SUPPLIER ' AIX-SUPPLIER-ID
', PART ' ,AIX-PART-ID, ': PRICE ' PRICE.
300-INSERT-ITEM.
MOVE 'S3' TO SUPPLIER-ID.
MOVE 'P1' TO PART-ID.
MOVE 5 TO UNIT-PRICE.
FIND FIRST PART WITHIN AIX-PART USING SORT KEY.
IF DBMS-STATUS NOT = 00000
DISPLAY 'NO RECORD INSERTED - MISSING OWNER
IN PART'
Search WWH ::




Custom Search