=?gb2312?B?UmVwbHk6IFJFOiBFaXRoZXIgbnVsbCBpbmRpY2F0b3IgdmFyaWFibGUsIG9yLCBkZWZhdWx0aW5nIGEgdmFsdWU=?=

["Ren Fu Ping" <fupingren@xxxxxxxx>]

--
[ Picked text/plain from multipart/alternative ]
How to change D spec to RPG/400 spec? is it I spec or E spec? and how to change?



> 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
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>