Compañeros del Foro:

Tengo la necesidad de cargar  directamente el registro externo de un archivo a 
una matriz y no a un vector, alguien me puede dar ideas o sugerencias.

Al momento se está realizando lo siguiente (la carga es sobre un vector)

FNombarch++IPEASF.....L.....A.Dispos+.Palabras 
clave+++++++++++++++++++++++Comentarios+++++++++
*************** Principio de datos 
**************************************************************************************
FSALHISL   UF   E           K DISK                                              
                    100210
D @REG1         E DS                  EXTNAME(SALHISL)                     
archivo logico           100210
D  PARTE1                 1     38                                         
campos q no se carga     100210
D  PARTE2              0039   1046                                         
campos a vector          100210
D  VL                           12P 2 dim(144) overlay(parte2)             
declara vector           100210
 *                                                                              
                    100210
C                   READ      SALHISL                                35         
                    100210
c     1             do        144           i                 3 0               
                    100210
c                   eval      vl(i) =vl(i)+1                                    
                    100210
c                   enddo                                                       
                    100210
c                   update    SALHIS                                            
                    100210
C*                                                                              
                    040226
C                   SETON                                        LR             
                    950110



________________________________
Nota de descargo: La información contenida en este e - mail y sus anexos es 
confidencial y sólo puede ser utilizada por el destinatario del mismo. Esta 
información no debe ser distribuida, ni copiada total o parcialmente por ningún 
medio sin la autorización de DINERS/INTERDIN. Además, DINERS/INTERDIN no asume 
responsabilidad sobre información, opiniones o criterios contenidos en este 
e-mail.

Disclaimer: The information contained in this e-mail and its attached files are 
confidential and intended only for the use of the person to which it is 
addressed. This information can not be totally or partially distributed nor 
copied by any media without the authorization from DINERS/INTERDIN. In 
addition, DINERS/INTERDIN does not assume responsibility about this 
information, opinions or criteria contented in this e-mail.
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400

Responder a