Ü  MVR (Move Remainder)

·         It is used in getting the remainder of a division.

·         It follows DIV op-code.

 

Example


Columns . . . :    6  80                    Browse                           AMINEM/QRPGLESRC
SEU==>                                                                               OP_CHECK
FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
*************** Beginning of data ****************************************************
0001.00 DA                S              2P 0 INZ(25)                                   130128
0002.00 DB                S              2P 0 INZ(11)                                   130128
0003.00  *                                                                              130128
0004.00 C     A             DIV       B             C                 2 0               130128
0005.00 C                   MVR                     D                 2 0               130128
0006.00 C     C             DSPLY                                                       130128
0007.00 C     D             DSPLY                                                       130128
0008.00 C                   SETON                                        LR             130128
0009.00                                                                                 130128
****************** End of data *******************************************************

 

    

OUTPUT

DSPLY   2        

DSPLY   3        

 










User Comments:



Subscribe

  Email:



Copyright © Go4as400.com, 2013-2017. Copyright notice