RE: *INZSR - I still love you!!!

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Rick, as I recall it, the real need for *INZSR came from the RESET opcode,
which depends on a step in the cycle where initialized storage is saved
before starting the main calcs.  *INZSR lets you programatically initialize
storage before it is captured as "initialized".  This lets you RESET complex
structures easily and quickly to their original initialized values.  For
some reason, I've never seen RESET used much in the code I've maintained.  

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Rick DuVall [mailto:R_C_DuVall@xxxxxxxxxx]
Sent: Tuesday, January 13, 2004 8:08 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: *INZSR - I still love you!!!


Hi List,

        I may be mistaken, haven't used it for quite a while, but isn't the
*INZSR
run only at Program startup?  I generally use a 'Setup' subroutine which I
can call on my terms when a program is possibly called repeatedly.

Regards

Rick DuVall
Systems Manager
Dealer's Auto Auction of Okc, Inc.
Rick@xxxxxxxxxx <mailto:Rick@xxxxxxxxxx>
(405) 947-2886

--------original message-----------
In a recent post, someone said something that lead me to believe we're all
supposed to be trying to get rid of *INZSR.  I know it isn't "politically
correct RPG, but frankly I always thought it was kind of neat to have a
routine that executed automagically during the first cycle only.

But then again, I like grits with eggs and sausage instead of hash browns -
go figure!!



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