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

       Object Section.
       Class-control.
           Base is Class "base"
           Registrar is Class "register"
           StudentDM is Class "senDBI"
           StudentPRT is Class "senPrt"
           StudentUI  is Class "senui"
           .

       OBJECT.

       Object-storage Section.
       01  Handles             object reference.
           05  theDMHandle.
           05  thePRTHandle.
           05  theUIHandle.
           05  theStuHandle.

       Method-id. "ProcessRequest".
       Local-storage Section.
       01  Student-Parameters.
           05  Stu-Min-Hours           pic 9(03).
           05  Stu-Major               pic X(20).

       01  Student-Data.
           05  Stu-Name                pic X(25).

       Procedure Division.

           invoke StudentUI  "New"
               returning theUIHandle
           invoke theUIHandle "GetParameters"
               returning Student-Parameters
           invoke StudentPRT "New"
               returning thePRTHandle
           invoke StudentDM "New"
               returning theDMHandle
           invoke theDMHandle "GetStudent"
               using Student-Parameters
               returning theStuHandle
           perform until theStuHandle = Null
               invoke theStuHandle "GetName"
                   returning Stu-Name
               invoke thePRTHandle "WriteDetail"
                   using Stu-Name
               invoke theStuHandle "Finalize"
                   returning theStuHandle
               invoke theDMHandle "GetStudent"
                   using Student-Parameters
                   returning theStuHandle
           end-perform
           invoke thePRTHandle "FinalizeReport"
           .
       End Method "ProcessRequest".
       End Object.
       End Class Registrar.