Buenas En RPG FREE sería
DCL-S TXT CHAR(100) DIM(7) PERRCD(1) CTDATA ; Sls Jesús Mª Arzak Capilla Solutions Management DHL Parcel Iberia, S.L.U. Paseo Mikeletegi, nº 65 Parque Tecnológico de San Sebastián E-20009 San Sebastián Phone: +34 943 37 81 37 [email protected]<mailto:%[email protected]> www.dhlparcel.es<http://www.dhlparcel.es/> GOGREEN – Environmental protection with DHL Por favor, ten en cuenta el medio ambiente antes de imprimir este correo From: Forum.help400 [mailto:[email protected]] On Behalf Of Francisco Medina Sent: martes, 20 de octubre de 2020 16:57 To: [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. CONFIDENTIALITY NOTICE: This message is from DHL and may contain confidential business information. It is intended solely for the use of the individual to whom it is addressed. If you are not the intended recipient please contact the sender and delete this message and any attachment from your system. Unauthorized publication, use, dissemination, forwarding, printing or copying of this E-Mail and its attachments is strictly prohibited.
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
