|
Not sure what syntax you are looking for, but here is a start for null indicators: D* AddrFldsNull DS D NLad_phone S 5I 0 For usage in the calcs: C if nlad_phone >= *zero C Eval %subst(AlphaCvt:13:3) C = %trim(%subst(A_ad_phone:1:3)) HTH Dave Boettcher -----Original Message----- From: Raul A Jager [mailto:raul@xxxxxxxxxx] Sent: Friday, August 29, 2003 4:26 PM To: RPG programming on the AS400 / iSeries Subject: Idicator variable I have a program that uses SQL and gives a message in the joblog every time it tryes to read a NULL. This is the SQL: ____________________________________________________________________________ ____ c/exec sql c+ select trim(name) || ' ' || lname into :nombre c+ from salary/emple_ncl where usuario = ucase( :id) c/end-exec ____________________________________________________________________________ _______ and this is the message: ____________________________________________________________________________ __ SQL0305 Diagnóstico 30 29/08/03 17:08:10,109712 QSQRUN2 QSYS *STMT QSQRUN2 QSYS *STMT Desde módulo. . . . . . . . : QSQFETCH Desde procedimiento . . . . : CK_DEBUG Sentencia . . . . . . . . . : 15341 A módulo. . . . . . . . . . : QSQFETCH A procedimiento . . . . . . : CK_DEBUG Sentencia . . . . . . . . . : 15341 Mensaje . . . . : Variable indicadora necesaria. Causa . . . . . : Una sentencia FETCH, SELECT intercalada, CALL, o SET o VALUES INTO ha dado como resultado un valor nulo, pero no se especificó una variable indicadora para la variable del lenguaje principal IDENT. La posición relativa de la variable del lenguaje principal en la cláusula INTO o en la lista de parámetros es 2. Si el nombre de variable del lenguaje principal es *N, se especificó una SQLDA.Recuperación . : Especifique una variable indicadora y vuelva a precompilar el programa. ____________________________________________________________________________ __________________________ I understand that I need to specify an indicator variable, but I could not find how to specify the indicator. do you remember the sintax? Thanks. _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.