Si efectuas un FTP con el siguiente miembro de ENTRADA del archivo FTPENV:
SRCSEQ SRCDAT SRCDTA
0.01 0 usuario contrase�a
0.01 0 CDUP
0.01 0 CD C:\
0.01 0 CD PEDRO
0.01 0 dir
0.01 0 clos
0.01 0 quit
te devolvera en el miembro SALIDA los archivos de ese directorio:
SRCSEQ SRCDAT SRCDTA
0.00 0 Se ha redirigido la salida a un archivo.
0.00 0 Lectura de entrada del archivo de la alteraci�n temporal especificado.
0.00 0 Conectando con el sistema principal remoto 1.1.10.117 utilizando el
puerto 21.
0.00 0 220 CesarFTP 0.98b Server Welcome !
0.00 0 Entre el ID de inicio de sesi�n (ppinedo):
0.00 0 331 User login OK, waiting for password
0.00 0 230 User password OK, CesarFTP server ready
0.00 0 Microsoft Windows
0.00 0 Entre un submandato FTP.
0.00 0 > CDUP
0.00 0 200 command successfully executed
0.00 0 Entre un submandato FTP.
0.00 0 > CD C:\
0.00 0 250 Directory change OK
0.00 0 Entre un submandato FTP.
0.00 0 > CD PEDRO
0.00 0 250 Directory change OK
0.00 0 Entre un submandato FTP.
0.00 0 > dir
0.00 0 227 Entering Passiv Mode (1,1,10,117,8,0)
0.00 0 150 Data connection created for directory listing
0.00 0 drwxr--r-- 1 user group 0 Jun 13 06:20 .
0.00 0 drwxr--r-- 1 user group 0 Jun 13 06:20 ..
0.00 0 -rwxr--r-- 1 user group 3267922 Apr 30 08:15 Adobe Premiere
Plugin -
0.00 0 65 Plug-ins.zip
0.00 0 -rwxr--r-- 1 user group 267536 Jun 05 2000 age2cpfix.exe
0.00 0 -rwxr--r-- 1 user group 2647488 Mar 06 14:19 age2upa-spn.exe
0.00 0 -rwxr--r-- 1 user group 592649 Mar 18 05:34 aicsetup.zip
0.00 0 -rwxr--r-- 1 user group 1349993 Mar 15 09:33 aitodos.zip
0.00 0 -rwxr--r-- 1 user group 190976 Jul 25 2000
alternatiff-1_3_4.exe
0.00 0 drwxr--r-- 1 user group 0 May 03 08:23
0.00 0 Babylon_Translator_Pro_v3[1].2.40
0.00 0 -rwxr--r-- 1 user group 2134 Feb 13 05:08
0.00 0 Babylon_Translator_Pro_v3[1].2.40.zip
0.00 0 -rwxr--r-- 1 user group 6186107 Feb 05 12:25 bkplus.exe
0.00 0 -rwxr--r-- 1 user group 23993 May 03 06:34 bookmark.htm
0.00 0 -rwxr--r-- 1 user group 781253 Apr 16 12:51 Bruce Sterling -
La caza
0.00 0 de los hackers.zip
0.00 0 -rwxr--r-- 1 user group 696832 Oct 30 2000 builder.exe
0.00 0 -rwxr--r-- 1 user group 1998480 Aug 21 2000 ccltools.savf
0.00 0 drwxr--r-- 1 user group 0 May 03 08:23 cd-utilidades
0.00 0 -rwxr--r-- 1 user group 372290 Mar 18 05:35 cdsetup.zip
0.00 0 -rwxr--r-- 1 user group 638346 Mar 16 11:19 CesarFTP.exe
0.00 0 -rwxr--r-- 1 user group 35444 Nov 12 1999 CPN.ZIP
0.00 0 drwxr--r-- 1 user group 0 May 03 08:23 cpnscn
0.00 0 -rwxr--r-- 1 user group 12699 Jul 21 1999 CPXBUILD.ARJ
0.00 0 -rwxr--r-- 1 user group 279807 Oct 27 2000 cpycd.zip
0.00 0 -rwxr--r-- 1 user group 1188249 Apr 12 2000 crackaeo2.zip
0.00 0 -rwxr--r-- 1 user group 3962715 Jan 14 11:35 cracklib.zip
0.00 0 -rwxr--r-- 1 user group 162484 Nov 13 2000 CRLF.ZIP
0.00 0 -rwxr--r-- 1 user group 18205 Mar 12 06:21 CutIt.zip
0.00 0 -rwxr--r-- 1 user group 19456 Feb 05 05:27 Descarga de
0.00 0 Combustible.doc
0.00 0 -rwxr--r-- 1 user group 872751 Dec 19 2000 Dsgcopy.exe
0.00 0 -rwxr--r-- 1 user group 11369624 Oct 08 12:36 DX80spa.exe
0.00 0 -rwxr--r-- 1 user group 4007 Feb 06 08:31 eclgnxf6.zip
0.00 0 -rwxr--r-- 1 user group 5137 May 24 1999 ECLiPSE.nfo
0.00 0 -rwxr--r-- 1 user group 269418 Dec 03 13:03 esp332b.exe
0.00 0 -rwxr--r-- 1 user group 23464651 Feb 05 05:36
ESPartitionMagic7Demo.exe
0.00 0 -rwxr--r-- 1 user group 32256 Mar 13 12:59 Estos.doc
0.00 0 -rwxr--r-- 1 user group 1508971 Oct 16 2000 EzyRegSet.CAB
0.00 0 -rwxr--r-- 1 user group 372 May 24 1999 FILE_ID.DIZ
0.00 0 -rwxr--r-- 1 user group 318853 Mar 21 08:45
flashplayer5installer.exe
0.00 0 -rwxr--r-- 1 user group 602187 Apr 04 18:19 freeripmp3.exe
0.00 0 -rwxr--r-- 1 user group 541088 Aug 07 12:45 FreeSaverMP3.exe
0.00 0 -rwxr--r-- 1 user group 600644 Mar 18 07:08 frui.exe
0.00 0 -rwxr--r-- 1 user group 630490 Apr 22 09:30 George Orwell -
1984.zip
0.00 0 -rwxr--r-- 1 user group 2215952 May 23 09:14 getrt45c.exe
0.00 0 -rwxr--r-- 1 user group 2943332 May 23 09:13 gozilla.exe
0.00 0 -rwxr--r-- 1 user group 2471624 Feb 06 09:17 gozillaant.exe
0.00 0 -rwxr--r-- 1 user group 197028 May 23 09:14 gr_esp45.zip
0.00 0 -rwxr--r-- 1 user group 320 Mar 01 09:34 gxfjd.zip
0.00 0 -rwxr--r-- 1 user group 638 May 23 1999 gxwfix.exe
0.00 0 -rwxr--r-- 1 user group 885877 Mar 05 13:37 hjsetup.exe
0.00 0 -rwxr--r-- 1 user group 28585954 Mar 19 10:16
hoyleboard_free.exe
0.00 0 -rwxr--r-- 1 user group 82714 Dec 21 23:35 Image2.jpg
0.00 0 -rwxr--r-- 1 user group 37775 Dec 21 23:35 Image3.jpg
0.00 0 -rwxr--r-- 1 user group 57830 Dec 21 23:35 Image4.jpg
0.00 0 -rwxr--r-- 1 user group 62592 Dec 21 23:35 Image5.jpg
0.00 0 -rwxr--r-- 1 user group 65756 Dec 21 23:35 Image6.jpg
0.00 0 -rwxr--r-- 1 user group 78712 Dec 21 23:35 Image7.jpg
0.00 0 -rwxr--r-- 1 user group 39871 Dec 21 23:35 Image8.jpg
0.00 0 -rwxr--r-- 1 user group 18280 Dec 21 23:35 Image9.jpg
0.00 0 -rwxr--r-- 1 user group 5215343 Oct 25 2000 Intelli252.zip
0.00 0 -rwxr--r-- 1 user group 139993 Mar 11 07:32 kmd.zip
0.00 0 -rwxr--r-- 1 user group 1713565 Apr 16 12:44 kolorea.zip
0.00 0 -rwxr--r-- 1 user group 985425 Dec 29 1999 LECTURA.ZIP
0.00 0 -rwxr--r-- 1 user group 1162 Mar 13 09:57 mainNivel2.jsp
0.00 0 -rwxr--r-- 1 user group 980975 Mar 19 09:46 montebg.zip
0.00 0 -rwxr--r-- 1 user group 10479488 Feb 04 12:35 mp71.exe
0.00 0 -rwxr--r-- 1 user group 3595728 May 29 19:16 mpfull.exe
0.00 0 -rwxr--r-- 1 user group 2403280 Mar 08 11:11 mpie4ful.exe
0.00 0 -rwxr--r-- 1 user group 3733080 Mar 06 11:39
msreadersetup.exe
0.00 0 -rwxr--r-- 1 user group 25191568 May 14 12:39 N6Setup.exe
0.00 0 drwxr--r-- 1 user group 0 May 28 09:04 Nero
0.00 0 -rwxr--r-- 1 user group 2063311 Apr 24 08:03 ns204.zip
0.00 0 drwxr--r-- 1 user group 0 May 03 08:22 OTROS
0.00 0 -rwxr--r-- 1 user group 1592 Feb 08 11:18
0.00 0 Partition_Magic_Pro_v7[1].0_build_283.zip
0.00 0 -rwxr--r-- 1 user group 5296690 Apr 29 13:43 Real Player Plus
8
0.00 0 (Espa�ol).zip
0.00 0 -rwxr--r-- 1 user group 4320 Jul 19 11:52 Res920.mbr
0.00 0 -rwxr--r-- 1 user group 607983 Mar 18 05:34 rhsetup.zip
0.00 0 -rwxr--r-- 1 user group 11097848 Apr 08 09:27 rp505esp.exe
0.00 0 -rwxr--r-- 1 user group 5368832 Feb 06 09:36 rp8-es-setup.exe
0.00 0 -rwxr--r-- 1 user group 509533 Mar 18 05:26 rtsetup.zip
0.00 0 -rwxr--r-- 1 user group 1262114 Feb 21 2000 ryan_meg2.exe
0.00 0 -rwxr--r-- 1 user group 635560 Dec 20 07:49 s2kbonus.zip
0.00 0 -rwxr--r-- 1 user group 2563968 Apr 20 08:49 sampler.savf
0.00 0 -rwxr--r-- 1 user group 753 Apr 22 10:19
Serv_List(18_Abr).zip
0.00 0 -rwxr--r-- 1 user group 704392 Feb 06 09:37
shockwaveinstaller.exe
0.00 0 -rwxr--r-- 1 user group 392713 May 02 07:25 smartripper.zip
0.00 0 -rwxr--r-- 1 user group 242650 Jun 13 06:20 smtp.zip
0.00 0 -rwxr--r-- 1 user group 11684 Apr 03 09:47 sndemail(2).zip
0.00 0 -rwxr--r-- 1 user group 11684 Apr 05 08:16 sndemail.zip
0.00 0 -rwxr--r-- 1 user group 914 Apr 19 11:49
spanish_servers.zip
0.00 0 -rwxr--r-- 1 user group 15554842 Nov 09 05:33
surveyor_2727.exe
0.00 0 -rwxr--r-- 1 user group 1615741 Mar 27 10:51 TIFFLIB44.zip
0.00 0 -rwxr--r-- 1 user group 1103723 Apr 25 07:38 track.aiff
0.00 0 -rwxr--r-- 1 user group 1137879 Nov 29 10:48 wb42ame.exe
0.00 0 -rwxr--r-- 1 user group 1774299 Mar 08 2000 wh95v203.exe
0.00 0 -rwxr--r-- 1 user group 40372 Jul 10 2000 whed9512.zip
0.00 0 -rwxr--r-- 1 user group 2019682 May 02 06:33
winamp280_full.exe
0.00 0 -rwxr--r-- 1 user group 146789 May 07 10:18 winvi32.zip
0.00 0 -rwxr--r-- 1 user group 104760 May 07 10:26 winvibmp.zip
0.00 0 -rwxr--r-- 1 user group 1259448 Sep 01 2000 winzip80.exe
0.00 0 -rwxr--r-- 1 user group 437248 May 30 15:12 wmqfe.exe
0.00 0 -rwxr--r-- 1 user group 711939 Feb 06 08:33 wrar290.exe
0.00 0 226 Transfer successfully achieved
0.00 0 Entre un submandato FTP.
0.00 0 > clos
0.00 0 221 Good Bye
0.00 0 Entre un submandato FTP.
0.00 0 > quit
Lo puedes leer con un Rpg y la funcion scan y sabras si existe el fichero en cuestion,
despues puedes ejecutar el ftp.
Espero que te ayude.
> -----Mensaje original-----
> De: augustp [SMTP:[EMAIL PROTECTED]]
> Enviado el: jueves, 13 de junio de 2002 07:04
> Para: [EMAIL PROTECTED]
> Asunto: Re: Averiguar la existencia de un fichero.txt
>
> Creo que la pregunta es, si existe alguna manera de hacer esa
> comprobacion desde el AS/400 de manera que despues el programa del
> AS/400 puede hacer un proceso para por ejemplo crear el fichero.txt.
>
> En su dia me encontre con un problema similar y no pude resolverlo, ya
> que el IF EXIST trabaja en entorno MS-DOS y si se ejecuta desde el
> STRPCCMD no devuelve ningun parametro que yo sepa.
>
> Si alguien sabe la solucion agradeceria un ejemplo.
> Saludos
>
> ----- Mensaje Original -----
> De: "Miquel Lerin" <[EMAIL PROTECTED]>
> Fecha: Miercoles, Junio 12, 2002 5:51 pm
> Asunto: Averiguar la existencia de un fichero.txt
>
> >
> >
> > Hola foro, en primer lugar saludos a todos.
> >
> >
> > Tengo una preguntita. LA PREGUNTA ES:
> >
> > . �Alguien conoce alguna manera de poder
> > chequear desde el AS/400 la existencia de un
> > fichero.txt en la unidad c:\?
> >
> >
> >
> > Gracias anticipadas.
> >
> >
> >
> >
> > _____________________________________________________
> > Forum.HELP400 es un servicio m�s de NEWS/400.
> > � Publicaciones Help400, S.L. - Todos los derechos reservados
> > http://www.help400.es
> > _____________________________________________________
> >
> > Para darte de baja, env�a el mensaje resultante de pulsar
> > mailto:[EMAIL PROTECTED]?body^AVE
> >
>
>
>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=AVE
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
