RE: Looking for better coding

["Nicolay, Paul" <paul_nicolay@xxxxxxxxx>]

Hi,

At least on a release that is currently no longer supported !

Kind regards,
Paul

-----Original Message-----
From: Dan Bale [mailto:dbale@samsa.com]
Sent: 02 May, 2002 18:52
To: rpg400-l@midrange.com
Subject: RE: Looking for better coding


What release did INZ(*SYS) come along?

- Dan Bale
(I am *NOT* "Dale"
http://archive.midrange.com/midrange-l/200105/msg00281.html )
SAMSA, Inc.
989-790-0507
DBale@SAMSA.com <mailto:DBale@SAMSA.com>
  Quiquid latine dictum sit altum viditur.
  (Whatever is said in Latin seems profound.)

-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
Behalf Of Bob Cozzi
Sent: Thursday, May 02, 2002 11:30 AM
To: rpg400-l@midrange.com
Subject: RE: Looking for better coding


If the job start date is what you needed, than its an okay technique.
But if you want the current date (as you are getting the current time)
you might also want to use the TIME opcode to populate your DATE field.
In addition, if you only need to do that once, you could simply
initialize the DATE and HOURS fields to INZ(*SYS) and avoid the TIME
opcode all together.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


------------------------------------------------------------------------------
Notice: This e-mail message, together with any attachments, contains 
information of Merck & Co., Inc. (Whitehouse Station, New Jersey, USA) that may 
be confidential, proprietary copyrighted and/or legally privileged, and is 
intended solely for the use of the individual or entity named on this message.  
If you are not the intended recipient, and have received this message in error, 
please immediately return this by e-mail and then delete it.

==============================================================================