Quellcode-Bibliothek kaputt.cob   Sprache: Cobol

         IDENTIFICATION DIVISION.
         CLASS-ID. Winecase Inherits SOMObject.
         ENVIRONMENT DIVISION.
         Configuration Section.
         Repository.
         CLASS SOMObject IS "SOMObject"
         CLASS Winecase IS "Winecase" .
         DATA DIVISION.
         Working-Storage Section.
         01 Case-Number Pic 9(5).
         01 Case-date Pic X(8).
         01 Case-Count Pic 99.
         01 Case-Contents.
         05 Case-Entry occurs 12 times.
         10 Case-Bottle Pic X(20).
         PROCEDURE DIVISION.
         IDENTIFICATION DIVISION.
         METHOD-ID. "AddBott" .
         DATA DIVISION.
         Working-Storage Section.
         77 sub Pic 99 VALUE 0.
         01 Found-Flag Pic 9.
         88 found VALUE 0.
         88 not-found VALUE 1.
         Linkage Section.
         01 In-bottle Pic X(20).
         01 Add-flag Pic 9.
         PROCEDURE DIVISION USING In-bottle Add-flag.
           Move in-bottle to Case-Bottle(sub)
           Add 1 to Case-Count
         Exit method.
         END METHOD "AddBott" .
         END CLASS Winecase.