Re: testing a batch RPG pgm which uses the TIME opcode

>Date: Fri, 25 Aug 2000 10:57:26 -0400
>From: "Stone, Joel" <StoneJ@GourmetAward.com>
>
>3)  The RPG pgm uses the TIME opcode to time-stamp fields in the
>records.  Since the old version and new version run a few seconds
>apart, none of the output records ever match.  Is there a way to
>force the TIME opcode to return a constant value in a job so the
>timestamp fields will match when running CMPPFM??

Joel, you can't change how TIME works, but you can change your own
program to get a constant result in your timestamp:
   /IF DEFINED(CONSTANT_TIME)
  C         EVAL    timestamp = Z'2000-08-23-12.00.00.000000'
   /ELSE
  C         TIME                 timestamp
   /ENDIF
When you want to do your testing, compile your RPG program with
DEFINE(CONSTANT_TIME).


Another way would be to use a trigger program.

Barbara Morris


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---