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 [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.
