Hola Juan
Si, le agregue las opciones, igual no lee.
Te paso como esta la hoja H.
H DATEDIT(*DMY/) THREAD(*SERIALIZE)
H DFTACTGRP(*NO) BNDDIR('QC2LE')
H CVTOPT(*VARCHAR)
H FIXNBR(*ZONED:*INPUTPACKED )
H ALWNULL(*USRCTL)
Por eso ya hice la consulta en forma especifica.
Gracias Juan.
Saludos
________________________________
From: [email protected]
<[email protected]> on behalf of Juan Gutierrez Ruiz
<[email protected]>
Sent: Thursday, June 29, 2017 2:07 PM
To: forum.help400
Subject: Re: Valor Nulo en SQL
hola Carlos
en el programa RPG en la hoja H debes de poner el parametro ALWNULL(*USRCTL)
o cuando lo compiles
Crear programa RPG enlazado (CRTBNDRPG)
Teclee elecciones, pulse Intro.
Permitir valores nulos . . . . . ALWNULL *USRCTL
espero te sirva
saludos
________________________________
De: [email protected]
<[email protected]> en nombre de Carlos C.
<[email protected]>
Enviado: jueves, 29 de junio de 2017 10:59 a. m.
Para: forum.help400
Asunto: Valor Nulo en SQL
Buenos dias Foro
Una consulta, tema SQL.
Tengo una tabla creada a traves de DDS y tiene valores nulos.
Al ejecutar la sentencia en forma manual el SQL selecciona y despliega los
registros sin problemas.
Pero en el programaRPG obvia los registros con valores nulos; la consulta es?
debo agregar una condicion al programa?
Esta es la sentencia.
Exec Sql Declare C1 Cursor For
select *
From mylib/mytabla
Where MFCICC =:v1
and v2 Not in ('W', 'I')
Order by
case
when :orca1255 = 'xxxxx' then xxxxx
end
FOR READ ONLY;
Exec sql Open C1; // Abre Cursor
For I to 9999999 ; // Abre un Loop para leer
Exec sql Fetch C1 INTO :datoDs; // Estructura de datos definido como
externo en la hoja D
If SqlStt = '02000' ;
Leave;
Endif;
EndFor ;
Saludos y gracias !!! por la ayuda
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
