Pasar parametros por linea de Comandos

[Joseg]

Hola

Queria que um determinado EXE chamase um programa em Powercobol desta forma:

c:\myprogPWC.exe var1="AAAAA" var2="BBBBBB"

Como fazer isto de forma a conseguir ler o conteudo de "var1" e "var2" ?


Gracias por qualquer ajuda
Jose Gomes

[Kuk]

Joseg, en el vento "Opened" metes esto:


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CMD PIC X(260).
PROCEDURE DIVISION.

MOVE "CommandLine" OF POW-SELF TO WS-CMD


Luego analizas el contenido de WS-CMD ;)

[Joseg]

Gracias :)

Vou analisar.

Jose Gomes

[Rapinto]

JoseG

Se utilizar NETCOBOL deverá utilizar o seguinte código:


@OPTIONS NOALPHA
************************************************** ***************
* Copyright (c) 2014 RPS Software.
* Created : Out 2014
* Last Modified: Out 2014
************************************************** ***************
IDENTIFICATION DIVISION.
PROGRAM-ID. RPSFTSPROLIDER.
AUTHOR. Rui Pinto.
*-----------------------------------------------------------------
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
ARGUMENT-NUMBER IS ARGNUMBER
ARGUMENT-VALUE IS ARGVALUE.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
*-----------------------------------------------------------------
DATA DIVISION.
FILE SECTION.
*-----------------------------------------------------------------
WORKING-STORAGE SECTION.
01 DLLNAME PIC X(260) VALUE "RPSFtsProlider.dll".
01 FORMNAME PIC X(14) VALUE "FrmFtsProlider".
01 CODEMP GLOBAL EXTERNAL PIC X(005).
01 ACCPATHFICH GLOBAL EXTERNAL PIC X(128).
01 ACCPATHFICHEMP GLOBAL EXTERNAL PIC X(128).
*
01 MsgTITLE PIC X(32) VALUE "R.P.S. - Faturação ".
01 MsgBody PIC X(300).
01 RETCODE PIC S9(9) COMP-5 VALUE ZERO.
*
PROCEDURE DIVISION.
MAIN SECTION.
MAIN-00.
INITIALIZE CODEMP ACCPATHFICH ACCPATHFICHEMP.
DISPLAY 1 UPON ARGNUMBER.
ACCEPT CODEMP FROM ARGVALUE.
DISPLAY 2 UPON ARGNUMBER.
ACCEPT ACCPATHFICH FROM ARGVALUE.
DISPLAY 3 UPON ARGNUMBER.
ACCEPT ACCPATHFICHEMP FROM ARGVALUE.
IF CODEMP = SPACE
IF ACCPATHFICH = SPACE
IF ACCPATHFICHEMP = SPACE
MOVE "ERRO: Utilize : Prog.exe Cod_Empresa Path_Ficheiros_Base Path_Ficheiros_Empresa."
TO MsgBody
GO TO MAIN-80.
***********
*********** restante codigo aqui
***********
MAIN-80.
MOVE LOW-VALUE TO MsgTITLE(32:1)
MOVE LOW-VALUE TO MsgBody(128:1)
CALL "MessageBoxA" *> Message box system function
WITH STDCALL *> STDCALL call
USING
BY VALUE 0 *> Handle (The value is made "0")
BY REFERENCE MsgBody *> Message text
BY REFERENCE MsgTITLE *> Message box title
BY VALUE 32 *> Type of message box (0-5)
RETURNING RETCODE. *> Return value
GO TO MAIN-95.
MAIN-90.
************ aqui pode chamar uma DLL do PowerCobol e respetiva FORM
*
CALL "POWEROPENSHEET" USING DLLNAME FORMNAME.
*
MAIN-99.
END PROGRAM RPSFTSPROLIDER.


Cria um EXE muito pequeno e pode chamar em seguida as FORMS do PowerCobol.

Um abraço,
Rui Pinto

[Joseg]

Obrigado :)

É isto mesmo !!!

Abraço.

[Recato53]

Desde una dll, consigo pasar una variable a un programa Exe.

Ahora lo que necesito es que desde el programa Exe, devuelva otra variable y la pueda consultar desde la dll.

Un saludo.

[Rapinto]

Recato53,
Porque não usas uma variável "global external" no EXE e na DLL?
Penso que te resolve o problema.
Un saludo,
Rui Pinto