HOla:

El siguiente ejemplo puede servite de guia:

ftp://testcase.software.ibm.com/as400/fromibm/ApiSamples/NTXFER.MBR


/***************************************************************************
***/
/*   NTXFER
*/
/*
*/
/*   This program creates a directory in the QNTC file system so that we can
*/
/*   access the NT shares, expecially the share named NTXFER.  The CPYTOIMPF
*/
/*   command is used to copy the contents of the QIWS/QCUSTCDT table into a
*/
/*   text file right on the NT PC's hard drive.
*/
/*
*/
/***************************************************************************
***/
PGM
   /*  Mount the PC "server".  The user id and password of the program
caller */
   /*  will be used for authority so they must be in synch.  The PC network
*/
   /*  (NetBIOS) name in this case is P003253 and the shared directory is
*/
   /*  NTXFER.
*/
   MD '/QNTC/P003253'
   MONMSG MSGID(CPFA0A0)

   /*  Copy To Import File as used here makes use of enhancements which
allow */
   /*  the command to create a file and specify the code page (CCSID) of the
*/
   /*  file and its data.  To get these enhancments on a V4R4 or V4R5 system
*/
   /*  requires the following PTFs:
*/
   /*    V4R4  SF61859 & SF61937
*/
   /*    V4R5  SF62140 & SF62142
*/
   CPYTOIMPF  FROMFILE(QIWS/QCUSTCDT)
TOSTMF('/QNTC/P003253/NTXFER/CUST.TXT') +
      MBROPT(*REPLACE) TOCCSID(1252) RCDDLM(*CRLF) DTAFMT(*FIXED) +
      STRDLM(*NONE) STMFCODPAG(1252)
   MONMSG  MSGID(CPF0000) EXEC(GOTO ERRMSG)
NOERR:      SNDPGMMSG  MSG('COPY COMPLETED')
   GOTO EXIT
ERRMSG:     SNDPGMMSG MSG('Copy import file failed.  See joblog for
details.')
EXIT:
ENDPGM


----- Original Message ----- 
From: "Arbues Sanz, Jesus" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, November 24, 2003 4:01 PM
Subject: Utilizar una carpeta f�sica de un Windows en el Iseries


Buenas tardes.

Necesito hacer una importaci�n de datos de la BD del ISeries a un
disco y como el Iseries no va sobrado de disco, me gustar�a hacerlo a uno de
los servidores que tengo en W2000 Server.

Preguntas:

�Puedo hacer que el ISeries vea una carpeta compartida de otra
m�quina (W2000Server) y utilizarla para escribir? �Como le dar�a la ruta?

Me han hablado de la QNTC, pero no he sido capaz de sacar nada en
claro.

Un saludo y gracias de antemano.

Jes�s

_____________________________________________________
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]




_____________________________________________________
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]

Responder a