$set mfoo
       Class-id.   StudentUI
           inherits from Base
           .
       Author.     Arthur R. Buss

       Object Section.
       Class-control.
           Base is Class "base"
           StudentUI is Class "senui"
           .

       OBJECT.

       Method-id. "GetParameters".
       Linkage Section.
       01  ls-Student-Parameters.
           05  ls-Stu-Hours            pic 9(03).
           05  ls-Stu-Major            pic X(20).

       Procedure Division
           returning ls-Student-Parameters.

           invoke self "DisplayHoursRequest"
               returning ls-Stu-Hours
           invoke self "DisplayMajorRequest"
               returning ls-Stu-Major
           .
       End Method "GetParameters".

       Method-id. "DisplayHoursRequest".
       Linkage Section.
       01  ls-Stu-Hours                pic 9(03).

       Procedure Division
           returning ls-Stu-Hours.

           display "Enter Minimum Hours: "  with no advancing
           accept ls-Stu-Hours
           .
       End Method "DisplayHoursRequest".

       Method-id. "DisplayMajorRequest".
       Linkage Section.
       01  ls-Stu-Major                pic X(20).

       Procedure Division
           returning ls-Stu-Major.

           display "Enter Student Major: "  with no advancing
           accept ls-Stu-Major
           move function Upper-Case (ls-Stu-Major) to ls-Stu-Major
           .
       End Method "DisplayMajorRequest".

       End Object.
       End Class StudentUI.