Ü  TAG (Tag)

·         The declarative TAG operation names the label that identifies the destination of a GOTO (Go To) or CABxx (Compare and Branch) operation.

 

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