Anonymous user
Abstract type: Difference between revisions
→Interface: added explicit scope delimiters for COMPUTE
(Add Skew) |
imported>Acediast (→Interface: added explicit scope delimiters for COMPUTE) |
||
Line 643:
===Interface===
{{trans|F#}}
<syntaxhighlight lang="cobol">
INTERFACE-ID. Shape.
PROCEDURE DIVISION.
IDENTIFICATION DIVISION.
METHOD-ID. perimeter.
DATA DIVISION.
Line 654 ⟶ 656:
END METHOD perimeter.
IDENTIFICATION DIVISION.
METHOD-ID. shape-area.
DATA DIVISION.
Line 664 ⟶ 667:
IDENTIFICATION DIVISION.
CLASS-ID. Rectangle.
Line 671 ⟶ 675:
INTERFACE Shape.
IDENTIFICATION DIVISION.
OBJECT IMPLEMENTS Shape.
DATA DIVISION.
Line 679 ⟶ 684:
PROCEDURE DIVISION.
IDENTIFICATION DIVISION.
METHOD-ID. perimeter.
DATA DIVISION.
Line 684 ⟶ 690:
01 ret USAGE FLOAT-LONG.
PROCEDURE DIVISION RETURNING ret.
COMPUTE
GOBACK.
END METHOD perimeter.
IDENTIFICATION DIVISION.
METHOD-ID. shape-area.
DATA DIVISION.
Line 694 ⟶ 702:
01 ret USAGE FLOAT-LONG.
PROCEDURE DIVISION RETURNING ret.
COMPUTE
GOBACK.
END METHOD shape-area.
END OBJECT.
|