RE: Why is RESET not allowed for a DS that is based?

Well, I can understand INZ not being allowed.

Since there's no memory space for a based structure, it'd be kind of hard for 
it to be initialized.

Granted, you could have the based-on pointer assigned at compile time, so in 
that instance there is space assigned.  But more likely, no space is addressed 
until run-time.  How could the compiler code to initialize the DS?

As I think about it, perhaps RESET has a similar limitation.  Since RESET 
resets a available to it's INITIAL state and a based variable doesn't really 
have a initial state...RESET doesn't work.

CLEAR should work though as it sets the variable to blanks/zeros.

That being said, I have often wished for a way to use INZ and RESET with a 
based structure.

Perhaps a DEFAULT keyword along with CLEAR resetting to DEFAULT.

That would allow me to define a template like structure with fixed fields.

HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx
> Sent: Friday, September 30, 2005 4:21 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Why is RESET not allowed for a DS that is based?
> 
> 
> Which also begs the question:  Why is inz not allowed in a based data 
> structure?
> RNF3724: Keyword is not allowed for subfield in based data structure; 
> keyword is ignored.
> 
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> 
> 
> 
> 
> rob@xxxxxxxxx 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 09/30/2005 03:05 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> 
> To
> rpg400-l@xxxxxxxxxxxx
> cc
> 
> Fax to
> 
> Subject
> Why is RESET not allowed for a DS that is based?
> 
> 
> 
> 
> 
> 
> Why is RESET not allowed for a DS that is based?
> 
> ...
>      D pQsylusraHd     s               *
>      D qsylusraHd      DS                  qualified 
> based(pQsylusraHd)
>      D  Object                       10a   inz(*blanks)      
> Object name
>      D  Library                      10a   inz(*blanks)      
> Library name 
> specifd
> ...
>        reset qsylusrahd;
> RNF5348: RESET is not allowed for a result field that is based or 
> imported. 
> 
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> -- 
> 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.
> 
>