RE: Either null indicator variable, or, defaulting a value

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

Rob said:

>It was actually quite easy to
>set up null indicators.

For the archives, here's a simple example:

 DRtnData          ds                  occurs(10)
 D TblLib                        10
 D TblName                       10
 D TblType                        1
 D TblText                       50
 D ColName                       10
 D ColType                       10
 D ColLen                         9  0
 D ColScale                       9  0
 D ColText                       50

DRtnNullRaw       ds                  occurs(10)
D NullMap                        4b 0 dim(9)

C/EXEC SQL
C+ DECLARE DYNFIL SCROLL CURSOR FOR
C+         SELECT t.dbname, t.name, t.type, t.label,
C+                c.name, c.coltype, c.length, c.scale, c.label
C+         FROM systables t join syscolumns c on
C+         t.name = c.tbname and t.dbname = c.dbname
C+         WHERE t.name = 'QRPGSRC' and t.dbname = 'QGPL'
C/END-EXEC

C/EXEC SQL
C+ OPEN DYNFIL
C/END-EXEC

C/EXEC SQL
C+ FETCH NEXT FROM DYNFIL FOR 10 ROWS
C+       INTO :RtnData :RtnNullRaw
C/END-EXEC

You could just as easily use 9 individually named fields instead of the null
indicator array.
  --buck