Una vez probe hacerlo de esta forma , si te sirve como opcion mas, pues aquí tienes.
Generar yo el dtf, y luego llamarlo con el strpdm.
100 HDECEDIT('0,') DATEDIT(*DMY.)
09/01/01
200
**********************************************************************
20/12/99
300 ** CREA ARCHIVO dtf.
. ** 03/03/08
700 ** Realizado por: Fco.Jose Medina Barajas para
EXCL.CAMACHO,S.L . ** 20/12/99
800 ** Fecha. . . . : 3 de Marzo del 2008
. ** 03/03/08
900
**********************************************************************
20/12/99
1000 FTRANSREF UF A E K DISK
03/03/08
1100 * TEXTOS ESTANDARS
18/10/07
1200 DTXT S 85 DIM(86) PERRCD(1) CTDATA
03/03/08
1300 * Enviamos Lineas de Datos
20/02/08
1400 C 1 DO 83 W 2
0 03/03/08
1500 C CLEAR STRING
20/02/08
1600 C IF W<>5 and W<>9
03/03/08
1700 C STRING CAT TXT(W):0 STRING 85
03/03/08
1800 C MOVE STRING FTPDATO
20/02/08
1900 C WRITE TRANSRER
03/03/08
2000 C ENDIF
03/03/08
2100 *
03/03/08
2200 C IF W=5
03/03/08
2300 * DESCRIPCION LARGA FREE FORMAT
03/03/08
2400 /FREE
03/03/08
2500
STRING=%TRIMR('HostFile=BIBLIO/ARCHIVO(REPRE')+%TRIMR(REP)+')';
03/03/08
2600 /END-FREE
03/03/08
2700 C MOVE STRING FTPDATO
03/03/08
2800 C WRITE TRANSRER
03/03/08
2900 C ENDIF
03/03/08
3000 *
03/03/08
3100 C IF W=9
03/03/08
3200 * DESCRIPCION LARGA FREE FORMAT
03/03/08
3300 /FREE
03/03/08
3400 STRING=%TRIMR('PCFile=X:\CARPETA\CARPETA')+%TRIMR(REP)+
03/03/08
3500 %TRIMR('\repre')+%TRIMR(REP)+%TRIMR('.txt');
03/03/08
3600 /END-FREE
03/03/08
3700 C MOVE STRING FTPDATO
03/03/08
3800 C WRITE TRANSRER
03/03/08
3900 C ENDIF
03/03/08
4000 *
03/03/08
4100 C ENDDO
03/03/08
4200 *
03/03/08
4300 C EVAL *INLR=*ON
03/03/08
4400 *
03/03/08
4500
**********************************************************************
18/10/07
4600 ** S U B R U T I N A I N I C I A L
** 18/10/07
4700
**********************************************************************
18/10/07
4800 C *INZSR BEGSR
18/10/07
4900 *
20/02/08
5000 C *ENTRY PLIST
03/03/08
5100 C PARM REP 3
03/03/08
5200 *
19/10/07
5300 C ENDSR
18/10/07
5400 *
18/10/07
5500
**********************************************************************
18/10/07
5600 ** TXT/Composicion texto
18/10/07
5700 [DataTransferFromAS400]
03/03/08
5800 Version=1.1
03/03/08
5900 [HostInfo]
03/03/08
6000 HostName=TUAS400
03/03/08
6100 linea-5
03/03/08
6200 [ClientInfo]
03/03/08
6300 OutputDevice=2
03/03/08
6400 PCFileType=1
03/03/08
6500 linea-9
03/03/08
6600 CrtOpt=1
03/03/08
6700 SaveFDF=1
03/03/08
6800 FDFFile=C:\CARPETA\TRANSFER\CARGA.FDF
03/03/08
6900 ConvType=1
03/03/08
7000 ASCIITruncation=1
03/03/08
7100 FileOps=941439
03/03/08
7200 [SQL]
03/03/08
7300 Select=*
03/03/08
7400 Where=
03/03/08
7500 OrderBy=
03/03/08
7600 GroupBy=
03/03/08
7700 Having=
03/03/08
7800 JoinBy=
03/03/08
7900 SQLSelect=
03/03/08
8000 EnableGroup=0
03/03/08
8100 MissingFields=0
03/03/08
8200 [Options]
03/03/08
8300 IgnoreDecErr=1
03/03/08
8400 TimeSep=[:]
03/03/08
8500 TimeFmt=HMS
03/03/08
8600 DateSep=[/]
03/03/08
8700 DateFmt=DMY
03/03/08
8800 DecimalSep=,
03/03/08
8900 SortSeq=0
03/03/08
9000 SortTable=
03/03/08
9100 Lang=0
03/03/08
9200 LangID=
03/03/08
9300 [HTML]
03/03/08
9400 AutoSize=0
03/03/08
9500 AutoSizeKB=128
03/03/08
9600 OverWrite=1
03/03/08
9700 Charset=windows-1252
03/03/08
9800 ConvInd=0
03/03/08
9900 Title=
03/03/08
10000 IncDateTime=0
03/03/08
10100 DateTimeLoc=0
03/03/08
10200 TabAlign=0
03/03/08
10300 TabRows=2
03/03/08
10400 TabCols=2
03/03/08
10500 TabBW=1
03/03/08
10600 TabCS=1
03/03/08
10700 TabCP=1
03/03/08
10800 TabWidth=100
03/03/08
10900 TabWidthP=0
03/03/08
11000 TabMap=1
03/03/08
11100 CapAlign=0
03/03/08
11200 CapStyle=1
03/03/08
11300 CapSize=6
03/03/08
11400 CapIncNum=0
03/03/08
11500 Caption=
03/03/08
11600 RowAlignHdrV=0
03/03/08
11700 RowAlignHdrH=0
03/03/08
11800 RowAlignGenV=0
03/03/08
11900 RowAlignGenH=0
03/03/08
12000 RowSytleHdr=1
03/03/08
12100 RowStyleGen=1
03/03/08
12200 CellAlignT=0
03/03/08
12300 CellAlignN=0
03/03/08
12400 CellWrap=1
03/03/08
12500 CellSize=6
03/03/08
12600 UseTemplate=0
03/03/08
12700 Template=
03/03/08
12800 TemplateTag=
03/03/08
12900 [Properties]
03/03/08
13000 Check4Untrans=0
03/03/08
13100 Convert65535=1
03/03/08
13200 UseAlias=1
03/03/08
13300 Notify=1
03/03/08
13400 SQLStmt=0
03/03/08
13500 AutoRun=0
03/03/08
13600 AutoClose=0
03/03/08
13700 ShowWarnings=0
03/03/08
13800 UserOption=0
03/03/08
* * * * F I N D E F U E N T E * * * *
_
Saludos
Paco Medina
Dtor.Informatica
Exclusivas Camacho, S. Ltd.
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
29006 Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[email protected]
Este mensaje se dirige exclusivamente a su destinatario y puede contener
información privilegiada o confidencial. Si no es vd. el destinatario
indicado, queda notificado de que la utilización, divulgación y/o copia sin
autorización está prohibida en virtud de la legislación vigente. Si ha
recibido este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma vía y proceda a su destrucción. Gracias.
This message is intended exclusively for its addressee and may contain
information that is CONFIDENTIAL and protected by professional privilege. If
you are not the intended recipient you are hereby notified that any
dissemination, copy or disclosure of this communication is strictly
prohibited by law. If this message has been received in error, please
immediately notify us via e-mail and delete it. Thank you.
_____
De: [email protected]
[mailto:[email protected]] En nombre de vicente ferrer
Enviado el: jueves, 22 de enero de 2009 11:15
Para: [email protected]
Asunto: transferencias client access
Hola compañeros,
He automatizado la transferencia de un fichero desde el AS400 al pc a través
de CA y me gustaría saber si es posible pasar como un paramentro a la
transferencia el nombre del fichero que ha de crear en el PC, no se si me he
explicado bien, es decir la transferencia está definida con un nombre
standar y me gustaria cambiarlo para cada transferencia pasandole un
parametro si es posible.
Saludos
Vicente Ferrer Vazquez | Dpto. Informática
Andreu World
[email protected]
tel +34 96 1805700 | ext 128
fax +34 96 1805831
<<attachment: winmail.dat>>
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; 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
