Envía el código. Eso no tiene por qué dar error.
Obtener BlueMail para Android En 20 oct. 2020 19:33, en 19:33, Javier Baca Lechuga <[email protected]> escribió: >Gracias pero al intentar dirigirme a un elemento de la tabla TXT, por >ejemplo, haciendo : >variable=TXT(1), al compilar sale el error de que no puedo utilizar un >índice si no es una tabla. ¿? > >Saludos, >Javier > >________________________________ >De: Forum.help400 <[email protected]> en >nombre de Jesus Maria Arzak (DHL ES) <[email protected]> >Enviado: martes, 20 de octubre de 2020 17:01 >Para: forum.help400 >Asunto: RE: Tabla con ILE Rpg free > >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.
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
