Hola
yo tengo este programita que se lo paso al fichero y estos caracteres los
cambia, te lo envio por si te sirve de ayuda.
Saludos.
-----Mensaje original-----
De: Cristina V�zquez Osorio [mailto:[EMAIL PROTECTED]]
Enviado el: martes, 04 de junio de 2002 15:11
Para: 'FORUM-AS/400'
Asunto: TRASPASO DE FICHEROS DESDE UN UNIX A UN AS-400Hola a todos.
Mi problema es el siguiente, tenemos unos ficheros que esta en un risc 6000(unix), que queremos traspasar a nuestro as/400.Lo hacemos a trav�s de ftp, y hay algunos caract�res como por ejemplo la � que no se trasladan bien(no es la unica).
Eso mismo lo veniamos haciendo con un F35(as/400), a trav�s de carpetas y si traspasaba correctamente los ficheros.
Trabajamos con Rally, y nuestro as/400 es un iserie con v.5.1.
Nota:Si tomo un fichero de texto(creado con notepad) en mi PC y le pongo � y otros caracteres y luego por ftp hago un put a un fich.existente en mi as/400, funciona correctamente.Gcs a todos.
Saludos.
Cris.
5722WDS V5R1M0 010525 LISTADO FUENTE SEU
29/05/02 10:41:36 P�G. 1
ARCHIVO FUENTE . . . . . MYLIB/QRPGLESRC
MIEMBRO . . . . . . . . . MIPROGRAMA
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+...
8 ...+... 9 ...+... 0
100 HDECEDIT(',') DATEDIT(*YMD)
15/11/01
200 **********************************************************************
14/06/01
300 ** CHEQUEA/ACTUALIZA **
26/02/02
400 ** (CARACTERES "RAROS" ) **
26/02/02
500 ** **
14/06/01
600 ** **
14/06/01
700 ** Fecha. . . . : 26 de Febrero de 2002 **
26/02/02
800 **********************************************************************
14/06/01
900 FARCHIVO UP E K DISK
26/02/02
1000 * Archivo de datos a enviar
26/02/02
1100 DTXT S 1A DIM(1500)
26/02/02
1200 * Longitud del archivo a enviar
16/04/02
1300 DBITFFC C '01234567'
16/04/02
1400 DHEX01C C X'AC'
16/04/02
1500 * �
16/04/02
1600 DHEX02C C X'8F'
16/04/02
1700 * �
16/04/02
1800 DHEX03C C X'17'
16/04/02
1900 * �
16/04/02
2000 DHEX04C C X'59'
16/04/02
2100 * �
16/04/02
2200 DHEX05C C X'35'
16/04/02
2300 * �
16/04/02
2400 DHEX06C C X'FE'
16/04/02
2500 * �
16/04/02
2600 DHEX07C C X'30'
16/04/02
2700 * �
16/04/02
2800 DHEX08C C X'AD'
16/04/02
2900 * �
16/04/02
3000 DHEX09C C X'73'
16/04/02
3100 * �
16/04/02
3200 DHEX10C C X'B9'
16/04/02
3300 * �
16/04/02
3400 DHEX11C C X'15'
16/04/02
3500 * �
16/04/02
3600 DHEX12C C X'B3'
16/04/02
3700 * �
16/04/02
3800 DHEX13C C X'04'
16/04/02
3900 * �
16/04/02
4000 DHEX14C C X'FA'
16/04/02
4100 * �
16/04/02
4200 DHEX15C C X'31'
16/04/02
4300 * �
16/04/02
4400 DHEX16C C X'5F'
16/04/02
4500 * �
16/04/02
4600 DHEX17C C X'66'
16/04/02
4700 * �
16/04/02
4800 DHEX18C C X'8E'
16/04/02
4900 * �
16/04/02
5000 *
26/02/02
5100 DTABENT S 1A DIM(34) PERRCD(34) CTDATA
16/04/02
5200 DTABSAL S 1A DIM(34) ALT(TABENT)
16/04/02
5300 *
26/02/02
5400 C EVAL TXT = *BLANKS
26/02/02
5500 C MOVEA DATOS TXT
26/02/02
5600 *
26/02/02
5700 C 1 DO 1500 W 4 0
26/02/02
5800 C IF TXT(W) = *BLANKS
26/02/02
5900 C EVAL CONTA = CONTA + 1
26/02/02
6000 C IF CONTA = 30
26/02/02
6100 C LEAVE
26/02/02
6200 C ENDIF
26/02/02
6300 C ENDIF
26/02/02
6400 C Z-ADD *ZEROS CONTA 5 0
26/02/02
6500 *
16/04/02
6600 C BITOFF BITFFC E�E
16/04/02
6700 C SELECT
16/04/02
6800 C TXT(W) WHENEQ '�'
16/04/02
6900 C BITON HEX01C E�E 1
16/04/02
7000 C EVAL TXT(W) = E�E
16/04/02
7100 C TXT(W) WHENEQ '�'
16/04/02
7200 C BITON HEX02C E�E
16/04/02
7300 C EVAL TXT(W) = E�E
16/04/02
7400 C TXT(W) WHENEQ '�'
16/04/02
7500 C BITON HEX03C E�E
16/04/02
7600 C EVAL TXT(W) = E�E
16/04/02
7700 C TXT(W) WHENEQ '�'
16/04/02
7800 C BITON HEX04C E�E
16/04/02
7900 C EVAL TXT(W) = E�E
16/04/02
8000 C TXT(W) WHENEQ '�'
16/04/02
8100 C BITON HEX05C E�E
16/04/02
8200 C EVAL TXT(W) = E�E
16/04/02
8300 C TXT(W) WHENEQ '�'
16/04/02
8400 C BITON HEX06C E�E
16/04/02
8500 C EVAL TXT(W) = E�E
16/04/02
8600 C TXT(W) WHENEQ '�'
16/04/02
8700 C BITON HEX07C E�E
16/04/02
8800 C EVAL TXT(W) = E�E
16/04/02
8900 C TXT(W) WHENEQ '�'
16/04/02
9000 C BITON HEX08C E�E
16/04/02
9100 C EVAL TXT(W) = E�E
16/04/02
9200 C TXT(W) WHENEQ '�'
16/04/02
9300 C BITON HEX09C E�E
16/04/02
9400 C EVAL TXT(W) = E�E
16/04/02
9500 C TXT(W) WHENEQ '�'
16/04/02
9600 C BITON HEX10C E�E
16/04/02
9700 C EVAL TXT(W) = E�E
16/04/02
9800 C TXT(W) WHENEQ '�'
16/04/02
9900 C BITON HEX11C E�E
16/04/02
10000 C EVAL TXT(W) = E�E
16/04/02
10100 C TXT(W) WHENEQ '�'
16/04/02
10200 C BITON HEX12C E�E
16/04/02
10300 C EVAL TXT(W) = E�E
16/04/02
10400 C TXT(W) WHENEQ '�'
16/04/02
10500 C BITON HEX13C E�E
16/04/02
10600 C EVAL TXT(W) = E�E
16/04/02
10700 C TXT(W) WHENEQ '�'
16/04/02
10800 C BITON HEX14C E�E
16/04/02
10900 C EVAL TXT(W) = E�E
16/04/02
11000 C TXT(W) WHENEQ '�'
16/04/02
11100 C BITON HEX15C E�E
16/04/02
11200 C EVAL TXT(W) = E�E
16/04/02
11300 C TXT(W) WHENEQ '�'
16/04/02
11400 C BITON HEX16C E�E
16/04/02
11500 C EVAL TXT(W) = E�E
16/04/02
11600 C TXT(W) WHENEQ '�'
16/04/02
11700 C BITON HEX17C E�E
16/04/02
11800 C EVAL TXT(W) = E�E
16/04/02
11900 C TXT(W) WHENEQ '�'
16/04/02
12000 C BITON HEX18C E�E
16/04/02
12100 C EVAL TXT(W) = E�E
16/04/02
12200 C OTHER
16/04/02
12300 C TXT(W) LOOKUP TABENT TABSAL 10
26/02/02
12400 C 10 EVAL TXT(W) = TABSAL
26/02/02
12500 C ENDSL
16/04/02
12600 C ENDDO 1
26/02/02
12700 *
26/02/02
12800 C EVAL DATOS = *BLANKS
26/02/02
12900 C MOVEA TXT DATOS
26/02/02
13000 C UPDATE ARCHIVO
26/02/02
13100 *
26/02/02
13200 ** TABENT/TABSAL
26/02/02
13300 �'`'^'�.�a�e�i�o�A�E�I�O�a�e�i�o�u�A�E�I�O�U�a�e�i�o�u�A�E�I�O�U
16/04/02
* * * * F I N D E F U E N T E * * * *
