Absent Member.
Absent Member.
1526 views

Fail in call ENUM

Jump to solution

The picture show all:
How I can call that ENUM ?
In comments have the C# code.... and, I just want to re-create the code in cobol...

0 Likes
1 Solution

Accepted Solutions
Absent Member.
Absent Member.

Hi Bencz,

The following code should work:-

   $set sourceformat"variable"

     $set ilusing"SocialExplorer.IO.FastDBF"

      program-id. Program1 as "ConsoleApplication2.Program1".

      data division.

      working-storage section.

      01  odbf        type DbfFile.

      procedure division.

          set odbf to new DbfFile()

          invoke odbf::Open("test.dbf" , type System.IO.FileMode::Create)

          invoke odbf::Header::AddColumn("test1", type DbfColumn+DbfColumnType::Character , 10 , 0)

          goback.

      end program Program1.

The enum is defined within the DbfColumn class.

Regards

David

View solution in original post

0 Likes
1 Reply
Absent Member.
Absent Member.

Hi Bencz,

The following code should work:-

   $set sourceformat"variable"

     $set ilusing"SocialExplorer.IO.FastDBF"

      program-id. Program1 as "ConsoleApplication2.Program1".

      data division.

      working-storage section.

      01  odbf        type DbfFile.

      procedure division.

          set odbf to new DbfFile()

          invoke odbf::Open("test.dbf" , type System.IO.FileMode::Create)

          invoke odbf::Header::AddColumn("test1", type DbfColumn+DbfColumnType::Character , 10 , 0)

          goback.

      end program Program1.

The enum is defined within the DbfColumn class.

Regards

David

View solution in original post

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.