Comments on: Times spanning midnight in RPG/400 concatenation

By: tomliotta

tomliotta — Thu, 30 Dec 2010 04:36:01 +0000

Ahh! I thought “DateDiff” seemed familiar. When I see questions where someone tries an operation from a different platform, I wonder if there is a Visual Basic forum somewhere that has a question like “I tried to use SETLL before a READE in my VB script, but I got this weird error message. Anybody know what I should change?”

Tom

By: philpl1jb

philpl1jb — Wed, 29 Dec 2010 01:34:51 +0000

Two issues
1 – Are you using RPG/400 or RPGLE (RPG/IV)?
2 – Since DATEDiff is an SQL function – are you using SQL?.

DateDiff is not part of the SQL standard and is not a built in function in DB2
However, if you’ve actually made SQL datetime fields (no you can’t just concatenated the date and time into one field) then you could do something like this
select Minutes(dateEnd) – Minutes(dateBegin) as elapsedTime from ….
Phil

By: tomliotta

tomliotta — Wed, 29 Dec 2010 01:23:19 +0000

I didn’t notice at first that this is a RPG/400 question. In that case, you don’t have procedures available.

DateDiff (‘n’,{@startdatetune}, {@startdatetime})

So, what exactly is “DateDiff”? It’s not part of RPG/400. Where did you get it and how are you using it?

Tom

By: tomliotta

tomliotta — Tue, 28 Dec 2010 21:12:06 +0000

I should be able to use any field where I have concatenated the date and time into one field.

No.

You need to use fields that are appropriately defined and that have appropriate values. Show us your variable definition, the actual values in the variables and the actual statements that do the calculation.

In particular, we need to see the source for your DateDiff() procedure. Without seeing the source, we have no idea what it will do with different variables.

Tom

By: vatchy

vatchy — Tue, 28 Dec 2010 18:07:54 +0000

Here is a simple example:

     D w@Date          S               Z
     D w@Date1         S               Z
     D w@Diff          S              5P 0

      /Free
        w@Date = %TimeStamp();
        w@Date1 = w@Date - %Minutes(35);
        w@Diff = %Diff(w@Date :w@Date1 : *Minutes);

        *INLR = *On;
      /End-Free

This is a complete program. w@Diff has a value of 35 which, as you can see, is the difference I entered in the previous line.