Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: kaputt.cob Sprache: Cobol

Original von: verschiedene^©

         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.

¤ Dauer der Verarbeitung: 0.2 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.