RE: Need HELP WITH NULL HANDLING IN SQLRPGLE ---

["Raikov, Lo" <RaikovL@xxxxxxxxxx>]

Did you try to define HostRec DS as an external data structure using a dummy
DB file with null-capable fields for the template? 

Lo

> -----Original Message-----
> From: Jeffrey Silberberg [SMTP:jsilberberg@mindspring.com]
> Sent: Friday, September 29, 2000 1:22 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Need HELP WITH NULL HANDLING IN SQLRPGLE ---
> 
> I have an SQLRPGLE  that will not run. The Left outer Join results in a
> Null
> Field for LBRNAM
> when there is no LMBR present and I can not figure out how to make LMBRAM
> a
> Null
> Capable Field in this Data structure.  ??
> 
> 
> I Get the following in the Joblog each time it runs:
> 
> "Message ID . . . . . . :   SQL0305
> Date sent  . . . . . . :   09/28/00      Time sent  . . . . . . :
> 22:08:06
> 
> Message . . . . :   Indicator variable required.
> 
> Cause . . . . . :   A FETCH, an embedded SELECT, a CALL or a SET or VALUES
>   INTO statement has resulted in a null value, but an indicator variable
> was
>   not specified for host variable LMBRAM.  The relative position of the
> host
>   variable in the INTO clause or parameter list is 14. If the host
> variable
>   name is *N, an SQLDA was specified.
> Recovery  . . . :   Specify an indicator variable, and precompile the
> program
>   again.
> "
> 
>     Every time i trya nd run it. And between the Info Center and the Books
> I
> can not find an
> answer on how to get this to work. Can someone give me a hint please !!
> 0001.00 H ALWNULL(*USRCTL)
> < S N I P >
> 0013.00 DHostRec          DS
> 0014.00 D LREGSQ                         9  0 INZ(0)
> 0015.00 D LMBRID                         9  0 INZ(0)
> < SN I P >
> 0026.00 D LDTCRT                         8S 0 INZ(0)
> 0027.00 D LMBRAM                         7P 2
> 0029.00 C**
> 0030.00 C/Exec Sql
> 0031.00 C+ DECLARE C1 CURSOR FOR SELECT LREG.LREGSQ, LREG.LMBRID,
> 0032.00 C+ LREG.LFNAME, LREG.LLNAME, LREG.LADDR1, LREG.LZIPC5,
> LREG.LZIPC4,
> 0033.00 C+ LREG.LPAYCD, LREG.LREGDO, LREG.LREGAM, LREG.LCCNM, LREG.LEXDT,
> 0034.00 C+ LREG.LDTCRT, LMBR.LMBRAM FROM MEMLIB1/lreg LEFT OUTER JOIN
> 0035.00 C+ memlib1/lmbr ON lreg.lregsq = lmbr.lmbrsq WHERE LREG.LDTCRT =
> 0036.00 C+ :DateSlt FOR READ ONLY
> 0037.00 C/End-Exec
> 
> 
> TIA,,
> JMS....
> 
> 
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---