Gracias esto es lo qe buscaba. Saludos ----- Mensaje Original ----- De: "Pinedo Pedro" <[EMAIL PROTECTED]> Fecha: Jueves, Junio 13, 2002 9:51 am Asunto: RE: Averiguar la existencia de un fichero.txt
> 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^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
