ALTER
| This page is under construction. |
|---|
| COBOL | JAVA |
| ALTER <PARAGRAPH1> PROCEED TO <PARAGRAPH2> |
m_LocDef.X<paragraph1>_Var.Value = "<paragraph2>"; <label1>: switch (m_LocDef.X<paragraph1>_Var.ToString()) { case "<paragraph2>": { goto <label 2>; } default: { // Continue break; } } |
Syntax
m_LocDef.X<paragraph1>_Var.Value = "<paragraph2>";
<label1>:
switch (m_LocDef.X<paragraph1>_Var.ToString()) {
case "<paragraph2>": {
goto <label2>;
}
default: {
// Continue
break;
}
}
Parameter(s)
<paragraph1>:
The paragraph where the GOTO statement is located.
<paragraph2>:
The altered destination paragraph.
<label1..2>:
The Java label to which paragraph 1..2 was translated.
Example(s)
| COBOL | Java |
ALTER 1000-GOTOPARPROCEEDTO 3000-PAR3.
|
locDef.x1000_Goto_Var.assign("3000-PAR3");
case Label_1000_Goto:
switch (locDef.x1000_Goto_Var.toString()) {
case "3000-PAR3":
jumpToLabel = Label_3000_Par3;
continue mainLoop;
default: {
// Continue
break;
}
}
|
IF LETTER IS 'B'
ALTER 500-GOTO PROCEED TO 2000-PAR2.
IF LETTER IS 'C'
ALTER 500-GOTO PROCEED TO 3000-PAR3.
IF LETTER IS 'D'
ALTER 500-GOTO PROCEED TO 4000-PAR4.
IF LETTER IS 'E'
ALTER 500-GOTO PROCEED TO 5000-PAR5.
500-GOTO.
GO TO 1000-PAR1.
1000-PAR1.
DISPLAY 'PARAGRAPH 1'.
2000-PAR2.
DISPLAY 'PARAGRAPH 2'.
3000-PAR3.
DISPLAY 'PARAGRAPH 3'.
4000-PAR4.
DISPLAY 'PARAGRAPH 4'.
5000-PAR5.
DISPLAY 'PARAGRAPH 5'.
|
if (locDef.letter.equalTo('B')) {
locDef.x500_Goto_Var.assign("2000-PAR2");
}
if (locDef.letter.equalTo('C')) {
locDef.x500_Goto_Var.assign("3000-PAR3");
}
if (locDef.letter.equalTo('D')) {
locDef.x500_Goto_Var.assign("4000-PAR4");
}
if (locDef.letter.equalTo('E')) {
locDef.x500_Goto_Var.assign("5000-PAR5");
}
case Label_500_Goto:
switch (locDef.x500_Goto_Var.toString()) {
case "2000-PAR2":
jumpToLabel = Label_2000_Par2;
continue mainLoop;
case "3000-PAR3":
jumpToLabel = Label_3000_Par3;
continue mainLoop;
case "4000-PAR4":
jumpToLabel = Label_4000_Par4;
continue mainLoop;
case "5000-PAR5":
jumpToLabel = Label_5000_Par5;
continue mainLoop;
default: {
// Continue
break;
}
}
jumpToLabel = Label_1000_Par1;
continue mainLoop;
case Label_1000_Par1:
display("paragraph 1");
case Label_2000_Par2:
display("paragraph 2");
case Label_3000_Par3:
display("paragraph 3");
case Label_4000_Par4:
display("paragraph 4");
case Label_5000_Par5:
display("paragraph 5");
|