RE: %mseconds BIF -- RPG400-L

I am ultimately creating about 5000 passwords in batch sequence using a
timestamp only.  This is code that was off of it jungle I believe.  Only
problem is it was design to create passwords randomly in a less frequent
manner.  In badge mode using the seconds to condition the translation. I
get several users in sequence with the same password.  So, by knocking
it down to microseconds to condition the translation my thought that the
likelihood of duplicate passwords generated would be greatly reduced.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of DeLong, Eric
Sent: Wednesday, October 04, 2006 5:04 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: %mseconds BIF

Ok, that helps.

First, from the manual:
--------------------------------
%MSECONDS (Number of Microseconds)

%MSECONDS(number)
%MSECONDS converts a number into a duration that can be added to a time
or timestamp value.


%MSECONDS can only be the right-hand value in an addition or subtraction
operation. The left-hand value must be a time or timestamp. The result
is a time or timestamp value with the appropriate number of microseconds
added or subtracted. For a time, the resulting value is in *ISO format.
---------------------------------

In your program, you are trying to assign a duration value (the result
of the %mseconds bif) to an alpha field.  These datatypes are not
compatible.  A duration value may only be used in an expression dealing
with date/time types.....  You cannot use this command in this manner.

You must explore the date/time types (d, t, z in RPGILE) before you can
use the date/time duration bifs.....    

Can you tell me what you're trying to accomplish?

Thanks,

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



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Charlie Randall
Sent: Wednesday, October 04, 2006 4:45 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: %mseconds BIF


* -- Data Structures...
d Tracking#       ds            20
d  Track@14                     14a   inz
d  Track@06                      6a   inz
d* -- Time in Microseconds --
d Microsec        ds
d  microsec6                     6s 0 inz
d  microsec5                     5a   overlay(microsec6)
d  microsec1                     1a   overlay(microsec6:6)
 * ---- Time Stamp...
d time@stamp@a    ds
d  timestamp                    14s 0 inz
d   utime@hms                    6a   overlay(timestamp)
d    utime@sec                   1a   overlay(utime@hms:6)
d   udate@mdcy                   8a   overlay(timestamp:7)
     
 
/end-free
C                   time                    timestamp
 /free
      Track@06 = utime@hms;

      Microsec6 = %MSECONDS(utime@hms);
      Microsec6 = %MSECONDS(timestamp);
      Microsec6 = %MSECONDS(time());
      Microsec = %MSECONDS(track@06); 
      Microsec = %MSECONDS(timestamp);

I have tried each of the above 5 bif commands with one or both of the
errors
Below,  I guess I do not follow how a duration BIF is supposed to work.

Charlie



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Peter Levy
Sent: Wednesday, October 04, 2006 4:34 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: %mseconds BIF

Could you post the RPG statement that is failing along with the 
attributes of the variables used?

It would be a great help.

Charlie Randall wrote:

Built in Function Question?

Does anyone have an example of how the %mseconds BIF works.  I checked
the archive and did not find an example nor have I had any success

with

a example from the web.  I have tried this and just cannot get away

from

one or both of these errors:

*RNF0579 20      1 The parameter for the duration built-in function is
not
                   valid.
*RNF7416 30      1 The types of the right and left hand side do not
match in the EVAL operation.

Thanks;

Charlie Randall
AAA Cooper Transportation
Crandall@xxxxxxxxxxxxx