Citación del post de
Breew
|
❞
Hola.
Tengo una llamada externa a un editor de texto hecha con CmDDE.
Contemplo la posibiidad de que este el editor en version64 o en version32.
Efectuo la llamada al de 32 y si no existe, que lance directamente el de 64.
Pero me encuentro que aunque chequee el returnvalue, la ventana de aviso de que no existe, me aparece igual y el returnvalue siempre me sale a cero.
Como puedo eliminar el aviso sin que me espere el aceptar de la ventana de aviso?
Código COBOL:
STRING "UEDIT32.EXE LISTADO.TXT" DELIMITED BY SIZE INTO DDE-WORD. INVOKE CmDDE1 "Execute" USING DDE-WORD POW-SWSHOWNORMAL RETURNING ReturnValue IF ReturnValue = POW-FALSE THEN GO ULTRAEDIT64 ELSE EXIT PROGRAM.
Muchas gracias. |
MinHa sugestão:
Código COBOL:
SPECIAL-NAMES.
ENVIRONMENT-NAME IS ENV1
ENVIRONMENT-VALUE IS ENV2
WORKING-STORAGE.
01 WENVVALOR PIC X(100).
PROCEDURE DIVISION.
DISPLAY "ProgramW6432" UPON ENV1
ACCEPT WENVVALOR FROM ENV2
IF WENVVALOR = SPACES
MOVE "prog32" TO wPprog *> 32Bits
ELSE
MOVE "prog64" TO wPprog *> 64Bits
END-IF