× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.