Quantcast
Channel: Visual COBOL - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4356

Calling Windows API from managed COBOL

$
0
0

Hello,

I need to call Windows API function from managed COBOL. In native COBOL I'd write something like

environment division.
special-names.
call-convention 74 is WAPI.

...

working-storage section.

01 VersionInfoEx.
   03 dwEVersionInfoSize        DWORD.
   03 dwEMajorVersion           DWORD.
   03 dwEMinorVersion           DWORD.
   03 dwEBuildNumberFull.
      05 dwEBuildNumber         USHORT.
      05 dwEMajorAndMinor       USHORT.
   03 dwEPlatformId             DWORD.
   03 szECSDVersion             pic x(128).
   03 wEServicePackMajor        WORD.
   03 wEServicePackMinor        WORD.
   03 wESuiteMask               WORD.
   03 wEProduktType             BYTE.
      88 ver-nt-workstation        value x"01".
      88 ver-nt-server             value x"02" x"03".
      88 ver-nt-domain-controller  value x"02".
   03 wEReserved                BYTE.

...

call WAPI "GetVersionExA" using VersionInfoEx

where DWORD, USHORT, WORD and BYTE are declared in windows.cpy. But I don't know how to make this call from managed COBOL. Could anyone help me ? Thnx.


Viewing all articles
Browse latest Browse all 4356

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>