%MSECONDS Built-In Functions in rpgle

 

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

Format of the function is %MSECONDS (Number of Microseconds).

 

Example –%msseconds built-in function in rpgle

 


Columns . . . :    6  80               Browse                                AMITCC/QRPGLESRC
SEU==>                                                                               BIN_MSEC
FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
*************** Beginning of data ***********************************************************
0001.00 DTIMESTP0         S               Z                                             130201
0002.00 DTIMESTP1         S               Z                                             130201
0003.00 DTIMESTP2         S               Z   INZ(Z'2011-02-01-01.48.46.728000')        130201
0004.00 DTIMESTP3         S               Z                                             130201
0005.00 C                   TIME                    TIMESTP0                            130201
0006.00 C                   EVAL      TIMESTP1=TIMESTP0 + %MSECONDS(2)                  130201
0007.00 C     TIMESTP0      DSPLY                                                       130201
0008.00 C     TIMESTP1      DSPLY                                                       130201
0009.00 C                   EVAL      TIMESTP3=TIMESTP2 - %MSECONDS(2)                  130201
0010.00 C     TIMESTP2      DSPLY                                                       130201
0011.00 C     TIMESTP3      DSPLY                                                       130201
0012.00 C                   SETON                                        LR             130201
****************** End of data ***************************************************************


                 

 

OUTPUT

 

2013-02-01-01.57.17.492000
2013-02-01-01.57.17.492002
2011-02-01-01.48.46.728000
2011-02-01-01.48.46.727998










User Comments:



Subscribe

  Email:



Copyright © www.go4as400.com, 2013-2017. Copyright notice