0
@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á:
COBOL Código:
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
Marcadores