Scott,
Thanks for the suggestions. I just applied both to my copybook of Header compile directives. I don't have to worry about third party software (yet) since (sigh) the package that we use was ported from a System/36 and is still mostly in RPG II.
Jerry C. Adams
IBM System i Programmer/Analyst
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Friday, September 05, 2008 5:51 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Environment Corruption?
Hi Jerry,
Jerry Adams wrote:
H DEBUG(*Yes)
H DFTACTGRP(*NO)
H ACTGRP('QILE')
H DATFMT(*ISO)
H DATEDIT(*YMD)
H OPTION(*NODEBUGIO)
I basiscally agree with your suggestion, except:
I would recommend that you avoid using QILE. It's a very small thing --
but I suggest instead of specifying QILE, you use an activation group
named after your company. Such as ACTGRP('BWWHOLE') (For B&W
Wholesale). It will work EXACTLY the same way as QILE. But, if you
install 3rd party software, it might mistakenly reclaim QILE and reclaim
your programs without you realizing it, or you might mistakenly reclaim
their programs. It's much less likely that a 3rd party would name their
actgrp BWWHOLE.... Like I said, it's a very small thing, with a very
small likelihood of mattering to anyone -- but it's so easy to specify
ACTGRP('BWWHOLE') instead of ACTGRP('QILE') that you might as well do it...
Second... I would suggest adding using OPTION(*SRCSTMT) (so you'll have
OPTION(*SRCSTMT:*NODEBUGIO)) That way, when an error occurs and the
error message reports a program statement number, the statement number
will match your source code.
--
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.
midrange.com
