Kuk,
Não entendo muito bem o que pretendes fazer e qual é o erro.
Desculpa lá, o meu espanhol é muito fraco e não consigo entender muito bem.
No entanto, pelo que vejo, tens uma Procedure Division "with STDCALL" - eu nunca utilizei isso.
Nas chamadas a WINAPI aí sim utilizei em muitos casos :
Código COBOL:
CALL "GetForegroundWindow" WITH STDCALL LINKAGE
RETURNING WS-HANDLE.
*
CALL "GetWindowLongA" WITH STDCALL USING BY VALUE WS-HANDLE
BY VALUE STYLE
RETURNING ATTRIBUTE.
IF ATTRIBUTE = ZERO GO TO MAIN-99.
*
CALL "GetTempPathA" WITH STDCALL LINKAGE USING
BY VALUE WSWINTMPDIRLEN
BY REFERENCE WSWINTMPDIR.
*
CALL "GetTempFileNameA" WITH STDCALL LINKAGE USING
BY REFERENCE WSWINTMPDIR
BY REFERENCE WSPREFIX
BY VALUE WSUNIQUE
BY REFERENCE WSTMPFILENAME
RETURNING RESULT.
Tenta explicar-me melhor, pode ser que eu consiga ajudar,
Reparei que podes ter problemas com o tipo de USING : pode ser por 2 processos: By Reference or By Value.
Isto pode fazer muita diferença.
Un Saludo,
Rui Pinto