|
This is a multipart message in MIME format. -- [ Picked text/plain from multipart/alternative ] Think outside the box. Convert the rest of your program to RPGILE instead of sticking with RPG/400. Look at the command CVTRPGSRC. Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin "Ren Fu Ping" <fupingren@yeah.net> Sent by: rpg400-l-admin@midrange.com 05/14/2002 08:50 PM Please respond to rpg400-l To: rpg400-l@midrange.com cc: Fax to: Subject: Reply: RE: Either null indicator variable, or, defaulting a value -- [ 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. > > _______________________________________________ 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.
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.