Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
Base de datos .mdb Lobosauseda Bases de datos 4 26 de agosto de 2019 08:36
[Sintaxis] Uso del raton para ampliar un registro de CmList Breew PowerCOBOL (ActiveX, v4 - v11) 10 3 de junio de 2018 13:09
[Información] Creación de ficheros de datos Dasije WinDev 0 7 de agosto de 2016 18:16
[Información] Colector de datos Argox Roger PowerCOBOL (ActiveX, v4 - v11) 0 1 de julio de 2015 23:36
[Componente] Imagenes en CmCombo, CmList etc. Proco PowerCOBOL (ActiveX, v4 - v11) 11 7 de abril de 2015 23:19
Respuesta
 
Herramientas

  #1
Antiguo 29 de abril de 2017, 21:38
IDENTIFICATION DIVISION
Breew
 Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Breew
DATA DIVISION
febrero 2015
Barcelona
57 años
25.03.2021 21:34
PROCEDURE DIVISION
Posts: 121
Enviado: 103
Recibido: 10
Soluiones: 0
Reputación: 8
Breew is on a distinguished road Breew is on a distinguished road
Predeterminado Mover datos de un CmList

Hola.

He generado una pequeña descripcion de los campos de un resumen en un cmlist.

Me preguntaba si es posible pasar los datos del interior a otro campo para generar un Informe impreso, por ejemplo

Código COBOL:
  1. move "text" of Cmlist1 to P-decripcion1.

Gracias
Breew no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 29 de abril de 2017, 22:50
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 221
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Breew

Experimenta assim:
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01   COUNTER              PIC 9(005).
  5.  01   CAMPO1   OCCURS 100  PIC X(512).
  6.  PROCEDURE       DIVISION.
  7. * COUNT ITEMS IN CMLIST
  8.     MOVE "ListCount" OF CMLIST1 TO COUNTER.
  9.     IF COUNTER = 0 GO TO MAIN-99.
  10. * LOOP EACH ONE TO MOVE TO CAMPO1
  11.     PERFORM VARYING IDX1 FROM 1 BY 1 UNTIL IDX1 > COUNTER
  12.           MOVE IDX1 TO "ListIndex" OF CMLIST1    
  13.           MOVE "SelString" OF CMLIST1 TO CAMPO1(IDX1)
  14.     END-PERFORM.
  15. *  IN CAMPO1 ARRAY YOU HAVE ALL DATA
  16.  MAIN-99.
  17.     EXIT PROGRAM.

Un saludo
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 18:05.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.