Efficient way to get owner id for a filename in cobol program

[SMartin_accela_com]

For security, want to retrieve files from a directory by owner ID (%username%)

[Claudio_Contardi]

Good morning.

Have you tried with:

ACCEPT TERMINAL-ABILITIES FROM TERMINAL-INFO
ACCEPT SYSTEM-INFORMATION FROM SYSTEM-INFO

 See Format 3 (ACCEPT FROM), Steps 7 and 8.

 You will obtain useful information, either you are executing your program locally (wrun32.exe/runcbl) or via Thin Client.

If you want to inquire information about the files themselves, you can use C$FILEINFO, or CALL a Windows API such as KERNEL32.DLL and use one of its modules.

[SMartin_accela_com]

C$fileinfo would be good except returns only date time and file size, I believe.

Not familiar with calling api's in a cobol application

[neidingd]

Hi,

i would use WMI.
It is easy to use with cobol as OLE Programming.. like accessing word, excel and so on.
i also have a example here in the forum how i do a ping with wmi in cobol.

TO use WMI u need to create a .def File with AXDEFGEN.
The needed object is for WMI then the @WbemScripting

The next i would use this Example https://devblogs.microsoft.com/scripting/how-can-i-determine-the-owner-of-a-file/ to convert it to a cobol code.

Greetings
David