$set mfoo
       Class-id.   Student
           inherits from Person
           .

       Object Section.
       Class-control.
           Person is Class "person"
           Student is Class "senstu"
           .

       OBJECT.

       Object-storage Section.
       01  Student-In.
           05  Stu-Data.
               10  Stu-Credits         pic 9(03).
               10  Stu-Major           pic X(20).

       Method-id. "PopulateStudent".

       Linkage Section.
       01  ls-Student-In.
           05  ls-Stu-Name             pic X(25).
           05  ls-Stu-Data.
               10  ls-Stu-Credits      pic 9(03).
               10  ls-Stu-Major        pic X(20).

       Procedure Division
           using ls-Student-In.
           invoke self "PopulateName"
               using ls-Stu-Name
           move ls-Stu-Data to Stu-Data
           .
       End Method "PopulateStudent".

       Method-id. "GetCreditHours".

       Linkage Section.
       01  ls-Credit-Hours             pic  9(03).

       Procedure Division
           returning ls-Credit-Hours.

           move Stu-Credits to ls-Credit-Hours
           .
       End Method "GetCreditHours".
       Method-id. "GetMajor".

       Linkage Section.
       01  ls-Stu-Major                pic X(20).

       Procedure Division
           returning ls-Stu-Major.

           move Stu-Major to ls-Stu-Major
           .
       End Method "GetMajor".

       End Object.
       End Class Student.