# jCL G / GO / GOTO

Updated: 10/19/2020, 10:24:56 AM
Created: 10/19/2020, 10:24:56 AM
Last Updated By: Daniel Klein
Read Time: 2 minute(s)

Tags: jcl

# Description

This command transfers control unconditionally to another location in the program. It takes the general form:

G label
1

or

GO  label
1

or

GOTO label
1

or

GO label] label...  (Multivalued form used with multivalued IF command)
1

where label specifies the location from which execution is to continue.

# Note

If the label has not already been encountered in the program, GOTO will search for the label, from the current position. The target label must be found at the beginning of a command line, separated from the command by at least one space. If the label cannot be found, or is defined more than once, the program will terminate with an error message.

# Muultivalued Form

To use the multivalued form of the GO  command, you must specify one label for each result of a multiple comparison. For example:

IF %2 = A]B]C]D GO  10]20]30]40
1

Separate the test values and the destination labels with value marks (ctrl ]).

Note that this is a special case of the GO  command. If you need to mix command types in the resulting actions, you should not use this form of the GO command. You can still achieve the same effect but each value must contain a separate command. For example:

IF %2 = A]B]C]" GO  10]GO 20]GO 30]XFinished
1

In this case, if the result of the test for null is true the program will terminate with a suitable message.

# Example 1

PQN
F-OPEN  1 SALES
G 1001
T C, (5, 10), "Welcome to...",+

...
...

1001 T "ERROR: Can"t find the Sales File!"
IP %99
RTN
.
1
2
3
4
5
6
7
8
9
10
11
12

If the SALES file is opened, execution continues with line 4. Otherwise, control is transferred to label 1001.

# Example 2

...
5 T "Option :",+
IP %1
IF %1 = A]B]C GO  10]20]30
GOTO 5
...
1
2
3
4
5
6

This example transfers control to label 10 if "A" is entered, to label 20 if "B" is entered and to label 30 if "C" is entered. If the response is not recognized, control returns to label 5.

Back to jCL.