time in rpg free?

[Huddy]

How do I compare the system real time with a numeric value held on file in rpg free?

I thought I could use %time but this isn't the same type?

Thanks

[Mercury]

Re: time in rpg free?

Convert the numeric value to time using the %TIME() BIF and then compare.

D TimeFld        s            t
TimeFld_ISO = %TIME(FileTime:*USA); 

[B.Hauser]

Re: time in rpg free?

You want to compare a numeric time with the current time?

Try:

 /Free
    // 1. Convert System time into numeric Time HHMMSS
    NumSysTime = %Dec(%Time(): *ISO);
    If MyNumTime = NumSysTime;
   
    //2. Convert numeric Time (HHMMSS) into a real time
    RealTime = %Time(MyNumTime: *ISO);
    If RealTime = %Time();
/End-Free

[Huddy]

Re: time in rpg free?

Hey that's great. Just had to split the HHMM from the HHMMSS but otherwise not a problem

Many thanks to you both.