Ver Mensaje Individual
  #8
Antiguo 27 de diciembre de 2015, 22:46
Rapinto
Gran amigo del Foro
Guru de COBOL
Activista del Foro: Activista del Foro - Issue reason: ¡Gracias! Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por ayudar mucho a los foreros Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por saber demasiado! 
Última Actividad 29.01.2018 20:23
Posts Posts: 240
Likes enviados Enviados: 19
Likes recibidos Recibidos: 224

Recato53,

Num programa em PowerCobol podes usar:
Código COBOL:
  1.  01  WSCOMMLINE            PIC X(256).
  2. **************
  3. MOVE "CommandLine" OF FrmMain        TO WSCOMMLINE.
  4.     IF WSCOMMLINE NOT = SPACE  ....

Em NETCOBOL :
Código COBOL:
  1.  ENVIRONMENT DIVISION.
  2.  CONFIGURATION SECTION.
  3.  SPECIAL-NAMES.
  4.       ARGUMENT-NUMBER IS ARGNUMBER
  5.       ARGUMENT-VALUE  IS ARGVALUE.
  6. ******
  7. PROCEDURE DIVISION.
  8.      DISPLAY 1 UPON ARGNUMBER.
  9.      ACCEPT CODEMP      FROM ARGVALUE.
  10.      DISPLAY 2 UPON ARGNUMBER.
  11.      ACCEPT ACCPATHFICH FROM ARGVALUE.
  12.      DISPLAY 3 UPON ARGNUMBER.
  13.      ACCEPT CLOSESESSION FROM ARGVALUE.

Não testei, mas acho que isto também funciona em PowerCobol.

Não sei se era isto que pretendias.

Un Saludo,
Rui Pinto
Rapinto is offline   Responder Con Cita