PERFORM

PERFORM 0100-LABEL
                

prf_0100_Label(cobolPerform, 0, 0);
                

PERFORM
    DISPLAY 'one'
    DISPLAY 'two'
    DISPLAY 'three'
END-PERFORM.
                

display("one");
display("two");
display("three");
                

PERFORM 0200-LABEL THROUGH 0300-LABEL 3 TIMES.
                

for (int i_Loop_39 = 3; i_Loop_39 > 0; i_Loop_39--) {
  prf_0200_Label(cobolPerform, 0, 0);
}
                

PERFORM 4 TIMES
    DISPLAY 'one'
    DISPLAY 'two'
    DISPLAY 'three'
END-PERFORM.
                

for (int i_Loop_41 = 4; i_Loop_41 > 0; i_Loop_41--) {
    display("one");
    display("two");
    display("three");
}
                

PERFORM 0500-LABEL UNTIL I = 10.
                

while (!(locDef.i.getIntValue() == 10)) {
    prf_0500_Label(cobolPerform, 0, 0);
}
                

PERFORM 0500-LABEL WITH TEST BEFORE UNTIL I >= 0.
                

while (!(locDef.i.getIntValue() >= 0)) {
    prf_0500_Label(cobolPerform, 0, 0);
}
                

PERFORM 0500-LABEL WITH TEST AFTER UNTIL I >= 0.
                

while (true) {
    prf_0500_Label(cobolPerform, 0, 0);
    if (locDef.i.getIntValue() >= 0) {
        break;
    }
}
                

PERFORM 0600-LABEL VARYING N FROM 200
    BY 200 UNTIL N = 800.
                

locDef.n.assign(200);
while (!(locDef.n.equalTo(800))) {
    prf_0600_Label(cobolPerform, 0, 0);
    locDef.n.assign(add(locDef.n.getNumericValue(), 200));
}
                

PERFORM 0600-LABEL WITH TEST AFTER 
    VARYING N FROM 200
    BY 200 UNTIL N = 800.
                

locDef.n.assign(200);
while (true) {
    prf_0600_Label(cobolPerform, 0, 0);
    if (locDef.n.equalTo(800)) {
        break;
    }
    locDef.n.assign(add(locDef.n.getNumericValue(), 200));
}