Re: Suggestions

[rob@xxxxxxxxx]

No.

You could store SQL's DDL into a source member and use RUNSQLSTM.

CREATE TABLE ROB/DOUGGY 
(MYKEY SMALLINT NOT NULL WITH DEFAULT as identity,
 MYCHAR CHAR (10 ) NOT NULL WITH DEFAULT, 
constraint douggy_mykey primary key (mykey)) 

FDOUGGY    UF A E           K DISK    RENAME(DOUGGY:DOUGGYR)
D/copy routines/qrpglesrc,psds 
 /free 
  mychar='hi there'; 
  write(e) douggyr; 
  *inlr = *on; 
  return; 
 /end-free 


DSPPFM DOUGGY
*...+....1..
  hi there 
00884A889844
018903859500


Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/09/2005 03:22 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Suggestions






In order to use the identity columns and create them, do I not also need 
to 
have the sql developers license?



On Wed, 9 Mar 2005 15:13:24 -0500, Terry wrote
> If you are not yet at a release level that supports the identity 
> column, you can do a *HIVAL SETGT /READP (assuming this 'serial 
> number' is the key) or keep track of the last used value in a data area.
> 
> Terry Richardson
> Vermont Information Processing, Inc.
> terry@xxxxxxxxxx
> 
> rob@xxxxxxxxx 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 03/09/2005 03:10 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> Re: Suggestions
> 
> Look up identity column here
> 
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ic2924/info/sqlp/rbafys

qlpidentity.htm
> 
> It will automatically generate the next number for you.
> 
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> "Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 03/09/2005 02:57 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> Suggestions
> 
> I have a physical file that will hold gas type information, but one 
> of the
> 
> fields needs to be an integer id field.  My experience with other db 
> formats 
> is that I could set that field to auto generate so that as each 
> record is written it will increment the count by 1.  we will be 
> using this for cross
> 
> referencing to some other files and must be unique.
> 
> I know I can read through the file and increment a counter, but that 
> seems
> 
> to have a huge overhead, not to mention that as time goes on, it'll 
> take longer and longer to calculate.
> 
> Does anyone have a viable suggestion on how to accomplish this?
> 
> Douglas
> 
> -- 
> 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.
> 
> -- 
> 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.
> 
> -- 
> 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.


--
Open WebMail Project (http://openwebmail.org)

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