|
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)
¤
|
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchen
Die farbliche Syntaxdarstellung ist noch experimentell.
|
