Ver Mensaje Individual
  #4
Antiguo 23 de mayo de 2020, 20:46
IDENTIFICATION DIVISION
JCantero
 Novato Senior
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
junio 2016
Albacete
55 años
23.06.2021 04:27
PROCEDURE DIVISION
Posts: 181
Enviado: 53
Recibido: 120
Soluiones: 8
Reputación: 18
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

@Kuk, puede ser que si.

Para capturar los parametros pasados desde un script o un programa que llama a un programa de rm/cobol o acucobol seria asi:

Código COBOL:
  1.  
  2.       * Se define los parametros a capturar
  3.        01 datos-parametros.                                                                        
  4.             05 parametro1       pic x(20).
  5.             05 parametro2       pic x(20).
  6.             05 parametro3       pic x(20).
  7.  
  8.  
  9.  
  10.      *se define el paso de parametros
  11.        linkage section.
  12.        01 lk-parametros.
  13.           03 lk-long-param      pic s9(4) binary.
  14.           03 lk-misdatos.
  15.              05 lkcaracter pic x occurs 0 to 400 times
  16.                       depending on lk-long-param.
  17.  
  18.  
  19.        procedure division using lk-parametros.
  20. ------*                                                                        
  21.        programa section.                                                        
  22.                                                                                
  23.        programa-prin.
  24.      * aqui se capturan los parametros                                                          
  25.            unstring lk-misdatos delimited by ';'
  26.            into lk-parametro1
  27.                 lk-parametro2
  28.                 lk-parametro3
JCantero no ha iniciado sesión   Responder Con Cita