Gracias pero no me sirve, lo necesitaría en formato free.
Saludos,
Javier
________________________________
From: Forum.help400 <[email protected]> on behalf of
Francisco Medina <[email protected]>
Sent: Tuesday, October 20, 2020 4:57:16 PM
To: [email protected] <[email protected]>
Subject: Re: Tabla con ILE Rpg free
Buenas,
si te sirve este ejemplo
--
5761WDS V7R1M0 100416 LISTADO FUENTE SEU
20/10/20 16:53:03 CAMACHO PµG. 1
ARCHIVO FUENTE . . . . . TRAS/QRPGLESRC
MIEMBRO . . . . . . . . . ARRE903R
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 HDECEDIT(',') DATEDIT(*DMY)
27/02/01
200
**********************************************************************
29/06/07
300 * Realizado por: Fco.Jose Medina Barajas Exclusivas
Camacho,S.L. * 29/06/07
400 * Fecha. . . . : 20 de Marzo del 2012
* 20/03/12
500 *
* 29/06/07
600 * Crea ordenes arreglo portes canarias
* 20/03/12
700
**********************************************************************
29/06/07
701 FCLIENTE IP E K DISK
20/03/12
800 * Formato archivo Ordenes
03/07/07
900 FZFACORD O F 300 DISK
03/07/07
1000 * TEXTO INTRUCCION SQL (OK)
04/07/07
1100 DTXT S 100 DIM(7) PERRCD(1) CTDATA
20/03/12
1101 *
20/03/12
1102 C CLEAR CLIENT
20/03/12
1103 C MOVE ASMCTE CLIENT 6
20/03/12
1900 * 1 linea
04/07/08
2000 C MOVEL *BLANKS ORDEN 250
06/11/07
2100 C Eval ORDEN=%trim(TXT(1))+ %trim(TXT(2))+
20/03/12
2101 C %trim(CLIENT)+%trim(TXT(7))
20/03/12
2200 C EXCEPT
06/11/07
2300 * 2 linea
06/11/07
2400 C MOVEL *BLANKS ORDEN
06/11/07
2500 C Eval ORDEN=%trim(TXT(1))+ %trim(TXT(3))+
20/03/12
2501 C %trim(CLIENT)+%trim(TXT(7))
20/03/12
2600 C EXCEPT
06/11/07
2700 * 3 linea
06/11/07
2800 C MOVEL *BLANKS ORDEN
06/11/07
2900 C Eval ORDEN=%trim(TXT(1))+ %trim(TXT(4))+
20/03/12
2901 C %trim(CLIENT)+%trim(TXT(7))
20/03/12
3000 C EXCEPT
06/11/07
3100 * 4 linea
20/03/12
3200 C MOVEL *BLANKS ORDEN
06/11/07
3300 C Eval ORDEN=%trim(TXT(1))+ %trim(TXT(5))+
20/03/12
3301 C %trim(CLIENT)+%trim(TXT(7))
20/03/12
3700 C EXCEPT
06/11/07
3800 * 5 linea
06/11/07
3900 C MOVEL *BLANKS ORDEN
06/11/07
4000 C Eval ORDEN=%trim(TXT(1))+ %trim(TXT(6))+
20/03/12
4001 C %trim(CLIENT)+%trim(TXT(7))
20/03/12
4100 C EXCEPT
06/11/07
9300 *
03/07/07
9400 *---------------------------------------------------------------*
03/07/07
9500 * SUBRUTINA INICIAL *
03/07/07
9600 *---------------------------------------------------------------*
03/07/07
9700 C *INZSR BEGSR
20/06/01
9800 *
29/06/07
9900 * Si el representante es el seleccionado por parms
29/06/07
10000 C *ENTRY PLIST
29/06/07
10100 C PARM REPRE 3
29/06/11
10200 *
09/10/01
10300 C MOVE (P) '001' WCIA 3
10/10/01
10400 *
20/06/01
10500 C ENDSR
09/10/01
10600 * SALIDA A FICHEROS DE ENVIO
16/06/04
10700 OZFACORD E
06/11/07
10800 O ORDEN 250
06/11/07
10900 *
03/07/07
11000 ** TXT/Composicion Instruccion SQL dia fecha cargas
06/11/07
11100 OK
06/11/07
11200 UPDATE cliente_zona SET zon_pk=32 WHERE zon_pk=4 AND cli_cliente=
20/03/12
11300 UPDATE cliente_zona SET zon_pk=33 WHERE zon_pk=5 AND cli_cliente=
20/03/12
11400 UPDATE cliente_zona SET zon_pk=34 WHERE zon_pk=6 AND cli_cliente=
20/03/12
11500 DELETE FROM cliente_zona where zon_pk=23 AND cli_cliente=
20/03/12
11600 DELETE FROM cliente_zona where zon_pk=24 AND cli_cliente=
20/03/12
11700 ;
20/03/12
* * * * F I N D E F U E N T E * * * *
Saludos
Paco Medina
Dept. Informática
IT Clientes / IT Integration Services
Exclusivas Camacho, S. Ltd.
EORI ESB29145240
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
29006 Málaga, España (SPAIN)
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com<http://www.e-camacho.com>
[email protected]<mailto:[email protected]>
Antes de imprimir piensa si es necesario, piensa en el MEDIO AMBIENTE.
Este mensaje y sus adjuntos son confidenciales y reservados exclusivamente a su
destinatario.
Queda prohibida cualquier revelación, copia o distribución de su contenido. Si
ha recibido este
mensaje por error, notifíquelo inmediatamente por esta misma vía y borre el
mensaje de su sistema.
Los datos contenidos en las comunicaciones son tratados por EXCLUSIVAS CAMACHO,
S. L. con
domicilio en AV. ORTEGA Y GASSET 301, 29006 MÁLAGA (ESPAÑA) con el fin de
gestionar las
comunicaciones y ofrecerle la información solicitada. Puede ejercitar sus
derechos de acceso,
rectificación, supresión, oposición y limitación, remitiéndonos su solicitud
por escrito acompañando
copia de su documento de identidad. Nuestra política de protección de datos
podrá encontrarla en
https://www.e-camacho.com.
Before printing thinks if necessary, think of ENVIRONMENT.
This message and any attachments are confidential and intended for the use of
the addressee
only. Any disclosure, copying, distribution is strictly prohibited. If you have
received this email in error,
please notify the sender and delete it immediately. Personal data included in
this email belongs to
EXCLUSIVAS CAMACHO, S. L. with registered address in AV. ORTEGA Y GASSET 301,
29006
MÁLAGA (SPAIN) and will be processed with the purpose of managing the
communications and
providing information. You are entitled to exercise your rights of access,
rectification, erasure, object,
and limitation by addressing such written application to the company, together
with a copy of you ID
card. You may consult our privacy and data protection policy in
https://www.e-camacho.com.
El 20/10/2020 a las 16:42, Javier Baca Lechuga escribió:
Buenas tardes :
A ver si me podéis ayudar, estoy buscando la sintaxis de utilización de una
tabla (Dim) que se cargue en tiempo de compilación con rpg ile Free.
Es decir, esas que pones al final del programa el contenido de la tabla
empezando por **.
Con rpg NO ile free, no tengo ningún problema.
Un saludo y gracias,
Javier
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
