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

Sorry folks. That was intended for someone else. Obviously. 


Mark Walter
Senior Programmer/Analyst
Hainey Business Systems
(717) 718-9601 x7148
mwalter@xxxxxxxxxxx
http://www.hbs-inc.com
 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark Walter
Sent: Friday, September 30, 2005 4:50 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Why is RESET not allowed for a DS that is based?

Sorry about that. I had 42 degrees this morning. I could see my breath.
Didn't have to scrape though. Not yet. Gets warm next week. In the 80s a
couple of days. 


Mark Walter
Senior Programmer/Analyst
Hainey Business Systems
(717) 718-9601 x7148
mwalter@xxxxxxxxxxx
http://www.hbs-inc.com
 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Friday, September 30, 2005 4:39 PM
To: RPG programming on the AS400 / iSeries
Subject: 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.
> 
>