Ü    CABxx (Compare and Branch)

 

·         This op-code compares factor 1 with factor 2 and as per the condition specified by CABxx, the program control goes to the program Label specified in the result field.

·         The Label in result field denotes a TAG Label or a ENDSR Label.

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

Factor 1

Op-code

Factor 2

Result Field

Resulting Indicators

       HI                            LO                      EQ

Comparison value 1

CABxx

Comparison  value 2

TAG Label or a ENDSR Label

Factor1>Factor2

Factor1

Factor1=Factor2

 

Example


Columns . . . :    6  80                    Edit                              AMINEM/QRPGLESRC
SEU==>                                                                               OP_CABXX
FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
*************** Beginning of data ****************************************************
0001.00 Da                S              2  0 INZ(11)                                   130128
0002.00 Db                S              2  0 INZ(22)                                   130128
0003.00 Dc                S              2  0 INZ(11)                                   130128
0004.00 Dn                S              2  0 INZ(0)                                    130128
0005.00 C     TAG_A         TAG                                                         130128
0006.00 C     a             CABEQ     c             TAG01                               130128
0007.00  *                                                                              130128
0008.00 C     TAG_B         TAG                                                         130128
0009.00 C     b             CAB       c             TAG02                414243         130128
0010.00  *                                                                              130128
0011.00 C     TAG01         TAG                                                         130128
0012.00 C                   EVAL      n=n+1                                             130128
0013.00 C                   GOTO      TAG_B                                             130128
0014.00  *                                                                              130128
0015.00 C     TAG02         TAG                                                         130128
0016.00 C                   EVAL      n=n+1                                             130128
0017.00 C     n             DSPLY                                                       130128
0018.00 C     *IN41         DSPLY                                                       130128
0019.00 C     *IN42         DSPLY                                                       130128
0020.00 C     *IN43         DSPLY                                                       130128
0021.00  *                                                                              130128
0022.00 C                   SETON                                        LR             130128
****************** End of data *******************************************************

 

OUTPUT

DSPLY  2

DSPLY  1

DSPLY  0

DSPLY  0

 











User Comments:



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