Ü  GOTO (Go To)

·         It takes the control to a specified Tag-label or End sob-routine label.

¤  Tag label

 

Factor 1

OpCode

Factor 2

Result Field

Resulting Indicators

       HI                            LO                      EQ

GOTO

Tag label

 

 

 

 

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

 

 

¤  End subroutine label

Factor 1

OpCode

Factor 2

Result Field

Resulting Indicators

       HI                            LO                      EQ

GOTO

End subroutine label

 

 

 

 

 


0122.00      C           VALID     BEGSR
0123.00      C           PTNUM     CHAINREC2                 85    |
0124.00      C           PTNUM     IFEQ *BLANKS                    |
0125.00      C                     MOVELARY,1     MSG2             |
0126.00      C                     SETON                     20    |
0127.00      C                     GOTO AAA                        |
0128.00      C                     ENDIF                           |>>>>>>
0129.00      C           PTNAME    IFEQ *BLANKS                    |
0130.00      C                     MOVELARY,2     MSG2             |
0131.00      C                     SETON                     21    |
0132.00      C                     GOTO AAA                        |>>>>>>
0133.00      C                     ENDIF                           |
0134.00      C           PTADDR    IFEQ *BLANKS                    |
0136.00      C                     MOVELARY,3     MSG2             |
0137.00      C                     SETON                     22    |
0138.00      C                     GOTO AAA                        |>>>>>>
0139.00      C                     ENDIF                           |
0145.00      C           AAA       ENDSR                           |>>> End subroutine label

 











User Comments:



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