Ü  ORxx (Or xx)

 

·         This op-code is always associated with other op-codes like ANDxx, DOUxx, DOWxx, IFxx, ORxx, or WHENxx operation.

·         xx represents EQ, GE, GT, LE, LT, and NE.

 

Example


Columns . . . :    6  80                    Browse                           AMINEM/QRPGLESRC
SEU==>                                                                               OP_CHECK
FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
*************** Beginning of data ****************************************************
0001.00 Dcount            S              2  0 INZ(10)                                   130130
0002.00 Dn                S              2  0 INZ(5)                                    130130
0003.00 Da                S              2  0 INZ(0)                                    130130
0004.00                                                                                 130130
0005.00 C     n             DOWLT     count                                             130130
0006.00 C     a             ORGT      n                                                 130130
0007.00 C     a             ANDLT     15                                                130130
0008.00 C                   EVAL      a=a+3                                             130130
0009.00 C                   EVAL      n=n+1                                             130130
0010.00 C     n             DSPLY                                                       130130
0011.00 C     a             DSPLY                                                       130130
0012.00 C                   ENDDO                                                       130130
0013.00                                                                                 130130
0014.00 C                   SETON                                        LR             130130
****************** End of data *******************************************************

 

OUTPUT

DSPLY   6

DSPLY   3

DSPLY   7

DSPLY   6

DSPLY   8

DSPLY   9

DSPLY   9

DSPLY  12

DSPLY  10

DSPLY  15                                            











User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy