Buenos días,
Aquí tienes el CL:
PGM
CLRPFM FILE(GENEBRE/SYNARTPIM)
MONMSG MSGID(CPF0000)
RUNSQLSTM SRCFILE(GENEBRE/FONTVAR) SRCMBR(SYNARTPIMQ)
Y aquí el SQL:
insert into genebre/synartpim select mmcono, mmitno, mmitds, mmfuds, a.mditds,
a.mdfuds, b.mditds, b.mdfuds, mmitty, mmitgr, mmstat, ecd1qt, mmnewe, mmgrwe,
m9csno, c.mppopn, d.mppopn, d.mpremk, e.mppopn, e.mpremk
from m3fdbprd/mitmas
left join m3fdbprd/mitlad a on mmcono = a.mdcono and mmitno = a.mditno and
a.mdlncd = 'GB'
left join m3fdbprd/mitlad b on mmcono = b.mdcono and mmitno = b.mditno and
a.mdlncd = 'PT'
left join m3fdbprd/mpacit on mmcono = eccono and mmitno = ecitno
left join m3fdbprd/mitpop c on mmcono = c.mpcono and mmitno = c.mpitno and
(c.mppopn between '8428381000000' and '8428381300000' or
c.mppopn between '8434055000000' and '8434055300000')
left join m3fdbprd/mitpop d on mmcono = d.mpcono and mmitno = d.mpitno and
(d.mppopn between '8428381300000' and '8428381600000' or
d.mppopn between '8434055300000' and '8434055600000')
left join m3fdbprd/mitpop e on mmcono = e.mpcono and mmitno = e.mpitno and
(e.mppopn between '8428381600000' and '8428381900000' or
e.mppopn between '8434055600000' and '8434055900000')
inner join m3fdbprd/mitfac on mmcono = m9cono and mmitno = m9itno and
m9faci = '111'
Gracias,
[cid:[email protected]]
Sergi Sitjes
Director Sistemes d'Informació/CIO
GENEBRE GROUP
E-mail: [email protected]
Web: http://www.genebre.es
Tel: +34 93 298 80 02
Fax: +34 93 298 80 07
De: Forum.help400 <[email protected]> En nombre de
Javier Baca Lechuga
Enviado el: miércoles, 7 de julio de 2021 17:45
Para: forum.help400 <[email protected]>
Asunto: Re: Error en RUNSQLSTM
Buenas tardes Sergi :
Envíanos por favor las sentencias contenido exacto del CL y la sentencia SQL
para que te podamos ayudar.
Saludos,
Javier
________________________________
De: Forum.help400
<[email protected]<mailto:[email protected]>>
en nombre de Sergi Sitjes <[email protected]<mailto:[email protected]>>
Enviado: miércoles, 7 de julio de 2021 14:35
Para: forum.help400
Asunto: Error en RUNSQLSTM
Hola compañeros,
Os escribo para pediros orientación con un error que me tiene totalmente
descolocado. Tengo un programa CL en el que pretendo lanzar una sentencia SQL
usando el mandato RUNSQLSTM. Cuando lo hago recibo este error:
Additional Message Information
Message ID . . . . . . : CPF4011 Severity . . . . . . . : 10
Message type . . . . . : Diagnostic
Date sent . . . . . . : 07/07/21 Time sent . . . . . . : 14:29:35
Message . . . . : Buffer length longer than record for member SYNARTPIM.
Cause . . . . . : The file record length for member SYNARTPIM file SYNARTPIM
in library GENEBRE is 500. The buffer entry length is 959. The remainder of
the buffer entry is filled with blanks.
Recovery . . . : If necessary, change the record length specified in the
program to the length of the longest record in the member. Then try your
request again.
SYNARTPIM es el nombre del programa CL que llamo y la sentencia SQL es bastante
larga, posiblemente la longitud sean esos 959 del mensaje de error.
Alguna idea de a que buffer se refiere y cómo solucionarlo?
Gracias por avanzado,
[cid:[email protected]]
Sergi Sitjes
Director Sistemes d'Informació/CIO
GENEBRE GROUP
E-mail: [email protected]<mailto:[email protected]>
Web: http://www.genebre.es
Tel: +34 93 298 80 02
Fax: +34 93 298 80 07
La información que contiene este correo electrónico es confidencial y compete
exclusivamente al destinatario. Si Vd. ha recibido esta comunicación por error,
por favor, notifíquelo inmediatamente al remitente y borre el mensaje junto con
sus ficheros anexos sin leerlo, copiarlo, grabarlo, distribuirlo o divulgarlo o
hacer cualquier otro uso de la información sin el consentimiento de Genebre
S.A. El correo electrónico vía Internet no permite asegurar la confidencialidad
o correcta recepción de los mensajes, por lo que Genebre no asume
responsabilidad alguna por los daños causados. The information contained in
this communication is confidential, may be privileged and is intended for the
exclusive use of the above named addressee. If you receive this communication
in error, please notify the sender immediately and delete it, and all its
attached documents. If you are not the intended recipient, you are expressly
prohibited from reading, copying, distributing, disseminating or, in any other
way, using any of the information without the Genebre S.A. consent. Please note
that Internet e-mail guarantees neither the confidentiality nor the proper
receipt of the message sent, so that Genebre shall not be liable for any
damages caused.
La información que contiene este correo electrónico es confidencial y compete
exclusivamente al destinatario. Si Vd. ha recibido esta comunicación por error,
por favor, notifíquelo inmediatamente al remitente y borre el mensaje junto con
sus ficheros anexos sin leerlo, copiarlo, grabarlo, distribuirlo o divulgarlo o
hacer cualquier otro uso de la información sin el consentimiento de Genebre
S.A. El correo electrónico vía Internet no permite asegurar la confidencialidad
o correcta recepción de los mensajes, por lo que Genebre no asume
responsabilidad alguna por los daños causados. The information contained in
this communication is confidential, may be privileged and is intended for the
exclusive use of the above named addressee. If you receive this communication
in error, please notify the sender immediately and delete it, and all its
attached documents. If you are not the intended recipient, you are expressly
prohibited from reading, copying, distributing, disseminating or, in any other
way, using any of the information without the Genebre S.A. consent. Please note
that Internet e-mail guarantees neither the confidentiality nor the proper
receipt of the message sent, so that Genebre shall not be liable for any
damages caused.
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
