TIME opcode in V5R1

["Brian Parkins" <PARKIB@xxxxxxxxxx>]

>>Now that we're using r510 on all the boxes, and Code/400 has the cool
option
>>to convert it to /free I figure Why not?"

>>Well TIME to a 12 digit RESULT field is one reason, but...

Not as sweet as the TIME opcode, but the following will work in free-format
(V5R1):

D                 DS
D Result                        12S 0
D  HMSCh                         6A   Overlay(Result)
D  YMDCh                         6A   Overlay(Result:*Next)
  // Traditional Fixed-Format coding
C                   Time                    Result
C     Result        Dsply     '*REQUESTER'
  // V5R1 Free-Format coding
 /Free
   HMSCh = %Char(%Time():*HMS0);
   YMDCh = %Char(%Date():*DMY0);
   Dsply  Result  '*REQUESTER';

   *InLR = *On;
 /End-Free

Brian Parkins