Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Mover datos de un CmList (https://www.cobolforo.es/showthread.php?t=616)

Breew 29 de abril de 2017 22:38
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

Rapinto 29 de abril de 2017 23:50
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


La franja horaria es GMT +2. Ahora son las 14:38.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.