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

       Object section.
       Class-control.
           Base is Class "base"
           Person is Class "person"
           .
       OBJECT.

       Object-storage Section.
       01  Person-Name.
           05  Per-Last-Name               pic X(20).
           05  Per-First-Name              pic X(20).
           05  Per-Middle-Name             pic X(20).

       01  Counters.
           05  First-Name-Len              pic 9(02).
           05  Last-Name-Len               pic 9(02).

       Method-id. "PopulateName".
       Linkage Section.
       01  ls-Person-Name              pic X(60).

       procedure division
           using ls-Person-Name.

           initialize Counters
           inspect ls-Person-Name
               tallying First-Name-Len
               for characters before initial space
           inspect ls-Person-Name (First-Name-Len + 2:)
               tallying Last-Name-Len
               for characters before initial space
           move ls-Person-Name (1:First-Name-Len)
               to Per-First-Name
           move ls-Person-Name (First-Name-Len + 2 : Last-Name-Len)
               to Per-Last-Name
           .
       End Method "PopulateName".
       Method-id. "GetName".
       Working-storage Section.
       01  Blank-Char                  pic X   value space.

       Linkage Section.
       01  ls-Name                     pic X(25).

       Procedure Division
           returning ls-Name.

           initialize ls-name
           string Per-First-Name delimited by space
                  Blank-Char     delimited by size
                  Per-Last-Name  delimited by space
               into ls-Name
           .
       End Method "GetName".
       End Object.
       End Class Person.