aadowns21 Absent Member.
Absent Member.
278 views

Convert to Cobol

public class Person
{ 
    private string Name;
    private string FirstName;

    public Person(string name, string firstname) => (Name, FirstName) = (name, firstname);

List<Person> listofPersons = new List<Person>();

listofPersons
.AddRange(new List<Person> { new Person("John1", "Doe" ), new Person("John2", "Doe" ), new Person("John3", "Doe" ), });
0 Likes
1 Reply
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: Convert to Cobol

       class-id Person.
       01 #Name string.
       01 FirstName string.

       method-id new(#name as string, firstname as string)
           set self::Name to #name
           set self::FirstName to firstname
       end method.

       end class.

           declare listofPersons = new type List[type Person].
           invoke listofPersons::AddRange(
               table of type Person(
                   new Person("John1", "Doe")
                   new Person("John2", "Doe")
                   new Person("John3", "Doe")))
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.