RE: Tema transferir datos con CA

[Victor Velardez BT]

Title: Tema transferir datos con CA

    La mejor forma que encontre para hacer esto, es generado un script de file transfer de CA, para despues debes ejecutar con rtopcb desde la linea de comandos DOS. 

 

El sgte pgm  esta hecho en fox para DOS 2.6

 

El pgm recibe 3 parametros , si tienes una tabla donde tengas la lista de distribucion (path de la pc donde quieres que vaya el archivo), la vas recorriendo y llamando este programa y asi vas a obtener lo que necesitas

luego de que se ejecute este PGM tiene que hacer

 

 

RTOPCB traer.dtf 

 

 

Cualquier cosa a tu disposicion , por las dudas

 

PD: si alguien le hace alguna modificacion para optimizar su uso, les pediria que me envien la version actualizada,

 

 

Gracias de nuevo

 

Victor Velardez

Banco del Tucuman S.A.

[EMAIL PROTECTED]

Tel +054+0381+4503327

 

 

 

parameter host asfile pcfile 
string1 = space(2000)
IF FILE('traer.dtf')
   cmd = 'dele file traer.dtf'

   &cmd
ENDIF
   
errfile = FCREATE('traer.dtf')
    
IF errfile < 0                    
    WAIT window 'No se puede crear/Abrir el archivo .DTF' 
ELSE                               
     string1 = trim(string1) + '[DataTransferFromAS400]' + chr(10) + chr(13)

     string1 = trim(string1) + 'Version=1.0' + chr(10) + chr(13)
     string1 = trim(string1) + '[HostInfo]' + chr(10) + chr(13)
     string1 = trim(string1) + 'HostName='+alltrim(host) + chr(10) + chr(13)
     string1 = trim(string1) + 'HostFile='+alltrim(asfile) + chr(10) + chr(13)
     string1 = trim(string1) + '[ClientInfo]' + chr(10) + chr(13)
     string1 = trim(string1) + 'OutputDevice=2' + chr(10) + chr(13)
     string1 = trim(string1) + 'PCFileType=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'PCFile='+alltrim(pcfile)+ chr(10) + chr(13)
     string1 = trim(string1) + 'CrtOpt=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'SaveFDF=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'FDFFile=d:\crt\traer.FDF' + chr(10) + chr(13)
     string1 = trim(string1) + 'ConvType=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'ASCIITruncation=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'FileOps=941439' + chr(10) + chr(13)
     string1 = trim(string1) + '[SQL]' + chr(10) + chr(13)
     string1 = trim(string1) + 'Select=*' + chr(10) + chr(13)
     string1 = trim(string1) + 'Where=' + chr(10) + chr(13)
     string1 = trim(string1) + 'OrderBy=' + chr(10) + chr(13)
     string1 = trim(string1) + 'GroupBy=' + chr(10) + chr(13)
     string1 = trim(string1) + 'Having=' + chr(10) + chr(13)
     string1 = trim(string1) + 'JoinBy=' + chr(10) + chr(13)
     string1 = trim(string1) + 'SQLSelect=' + chr(10) + chr(13)
     string1 = trim(string1) + 'EnableGroup=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'MissingFields=0' + chr(10) + chr(13)
     string1 = trim(string1) + '[Options]' + chr(10) + chr(13)
     string1 = trim(string1) + 'IgnoreDecErr=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'TimeSep=[:]' + chr(10) + chr(13)
     string1 = trim(string1) + 'TimeFmt=HMS' + chr(10) + chr(13)
     string1 = trim(string1) + 'DateSep=[/]' + chr(10) + chr(13)
     string1 = trim(string1) + 'DateFmt=DMY' + chr(10) + chr(13)
     string1 = trim(string1) + 'DecimalSep=,' + chr(10) + chr(13)
     string1 = trim(string1) + 'SortSeq=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'SortTable=' + chr(10) + chr(13)
     string1 = trim(string1) + 'Lang=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'LangID=' + chr(10) + chr(13)
     string1 = trim(string1) + '[HTML]' + chr(10) + chr(13)
     string1 = trim(string1) + 'AutoSize=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'AutoSizeKB=128' + chr(10) + chr(13)
     string1 = trim(string1) + 'OverWrite=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'Charset=windows-1252' + chr(10) + chr(13)
     string1 = trim(string1) + 'ConvInd=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'Title=' + chr(10) + chr(13)
     string1 = trim(string1) + 'IncDateTime=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'DateTimeLoc=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'TabAlign=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'TabRows=2' + chr(10) + chr(13)
     string1 = trim(string1) + 'TabCols=2' + chr(10) + chr(13)
     string1 = trim(string1) + 'TabBW=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'TabCS=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'TabCP=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'TabWidth=100' + chr(10) + chr(13)
     string1 = trim(string1) + 'TabWidthP=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'TabMap=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'CapAlign=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'CapStyle=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'CapSize=6' + chr(10) + chr(13)
     string1 = trim(string1) + 'CapIncNum=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'Caption=' + chr(10) + chr(13)
     string1 = trim(string1) + 'RowAlignHdrV=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'RowAlignHdrH=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'RowAlignGenV=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'RowAlignGenH=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'RowSytleHdr=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'RowStyleGen=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'CellAlignT=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'CellAlignN=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'CellWrap=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'CellSize=6' + chr(10) + chr(13)
     string1 = trim(string1) + 'UseTemplate=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'Template=' + chr(10) + chr(13)
     string1 = trim(string1) + 'TemplateTag=' + chr(10) + chr(13)
     string1 = trim(string1) + '[Properties]' + chr(10) + chr(13)
     string1 = trim(string1) + 'Check4Untrans=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'Convert65535=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'UseAlias=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'Notify=1' + chr(10) + chr(13)
     string1 = trim(string1) + 'SQLStmt=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'AutoRun=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'AutoClose=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'ShowWarnings=0' + chr(10) + chr(13)
     string1 = trim(string1) + 'UserOption=0' + chr(10) + chr(13)

      =FWRITE(errfile, string1)
   ENDIF
   =FCLOSE(errfile)                  

 

 

 

 

 

 

 -----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]En nombre de medina
Enviado el: Martes, 23 de Noviembre de 2004 06:53 a.m. VEV
Para: [EMAIL PROTECTED]
Asunto: Tema transferir datos con CA

Hola Foro, necesito transferir archivos a un directorio de pc donde tengo varias carpetas
digamos que cada carpeta es para un determinado usuario, y los archivos a transferir
son todos con las mismas caracteristicas lo unico que cambia es el nombre, para ir a
cada una de las carpetas, como puedo pasar parametros al archivo bat. generado con CA
para utilizar el mismo bat de transferencia en cada uno de ellos.

Mas o menos es esto:

Carpetas/Rep001/Repre001.txt
              Rep002/Repre002.txt
              Rep003/Repre003.txt

Saludos

Paco Medina
Dpto. Informatica
Exclusivas Camacho, S.Ltda.

La informacion contenida en este correo es para uso exclusivo de los destinatarios del mismo. Esta prohibido a las personas o entidades que no sean los destinatarios de este correo realizar cualquier tipo de modificacion, copia o distribucion del mismo. Si Usted recibe este correo por error tenga bien notificar al emisor y eliminarlo.