FabioYeyo, toma te he creado la DLL para Windows.
Para poder llamarla desde PowerCOBOL tienes hacer como se dice aquí:
[Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary" - COBOL Foro
La sintaxis de llamada a esta función será:
Código COBOL:
WORKING-STORAGE SECTION.
01 WS-FunctA PIC X(250).
01 WS-Format PIC X(250).
01 WS-PlainText PIC X(250).
01 WS-Key PIC X(250).
01 WS-CipherText PIC X(250).
01 RESP PIC S9(9) COMP-5.
01 DES PIC X(3) VALUE "DES".
PROCEDURE DIVISION.
CALL DES WITH STDCALL USING WS-FunctA
WS-Format
WS-PlainText
WS-Key
WS-CipherText
RETURNING RESP