%SECONDS Built-In Functions in rpgle

%SECONDS converts a number into a duration that can be added to a time or timestamp value to affect its no. of Seconds.

Format of the function is %SECONDS (Number).

Example –%SECONDS built-in function in rpgle

Columns . . . :    6  80          Browse                          AMITCC/QRPGLESRC
SEU==>                                                                  BIN_SECOND
FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
*************** Beginning of data ************************************************
0001.00 DTIME0            S               T   INZ(T'10.12.15')
0002.00 DTIME1            S               T
0003.00 DTIMESTP0         S               Z
0004.00 DTIMESTP1         S               Z
0005.00 C                   EVAL      TIME1=TIME0 + %SECONDS(2)
0006.00 C     TIME0         DSPLY
0007.00 C     TIME1         DSPLY
0008.00 C                   TIME                    TIMESTP0
0009.00 C                   EVAL      TIMESTP1=TIMESTP0 - %SECONDS(2)
0010.00 C     TIMESTP0      DSPLY
0011.00 C     TIMESTP1      DSPLY
0012.00 C                   SETON                                        LR
****************** End of data ***************************************************

Output

 
10.12.15                       
10.12.17                       
2013-02-01-01.48.48.728000     
2013-02-01-01.48.46.728000